New System App Module for easy file systems access

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

@@ -0,0 +1,6 @@
+Provides an API that lets you connect file system accounts to Business Central so that people can access files outside BC. The file system module consists of the following main entities:
+
+### File Account
+An file account holds the information needed to access a file system from Business Central.
+
+...

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

@@ -0,0 +1,40 @@
+{
+    "id":  "c9c54414-80c3-4cc9-98c6-589158882774",
+    "name":  "File System",
+    "publisher":  "Microsoft",
+    "brief":  "Enables user to send emails from Business Central.",
+    "description":  "Enables user to send emails from Business Central.",
+    "version":  "25.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":  [
+                     ],
+    "internalsVisibleTo":  [
+                               {
+                                   "id":  "fff6eee5-083f-4f07-9a49-e34f7e2aad77",
+                                   "name":  "File Systen Test",
+                                   "publisher":  "Microsoft"
+                               },
+                               {
+                                   "id":  "f188754b-3ffb-443a-9507-f5fbdae3af2c",
+                                   "name":  "File System Test Library",
+                                   "publisher":  "Microsoft"
+                               }
+                           ],
+    "screenshots":  [
+
+                    ],
+    "platform":  "25.0.0.0",
+    "application": "25.0.0.0",
+    "idRanges":  [
+                     {
+                         "from":  70000,
+                         "to":  70199
+                     }
+                 ],
+    "target":  "OnPrem",
+    "contextSensitiveHelpUrl":  "https://go.microsoft.com/fwlink/?linkid=2134520"
+}

src/System Application/App/File System/permissions/FileSystemAdmin.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.FileSystem;
+
+permissionset 70000 "File System - Admin"
+{
+    Access = Public;
+    Assignable = true;
+    Caption = 'File System - Admin';
+
+    IncludedPermissionSets = "File System - Edit";
+
+    Permissions =
+        tabledata "File Account" = RMID,
+        tabledata "File System Connector" = RMID,
+        tabledata "File System Connector Logo" = RMID,
+        tabledata "File Account Scenario" = RMID,
+        tabledata "File Scenario" = RMID,
+        tabledata "File Account Content" = RMID;
+}

src/System Application/App/File System/permissions/FileSystemEdit.PermissionSet.al

@@ -0,0 +1,24 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.FileSystem;
+
+using System.Environment;
+
+permissionset 70002 "File System - Read"
+{
+    Access = Internal;
+    Assignable = false;
+
+    IncludedPermissionSets = "File System - Objects";
+
+    Permissions = tabledata "File Account" = r,
+        tabledata "File System Connector" = r,
+        tabledata "File System Connector Logo" = r,
+        tabledata "File Account Scenario" = r,
+        tabledata "File Scenario" = r,
+        tabledata "File Account Content" = r,
+        tabledata Media = r; // File System Account Wizard requires this
+}

src/System Application/App/File System/permissions/FileSystemObjects.PermissionSetExt.al

@@ -0,0 +1,34 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.FileSystem;
+
+permissionset 70001 "File System - Objects"
+{
+    Access = Internal;
+    Assignable = false;
+
+    Permissions =
+        table "File Account" = X,
+        table "File System Connector" = X,
+        table "File System Connector Logo" = X,
+        table "File Account Scenario" = X,
+        table "File Scenario" = X,
+        table "File Account Content" = X,
+        codeunit "File Account" = X,
+        codeunit "File Account Impl." = X,
+        codeunit "File Scenario" = X,
+        codeunit "File Pagination Data" = X,
+        codeunit "File System Impl." = X,
+        codeunit "File System" = X,
+        codeunit "File Scenario Impl." = X,
+        page "File Accounts" = X,
+        page "File Account Wizard" = X,
+        page "Folder Name Input" = X,
+        page "File Scenarios FactBox" = X,
+        page "File Scenarios for Account" = X,
+        page "File Scenario Setup" = X,
+        page "File Account Browser" = X;
+}

src/System Application/App/File System/permissions/FileSystemRead.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.FileSystem;
+
+using System.Environment;
+
+permissionset 70003 "File System - Edit"
+{
+    Access = Public;
+    Assignable = false;
+    Caption = 'File System - Edit';
+
+    IncludedPermissionSets = "File System - Read";
+
+    Permissions = tabledata "File System Connector Logo" = imd,
+                  tabledata "Tenant Media" = imd;
+}

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

@@ -0,0 +1,46 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.FileSystem;
+
+/// <summary>
+/// Provides functionality to work with file accounts.
+/// </summary>
+
+codeunit 70000 "File Account"
+{
+    Access = Public;
+
+    /// <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/File System/src/Account/FileAccount.Table.al

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