project QadFinancials > class BDebtor > method ApiGetCreditHighCreditForCustomers

Parameters

Internal usage

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.