[WIP] Agent management changes

src/System Application/App/Agent/Permissions/AgentSystemPermissions.Codeunit.al

@@ -40,6 +40,17 @@ codeunit 4317 "Agent System Permissions"
         exit("Agent System Permissions Impl.".CurrentUserHasCanCreateCustomAgent());
     end;
 
+    /// <summary>
+    /// Gets whether the current user has permissions to manage a specific agent.
+    /// </summary>
+    /// <param name="AgentUserSecurityId">The user security id associated with the agent.</param>
+    /// <returns>True if the user has manage permissions for the specified agent, false otherwise.</returns>
+    [Scope('OnPrem')]
+    procedure CurrentUserCanManageAgent(AgentUserSecurityId: Guid): Boolean
+    begin
+        exit("Agent System Permissions Impl.".CurrentUserCanConfigureAgent(AgentUserSecurityId));
+    end;
+
     var
         "Agent System Permissions Impl.": Codeunit "Agent System Permissions Impl.";
 }

src/System Application/App/Agent/Permissions/Internal/AgentSystemPermissionsImpl.Codeunit.al

@@ -26,7 +26,20 @@ codeunit 4318 "Agent System Permissions Impl."
 
     procedure CurrentUserHasCanCreateCustomAgent(): Boolean
     begin
-        // exit(CurrentUserHasExecuteSystemPermission(9667)); // "Create Custom Agent", not supported yet.
+        exit(CurrentUserHasExecuteSystemPermission(9667)); // "Create Custom Agent"
+    end;
+
+    procedure CurrentUserCanConfigureAgent(AgentUserSecurityId: Guid): Boolean
+    var
+        Agent: Record Agent;
+    begin
+        if (CurrentUserHasCanManageAllAgentsPermission()) then
+            exit(true);
+
+        if Agent.Get(AgentUserSecurityId) then
+            if Agent."Can Curr. User Configure Agent" then
+                exit(true);
+
         exit(false);
     end;
 

src/System Application/App/Agent/Setup/AccessControls/ViewAgentPermissions.Page.al

@@ -20,6 +20,7 @@ page 4334 "View Agent Permissions"
     ModifyAllowed = false;
     InherentPermissions = X;
     InherentEntitlements = X;
+    Permissions = tabledata Agent = M;
 
     layout
     {

src/System Application/App/Agent/Setup/AgentCard.Page.al

@@ -194,7 +194,7 @@ page 4315 "Agent Card"
     begin
         AgentUtilities.BlockPageFromBeingOpenedByAgent();
 
-        if not AgentSystemPermissions.CurrentUserHasCanManageAllAgentsPermission() then
+        if not AgentSystemPermissions.CurrentUserCanManageAgent(Rec."User Security ID") then
             Error(YouDoNotHavePermissionToModifyThisAgentErr);
     end;