Azure Blob Storage, Azure File Share and SharePoint Online Connector Apps

Apps/W1/File - Azure Blob Service Connector/app/app.json

@@ -0,0 +1,31 @@
+{
+    "id":  "c9ce86fe-cb70-4b79-be03-d21856b1a4ca",
+    "name":  "File - Azure Blob Service Connector",
+    "publisher":  "Microsoft",
+    "brief":  "Enable all users to use a Azure Blob Storage to save files from Business Central.",
+    "description":  "This app enables all users to store files in the smae azure blob storage in 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=2134520",
+    "url":  "https://go.microsoft.com/fwlink/?linkid=724011",
+    "logo":  "ExtensionLogo.png",
+    "application":  "24.0.0.0",
+    "internalsVisibleTo":  [],
+    "dependencies":  [],
+    "screenshots":  [],
+                    "platform":  "24.0.0.0",
+    "idRanges":  [
+                     {
+                         "from":  80100,
+                         "to":  80199
+                     }
+                 ],
+    "target":  "OnPrem",
+    "resourceExposurePolicy":  {
+                                   "allowDebugging":  false,
+                                   "allowDownloadingSource":  true,
+                                   "includeSourceInSymbolFile":  true
+                               },
+    "contextSensitiveHelpUrl":  "https://go.microsoft.com/fwlink/?linkid=2134520"
+}

Apps/W1/File - Azure Blob Service Connector/app/permissions/BlobStorEdit.PermissionSet.al

@@ -0,0 +1,18 @@
+// ------------------------------------------------------------------------------------------------
+// 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 80102 "Blob Stor. - Edit"
+{
+    Assignable = false;
+    Access = Public;
+    Caption = 'Blob Storage - Edit';
+
+    IncludedPermissionSets = "Blob Stor. - Read";
+
+    Permissions =
+        tabledata "Blob Storage Account" = imd;
+}

Apps/W1/File - Azure Blob Service Connector/app/permissions/BlobStorObjects.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;
+
+permissionset 80100 "Blob Stor. - Objects"
+{
+    Assignable = false;
+    Access = Public;
+    Caption = 'Blob Storage - Objects';
+
+    Permissions =
+        table "Blob Storage Account" = X,
+        codeunit "Blob Storage Connector Impl." = X,
+        page "Blob Storage Account Wizard" = X,
+        page "Blob Storage Container Lookup" = X,
+        page "Blob Storage Account" = X;
+}

Apps/W1/File - Azure Blob Service Connector/app/permissions/BlobStorRead.PermissionSet.al

@@ -0,0 +1,18 @@
+// ------------------------------------------------------------------------------------------------
+// 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 80101 "Blob Stor. - Read"
+{
+    Assignable = false;
+    Access = Public;
+    Caption = 'Blob Storage - Read';
+
+    IncludedPermissionSets = "Blob Stor. - Objects";
+
+    Permissions =
+        tabledata "Blob Storage Account" = r;
+}

Apps/W1/File - Azure Blob Service Connector/app/permissions/FileSystemAdminBlobStor.PermissionSetExt.al

@@ -0,0 +1,11 @@
+// ------------------------------------------------------------------------------------------------
+// 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;
+
+permissionsetextension 80100 "File System - Admin - Blob Stor." extends "File System - Admin"
+{
+    IncludedPermissionSets = "Blob Stor. - Edit";
+}

Apps/W1/File - Azure Blob Service Connector/app/src/BlobStorageAccount.Page.al

@@ -0,0 +1,96 @@
+// ------------------------------------------------------------------------------------------------
+// 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>
+/// Displays an account that was registered via the Blob Storage connector.
+/// </summary>
+page 80100 "Blob Storage Account"
+{
+    SourceTable = "Blob Storage Account";
+    Caption = 'Azure Blob Storage Account';
+    Permissions = tabledata "Blob Storage Account" = rimd;
+    PageType = Card;
+    Extensible = false;
+    InsertAllowed = false;
+    DataCaptionExpression = Rec.Name;
+
+    layout
+    {
+        area(Content)
+        {
+            field(NameField; Rec.Name)
+            {
+                ApplicationArea = All;
+                Caption = 'Account Name';
+                ToolTip = 'Specifies the name of the Storage account connection.';
+                ShowMandatory = true;
+                NotBlank = true;
+            }
+
+            field(StorageAccountNameField; Rec."Storage Account Name")
+            {
+                ApplicationArea = All;
+                Caption = 'Storage Account Name';
+                ToolTip = 'Specifies the Azure Storage name.';
+            }
+
+            field("Authorization Type"; Rec."Authorization Type")
+            {
+                ApplicationArea = All;
+                ToolTip = 'The way of authorizing used to access the Blob Storage.';
+            }
+
+            field(SecretField; Secret)
+            {
+                ApplicationArea = All;
+                Caption = 'Password';
+                Editable = SecretEditable;
+                ExtendedDatatype = Masked;
+                ToolTip = 'Specifies the Shared access signature Token or SharedKey.';
+
+                trigger OnValidate()
+                begin
+                    Rec.SetSecret(Secret);
+                end;
+            }
+
+            field(ContainerNameField; Rec."Container Name")
+            {
+                ApplicationArea = All;
+                Caption = 'Container Name';
+                ToolTip = 'Specifies the Azure Storage Container name.';
+
+                trigger OnLookup(var Text: Text): Boolean
+                var
+                    BlobStorageConnectorImpl: Codeunit "Blob Storage Connector Impl.";
+                begin
+                    CurrPage.Update();
+                    BlobStorageConnectorImpl.LookUpContainer(Rec, Rec."Authorization Type", Rec.GetSecret(Rec."Secret Key"), Text);
+                    exit(true);
+                end;
+            }
+        }
+    }
+
+    var
+        SecretEditable: Boolean;
+        [NonDebuggable]
+        Secret: Text;
+
+    trigger OnOpenPage()
+    begin
+        Rec.SetCurrentKey(Name);
+
+        if not IsNullGuid(Rec."Secret Key") then
+            Secret := '***';
+    end;
+
+    trigger OnAfterGetCurrRecord()
+    begin
+        SecretEditable := CurrPage.Editable();
+    end;
+}

Apps/W1/File - Azure Blob Service Connector/app/src/BlobStorageAccount.Table.al

@@ -0,0 +1,82 @@
+// ------------------------------------------------------------------------------------------------
+// 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>
+/// Holds the information for all file accounts that are registered via the Blob Storage connector
+/// </summary>
+table 80100 "Blob Storage Account"
+{
+    Access = Internal;
+
+    Caption = 'Azure Blob Storage Account';
+
+    fields
+    {
+        field(1; "Id"; Guid)
+        {
+            DataClassification = SystemMetadata;
+            Caption = 'Primary Key';
+        }
+
+        field(2; Name; Text[250])
+        {
+            DataClassification = CustomerContent;
+            Caption = 'Name of account';
+        }
+        field(3; "Storage Account Name"; Text[2048])
+        {
+            Caption = 'Storage Account Name';
+        }
+        field(4; "Container Name"; Text[2048])
+        {
+            Caption = 'Container Name';
+        }
+        field(7; "Authorization Type"; Enum "Blob Storage Auth. Type")
+        {
+            Caption = 'Authorization Type';
+        }
+        field(8; "Secret Key"; Guid)
+        {
+            DataClassification = SystemMetadata;
+        }
+    }
+
+    keys
+    {
+        key(PK; Id)
+        {
+            Clustered = true;
+        }
+    }
+
+    var
+        UnableToGetSecretMsg: Label 'Unable to get Blob Storage secret.';
+        UnableToSetSecretMsg: Label 'Unable to set Blob Storage secret.';
+
+    trigger OnDelete()
+    begin
+        if not IsNullGuid(Rec."Secret Key") then
+            if IsolatedStorage.Delete(Rec."Secret Key") then;
+    end;
+
+    [NonDebuggable]
+    procedure SetSecret(Secret: Text)
+    begin
+        if IsNullGuid(Rec."Secret Key") then
+            Rec."Secret Key" := CreateGuid();
+
+        if not IsolatedStorage.Set(Format(Rec."Secret Key"), Secret, DataScope::Company) then
+            Error(UnableToSetSecretMsg);
+    end;
+
+    [NonDebuggable]
+    procedure GetSecret(SecretKey: Guid) Secret: SecretText
+    begin
+        if not IsolatedStorage.Get(Format(SecretKey), DataScope::Company, Secret) then
+            Error(UnableToGetSecretMsg);
+    end;
+}