Codeunit 109 Lookup State Manager, source in 29

Source29

src/Layers/W1/BaseApp/Utilities/LookupStateManager.Codeunit.al42 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 109 "Lookup State Manager"
{
    SingleInstance = true;

    trigger OnRun()
    begin

    end;

    var
        SavedVariant: Variant;
        RecordSaved: Boolean;

    procedure GetSavedRecord(): Variant
    begin
        if SavedVariant.IsRecord() then
            exit(SavedVariant);
    end;

    procedure ClearSavedRecord()
    begin
        clear(SavedVariant);
        RecordSaved := false;
    end;

    procedure IsRecordSaved(): Boolean
    begin
        exit(RecordSaved);
    end;

    procedure SaveRecord(var RecordVariant: Variant)
    begin
        SavedVariant := RecordVariant;
        RecordSaved := true;
    end;
}