project QadFinancials > class TReportStrings > method Main1

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

/* Vat reports */
create tReportStrings.
assign tReportStrings.tcStringText = #T-1'Tax Analysis':20(4096)T-1#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterDet,VATReconciliationDet,VATRegisterTran,VATExceptionDet,VatRegisterTran":U
       tReportStrings.tcStringCode = "VATANAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Accounting Allocation':30(4097)t-2#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterDet,VATReconciliationDet,VATExceptionDet":U
       tReportStrings.tcStringCode = "ACCALLOC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'DR/CR':20(4098)T-3#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterDet,VATReconciliationDet,VATExceptionDet,VatReturnTran":U
       tReportStrings.tcStringCode = "DC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Amount':20(878)t-4#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterDet,VATReconciliationDet,VATExceptionDet":U
       tReportStrings.tcStringCode = "AMNT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'T-Box':20(71293)T-5#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterDet,VATReconciliationDet,VatRegisterTran":U
       tReportStrings.tcStringCode = "VBOX":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Transaction Type':20(3903)t-6#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VatRegisterTran":U
       tReportStrings.tcStringCode = "VATTRTYPE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'B-Box':20(4100)t-7#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterDet,VATReconciliationDet,VatRegisterTran":U
       tReportStrings.tcStringCode = "BBOX":U.
         
create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Total by country of arrival':50(4101)t-8#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterSum":U
       tReportStrings.tcStringCode = "TOTBCOA":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Total by country of dispatch':50(4102)t-9#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterSum":U
       tReportStrings.tcStringCode = "TOTBCOD":U.              

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'Total by country of arrival and dispatch':50(4103)t-10#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterSum":U
       tReportStrings.tcStringCode = "TOTBCOAD":U.       


create tReportStrings.
assign tReportStrings.tcStringText = #T-73'Total by From Tax Zone and To Tax Zone':255(71326)T-73#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterSum":U
       tReportStrings.tcStringCode = "TOTBFTTZ":U. 


create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Tax Return':20(4104)T-11#
       tReportStrings.tcClassName  = "BVATReport":U           
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran,VATQuarterSum":U
       tReportStrings.tcStringCode = "VATRET":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Accounting':20(4105)T-12#
       tReportStrings.tcClassName  = "BVATReport,BDebtorReport,BCreditorReport":U           
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationSum,VATReconciliationTran,DebtorMasterCard,CreditorMasterCard":U
       tReportStrings.tcStringCode = "ACC":U.

create tReportStrings.  
assign tReportStrings.tcStringText = #T-13'Profit and Loss Accounts':30(4106)t-13#
       tReportStrings.tcClassName  = "BVATReport":U           
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran":U
       tReportStrings.tcStringCode = "PANDL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-14'Fixed Assets Accounts':255(4107)T-14#
       tReportStrings.tcClassName  = "BVATReport":U           
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran":U
       tReportStrings.tcStringCode = "FIXASS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-15'Tax Accounts':20(4108)T-15#
       tReportStrings.tcClassName  = "BVATReport":U           
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran":U
       tReportStrings.tcStringCode = "VATACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-16'Other':20(4109)t-16#
       tReportStrings.tcClassName  = "BVATReport":U           
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran":U
       tReportStrings.tcStringCode = "VOTHER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-17'Total Accounting':20(4110)t-17#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATReconciliationDet":U
       tReportStrings.tcStringCode = "TOTALACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-18'Exceptions List':30(4111)t-18#
       tReportStrings.tcClassName  = "BVATReport":U                                                                
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran,VATReconciliationSum,MarkedTransactions,UnmarkedTransactions":U
       tReportStrings.tcStringCode = "EXCLIST":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-19'Exception':30(4112)t-19#
       tReportStrings.tcClassName  = "BVATReport":U                                                                
       tReportStrings.tcReportName = "VATExceptionTran":U
       tReportStrings.tcStringCode = "EXC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-20'Balance Sheet Accounts':30(4113)t-20#
       tReportStrings.tcClassName  = "BVATReport":U                              
       tReportStrings.tcReportName = "VATReconciliationDet,VATReconciliationTran":U
       tReportStrings.tcStringCode = "BALSHE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-21'Difference':20(4114)t-21#
       tReportStrings.tcClassName  = "BVATReport":U    
       tReportStrings.tcReportName = "VATReconciliationDet,VATVersusSum,VATReconciliationTran,VATQuarterSum":U
       tReportStrings.tcStringCode = "DIFF":U.
               
create tReportStrings.
assign tReportStrings.tcStringText = #T-22'Total turnover':20(4115)t-22#
       tReportStrings.tcClassName  = "BVATReport":U  
       tReportStrings.tcReportName = "VATReconciliationSum,VATRegisterSum":U
       tReportStrings.tcStringCode = "TOTTURN":U.       
              
create tReportStrings.
assign tReportStrings.tcStringText = #T-23'Name':20(4116)t-23#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterDet":U
       tReportStrings.tcStringCode = "NAME":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-24'No data found for the current selection.':50(4117)T-24#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcStringCode = "NDF":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Invoice Ref':20(4118)T-25#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterDet,VATQuarterSum":U
       tReportStrings.tcStringCode = "INVREF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-26'Transaction Start':25(4119)T-26#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterDet,VATQuarterTran":U
       tReportStrings.tcStringCode = "TSP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-27'Transaction Ending Point':25(4120)T-27#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterDet,VATQuarterTran":U
       tReportStrings.tcStringCode = "TEP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Differences':20(4121)t-28#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATVersusSum,VATQuarterSum":U
       tReportStrings.tcStringCode = "DIFFS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Description':20(1138)t-29#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATReconciliationSum,VATExceptionDet":U
       tReportStrings.tcStringCode = "DSCR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Tax Administration':20(4122)T-30#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATReconciliationSum":U
       tReportStrings.tcStringCode = "VATADM":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Country Description':20(4123)T-31#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATExceptionSum":U
       tReportStrings.tcStringCode = "DSCRCNTR":U.
       
create tReportStrings. 
assign tReportStrings.tcStringText = #T-32'Total all':20(4124)t-32#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATVersusSum,VATQuarterSum":U
       tReportStrings.tcStringCode = "TOTALALL":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Tax Excl':10(4125)T-33#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterTran":U
       tReportStrings.tcStringCode = "EXCLVAT":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Tax Incl':10(4126)T-34#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterTran":U
       tReportStrings.tcStringCode = "INCLVAT":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Inland Purchase':20(4127)T-35#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "INLPUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Import':20(4128)t-36#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "IMPORT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Acquisition':20(4129)t-37#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "ACQUI":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Inland Sales':20(4130)t-38#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "INLSAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Export':20(4131)t-39#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "EXPORT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Supply':20(4132)t-40#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "SUPPLY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Total Posting with Tax':40(63571)T-41#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "TJCWVATC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Total Posting without Tax':40(63570)T-42#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "TJCWOVC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Total for Daybook':40(63569)T-43#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterSum":U
       tReportStrings.tcStringCode = "TFJC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Overall Summary':40(4136)t-44#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATRegisterTran":U
       tReportStrings.tcStringCode = "OVESUM":U.

/**************/
/* GL Reports */

create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Activity':100(4137)T-45#
       tReportStrings.tcClassName  = "BGLReport":U 
       tReportStrings.tcStringCode = "MVMNTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-70'Entity:':255(59680)T-70#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcStringCode = "ENTITY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-71'Cross Company Link':255(59681)T-71#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcStringCode = "CROSSCOMPANYLINK":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Reference':100(944)t-46#
       tReportStrings.tcClassName  = "BGLReport,BIntrastatReport":U 
       tReportStrings.tcStringCode = "RFRNC":U.

/* Analytical Reports */	
create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Posted':20(4138)t-47#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcStringCode = "PSTD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Active':20(208)t-48#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcStringCode = "ACT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-49'Compare Period':30(4139)T-49#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcReportName  = "CostCentreTransSumm,ProjectTransSumm,SafOnlyTransSumm":U
       tReportStrings.tcStringCode = "COPEMO":U.

/* Intrastat Reports */
create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Description':20(1138)t-50#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatReconciliation":U
       tReportStrings.tcStringCode = "DSCR":U.
    
create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Tax Point Date':20(3885)t-51#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatReconciliation":U
       tReportStrings.tcStringCode = "TAXPD":U.	

create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Customer':20(4140)T-52#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatReconciliation":U
       tReportStrings.tcStringCode = "DBTR":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-53'Supplier':20(4141)T-53#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatReconciliation":U
       tReportStrings.tcStringCode = "CRDTR":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-54'Original Value':20(4142)t-54#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatReconciliation":U
       tReportStrings.tcStringCode = "ORIGVAL":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-55'Statistical Category':20(4143)t-55#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatReconciliation,IntrastatDeclaration":U
       tReportStrings.tcStringCode = "STACAT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Declaration Period':20(4144)t-56#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatDeclaration":U
       tReportStrings.tcStringCode = "DECLPD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-57'Country':20(4145)t-57#
       tReportStrings.tcClassName  = "BIntrastatReport":U
       tReportStrings.tcReportName = "IntrastatDeclaration":U
       tReportStrings.tcStringCode = "CNTRY":U.

/* end of intrastat reports */

create tReportStrings.
assign tReportStrings.tcStringText = #T-58'QTY':4(4146)t-58#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "QTY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-59'Cost':40(4147)t-59#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "COST":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-60'Revenue':40(4148)t-60#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "REVENUE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-61'Actual Cost':20(4149)t-61#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "ACTUALCOST":U.
/* S_BTS 4199b */
create tReportStrings.
assign tReportStrings.tcStringText = #T-69'Actual Revenue':20(16230)T-69#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "ACTUALREV":U.      
/* E_BTS 4199b */        

create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Commitments':20(4150)t-62#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "COMMITMENTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-63'Budget':20(4151)t-63#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "BUDGET":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-64'Forecast':20(4152)t-64#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "FORECAST":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-65'Controller Forecast':20(4153)t-65#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "CONTROLLERFORECAST":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-66'Open Budget':20(4154)T-66#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "OPENBUDGET":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-67'Analytical':20(4155)t-67#
       tReportStrings.tcClassName  = "BBudgetReporting":U
       tReportStrings.tcReportName = "BudgetDetail":U
       tReportStrings.tcStringCode = "ANALYTICAL":U.