codeunit 50000 Installer
{
    Subtype = Install;

    trigger OnInstallAppPerDatabase();
    begin
        EnableFeatureKeys();
    end;

    local procedure EnableFeatureKeys()
    var
        ExtensibleExchangeRateAdjustmentLbl: Label 'ExtensibleExchangeRateAdjustment', Locked = true;
        ExtensibleInvoicePostingEngineLbl: Label 'ExtensibleInvoicePostingEngine', Locked = true;
    begin
        EnableFeatureKey(ExtensibleExchangeRateAdjustmentLbl);
        EnableFeatureKey(ExtensibleInvoicePostingEngineLbl);
    end;

    local procedure EnableFeatureKey(FeatureKeyName: Text)
    var
        FeatureKey: Record "Feature Key";
        FeatureManagementFacade: Codeunit "Feature Management Facade";
    begin
        if FeatureKey.Get(FeatureKeyName) then
            if FeatureKey.Enabled = FeatureKey.Enabled::None then begin
                FeatureKey.Enabled := FeatureKey.Enabled::"All Users";
                FeatureKey.Modify();
                FeatureManagementFacade.AfterValidateEnabled(FeatureKey);
            end;
    end;

}