External Storage - Document Attachments

src/System Application/App/External File Storage/src/Scenario/FileScenario.Codeunit.al

@@ -60,6 +60,39 @@ codeunit 9452 "File Scenario"
         FileScenarioImpl.UnassignScenario(Scenario);
     end;
 
+    /// <summary>
+    /// Event for additional setup of a file scenario.
+    /// </summary>
+    /// <param name="Scenario">The scenario to set up.</param>
+    /// <param name="Connector">The connector to use.</param>
+    /// <param name="IsHandled">Indicates whether the event was handled.</param>
+    procedure GetAdditionalScenarioSetup(Scenario: Integer; Connector: Enum System.ExternalFileStorage."Ext. File Storage Connector"; var IsHandled: Boolean)
+    begin
+        OnScenarioSetupAction(Scenario, Connector, IsHandled);
+    end;
+
+    /// <summary>
+    /// Checks whether a file scenario can be deleted.
+    /// </summary>
+    /// <param name="Scenario">The scenario to check.</param>
+    /// <param name="Connector">The connector to use.</param>
+    /// <param name="IsHandled">Indicates whether the event was handled.</param>
+    procedure BeforeDeleteFileScenarioCheck(Scenario: Integer; Connector: Enum System.ExternalFileStorage."Ext. File Storage Connector"; var IsHandled: Boolean)
+    begin
+        OnBeforeFileScenarioDelete(Scenario, Connector, IsHandled);
+    end;
+
+    /// <summary>
+    /// Checks whether a file scenario can be added or modified.
+    /// </summary>
+    /// <param name="Scenario">The scenario to check.</param>
+    /// <param name="Connector">The connector to use.</param>
+    /// <param name="IsHandled">Indicates whether the event was handled.</param>
+    procedure BeforeAddOrModifyFileScenarioCheck(Scenario: Integer; Connector: Enum System.ExternalFileStorage."Ext. File Storage Connector"; var IsHandled: Boolean)
+    begin
+        OnBeforeAddOrModifyFileScenario(Scenario, Connector, IsHandled);
+    end;
+
     /// <summary>
     /// Event for changing whether an file scenario should be added to the list of assignable scenarios.
     /// If the scenario has already been assigned or is the default scenario, this event won't be published.
@@ -71,6 +104,39 @@ codeunit 9452 "File Scenario"
     begin
     end;
 
+    /// <summary>
+    /// Event for additional setup of a file scenario.
+    /// </summary>
+    /// <param name="Scenario">The scenario to set up.</param>
+    /// <param name="Connector">The connector to use.</param>
+    /// <param name="IsHandled">Indicates whether the event was handled.</param>
+    [IntegrationEvent(false, false, true)]
+    internal procedure OnScenarioSetupAction(Scenario: Integer; Connector: Enum System.ExternalFileStorage."Ext. File Storage Connector"; var IsHandled: Boolean)
+    begin
+    end;
+
+    /// <summary>
+    /// Event that is raised before a file scenario is added or modified.
+    /// </summary>
+    /// <param name="Scenario">The scenario to add or modify.</param>
+    /// <param name="Connector">The connector to use.</param>
+    /// <param name="IsHandled">Indicates whether the event was handled.</param>
+    [IntegrationEvent(false, false, true)]
+    internal procedure OnBeforeAddOrModifyFileScenario(Scenario: Integer; Connector: Enum System.ExternalFileStorage."Ext. File Storage Connector"; var IsHandled: Boolean)
+    begin
+    end;
+
+    /// <summary>
+    /// Event that is raised before a file scenario is deleted.
+    /// </summary>
+    /// <param name="Scenario">The scenario to delete.</param>
+    /// <param name="Connector">The connector to use.</param>
+    /// <param name="IsHandled">Indicates whether the event was handled.</param>
+    [IntegrationEvent(false, false, true)]
+    internal procedure OnBeforeFileScenarioDelete(Scenario: Integer; Connector: Enum System.ExternalFileStorage."Ext. File Storage Connector"; var IsHandled: Boolean)
+    begin
+    end;
+
     var
         FileScenarioImpl: Codeunit "File Scenario Impl.";
 }

src/System Application/App/External File Storage/src/Scenario/FileScenarioImpl.Codeunit.al

@@ -173,7 +173,9 @@ codeunit 9453 "File Scenario Impl."
     var
         TempSelectedFileAccScenarios: Record "File Account Scenario" temporary;
         FileScenario: Record "File Scenario";
+        FileScenarioMgt: Codeunit "File Scenario";
         FileScenariosForAccount: Page "File Scenarios for Account";
+        IsHandled: Boolean;
     begin
         FileAccountImpl.CheckPermissions();
 
@@ -193,6 +195,11 @@ codeunit 9453 "File Scenario Impl."
             exit;
 
         repeat
+            IsHandled := false;
+            FileScenarioMgt.BeforeAddOrModifyFileScenarioCheck(TempSelectedFileAccScenarios.Scenario, TempSelectedFileAccScenarios.Connector, IsHandled);
+            if IsHandled then
+                exit;
+
             if not FileScenario.Get(TempSelectedFileAccScenarios.Scenario) then begin
                 FileScenario."Account Id" := TempFileAccountScenario."Account Id";
                 FileScenario.Connector := TempFileAccountScenario.Connector;
@@ -289,6 +296,8 @@ codeunit 9453 "File Scenario Impl."
     procedure DeleteScenario(var TempFileAccountScenario: Record "File Account Scenario" temporary): Boolean
     var
         FileScenario: Record "File Scenario";
+        FileScenarioMgt: Codeunit "File Scenario";
+        IsHandled: Boolean;
     begin
         FileAccountImpl.CheckPermissions();
 
@@ -301,7 +310,10 @@ codeunit 9453 "File Scenario Impl."
                 FileScenario.SetRange("Account Id", TempFileAccountScenario."Account Id");
                 FileScenario.SetRange(Connector, TempFileAccountScenario.Connector);
 
-                FileScenario.DeleteAll();
+                IsHandled := false;
+                FileScenarioMgt.BeforeDeleteFileScenarioCheck(TempFileAccountScenario.Scenario, TempFileAccountScenario.Connector, IsHandled);
+                if not IsHandled then
+                    FileScenario.DeleteAll();
             end;
         until TempFileAccountScenario.Next() = 0;
 

src/System Application/App/External File Storage/src/Scenario/FileScenarioSetup.Page.al

@@ -80,6 +80,25 @@ page 9452 "File Scenario Setup"
 
             group(Scenario)
             {
+                action(ScenarioSetup)
+                {
+                    Visible = (TypeOfEntry = TypeOfEntry::Scenario) and CanUserManageFileSetup;
+                    Caption = 'Additional Scenario Setup';
+                    ToolTip = 'Additional scenario setup for the selected scenario.';
+                    Image = Setup;
+                    Scope = Repeater;
+                    trigger OnAction()
+                    var
+                        FileScenario: Codeunit "File Scenario";
+                        NoSetupAvailableMsg: Label 'No additional setup is available for this scenario.';
+                        IsHandled: Boolean;
+                    begin
+                        IsHandled := false;
+                        FileScenario.GetAdditionalScenarioSetup(Rec.Scenario, Rec.Connector, IsHandled);
+                        if not IsHandled then
+                            Message(NoSetupAvailableMsg);
+                    end;
+                }
                 action(ChangeAccount)
                 {
                     Visible = (TypeOfEntry = TypeOfEntry::Scenario) and CanUserManageFileSetup;
@@ -123,6 +142,7 @@ page 9452 "File Scenario Setup"
             group(Category_Process)
             {
                 actionref(AddScenario_Promoted; AddScenario) { }
+                actionref(ScenarioSetup_Promoted; ScenarioSetup) { }
                 actionref(ChangeAccount_Promoted; ChangeAccount) { }
                 actionref(Unassign_Promoted; Unassign) { }
             }