project QadFinancials > class BDebtor > method ApiLoadDebtorCalcDebtorCode

Parameters

Internal usage

program code (program9/bdebtor.p)

define variable oiReturnStatus as integer no-undo.

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

<Q-1 run DebtorPrim (all) (Read) (Cache)
   (input ?, (CompanyId)
    input ?, (DebtorCode)
    input iiDebtorId, (Debtor_ID)
    output dataset tqDebtorPrim) in BDebtor >

find first tqDebtorPrim where
           tqDebtorPrim.tiDebtor_ID = iiDebtorId
           no-error.

return if available tqDebtorPrim
       then tqDebtorPrim.tcDebtorCode
       else "":U.