[Agent] Replace dotnet usage by system codeunit

src/System Application/App/AI/src/Copilot/CopilotAICapabilities.Page.al

@@ -4,6 +4,7 @@
 // ------------------------------------------------------------------------------------------------
 namespace System.AI;
 
+using System.Agents;
 using System.Environment;
 using System.Privacy;
 
@@ -310,12 +311,14 @@ page 7775 "Copilot AI Capabilities"
 
     trigger OnOpenPage()
     var
+        AgentUtilities: Codeunit "Agent Utilities";
         EnvironmentInformation: Codeunit "Environment Information";
         SystemPrivacyNoticeReg: Codeunit "System Privacy Notice Reg.";
         WithinGeo: Boolean;
         WithinEUDB: Boolean;
         TaskId: Integer;
     begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
         OnRegisterCopilotCapability();
 
         CopilotCapabilityImpl.CheckGeoAndEUDB(WithinGeo, WithinEUDB);

src/System Application/App/Agent/Interaction/AgentSession.Codeunit.al

@@ -20,9 +20,9 @@ codeunit 4312 "Agent Session"
     [Scope('OnPrem')]
     procedure IsAgentSession(var ActiveAgentMetadataProvider: Enum "Agent Metadata Provider"): Boolean
     var
-        AgentSessionImpl: Codeunit "Agent Session Impl.";
+        AgentUtilities: Codeunit "Agent Utilities";
     begin
-        exit(AgentSessionImpl.IsAgentSession(ActiveAgentMetadataProvider));
+        exit(AgentUtilities.IsAgentSession(ActiveAgentMetadataProvider));
     end;
 
     /// <summary>
@@ -32,8 +32,8 @@ codeunit 4312 "Agent Session"
     [Scope('OnPrem')]
     procedure GetCurrentSessionAgentTaskId(): BigInteger
     var
-        AgentSessionImpl: Codeunit "Agent Session Impl.";
+        AgentUtilities: Codeunit "Agent Utilities";
     begin
-        exit(AgentSessionImpl.GetCurrentSessionAgentTaskId());
+        exit(AgentUtilities.GetCurrentSessionAgentTaskId());
     end;
 }

src/System Application/App/Agent/Interaction/Internal/AgentTaskImpl.Codeunit.al

@@ -231,13 +231,6 @@ codeunit 4300 "Agent Task Impl."
         Summary := PageSummaryProvider.GetPageSummary(PageSummaryParameters);
     end;
 
-    procedure GetSessionAgentTaskId(): BigInteger
-    var
-        AgentALFunctions: DotNet AgentALFunctions;
-    begin
-        exit(AgentALFunctions.GetSessionAgentTaskId());
-    end;
-
     var
         MessageTextMustBeProvidedErr: Label 'You must provide a message text.';
         AreYouSureThatYouWantToRestartTheTaskQst: Label 'Are you sure that you want to restart the task?';

src/System Application/App/Agent/Setup/Agent.Codeunit.al

@@ -103,9 +103,9 @@ codeunit 4321 Agent
     [Scope('OnPrem')]
     procedure SetInstructions(AgentUserSecurityID: Guid; Instructions: SecretText)
     var
-        AgentImpl: Codeunit "Agent Impl.";
+        AgentUtilities: Codeunit "Agent Utilities";
     begin
-        AgentImpl.SetInstructions(AgentUserSecurityID, Instructions);
+        AgentUtilities.SetInstructions(AgentUserSecurityID, Instructions);
     end;
 
     /// <summary>

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

@@ -58,6 +58,13 @@ page 4320 "Agent Access Control"
         }
     }
 
+    trigger OnOpenPage()
+    var
+        AgentUtilities: Codeunit "Agent Utilities";
+    begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+    end;
+
     trigger OnAfterGetRecord()
     begin
         UpdateGlobalVariables();

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

@@ -192,10 +192,9 @@ page 4315 "Agent Card"
 
     trigger OnOpenPage()
     var
-        AgentSessionImpl: Codeunit "Agent Session Impl.";
+        AgentUtilities: Codeunit "Agent Utilities";
     begin
-        AgentSessionImpl.BlockPageFromBeingOpenedByAgent();
-
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
         if not Rec.WritePermission() then
             Error(YouDoNotHavePermissionToModifyThisAgentErr);
     end;

src/System Application/App/Agent/Setup/AgentImpl.Codeunit.al

@@ -53,27 +53,6 @@ codeunit 4301 "Agent Impl."
         ChangeAgentState(AgentUserSecurityID, false);
     end;
 
-    [NonDebuggable]
-    internal procedure SetInstructions(AgentUserSecurityID: Guid; Instructions: SecretText)
-    var
-        AgentALFunctions: DotNet AgentALFunctions;
-    begin
-        AgentALFunctions.SetInstructions(AgentUserSecurityID, Instructions.Unwrap());
-    end;
-
-    [NonDebuggable]
-    internal procedure GetInstructions(AgentUserSecurityID: Guid): SecretText
-    var
-        AgentALFunctions: DotNet AgentALFunctions;
-        InstructionsAsSecretText: SecretText;
-    begin
-        if IsNullGuid(AgentUserSecurityID) then
-            exit;
-
-        InstructionsAsSecretText := AgentALFunctions.GetInstructions(AgentUserSecurityID);
-        exit(InstructionsAsSecretText);
-    end;
-
     internal procedure InsertCurrentOwnerIfNoOwnersDefined(var Agent: Record Agent; var AgentAccessControl: Record "Agent Access Control")
     begin
         SetOwnerFilters(AgentAccessControl);

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

@@ -98,10 +98,10 @@ page 4316 "Agent List"
     trigger OnOpenPage()
     var
         AgentImpl: Codeunit "Agent Impl.";
-        AgentSessionImpl: Codeunit "Agent Session Impl.";
+        AgentUtilities: Codeunit "Agent Utilities";
         AgentMetadataProvider: Enum "Agent Metadata Provider";
     begin
-        AgentSessionImpl.BlockPageFromBeingOpenedByAgent();
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
         // Check if there are any agents available
         if AgentMetadataProvider.Names().Count() = 0 then
             AgentImpl.ShowNoAgentsAvailableNotification();

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

@@ -104,7 +104,11 @@ page 4317 "Agent User Settings"
     }
 
     trigger OnOpenPage()
+    var
+        AgentUtilities: Codeunit "Agent Utilities";
     begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+
         if not Rec.Initialized then
             UserSettings.GetUserSettings(Rec."User Security ID", Rec);
 

src/System Application/App/Agent/Setup/AgentUserSubform.PageExt.al

@@ -49,6 +49,13 @@ pageextension 4318 "Agent User Subform" extends "User Subform"
         }
     }
 
+    trigger OnOpenPage()
+    var
+        AgentUtilities: Codeunit "Agent Utilities";
+    begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+    end;
+
     trigger OnAfterGetRecord()
     begin
         UpdateGlobalVariables();

src/System Application/App/Extension Management/src/ExtensionManagement.Page.al

@@ -5,6 +5,7 @@
 
 namespace System.Apps;
 
+using System.Agents;
 using System.Environment;
 using System.Environment.Configuration;
 using System.Integration;
@@ -395,7 +396,11 @@ page 2500 "Extension Management"
     end;
 
     trigger OnOpenPage()
+    var
+        AgentUtilities: Codeunit "Agent Utilities";
     begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+
         DetermineEnvironmentConfigurations();
         SetExtensionManagementFilter();
         if not IsInstallAllowed then

src/System Application/App/Feature Key/src/FeatureManagement.Page.al

@@ -5,6 +5,8 @@
 
 namespace System.Environment.Configuration;
 
+using System.Agents;
+
 /// <summary>
 /// Page that enables a user to pick which new features to use
 /// </summary>
@@ -231,9 +233,12 @@ page 2610 "Feature Management"
 
     trigger OnOpenPage()
     var
+        AgentUtilities: Codeunit "Agent Utilities";
         FeatureIDFilter: Text;
         IgnoreFilter: Boolean;
     begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+
         OnOpenFeatureMgtPage(FeatureIDFilter, IgnoreFilter);
         if not IgnoreFilter and (FeatureIDFilter <> '') then begin
             Rec.FilterGroup(2);

src/System Application/App/Permission Sets/src/PermissionSet.Page.al

@@ -5,6 +5,7 @@
 
 namespace System.Security.AccessControl;
 
+using System.Agents;
 using System.Telemetry;
 using System.Security.User;
 
@@ -168,8 +169,11 @@ page 9855 "Permission Set"
 
     trigger OnOpenPage()
     var
+        AgentUtilities: Codeunit "Agent Utilities";
         FeatureTelemetry: Codeunit "Feature Telemetry";
     begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+
         FeatureTelemetry.LogUptake('0000HZJ', ComposablePermissionSetsTok, Enum::"Feature Uptake Status"::Discovered);
         UpdatePageParts();
     end;

src/System Application/App/Security Groups/src/SecurityGroups.Page.al

@@ -5,6 +5,7 @@
 
 namespace System.Security.AccessControl;
 
+using System.Agents;
 using System.Telemetry;
 using System.Utilities;
 using System.Security.User;
@@ -272,9 +273,12 @@ page 9871 "Security Groups"
 
     trigger OnOpenPage()
     var
+        AgentUtilities: Codeunit "Agent Utilities";
         FeatureTelemetry: Codeunit "Feature Telemetry";
         UserPermissions: Codeunit "User Permissions";
     begin
+        AgentUtilities.BlockPageFromBeingOpenedByAgent();
+
         CanManageUsersOnTenant := UserPermissions.CanManageUsersOnTenant(UserSecurityId());
         FeatureTelemetry.LogUptake('0000JGR', 'Security Groups', Enum::"Feature Uptake Status"::Discovered);
         RefreshData();