project QadFinancials > class BCreditorReport > method CreditorList

Parameters

Internal usage

program code (program7/bcreditorreport.p)

empty temp-table tqCreditorList.

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

<M-3 run SetDataItemsBasedOnFilterTT (output viFcReturnSuper (oiReturnStatus)) in BCreditorReport>
 
 <Q-4 run CreditorAllItems (all) (Read) (NoCache)
    (input viCompanyId, (CompanyId)
     input vcCandoCreditorCodeFilter1, (CreditorCode)
     input vcToCreditorCodeFilter1, (CreditorCodeTo)
     input vcFromCreditorCodeFilter1, (CreditorCodeFrom)
     input vcCandoBRCodeFilter1, (BusRelCode)
     input vcFromBRCodeFilter1, (BusRelCodeFrom)
     input vcToBRCodeFilter1, (BusRelCodeTo)
     input vcCurrencyCodeFilter1, (CurrencyCode)
     input vlCreditorIsActiveFilter, (CreditorIsActive)
     input vlCreditorIsSendRemitFilter, (CreditorIsSendRemittance)
     input vlCreditorIsIndivPaymentFilter, (CreditorIsIndividualPayment)
     input vcVatDeliveryTypeFilter, (VatDeliveryType)
     input vcVatPercentageLevelFilter, (VatPercentageLevel)
     input vcAddressCityFilter, (AddressCity)
     input vcAddressStreet1Filter, (AddressStreet1)
     input vcBusinessRelationNameFilter, (BusinessRelationName)
     input vcProfileCodeCnFilter, (ProfileCodeCnFilter)
     input vcProfileCodeDivFilter, (ProfileCodeDivFilter)
     input vcProfileCodeInvFilter, (ProfileCodeInvFilter)
     input vcPaymentCondCodeNmFilter, (PaymentCondCodeNmFilter)
     input vcDeliveryCondCodeFilter, (DeliveryCondCodeFilter)
     input vcReasonCodeFilter, (ReasonCodeFilter)
     input vcBLWIGroupCodeFilter, (BLWIGroupCodeFilter)
     input vcPaymentGroupCodeFilter, (PaymentGroupCodeFilter)
     input vcTaxIDFederal, (FederalTaxID)
     input vcTaxIDState, (StateTaxID)
     output dataset tqCreditorAllItems) in BCreditorReport >
                           
for each tqCreditorAllItems:
    create tqCreditorList.
    buffer-copy tqCreditorAllItems to tqCreditorList.
    
    assign
        tqCreditorList.tcProfileCn               = tqCreditorAllItems.tcProfileCodeCn
        tqCreditorList.tcProfileDiv              = tqCreditorAllItems.tcProfileCodeDiv
        tqCreditorList.tcProfileInv              = tqCreditorAllItems.tcProfileCodeInv
        tqCreditorList.tcPaymentConditionCodeDiv = tqCreditorAllItems.tcPaymentConditionCodeNm.
end.