project QadFinancials > class TReportStrings > method Main4


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'Contract':30(14231)T-1#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "ProjectMastercard":U
       tReportStrings.tcStringCode = "CONTRACT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Budget':30(531)T-2#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "ProjectMastercard":U
       tReportStrings.tcStringCode = "BUDGET":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'GL Periods':30(14233)T-3#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "ProjectMastercard":U
       tReportStrings.tcStringCode = "PERIODS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Item':30(14234)T-4#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "ProjectMastercard":U
       tReportStrings.tcStringCode = "ITEM":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'Defaults':30(4171)T-5#
       tReportStrings.tcClassName  = "BProjectReport":U
       tReportStrings.tcReportName = "ProjectMastercard":U
       tReportStrings.tcStringCode = "DEFAULTS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Before Break-off Period':30(14375)T-6#
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MovementsByAssetCode":U
       tReportStrings.tcStringCode = "BEFBP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'After Break-off Period':30(14376)T-7#
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MovementsByAssetCode":U
       tReportStrings.tcStringCode = "AFTBP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-8'GL Period':30(14232)T-8#
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MovementsByAssetCode":U
       tReportStrings.tcStringCode = "PERIOD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'NBV':30(14380)T-9#
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MovementsByAssetCode":U
       tReportStrings.tcStringCode = "NBV":U.

create tReportStrings.       
assign tReportStrings.tcStringText = #T-11'Depreciation':20(14422)T-11#
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MutationsByGL":U
       tReportStrings.tcStringCode = "DPR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Acquisition':20(4129)T-12#
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MutationsByGL":U
       tReportStrings.tcStringCode = "ACQ":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-13'Total by Asset Type':30(14421)T-13#      
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MutationsByGL":U
       tReportStrings.tcStringCode = "TOTBYTP":U.         
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-14'Total by Book':30(14420)T-14#      
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MutationsByGL":U
       tReportStrings.tcStringCode = "TOTBYBK":U.                
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-15'Total by GL account':30(14397)T-15#      
       tReportStrings.tcClassName  = "BFixedAssetReport":U
       tReportStrings.tcReportName = "MutationsByGL":U
       tReportStrings.tcStringCode = "TOTBYGL":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-16'Forecasts':25(14428)T-16#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "FORECASTS":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-18'Invoices':25(14443)T-18#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "INV":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-19'Charges':25(14444)T-19#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "CHRGS":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-20'Direct costs':25(14445)T-20#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "DCOSTS":U. 
create tReportStrings.  
assign tReportStrings.tcStringText = #T-21'Production end of month':30(14446)T-21#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "PEOM":U. 
create tReportStrings.  
assign tReportStrings.tcStringText = #T-22'Production end of year':30(14447)T-22#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "PEOY":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-23'LTD':3(14448)T-23#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "LTD":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-24'PD':3(14449)T-24#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "PD":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-25'Gross Amount':25(14450)T-25#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "AMOUNTB":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-26'Net Amount':25(14451)T-26#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "AMOUNTN":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-27'Total':15(14489)T-27#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "TOTAL":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-28'Subtotal':20(14490)T-28#
       tReportStrings.tcClassName  = "BDashBoardReport":U
       tReportStrings.tcReportName = "DashboardDetail":U
       tReportStrings.tcStringCode = "SUBTOTAL":U. 

create tReportStrings.       
assign tReportStrings.tcStringText = #T-29'Signature':20(14852)T-29#
       tReportStrings.tcClassName  = "BCDocumentReport,BDDocumentReport":U
       tReportStrings.tcStringCode = "SIGN":U. 

create tReportStrings.       
assign tReportStrings.tcStringText = #T-30'Errors':15(14935)T-30#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "ERRS":U. 
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-31'Activity History':20(16496)T-31#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "MOVHIST":U. 
create tReportStrings.       
assign tReportStrings.tcStringText = #T-52'Activity Transaction':20(16497)T-52#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "MOVTRANS":U.        
create tReportStrings.       
assign tReportStrings.tcStringText = #T-50'Balance History':20(16498)T-50#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "BALHIST":U.        
create tReportStrings.       
assign tReportStrings.tcStringText = #T-49'Balance Transaction':20(16499)T-49#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "BALTRANS":U.    
create tReportStrings.       
assign tReportStrings.tcStringText = #T-53'DR/CR':5(12133)T-53#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "MARK":U.   
create tReportStrings.       
assign tReportStrings.tcStringText = #T-54'SAF Values':25(16501)T-54#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "SAFVALUES":U.         

create tReportStrings.       
assign tReportStrings.tcStringText = #T-51'History':15(14938)T-51#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck,FAControlGLBalance,GLOpenItemControl":U
       tReportStrings.tcStringCode = "HIST":U. 
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-32'YTD':15(14937)T-32#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "YTD":U. 

create tReportStrings.       
assign tReportStrings.tcStringText = #T-36'QTY':3(9015)T-36#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "HistoryPostingsCheck":U
       tReportStrings.tcStringCode = "QTY":U. 
       
create tReportStrings. 
assign tReportStrings.tcStringText = #T-37'Amounts in Thousands':20(15078)T-37#
       tReportStrings.tcClassName  = "BBLWIReport":U
       tReportStrings.tcReportName = "DocumentBLWIReport":U
       tReportStrings.tcStringCode = "AMINTOUS":U. 
       
create tReportStrings. 
assign tReportStrings.tcStringText =  #T-39'Account Balance':30(15138)T-39#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CIRECBalance":U
       tReportStrings.tcStringCode = "ACCBAL":U.   
       
create tReportStrings. 
assign tReportStrings.tcStringText = #T-41'Supplier Invoice Unmatched Transactions':50(15139)T-41#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CIRECBalance":U
       tReportStrings.tcStringCode = "CRINVUNMTR":U. 
       
create tReportStrings. 
assign tReportStrings.tcStringText = #T-42'Records':10(15140)T-42#       
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CIRECBalance":U
       tReportStrings.tcStringCode = "REC":U. 

create tReportStrings. 
assign tReportStrings.tcStringText = #T-43'Bank Statement Number':25(16384)T-43#       
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "BANKSTATNUMBER":U.  
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-55'Total by GL account':30(14397)T-55#      
       tReportStrings.tcClassName  = "BCashBoxReport":U
       tReportStrings.tcReportName = "CashBook":U
       tReportStrings.tcStringCode = "TOTBYGL":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Total by Page':20(17358)T-56#                  
       tReportStrings.tcClassName  = "BCashBoxReport":U
       tReportStrings.tcReportName = "CashBook":U
       tReportStrings.tcStringCode = "TOTBYPG":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-57'Closing Balance':100(4051)T-57#
       tReportStrings.tcClassName  = "BCashBoxReport":U
       tReportStrings.tcReportName = "CashBook":U
       tReportStrings.tcStringCode = "CLOSEBAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-59'Reference No':30(49827)T-59#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "REFNO":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-60'GL Acct':30(49828)T-60#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,AccTransJournal,CBGLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "GLACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-61'GL Description':30(49829)T-61#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,CBGLReport,ReversedReplacedGLReport,GLVerifandAppr":U
       tReportStrings.tcStringCode = "GLDESC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Voucher No':30(49830)T-62#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "VOUCHERNO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-63'Page':10(49831)T-63#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,CBGLReport,GLReport,SubLedgeReport,AccBalanceTOT":U
       tReportStrings.tcStringCode = "PAGENO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-64'Explanation':20(49832)T-64#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "EXPLANATION":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-65'Counter Side GL Accts':100(49833)T-65#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,CBGLReport":U
       tReportStrings.tcStringCode = "CNTSIDGLACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-66'Total Amount':50(49834)T-66#     
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal":U
       tReportStrings.tcStringCode = "TOTAMT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-67'Amount':20(49835)T-67#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,AccBalanceTOT":U
       tReportStrings.tcStringCode = "AMT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-68'Credit Account':50(55548)T-68#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBReceiptJournal,AccTransJournal":U
       tReportStrings.tcStringCode = "CREDITACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-103'Debit Account':20(59239)T-103#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal":U
       tReportStrings.tcStringCode = "DEBITACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-69'GL Account':50(55549)T-69#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "GENLEGACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-70'Corresponding Account':50(55550)T-70#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,CBGLReport":U
       tReportStrings.tcStringCode = "CORRACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-97'For Curr Amt':50(57142)T-97#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "FORCURACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-98'Exch Rate':50(57143)T-98#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "EXCRAT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-99'Debit':50(57144)T-99#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ForeignCurrJournal,GeneralGLJournal,GLVerifandAppr":U
       tReportStrings.tcStringCode = "DEBIT1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-100'Credit':50(57145)T-100#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ForeignCurrJournal,GeneralGLJournal,GLVerifandAppr":U
       tReportStrings.tcStringCode = "CREDIT1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-71'Year':10(55551)T-71#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,CBGLReport,GLReport,SubLedgeReport,VATPayableLedger,AccBalanceTOT":U
       tReportStrings.tcStringCode = "CBYEAR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-72'Month':10(55552)T-72#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,CBGLReport,GLReport,SubLedgeReport,VATPayableLedger,AccBalanceTOT":U
       tReportStrings.tcStringCode = "CBMONTH":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-73'Day':10(55553)T-73#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBDAY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-74'Tax Type':255(49825)T-74#
       tReportStrings.tcClassName = "BVatReport":U
       tReportStrings.tcReportName = "VatRegisterSum":U
       tReportStrings.tcStringCode = "CBTAXTYPE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-75'Tax Class':255(49946)T-75#
       tReportStrings.tcClassName = "BVatReport":U
       tReportStrings.tcReportName = "VatRegisterSum":U
       tReportStrings.tcStringCode = "CBTAXCLASS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-76'Dr/Cr':10(56759)T-76#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBDRCR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-77'Dr Amt':10(56760)T-77#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBDRAMT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-78'Cr Amt':10(56761)T-78#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBCRAMT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-79'Line Balance':20(56762)T-79#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBLNBLN":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-80'Beginning Balance':20(56763)T-80#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBBEGBLN":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-81'Ending Balance':20(56764)T-81#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "CBENDBLN":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-82'Daily Totally':20(56765)T-82#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport":U
       tReportStrings.tcStringCode = "CBDAYTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-92'GL Period Total':40(56953)T-92#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,SubLedgeReport":U
       tReportStrings.tcStringCode = "PRDTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-93'Year Accumulate':40(56954)T-93#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "SubLedgeReport":U
       tReportStrings.tcStringCode = "YEARACCU":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-95'GL Account':50(57140)T-95#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccTransJournal":U
       tReportStrings.tcStringCode = "GENLEGACCT1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-96'Corresponding Account':50(57141)T-96#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccTransJournal":U
       tReportStrings.tcStringCode = "CORRACCT1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-101'-':50(57153)T-101#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "HYPHEN":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-104'Batch':50(62432)T-104#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcStringCode = "BATCH":U.