A few days ago we did a webinar about the current status of AL in Visual Studio Code. The webinar was organized by NAV Skills and together with Waldo, Erik Hougaard and Daniel Rimmelzwaan we had a full hour of content. And it really felt like we just got started. I had the pleasure to talk about the support of web services in AL language. If you want to watch the recording, then go to the video on Youtube.
The code (including some improvements) that I demonstrated during the webinar is now available on my GitHub repository: https://github.com/ajkauffmann/ALCodeSamples. See the folder “GitHub AL Issues”. Feel free to clone, branch, fork and play with the code.
The code will only run on the June update of the Dynamics NAV Development Preview.
Built-in support for web service calls
With AL code we don’t have support for .Net components. If you want to know more about that, I can recommend to read this blog post from Vjeko. Instead of using .Net components for calling web services, AL has built-in types that map to .Net types. At the moment of writing AL supports:
- REST web services
- Handling JSON
Calling REST web services is supported by the HttpClient class. This is basically the same .Net class I have been using in the web services examples that I posted earlier. In this post I introduced the HttpClient. Now we see the same type in AL as a built-in type. This makes a lot of sense and calling web services is a breeze.
For handling JSON we have a set of four types: JsonToken, JsonArray, JsonObject and JsonValue.
The official documentation can be found here: Developer Reference on MSDN. Scroll down to REST API and you will find a list of all supported objects.
With this post I want to introduce a basic example of using HttpClient and JSON objects. The example reads the list of issues from the GitHub repository of the AL language and stores it in a table. Instead optimizing the code I have created just one Codeunit that calls the web service, reads the Json and stores it in the table.
Let me shortly go over some code lines. Here you see the variables I’m using.
As you can see, I’m not using all of the Http classes, only the HttpClient and HttpResponseMessage. On the contrary, all Json classes are used in this example. Well, actually I could avoid some of the Json classes, but I used them to demonstrate their purpose.
HttpClient
Calling the web service is simple and straightforward:
On line 18 we start with setting a request header called ‘User-Agent’. Without this setting, the call to the web service will fail. This is due to the fact GitHub just rejects calls where this header is missing.
The property DefaultRequestHeaders (documentation on MSDN calls everything a method, but actually a lot of them are properties) returns the class HttpHeaders. This class has a method Add which I use to add that header. It is not needed to first store the HttpHeaders object into a separate variable and then call Add on that variable. As you can see in the code, the Add function is called directly. This kind of code combining is possible since the June update.
The Get method of HttpClient accepts an url and an HttpResponseMessage in which it returns the response message. The Get methods is basically the HTTP GET method and corresponds to opening an URL with your browser. A simple test to see what the web service is returning would be to open the URL in Chrome or Edge. These browser will show (in most cases) the response directly in the browser window.
The Get method returns a boolean that indicates if the call to the web service was succesful. But be careful here, it only indicates if the domain (the base url, in this case https://api.github.com) could be reached and if the call was not rejected by the host. Try this code without the User-Agent header, and the Get will fail.
In case the host could be reached but the path (the remainder after the base url) was incorrect, then it will be indicated in the HttpResponseMessage.
HttpResponseMessage
Let’s have a look at the HttpResponseMessage.
In line 24 you can see how to test if the web service call was successful. The IsSuccessStatusCode actually checks if the HttpStatusCode is 200, which indicates a successful call. In case the call failed you may find more information in the ReasonPhrase property.
After this, we can get the content of the response. The Content property returns a HttpContent object. The content contains both headers and a body. Because we are only interested in the body we call directly the ReadAs method on the Content property. In this example we use the JsonText variable (a text variable) to indicate the we want to read the content as text. The ReadAs method also accepts an InStream object which enables to receive binary responses as well.
Next step is to parse the JSON response value.
JsonArray
Our first step is to get read the JsonText variable into a JsonArray object using the ReadFrom method.
Why do we use an array here? Well, that depends on the structure of the JSON response. This is something you need to find out before you write the code to handle the JSON. In this case, the JSON structure starts with an [ which indicates it is an array.
In the array every item is an object. That is indicated by the curly bracket you see on the next level in the JSON text.
On line 37 we start a loop through all objects in the array. At this moment foreach is not supported in AL, so we have to use the good old for … do structure.
The JsonArray.Get method returns a JsonToken. This is a generic container object that represents a well-formed part of JSON data. Basically every JSON object can be represented by a token object. Because we know that every item in the array is an object, we convert the JsonToken to an JsonObject with the function AsObject.
Now we can start reading the properties from the JSON data and store them in the database.
JsonObject and JsonValue
The JSON data contains arrays, objects and values. You can recognize them by in this way:
- Array is surrounded by square brackets: [ ]
- Object is surrounded by curly brackets: { }
- Value has format “key”: “value”
In the JSON data we are using in this example, every GitHub issue is a JSON object. In the JSON object we find values like number, title, state, etc. To get a JSON value out of the JSON object, we use the JsonObject.Get method. This method returns true if the operation was successful. You can see that on line 42 below.
Note that the Get method returns a JsonToken. This is because a JSON object can contain values, nested objects or arrays. The JsonToken can represent any of them. Next step is to convert the JsonToken to a JsonValue and read the value. In line 45 you can see that we use the AsValue method on the JsonToken and directly call the AsInteger method on the returning JsonValue object.
This is what makes the JsonValue object so powerful: it exposes methods to read the value as integer, as text, as boolean, etc. At the moment of writing the AsDateTime is not working, that’s why line 49 is commented out in the code.
To avoid writing the two lines of code on line 42 and 43 over and over again, I have created a function GetJsonToken that returns the JsonToken or throws an error if not found.
In line 50 the code uses another feature: selecting a token based on a token path. The function looks like this:
The SelectToken that is used on line 64 accepts a path. This is a search path that points to a certain token that is nested in the JSON data. Find out more about JSONPath here.
The path in the example is ‘$.user.login’. Take a look at the JSON structure and see that this is a nested object.
That’s it for now, if you have made it to the end of this post: congratulations, you are a assiduous reader!
Of course I plan to update the previously posted web service examples to AL code as well. Some work is ahead!
Pingback: AL support for REST Web Services - Kauffmann @ Dynamics NAV - Dynamics NAV Users - DUG
Pingback: Make your (Dynamics NAV) assistant – Under the Hood
Pingback: Generating AL objects from JSON - Axians Infoma NAV Blog - Dynamics NAV Users - DUG
Hi Kaufmann,
Thanks for the post about rest web services – its working good. My JSON output looks like below. How should get the values in my scenario? The code field describe the name of the field and then the value is in value field. Sometimes the value field is not existing if there isnt any data in it like with order_number.
“header_fields”: [
{
“boxes”: [],
“code”: “order_number”,
“error”: “”,
“feature_id”: 21657726
},
{
“boxes”: [],
“code”: “voucher_number”,
“error”: “”,
“feature_id”: 21176595,
“value”: “38717”
},
“boxes”: [],
“code”: “company_name”,
“error”: “”,
“feature_id”: 21164570,
“value”: “Café & Catering”
}…continuing
Something like this. JsonArray / JsonToken / JsonObject must be declared as variables.
JsonArray.ReadFrom(responseText);
foreach JsonToken in JsonArray do begin
JsonObject := JsonToken.AsObject;
if JsonObject.Contains('value') then begin
// do whatever you need, like reading the values and storing it]
end;
end;
Thanks, it worked.
I got another question you might be able to help with. The same REST i already have connection to i need to get a access token, but i need to use add keys and values to the body.
Headers:
Content-Type application/x-www-form-urlencoded
Body – see image
https://imgur.com/4vWD4AH
Great that it worked!
What exactly is your question?
How do I make a REST request with the body using AL syntax to get the access token?
If I understand you correctly, you want to know how to create the content body in AL code?
Let’s assume ContentText holds the text that you want to send in the body.
Then the code looks like:
HttpContent.WriteFrom(ContentText);
HttpContent.GetHeaders(HttpHeaders);
HttpHeaders.Remove('Content-Type');
HttpHeaders.Add('Content-Type', 'application/x-www-form-urlencoded');
Now you have a HttpContent with the value and the correct header. This can be used in the HttpClient.Post command.
Hi Kaufmann,
Trying to read and write the data in one D365 BC by using publish D365 BC standard item API. When i send the ‘get’ request method, I got the success response httpstatuscode, which is 200.
After this when i try to read the json which is given in response from the D365 Business Central /items API. but it is saying “Invalid response, expected an JSON array as root objects’. May is get some help on this. Thanks in Advance.
This is the JSON i got in postman when i use the same api.
{
“@odata.context”: “https://api.businesscentral.dynamics.com/v1.0/MyDomain/sandbox/api/Beta/$metadata#companies(companyid)/items”,
“value”: [
{
“@odata.etag”: “W/\”JzQ0O3NRK1MzYXpnSmlrOUk3ZW5kbHNSdk9hWHZVR21yV2J1YWZjY0VrWk4yd0U9MTswMDsn\””,
“id”: “43fa647d-6bdc-44cd-8198-156c99a43b89”,
“number”: “1925-W”,
“displayName”: “Conference Bundle 1-6”,
“type”: “Inventory”,
“itemCategoryId”: “00000000-0000-0000-0000-000000000000”,
“itemCategoryCode”: “”,
“blocked”: false,
“baseUnitOfMeasureId”: “e92db4a7-eb80-44df-b9aa-6d44022bf3b7”,
“gtin”: “”,
“inventory”: 0,
“unitPrice”: 122.5,
“priceIncludesTax”: true,
“unitCost”: 0,
“taxGroupId”: “00000000-0000-0000-0000-000000000000”,
“taxGroupCode”: “”,
“lastModifiedDateTime”: “2019-05-26T12:45:02.127Z”,
“baseUnitOfMeasure”: {
“code”: “PCS”,
“displayName”: “Piece”,
“symbol”: null,
“unitConversion”: null
}
},
{
“@odata.etag”: “W/\”JzQ0OzZEQmRsRmxxOHdqNHpFY2d0aUtRM0NOLzh2dXY2dTJMZWhwcE1ndHA5eEU9MTswMDsn\””,
“id”: “2849f194-e8e3-4af3-b5a8-16e73614eaa6”,
“number”: “1929-W”,
“displayName”: “Conference Bundle 1-8”,
“type”: “Inventory”,
“itemCategoryId”: “00000000-0000-0000-0000-000000000000”,
“itemCategoryCode”: “”,
“blocked”: false,
“baseUnitOfMeasureId”: “e92db4a7-eb80-44df-b9aa-6d44022bf3b7”,
“gtin”: “”,
“inventory”: 0,
“unitPrice”: 151.7,
“priceIncludesTax”: true,
“unitCost”: 0,
“taxGroupId”: “00000000-0000-0000-0000-000000000000”,
“taxGroupCode”: “”,
“lastModifiedDateTime”: “2019-05-26T12:45:02.497Z”,
“baseUnitOfMeasure”: {
“code”: “PCS”,
“displayName”: “Piece”,
“symbol”: null,
“unitConversion”: null
}
}
]
}
Every API call has a unique reply, just like every function call has a unique reply (text, integer, boolean, whatever).
For that reason, you can’t apply the sample code in this post to the response from a totally different API call.
Look at the resulting JSON, it starts with an “{“. That means it’s an object, not an array. The sample code calls an API that returns an array, so that’s why you now get an error.
In this case, you need to get the property value from the JSON. That contains an array (its value starts with “[“)
I have used this json code and works fine. Nice. Thanks !
Hi Kaufmann,
The code works great. Thank you for the valuable information.
Just extending on “Chris’s” request above, are we able to write a function in AL to retreive access token before we send requests? I know we can do that in dotNet but since dotNet is out of question, is there a way to write something in Business central?
Are you referring to retrieve an access token from AAD? If so, then stay tuned, working on a blog post about exactly that topic.
Yes, that is correct. Thanks so much.
Hello,
I have been trying to send a post call to braintree or stripe API but have been struggling for weeks now. When I try to get the response from the API I get an authentication 401 error or Misused header name. Make sure request headers are used with HttpRequestMessage, response headers with
The code I have tried
content.WriteFrom(‘{ “query”: “query { ping }” }’);
content.GetHeaders(contentHeaders);
contentHeaders.Remove(‘Content-Type’);
contentHeaders.Add(‘Content-Type’, ‘application/json’);
contentHeaders.Add(‘Authorization’, ‘Bearer sandbox_xxxxxxxxxxx’);
contentHeaders.Add(‘Braintree-Version’, ‘2019-01-26’);
if not HttpClient.Post(‘https://payments.sandbox.braintree-api.com/graphql’, content, ResponseMessage)
When I try this way I get an error
When I try with
contentHeaders.TryAddWithoutValidation(‘Authorization’, ‘Bearer sandbox_xxxxxxx’);
I get an Authentication Error
P.s I have tested the API using Postman so it’s not the API problem
Hope you guys can help me
Thanks in advance
I can’t test right now, so it’s just a shot. Could you try to add the authorization header to HttpClient.DefaultRequestHeaders instead of the content headers?
I have tried using but the same problem
I also have tried using both of them too
HttpClient.DefaultRequestHeaders.Add(‘Content-Type’, ‘application/json’);
HttpClient.DefaultRequestHeaders.Add(‘Authorization’, ‘Bearer sandbox_ktxmxhdx_zywjt2d68m9sxjdk’);
HttpClient.DefaultRequestHeaders.Add(‘Braintree-Version’, ‘2019-01-26’);
Also I have tried using the same code as the issue below but the same problem
https://github.com/Microsoft/AL/issues/1911
Thanks for the fast replay
Would love to help, but I need a little time. Currently traveling, so I can’t look into it right now.
Hello,
I have been testing today the same issue with the header and find out that the Authorization header is not added to the request
I have tried adding it both ways using
HttpClient.DefaultRequestHeaders.Add(‘Authorization’, ‘Bearer sandbox_xxx’);
HttpHeaders.Add(‘Authorization’, ‘Bearer sandbox_xxx’);
And using the TryAddWithoutValidation(); but I always got the same issues it is not added to the Request
It is very strange, I don’t know if these has ever happened to you
Thanks
Okay finally it worked using HttpClient.DefaultRequestHeaders.Add(‘Authorization’, ‘Bearer sandbox_xxx’); not HttpHeaders.Add(‘Authorization’, ‘Bearer sandbox_xxx’);
Thank for your help
Great! That’s what I expected. Authorization headers should be added that way.
Thank you for fast answer, If you have some time please ping me back or if I get lucky to find a solution I will post it here
Hello, I am trying to read data from the reponse it comes in this way object inside object
{
“data”: {
“ping”: “pong”
},
“extensions”: {
“requestId”: “xxxxxx”
}
}
I have tried converting it to an object first and it works
if not JsonObject.ReadFrom(JsonText) then
Error(‘Invalid response, expected an JSON object’);
But when i try to print it using as you have done above using
GetJsonToken(JsonObject, ‘$.data.ping’).AsValue.AsText
But I get the error Could not find a token with key $. data.ping
Thanks again
Use SelectJsonToken instead. You are using a Json path and then you to do Select instead of Get.
Yes correct , also found an alternative solution
if not JsonObject.ReadFrom(JsonText) then
Error(‘Invalid response, expected an JSON object’);
if not JsonObject.Get(‘data’, JsonToken) then
error(‘Could not find a token with key %1’);
Message(GetJsonToken(JsonToken.AsObject, ‘ping’).AsValue.AsText);
Thanks Again
Yes, that also works. Have fun with using web services!
Thank you, Might I asked how can i go deeper if there are 3 or 4 nested objects for example like:
{
“data”: {
“tokenizeCreditCard”: {
“paymentMethod”: {
“id”: “xxxxxxxx”,
“details”: {
“__typename”: “CreditCardDetails”,
“last4”: “1111”
}
}
}
}
Thanks in advance
The solution was easy to SelectJsonToken(JsonObject, ‘$.data.tokenizeCreditCard.paymentMethod.id’).AsValue.AsText);
Hello Kaufmann,
After succeed making the call in NAV 2015 with your help using stringContent
I could only read from a single object { “name” :” X” }
using JsonObject.GetValue(‘name’).ToString
I have been struggling reading through nested object I have found the solution in AL but it doesn’t work on C/AL NAV 2015
{
“data”: {
“name”: “pong”
},
“extensions”: {
“requestId”: “xxxxxx”
}
}
I have tried using your functions but they don’t work on C/AL
You help would be appreciated
Thanks
Not sure what your problem is. But in general, reading nested data is a matter of reading the key that contains the nested values into an object.
For example, let’s say you want to read the requestId inside extensions. You could do that like this:
JsonObject2 := JsonObject.GetValue(‘extensions’)
requestId := JsonObject2.GetValue(‘requestId’).ToString
Thank you, it worked
Hello Kaufmann,
I really appreciate your effort and your post is very useful to me. I just want to know that how can i store all keys from jsonobject.
{
“rates”: {
“CAD”: 1.528,
“HKD”: 8.3651,
“ISK”: 155.5,
“PHP”: 54.667,
“DKK”: 7.466,
“HUF”: 365.24,
“CZK”: 27.603,
“AUD”: 1.779,
“RON”: 4.8335,
“SEK”: 10.9788,
“IDR”: 17710.73,
“INR”: 82.106,
“BRL”: 5.7056,
“RUB”: 82.481,
“HRK”: 7.6255,
“JPY”: 117.54,
“MYR”: 4.7097
},
“base”: “EUR”,
“date”: “2020-04-06”
}
I need all keys and values from this json response. I can successfully access single value by providing single key. But i need all keys and values.
Thank you,
I got the all keys by using this code
for i := 1 TO (JsonObject.Keys.Count) do begin
exchRate.”Currency Code” := Format(JsonObject.Keys.Get(i));
exchRate.Rate := GetJsonToken(JsonObject, exchRate.”Currency Code”).AsValue().AsDecimal();
exchRate.”Update Date” := UpdateDate;
exchRate.Insert();
end;
May be this piece of code will be helpful for someone else.
Exactly, the Keys property is what you need.
I would write it a little bit different though.
forach CurrencyCode in JsonObject.Keys do begin
exchRate.”Currency Code” := CurrencyCode;
exchRate.Rate := GetJsonToken(JsonObject, CurrencyCode).AsValue().AsDecimal();
…
end;
Pingback: Make your (Dynamics NAV) assistant - Microsoft Dynamics NAV Community
Thanks’ a lot for your samples to get data from a REST web service. This saved me a lot of time. I can’t find templates to modify data with the POST method by AL neither on other sites. Is there anybody out there with a AL code sample to modify data (single and multiple records) using a REST/JSON web service?
Thanks’ in advance
Plenty of examples, but I’m not sure what exactly you are looking for. AL code to modify records in another BC environment?
Pingback: ArcherPoint Dynamics NAV Developer Digest - vol 216 - Microsoft Dynamics NAV Community
Pingback: Azure Cognitive and Business Central : integrate “Form Recognizer” API and automatically process receipts – Yet Another Business Central Blog
Hello Kauffman,
Thanks a lot for you post about get data from odata webservice with format json.
I want to do a post to a odata webservice of business central from a business central extension, but i have a error when i do the post (error 400 – bad request).
I paste my code for if you can see it and help me:
HttpContent.WriteFrom(JsonText);
HttpContent.GetHeaders(HttpContentHeaders);
HttpContentHeaders.Remove(‘Content-Type’);
HttpContentHeaders.Add(‘Content-Type’, ‘application/json’);
HttpRequestMessage.Content := vHttpContent;
vUrl := ‘http://myserver:port/BCInstance/OData/Company(”CompanyName’)/PruebaSW$format=json’;
HttpRequestMessage.SetRequestUri(vUrl);
HttpRequestMessage.Method := ‘POST’;
HttpClient.Post(vUrl, vHttpRequestMessage.Content, vHttpResponseMessage);
Thank you!
Sorry, my code is the next:
HttpContent.WriteFrom(JsonText);
HttpContent.GetHeaders(HttpContentHeaders);
HttpContentHeaders.Remove(‘Content-Type’);
HttpContentHeaders.Add(‘Content-Type’, ‘application/json’);
HttpRequestMessage.Content := HttpContent;
vUrl := ‘http://myserver:port/BCInstance/OData/Company(”CompanyName’)/PruebaSW$format=json’;
HttpRequestMessage.SetRequestUri(vUrl);
HttpRequestMessage.Method := ‘POST’;
HttpClient.Post(vUrl, HttpRequestMessage.Content, HttpResponseMessage);
I think that you make a mistake in passing the content variable to HttpClient.Post
That should be HttpContent.
Or you use HttpRequestMessage.Send instead of HttpClient.Post. That option seems a better fit for your code.
I am used HttpRequestMessage.Send but i have the same error.
My code:
HttpContent.WriteFrom(JsonText);
HttpContent.GetHeaders(HttpContentHeaders);
HttpContentHeaders.Remove(‘Content-Type’);
HttpContentHeaders.Add(‘Content-Type’, ‘application/json’);
HttpRequestMessage.Content := HttpContent;
vUrl := ‘http://myserver:port/BCInstance/OData/Company(”CompanyName’)/PruebaSW$format=json’;
HttpRequestMessage.SetRequestUri(vUrl);
HttpRequestMessage.Method := ‘POST’;
HttpClient.Send(HttpRequestMessage, HttpResponseMessage);
The error is 400 – Bad Request.
I have also used HttpClient.Post passing HttpContent, and i have the same error:
HttpContent.WriteFrom(JsonText);
HttpContent.GetHeaders(HttpContentHeaders);
HttpContentHeaders.Remove(‘Content-Type’);
HttpContentHeaders.Add(‘Content-Type’, ‘application/json’);
HttpRequestMessage.Content := HttpContent;
vUrl := ‘http://myserver:port/BCInstance/OData/Company(”CompanyName’)/PruebaSW$format=json’;
HttpRequestMessage.SetRequestUri(vUrl);
HttpRequestMessage.Method := ‘POST’;
HttpClient.Post(vUrl, HttpContent, HttpResponseMessage);
It’s a little bit hard to figure out what’s going wrong.
Did you urlencode the company name in the URL? For example, CRONUS USA, Inc. becomes CRONUS%20USA%2C%20Inc.
By the way, try ODataV4 in the URL, instead of OData. If I’m correct, you can remove $format=json in the case.
I suggest to copy the URL from the web services page, that should display the correct URL.
Thanks a lot for you response.
I have tried with ODataV4 URL, with $format=json and removing it, and i now get the next error:
Error 400 – An unexpected ‘StartArray’ node was found when reading from the json reader.
Could be for the headers conditions? I have read for other forums about a condition “If-Match” (Etag).
Thank you so much!
The error is:
Código estado: 400
Descripción: An unexpected ‘StartArray’ node was found when reading from the JSON reader. A ‘StartObject’ node was expected.
Sorry Kauffmann,
I have already solved it.
My error was that I was passing a JsonArray instead a JsonObject:
JsonObject.Add(‘Clave’, ‘JESUS2’);
JsonObject.Add(‘Descripcion’, ‘PRUEBA JESUS 2’);
//JsonArray.Add(JsonObject);
//JsonArray.WriteTo(JsonText);
JsonObject.WriteTo(JsonText);
HttpContent.WriteFrom(JsonText);
I have changed the 2 commented lines for the next.
If you want to do a POST, you have passing a JsonObject, but if you want to do a GET of multiples records, you have saving the Json text in a JsonArray.
Thanks a lot!
Ah, of course… glad you solved it yourself!
By the way, when posting data, you are actually inserting data. That doesn’t require an If-Match header.
Hi Kauffmann,
Thank you for this article. I’m trying to use HTTP Client GET request with Request body parameter. If i add http content to the request its showing “Cannot send a content-body with this verb-type.” error.
Below is my code, could you pls help on this?
HttpRequestMsg.SetRequestUri(url);
HttpRequestMsg.Method := ‘GET’;
HttpRequestMsg.GetHeaders(HttpHeaders);
HttpHeaders.Clear();
HttpHeaders.TryAddWithoutValidation(‘Content-Type’, ‘application/json’);
HttpHeaders.TryAddWithoutValidation(‘Accept’, ‘application/json’);
HttpRequestMsg.Content.WriteFrom(Request);
Httpclient.Send(HttpRequestMsg, HttpResponseMessage);
Thanks & Regards,
Savitha
If you are sending data, then use the POST method.
To prevent you from running into the next error: the Content-Type header should be added to the Content, not to the Request message.
HI ajk,
Thank you for the reply,
Its an integration with third party API, so the GET can not be changed to POST.
Assigning Body content to GET is possible in Business Central?
It’s not Business Central what prevents you from sending data with a GET. It’s the HttpClient itself that doesn’t allow you. It’s very, very uncommon to submit data in a body when using the GET command.
Theoretically, it should be possible. But the HTTP specification states that the server is supposed to ignore the body, it should not make any difference for the response if there was a body included in the GET request.
A web service that requires a GET with a body is doing it wrong.
See also: https://stackoverflow.com/questions/43421126/how-to-use-httpclient-to-send-content-in-body-of-get-request
Hi,
Thanks for your post.
I use it to read Json array.
But how i can read an array from an array ?
In this exemple VATBase is an array :
items: [{
id: 11022,
purchasedOn: “2016-06-08T00:00:00”,
processedAmounts: {
amount: 57.9,
reimbursedAmount: 57.9,
grossAmount: 57.9,
currencyId: “EUR”,
currency: {
id: “EUR”,
name: “Euro”,
url: “https://lucca.ilucca.net/api/v3/currencies/EUR”
},
netAmount: 57.9,
vatBases: [{
countryVatRateId: 2,
countryVatRate: {
id: 2,
name: null,
url: “https://lucca.ilucca.net/api/v3/countryvatrates/2”
},
vatAmount: 0,
amountExcludingVat: 57.9,
isDeprecatedVat: false
}]
},
}]
How can i put VatBases in new JsonArray ?
When you read the property vatBases, you get back a JsonToken. This token can be assigned to a JsonArray variable with the method AsArray():
vatBasesArr := JToken.AsArray()
Hi Kauffman,
If an example my Json File structure is look like below, Here Consider Company have employees and employees have Id and Salary as an array with multiple lines and ErrorHandlingToken at the end, Then in That case what logic i should apply for the for loop . because above one i’m getting error in the jsontoken.
{
“Company”: {
“Employees”: [
{
“Id”: “Testing1”,
“Salary”: “1012”
},
{
“Id”: “Testing2”
“Salary”: “1015”
}
],
“Errorhandlingtoken”: “8ccce1da-ea4b-41c3-a0fa-b054fbd5bf62”
}
}
Please response if possible.
Thanks & regards,
Rajesh
Get the Employees property into a JsonToken, then cast it to a JsonArray, then loop through it with foreach.
Something along this example:
JsonObj.Get(‘Employees’, JToken);
EmployeesJArr := JToken.AsArray();
foreach EmployeeJObj in EmployeesJArr do begin
end;
foreach EmployeeJObj in EmployeesJArr do begin
end;
In this case EmployeeJobj gives Error for me compiletime
I would need to see your full code to see what’s wrong. If you want, send it to me by email (see my contact page)
I can’t see your email id anywhere ..what’s your email id?
aj at kauffmann.nl
Pingback: Make your (Dynamics NAV) assistant - Microsoft Dynamics NAV Community
Hi Arend-Jan,
Been working on my first API in BC with AL for the last 2 days now.
Have it working technically but one thing I want to do better:
This I have working
MyApiText := ‘”apiKey”: “‘ + EHGetOurKey + ‘”‘;
MyContent.WriteFrom(‘{ ‘ + MyApiText + ‘ }’);
But I dont want to build my JSON file manually like above with the {-signs and }-signs.
Therefore I want to use this approach instead:
JsnObjectTest.Add(‘apikey’,EHGetOurKey);
But I dont see how to then best get this JsonObject into an instream so that I can then get it into the HttpContent using the WriteFrom(instream) function.
Do i need to use an actual file? (even then how to get the JSON object into the file??)
But preferably how should I best get the JSON object into the HttpContent directly?
Your help – like your blog – is very much appreciated!
Thanks in advance,
Michiel Verbeek
No file needed.
Define json variable as Text.
Then do:
JsnObject.WriteTo(json);
HttpContent.WriteFrom(json);
Hi Arend-Jan,
Thanks to all your examples I almost have everything working.
Except when a token is missing from the Json response then the conversion of th token fails
I’ve done everything I can, to stop it from converting but I cant seem to get it to work.
Do you know what I’m doing wrong??
I’m even passing the PermAmountFound to the next function, but still it keeps givng the error:
“Unable to convert from Microsoft.Dynamics.Nav.Runtime.NavJsonValue to Microsoft.Dynamics.Nav.Runtime.NavText.”
The line in the 2nd function that is giving the error is : “CICoverAmountText:= format(pPermAmntToken.AsValue.AsText);”
Decimal, integer, text all dont work, the real issue is that it is not present (sometimes) in the response
PermAmountFound := JsnToken1.SelectToken(‘$.decision.permament.permanentAmount’,JsnToken2);
if JsnToken1.SelectToken(‘coverId’,JsnToken3) then ;
if JsnToken1.SelectToken(‘coverStatusCode’,JsnToken4) then;
if JsnToken1.SelectToken(‘$.company.companyID’,JsnToken5) then;
CheckUpdateWSLCover(DummyWSLRec,JsnToken2,JSnToken3,JSnToken4,JSnToken5,Interactive,i,PermAmountFound);
Procedure CheckUpdateWSLCover ……
…..
//Filled := pPermAmntToken.IsValue;
if pPermAmountFound then begin
CICoverAmountText:= format(pPermAmntToken.AsValue.AsText);
Evaluate(NewCoverAmnt ,CICoverAmountText);
end else
NewCoverAmnt := 0;
CICoverStatusText:= format(pCovStatusToken.AsValue.AsText);
Arend-Jan
You can ignore (or delete) the previous post: there was a second element that was empty as well, so I had fixed only one…
Glad you figured it out yourself! 😀
Hi is it possible to iterate over a json object something like foreach token in jsonobject.tokens or similar?
I guess that you mean to iterate over the keys in a JsonObject? Yes, that is possible!
The JsonObject.Keys returns a List of [Text], and you can just iterate through it:
foreach KeyName in JsonObject.Keys
Hello Kaufmann,
How can i insert entitycollection from POST using Business Cnetral API v2.0. The deep insert i tried that worked but it consumes 2 table objects also. can you please suggest somehing
Regards
I think that a batch call is the better option. See https://www.kauffmann.nl/2020/12/18/batch-calls-with-business-central-apis-1-basic-operation/
can we write the Mutation same as query you write there?
Hi Cryptixh. I hope you are doing well.
I need help.
Have you tried mutation query? I need help can you show me the sample.
Hi,
how to write this json
[
{
“transaction”: {
“Version”: “1.1”,
“TranDtls”: {
“TaxSch”: “GST”,
“SupTyp”: “B2B”,
“RegRev”: “Y”,
“EcmGstin”: “”,
“IgstOnIntra”: “N”
}
}
}
]
I need help.
Regards
Rayan