JOP-AL

Objects/Codeunits

Codeunit 5434 Automation - Failure RSPackage

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
System.IO
Versions
17-28

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/System/RapidStart/AutomationFailureRSPackage.Codeunit.al27 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.IO;

codeunit 5434 "Automation - Failure RSPackage"
{
    TableNo = "Config. Package";

    trigger OnRun()
    begin
        if Rec."Import Status" in [Rec."Import Status"::InProgress, Rec."Import Status"::Scheduled] then begin
            Rec."Import Error" := CopyStr(GetLastErrorText(), 1, MaxStrLen(Rec."Import Error"));
            Rec.Validate("Import Status", Rec."Import Status"::Error);
        end else
            if Rec."Apply Status" in [Rec."Apply Status"::InProgress, Rec."Apply Status"::Scheduled] then begin
                Rec."Apply Error" := CopyStr(GetLastErrorText(), 1, MaxStrLen(Rec."Apply Error"));
                if Rec."Apply Error" = '' then
                    Rec."Apply Error" := ApplyErrorLbl;
                Rec.Validate("Apply Status", Rec."Apply Status"::Error);
            end;
        Rec.Modify(true);
        Commit();
    end;

    var
        ApplyErrorLbl: Label 'Applying configuration package failed.';
}