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

Apps/W1/File - Azure BLOB Storage Connector/app/app.json

@@ -0,0 +1,46 @@
+{
+    "id":  "c9ce86fe-cb70-4b79-be03-d21856b1a4ca",
+    "name":  "File - Azure BLOB Storage 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":  "22.1.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":  "22.0.0.0",
+    "internalsVisibleTo":  [
+
+                           ],
+    "dependencies":  [
+                         {
+                            "id":  "c9c54414-80c3-4cc9-98c6-589158882774",
+                            "name":  "File Access",
+                            "publisher":  "Microsoft",
+                            "version":  "22.1.0.0"
+                         }
+                     ],
+    "screenshots":  [
+
+                    ],
+    "platform":  "22.0.0.0",
+    "idRanges":  [
+                     {
+                         "from":  80100,
+                         "to":  80199
+                     },
+                     {
+                         "from":  2147483647,
+                         "to":  2147483647
+                     }
+                 ],
+    "target":  "OnPrem",
+    "resourceExposurePolicy":  {
+                                   "allowDebugging":  false,
+                                   "allowDownloadingSource":  true,
+                                   "includeSourceInSymbolFile":  true
+                               },
+    "contextSensitiveHelpUrl":  "https://go.microsoft.com/fwlink/?linkid=2134520"
+}

Apps/W1/File - Azure BLOB Storage Connector/app/src/BlobStorageAccount.Page.al

@@ -0,0 +1,84 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+/// <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(Password; Password)
+            {
+                ApplicationArea = All;
+                Caption = 'Password';
+                Editable = PasswordEditable;
+                ExtendedDatatype = Masked;
+                ToolTip = 'Specifies the shared key to access the Storage Blob.';
+
+                trigger OnValidate()
+                begin
+                    Rec.SetPassword(Password);
+                end;
+            }
+
+            field(ContainerNameField; Rec."Container Name")
+            {
+                ApplicationArea = All;
+                Caption = 'Container Name';
+                ToolTip = 'Specifies the Azure Storage Container name.';
+            }
+        }
+    }
+
+    actions
+    {
+        area(processing)
+        {
+            //TODO Add File Browser
+        }
+    }
+
+    var
+        [InDataSet]
+        PasswordEditable: Boolean;
+        [NonDebuggable]
+        [InDataSet]
+        Password: Text;
+
+    trigger OnOpenPage()
+    begin
+        Rec.SetCurrentKey(Name);
+
+        if not IsNullGuid(Rec."Password Key") then
+            Password := '***';
+    end;
+}

Apps/W1/File - Azure BLOB Storage Connector/app/src/BlobStorageAccount.Table.al

@@ -0,0 +1,76 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+/// <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(8; "Password Key"; Guid)
+        {
+            DataClassification = SystemMetadata;
+        }
+    }
+
+    keys
+    {
+        key(PK; Id)
+        {
+            Clustered = true;
+        }
+    }
+
+    var
+        UnableToGetPasswordMsg: Label 'Unable to get Blob Storage Account Key';
+        UnableToSetPasswordMsg: Label 'Unable to set Blob Storage Account Key';
+
+    trigger OnDelete()
+    begin
+        if not IsNullGuid(Rec."Password Key") then
+            if IsolatedStorage.Delete(Rec."Password Key") then;
+    end;
+
+    [NonDebuggable]
+    procedure SetPassword(Password: Text)
+    begin
+        if IsNullGuid(Rec."Password Key") then
+            Rec."Password Key" := CreateGuid();
+
+        if not IsolatedStorage.Set(Format(Rec."Password Key"), Password, DataScope::Company) then
+            Error(UnableToSetPasswordMsg);
+    end;
+
+    [NonDebuggable]
+    procedure GetPassword(PasswordKey: Guid) Password: Text
+    begin
+        if not IsolatedStorage.Get(Format(PasswordKey), DataScope::Company, Password) then
+            Error(UnableToGetPasswordMsg);
+    end;
+}

Apps/W1/File - Azure BLOB Storage Connector/app/src/BlobStorageAccountWizard.Page.al

@@ -0,0 +1,161 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+/// <summary>
+/// Displays an account that is being registered via the Blob Storage connector.
+/// </summary>
+page 80101 "Blob Storage Account Wizard"
+{
+    Caption = 'Setup Azure Blob Storage Account';
+    SourceTable = "Blob Storage Account";
+    SourceTableTemporary = true;
+    Permissions = tabledata "Blob Storage Account" = rimd;
+    PageType = NavigatePage;
+    Extensible = false;
+    Editable = true;
+
+    layout
+    {
+        area(Content)
+        {
+            group(TopBanner)
+            {
+                Editable = false;
+                ShowCaption = false;
+                Visible = TopBannerVisible;
+                field(NotDoneIcon; MediaResources."Media Reference")
+                {
+                    ApplicationArea = All;
+                    Editable = false;
+                    ShowCaption = false;
+                    ToolTip = ' ';
+                    Caption = ' ';
+                }
+            }
+
+            field(NameField; Rec.Name)
+            {
+                ApplicationArea = All;
+                Caption = 'Account Name';
+                ToolTip = 'Specifies the name of the Azure Blob Storage account.';
+                ShowMandatory = true;
+                NotBlank = true;
+
+                trigger OnValidate()
+                begin
+                    IsNextEnabled := BlobStorageConnectorImpl.IsAccountValid(Rec);
+                end;
+            }
+
+            field(StorageAccountNameField; Rec."Storage Account Name")
+            {
+                ApplicationArea = All;
+                Caption = 'Storage Account Name';
+                ToolTip = 'Specifies the Azure Storage name.';
+                ShowMandatory = true;
+
+                trigger OnValidate()
+                begin
+                    IsNextEnabled := BlobStorageConnectorImpl.IsAccountValid(Rec);
+                end;
+            }
+
+            field(PasswordField; Password)
+            {
+                ApplicationArea = All;
+                Caption = 'Password';
+                ExtendedDatatype = Masked;
+                ToolTip = 'Specifies the shared key of the Storage Blob.';
+                ShowMandatory = true;
+            }
+
+            field(ContainerNameField; Rec."Container Name")
+            {
+                ApplicationArea = All;
+                Caption = 'Container Name';
+                ToolTip = 'Specifies the container to use of the Storage Blob.';
+                ShowMandatory = true;
+
+                trigger OnLookup(var Text: Text): Boolean
+                var
+                    BlobStorageConnectorImpl: Codeunit "Blob Storage Connector Impl.";
+                begin
+                    BlobStorageConnectorImpl.LookUpContainer(Rec, Password, Text);
+                    exit(true);
+                end;
+
+                trigger OnValidate()
+                begin
+                    IsNextEnabled := BlobStorageConnectorImpl.IsAccountValid(Rec);
+                end;
+            }
+        }
+    }
+
+    actions
+    {
+        area(processing)
+        {
+            action(Back)
+            {
+                ApplicationArea = All;
+                Caption = 'Back';
+                ToolTip = 'Back';
+                Image = Cancel;
+                InFooterBar = true;
+
+                trigger OnAction()
+                begin
+                    CurrPage.Close();
+                end;
+            }
+
+            action(Next)
+            {
+                ApplicationArea = All;
+                Caption = 'Next';
+                Image = NextRecord;
+                Enabled = IsNextEnabled;
+                InFooterBar = true;
+                ToolTip = 'Next';
+
+                trigger OnAction()
+                begin
+                    BlobStorageConnectorImpl.CreateAccount(Rec, Password, BlobStorageAccount);
+                    CurrPage.Close();
+                end;
+            }
+        }
+    }
+
+    var
+        BlobStorageAccount: Record "File Account";
+        MediaResources: Record "Media Resources";
+        BlobStorageConnectorImpl: Codeunit "Blob Storage Connector Impl.";
+        [NonDebuggable]
+        [InDataSet]
+        Password: Text;
+        IsNextEnabled: Boolean;
+        TopBannerVisible: Boolean;
+
+    trigger OnOpenPage()
+    begin
+        Rec.Init();
+        Rec.Insert();
+
+        if MediaResources.Get('ASSISTEDSETUP-NOTEXT-400PX.PNG') and (CurrentClientType() = ClientType::Web) then
+            TopBannerVisible := MediaResources."Media Reference".HasValue();
+    end;
+
+    internal procedure GetAccount(var FileAccount: Record "File Account"): Boolean
+    begin
+        if IsNullGuid(BlobStorageAccount."Account Id") then
+            exit(false);
+
+        FileAccount := BlobStorageAccount;
+
+        exit(true);
+    end;
+}

Apps/W1/File - Azure BLOB Storage Connector/app/src/BlobStorageConnector.EnumExt.al

@@ -0,0 +1,19 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+
+/// <summary>
+/// Enum extension to register the Blob Storage connector.
+/// </summary>
+enumextension 80100 "Blob Storage Connector" extends "File Connector"
+{
+    /// <summary>
+    /// The Blob Storage connector.
+    /// </summary>
+    value(2147483647; "Blob Storage") // Max int value so it appears last //FIXME Id from Module
+    {
+        Caption = 'Blob Storage';
+        Implementation = "File Connector" = "Blob Storage Connector Impl.";
+    }
+}