project QadFinancials > class TReportStrings > method Main2B

Description

extension of the Main method


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-1'Initial Budget':19(1610)t-1#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "INITBUD":U.   
        
create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Amount':19(1611)t-2#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "AMNT":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'Net Margin':19(1612)t-3#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "NETMRG":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Target':19(1613)T-4#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "OBJ":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'Estimate':19(1614)t-5#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "EST":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Revenue':19(1615)t-6#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "RVN":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'Costs':19(1616)t-7#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "CSTS":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Current GL Period':19(1617)T-8#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "CURPER":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'YTD':19(1618)t-9#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "YTD":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'This Year':15(4191)t-10#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashBoardDetail":U
       tReportStrings.tcStringCode = "TYEAR":U. 

/*DebtorReport.SalesOrder*/       
create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Analysis':30(4192)t-11#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "ANALYSIS":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Conditions':30(4193)t-12#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "COND":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-13'Delivery Address':25(4194)t-13#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "DELADD":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-14'Invoice Address':25(4195)t-14#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "INVADD":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-15'Lines':30(4196)t-15#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "LINES":U.                   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-16'Revision':30(4197)t-16#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "REVISION":U.           

create tReportStrings.
assign tReportStrings.tcStringText = #T-17'Category':20(4198)t-17#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "CATEGORY":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-18'Base Index':20(4199)t-18#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "BASIND":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-19'Weight %':20(4200)T-19#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "WEIGH":U.                             
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-20'Item Code':20(63)t-20#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "ITEMCD":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-21'Item Description':30(4201)t-21#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "ITEMDESC":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-22'Guarantees':30(4202)t-22#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "GRNTS":U.          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-23'Type':10(4014)t-23#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "TYPE":U.          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-24'Bank Account No':20(3942)T-24#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "BNKNM":U.           
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Account Number':20(4203)t-25#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "ACCNM":U.                  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-26'TC Amount':20(4204)T-26#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "AMTC":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-27'Retain %':10(4205)t-27#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "RET":U.               
                               
create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Retain text':20(4206)t-28#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "RETTXT":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Seq':3(4207)t-29#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "SEQ":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Invoice Schedule':30(4208)T-30#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder":U
       tReportStrings.tcStringCode = "INVSHD":U.                  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Saf Code':20(4209)t-31#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder,DebtorMasterCard":U
       tReportStrings.tcStringCode = "SAFCD":U.         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Saf Concept Code':20(4210)t-32#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "SalesOrder,DebtorMasterCard":U
       tReportStrings.tcStringCode = "SAFCONCD":U.          

create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Other Balance Sheet Accounts':40(65175)T-33#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "OTHERBALACC":U.  

create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Customer Control Accounts':40(4212)T-34#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "DEBACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Supplier Control Accounts':40(4213)T-35#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "CREACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Inventory Accounts':40(65176)T-36#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "INVACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Subtotal':40(4215)t-37#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "SUBTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Profit and Loss Accounts':40(4216)T-38#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "PALACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-55'Result of Previous Years':40(65284)T-55#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "PLPACC":U.
create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Result of Current Year':40(65285)T-56#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "PLCACC":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Analysis':30(4192)t-39#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder":U
       tReportStrings.tcStringCode = "ANALYSIS":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Conditions':30(4193)t-40#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder":U
       tReportStrings.tcStringCode = "Conditions":U.         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Address':30(4217)t-41#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder":U
       tReportStrings.tcStringCode = "Address":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Text':30(4218)t-42#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder":U
       tReportStrings.tcStringCode = "Text":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Lines':30(4196)t-43#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder":U
       tReportStrings.tcStringCode = "Lines":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Receipt':30(3999)t-44#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder":U
       tReportStrings.tcStringCode = "Receipt":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Saf Code':25(4219)t-45#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder,CreditorMasterCard":U
       tReportStrings.tcStringCode = "SafCode":U.           
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Saf Concept Code':25(4220)t-46#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "PurchaseOrder,CreditorMasterCard":U
       tReportStrings.tcStringCode = "SafConCode":U.           
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Recapitulation by Currency':50(4221)t-47#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U
       tReportStrings.tcStringCode = "RECBYCUR":U.                  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Recapitulation by GL Account':50(4222)T-48#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U
       tReportStrings.tcStringCode = "RECBYGL":U.                         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-49'Recapitulation by Sub-Account':50(45553)T-49#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U
       tReportStrings.tcStringCode = "RECBYDIV":U.                         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Recapitulation by Purchase Code':50(4224)t-50#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj":U
       tReportStrings.tcStringCode = "RECBYPUR":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Recapitulation by Sales Code':50(4225)t-51#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "DebtorAgeingAnalysisByProj":U
       tReportStrings.tcStringCode = "RECBYSAL":U.        
                                                                                                                                                              
create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Within Terms':30(4054)t-52#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U
       tReportStrings.tcStringCode = "WTRMS":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-53'Days Due':20(4052)t-53#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U 
       tReportStrings.tcStringCode = "DDUE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-54'Months Due':20(4053)t-54#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj":U 
       tReportStrings.tcStringCode = "MDUE":U.