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

method BEmployee.ApiLoadEmployee

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.