project QadFinancials > class BDebtor > method ApiLoadDebtorCalcDebtorCreditRatingCode
function returns character
Parameters
iiDebtorCreditRatingId | input | integer | |
Internal usage
QadFinancials
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.