Skip to content

Uptake/permission apis #29785

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
BenPlunk wants to merge 3 commits into
base: main
Choose a base branch
from
+473 −0
Open

Uptake/permission apis #29785

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
80e8dee
Added new permission APIs
BenPlunk Mar 3, 2026
3370027
Minor updates
BenPlunk Mar 3, 2026
2d03963
Merged PR 41122: Added new permission APIs
BenPlunk Mar 3, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
96 changes: 96 additions & 0 deletions Apps/W1/APIV2/app/src/pages/APIV2AccessControl.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,96 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace System.Security.AccessControl;

page 2149 "APIV2 - Access Control"
{
APIGroup = 'automation';
APIPublisher = 'microsoft';
APIVersion = 'v2.0';
EntityCaption = 'Access Control';
EntitySetCaption = 'Access Controls';
EntityName = 'accessControl';
EntitySetName = 'accessControls';
Editable = false;
DeleteAllowed = false;
InsertAllowed = false;
ModifyAllowed = false;
PageType = API;
SourceTable = "Access Control";
ODataKeyFields = SystemId;
DataAccessIntent = ReadOnly;

layout
{
area(Content)
{
repeater(Group)
{
field(id; Rec.SystemId)
{
Caption = 'Id';
}
field(userSecurityID; Rec."User Security ID")
{
Caption = 'User Security ID';
}
field(roleID; Rec."Role ID")
{
Caption = 'Role ID';
}
field(roleName; Rec."Role Name")
{
Caption = 'Role Name';
}
field(company; Rec."Company Name")
{
Caption = 'Company';
}
field(userName; Rec."User Name")
{
Caption = 'User Name';
}
field(fullName; UserFullName)
{
Caption = 'Full Name';
}
field(userLicenseType; UserLicenseType)
{
Caption = 'User License Type';
}
field(scope; Rec.Scope)
{
Caption = 'Scope';
}
field(appID; Rec."App ID")
{
Caption = 'App ID';
}
field(appName; Rec."App Name")
{
Caption = 'App Name';
}
}
}
}

var
User: Record User;
UserFullName: Text;
UserLicenseType: Text;

trigger OnAfterGetRecord()
begin
User.SetLoadFields("Full Name", "License Type");
if User."User Security ID" <> Rec."User Security ID" then
if User.Get(Rec."User Security ID") then begin
UserFullName := User."Full Name";
UserLicenseType := Format(User."License Type");
end else begin
UserFullName := '';
UserLicenseType := '';
end;
end;
}
8 changes: 8 additions & 0 deletions Apps/W1/APIV2/app/src/pages/APIV2AutSecGrMembers.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -43,6 +43,14 @@ page 30081 "APIV2 - Aut. Sec. Gr. Members"
Editable = false;
Caption = 'Security Group Name';
}
field(userName; Rec."User Name")
{
Caption = 'User Name';
}
field(userFullName; Rec."User Full Name")
{
Caption = 'User Full Name';
}
}
}
}
Expand Down
20 changes: 20 additions & 0 deletions Apps/W1/APIV2/app/src/pages/APIV2AutSecurityGroups.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,18 @@ page 30082 "APIV2 - Aut. Security Groups"
Caption = 'Group Name';
Editable = false;
}
field(groupUserSecurityID; Rec."Group User SID")
{
Caption = 'Group User Security Id';
}
field(groupId; Rec."Group ID")
{
Caption = 'Group Id';
}
field(retrievedSuccessfully; Rec."Retrieved Successfully")
{
Caption = 'Retrieved Successfully';
}
part(securityGroupMembers; "APIV2 - Aut. Sec. Gr. Members")
{
Caption = 'User Group Member';
Expand All @@ -56,6 +68,14 @@ page 30082 "APIV2 - Aut. Security Groups"
EntitySetName = 'userPermissions';
SubPageLink = "User Security ID" = field("Group User SID");
}
part(permissionSets; "APIV2 - Access Control")
{
Caption = 'Permission Sets';
EntityName = 'accessControl';
EntitySetName = 'accessControls';
Multiplicity = Many;
SubPageLink = "User Security ID" = field("Group User SID");
}
}
}
}
Expand Down
108 changes: 108 additions & 0 deletions Apps/W1/APIV2/app/src/pages/APIV2ExpandedPermissionSets.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,108 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace System.Security.AccessControl;

using System.Apps;

page 20766 "APIV2 Expanded Permission Sets"
{
APIGroup = 'auditing';
APIPublisher = 'microsoft';
APIVersion = 'v2.0';
EntityCaption = 'Expanded Permission Set';
EntitySetCaption = 'Expanded Permission Sets';
EntityName = 'expandedPermissionSet';
EntitySetName = 'expandedPermissionSets';
Editable = false;
DeleteAllowed = false;
InsertAllowed = false;
ModifyAllowed = false;
DataAccessIntent = ReadOnly;
PageType = API;
SourceTable = "Expanded Permission";
SourceTableView = where(Ap = filter('<> Exclude'));
ODataKeyFields = SystemId;

layout
{
area(Content)
{
repeater(Group)
{
field(id; Rec.SystemId)
{
Caption = 'Id';
}
field(appID; Rec."App ID")
{
Caption = 'App ID';
}
field(appName; AppName)
{
Caption = 'App Name';
}
field(roleID; Rec."Role ID")
{
Caption = 'Role ID';
}
field(roleName; Rec."Role Name")
{
Caption = 'Role Name';
}
field(objectType; Rec."Object Type")
{
Caption = 'Object Type';
}
field(objectID; Rec."Object ID")
{
Caption = 'Object ID';
}
field(objectName; Rec."Object Name")
{
Caption = 'Object Name';
}
field(readPermission; Rec."Read Permission")
{
Caption = 'Read Permission';
}
field(insertPermission; Rec."Insert Permission")
{
Caption = 'Insert Permission';
}
field(modifyPermission; Rec."Modify Permission")
{
Caption = 'Modify Permission';
}
field(deletePermission; Rec."Delete Permission")
{
Caption = 'Delete Permission';
}
field(executePermission; Rec."Execute Permission")
{
Caption = 'Execute Permission';
}
field(alObjectName; Rec."AL Object Name")
{
Caption = 'AL Object Name';
}
field(scope; Rec.Scope)
{
Caption = 'Scope';
}
}
}
}

var
ExtensionManagement: Codeunit "Extension Management";
AppName: Text;

trigger OnAfterGetRecord()
begin
Clear(AppName);
if not IsNullGuid(Rec."App ID") then
AppName := ExtensionManagement.GetAppName(Rec."App ID");
end;
}
67 changes: 67 additions & 0 deletions Apps/W1/APIV2/app/src/pages/APIV2PermissionSets.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,67 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace System.Security.AccessControl;

page 30003 "APIV2 - Permission Sets"
{
APIGroup = 'automation';
APIPublisher = 'microsoft';
APIVersion = 'v2.0';
EntityCaption = 'Permission Set';
EntitySetCaption = 'Permission Sets';
EntityName = 'aggregatePermissionSet';
EntitySetName = 'aggregatePermissionSets';
Editable = false;
DeleteAllowed = false;
InsertAllowed = false;
ModifyAllowed = false;
DataAccessIntent = ReadOnly;
PageType = API;
SourceTable = "Aggregate Permission Set";
SourceTableView = where("App Name" = filter('<> *_Exclude_*'));
ODataKeyFields = SystemId;

layout
{
area(Content)
{
repeater(Group)
{
field(id; Rec.SystemId)
{
Caption = 'Id';
}
field(appID; Rec."App ID")
{
Caption = 'App Id';
}
field(appName; Rec."App Name")
{
Caption = 'App Name';
}
field(name; Rec.Name)
{
Caption = 'Name';
}
field(roleID; Rec."Role ID")
{
Caption = 'Role Id';
}
field(scope; Rec.Scope)
{
Caption = 'Scope';
}
part(accessControl; "APIV2 - Access Control")
{
Caption = 'Access Control';
EntityName = 'accessControl';
EntitySetName = 'accessControls';
Multiplicity = Many;
SubPageLink = "Role ID" = field("Role ID");
}
}
}
}
}
Loading
Loading