Page 710 Activity Log

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Utilities;

page 710 "Activity Log"
{
    ApplicationArea = Basic, Suite;
    Caption = 'Activity Log';
    DelayedInsert = false;
    DeleteAllowed = false;
    Editable = false;
    InsertAllowed = false;
    ModifyAllowed = false;
    PageType = List;
    UsageCategory = History;
    SourceTable = "Activity Log";
    SourceTableView = sorting("Activity Date")
                      order(descending);

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("Activity Date"; Rec."Activity Date")
                {
                    ApplicationArea = All;
                }
                field(Context; Rec.Context)
                {
                    ApplicationArea = All;
                }
                field(Status; Rec.Status)
                {
                    ApplicationArea = All;
                }
                field(Description; Rec.Description)
                {
                    ApplicationArea = All;
                }
                field("Activity Message"; Rec."Activity Message")
                {
                    ApplicationArea = All;
                }
                field(HasDetailedInfo; HasDetailedInfo)
                {
                    ApplicationArea = All;
                    Caption = 'Detailed Info Available';
                    ToolTip = 'Specifies if detailed activity log details exist. If so, choose the View Details action.';

                    trigger OnDrillDown()
                    begin
                        Rec.Export('', true);
                    end;
                }
            }
        }
    }

    actions
    {
        area(processing)
        {
            action(ViewDetails)
            {
                ApplicationArea = Suite;
                Caption = 'View Details';
                Ellipsis = true;
                Image = GetSourceDoc;
                ToolTip = 'Show more information about this activity.';

                trigger OnAction()
                begin
                    Rec.Export('', true);
                end;
            }
            action(Delete7days)
            {
                ApplicationArea = Suite;
                Caption = 'Delete Entries Older than 7 Days';
                Image = ClearLog;
                ToolTip = 'Removes entries that are older than 7 days from the log.';

                trigger OnAction()
                begin
                    Rec.DeleteEntries(7);
                end;
            }
            action(Delete0days)
            {
                ApplicationArea = Suite;
                Caption = 'Delete All Entries';
                Image = Delete;
                ToolTip = 'Empties the log. All entries will be deleted.';

                trigger OnAction()
                begin
                    Rec.DeleteEntries(0);
                end;
            }
        }
        area(Promoted)
        {
            group(Category_Process)
            {
                Caption = 'Process';

                actionref(ViewDetails_Promoted; ViewDetails)
                {
                }
            }
        }
    }

    trigger OnAfterGetRecord()
    begin
        HasDetailedInfo := Rec."Detailed Info".HasValue;
    end;

    trigger OnOpenPage()
    begin
        if Rec.FindFirst() then;
        Rec.SetAutoCalcFields("Detailed Info");
    end;

    var
        HasDetailedInfo: Boolean;
}