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