project QadFinancials > class BDDocumentReport > method DDocumentReportSumStatement

report procedure


Parameters


icLanguageCodeinputcharacter
tFilterinputtemp-table
dcrDDocumentReportSumStatementoutputdataset
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bddocumentreport.p)

empty temp-table tqDDocumentReportSumStatement.

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

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

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