project QadFinancials > class BDebtor > method ApiLoadDebtorCalcReasonCode

Parameters

Internal usage

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.