project QadFinancials > class BDDocumentReport > method DDocumentReportPromisNote

report procedure


Parameters


icLanguageCodeinputcharacter
tFilterinputtemp-table
dcrDDocumentReportPromisNoteoutputdataset
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program4/bddocumentreport.p)

empty temp-table tqDDocumentReportPromisNote.

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

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

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