JOP-AL

Objects/Codeunits

Codeunit 3996 Reten. Pol. Upgrade - BaseApp

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
System.DataAdministration
Versions
17-28

Versions171819202122232425262728

Source29

Source in 29

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