bcquality/microsoft/knowledge/data-modeling/delete-master-data-with-trigger.good.al

codeunit 50100 "Sample Currency Cleanup"
{
    procedure DeleteRetiredCurrencies(CurrencyFilter: Text)
    var
        Currency: Record Currency;
    begin
        Currency.SetFilter(Code, CurrencyFilter);
        // DeleteAll(true) runs Currency.OnDelete for each record: it errors while
        // open ledger entries use the code and removes the exchange rates itself.
        Currency.DeleteAll(true);
    end;
}