JOP-AL

Objects/Codeunits/Codeunit 3996 Reten. Pol. Upgrade - BaseApp

Codeunit 3996 Reten. Pol. Upgrade - BaseApp, source in 29

, Base Application, releases/29.x at a66254c3b8, checked

Source29

src/Layers/W1/BaseApp/OtherCapabilities/RetentionPolicy/RetenPolUpgradeBaseApp.Codeunit.al20 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.DataAdministration;

using System.Environment;

codeunit 3996 "Reten. Pol. Upgrade - BaseApp"
{
    Subtype = Upgrade;
    Access = Internal;

    trigger OnUpgradePerCompany()
    var
        RetenPolInstallBaseApp: Codeunit "Reten. Pol. Install - BaseApp";
        HybridDeployment: Codeunit "Hybrid Deployment";
    begin
        if not HybridDeployment.VerifyCanStartUpgrade(CompanyName()) then
            exit;

        RetenPolInstallBaseApp.AddAllowedTables(); // also sets the tag!
    end;
}