method ApiLoadCountryCurrencyCode

function returns character

Description

This method will return all currency code with the currency ID that was passed as input parameter.

Parameters

iiCurrencyId

input

integer

Currency ID

Internal usage

QadFinancials

method BCountry.ApiLoadCountry

program code (program1/bcountry.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.