Fix Bytes to be written to the stream exceed the Content-Length bytes…

… size specified. (#108)
Bertverbeek4PS · Apr 16, 2024 · 3a48f51 · 3a48f51
2 parents 6b7a81c + 597ffe9
commit 3a48f51
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/businessCentral/app/src/Http.Codeunit.al b/businessCentral/app/src/Http.Codeunit.al
@@ -168,7 +168,11 @@ codeunit 82563 "ADLSE Http"
         ADLSESetup: Record "ADLSE Setup";
         Headers: HttpHeaders;
     begin
-        HttpContent.WriteFrom(Body);
+        if (ADLSESetup.GetStorageType() = ADLSESetup."Storage Type"::"Azure Data Lake") or
+        (ADLSESetup.GetStorageType() = ADLSESetup."Storage Type"::"Microsoft Fabric") and (not ContentTypeJson)
+        then
+            HttpContent.WriteFrom(Body);
+
         HttpContent.GetHeaders(Headers);
 
         if ContentTypeJson then begin