project QadFinancials > class TReportStrings > method Main1B

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

/* GL Reports */
create tReportStrings.
assign tReportStrings.tcStringText = #T-1'GL Period':30(1032)T-1#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational,JournalEntryReport":U
       tReportStrings.tcStringCode = "ACPER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'BC Tax Base':20(4156)T-2#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational,JournalEntryReport":U
       tReportStrings.tcStringCode = "VATBASELC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'SC Tax Base':20(4157)T-3#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational,JournalEntryReport":U
       tReportStrings.tcStringCode = "VATBASECC":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Carried Forward':20(4158)t-4#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "CARDFWD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'Carried Forward':20(4158)t-5#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcReportName = "":U
       tReportStrings.tcStringCode = "CARFWD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'GL':10(4159)T-6#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcReportName = "":U
       tReportStrings.tcStringCode = "GLCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'Sub-Account':11(4160)T-7#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcReportName = "":U
       tReportStrings.tcStringCode = "DIVCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Brought Forward':20(4161)t-8#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "BRGTFWD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Brought Forward':20(4161)t-9#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcStringCode = "BRTFWD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'Period Activity':255(63312)T-10#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance,BalanceByCurrency":U
       tReportStrings.tcStringCode = "SELAP":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Closing Activity':80(733774275)T-11#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "BalanceByCurrency":U
       tReportStrings.tcStringCode = "TILLSELAP":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Activity To':30(4164)T-12#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "TrialBalance":U
       tReportStrings.tcStringCode = "MVMNTSTILL":U.

/*Item reports*/       
create tReportStrings.
assign tReportStrings.tcStringText = #T-13'GL':30(4165)T-13#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "GENERAL":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-14'Purchase':30(417)t-14#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "PURCHASE":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-15'Inventory':30(4166)t-15#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "INV":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-16'Sales':30(418)t-16#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "SALES":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-17'Activity':30(4167)t-17#
       tReportStrings.tcClassName  = "BItemReport,BDebtorReport,BCreditorReport,BGLReport,BEmployeeReport":U
       tReportStrings.tcReportName = "ItemDetailReport,DebtorMasterCard,CreditorMasterCard,GLMasterCard,EmployeeMasterCard":U
       tReportStrings.tcStringCode = "ACT":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-18'Expense Notes':30(4168)t-18#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "EXPNS":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-19'Intrastat':30(4169)t-19#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "INTRST":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-20'Active':30(1489)t-20#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "ACTIV":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-21'Transaction UM':30(4170)T-21#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "TRUOM":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-22'Defaults':30(4171)t-22#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "DEFS":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-23'Default':30(4172)t-23#
       tReportStrings.tcClassName  = "BItemReport,BDebtorReport,BGLReport,BCreditorReport":U
       tReportStrings.tcReportName = "ItemDetailReport,DebtorMasterCard,GLMasterCard,CreditorMasterCard":U
       tReportStrings.tcStringCode = "DEF":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-24'Conversion factor':30(4173)t-24#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "CONVF":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Base UM':30(4174)T-25#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "BASEUOM":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-26'Available Warehouses':30(4175)t-26#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "AVBWAR":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-27'Profile Code':30(4176)t-27#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "PROFCODE":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Warehouse Code':30(2827)t-28#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "WARCODE":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Saf Code':30(3970)t-29#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "SAFCD":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Saf Concept Code':30(4177)t-30#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "SAFCONCD":U.          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Purchaser':30(2675)t-31#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "PRCHS":U.                       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Cost Center Profile':30(4178)T-32#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "CCPFCD":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Sub-Account Profile Code':30(2702)T-33#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "DICPFCD":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Allowed Units of Measure':40(4179)t-34#
       tReportStrings.tcClassName  = "BItemReport":U
       tReportStrings.tcReportName = "ItemDetailReport":U
       tReportStrings.tcStringCode = "ALUOM":U.    

/* BPaymentSelection */

/** Not used ? 
create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Name/Address':20(4180)t-35#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PaymentSelectionReports":U
       tReportStrings.tcStringCode = "NMADR":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Reference':20(943)t-36#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PaymentSelectionReports":U
       tReportStrings.tcStringCode = "RFRNC":U.  

**/
               
/*BClosingPostingsReport*/       

create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Exceptions':15(4181)t-37#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcStringCode = "EXCPS":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Difference':15(4182)T-38#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "ConsolidationCurrency,CirecBalance,CreditorControlGLBalance,DebtorControlGLBalance,FAControlGLBalance,GLOpenItemControl":U
       tReportStrings.tcStringCode = "DIFF":U.        

create tReportStrings.
assign tReportStrings.tcStringText = #T-49'Disposal and revaluation':30(17420)T-49#      
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "FAControlGLBalance":U
       tReportStrings.tcStringCode = "UNLINK":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Not Capitalized':40(17421)T-50#      
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "FAControlGLBalance":U
       tReportStrings.tcStringCode = "NOTCAP":U.
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-51'total':15(17422)T-51#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "FAControlGLBalance":U
       tReportStrings.tcStringCode = "TOTAL":U.                      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Transactions in Transient Layer':32(4183)t-39#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "TransientLayers":U
       tReportStrings.tcStringCode = "TRLTRLR":U.               
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Base Currency':25(4184)T-40#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "DebtorControlGLBalance,CreditorControlGLBalance":U
       tReportStrings.tcStringCode = "LOCCUR":U.               
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Statutory Currency':100(4068)T-41#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "DebtorControlGLBalance,CreditorControlGLBalance":U
       tReportStrings.tcStringCode = "CONCUR":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-42'GL Calendar Year':20(4186)T-42#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "DInvoiceVoucherCompleteness":U
       tReportStrings.tcStringCode = "ACCYEAR":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-449'Created On':255(465703928)T-449#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "DebtorControlGLBalance,CreditorControlGLBalance":U
       tReportStrings.tcStringCode = "CRETON":U. 

/*DebtorMasterCard*/              
create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Business Relation':50(4187)t-43#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "BUSREL":U.    

create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Payment':50(4189)T-45#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard,CreditorMasterCard":U
       tReportStrings.tcStringCode = "PAYMENT":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Banking':50(4190)t-46#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport,BGLReport":U
       tReportStrings.tcReportName = "DebtorMasterCard,CreditorMasterCard,GLMasterCard":U
       tReportStrings.tcStringCode = "BANKING":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Tax Identification Number':30(3878)T-47#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "VATIDNO":U.            
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Country Tax Identification':30(3968)T-48#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "CNTVATID":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Credit Management':255(56526)T-52#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "CRDTMGMT":U.