Codeunit 9179 Application Area Mgmt. Facade

App
Base Application
Namespace
System.Environment.Configuration
Versions
17-28

Procedures, 59Events, 6Obsolete, 3

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/Modules/System/ApplicationArea/ApplicationAreaMgmtFacade.Codeunit.al471 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.Environment.Configuration;

codeunit 9179 "Application Area Mgmt. Facade"
{
    SingleInstance = true;
    InherentEntitlements = X;
    InherentPermissions = X;

    procedure GetApplicationAreaSetupRecFromCompany(var ApplicationAreaSetup: Record "Application Area Setup"; CompanyName: Text): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.GetApplicationAreaSetupRecFromCompany(ApplicationAreaSetup, CompanyName))
    end;

    procedure GetApplicationAreaSetup(): Text
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.GetApplicationAreas());
    end;

    procedure SetupApplicationArea()
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        ApplicationAreaMgmt.SetupApplicationArea();
    end;

    procedure IsFoundationEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsFoundationEnabled());
    end;

    procedure IsBasicOnlyEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsBasicOnlyEnabled());
    end;

    procedure IsAdvancedEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsAdvancedEnabled());
    end;

    procedure IsFixedAssetEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsFixedAssetEnabled());
    end;

    procedure IsJobsEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsJobsEnabled());
    end;

    procedure IsBasicHREnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsBasicHREnabled());
    end;

    procedure IsDimensionEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsDimensionEnabled());
    end;

    procedure IsLocationEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsLocationEnabled());
    end;

    procedure IsAssemblyEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsAssemblyEnabled());
    end;

    procedure IsItemChargesEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsItemChargesEnabled());
    end;

    procedure IsItemReferencesEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsItemReferencesEnabled());
    end;

    procedure IsItemTrackingEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsItemTrackingEnabled());
    end;

    procedure IsIntercompanyEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsIntercompanyEnabled());
    end;

    procedure IsSalesReturnOrderEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsSalesReturnOrderEnabled());
    end;

    procedure IsPurchaseReturnOrderEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsPurchaseReturnOrderEnabled());
    end;

    procedure IsCostAccountingEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsCostAccountingEnabled());
    end;

    procedure IsSalesBudgetEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsSalesBudgetEnabled());
    end;

    procedure IsPurchaseBudgetEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsPurchaseBudgetEnabled());
    end;

    procedure IsItemBudgetEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsItemBudgetEnabled());
    end;

    procedure IsSalesAnalysisEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsSalesAnalysisEnabled());
    end;

    procedure IsPurchaseAnalysisEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsPurchaseAnalysisEnabled());
    end;

    procedure IsInventoryAnalysisEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsInventoryAnalysisEnabled());
    end;

    procedure IsManufacturingEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsManufacturingEnabled());
    end;

    procedure IsPlanningEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsPlanningEnabled());
    end;

    procedure IsRelationshipMgmtEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsRelationshipMgmtEnabled());
    end;

    procedure IsServiceEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsServiceEnabled());
    end;

    procedure IsWarehouseEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsWarehouseEnabled());
    end;

    procedure IsReservationEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsReservationEnabled());
    end;

    procedure IsOrderPromisingEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsOrderPromisingEnabled());
    end;

    procedure IsCommentsEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsCommentsEnabled());
    end;

    procedure IsRecordLinksEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsRecordLinksEnabled());
    end;

    procedure IsNotesEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsNotesEnabled());
    end;

    procedure IsVATEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsVATEnabled());
    end;

    procedure IsSalesTaxEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsSalesTaxEnabled());
    end;

    procedure IsBasicCountryEnabled(CountryCode: Code[10]): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsBasicCountryEnabled(CountryCode));
    end;

    procedure IsSuiteEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsSuiteEnabled());
    end;

    procedure IsAllDisabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsAllDisabled());
    end;

    procedure IsPremiumEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsPremiumEnabled());
    end;

    procedure CheckAppAreaOnlyBasic()
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        ApplicationAreaMgmt.CheckAppAreaOnlyBasic();
    end;

    procedure IsValidExperienceTierSelected(SelectedExperienceTier: Text): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsValidExperienceTierSelected(SelectedExperienceTier));
    end;

    procedure LookupExperienceTier(var NewExperienceTier: Text): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.LookupExperienceTier(NewExperienceTier));
    end;

    procedure SaveExperienceTierCurrentCompany(NewExperienceTier: Text): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.SaveExperienceTierCurrentCompany(NewExperienceTier));
    end;

    procedure GetExperienceTierCurrentCompany(var ExperienceTier: Text): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.GetExperienceTierCurrentCompany(ExperienceTier));
    end;

    procedure RefreshExperienceTierCurrentCompany()
    var
        ExperienceTierSetup: Record "Experience Tier Setup";
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        if not ExperienceTierSetup.Get(CompanyName) then
            exit;
        ApplicationAreaMgmt.SetExperienceTierCurrentCompany(ExperienceTierSetup);
    end;

    procedure IsBasicExperienceEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsBasicExperienceEnabled());
    end;

    procedure IsEssentialExperienceEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsEssentialExperienceEnabled());
    end;

    procedure IsPremiumExperienceEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsPremiumExperienceEnabled());
    end;

    procedure IsCustomExperienceEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsCustomExperienceEnabled());
    end;

    procedure IsAdvancedExperienceEnabled(): Boolean
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        exit(ApplicationAreaMgmt.IsAdvancedExperienceEnabled());
    end;

    procedure GetBasicApplicationAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        ApplicationAreaMgmt.GetBasicExperienceAppAreas(TempApplicationAreaSetup);
    end;

    procedure GetEssentialExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        ApplicationAreaMgmt.GetEssentialExperienceAppAreas(TempApplicationAreaSetup);
    end;

    procedure GetPremiumExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        ApplicationAreaMgmt.GetPremiumExperienceAppAreas(TempApplicationAreaSetup);
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Application Area Mgmt.", 'OnGetBasicExperienceAppAreas', '', false, false)]
    local procedure RaiseOnGetBasicExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
        OnGetBasicExperienceAppAreas(TempApplicationAreaSetup);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnGetBasicExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Application Area Mgmt.", 'OnGetEssentialExperienceAppAreas', '', false, false)]
    local procedure RaiseOnGetEssentialExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
        OnGetEssentialExperienceAppAreas(TempApplicationAreaSetup);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnGetEssentialExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Application Area Mgmt.", 'OnGetPremiumExperienceAppAreas', '', false, false)]
    local procedure RaiseOnGetPremiumExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
        OnGetPremiumExperienceAppAreas(TempApplicationAreaSetup);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnGetPremiumExperienceAppAreas(var TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Application Area Mgmt.", 'OnBeforeLookupExperienceTier', '', false, false)]
    local procedure RaiseOnBeforeLookupExperienceTier(var TempExperienceTierBuffer: Record "Experience Tier Buffer" temporary)
    begin
        OnBeforeLookupExperienceTier(TempExperienceTierBuffer);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeLookupExperienceTier(var TempExperienceTierBuffer: Record "Experience Tier Buffer" temporary)
    begin
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Application Area Mgmt.", 'OnSetExperienceTier', '', false, false)]
    local procedure RaiseOnSetExperienceTier(ExperienceTierSetup: Record "Experience Tier Setup"; var TempApplicationAreaSetup: Record "Application Area Setup" temporary; var ApplicationAreasSet: Boolean)
    begin
        OnSetExperienceTier(ExperienceTierSetup, TempApplicationAreaSetup, ApplicationAreasSet);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnSetExperienceTier(ExperienceTierSetup: Record "Experience Tier Setup"; var TempApplicationAreaSetup: Record "Application Area Setup" temporary; var ApplicationAreasSet: Boolean)
    begin
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Application Area Mgmt.", 'OnValidateApplicationAreas', '', false, false)]
    local procedure RaiseOnValidateApplicationAreas(ExperienceTierSetup: Record "Experience Tier Setup"; TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
        OnValidateApplicationAreas(ExperienceTierSetup, TempApplicationAreaSetup);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnValidateApplicationAreas(ExperienceTierSetup: Record "Experience Tier Setup"; TempApplicationAreaSetup: Record "Application Area Setup" temporary)
    begin
    end;

    procedure SetHideApplicationAreaError(NewHideApplicationAreaError: Boolean)
    var
        ApplicationAreaMgmt: Codeunit "Application Area Mgmt.";
    begin
        ApplicationAreaMgmt.SetHideApplicationAreaError(NewHideApplicationAreaError);
    end;
}