project QadFinancials > class TReportStrings > method Main3


Parameters


ihTranslationHandleinputhandle
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method TReportStrings.Main


program code (program1/treportstrings.p)

&SCOPED-DEFINE TARGETPROCEDURE   ihTranslationHandle
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Quantities':30(4226)t-2#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "TimeLine":U       
       tReportStrings.tcStringCode = "QTYSTD":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-3'Not Reported':30(4227)t-3#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "TimeLine":U       
       tReportStrings.tcStringCode = "QTYEXT":U.          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Calendar Date':20(4228)t-4#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "TimeLine":U       
       tReportStrings.tcStringCode = "CLNDATE":U.                    
               
create tReportStrings.
assign tReportStrings.tcStringText = #T-5'Daybook':10(4229)T-5#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U       
       tReportStrings.tcStringCode = "JRNL":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Closing Balance':255(57159)T-45#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U       
       tReportStrings.tcStringCode = "CLGB":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Base Currency':30(2308)T-6#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLOpenItems":U       
       tReportStrings.tcStringCode = "LOCCUR":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-7'Transaction Currency':30(4230)T-7#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLOpenItems":U       
       tReportStrings.tcStringCode = "TRACUR":U.            
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Statutory Currency':30(4231)t-8#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLOpenItems":U       
       tReportStrings.tcStringCode = "CONCUR":U.                   
                                
create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Entity':30(4232)T-9#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "CPNY":U.     

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'Employee':30(4233)t-10#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "EMPL":U. 
              
create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Issue Date':30(4234)t-11#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "ISSDAT":U.                   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Amount Received':30(4235)t-12#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "AMTRCV":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-13'Date':30(4236)t-13#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "DATE":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-14'Signature':30(4237)t-14#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "SGNT":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-15'Advance Print-Out':30(4238)T-15#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "AdvancePrintOut":U       
       tReportStrings.tcStringCode = "EMPPREP":U.
       
create tReportStrings.
assign  tReportStrings.tcStringText = #T-16'Total expenses':30(4239)t-16#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "TOTALEXP":U. 
        
create tReportStrings.
assign  tReportStrings.tcStringText = #T-17'Advances Linked':30(45542)T-17#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "ADVLIN":U.  
        
create tReportStrings.
assign  tReportStrings.tcStringText = #T-18'Total deducted':30(14214)T-18#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "TOTNET":U.
        
create tReportStrings.
assign  tReportStrings.tcStringText = #T-44'Pay-Out':30(14215)T-44#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "PAYOUT":U.                                      
        
create tReportStrings.
assign  tReportStrings.tcStringText = #T-19'Ded':10(45543)T-19#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "DED":U.           
        
create tReportStrings.
assign  tReportStrings.tcStringText = #T-20'Non-Ded':10(4243)T-20#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "NONDED":U.           
        
create tReportStrings.
assign  tReportStrings.tcStringText = #T-21'Total Expense Note after Advance':60(4244)T-21#
        tReportStrings.tcClassName = "BExpenseNoteReport":U
        tReportStrings.tcReportName = "ExpenseNote":U
        tReportStrings.tcStringCode = "TOTALAFTER":U.          

create tReportStrings.
assign tReportStrings.tcStringText = #T-22'Invoices':50(4245)t-22#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "INVCS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-82'Deductions':20(61385581)T-82#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "DEDUCTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-23'Adjustments':50(4246)t-23#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "ADMNTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-24'Credit Notes':50(4247)t-24#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "CNTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Prepayments':50(45541)T-25#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "PPMNTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Deductions':20(61385581)T-62#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "DED":U.       
/*revaluations*/
create tReportStrings.
assign tReportStrings.tcStringText = #T-26'Summary By Currency':50(4249)t-26#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "RECCUR":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-27'Summary by GL':50(4250)T-27#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "RECGL":U.              
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Detailed revaluation status':50(4251)t-28#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "RECDET":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Before Revaluation':50(4252)t-29#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "BREVAL":U.                        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-30'After Revaluation':50(4253)t-30#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "AREVAL":U.              
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Difference':50(4254)t-31#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "DIFF":U.         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Debit':20(2295)t-33#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "DEBIT":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Credit':20(2296)t-34#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "CREDIT":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Revaluation':20(4255)T-35#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "REVAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Transaction':20(64937)T-46#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "TRANSACTION":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Exchange Rate':20(4256)t-36#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "XRATE":U.              
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Total Entity':30(4257)T-37#
       tReportStrings.tcClassName  = "BRevaluationReport":U
       tReportStrings.tcReportName = "Revaluation":U
       tReportStrings.tcStringCode = "TOTALCOMP":U.                     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Planned':15(4258)t-38#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "PLANNED":U.         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Days Late':15(4259)t-39#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "DAYSLATE":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Difference QTY':18(4260)t-40#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "DIFQTY":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Difference Hrs':18(4261)t-41#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "DIFHRS":U.  


create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Sunday':18(4262)t-42#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "SU":U.