Bugs/561761 create task without message system app (#2816)

#### Summary 
Add ability to create tasks without messages

#### Work Item(s) >
Fixes
[AB#561761](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/561761)

Author: nikolakukrika

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

@@ -38,4 +38,19 @@ codeunit 4303 "Agent Task"
     begin
         AgentTaskImpl.CreateTaskMessage(From, MessageText, ExternalMessageId, CurrentAgentTask);
     end;
+
+    /// <summary>
+    /// Create a new task  for the given agent user. No message is added to the task.
+    /// </summary>
+    /// <param name="AgentSecurityID">The security ID of the agent to create the task for.</param>
+    /// <param name="TaskTitle">The title of the task.</param>
+    /// <param name="ExternalId">The external ID of the task. This field is used to connect to external systems, like Message ID for emails.</param>
+    /// <param name="NewAgentTask">The new agent task record that was created.</param>
+    [Scope('OnPrem')]
+    procedure CreateTaskWithoutMessage(AgentSecurityID: Guid; TaskTitle: Text[150]; ExternalId: Text[2048]; var NewAgentTask: Record "Agent Task")
+    var
+        AgentTaskImpl: Codeunit "Agent Task Impl.";
+    begin
+        AgentTaskImpl.CreateTask(AgentSecurityID, TaskTitle, ExternalId, NewAgentTask);
+    end;
 }

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

@@ -52,6 +52,19 @@ codeunit 4300 "Agent Task Impl."
         Page.Run(Page::"Agent Task Step List", AgentTaskStep);
     end;
 
+    procedure CreateTask(AgentSecurityID: Guid; TaskTitle: Text[150]; ExternalId: Text[2048]; var NewAgentTask: Record "Agent Task")
+    begin
+        Clear(NewAgentTask);
+        NewAgentTask."Agent User Security ID" := AgentSecurityID;
+        NewAgentTask.Title := TaskTitle;
+        NewAgentTask."Created By" := UserSecurityId();
+        NewAgentTask."Needs Attention" := false;
+        NewAgentTask.Status := NewAgentTask.Status::Paused;
+        NewAgentTask."External ID" := ExternalId;
+        NewAgentTask.Insert();
+        StartTaskIfPossible(NewAgentTask);
+    end;
+
     procedure CreateTaskMessage(From: Text[250]; MessageText: Text; var CurrentAgentTask: Record "Agent Task")
     begin
         CreateTaskMessage(From, MessageText, '', CurrentAgentTask);
@@ -82,13 +95,7 @@ codeunit 4300 "Agent Task Impl."
         AgentTaskMessage.Insert();
 
         SetMessageText(AgentTaskMessage, MessageText);
-
-        // Only change the status if the task is in a status where it can be started again.
-        // If the task is running, we should not change the state, as platform will pickup a new message automatically.
-        if ((AgentTask.Status = AgentTask.Status::Paused) or (AgentTask.Status = AgentTask.Status::Completed)) then begin
-            AgentTask.Status := AgentTask.Status::Ready;
-            AgentTask.Modify(true);
-        end;
+        StartTaskIfPossible(AgentTask);
     end;
 
     procedure CreateUserInterventionTaskStep(UserInterventionRequestStep: Record "Agent Task Step")
@@ -170,6 +177,16 @@ codeunit 4300 "Agent Task Impl."
         exit(TextEncoding::UTF8);
     end;
 
+    local procedure StartTaskIfPossible(var AgentTask: Record "Agent Task")
+    begin
+        // Only change the status if the task is in a status where it can be started again.
+        // If the task is running, we should not change the state, as platform will pickup a new message automatically.
+        if ((AgentTask.Status = AgentTask.Status::Paused) or (AgentTask.Status = AgentTask.Status::Completed)) then begin
+            AgentTask.Status := AgentTask.Status::Ready;
+            AgentTask.Modify(true);
+        end;
+    end;
+
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"System Action Triggers", GetAgentTaskMessagePageId, '', true, true)]
     local procedure OnGetAgentTaskMessagePageId(var PageId: Integer)
     begin

src/System Application/App/Agent/Interaction/AgentTaskList.Page.al

@@ -9,7 +9,6 @@ page 4300 "Agent Task List"
 {
     PageType = List;
     ApplicationArea = All;
-    UsageCategory = Administration;
     SourceTable = "Agent Task";
     Caption = 'Agent Tasks';
     InsertAllowed = false;

src/System Application/App/Agent/Interaction/AgentTaskMessageList.Page.al

@@ -10,7 +10,6 @@ page 4301 "Agent Task Message List"
     PageType = List;
     ApplicationArea = All;
     Caption = 'Agent Task Messages';
-    UsageCategory = Administration;
     SourceTable = "Agent Task Message";
     CardPageId = "Agent Task Message Card";
     InsertAllowed = false;

src/System Application/App/Agent/Interaction/AgentTaskStepList.Page.al

@@ -9,7 +9,6 @@ page 4303 "Agent Task Step List"
 {
     PageType = List;
     ApplicationArea = All;
-    UsageCategory = Administration;
     SourceTable = "Agent Task Step";
     Caption = 'Agent Task Steps';
     InsertAllowed = false;