Convert one currency to an other in D365fo x++
Convert one currency to an other in D365fo x++
Code:
public real CurrentExchangeRate(CurrencyCode fromCurrency , CurrencyCode toCurrency , TransDate transDate)
{
ExchangeRate exchangeRate;
ExchangeRateType ExchangeRateType;
ExchangeRateCurrencyPair exchangeRateCurrencyPair;
real exchRate;
if( fromCurrency == toCurrency)
{
exchRate = 1;
return exchRate;
}
else
{
select firstonly exchangeRateCurrencyPair
where exchangeRateCurrencyPair.ExchangeRateType == Ledger::find(Ledger::current()).DefaultExchangeRateType
&& exchangeRateCurrencyPair.FromCurrencyCode == fromCurrency
&& exchangeRateCurrencyPair.ToCurrencyCode == toCurrency;
exchRate = exchangeRate::findByDate(exchangeRateCurrencyPair.RecId, transDate).ExchangeRate;
return exchRate/100;
}
}
Comments
Post a Comment