Codeunit 9901 Data Upgrade In Progress

Jonas Paprotka, Base Application 28.5.54151.54365, checked 2026-09-20

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

Versions17 18 19 20 21 22 23 24 25 26 27 28

Source29

Source in 29

src/Layers/W1/BaseApp/DataUpgradeInProgress.Codeunit.al22 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 System.Environment.Configuration;

codeunit 9901 "Data Upgrade In Progress"
{
    EventSubscriberInstance = Manual;

    trigger OnRun()
    begin
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Data Upgrade Mgt.", 'OnIsUpgradeInProgress', '', false, false)]
    local procedure OnIsUpgradeInProgressHandler(var UpgradeIsInProgress: Boolean)
    begin
        UpgradeIsInProgress := true;
    end;
}