project QadFinancials > class TReportStrings > method Main2

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'Project':10(3935)t-1#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcReportName = "":U
       tReportStrings.tcStringCode = "PROJCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-2'Cost Center':40(4268)T-2#
       tReportStrings.tcClassName  = "BAnalyticalReport":U
       tReportStrings.tcReportName = "":U
       tReportStrings.tcStringCode = "CCCODE":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-3'Tax Declaration Number':30(3891)T-3#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "VATDECNO":U.                   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-4'Country Tax Declaration':30(3937)T-4#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "CNTVATDEC":U.                                

create tReportStrings.
assign tReportStrings.tcStringText = #T-6'Tax Numbers':20(56414)T-6#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "VATNMB":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-60'Tax Information':30(61729)T-60#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "TAXINFO":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-61'Address Information':30(62217)T-61#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "ADDRINFO":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-8'Validation':10(3941)t-8#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "VAL":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-9'Bank Account No':20(3942)T-9#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport,BGLReport":U
       tReportStrings.tcReportName = "DebtorMasterCard,CreditorMasterCard,GLMasterCard":U
       tReportStrings.tcStringCode = "NMBR":U.                                                   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-10'Extension':20(3943)t-10#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport,BGLReport":U
       tReportStrings.tcReportName = "DebtorMasterCard,CreditorMasterCard,GLMasterCard":U
       tReportStrings.tcStringCode = "Ext":U.    

create tReportStrings.
assign tReportStrings.tcStringText = #T-59'Branch':15(61728)T-59#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "BRANCH":U.    
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-11'Swift Code':10(3944)t-11#
       tReportStrings.tcClassName  = "BDebtorReport,BCreditorReport,BGLReport":U
       tReportStrings.tcReportName = "DebtorMasterCard,CreditorMasterCard,GLMasterCard":U
       tReportStrings.tcStringCode = "SWIFTCD":U.                                                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-12'Registration':15(3945)t-12#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "REG":U.                          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-13'Serial No':10(3946)t-13#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "SRLNMB":U.                

create tReportStrings.
assign tReportStrings.tcStringText = #T-62'Own Bank Number':30(62662)T-62#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "OWNBANKNBR":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-63'Payment Format':20(62664)T-63#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "PAYFORMAT":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-64'Payment Instrument':30(62665)T-64#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "PAYINSTRU":U.   

create tReportStrings.
assign tReportStrings.tcStringText = #T-14'Exchange':10(3947)t-14#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "EXCH":U.                          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-15'Sector':10(3948)t-15#
       tReportStrings.tcClassName  = "BDebtorReport":U
       tReportStrings.tcReportName = "DebtorMasterCard":U
       tReportStrings.tcStringCode = "Sector":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-16'tc Amount':40(3949)t-16#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "AMNTTC":U.  

create tReportStrings.
assign tReportStrings.tcStringText = #T-17'BC Analysis':40(3950)T-17#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "ANALLC":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-18'SC Analysis':40(3951)t-18#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "ANALCC":U.  

create tReportStrings.
assign tReportStrings.tcStringText = #T-19'G':14(3952)T-19#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "sGenLed":U. 

create tReportStrings.
assign tReportStrings.tcStringText = #T-20'P':7(3953)T-20#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "sPro":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-21'Cost Center':11(3954)T-21#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "sCosCen":U.

create tReportStrings.
assign tReportStrings.tcStringText = #T-22'S':15(3955)T-22#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "AuditLogReport":U
       tReportStrings.tcStringCode = "sSafCom":U.

/*GLMaster Card*/
create tReportStrings.
assign tReportStrings.tcStringText = #T-23'Postings':40(3956)t-23#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "POST":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-24'Currency':40(3957)t-24#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "CURR":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-25'Analysis':40(3958)t-25#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "ANALYSIS":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-26'Report Link':40(3959)t-26#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "REPLINK":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-29'Validation':10(3941)t-29#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "VAL":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-33'Registration':15(3945)t-33#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "REG":U.                          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-34'Serial No':10(3946)t-34#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "SRLNMB":U.                          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-35'Exchange':10(3947)t-35#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "EXCH":U.                          
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-36'Sector':10(3948)t-36#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "Sector":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-37'Business Relation':20(3961)t-37#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "BUSREL":U.              
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-39'Shared Set Code':40(3962)t-39#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "SHRCD":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-65'Own Bank Number':30(62662)T-65#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "OWNBANKNBR":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-66'Payment Format':20(62664)T-66#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "PAYFORMAT":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-67'Payment Instrument':30(62665)T-67#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "PAYINSTRU":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-68'Cash':10(63144)T-68#
       tReportStrings.tcClassName  = "BGLReport":U
       tReportStrings.tcReportName = "GLMasterCard":U
       tReportStrings.tcStringCode = "CASH":U.       
       
/*EmployeeMasterCard*/    
create tReportStrings.
assign tReportStrings.tcStringText = #T-40'Employee':40(3963)t-40#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EMPL":U.       

create tReportStrings.
assign tReportStrings.tcStringText = #T-41'Business Relation':40(3964)t-41#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "BUSREL":U.       
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-42'Defaults':40(3965)t-42#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "DEFS":U. 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-43'Activity Sheets':40(3966)t-43#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "ACTSHT":U.                 
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-44'Expense Notes':40(3967)t-44#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "EXPNOT":U.         
                 
create tReportStrings.
assign tReportStrings.tcStringText = #T-45'Tax Identification Number':30(3878)T-45#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "VATIDNO":U.            
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-46'Country Tax Identification':30(3968)T-46#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "CNTVATID":U.        
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-47'Tax Declaration Number':30(3891)T-47#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "VATDECNO":U.                   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-48'Country Tax Declaration':30(3937)T-48#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "CNTVATDEC":U.     
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-50'Tax Parameters':20(59653)T-50#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "VATNMBR":U.
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-51'Saf Concept':30(3969)t-51#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "SAFCON":U.                   
              
create tReportStrings.
assign tReportStrings.tcStringText = #T-52'Saf Code':30(3970)t-52#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "SAFCD":U.                   
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-53'Valid From':30(3971)t-53#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "VALFROM":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-54'Valid To':30(3972)T-54#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "VALTILL":U.      
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-55'Regulation':30(3973)t-55#
       tReportStrings.tcClassName  = "BEmployeeReport":U
       tReportStrings.tcReportName = "EmployeeMasterCard":U
       tReportStrings.tcStringCode = "REG":U.            
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-56'Full':30(3974)t-56#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATMasterCard":U
       tReportStrings.tcStringCode = "FULL":U.                
       
create tReportStrings.
assign tReportStrings.tcStringText = #T-57'Base':30(3975)t-57#
       tReportStrings.tcClassName  = "BVATReport":U
       tReportStrings.tcReportName = "VATMasterCard":U
       tReportStrings.tcStringCode = "BASE":U.