project QadFinancials > class TReportStrings > method Main3B

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-1'Monday':18(3976)t-1#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "MO":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Tuesday':18(3977)t-2#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "TU":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'Wednesday':18(3978)t-3#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "WE":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Thursday':18(3979)t-4#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "TH":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-5'Friday':18(3980)t-5#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "FR":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Saturday':18(3981)t-6#
       tReportStrings.tcClassName  = "BActivityReport":U
       tReportStrings.tcReportName = "Regulations":U
       tReportStrings.tcStringCode = "SA":U. 


create tReportStrings.
assign tReportStrings.tcStringText = #T-7'Invoice':18(3982)t-7#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PaymentSelections,PayList":U
       tReportStrings.tcStringCode = "INVOICE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-90'Net Amount':25(14451)T-90#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PaymentSelections,PayList":U
       tReportStrings.tcStringCode = "PaySelLineAmountNet":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-92'TC Allocated Amount':255(71092)T-92#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PaymentSelections,PayList":U
       tReportStrings.tcStringCode = "PaySelLineAmountTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Summary By Currency':25(3984)t-9#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PayList":U
       tReportStrings.tcStringCode = "SUMBYCUR":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-10'Draft':25(3985)t-10#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "PayList,Remittance":U
       tReportStrings.tcStringCode = "DRAFT":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-86'From':25(3986)T-86#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "Remittance":U
       tReportStrings.tcStringCode = "FROM":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-87'To':25(3987)T-87#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "Remittance":U
       tReportStrings.tcStringCode = "TO":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-88'Summary By Currency':25(65178)T-88#
       tReportStrings.tcClassName  = "BPaymentSelectionReport":U
       tReportStrings.tcReportName = "Remittance":U
       tReportStrings.tcStringCode = "SUMBYCUR":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-16'tc Orig Balance':15(3991)t-16#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "OBALTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-17'SC Orig Balance':15(3992)T-17#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "OBALCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-18'BC Orig Balance':15(3993)T-18#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "OBALLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-19'tc Orig Balance':15(3991)t-19#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorOpenItemsQuick,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "OBALTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-20'SC Orig Balance':15(3992)T-20#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorOpenItemsQuick,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "OBALCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-21'BC Orig Balance':15(3993)T-21#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorOpenItemsQuick,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "OBALLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-22'TC Current Balance':18(64092)T-22#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "CBALTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-23'SC Current Balance':18(64089)T-23#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "CBALCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-24'BC Current Balance':18(64091)T-24#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "CBALLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-25'TC Current Balance':18(64092)T-25#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorOpenItemsQuick,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "CBALTC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-26'SC Current Balance':18(64089)T-26#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorOpenItemsQuick,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "CBALCC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-27'BC Current Balance':18(64091)T-27#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorOpenItemsQuick,DebtorRemindersOverview":U
       tReportStrings.tcStringCode = "CBALLC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-28'Current':30(3997)t-28#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "TOTCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Current':30(3997)t-29#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems":U
       tReportStrings.tcStringCode = "TOTCUR":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-30'Original':30(3998)t-30#
       tReportStrings.tcClassName  = "BCreditorReport":U
       tReportStrings.tcReportName = "CreditorOpenItems,CreditorPrepayments,CreditorOpenItemsDetail":U
       tReportStrings.tcStringCode = "TOTORIG":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-31'Original':30(3998)t-31#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorOpenItems,DebtorPrepayments":U
       tReportStrings.tcStringCode = "TOTORIG":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-32'Receipt':30(3999)t-32#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "RECEIPT":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Supplier':30(4000)T-33#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "SUPLIER":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-34'PO Ref':30(4001)t-34#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "POREF":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Invoices':30(4002)t-35#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "INVCS":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-84'Details':15(14261)T-84#      
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "DETAILS":U.              

create tReportStrings.
assign tReportStrings.tcStringText = #T-85'Purchase Orders':20(14262)T-85#      
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "PONMB":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Credit Notes':30(4003)t-36#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "CNTS":U.              
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Receipts':30(4004)t-37#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "RCPTS":U.              
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-38'Returns':30(4005)t-38#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "RTRNS":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Summary by Type':30(4006)t-39#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "TYPESUM":U.         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-40'tc Unmatched Amount':30(4007)t-40#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "UNMATCHAMTC":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-41'tc Unallocated Amount':30(4008)t-41#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "UNALLOCAMTC":U.             
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Unmatched QTY':30(4009)t-42#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "UNMATCHQTY":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Reference to Purchase Orders':40(4010)t-43#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "REFTOPO":U.             

create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Linked Invoice':30(4011)t-44#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "LINKINV":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Price Variance':30(4012)t-45#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingVariances":U
       tReportStrings.tcStringCode = "PRICVAR":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Currency Variance':30(4013)t-46#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingVariances":U
       tReportStrings.tcStringCode = "CURVAR":U.  

create tReportStrings.
assign tReportStrings.tcStringText = #T-77'RC Item':10(13917)T-77#       
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingVariances":U
       tReportStrings.tcStringCode = "RCITEM":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-78'RC Year/Number':20(13918)T-78#       
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingVariances":U
       tReportStrings.tcStringCode = "RCNUMYR":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Type':10(4014)t-47#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "TYPE":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Fin':6(4015)t-48#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "FIN":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-49'Log':6(4016)t-49#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "LOG":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-82'tc Diff Amount':15(14256)T-82#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "DIFFAMTC":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-83'tc Orig Amount':15(14257)T-83#     
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "UnmatchedInvoicesReceipts":U
       tReportStrings.tcStringCode = "ORIGAMTC":U.         
       
/*PO reportvariants names*/                
create tReportStrings.
assign tReportStrings.tcStringText = #T-53'By Cost Center':30(13588)T-53#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYCOSTCEN":U.             

create tReportStrings.
assign tReportStrings.tcStringText = #T-51'By Supplier':30(13582)T-51#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYCREDITOR":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-55'By Sub-Account':30(13590)T-55#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYDIVIS":U.   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-58'By Item':30(13593)T-58#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYITEM":U.  
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-60'Overdue Deliveries':30(13595)T-60#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "OVERDUEDEL":U.         
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Planned Deliveries':30(13602)T-62#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "PLANNEDDEL":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-64'By Purchaser':30(13608)T-64#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYPRCHS":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-66'By Project':30(13613)T-66#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYPRJ":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-68'By Warehouse':30(13615)T-68#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "BYWRH":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-70'Purchase Orders':20(13675)T-70#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "PRCHORDS":U.     
create tReportStrings.
assign tReportStrings.tcStringText = #T-79'Receipts':20(14040)T-79#       
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "PurchaseOrders":U
       tReportStrings.tcStringCode = "RCPTS":U.

/* Added to B21 */

create tReportStrings.
assign tReportStrings.tcStringText = #T-71'BC Received Amount':20(13688)T-71#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "LCRECAM":U.
                          
create tReportStrings.
assign tReportStrings.tcStringText = #T-72'SI':2(13689)T-72#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "TYPECI":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-73'RC':2(13444)T-73#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "TYPERC":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-74'Matched Invoices':30(13691)T-74#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "MATCH":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-75'Unmatched Invoices':30(13692)T-75#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "UNMATCHCI":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-76'Unmatched Receipts':30(13693)T-76#
       tReportStrings.tcClassName  = "BLogisticReport":U
       tReportStrings.tcReportName = "MatchingReconciliation":U
       tReportStrings.tcStringCode = "UNMATCHRC":U.