Adding bound action to Table Api page to automatically add all fields

businessCentral/app.json

@@ -4,7 +4,7 @@
   "publisher":  "The bc2adls team, Microsoft Denmark",
   "brief":  "Sync data from Business Central to the Azure storage",
   "description":  "Exports data in chosen tables to the Azure Data Lake and keeps it in sync by incremental updates. Before you use this tool, please read the SUPPORT.md file at https://github.com/microsoft/bc2adls.",
-  "version":  "1.3.15.0",
+  "version":  "1.3.16.0",
   "privacyStatement":  "https://go.microsoft.com/fwlink/?LinkId=724009",
   "EULA":  "https://go.microsoft.com/fwlink/?linkid=2009120",
   "help":  "https://go.microsoft.com/fwlink/?LinkId=724011",

businessCentral/src/ADLSETable.Table.al

@@ -215,4 +215,20 @@ table 82561 "ADLSE Table"
                 Verbosity::Warning, CustomDimensions);
         end;
     end;
+
+    procedure AddAllFields()
+    var
+        ADLSEFields: Record "ADLSE Field";
+    begin
+        ADLSEFields.InsertForTable(Rec);
+        ADLSEFields.SetRange("Table ID", Rec."Table ID");
+        if ADLSEFields.FindSet() then
+            repeat
+                if (ADLSEFields.CanFieldBeEnabled()) then begin
+                    ADLSEFields.Enabled := true;
+                    ADLSEFields.Modify();
+                end;
+            until ADLSEFields.Next() = 0;
+    end;
+
 }

businessCentral/src/ADLSETableAPI.Page.al

@@ -82,6 +82,13 @@ page 82565 "ADLSE Table API"
         SetActionResponse(ActionContext, Rec.SystemId);
     end;
 
+    [ServiceEnabled]
+    procedure AddAllFields(var ActionContext: WebServiceActionContext)
+    begin
+        rec.AddAllFields();
+        SetActionResponse(ActionContext, Rec.SystemId);
+    end;
+
     local procedure SetActionResponse(var ActionContext: WebServiceActionContext; AdlsId: Guid)
     var
     begin