Page 1527 Workflow Change List FactBox

namespace System.Automation;

page 1527 "Workflow Change List FactBox"
{
    Caption = 'Changes to Approve';
    DeleteAllowed = false;
    Editable = false;
    InsertAllowed = false;
    ModifyAllowed = false;
    PageType = ListPart;
    ShowFilter = false;
    SourceTable = "Workflow - Record Change";

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("Field"; Rec."Field Caption")
                {
                    ApplicationArea = Suite;
                    Style = Strong;
                    ToolTip = 'Specifies the caption of the field that changes.';
                }
                field(NewValue; NewValue)
                {
                    ApplicationArea = Suite;
                    Caption = 'New Value';
                    Style = StrongAccent;
                    StyleExpr = true;
                    ToolTip = 'Specifies the field value after the field is changed.';
                }
                field(OldValue; OldValue)
                {
                    ApplicationArea = Suite;
                    Caption = 'Old Value';
                    ToolTip = 'Specifies the field value before the field is changed.';
                }
            }
        }
    }

    actions
    {
    }

    trigger OnAfterGetRecord()
    begin
        NewValue := Rec.GetFormattedNewValue(true);
        OldValue := Rec.GetFormattedOldValue(true);
    end;

    var
        NewValue: Text;
        OldValue: Text;

    procedure SetFilterFromApprovalEntry(ApprovalEntry: Record "Approval Entry") ReturnValue: Boolean
    begin
        Rec.SetRange("Record ID", ApprovalEntry."Record ID to Approve");
        Rec.SetRange("Workflow Step Instance ID", ApprovalEntry."Workflow Step Instance ID");
        ReturnValue := Rec.FindSet();
        CurrPage.Update(false);
    end;
}