project QadFinancials > class BDebtor > method ApiGetCreditHighCreditForCustomers


Parameters


tCustomerCreditHighCreditinput-outputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


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.