method GetDebtorList

Parameters

ocCustomerList	output	character
ocCrDt	output	character
ocInvoiceTypes	output	character
ocPaymentTypes	output	character
ocBillStatus	output	character
oiReturnStatus	output	integer	Return 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}.