Page 9851 Permission Set List

namespace System.Security.AccessControl;

page 9851 "Permission Set List"
{
    Caption = 'Permission Set List';
    DeleteAllowed = false;
    Editable = false;
    InsertAllowed = false;
    ModifyAllowed = false;
    PageType = List;
    Permissions = TableData "Permission Set Link" = d,
                  TableData "Aggregate Permission Set" = rimd;
    SourceTable = "Permission Set Buffer";
    SourceTableTemporary = true;

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                Caption = 'Permission Set';
                field(PermissionSet; Rec."Role ID")
                {
                    ApplicationArea = Basic, Suite;
                    Caption = 'Permission Set';
                    Editable = false;
                }
                field(Name; Rec.Name)
                {
                    ApplicationArea = Basic, Suite;
                    Editable = false;
                }
                field(Type; Rec.Type)
                {
                    ApplicationArea = Basic, Suite;
                    Editable = false;
                    Enabled = false;
                }
                field("App Name"; Rec."App Name")
                {
                    ApplicationArea = Basic, Suite;
                    Caption = 'Extension Name';
                    Editable = false;
                }
            }
        }
    }

    actions
    {
    }

    trigger OnOpenPage()
    begin
        Rec.FillRecordBuffer();
    end;

    procedure GetSelectionFilter(var AggregatePermissionSet: Record "Aggregate Permission Set")
    begin
        AggregatePermissionSet.Reset();
        CurrPage.SetSelectionFilter(Rec);
        if Rec.FindSet() then
            repeat
                if AggregatePermissionSet.Get(Rec.Scope, Rec."App ID", Rec."Role ID") then
                    AggregatePermissionSet.Mark(true);
            until Rec.Next() = 0;
        Rec.Reset();
        AggregatePermissionSet.MarkedOnly(true);
    end;
}