Convert Amount from one currency to another curency in d365 fo x++
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)
|| (exchangeRateCurrencyPair.FromCurrencyCode == toCurrency && exchangeRateCurrencyPair.ToCurrencyCode == fromCurrency));;
exchRate = exchangeRate::findByDate(exchangeRateCurrencyPair.RecId, transDate).ExchangeRate;
return exchRate/100;
}
}
Comments
Post a Comment