Codeunit 7354 BaseApp ID, source in 29

Source29

src/Layers/W1/BaseApp/Utilities/BaseAppID.Codeunit.al23 lines, Copyright (c) Microsoft Corporation. MIT

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Utilities;

codeunit 7354 "BaseApp ID"
{
    SingleInstance = true;

    procedure Get(): Guid
    var
        EmptyGuid: Guid;
    begin
        if Info.Id() = EmptyGuid then
            NavApp.GetCurrentModuleInfo(Info);

        exit(Info.Id());
    end;

    var
        Info: ModuleInfo;
}