project QadFinancials > class TReportStrings > method Main0

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

/* Advisory to put these strings to tcStandard */
create tReportStrings.
assign tReportStrings.tcStringText = #T-1'of':5(4017)t-1#
       tReportStrings.tcStringCode = "0-OF":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Yes':5(4018)t-2#
       tReportStrings.tcStringCode = "0-YES":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'No':5(4019)t-3#
       tReportStrings.tcStringCode = "0-NO":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-4'DR':2(4525)T-4#
       tReportStrings.tcStringCode = "0-D":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'CR':2(4524)T-5#
       tReportStrings.tcStringCode = "0-C":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Grand Total':20(4022)t-6#
       tReportStrings.tcStringCode = "0-GRANDTOTAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-53'Summary':100(17038)T-53#
       tReportStrings.tcStringCode = "0-SUMMARY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-7'Voucher':10(4023)t-7#
       tReportStrings.tcStringCode = "0-VOUCHER":U.
       

create tReportStrings.         
assign tReportStrings.tcStringText = #T-8'Total by':20(4024)t-8#
       tReportStrings.tcStringCode = "0-TOTALBY":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-94'Date:':20(830590616)T-94#
       tReportStrings.tcStringCode = "0-DATE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Time:':20(48508312)T-56#
       tReportStrings.tcStringCode = "0-TIME":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-64'Currency:':10(65560)T-64#
       tReportStrings.tcStringCode = "0-CURRENCY":U.
/* is defined in qadfc 
create tReportStrings.         
assign tReportStrings.tcStringText = #T-55'Total':255(63929)T-55#
       tReportStrings.tcStringCode = "0-TOTAL":U.   
*/


create tReportStrings.         
assign tReportStrings.tcStringText = #T-9'Total for':20(4025)t-9#
       tReportStrings.tcStringCode = "0-TOTALFOR":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'GL Pd':5(4026)T-10#
       tReportStrings.tcStringCode = "0-PD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Year':4(4027)t-11#
       tReportStrings.tcStringCode = "0-YEAR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-12'GL Period':9(6846)T-12#
       tReportStrings.tcStringCode = "0-PERIOD":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-13'TC':3(4029)t-13#
       tReportStrings.tcStringCode = "0-TC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-14'BC':3(4030)T-14#
       tReportStrings.tcStringCode = "0-LC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-15'CC':3(4031)t-15#
       tReportStrings.tcStringCode = "0-CC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-60'SC':12(999890724)T-60#
       tReportStrings.tcStringCode = "0-SC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-16'tc':3(4032)t-16#
       tReportStrings.tcStringCode = "0-LTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-17'BC':3(4033)T-17#
       tReportStrings.tcStringCode = "0-LLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-18'SC':12(999890724)T-18#
       tReportStrings.tcStringCode = "0-LCC":U.   

/* Specifics */
create tReportStrings.
assign tReportStrings.tcStringText = #T-19'BC Debit':15(4035)T-19#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "DLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-20'SC Debit':20(999890722)T-20#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "DCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-21'tc Debit':15(4037)t-21#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "DTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-22'BC Credit':15(4038)T-22#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "CLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-23'SC Credit':20(999890723)T-23#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "CCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-24'tc Credit':15(4040)t-24#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "CTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-25'SC Balance':15(4041)T-25#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "BCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-26'BC Balance':15(4042)T-26#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "BLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-27'tc Balance':15(4043)t-27#
       tReportStrings.tcClassName  = "BAnalyticalReport,BGLReport,BDebtorReport,BCreditorReport":U       
       tReportStrings.tcStringCode = "BTC":U.

/*************************************/
/* Creditor - Debtor report specific */

create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Phone':10(4044)T-28#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BPaymentSelection":U       
       tReportStrings.tcStringCode = "TEL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Contact':20(4045)t-29#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "CONTACT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Fax':10(4046)t-30#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BPaymentSelection":U
       tReportStrings.tcStringCode = "FAX":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Email':10(59475)T-51#
       tReportStrings.tcClassName  = "BCreditorRepot,BDebtorReport,BPaymentSelection":U
       tReportStrings.tcStringCode = "EMAIL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Entity Code':20(59530)T-52#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BPaymentSelection":U
       tReportStrings.tcStringCode = "ENTCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Debit':20(2295)t-31#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BGLReport,BAnalyticalReport":U
       tReportStrings.tcStringCode = "DEBIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Credit':20(2296)t-32#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BGLReport,BAnalyticalReport":U
       tReportStrings.tcStringCode = "CREDIT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Balance':15(13162)T-33#
       tReportStrings.tcClassName  = "BCreditorReport,BGLReport,BDebtorReport,BAnalyticalReport":U
       tReportStrings.tcStringCode = "BLNC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Base Currency':100(2309)T-34#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,DebtorAACGroup,DebtorAABGroup,DebtorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "LOCCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Transaction Currency':50(64872)T-35#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,DebtorAACGroup,DebtorAABGroup,DebtorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "TRANCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText =  #T-62'Statutory Currency':100(4068)T-62#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,DebtorAACGroup,DebtorAABGroup,DebtorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "STATCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Opening Balance':100(4048)t-36#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BAnalyticalReport,BGLReport":U
       tReportStrings.tcStringCode = "OPENBAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Total Activity':100(4049)T-37#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "TOTALMVMNT":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Total Balance':100(4050)t-38#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport":U
       tReportStrings.tcStringCode = "TOTALBAL":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Closing Balance':100(4051)t-39#
       tReportStrings.tcClassName  = "BCreditorReport,BDebtorReport,BAnalyticalReport,BGLReport":U
       tReportStrings.tcStringCode = "CLOSEBAL":U.

/***************************/
/* Report Specific strings */

/* Creditor account movements */

create tReportStrings.
assign tReportStrings.tcStringText = #T-58'Transaction Currency':50(64872)T-58#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAccountMovements":U 
       tReportStrings.tcStringCode = "TRANSCUR":U.



create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Days Overdue':20(64368)T-40#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAACGroup,CreditorAABGroup":U 
       tReportStrings.tcStringCode = "DDUE":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-87'Days':40(1545)T-87#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAACGroup,CreditorAABGroup":U
       tReportStrings.tcStringCode = "DAYSTEXT":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Days Overdue':20(64368)T-41#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAABGroup":U 
       tReportStrings.tcStringCode = "DDUE":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-72'Days':40(1545)T-72#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAABGroup":U
       tReportStrings.tcStringCode = "DAYSTEXT":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Months Overdue':20(64369)T-42#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAACGroup,CreditorAABGroup":U 
       tReportStrings.tcStringCode = "MDUE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Months Overdue':20(64369)T-43#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAACGroup,DebtorAABGroup":U 
       tReportStrings.tcStringCode = "MDUE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Within Terms':30(4054)t-44#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards,CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup":U 
       tReportStrings.tcStringCode = "WTRMS":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Within Terms':30(4054)t-45#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAgeingAnalysisCurrent,DebtorAABGroup,DebtorAACGroup":U 
       tReportStrings.tcStringCode = "WTRMS":U.

/* Creditor ageing analysis backwards */ 

create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Can Pay':20(4055)t-46#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorAgeingABackwards":U
       tReportStrings.tcStringCode = "CPAY":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Can Pay':20(4055)t-47#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards":U
       tReportStrings.tcStringCode = "CPAY":U.
       
create tReportStrings.
assign tReportStrings.tcStringText =#T-77'Transaction Summary by Customer':40(38200298)T-77#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAACGroup,DebtorAABGroup,DebtorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "TRANSSUMBYCUST":U.
       
create tReportStrings.
assign tReportStrings.tcStringText =#T-98'Customer Totals Only':30(1745)T-98#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorAgingHistAcroDomain,DebtorBillingAAB,DebtorAgeingAnalysisBackwards,DebtorAACGroup,DebtorAABGroup,DebtorAgeingAnalysisCurrent":U
       tReportStrings.tcStringCode = "CUSTTOTONLY":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Summary by Currency':50(4056)t-48#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcStringCode = "RECCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-49'Summary by Currency':50(4056)t-49#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcStringCode = "RECCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Summary by GL Account':50(4057)T-50#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcStringCode = "RECGL":U.