diff --git a/src/System Application/App/Agent/Setup/SetupPart/AgentSetup.Codeunit.al b/src/System Application/App/Agent/Setup/SetupPart/AgentSetup.Codeunit.al index fa206bc07b..d5de626370 100644 --- a/src/System Application/App/Agent/Setup/SetupPart/AgentSetup.Codeunit.al +++ b/src/System Application/App/Agent/Setup/SetupPart/AgentSetup.Codeunit.al @@ -31,6 +31,17 @@ codeunit 4324 "Agent Setup" AgentSetupImpl.GetSetupRecord(AgentSetupBuffer, UserSecurityID, AgentMetadataProvider, DefaultUserName, DefaultDisplayName, AgentSummary); end; + /// + /// Copies the setup record from the source buffer to the target buffer. + /// + /// that will receive the setup data. + /// that contains the setup data to be copied. + procedure CopySetupRecord(var Target: Record "Agent Setup Buffer"; var Source: Record "Agent Setup Buffer") + begin + FeatureAccessManagement.AgentTaskManagementPreviewEnabled(true); + AgentSetupImpl.CopySetupRecord(Target, Source); + end; + /// /// Saves changes done. If the agent does not exist we will create a new agent otherwise we will update the agent. /// diff --git a/src/System Application/App/Agent/Setup/SetupPart/AgentSetupImpl.Codeunit.al b/src/System Application/App/Agent/Setup/SetupPart/AgentSetupImpl.Codeunit.al index 05e7af166c..6dc398b5b6 100644 --- a/src/System Application/App/Agent/Setup/SetupPart/AgentSetupImpl.Codeunit.al +++ b/src/System Application/App/Agent/Setup/SetupPart/AgentSetupImpl.Codeunit.al @@ -204,7 +204,7 @@ codeunit 4325 "Agent Setup Impl." exit(NewSummaryText); end; - internal procedure CopyAgentSetupBuffer(var Target: Record "Agent Setup Buffer"; var Source: Record "Agent Setup Buffer") + internal procedure CopySetupRecord(var Target: Record "Agent Setup Buffer"; var Source: Record "Agent Setup Buffer") var TempUserSettings: Record "User Settings" temporary; TempAccessControl: Record "Agent Access Control" temporary; diff --git a/src/System Application/App/Agent/Setup/SetupPart/AgentSetupPart.Page.al b/src/System Application/App/Agent/Setup/SetupPart/AgentSetupPart.Page.al index 0c3b23ffb0..64e0cd10b8 100644 --- a/src/System Application/App/Agent/Setup/SetupPart/AgentSetupPart.Page.al +++ b/src/System Application/App/Agent/Setup/SetupPart/AgentSetupPart.Page.al @@ -122,7 +122,7 @@ page 4310 "Agent Setup Part" var AgentSetupImpl: Codeunit "Agent Setup Impl."; begin - AgentSetupImpl.CopyAgentSetupBuffer(AgentSetupBuffer, Rec); + AgentSetupImpl.CopySetupRecord(AgentSetupBuffer, Rec); end; /// @@ -136,7 +136,7 @@ page 4310 "Agent Setup Part" var AgentSetupImpl: Codeunit "Agent Setup Impl."; begin - AgentSetupImpl.CopyAgentSetupBuffer(Rec, AgentSetupBuffer); + AgentSetupImpl.CopySetupRecord(Rec, AgentSetupBuffer); AgentSummary := AgentSetupImpl.GetAgentSummary(AgentSetupBuffer); UpdateAgentSummaryDisplayText(); UpdateAgentPublisherText();