Page 1754 Data Subject

App
Base Application
Namespace
System.Privacy
Versions
17-28
Source table
1180

Versions171819202122232425262728

Source29

Source in 29

src/Layers/W1/BaseApp/System/Privacy/DataSubject.Page.al79 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.Privacy;

page 1754 "Data Subject"
{
    Extensible = false;
    DeleteAllowed = false;
    Editable = false;
    LinksAllowed = false;
    PageType = List;
    ShowFilter = false;
    SourceTable = "Data Privacy Entities";
    SourceTableTemporary = true;

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("Table Caption"; Rec."Table Caption")
                {
                    ApplicationArea = All;
                    ShowCaption = false;
                    Style = StandardAccent;
                    StyleExpr = true;

                    trigger OnDrillDown()
                    begin
                        PAGE.Run(Rec."Page No.");
                    end;
                }
            }
        }
    }

    actions
    {
        area(processing)
        {
            action("Data Privacy Setup")
            {
                ApplicationArea = All;
                Caption = 'Data Privacy Utility';
                Image = Setup;
                ToolTip = 'Open the Data Privacy Setup page.';

                trigger OnAction()
                var
                    DataPrivacyWizard: Page "Data Privacy Wizard";
                begin
                    if Rec."Table Caption" <> '' then begin
                        DataPrivacyWizard.SetEntitityType(Rec, Rec."Table Caption");
                        DataPrivacyWizard.RunModal();
                    end;
                end;
            }
        }
        area(Promoted)
        {
            group(Category_Process)
            {
                Caption = 'Process';

                actionref("Data Privacy Setup_Promoted"; "Data Privacy Setup")
                {
                }
            }
        }
    }

    trigger OnInit()
    var
        DataClassificationMgt: Codeunit "Data Classification Mgt.";
    begin
        DataClassificationMgt.RaiseOnGetDataPrivacyEntities(Rec);
    end;
}