method Main0B

Description

extension of the Main method
Parameters

ihTranslationHandle	input	handle
oiReturnStatus	output	integer	Return 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'Summary by GL Account':50(4057)T-1#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "RECGL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Summary by Purchase Code':50(4058)T-2#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcStringCode = "RECPUR":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-3'Summary by Purchase Code':50(4058)T-3#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAACGroup,DebtorAABGroup":U
       tReportStrings.tcStringCode = "RECPUR":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Summary by Sales Code':50(4059)T-4#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAACGroup,CreditorAABGroup,CreditorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "RECSAL":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'Summary by Cost Center':50(15439)T-5#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "RECSAL":U.
              

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Summary by Sub-Account':50(4060)T-6#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcStringCode = "RECDIV":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'Summary by Sub-Account':50(4060)T-7#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "RECDIV":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-72'Summary by Payment Group':255(125230433)T-72#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcStringCode = "RECPG":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-94'Summary by Payment Group':255(125230433)T-94#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "RECPG":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-71'Summary by Salesperson':50(4061)T-71#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "RECSPS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Summary by Cost Center':50(15439)T-50#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountsSummary":U
       tReportStrings.tcStringCode = "RECCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Summary by Cost Center':50(15439)T-51#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountsSummary":U
       tReportStrings.tcStringCode = "RECCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Summary by Daybook':50(15440)T-52#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountsSummary":U
       tReportStrings.tcStringCode = "RECJOU":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-53'Summary by Daybook':50(15440)T-53#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountsSummary":U
       tReportStrings.tcStringCode = "RECJOU":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-54'Summary by Project':50(15441)T-54#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountsSummary":U
       tReportStrings.tcStringCode = "RECPRO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-55'Summary by Project':50(15441)T-55#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountsSummary":U
       tReportStrings.tcStringCode = "RECPRO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Summary by Salesperson':50(4061)T-8#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail,CreditorPrepayments,CreditorAACGroup,CreditorAABGroup,CreditorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "RECSPER":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Summary by Customer Type':50(733780344)T-9#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAccountsSummary,DebtorOpenItems,DebtorPrepayments,DebtorAgeingAnalysisCurrent,DebtorAgeingAnalysisBackwards,DebtorAACGroup,DebtorAABGroup":U
       tReportStrings.tcStringCode = "RECSPER":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Dear Sirs':20(16017)T-56#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "DEARSIRS":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-57'Unfortunately, it appears that one or more of your invoices has not been settled within the GL period indicated on the respective invoices.':255(16019)t-57#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINTXT1":U.               
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-58'For the second time, it appears that one or more of your invoices has not been settled within the GL period indicated on the respective invoices.':255(16020)t-58#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINTXT2":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-59'For the third time, it appears that one or more of your invoices has not been settled within the GL period indicated on the respective invoices.':255(16021)t-59#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINTXT3":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-60'Unless you have credited us after the specified date.':255(16023)t-60#                     
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINTXT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-61'Reminder #1':20(16027)T-61#      
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINMB1":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Reminder #2':20(16028)T-62#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINMB2":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-63'Final Reminder':20(16029)T-63#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "REMINMB3":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'Date':50(4062)t-10#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "DATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Invoice Amt':50(4063)T-11#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "INVAM":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Open Balance':50(4064)t-12#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders,DebtorAccountState":U
       tReportStrings.tcStringCode = "OPBAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-13'Overdue Amount by Currency':50(4065)T-13#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountState":U
       tReportStrings.tcStringCode = "OVAMBYC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-75'Overdue Amount by Currency(Deductions Excluded)':50(647725411)T-75#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders":U
       tReportStrings.tcStringCode = "OVAMBYC":U.

create tReportStrings.
assign tReportStrings.tcStringText = {&INVOICEDEDUCTSTATUS-REJECTED-TR}
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders":U
       tReportStrings.tcStringCode = "DEDREJECTED":U.

create tReportStrings.
assign tReportStrings.tcStringText = {&INVOICEDEDUCTSTATUS-PENDING-TR}
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders":U
       tReportStrings.tcStringCode = "DEDPENDING":U.

create tReportStrings.
assign tReportStrings.tcStringText = {&INVOICEDEDUCTSTATUS-APPROVEDCREDIT-TR}
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders":U
       tReportStrings.tcStringCode = "DEDAPPCREDIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = trim(#T-76'Written-Off/Credited':30(167448326)T-76#)
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorReminders":U
       tReportStrings.tcStringCode = "DEDWRITEOFFCREDIT":U.


create tReportStrings.
assign tReportStrings.tcStringText = #T-14'There are no supplier open items by purchase code available.':100(4066)t-14#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "NCOABPA":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-15'There are no supplier open items by sub-account code available.':100(4067)t-15#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "NCOABDA":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-16'Statutory Currency':100(4068)t-16#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountsHistory,CreditorAccountsSummary":U
       tReportStrings.tcStringCode = "CONCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-17'Statutory Currency':100(4068)t-17#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountsHistory,DebtorAccountsSummary":U
       tReportStrings.tcStringCode = "CONCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-18'Balance before':40(4069)t-18#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountsSummary":U
       tReportStrings.tcStringCode = "BALBEF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-19'Balance before':100(4070)t-19#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountsSummary":U
       tReportStrings.tcStringCode = "BALBEF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-20'Period Last Sel Year/GL Pd':100(4071)T-20#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAccountsSummary":U
       tReportStrings.tcStringCode = "PERLSYP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-21'Period Last Sel Year/GL Pd':100(4071)T-21#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountsSummary":U
       tReportStrings.tcStringCode = "PERLSYP":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-22'Unallocated':15(4072)t-22#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorPrepayments":U
       tReportStrings.tcStringCode = "UNALLOC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-23'Allocated':15(4073)T-23#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorPrepayments":U
       tReportStrings.tcStringCode = "ALLOC":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-24'Unallocated':15(4072)t-24#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorPrepayments":U
       tReportStrings.tcStringCode = "UNALLOC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Allocated':15(4073)T-25#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorPrepayments":U
       tReportStrings.tcStringCode = "ALLOC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-26'Purchase Reference':25(4074)t-26#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorCirec":U
       tReportStrings.tcStringCode = "PURREF":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-27'Append to':20(4075)t-27#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorCirec":U
       tReportStrings.tcStringCode = "APPTO":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Invoice Amt':25(4076)T-28#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorCirec":U
       tReportStrings.tcStringCode = "INVAM":U.            
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Invoice':20(4077)t-29#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorCirec":U
       tReportStrings.tcStringCode = "INVOICE":U. 

/*PreInvoice*/       
create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Invoice To':15(4078)t-30#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "INVTO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Delivery To':15(4079)t-31#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "DEVTO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Invoice Number':15(4080)t-32#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "INVNUM":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Base':15(4081)t-33#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "BASE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Tax Amount':20(4082)T-34#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "VATAMNT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Total before Tax':20(4083)T-35#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "TOTBVAT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Invoice Total':20(4084)t-36#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "INVTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Total Tax':20(4085)T-37#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "VATTOT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Credit Terms':20(4086)T-38#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "PAYCOND":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Staged Credit Terms':30(4087)T-39#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "STPAYCOND":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Percentage':30(4088)t-40#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "PERC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Amount':15(4089)t-41#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "AMNT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Expiry Date':15(4090)t-42#
       tReportStrings.tcClassName  = "BPreInvoiceReport":U
       tReportStrings.tcReportName = "DebtorPreInvoice":U
       tReportStrings.tcStringCode = "EXPDAT":U.

/* Debtors */

create tReportStrings.
assign tReportStrings.tcStringText = #T-43'There are no customer open items by sub-account.':100(4091)t-43#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems":U
       tReportStrings.tcStringCode = "NDOABDA":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-44'There are no customer open items by sales code.':100(4092)t-44#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems":U
       tReportStrings.tcStringCode = "NDOABPA":U.

/* Creditor Open Items */

create tReportStrings.
assign tReportStrings.tcStringText = #T-45'S':1(4093)t-45#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "S":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-46'R':1(4094)t-46#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAABGroup,DebtorAACGroup":U
       tReportStrings.tcStringCode = "R":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-47'R':1(4094)t-47#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAACGroup,CreditorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "R":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Open Item':20(69622)T-48#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport,BProjectReport,BRevaluationReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAABGroup,DebtorAACGroup,CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup,CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj,Revaluation":U
       tReportStrings.tcStringCode = "OPENIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-70'Exchange Rate':40(66379)T-70#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain":U
       tReportStrings.tcStringCode = "EXRATE":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-77'Exchange Rate Type':40(4332)T-77#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain":U
       tReportStrings.tcStringCode = "EXRTTY":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-775'To Curr':10(36727)T-775#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain":U
       tReportStrings.tcStringCode = "TOCURR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-64'Open Amount':20(69621)T-64#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport,BProjectReport,BRevaluationReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAABGroup,DebtorAACGroup,CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup,CreditorAgeingAnalysisByProj,DebtorAgeingAnalysisByProj,Revaluation":U
       tReportStrings.tcStringCode = "OPENAMT":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-95'Bill':0(805907188)T-95#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorBillingAAB":U
       tReportStrings.tcStringCode = "BILL":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-151'Other Open Items':255(918868872)T-151#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorBillingAAB":U
       tReportStrings.tcStringCode = "NONBIllOI":U.