Page 9812 Set Web Service Access Key, source in 29

namespace System.Security.AccessControl;

using System.Security.User;

page 9812 "Set Web Service Access Key"
{
    Caption = 'Set Web Service Access Key';
    DataCaptionExpression = Rec."Full Name";
    InstructionalText = 'Set Web Service Access Key';
    PageType = StandardDialog;
    SourceTable = User;

    layout
    {
        area(content)
        {
            group(somegroup)
            {
                Caption = 'Setting a new Web Service key makes the old key not valid.';
            }
            field(NeverExpires; NeverExpires)
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Key Never Expires';
                ToolTip = 'Specifies that the web service access key cannot expire.';
            }
            field(ExpirationDate; ExpirationDate)
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Key Expiration Date';
                Editable = not NeverExpires;
                ToolTip = 'Specifies when the web service access key expires.';
            }
        }
    }

    actions
    {
    }

    trigger OnOpenPage()
    var
        UserPermissions: Codeunit "User Permissions";
    begin
        if Rec."User Security ID" <> UserSecurityId() then
            if not UserPermissions.CanManageUsersOnTenant(UserSecurityID()) then
                Error(CannotEditForOtherUsersErr);
    end;

    trigger OnQueryClosePage(CloseAction: Action): Boolean
    begin
        if CloseAction = ACTION::OK then
            if NeverExpires then
                IdentityManagement.CreateWebServicesKeyNoExpiry(Rec."User Security ID")
            else
                IdentityManagement.CreateWebServicesKey(Rec."User Security ID", ExpirationDate);
    end;

    var
        IdentityManagement: Codeunit "Identity Management";
        ExpirationDate: DateTime;
        NeverExpires: Boolean;
        CannotEditForOtherUsersErr: Label 'You can only change your own web service access keys.';
}