[24.x][BC Idea] Add Put method to 'Graph Client' Codeunit (#773) (#960)

Backport of #773 Fixes #748 Fixes [AB#522599](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/522599) Co-authored-by: Edgar Albalate Ibañez <[email protected]>
microsoft · Apr 18, 2024 · 5459ec6 · 5459ec6
1 parent 9e730b2
commit 5459ec6
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 0 deletions.
diff --git a/src/System Application/App/MicrosoftGraph/src/GraphClient.Codeunit.al b/src/System Application/App/MicrosoftGraph/src/GraphClient.Codeunit.al
@@ -112,6 +112,21 @@ codeunit 9350 "Graph Client"
         exit(GraphClientImpl.Patch(RelativeUriToResource, GraphOptionalParameters, RequestHttpContent, HttpResponseMessage));
     end;
 
+    /// <summary>
+    /// Put any request to the microsoft graph API
+    /// </summary>
+    /// <remarks>Does not require UI interaction.</remarks>
+    /// <param name="RelativeUriToResource">A relativ uri including the resource segment</param>
+    /// <param name="GraphOptionalParameters">A wrapper for optional header and query parameters</param>
+    /// <param name="RequestHttpContent">The HttpContent object for the request.</param>
+    /// <param name="HttpResponseMessage">The response message object.</param>
+    /// <returns>True if the operation was successful; otherwise - false.</returns>
+    /// <error>Authentication failed.</error>
+    procedure Put(RelativeUriToResource: Text; GraphOptionalParameters: Codeunit "Graph Optional Parameters"; RequestHttpContent: Codeunit "Http Content"; var HttpResponseMessage: Codeunit "Http Response Message"): Boolean
+    begin
+        exit(GraphClientImpl.Put(RelativeUriToResource, GraphOptionalParameters, RequestHttpContent, HttpResponseMessage));
+    end;
+
     /// <summary>
     /// Send a DELETE request to the microsoft graph API
     /// </summary>

diff --git a/src/System Application/App/MicrosoftGraph/src/GraphClientImpl.Codeunit.al b/src/System Application/App/MicrosoftGraph/src/GraphClientImpl.Codeunit.al
@@ -79,6 +79,16 @@ codeunit 9351 "Graph Client Impl."
         exit(HttpResponseMessage.GetIsSuccessStatusCode());
     end;
 
+    procedure Put(RelativeUriToResource: Text; GraphOptionalParameters: Codeunit "Graph Optional Parameters"; RequestHttpContent: Codeunit "Http Content"; var HttpResponseMessage: Codeunit "Http Response Message"): Boolean
+    var
+        GraphUriBuilder: Codeunit "Graph Uri Builder";
+    begin
+        GraphUriBuilder.Initialize(MicrosoftGraphBaseUrl, GraphAPIVersion, RelativeUriToResource, GraphOptionalParameters.GetQueryParameters());
+        GraphRequestHelper.SetRestClient(RestClient);
+        HttpResponseMessage := GraphRequestHelper.Put(GraphUriBuilder, GraphOptionalParameters, RequestHttpContent);
+        exit(HttpResponseMessage.GetIsSuccessStatusCode());
+    end;
+
     procedure Delete(RelativeUriToResource: Text; GraphOptionalParameters: Codeunit "Graph Optional Parameters"; var HttpResponseMessage: Codeunit "Http Response Message"): Boolean
     var
         GraphUriBuilder: Codeunit "Graph Uri Builder";

diff --git a/src/System Application/App/MicrosoftGraph/src/helper/GraphRequestHelper.Codeunit.al b/src/System Application/App/MicrosoftGraph/src/helper/GraphRequestHelper.Codeunit.al
@@ -36,6 +36,11 @@ codeunit 9354 "Graph Request Helper"
         HttpResponseMessage := SendRequest(Enum::"Http Method"::PATCH, GraphUriBuilder, GraphOptionalParameters, HttpContent);
     end;
 
+    procedure Put(GraphUriBuilder: Codeunit "Graph Uri Builder"; GraphOptionalParameters: Codeunit "Graph Optional Parameters"; HttpContent: Codeunit "Http Content") HttpResponseMessage: Codeunit "Http Response Message"
+    begin
+        HttpResponseMessage := SendRequest(Enum::"Http Method"::PUT, GraphUriBuilder, GraphOptionalParameters, HttpContent);
+    end;
+
     procedure Delete(GraphUriBuilder: Codeunit "Graph Uri Builder"; GraphOptionalParameters: Codeunit "Graph Optional Parameters") HttpResponseMessage: Codeunit "Http Response Message"
     begin
         PrepareRestClient(GraphOptionalParameters);