project QadFinancials > class BBill > 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}.