method GetCurrencyByBusinessRelation

Parameters

iiBusinessRelationID	input	integer
oiCurrencyID	output	integer
ocCurrencyCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bbankcharge.p)

assign oiReturnStatus = -98
       oiCurrencyID   = 0
       ocCurrencyCode = '':U.
<Q-78 run BankChargeCurrency (all) (Read) (NoCache)
          (input iiBusinessRelationID, (BusinessRelationId)
           output dataset tqBankChargeCurrency) in BBankCharge>
for first tqBankChargeCurrency:
     assign oiCurrencyID    = tqBankChargeCurrency.tiCurrency_ID
            ocCurrencyCode  = tqBankChargeCurrency.tcCurrencyCode.
end.

assign oiReturnStatus = 0.