for i := 1 to xmlAttrCol.Count do begin
if xmlAttrCol.Get(i, xmlAttr) then begin
if xmlAttr.Name = 'currency' then
TargetCurrency := xmlAttr.Value;
if xmlAttr.Name = 'rate' then
if Evaluate(Rate, xmlAttr.Value) then begin
if TargetCurrencies.Contains(TargetCurrency) then begin
if CurrencyExchangeRate.Get('EUR', TargetCurrency, Today) then begin
CurrencyExchangeRate.Validate('Exchange Rate Amount', Rate);
CurrencyExchangeRate.Modify();
end else begin
CurrencyExchangeRate.Init();
CurrencyExchangeRate.Validate('Currency Code', TargetCurrency);
CurrencyExchangeRate.Validate('Starting Date', Today);
Let me know if you'd like help testing or extending this logic!
Best regards,
Daniele