project QadFinancials > class BDDocumentReport > method DDocumentReportTransfer

report procedure


Parameters


icLanguageCodeinputcharacter
tFilterinputtemp-table
dcrDDocumentReportTransferoutputdataset
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program4/bddocumentreport.p)

empty temp-table tqDDocumentReportTransfer.

<M-1 run GetReportLabels (input  'DDocumentReportTransfer':U (icReportName), 
                          input  icLanguageCode (icLanguageCode), 
                          input  tFilter (tFilter), 
                          output tqHeader (tqHeader), 
                          output tqFilter (tqFilter), 
                          output tqText (tqText), 
                          output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>

if oiReturnStatus <> 0
then return.

<M-3 run SetDataItemsBasesOnFilterTT
   (output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>
if oiReturnStatus <> 0
then return.

empty temp-table tDDocumentReportAll.
<M-2 run DDocumentReportAll (output tDDocumentReportAll (tDDocumentReportAll), 
                             input  {&DOCUMENTTYPEDEBTOR-TRANSFER} (icDocumentType), 
                             output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>

for each tDDocumentReportAll where tDDocumentReportAll.tcDDocRepDocumentType = {&DOCUMENTTYPEDEBTOR-TRANSFER}:
    create tqDDocumentReportTransfer.
    assign tqDDocumentReportTransfer.tcDDocRepDocumentType           = {&DOCUMENTTYPEDEBTOR-TRANSFER-TR}
           tqDDocumentReportTransfer.tiDDocumentID                   = tDDocumentReportAll.tiDDocumentID
           tqDDocumentReportTransfer.tiDDocRepYear                   = tDDocumentReportAll.tiDDocRepYear
           tqDDocumentReportTransfer.tiDDocRepNumber                 = tDDocumentReportAll.tiDDocRepNumber                  
           tqDDocumentReportTransfer.tcDDocRepDocumentStatus         = tDDocumentReportAll.tcDDocRepDocumentStatus          
           tqDDocumentReportTransfer.tcDDocRepReference              = tDDocumentReportAll.tcDDocRepReference               
           tqDDocumentReportTransfer.ttDDocRepDueDate                = tDDocumentReportAll.ttDDocRepDueDate                 
           tqDDocumentReportTransfer.tdDDocRepAmount                 = tDDocumentReportAll.tdDDocRepAmount                  
           tqDDocumentReportTransfer.tcDDocRepAmountInText           = tDDocumentReportAll.tcDDocRepAmountInText            
           tqDDocumentReportTransfer.tcDDocRepCurrency               = tDDocumentReportAll.tcDDocRepCurrency                
           tqDDocumentReportTransfer.ttDDocRepCreationDate           = tDDocumentReportAll.ttDDocRepCreationDate            
           tqDDocumentReportTransfer.tcDDocRepCompanyBRCode          = tDDocumentReportAll.tcDDocRepCompanyBRCode           
           tqDDocumentReportTransfer.tcDDocRepCompanyName1           = tDDocumentReportAll.tcDDocRepCompanyName1            
           tqDDocumentReportTransfer.tcDDocRepCompanyName2           = tDDocumentReportAll.tcDDocRepCompanyName2            
           tqDDocumentReportTransfer.tcDDocRepCompanyStreet1         = tDDocumentReportAll.tcDDocRepCompanyStreet1          
           tqDDocumentReportTransfer.tcDDocRepCompanyStreet2         = tDDocumentReportAll.tcDDocRepCompanyStreet2          
           tqDDocumentReportTransfer.tcDDocRepCompanyZip             = tDDocumentReportAll.tcDDocRepCompanyZip              
           tqDDocumentReportTransfer.tcDDocRepCompanyCity            = tDDocumentReportAll.tcDDocRepCompanyCity             
           tqDDocumentReportTransfer.tcDDocRepCompanyCounty          = tDDocumentReportAll.tcDDocRepCompanyCounty           
           tqDDocumentReportTransfer.tcDDocRepCompanyCountry         = tDDocumentReportAll.tcDDocRepCompanyCountry          
           tqDDocumentReportTransfer.tcDDocRepCompanyBankNumber      = tDDocumentReportAll.tcDDocRepCompanyBankNumber       
           tqDDocumentReportTransfer.tcDDocRepCompanyBankNumberForm  = tDDocumentReportAll.tcDDocRepCompanyBankNumberForm
           tqDDocumentReportTransfer.tcDDocRepCompanyBankNumberExten = tDDocumentReportAll.tcDDocRepCompanyBankNumberExten  
           tqDDocumentReportTransfer.tcDDocRepCompanyBankNumberValid = tDDocumentReportAll.tcDDocRepCompanyBankNumberValid  
           tqDDocumentReportTransfer.tcDDocRepCompanyBankNumberSwift = tDDocumentReportAll.tcDDocRepCompanyBankNumberSwift  
           tqDDocumentReportTransfer.tcDDocRepCompanyBankBRCode      = tDDocumentReportAll.tcDDocRepCompanyBankBRCode       
           tqDDocumentReportTransfer.tcDDocRepCompanyBankName1       = tDDocumentReportAll.tcDDocRepCompanyBankName1        
           tqDDocumentReportTransfer.tcDDocRepCompanyBankName2       = tDDocumentReportAll.tcDDocRepCompanyBankName2        
           tqDDocumentReportTransfer.tcDDocRepCompanyBankStreet1     = tDDocumentReportAll.tcDDocRepCompanyBankStreet1      
           tqDDocumentReportTransfer.tcDDocRepCompanyBankStreet2     = tDDocumentReportAll.tcDDocRepCompanyBankStreet2      
           tqDDocumentReportTransfer.tcDDocRepCompanyBankZip         = tDDocumentReportAll.tcDDocRepCompanyBankZip          
           tqDDocumentReportTransfer.tcDDocRepCompanyBankCity        = tDDocumentReportAll.tcDDocRepCompanyBankCity         
           tqDDocumentReportTransfer.tcDDocRepCompanyBankCounty      = tDDocumentReportAll.tcDDocRepCompanyBankCounty       
           tqDDocumentReportTransfer.tcDDocRepCompanyBankCountry     = tDDocumentReportAll.tcDDocRepCompanyBankCountry.     
        
    assign tqDDocumentReportTransfer.tcDDocRepDebtorBRCode             = tDDocumentReportAll.tcDDocRepDebtorBRCode              
           tqDDocumentReportTransfer.tcDDocRepDebtorName1              = tDDocumentReportAll.tcDDocRepDebtorName1               
           tqDDocumentReportTransfer.tcDDocRepDebtorName2              = tDDocumentReportAll.tcDDocRepDebtorName2               
           tqDDocumentReportTransfer.tcDDocRepDebtorStreet1            = tDDocumentReportAll.tcDDocRepDebtorStreet1             
           tqDDocumentReportTransfer.tcDDocRepDebtorStreet2            = tDDocumentReportAll.tcDDocRepDebtorStreet2             
           tqDDocumentReportTransfer.tcDDocRepDebtorZip                = tDDocumentReportAll.tcDDocRepDebtorZip                 
           tqDDocumentReportTransfer.tcDDocRepDebtorCity               = tDDocumentReportAll.tcDDocRepDebtorCity                
           tqDDocumentReportTransfer.tcDDocRepDebtorCounty             = tDDocumentReportAll.tcDDocRepDebtorCounty              
           tqDDocumentReportTransfer.tcDDocRepDebtorCountry            = tDDocumentReportAll.tcDDocRepDebtorCountry             
           tqDDocumentReportTransfer.tcDDocRepDebtorCode               = tDDocumentReportAll.tcDDocRepDebtorCode                
           tqDDocumentReportTransfer.tcDDocRepDebtorVatNumber          = tDDocumentReportAll.tcDDocRepDebtorVatNumber           
           tqDDocumentReportTransfer.tcDDocRepDebtorBankNumber         = tDDocumentReportAll.tcDDocRepDebtorBankNumber          
           tqDDocumentReportTransfer.tcDDocRepDebtorBankNumberForm     = tDDocumentReportAll.tcDDocRepDebtorBankNumberForm
           tqDDocumentReportTransfer.tcDDocRepDebtorBankNumberExtent   = tDDocumentReportAll.tcDDocRepDebtorBankNumberExtent    
           tqDDocumentReportTransfer.tcDDocRepDebtorBankNumberVal      = tDDocumentReportAll.tcDDocRepDebtorBankNumberVal       
           tqDDocumentReportTransfer.tcDDocRepDebtorBankNumberSwift    = tDDocumentReportAll.tcDDocRepDebtorBankNumberSwift     
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRCode         = tDDocumentReportAll.tcDDocRepDebtorBankBRCode          
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRName1        = tDDocumentReportAll.tcDDocRepDebtorBankBRName1         
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRName2        = tDDocumentReportAll.tcDDocRepDebtorBankBRName2         
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRStreet1      = tDDocumentReportAll.tcDDocRepDebtorBankBRStreet1       
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRStreet2      = tDDocumentReportAll.tcDDocRepDebtorBankBRStreet2       
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRZip          = tDDocumentReportAll.tcDDocRepDebtorBankBRZip           
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRCity         = tDDocumentReportAll.tcDDocRepDebtorBankBRCity          
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRCounty       = tDDocumentReportAll.tcDDocRepDebtorBankBRCounty        
           tqDDocumentReportTransfer.tcDDocRepDebtorBankBRCountry      = tDDocumentReportAll.tcDDocRepDebtorBankBRCountry       
           tqDDocumentReportTransfer.tcDDocRepDebtorVatNumber          = tDDocumentReportAll.tcDDocRepDebtorVatNumber.          

    assign tqDDocumentReportTransfer.tcDDocRepDInvoiceDebtorCode     = tDDocumentReportAll.tcDDocRepDInvoiceDebtorCode
           tqDDocumentReportTransfer.tiDDocRepDInvoiceYear           = tDDocumentReportAll.tiDDocRepDInvoiceYear            
           tqDDocumentReportTransfer.tiDDocRepDInvoicePeriod         = tDDocumentReportAll.tiDDocRepDInvoicePeriod          
           tqDDocumentReportTransfer.tcDDocRepDInvoiceJournalCode    = tDDocumentReportAll.tcDDocRepDInvoiceJournalCode     
           tqDDocumentReportTransfer.tiDDocRepDInvoiceVoucher        = tDDocumentReportAll.tiDDocRepDInvoiceVoucher         
           tqDDocumentReportTransfer.ttDDocRepDInvoiceDate           = tDDocumentReportAll.ttDDocRepDInvoiceDate            
           tqDDocumentReportTransfer.tcDDocRepDInvoiceReference      = tDDocumentReportAll.tcDDocRepDInvoiceReference       
           tqDDocumentReportTransfer.tdDDocRepDInvoiceBalanceTC      = tDDocumentReportAll.tdDDocRepDInvoiceBalanceTC       
           /*tqDDocumentReportTransfer.ttDDocRepDInvoiceDueDate        = tDDocumentReportAll.ttDDocRepDInvoiceDueDate         */
           tqDDocumentReportTransfer.tcDDocRepDInvoiceCurrencyCode   = tDDocumentReportAll.tcDDocRepDInvoiceCurrencyCode    
           tqDDocumentReportTransfer.tiDDocRepDInvoiceCurrNumbOfDec  = tDDocumentReportAll.tiDDocRepDInvoiceCurrNumbOfDec 
           /*tqDDocumentReportTransfer.ttDDocRepDInvoiceDiscountDueDat = tDDocumentReportAll.ttDDocRepDInvoiceDiscountDueDat  */
           tqDDocumentReportTransfer.tdDDocRepDInvoiceXRefAmountTC   = tDDocumentReportAll.tdDDocRepDInvoiceXRefAmountTC    
           tqDDocumentReportTransfer.tdDDocRepDInvoiceXRefDiscAmTC   = tDDocumentReportAll.tdDDocRepDInvoiceXRefDiscAmTC    
           .
            
    assign tqDDocumentReportTransfer.tdDDocRepDInvoiceTotalBalanceTC = tDDocumentReportAll.tdDDocRepDInvoiceTotalBalanceTC 
           tqDDocumentReportTransfer.tdDDocRepDInvoiceTotalAllocTC   = tDDocumentReportAll.tdDDocRepDInvoiceTotalAllocTC   
           tqDDocumentReportTransfer.tdDDocRepDInvoiceTotalDiscTC    = tDDocumentReportAll.tdDDocRepDInvoiceTotalDiscTC.
end.