project QadFinancials > class BDDocumentReport > method DDocumentReportCheque

report procedure


Parameters


icLanguageCodeinputcharacter
tFilterinputtemp-table
dcrDDocumentReportChequeoutputdataset
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program4/bddocumentreport.p)

empty temp-table tqDDocumentReportCheque.

<M-1 run GetReportLabels (input  'DDocumentReportCheque':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-CHEQUE} (icDocumentType), 
    output oiReturnStatus (oiReturnStatus)) in BDDocumentReport>

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

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