project QadFinancials > class BDebtor > method ApiLoadDebtorCalcCurrencyCode
function returns character
Parameters
Internal usage
QadFinancials
program code (program9/bdebtor.p)
define variable oiReturnStatus as integer no-undo.
if iiCurrencyId = ? or
iiCurrencyId = 0
then return "":U.
<Q-1 run CurrencyPrim (all) (Read) (Cache)
(input ?, (CurrencyCode)
input iiCurrencyId, (Currency_ID)
output dataset tqCurrencyPrim) in BCurrency >
find first tqCurrencyPrim where
tqCurrencyPrim.tiCurrency_ID = iiCurrencyId
no-error.
return if available tqCurrencyPrim
then tqCurrencyPrim.tcCurrencyCode
else "":U.