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