project QadFinancials > class BDebtor > method ApiLoadDebtorCalcDebtorCreditRatingCode

Parameters

Internal usage

program code (program9/bdebtor.p)

define variable oiReturnStatus as integer no-undo.

if iiDebtorCreditRatingId = ? or
   iiDebtorCreditRatingId = 0
then return "":U.

<Q-1 run DebtorCreditRatingPrim (all) (Read) (Cache)
   (input iiDebtorCreditRatingId, (DebtorCreditRatingId)
    input ?, (DebtorCreditRatingCode)
    output dataset tqDebtorCreditRatingPrim) in BDebtorCreditRating >

find first tqDebtorCreditRatingPrim where
           tqDebtorCreditRatingPrim.tiDebtorCreditRating_ID = iiDebtorCreditRatingId
           no-error.

return if available tqDebtorCreditRatingPrim
       then tqDebtorCreditRatingPrim.tcDebtorCreditRatingCode
       else "":U.