project QadFinancials > class TReportStrings > method Main4B

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-28'Cumulative Activity Total:':255(57225)T-28#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "CUMACTTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Page Activity Total:':255(57224)T-29#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "PAGEACTTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Cumulative Activity Total C/F':255(57226)T-30#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "CUMACTTOTCF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Beginning Balance':30(57230)T-31#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "BEGINBAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Current Debit Period':40(57231)T-32#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "CURRDEBITPERIOD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Current Credit Period':40(57232)T-33#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "CURRCREDITPERIOD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-104'Miscellaneous':255(59524)T-104#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorMasterCard":U
       tReportStrings.tcStringCode = "MISC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-129'Tax Information':30(62371)T-129#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorMasterCard":U
       tReportStrings.tcStringCode = "TAXINFO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-130'Address Information':30(62217)T-130#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorMasterCard":U
       tReportStrings.tcStringCode = "ADDRINFO":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-131'Own Bank Number':30(62662)T-131#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorMasterCard":U
       tReportStrings.tcStringCode = "OWNBANKNBR":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-132'Payment Format':20(62664)T-132#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorMasterCard":U
       tReportStrings.tcStringCode = "PAYFORMAT":U.    

create tReportStrings.
assign tReportStrings.tcStringText = #T-133'Payment Instrument':30(62665)T-133#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorMasterCard":U
       tReportStrings.tcStringCode = "PAYINSTRU":U.    

create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Ending Balance':30(57233)T-34#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "ENDBAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Foreign Currency':30(57234)T-35#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "FRGCURRENCY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Foreign Currency':30(57234)T-37#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "FRGCURRENCY1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Foreign Currency':30(57234)T-38#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "FRGCURRENCY2":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Foreign Currency':30(57234)T-39#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "FRGCURRENCY3":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Amount':10(57237)T-40#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "AMT1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Amount':10(57237)T-41#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "AMT2":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Amount':10(57237)T-42#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "AMT3":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Account':20(57235)T-36#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "ACCT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Page Beginning':30(57279)T-43#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "PAGEBEGIN":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Page Ending':30(57280)T-44#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccBalanceTOT":U
       tReportStrings.tcStringCode = "PAGEEND":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Approver':30(57331)T-45#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "APPROVER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Checker':30(57332)T-46#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "CHECKER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Creator':30(57333)T-47#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBPaymentJournal,CBReceiptJournal,AccTransJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "CREATOR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-81'DR':30(57334)T-81#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,SubLedgeReport,GLReport":U
       tReportStrings.tcStringCode = "DR1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-82'CR':30(57335)T-82#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,SubLedgeReport,GLReport":U
       tReportStrings.tcStringCode = "CR1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Item':30(57336)T-50#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "VATPayableLedger":U
       tReportStrings.tcStringCode = "VATPayableLedgerItem":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Line No':30(57337)T-51#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "VATPayableLedger":U
       tReportStrings.tcStringCode = "VATPayableLedgerLineNum":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Curr Month Data':30(57338)T-52#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "VATPayableLedger":U
       tReportStrings.tcStringCode = "VATPayableLedgerCurMonthData":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-53'Curr Year Data':30(57339)T-53#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "VATPayableLedger":U
       tReportStrings.tcStringCode = "VATPayableLedgerCurYearData":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-54'Supplier Account':40(57340)T-54#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccTransJournal":U
       tReportStrings.tcStringCode = "CREDITORACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-55'Customer Account':40(57341)T-55#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccTransJournal":U
       tReportStrings.tcStringCode = "DEBTORACC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Total':40(57342)T-56#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AccTransJournal,ForeignCurrJournal,GeneralGLJournal":U
       tReportStrings.tcStringCode = "TOTALSUM":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-57'Replaced':40(59077)T-57#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport":U
       tReportStrings.tcStringCode = "REPLACED":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-58'Reversed':40(59078)T-58#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport":U
       tReportStrings.tcStringCode = "REVERSED":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-60'Posting Date':40(59080)T-60#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport,GLVerifandAppr":U
       tReportStrings.tcStringCode = "POSTINGDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-61'GL Account':50(55549)T-61#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport":U
       tReportStrings.tcStringCode = "GLACCOUNT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Sub-Account':40(4285)T-62#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport":U
       tReportStrings.tcStringCode = "SUBACCOUNT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-63'Description':40(59084)T-63#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "CBGLReport,GLReport,SubLedgeReport,ReversedReplacedGLReport,GLVerifandAppr":U
       tReportStrings.tcStringCode = "DESCRIPTION":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-80'Daybook:':40(59085)T-80#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport,GLVerifandAppr":U
       tReportStrings.tcStringCode = "DAYBOOK":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-64'BC Debit':20(1045)T-64#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport":U
       tReportStrings.tcStringCode = "BCDEBIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-65'BC Credit':20(1042)T-65#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ReversedReplacedGLReport":U
       tReportStrings.tcStringCode = "BCCREDIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-66'Customer Code':40(57524)T-66#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "CUSTOMERCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-67'Customer Name':40(57525)T-67#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "CUSTOMERNAME":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-68'Curr':10(1003)T-68#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "CURRENCY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-69'Open Balance':40(57527)T-69#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "OPENBALANCE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-70'Credit Terms':40(57528)T-70#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "CREDITTERMS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-71'Credit Limit':40(57529)T-71#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "CREDITLIMIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-72'High Credit':40(63666)T-72#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "HIGHCREDIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-73'High Credit Date':40(63667)T-73#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "HIGHCREDITDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-74'Last Payment':40(57532)T-74#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "LASTPAYMENT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-75'Last Sale':40(57533)T-75#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "LASTSALE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-76'Credit Rating':40(57534)T-76#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "CREDITRATING":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-77'B':1(64883)T-77#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "BLOCKED":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-78'R':1(4094)T-78#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "HIGHESTREMINDERLEVEL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-79'F':1(64882)T-79#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "CustomerCreditOverview":U
       tReportStrings.tcStringCode = "FINCHARGECALCULATION":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-83'Previous Page':40(59311)T-83#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGEBEF":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-84'Previous Page':40(59311)T-84#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGEBEF1":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-85'Previous Page':40(59311)T-85#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGEBEF2":U.
       

create tReportStrings.
assign tReportStrings.tcStringText = #T-86'Previous Page':40(59311)T-86#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGEBEF3":U.  

create tReportStrings.
assign tReportStrings.tcStringText = #T-87'Next Page':40(59312)T-87#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGENEXT":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-88'Next Page':40(59312)T-88#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGENEXT1":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-89'Next Page':40(59312)T-89#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers,CBGLReport,GLReport,SubLedgeReport":U
       tReportStrings.tcStringCode = "PAGENEXT2":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-90'ApproveStatus':40(59417)T-90#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "APPROVESTATUS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-101'ApprovedDate':40(59496)T-101#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "APPROVEDDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-102'VerifyStatus':40(59497)T-102#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "VERIFYSTATUS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-100'VerifiedDate':40(59495)T-100#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "VERIFIEDDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-134'Creation Date':40(63747)t-134#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "CREATIONDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-91'Created by':40(59410)T-91#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "CREATEDBY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-92'Verified by':40(59409)T-92#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "VERIFIEDBY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-93'Approved by':40(59411)T-93#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "APPROVEDBY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-96'Voucher Number':20(59414)T-96#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "VOUCHERNUM":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-97'Reference':20(59415)T-97#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "REFERENCE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-98'GL Code':20(59416)T-98#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "GLCODE1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-99'Currency':40(57526)T-99#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "CURRENCY1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-103'GL Calendar Year:':40(59500)t-103#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLVerifandAppr":U
       tReportStrings.tcStringCode = "ACCYEAR1":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-106'Monthly Total':30(59533)t-106#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ColumnarLedgers":U
       tReportStrings.tcStringCode = "MONTHLYTOT":U.

/* Employee Master Card */
create tReportStrings.
assign tReportStrings.tcStringText = #T-112'Employee Code':30(59700)T-112#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEECODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-113'Name':30(59701)T-113#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEENAME":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-114'Active':30(59702)T-114#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEACT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-115'Job Title':30(59703)T-115#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEJOBTITLE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-116'Department':30(59704)T-116#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEDEPARTMENT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-117'Project Code':30(59705)T-117#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEPROJECTCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-118'External Employee':30(59706)T-118#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EXTERNALEMPLOYEE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-119'Supplier':30(59707)T-119#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEESUPPLIER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-120'Currency':30(59708)T-120#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEECURRENCY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-121'User':30(59709)T-121#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEUSER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-122'User Name':30(59710)T-122#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEUSERNAME":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-123'Start Date':30(59711)T-123#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEESTARTDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-124'End Date':30(59712)T-124#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPLOYEEENDDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-125'Business Relation Code':30(59713)T-125#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "BRCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-126'Name':30(59714)T-126#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "BRNAME":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-127'Address':30(59715)T-127#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "BRADDRESS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-128'Zip Code/City':30(59716)t-128#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "BRZIPCODECITY":U.