Codeunit 1632 Office Error Engine, source in 29

Source29

src/Layers/W1/BaseApp/CRM/Outlook/OfficeErrorEngine.Codeunit.al30 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.CRM.Outlook;

codeunit 1632 "Office Error Engine"
{
    SingleInstance = true;

    trigger OnRun()
    begin
    end;

    var
        ErrorMessage: Text;

    procedure ShowError(Message: Text)
    begin
        ErrorMessage := Message;
        PAGE.Run(PAGE::"Office Error Dlg");
    end;

    procedure GetError(): Text
    begin
        exit(ErrorMessage);
    end;
}