project QadFinancials > class BBill > method GetDebtorList


Parameters


ocCustomerListoutputcharacter
ocCrDtoutputcharacter
ocInvoiceTypesoutputcharacter
ocPaymentTypesoutputcharacter
ocBillStatusoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program3/bbill.p)

<Q-81 run DebtorForBill (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input ?, (DebtorCodeList)
    output dataset tqDebtorForBill) in BDebtor>

/* Get the Customer List */ 
for each tqDebtorForBill:
    if ocCustomerList <> ""
    then assign ocCustomerList = ocCustomerList + chr(2).

    assign ocCustomerList = ocCustomerList + tqDebtorForBill.tcDebtorCode + chr(2) + string(tqDebtorForBill.tiDebtor_ID).
end.

assign ocCrDt           = {&CREDITDEBITABBREVIATIONS}
       ocInvoiceTypes   = {&INVOICETYPES}
       ocPaymentTypes   = {&PAYMENTCONDITIONPAYMENTTYPES}
       ocBillStatus     = {&BILLSTATUSES}.