added MERGE method

byndit · Nov 30, 2023 · 4e00728 · 4e00728
1 parent c392a7e
commit 4e00728
Showing 1 changed file with 14 additions and 2 deletions.
diff --git a/BeyondAL/src/Helper/WebRequestMgt.Codeunit.al b/BeyondAL/src/Helper/WebRequestMgt.Codeunit.al
@@ -21,10 +21,11 @@ codeunit 50001 "BIT Web Request Mgt."
     var
         Client: HttpClient;
         Response: HttpResponseMessage;
+        RequestMessage: HttpRequestMessage;
+        Headers: HttpHeaders;
         HeaderKey: Text;
         HeaderValue: Text;
     begin
-
         foreach HeaderKey in RequestHeaders.Keys() do begin
             RequestHeaders.Get(HeaderKey, HeaderValue);
             Client.DefaultRequestHeaders.Add(HeaderKey, HeaderValue);
@@ -39,6 +40,17 @@ codeunit 50001 "BIT Web Request Mgt."
                 Client.Put(Url, Content, Response);
             Method::DELETE:
                 Client.Delete(Url, Response);
+            Method::MERGE:
+                begin
+                    foreach HeaderKey in RequestHeaders.Keys() do
+                        Headers.Add(HeaderKey, HeaderValue);
+
+                    RequestMessage.SetRequestUri(Url);
+                    RequestMessage.GetHeaders(Headers);
+                    RequestMessage.Method := 'MERGE';
+                    RequestMessage.Content(Content);
+                    Client.Send(RequestMessage, Response);
+                end;
         end;
         exit(Response);
     end;
@@ -125,4 +137,4 @@ codeunit 50001 "BIT Web Request Mgt."
         AuthorizationTok: Label 'Authorization', Locked = true;
         BasicAuthTok: Label 'Basic %1', Locked = true;
         BearerTok: Label 'Bearer %1', locked = true;
-}
+}