project QadFinancials > class BEmployee > method ApiLoadEmployeeCalcCurrencyCode
function returns character
Description
This method is used to load currency code by currency_id.
Parameters
iiCurrencyId | input | integer | Currency ID. |
Internal usage
QadFinancials
program code (program9/bemployee.p)
define variable oiReturnStatus as integer no-undo.
if iiCurrencyId = ? or
iiCurrencyId = 0
then return "":U.
<Q-1 run CurrencyPrim (all) (Read) (NoCache)
(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.