[Event Request] codeunit 1281 "Update Currency Exchange Rates" procedure SyncCurrencyExchangeRates()

[kmistrytnp]

Why do you need this change?

I need to be able to add an additional filter to CurrExchRateUpdateSetup before the repeat until loop

Describe the request

Current code

        CurrExchRateUpdateSetup.SetRange(Enabled, true);

        if CurrExchRateUpdateSetup.FindSet() then

New code

        CurrExchRateUpdateSetup.SetRange(Enabled, true);

        OnBeforeCurrExchRateUpdateSetupLoop(CurrExchRateUpdateSetup);

        if CurrExchRateUpdateSetup.FindSet() then

the new event would be as follows...

    [IntegrationEvent(false, false)]
    local procedure OnBeforeCurrExchRateUpdateSetupLoop(var CurrExchRateUpdateSetup: Record "Curr. Exch. Rate Update Setup")
    begin
    end;

Internal work item: AB#639745

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add a new integration event in SyncCurrencyExchangeRates() after CurrExchRateUpdateSetup.SetRange(Enabled, true); and before CurrExchRateUpdateSetup.FindSet() so extensions can apply additional filters to CurrExchRateUpdateSetup.

Location in SyncCurrencyExchangeRates() procedure:

CurrExchRateUpdateSetup.SetRange(Enabled, true);
OnSyncCurrencyExchangeRatesOnBeforeFindCurrExchRateUpdateSetup(CurrExchRateUpdateSetup);

if CurrExchRateUpdateSetup.FindSet() then
    repeat
        OnBeforeSyncCurrencyExchangeRatesLoop(CurrExchRateUpdateSetup);
        GetCurrencyExchangeData(CurrExchRateUpdateSetup, ResponseInStream, SourceName);
        UpdateCurrencyExchangeRates(CurrExchRateUpdateSetup, ResponseInStream, SourceName);
        LogTelemetryWhenExchangeRateUpdated();
    until CurrExchRateUpdateSetup.Next() = 0
else
    Error(NoSyncCurrencyExchangeRatesSetupErr);

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnSyncCurrencyExchangeRatesOnBeforeFindCurrExchRateUpdateSetup(var CurrExchRateUpdateSetup: Record "Curr. Exch. Rate Update Setup")
begin
end;

---

File: UpdateCurrencyExchangeRates.Codeunit.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Not accurate? Reply with /not-accurate (optional: add a short explanation). Your feedback improves future responses.