From 48270f67c2b0d29b6ca47c97737495d998ab6131 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Edgar=20Albalate=20Iba=C3=B1ez?= <dev.gardo@gmail.com>
Date: Wed, 20 Mar 2024 14:28:25 +0100
Subject: [PATCH] [BC Idea] Add Put method to 'Graph Client' Codeunit (#773)

<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->
This implement's HTTP Put Method in Graph API Wrapper.

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes microsoft/BCApps#748


Fixes
[AB#507963](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/507963)
---
 .../MicrosoftGraph/src/GraphClient.Codeunit.al    | 15 +++++++++++++++
 .../src/GraphClientImpl.Codeunit.al               | 10 ++++++++++
 .../src/helper/GraphRequestHelper.Codeunit.al     |  5 +++++
 3 files changed, 30 insertions(+)

diff --git a/src/System Application/App/MicrosoftGraph/src/GraphClient.Codeunit.al b/src/System Application/App/MicrosoftGraph/src/GraphClient.Codeunit.al
index a6bd7e9e73..e3afa0b693 100644
--- 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
index 294865cbf0..c5bc81456f 100644
--- 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
index edae59b73e..d4a137f238 100644
--- 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);