project QadFinancials > class BDebtor > method ApiGetCreditHighCreditForCustomers
Parameters
Internal usage
unused
program code (program3/bdebtor.p)
assign oiReturnStatus = -98.
for each tCustomerCreditHighCredit:
<M-80 run ApiGetCreditData
(input tCustomerCreditHighCredit.tcDebtorCode (icDebtorCode),
input tCustomerCreditHighCredit.tcCurrencyCode (icCurrencyCode),
output tCustomerCreditHighCredit.tdFixedCreditLimit (odFixedCreditLimit),
output tCustomerCreditHighCredit.tdTurnOverCreditLimit (odTurnoverCreditLimit),
output tCustomerCreditHighCredit.tdARBalance (odARBalance),
output tCustomerCreditHighCredit.tdOpenOrderBalance (odOpenOrdersBalance),
output tCustomerCreditHighCredit.tlCustomerOnCreditHold (olCustomerOnCreditHold),
output tCustomerCreditHighCredit.tcCreditRating (ocCreditRating),
output viFcReturnSuper (oiReturnStatus)) in BDebtor>
if viFcReturnSuper < 0 or viFcReturnSuper > 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
<M-52 run ApiExtractHighCreditInfo
(input tCustomerCreditHighCredit.tcDebtorCode (icDebtorCode),
input tCustomerCreditHighCredit.tcCurrencyCode (icCurrency),
output tCustomerCreditHighCredit.tdHighCredit (odHighCredit),
output tCustomerCreditHighCredit.ttHighCreditDate (otHighCreditDate),
output viFcReturnSuper (oiReturnStatus)) in BDebtor>
if viFcReturnSuper < 0 or viFcReturnSuper > 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
end.
if oiReturnStatus = -98 then assign oiReturnStatus = 0.