microsoft · IceOnly · May 3, 2023 · May 4, 2023 · May 5, 2023 · May 5, 2023
@@ -0,0 +1,3 @@
+# File SharePoint Connector
+This conenctor allows access to Sahre Point Files and Folder.
+A proper App Registration with Sites.ReadWrite.All permission is needed.
@@ -0,0 +1,31 @@
+{
+    "id":  "34bfcef7-f8ed-449f-94be-74024cadba3b",
+    "name":  "File - SharePoint Connector",
+    "publisher":  "Microsoft",
+    "brief":  "Enable all users to use SharePoint Folders to save files from Business Central.",
+    "description":  "This app enables all users to store files in SharePoint Folders with 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":  80300,
+                         "to":  80399
+                     }
+                 ],
+    "target":  "OnPrem",
+    "resourceExposurePolicy":  {
+                                   "allowDebugging":  false,
+                                   "allowDownloadingSource":  true,
+                                   "includeSourceInSymbolFile":  true
+                               },
+    "contextSensitiveHelpUrl":  "https://go.microsoft.com/fwlink/?linkid=2134520"
+}
@@ -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 80300 "SharePoint - Admin" extends "File System - Admin"
+{
+    IncludedPermissionSets = "SharePoint - Edit";
+}
@@ -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 80302 "SharePoint - Edit"
+{
+    Assignable = false;
+    Access = Public;
+    Caption = 'SharePoint - Edit';
+
+    IncludedPermissionSets = "SharePoint - Read";
+
+    Permissions =
+        tabledata "SharePoint Account" = imd;
+}
@@ -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.
+// ------------------------------------------------------------------------------------------------
+
+namespace System.FileSystem;
+
+permissionset 80300 "SharePoint - Objects"
+{
+    Assignable = false;
+    Access = Public;
+    Caption = 'SharePoint - Objects';
+
+    Permissions =
+        table "SharePoint Account" = X,
+        codeunit "SharePoint Connector Impl." = X,
+        page "SharePoint Account Wizard" = X,
+        page "SharePoint Account" = X;
+}
@@ -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 80301 "SharePoint - Read"
+{
+    Assignable = false;
+    Access = Public;
+    Caption = 'SharePoint - Read';
+
+    IncludedPermissionSets = "SharePoint - Objects";
+
+    Permissions =
+        tabledata "SharePoint Account" = r;
+}
@@ -0,0 +1,92 @@
+// ------------------------------------------------------------------------------------------------
+// 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 SharePoint connector.
+/// </summary>
+page 80300 "SharePoint Account"
+{
+    SourceTable = "SharePoint Account";
+    Caption = 'SharePoint Account';
+    Permissions = tabledata "SharePoint 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("Tenant Id"; Rec."Tenant Id")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies the Tenant Id of the App Registration.';
+            }
+
+            field("Client Id"; Rec."Client Id")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies the the Client Id of the App Registration.';
+            }
+
+            field(SecretField; ClientSecret)
+            {
+                ApplicationArea = All;
+                Caption = 'Password';
+                Editable = ClientSecretEditable;
+                ExtendedDatatype = Masked;
+                ToolTip = 'Specifies the the Client Secret of the App Registration.';
+
+                trigger OnValidate()
+                begin
+                    Rec.SetClientSecret(ClientSecret);
+                end;
+            }
+
+            field("SharePoint Url"; Rec."SharePoint Url")
+            {
+                ApplicationArea = All;
+                Caption = 'SharePoint Url';
+                ToolTip = 'Specifies the the url to your SharePoint site.';
+            }
+
+            field("Base Relative Folder Path"; Rec."Base Relative Folder Path")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies the Base Relative Folder Path to use for this account.';
+            }
+        }
+    }
+
+    var
+        ClientSecretEditable: Boolean;
+        [NonDebuggable]
+        ClientSecret: Text;
+
+    trigger OnOpenPage()
+    begin
+        Rec.SetCurrentKey(Name);
+
+        if not IsNullGuid(Rec."Client Secret Key") then
+            ClientSecret := '***';
+    end;
+
+    trigger OnAfterGetCurrRecord()
+    begin
+        ClientSecretEditable := CurrPage.Editable();
+    end;
+}
@@ -0,0 +1,86 @@
+// ------------------------------------------------------------------------------------------------
+// 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 SharePoint connector
+/// </summary>
+table 80300 "SharePoint Account"
+{
+    Access = Internal;
+
+    Caption = 'SharePoint Account';
+
+    fields
+    {
+        field(1; "Id"; Guid)
+        {
+            DataClassification = SystemMetadata;
+            Caption = 'Primary Key';
+        }
+
+        field(2; Name; Text[250])
+        {
+            DataClassification = CustomerContent;
+            Caption = 'Name of account';
+        }
+        field(4; "SharePoint Url"; Text[2048])
+        {
+            Caption = 'SharePoint Url';
+        }
+        field(5; "Base Relative Folder Path"; Text[2048])
+        {
+            Caption = 'Base Relative Folder Path';
+        }
+        field(6; "Tenant Id"; Text[36])
+        {
+            Caption = 'Tenant Id';
+        }
+        field(7; "Client Id"; Text[36])
+        {
+            Caption = 'Client Id';
+        }
+        field(8; "Client Secret Key"; Guid)
+        {
+            DataClassification = SystemMetadata;
+        }
+    }
+
+    keys
+    {
+        key(PK; Id)
+        {
+            Clustered = true;
+        }
+    }
+
+    var
+        UnableToGetClientMsg: Label 'Unable to get SharePoint Account Client Secret.';
+        UnableToSetClientSecretMsg: Label 'Unable to set SharePoint Client Secret.';
+
+    trigger OnDelete()
+    begin
+        if not IsNullGuid(Rec."Client Secret Key") then
+            if IsolatedStorage.Delete(Rec."Client Secret Key") then;
+    end;
+
+    [NonDebuggable]
+    procedure SetClientSecret(ClientSecret: SecretText)
+    begin
+        if IsNullGuid(Rec."Client Secret Key") then
+            Rec."Client Secret Key" := CreateGuid();
+
+        if not IsolatedStorage.Set(Format(Rec."Client Secret Key"), ClientSecret, DataScope::Company) then
+            Error(UnableToSetClientSecretMsg);
+    end;
+
+    [NonDebuggable]
+    procedure GetClientSecret(ClientSecretKey: Guid) ClientSecret: SecretText
+    begin
+        if not IsolatedStorage.Get(Format(ClientSecretKey), DataScope::Company, ClientSecret) then
+            Error(UnableToGetClientMsg);
+    end;
+}