project QadFinancials > class BDebtorReport > method DebtorList

Parameters

Internal usage

program code (program7/bdebtorreport.p)

empty temp-table tqDebtorList.

<M-1 run GetReportLabels (input  'DebtorList':U (icReportName), 
                      input  icLanguageCode (icLanguageCode), 
                      input  tFilter (tFilter), 
                      output tqHeader (tqHeader), 
                      output tqFilter (tqFilter), 
                      output tqText (tqText), 
                      output oiReturnStatus (oiReturnStatus)) in BDebtorReport>
                          
if oiReturnStatus <> 0
then return.     

<M-2 run SetDataItemsBasedOnFilterTT (output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>

<Q-3 run DebtorAllItems (all) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input vcCandoBRCodeFilter, (BusinessRelationCodeFilter)
           input vcFromBRCodeFilter, (BusRelCodeFromFilter)
           input vcToBRCodeFilter, (BusRelCodeToFilter)
           input vcCandoDebtorCodeFilter, (DebtorCodeFilter)
           input vcFromDebtorCodeFilter, (DebtorCodeFromFilter)
           input vcToDebtorCodeFilter, (DebtorCodeToFilter)
           input vcCurrencyCodeFilter, (CurrencyCodeFilter)
           input vlPrintReminderFilter, (PrintReminder)
           input vlPrintStatementFilter, (PrintStatement)
           input vcBusRelNameFilter, (BusinessRelationName1)
           input vcAddressStreetFilter, (AddressStreet1)
           input vcAddressCityFilter1, (AddressCity)
           input vlActiveDebtorsFilter, (IsActive)
           input vcProfileCodeCnFilter1, (ProfileCodeCn)
           input vcProfileCodeDivFilter1, (ProfileCodeDiv)
           input vcProfileCodeInvFilter1, (ProfileCodeInv)
           input vcPaymentCondCodeNmFilter1, (PaymentCondCodeNm)
           input vcReasonCodeFilter1, (ReasonCode)
           input vcBLWICodeFilter, (BLWICode)
           input ?, (FederalTaxId)
           input ?, (StateTaxId)
           output dataset tqDebtorAllItems) in BDebtorReport >
                         
for each tqDebtorAllItems:
        create tqDebtorList.
        buffer-copy tqDebtorAllItems to tqDebtorList.
        
        assign
            tqDebtorList.tcProfileCn               = tqDebtorAllItems.tcProfileCodeCn
            tqDebtorList.tcProfileDiv              = tqDebtorAllItems.tcProfileCodeDiv
            tqDebtorList.tcProfileInv              = tqDebtorAllItems.tcProfileCodeInv
            tqDebtorList.tcPaymentConditionCodeDiv = tqDebtorAllItems.tcPaymentConditionCodeNm.        
end.