New System App Module for easy file systems access

src/System Application/App/External File Storage/README.md

@@ -0,0 +1,7 @@
+# External File Storage Module for Business Central
+Provides an API that lets you connect external cloud storage accounts to Business Central, allowing users to access files stored outside of Business Central.
+
+## Main Components
+
+### File Account
+A file account holds the information needed to access an external storage service from Business Central.

src/System Application/App/External File Storage/app.json

@@ -0,0 +1,70 @@
+{
+    "id":  "c9c54414-80c3-4cc9-98c6-589158882774",
+    "name":  "External File Storage",
+    "publisher":  "Microsoft",
+    "brief":  "Access external file storage services",
+    "description":  "Enables access to external file storage services from Business Central.",
+    "version":  "26.0.0.0",
+    "privacyStatement":  "https://go.microsoft.com/fwlink/?linkid=724009",
+    "EULA":  "https://go.microsoft.com/fwlink/?linkid=2009120",
+    "help":  "https://go.microsoft.com/fwlink/?linkid=2103698",
+    "url":  "https://go.microsoft.com/fwlink/?linkid=724011",
+    "logo":  "",
+    "dependencies":  [
+                        {
+                            "id":  "7e3b999e-1182-45d2-8b82-d5127ddba9b2",
+                            "name":  "DotNet Aliases",
+                            "publisher":  "Microsoft",
+                            "version":  "26.0.0.0"
+                        },
+                        {
+                            "id":  "872fe7e8-9893-40ae-ab94-c123ed30fdbd",
+                            "name":  "Extension Management",
+                            "publisher":  "Microsoft",
+                            "version":  "26.0.0.0"
+                        },
+                        {
+                            "id":  "de35f591-7216-4e60-8be1-1911d71a7fc2",
+                            "name":  "Telemetry",
+                            "publisher":  "Microsoft",
+                            "version":  "26.0.0.0"
+                        },
+                        {
+                            "id":  "0846d207-5dec-4c1b-afd8-6a25e1e14b9d",
+                            "name":  "Base64 Convert",
+                            "publisher":  "Microsoft",
+                            "version":  "26.0.0.0"
+                        },
+                        {
+                            "id":  "a4584a53-9345-458a-af20-d1df2fab7bd8",
+                            "name":  "Confirm Management",
+                            "publisher":  "Microsoft",
+                            "version":  "26.0.0.0"
+                        },
+                        {
+                            "id":  "e31ad830-3d46-472e-afeb-1d3d35247943",
+                            "name":  "BLOB Storage",
+                            "publisher":  "Microsoft",
+                            "version":  "26.0.0.0"
+                        }
+                    ],
+    "internalsVisibleTo":  [
+                               {
+                                   "id":  "f188754b-3ffb-443a-9507-f5fbdae3af2c",
+                                   "name":  "External File Storage Test Library",
+                                   "publisher":  "Microsoft"
+                               }
+                           ],
+    "screenshots":  [
+
+                    ],
+    "platform":  "26.0.0.0",
+    "idRanges":  [
+                     {
+                         "from":  9450,
+                         "to":  9459
+                     }
+                 ],
+    "target":  "OnPrem",
+    "contextSensitiveHelpUrl":  "https://go.microsoft.com/fwlink/?linkid=2134520"
+}

src/System Application/App/External File Storage/permissions/FileStorageAdmin.PermissionSet.al

@@ -0,0 +1,22 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.ExternalFileStorage;
+
+permissionset 9450 "File Storage - Admin"
+{
+    Access = Public;
+    Assignable = true;
+    Caption = 'External File Storage - Admin';
+
+    IncludedPermissionSets = "File Storage - Edit";
+
+    Permissions =
+        tabledata "Ext. File Storage Connector" = RIMD,
+        tabledata "File Storage Connector Logo" = RIMD,
+        tabledata "File Account Scenario" = RIMD,
+        tabledata "File Scenario" = RIMD,
+        tabledata "File Account Content" = RIMD;
+}

src/System Application/App/External File Storage/permissions/FileStorageEdit.PermissionSet.al

@@ -0,0 +1,20 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.ExternalFileStorage;
+
+using System.Environment;
+
+permissionset 9453 "File Storage - Edit"
+{
+    Access = Public;
+    Assignable = false;
+    Caption = 'File Storage - Edit';
+
+    IncludedPermissionSets = "File Storage - Read";
+
+    Permissions = tabledata "File Storage Connector Logo" = imd,
+                  tabledata "Tenant Media" = imd;
+}

src/System Application/App/External File Storage/permissions/FileStorageObjects.PermissionSet.al

@@ -0,0 +1,13 @@
+namespace System.ExternalFileStorage;
+
+permissionset 9452 "File Storage - Objects"
+{
+    Access = Internal;
+    Assignable = false;
+
+    Permissions =
+        table "File Account" = X,
+        table "File Account Content" = X,
+        table "File Account Scenario" = X,
+        table "File Scenario" = X;
+}

src/System Application/App/External File Storage/permissions/FileStorageRead.PermissionSet.al

@@ -0,0 +1,23 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.ExternalFileStorage;
+
+using System.Environment;
+
+permissionset 9451 "File Storage - Read"
+{
+    Access = Internal;
+    Assignable = false;
+    IncludedPermissionSets = "File Storage - Objects";
+
+    Permissions =
+        tabledata "Ext. File Storage Connector" = r,
+        tabledata "File Storage Connector Logo" = r,
+        tabledata "File Account Scenario" = r,
+        tabledata "File Scenario" = r,
+        tabledata "File Account Content" = r,
+        tabledata Media = r; // This permission is required by External File Storage Account Wizard
+}

src/System Application/App/External File Storage/src/Account/FileAccount.Codeunit.al

@@ -0,0 +1,48 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.ExternalFileStorage;
+
+/// <summary>
+/// Provides functionality to work with file accounts.
+/// </summary>
+
+codeunit 9450 "File Account"
+{
+    Access = Public;
+    InherentPermissions = X;
+    InherentEntitlements = X;
+
+    /// <summary>
+    /// Gets all of the file accounts registered in Business Central.
+    /// </summary>
+    /// <param name="LoadLogos">Flag, used to determine whether to load the logos for the accounts.</param>
+    /// <param name="TempFileAccount">Out parameter holding the file accounts.</param>
+    procedure GetAllAccounts(LoadLogos: Boolean; var TempFileAccount: Record "File Account" temporary)
+    begin
+        FileAccountImpl.GetAllAccounts(LoadLogos, TempFileAccount);
+    end;
+
+    /// <summary>
+    /// Gets all of the file accounts registered in Business Central.
+    /// </summary>
+    /// <param name="TempFileAccount">Out parameter holding the file accounts.</param>
+    procedure GetAllAccounts(var TempFileAccount: Record "File Account" temporary)
+    begin
+        FileAccountImpl.GetAllAccounts(false, TempFileAccount);
+    end;
+
+    /// <summary>
+    /// Checks if there is at least one file account registered in Business Central.
+    /// </summary>
+    /// <returns>True if there is any account registered in the system, otherwise - false.</returns>
+    procedure IsAnyAccountRegistered(): Boolean
+    begin
+        exit(FileAccountImpl.IsAnyAccountRegistered());
+    end;
+
+    var
+        FileAccountImpl: Codeunit "File Account Impl.";
+}

src/System Application/App/External File Storage/src/Account/FileAccount.Table.al

@@ -0,0 +1,43 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.ExternalFileStorage;
+
+/// <summary>
+/// A common representation of a file account.
+/// </summary>
+table 9450 "File Account"
+{
+    Extensible = false;
+    TableType = Temporary;
+
+    fields
+    {
+        field(1; "Account Id"; Guid) { }
+        field(2; Name; Text[250]) { }
+        field(4; Connector; Enum "Ext. File Storage Connector") { }
+        field(5; Logo; Media)
+        {
+            Access = Internal;
+        }
+    }
+
+    keys
+    {
+        key(PK; "Account Id", Connector)
+        {
+            Clustered = true;
+        }
+        key(Name; Name)
+        {
+            Description = 'Used for sorting';
+        }
+    }
+
+    fieldgroups
+    {
+        fieldgroup(Brick; Logo, Name) { }
+    }
+}