method GetExRateByEntityInvoiceFlag

Parameters

itDInvoicePostingDate	input	date
itDInvoiceTaxPointDate	input	date
iiFromCurrencyId	input	integer
icFromCurrencyCode	input	character
iiToCurrencyId	input	integer
icToCurrencyCode	input	character
iiExchangeRateTypeId	input	integer
icExchangeRateTypeCode	input	character
odDInvoiceExchangeRate	output	decimal
odDInvoiceRateScale	output	decimal
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BDInvoice.DefaultValuesCurrency
method BDInvoice.DefaultValuesGeneralInfo
method BDInvoice.StdMaintainTTCalcAmounts
method BDInvoice.ValidateComponentPre

program code (program1/bdinvoice.p)

if vlCompanyPropertyIsARUseTaxDate = true
then assign vtExchangeRateDate = itDInvoiceTaxPointDate.
else assign vtExchangeRateDate = itDInvoicePostingDate.    

<M-41 run GetExchangeRate
   (input  viCompanyId (iiCompanyID), 
    input  iiFromCurrencyId (iiFromCurrencyID), 
    input  icFromCurrencyCode (icFromCurrencyCode), 
    input  iiToCurrencyId (iiToCurrencyID), 
    input  icToCurrencyCode (icToCurrencyCode), 
    input  iiExchangeRateTypeId (iiExchangeRateTypeID), 
    input  icExchangeRateTypeCode (icExchangeRateTypeCode), 
    input  vtExchangeRateDate (itValidityDate), 
    output odDInvoiceExchangeRate (odExchangeRate), 
    output odDInvoiceRateScale (odExchangeScaleFactor), 
    output viFcReturnSuper (oiReturnStatus)) in BDInvoice>

if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)        
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.