project QadFinancials > class BDebtor > method ApiLoadDebtorCalcReasonCode
function returns character
Parameters
Internal usage
QadFinancials
program code (program9/bdebtor.p)
define variable oiReturnStatus as integer no-undo.
if iiReasonId = ? or
iiReasonId = 0
then return "":U.
<Q-1 run ReasonPrim (all) (Read) (Cache)
(input iiReasonId, (ReasonId)
input ?, (ReasonCode)
output dataset tqReasonPrim) in BReason >
find first tqReasonPrim where
tqReasonPrim.tiReason_ID = iiReasonId
no-error.
return if available tqReasonPrim
then tqReasonPrim.tcReasonCode
else "":U.