Codeunit 1503 Workflow Record Management, source in 29

namespace System.Automation;

codeunit 1503 "Workflow Record Management"
{
    SingleInstance = true;

    trigger OnRun()
    begin
    end;

    var
        VarArray: array[100] of Variant;
        NotSupportedTypeErr: Label 'The type is not supported.';
        NotEnoughSpaceErr: Label 'There is not enough space to save the record.';

    procedure BackupRecord(Variant: Variant) Idx: Integer
    var
        VariantArrayElem: Variant;
    begin
        OnBeforeBackupRecord(Variant);

        if not Variant.IsRecord then
            Error(NotSupportedTypeErr);

        for Idx := 1 to ArrayLen(VarArray) do begin
            VariantArrayElem := VarArray[Idx];
            if not VariantArrayElem.IsRecord then begin
                VarArray[Idx] := Variant;
                exit(Idx);
            end;
        end;

        Error(NotEnoughSpaceErr);
    end;

    procedure RestoreRecord(Index: Integer; var Variant: Variant)
    begin
        Variant := VarArray[Index];
        Clear(VarArray[Index]);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeBackupRecord(Variant: Variant)
    begin
    end;
}