Parameters
ihTranslationHandle | input | handle | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.