prepare erabliereapi connection

Author: freddycoder

erabliereapi/APIWebService.al

@@ -0,0 +1,98 @@
+codeunit 50126 "API Web Service"
+{
+    //Get a valid authentication token from setup. If token-age < expiry, get from blob, otherwise call API
+    procedure GetAuthenticationToken(ApiSetup: Record "EAPI Setup"; ForceRenewal: Boolean): Text
+    var
+        TokenResponseText: Text;
+        TokenExpiry: DateTime;
+        TokenOutStream: OutStream;
+        TokenInStream: InStream;
+        AuthPayload: Text;
+    begin
+        if (ApiSetup."Token valid until" <= CurrentDateTime()) or ForceRenewal then begin
+            //Get fresh Token 
+            TokenResponseText := GetFreshAuthenticationToken(ApiSetup, TokenExpiry);
+
+            //Write Token to Blob
+            ApiSetup."API Token".CreateOutStream(TokenOutStream);
+            TokenOutStream.WriteText(TokenResponseText);
+
+            //Calculate the expriation date of the token. 
+            //Should be defined by the API or even delivered in the response
+            if TokenExpiry <> 0DT then
+                ApiSetup."Token valid until" := TokenExpiry;
+            ApiSetup.Modify();
+        end else begin
+            ApiSetup.CalcFields("API Token");
+
+            //Read Token from Blob
+            ApiSetup."API Token".CreateInStream(TokenInStream);
+            TokenInStream.ReadText(TokenResponseText);
+        end;
+
+        //Return the token
+        exit(TokenResponseText);
+    end;
+
+    procedure GetFreshAuthenticationToken(ApiSetup: Record "EAPI Setup"; var TokenExpiry: DateTime): Text
+    var
+        AuthPayload: Text;
+        ResponseText: Text;
+        TokenResponseText: Text;
+        JObjectResult: JsonObject;
+        JObjectRequest: JsonObject;
+        WebClient: HttpClient;
+        RequestHeader: HttpHeaders;
+        ResponseMessage: HttpResponseMessage;
+        RequestMessage: HttpRequestMessage;
+        RequestContent: HttpContent;
+        TokenOutStream: OutStream;
+    begin
+        //Create webservice call
+        RequestMessage.Method := 'POST';
+        RequestMessage.SetRequestUri(ApiSetup.Audiance);
+
+        //Create webservice header
+        RequestMessage.GetHeaders(RequestHeader);
+
+        //Payload needed? This might as well be a different implementation!
+        //It's just an example where the credentials are stored as a json payload
+
+        //Create json payload
+        JObjectRequest.Add('client_id', ApiSetup."Client Id");
+        JObjectRequest.Add('client_secret', ApiSetup."Client Secret");
+        JObjectRequest.WriteTo(AuthPayload);
+
+        //Get Request Content
+        RequestContent.WriteFrom(AuthPayload);
+
+        RequestContent.GetHeaders(RequestHeader);
+        RequestHeader.Remove('Content-Type');
+        RequestHeader.Add('Content-Type', 'application/json');
+
+        RequestMessage.Content := RequestContent;
+
+        //Send webservice query
+        WebClient.Send(RequestMessage, ResponseMessage);
+
+        if ResponseMessage.IsSuccessStatusCode() then begin
+            ResponseMessage.Content().ReadAs(ResponseText);
+
+            if not JObjectResult.ReadFrom(ResponseText) then
+                Error('Error Read JSON');
+
+            TokenResponseText := GetJsonToken(JObjectResult, 'access_token').AsValue().AsText();
+            TokenExpiry := GetJsonToken(JObjectResult, 'expiry_date').AsValue().AsDateTime();
+
+        end else
+            Error('Webservice Error');
+
+        exit(TokenResponseText);
+    end;
+
+    local procedure GetJsonToken(JsonObject: JsonObject; TokenKey: Text) JsonToken: JsonToken;
+    begin
+        if not JsonObject.Get(TokenKey, JsonToken) then
+            Error(StrSubstNo('Token %1 not found', TokenKey));
+    end;
+}

erabliereapi/DynDialog.al

@@ -10,11 +10,13 @@ codeunit 50130 DynDialog
             Texts.Add('');
         end;
         Dialog.Open(dialogTemplate);
+        IsOpen := true;
     end;
 
     procedure Close()
     begin
         Dialog.Close();
+        IsOpen := false;
     end;
 
     procedure Update(number: Integer; text: Text)
@@ -23,11 +25,19 @@ codeunit 50130 DynDialog
         Dialog.Update(number, text);
     end;
 
+    procedure UpdateAppend(number: Integer; text: Text)
+    begin
+        Texts.Set(number, Texts.Get(number) + text);
+        Dialog.Update(number, Texts.Get(number));
+    end;
+
     procedure PrettyMessage(text: Text)
     var
         i: Integer;
         template: Text;
     begin
+        if IsOpen then
+            Close();
         for i := 1 to Texts.Count do
             template += Texts.Get(i) + '\';
         Message(text + '\' + template, Texts);
@@ -36,4 +46,5 @@ codeunit 50130 DynDialog
     var
         Dialog: Dialog;
         Texts: List of [Text];
+        IsOpen: Boolean;
 }

erabliereapi/EAPISetup.al

@@ -0,0 +1,60 @@
+table 50125 "EAPI Setup"
+{
+    DataClassification = ToBeClassified;
+
+    fields
+    {
+        field(1; Code; Code[10])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(5; "API URL"; Text[200])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(10; "Client Id"; Text[150])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(11; "Audiance"; Text[150])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(12; "Scope"; Text[150])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(15; "Client Secret"; Text[150])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(16; "Client Certificate"; Text[150])
+        {
+            DataClassification = CustomerContent;
+        }
+        field(20; "API Token"; Blob)
+        {
+            DataClassification = SystemMetadata;
+        }
+        field(25; "Token valid until"; DateTime)
+        {
+            DataClassification = SystemMetadata;
+        }
+    }
+
+    keys
+    {
+        key(PK; Code)
+        {
+            Clustered = true;
+        }
+    }
+
+    var
+        ApiWebservice: Codeunit "Api Web Service";
+
+    procedure GetAuthenticationToken(ForceRenewal: Boolean): Text
+    begin
+        exit(ApiWebservice.GetFreshAuthenticationToken(Rec, Rec."Token valid until"));
+    end;
+}

erabliereapi/ErablieresTable.al

@@ -11,12 +11,8 @@ table 50100 Erablieres
             DataClassification = ToBeClassified;
         }
 
-        // The "Description" field can contain a string 
-        // with up to 250 characters.
         field(2; Description; Text[250])
         {
-            // This property specified that 
-            // this field cannot be left empty.
             NotBlank = true;
         }
 
@@ -36,6 +32,21 @@ table 50100 Erablieres
                 Duration := Utils.ParseISODuration(DurationText);
             end;
         }
+
+        field(5; "Invoice Contact"; Code[20])
+        {
+            DataClassification = ToBeClassified;
+        }
+
+        field(6; "Invoice Customer"; Code[20])
+        {
+            DataClassification = ToBeClassified;
+        }
+
+        field(7; "Last Invoice Date"; Date)
+        {
+            DataClassification = ToBeClassified;
+        }
     }
 
     keys

erabliereapi/README.md

@@ -1,3 +1,13 @@
 # ErabliereAPI-Connector
 
-Connector for the ErabliereAPI project.
+Connector for the ErabliereAPI project.
+
+## Links
+
+1. https://www.j3ns.de/d365-business-central/oauth-2-0-in-al/
+2. https://learn.microsoft.com/en-us/entra/msal/dotnet/acquiring-tokens/web-apps-apis/confidential-client-assertions
+3. https://learn.microsoft.com/en-us/dynamics365/business-central/dev-itpro/administration/automation-apis-using-s2s-authentication
+4. https://sookocheff.com/post/api/generating-jwt-assertions/
+5. https://learn.microsoft.com/en-us/dynamics365/business-central/application/system-application/codeunit/system.security.encryption.cryptography-management
+6. https://community.dynamics.com/blogs/post/?postid=e288a516-2d2b-44b4-bac2-b290a7a8e7f5
+7. https://goodworkaround.com/2020/07/07/authenticating-to-azure-ad-as-an-application-using-certificate-based-client-credential-grant/