But first…
Registration for NAV TechDays 2017 have been opened. I will do a workshop on web services and json. I will be using both C/AL and AL with VS Code in this workshop.
Make sure to register for the conference and if possible go to one or two of the workshops.
Now to the topic. Yesterday I started to develop an integration solution for bokun.io. Their API is RESTful and uses Json file formats. It also requires authentication.
In a project like this I usually start by using the OCR Service Setup from standard NAV. Create a Setup table and a page.
Looking at the API documentation we can see that we need to use HmacSHA1 with both Access Key and Secret Key to authenticate. In other project I used HmacSHA256 with the Access Key for the Azure API.
First part of the authentication is the time stamp created in UTC. I find it easy to use the DateTime DotNet variable to solve this. There are two different formatting I needed to use.
REST service normally just use GET or POST http methods. The authentication is usually in the request headers. This is an example from bokun.is
The GetSignature function is
The Secret Key string and the Signature is converted to a byte array. The Crypto class is constructed with the Secret Key Byte Array and used to compute hash for the Signature Byte Array. That hash is also a byte array that must be converted to a base64 string. This will give you the HmacSHA1 signature to use in the request header.
My Azure project is using HmacSHA256 but the code is similar.
Azure displays the Access Keys in base64 format while bokun.is has a normal string.
A little further down the line I choose not to use XML Ports, like I did here, but still convert Json to Xml or Xml to Json.
I use the functions from Codeunit “XML DOM Management” to handle the Xml. This code should give you the general idea.
OBJECT Codeunit 60201 Bokun.is Data Management
{
OBJECT-PROPERTIES
{
Date=;
Time=;
Version List=;
}
PROPERTIES
{
OnRun=BEGIN
END;
}
CODE
{
VAR
XMLDOMMgt@60200 : Codeunit 6224;
PROCEDURE ReadCurrencies@1(ResponseString@10035985 : Text;VAR CurrencyBuffer@10035988 : TEMPORARY Record 60201);
VAR
XmlDocument@60202 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
ResultXMLNodeList@60201 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlNodeList";
ResultXMLNode@60200 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlNode";
BEGIN
XmlDocument := XmlDocument.XmlDocument;
XmlDocument.LoadXml(JsonToXml('{"Currency":' + ResponseString + '}'));
XMLDOMMgt.FindNodes(XmlDocument.DocumentElement,'Currency',ResultXMLNodeList);
FOREACH ResultXMLNode IN ResultXMLNodeList DO
ReadCurrency(ResultXMLNode,CurrencyBuffer);
END;
LOCAL PROCEDURE ReadCurrency@60205(ResultXMLNode@60201 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlNode";VAR CurrencyBuffer@60200 : TEMPORARY Record 60201);
BEGIN
WITH CurrencyBuffer DO BEGIN
INIT;
Code := XMLDOMMgt.FindNodeText(ResultXMLNode,'code');
"Currency Factor" := ToDecimal(XMLDOMMgt.FindNodeText(ResultXMLNode,'rate'));
Payment := ToBoolean(XMLDOMMgt.FindNodeText(ResultXMLNode,'payment'));
INSERT;
END;
END;
PROCEDURE ReadActivities@60201(ResponseString@10035985 : Text);
VAR
XmlDocument@60202 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
ResultXMLNodeList@60201 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlNodeList";
ResultXMLNode@60200 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlNode";
BEGIN
XmlDocument := XmlDocument.XmlDocument;
XmlDocument.LoadXml(JsonToXml(ResponseString));
END;
PROCEDURE GetActivityRequestJson@10035986(NoOfParticipants@60200 : Integer;StartDate@60201 : Date;EndDate@60202 : Date) Json : Text;
VAR
XmlDocument@10035987 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
CreatedXMLNode@10035988 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlNode";
BEGIN
XmlDocument := XmlDocument.XmlDocument;
XMLDOMMgt.AddRootElement(XmlDocument,GetDocumentElementName,CreatedXMLNode);
IF NoOfParticipants <> 0 THEN
XMLDOMMgt.AddNode(CreatedXMLNode,'participants',FORMAT(NoOfParticipants,0,9));
IF StartDate <> 0D THEN
XMLDOMMgt.AddNode(CreatedXMLNode,'startDate',FORMAT(StartDate,0,9));
IF EndDate <> 0D THEN
XMLDOMMgt.AddNode(CreatedXMLNode,'endDate',FORMAT(EndDate,0,9));
Json := XmlToJson(XmlDocument.OuterXml);
END;
PROCEDURE XmlToJson@94(Xml@10035985 : Text) Json : Text;
VAR
JsonConvert@10017292 : DotNet "'Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed'.Newtonsoft.Json.JsonConvert";
JsonFormatting@10017296 : DotNet "'Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed'.Newtonsoft.Json.Formatting";
XmlDocument@10017291 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
BEGIN
XmlDocument := XmlDocument.XmlDocument;
XmlDocument.LoadXml(Xml);
Json := JsonConvert.SerializeXmlNode(XmlDocument.DocumentElement,JsonFormatting.Indented,TRUE);
END;
PROCEDURE JsonToXml@95(Json@10035985 : Text) Xml : Text;
VAR
JsonConvert@10017293 : DotNet "'Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed'.Newtonsoft.Json.JsonConvert";
XmlDocument@10017291 : DotNet "'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
BEGIN
XmlDocument := JsonConvert.DeserializeXmlNode(Json,GetDocumentElementName);
Xml := XmlDocument.OuterXml;
END;
LOCAL PROCEDURE GetDocumentElementName@97() : Text;
BEGIN
EXIT('Bokun.is');
END;
LOCAL PROCEDURE ToDecimal@98(InnerText@10035985 : Text) Result : Decimal;
BEGIN
IF NOT EVALUATE(Result,InnerText,9) THEN EXIT(0);
END;
LOCAL PROCEDURE ToInteger@92(InnerText@10035985 : Text) Result : Decimal;
BEGIN
IF NOT EVALUATE(Result,InnerText,9) THEN EXIT(0);
END;
LOCAL PROCEDURE ToBoolean@91(InnerText@10035985 : Text) Result : Boolean;
BEGIN
IF NOT EVALUATE(Result,InnerText,9) THEN EXIT(FALSE);
END;
LOCAL PROCEDURE ToDate@93(InnerText@10035985 : Text) Result : Date;
BEGIN
IF NOT EVALUATE(Result,COPYSTR(InnerText,1,10),9) THEN EXIT(0D);
END;
LOCAL PROCEDURE ToDateTime@99(InnerText@10035985 : Text) Result : DateTime;
BEGIN
IF NOT EVALUATE(Result,InnerText,9) THEN EXIT(0DT);
END;
BEGIN
END.
}
}
