Codeunit 1808 Assisted Setup Upgrade Tag in 24

// ------------------------------------------------------------------------------------------------
// 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;

using System.Upgrade;

codeunit 1808 "Assisted Setup Upgrade Tag"
{
    Access = Internal;
    InherentEntitlements = X;
    InherentPermissions = X;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Upgrade Tag", OnGetPerCompanyUpgradeTags, '', false, false)]
    local procedure RegisterPerCompanyTags(var PerCompanyUpgradeTags: List of [Code[250]])
    begin
        PerCompanyUpgradeTags.Add(GetDeleteAssistedSetupTag());
        PerCompanyUpgradeTags.Add(GetAssistedSetupToGuidedExperienceItemUpgradeTag());
    end;

    procedure GetDeleteAssistedSetupTag(): Code[250]
    begin
        exit('MS-309177-DeleteAssistedSetupToRecreateRecords-20190808');
    end;

    procedure GetAssistedSetupToGuidedExperienceItemUpgradeTag(): Code[250]
    begin
        exit('MS-366958-AssistedSetupToGuidedExperience-20210119');
    end;
}