JOP-AL

Objects/Codeunits

Codeunit 510 Change Log Entry - Delete

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
System.Diagnostics
Versions
17-28

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/System/ChangeLog/ChangeLogEntryDelete.Codeunit.al16 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.Diagnostics;

codeunit 510 "Change Log Entry - Delete"
{
    Access = Internal;
    Permissions = TableData "Change Log Entry" = rd;
    TableNo = "Change Log Entry";

    trigger OnRun()
    begin
        Rec.SetRange("Field Log Entry Feature", "Field Log Entry Feature"::"Change Log");
        Rec.SetRange(Protected, true);
        Rec.Delete(); // do not call trigger as that will fail for protected entries
    end;
}