project QadFinancials > class TReportStrings > method Main5B

Description

Extend the main method


Parameters


ihTranslationHandleinputhandle
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method TReportStrings.Main


program code (program1/treportstrings.p)

create tReportStrings. 
assign tReportStrings.tcStringText = #T-1'Balance BC':50(65143)T-1#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorCIREC":U
       tReportStrings.tcStringCode = "BALANCEBC":U.
       
create tReportStrings. 
assign tReportStrings.tcStringText = #T-2'Balance TC':50(65144)T-2#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorCIREC":U
       tReportStrings.tcStringCode = "BALANCETC":U.

create tReportStrings. 
assign tReportStrings.tcStringText =  #T-3'Tax':255(65510)T-3#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "TAX":U.
 
create tReportStrings. 
assign tReportStrings.tcStringText =  #T-5'Description':40(59084)T-5#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint,DebtorAACGroup,DebtorAABGroup":U
       tReportStrings.tcStringCode = "DESC":U.
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-6'Posting Date':255(57328)T-6#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountMovements":U
       tReportStrings.tcStringCode = "PostingDt":U.
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-7'Invoice Date':30(63607)T-7#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountMovements":U
       tReportStrings.tcStringCode = "InvoiceDt":U.

create tReportStrings.       
assign tReportStrings.tcStringText = #T-8'Open Item (TC)':50(65203)T-8#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAABGroup":U
       tReportStrings.tcStringCode = "OpenItemTC":U.

create tReportStrings.       
assign tReportStrings.tcStringText = #T-9'Open Item (BC)':50(65204)T-9#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAABGroup":U
       tReportStrings.tcStringCode = "OpenItemBC":U.

create tReportStrings.       
assign tReportStrings.tcStringText = #T-10'Open Item (CC)':50(65205)T-10#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAABGroup":U
       tReportStrings.tcStringCode = "OpenItemCC":U.
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-11'Daybook':40(4294)T-11#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAACGroup":U
       tReportStrings.tcStringCode = "DYBK":U.

create tReportStrings.       
assign tReportStrings.tcStringText = #T-12'Invoice Date':30(63607)T-12#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountMovements":U
       tReportStrings.tcStringCode = "INVOICEDATE":U.

create tReportStrings.       
assign tReportStrings.tcStringText = #T-13'Due Date':100(948)T-13#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountMovements":U
       tReportStrings.tcStringCode = "DUEDATE":U.
       
create tReportStrings.       
assign tReportStrings.tcStringText = #T-14'GL Account':15(14940)T-14#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "UnmatchedReceipt":U
       tReportStrings.tcStringCode = "GLACCT1":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-15'L':1(65217)T-15#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup":U
       tReportStrings.tcStringCode = "L":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-16'D':1(65218)T-16#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup":U
       tReportStrings.tcStringCode = "D":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-17'Supplier total':25(65219)T-17#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup":U
       tReportStrings.tcStringCode = "TOTSUP":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-18'Date':20(46952)T-18#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "prhrcpdate":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-19'Receipt Supplier Code':25(65365)T-19#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "prhvend":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-20'Item Code':100(62)T-20#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "prhpart":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-21'PO Number':25(65367)T-21#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "prhnbr":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-22'Reporting Period':20(806)T-22#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "ReverseCharge":U
       tReportStrings.tcStringCode = "REPORTPERIOD":U.

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

create tReportStrings.
assign tReportStrings.tcStringText = #T-24'Batch Number':100(49813)T-24#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational":U
       tReportStrings.tcStringCode = "BatchNumber":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Payment':50(4189)T-25#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational":U
       tReportStrings.tcStringCode = "Document":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-26'Payment Type':16(35418)T-26#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational,GLAccountSheet":U
       tReportStrings.tcStringCode = "DocumentType":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-27'Transaction Type':40(4297)T-27#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational":U
       tReportStrings.tcStringCode = "TransType":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Address Code':100(65416)T-28#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLTransactionsOperational":U
       tReportStrings.tcStringCode = "AddressCode":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-29'L: * = Locked for payment applies':50(65435)T-29#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingAnalysisCurrent,CreditorAACGroup":U
       tReportStrings.tcStringCode = "LOCKEDPAY":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Matching Posting':40(65357)T-31#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "MatchingVariance":U
       tReportStrings.tcStringCode = "MATCHPOSTING":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Receipt Daybook/Voucher':40(68624)T-32#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "RECEIPTDAYBOOKVOUCHER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-70'Cost Center/Project':40(68638)T-70#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "COSTCENTERPROJECT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Non-Taxable:':20(65528)T-40#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "DIPNONTAXABLE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Taxable:':15(65529)T-41#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "DIPTAXABLE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Tax Date:':20(65530)T-42#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "DIPTAXDATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Line Total:':20(65531)T-44#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "DIPLINETOTAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Total Tax:':20(65532)T-46#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "DIPTOTALTAX":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-49'Total:':20(65536)T-49#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorInvoicePrint":U
       tReportStrings.tcStringCode = "DIPTOTAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Account':40(4513)T-50#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "GLAccountSheetAccount":U.                                                  

create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Supplier / Customer Code':30(65692)T-51#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "SupplierCustomerCode":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Tax Class':30(59728)T-52#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "GLAccountSheetTaxClass":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-53'TC Amount':40(3949)T-53#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "PostingLineAmount":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-54'Curr':10(1003)T-54#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "GLAccountSheetCur":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-55'Opening Balance BC':24(495396619)T-55#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "OpeningBalance":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-82'Total For Period BC':255(391692573)T-82#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "GLAccountSheetSubTotal":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Cumulative Total BC':255(76336936)T-48#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "CumulativeTotal":U.     
         
create tReportStrings.
assign tReportStrings.tcStringText = #T-58'Closing Balance BC':20(330373949)T-58#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLAccountSheet":U
       tReportStrings.tcStringCode = "ClosingBalance":U.

       
/*Customer/Supplier Draft Print*/

create tReportStrings.
assign tReportStrings.tcStringText = #T-59'Name:':20(68395)T-59#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyName":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-60'Address:':20(68396)T-60#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyStreet":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-61'Zip-City:':20(68397)T-61#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyZipCity":U.    

create tReportStrings.
assign tReportStrings.tcStringText = #T-62'County:':20(68398)T-62#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyCounty":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-63'Country:':20(68399)T-63#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyCountry":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-64'Name:':20(68395)T-64#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyBankName":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-65'Address:':20(68396)T-65#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyBankStreet":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-66'Zip-City:':20(68397)T-66#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyBankZipCity":U.    

create tReportStrings.
assign tReportStrings.tcStringText = #T-67'County:':20(68398)T-67#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyBankCounty":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-68'Country:':20(68399)T-68#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyBankCountry":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-69'Bank Number Form:':20(68400)T-69#
       tReportStrings.tcClassName  = "BDDocumentReport,BCDocumentReport":U
       tReportStrings.tcStringCode = "DocumentCompanyBankNumberForm":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-71'Receipt Number':50(68820)T-71#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "RECEIPTNUMBER":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-72'There are no matched invoices for this selection.':100(69628)T-72#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "NOMATCHINVOICE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-95'There are no unmatched invoices for this selection.':100(69629)T-95#
       tReportStrings.tcClassName  = "BAPMatchingReport":U
       tReportStrings.tcReportName = "InvoiceMatching":U
       tReportStrings.tcStringCode = "NOUNMATCHINVOICE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-73'Tax Group Code:':100(69389)T-73#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "TAXGROUPCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-74'Tax Group Description:':100(69388)T-74#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "TAXGROUPDESC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-75'Daybook Code:':20(69387)T-75#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "DAYBOOKCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-76'Description:':40(69671)T-76#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "DAYBOOKDESC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-77'Voucher':30(1866)T-77#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "DAYBOOKVOUCHER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-78'Posting Line Description':100(69305)T-78#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "POSTINGDESC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-79'Open Item Posting Reference':100(69306)T-79#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "POSTINGREF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-80'Original Balance DR':100(69307)T-80#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "ORGBALDR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-81'Original Balance CR':100(69308)T-81#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "ORGBALCR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-83'Movement DR':20(69315)T-83#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "MOVDR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-86'Movement CR':255(69316)T-86#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "MOVCR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-88'Tax Amount DR':100(69317)T-88#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "TAXAMTDR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-90'Tax Amount CR':100(69318)T-90#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "TAXAMTCR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-92'Payment Reference':50(69319)T-92#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "DelayedTax":U
       tReportStrings.tcStringCode = "PAYMENTREF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-98'COA Element Type & Code':50(70243)T-98#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "BalanceSheetReport,incomestatement,MultiColBalanceSheet,MultiColIncomeStatement":U
       tReportStrings.tcStringCode = "FDSELETYPECODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-93'Ordering Party':50(69320)T-93#
       tReportStrings.tcClassName  = "BCDocumentReport":U
       tReportStrings.tcReportName = "CDocumentReportTransfer":U
       tReportStrings.tcStringCode = "ORDERPARTY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-94'Beneficiary Party':50(69321)T-94#
       tReportStrings.tcClassName  = "BCDocumentReport":U
       tReportStrings.tcReportName = "CDocumentReportTransfer":U
       tReportStrings.tcStringCode = "BENEFPARTY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-96'Rounding Difference':25(69717)T-96#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "BalanceSheetReport,incomestatement,MultiColBalanceSheet,MultiColIncomeStatement":U
       tReportStrings.tcStringCode = "ROUNDINGDIFFERENCE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-97'No rounding difference exists.':50(69718)T-97#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "BalanceSheetReport,incomestatement,MultiColBalanceSheet,MultiColIncomeStatement":U
       tReportStrings.tcStringCode = "NoDifferenceExist":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-100'Detail Information':255(71146)T-100#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATQuarterSum":U
       tReportStrings.tcStringCode = "DETAILINFO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-101'Period Total':255(71279)T-101#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcStringCode = "PERIODTOTAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-104'Ending Balance':20(56764)T-104#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcStringCode = "ENDBLNC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-107'Grand Total of Period Total':255(999890074)T-107#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcStringCode = "GTOPT":U.

/* Chinese Balance Sheet and income Statement */
create tReportStrings.
assign tReportStrings.tcStringText = #T-110'Name of enterprise:':255(825540176)T-110#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseBalanceSheet,ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "NAMEENT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-111'Monetary Unit:':255(584011649)T-111#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseBalanceSheet,ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "MONEYUNIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-113'To':25(3987)T-113#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "CHNISTO":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-114'Owner':255(733708750)T-114#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseBalanceSheet,ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "UNITPRIN":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-115'Accounting Supervisor':255(73428770)T-115#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseBalanceSheet,ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "ACCDIR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-116'Creator':30(57333)T-116#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseBalanceSheet,ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "TABULATOR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-117'Form AF-01':255(332088423)T-117#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseBalanceSheet":U
       tReportStrings.tcStringCode = "FORMAFONE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-118'Form AF-02':255(227670907)T-118#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "ChineseIncomeStatement":U
       tReportStrings.tcStringCode = "FORMAFTWO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-119'and':255(733780955)T-119#
       tReportStrings.tcClassName  = "BCDocumentReport":U
       tReportStrings.tcReportName = "CDocumentReportCheque":U
       tReportStrings.tcStringCode = "AND":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-120'Invoice #':20(825507408)T-120#
       tReportStrings.tcClassName  = "BVatReport":U
       tReportStrings.tcReportName = "ITARVATReg":U
       tReportStrings.tcStringCode = "DINVOICENUMBER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-121'Page:':20(591243538)T-121#
       tReportStrings.tcClassName  = "BVatReport":U
       tReportStrings.tcReportName = "ITARVATReg":U
       tReportStrings.tcStringCode = "PAGENUMBER":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-123'Difference Found':255(733704315)T-123#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CreditorControlGLBalance,DebtorControlGLBalance":U
       tReportStrings.tcStringCode = "DifferenceFound":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-125'No Difference Found':255(73424520)T-125#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CreditorControlGLBalance,DebtorControlGLBalance":U
       tReportStrings.tcStringCode = "DifferenceNotFound":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-127'GL Amount':255(413916853)T-127#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CreditorControlGLBalance,DebtorControlGLBalance":U
       tReportStrings.tcStringCode = "GLAmount":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-129'AP Amount':255(591239870)T-129#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CreditorControlGLBalance,DebtorControlGLBalance":U
       tReportStrings.tcStringCode = "APAmount":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-131'AR Amount':255(733703476)T-131#
       tReportStrings.tcClassName  = "BClosingPostingsReport":U
       tReportStrings.tcReportName = "CreditorControlGLBalance,DebtorControlGLBalance":U
       tReportStrings.tcStringCode = "ARAmount":U.