how to convert text to JsonArray in D365 BE

(0) Share

Report

Posted on by jadenkim

hi experts,

i am creating an app using AL language.
in this code, i need to use a json code.
however i couldn't convert json result to jsonArray.

when running this code,

here is the code.
// Process JSON response
Clear(JsonArray);
JsonArray := ReadJson(JsonText);

local procedure ReadJson(data : Text) result : JsonArray;
    begin
        Message(data); //todo : remove
        if not result.ReadFrom(data) then
            Error('Invalid response, expected an JSON array as root object');
    end;

here is the response data, JsonText
{
"results": {
    "common": {
      "errorMessage": "success",
    },
    "target": [
      {
        "liNm": "",
        "rnMgtSn": "116502102001",
        "mtYn": "0",
        "bdMgtSn": "1165010800113280001000001"
      }
    ]
}
}

thank you in advance.

*This post is locked for comments

I have the same question (0)

All responses (8)

Answers (1)

Verified answer

Andrey Baludin 3,941 on at

Like (0)

Report

Hi!

I use this article as a white papers how to work with JSON from AL :) :

www.kauffmann.nl/.../al-support-for-rest-web-services

Also, there is one nice extension for vs code by Tobias Fenster, which generates AL objects by API url (based on previous article):

www.axians-infoma.de/.../generating-al-objects-from-json

Was this reply helpful? Yes No
jadenkim on at

Like (0)

Report

thank you for your reply, Andery.

this article is helpful for me.

Was this reply helpful? Yes No
jadenkim on at

Like (0)

Report

Hi andrey,

i read the article and i tried to handle the json.

finally i didnt' do it.

because json file that i have is more complex than the sample.

can you advice me how to handle this json?

{

"results": {

"common": {

"errorCode": "0",

"currentPage": "1"

},

"data": [

{

"admCd": "1165010800",

"udrtYn": "0",

"lnbrMnnm": "1328"

},

{

"admCd": "1168011800",

"udrtYn": "0",

"lnbrMnnm": "199"

},

{

"admCd": "1168011800",

"udrtYn": "0",

"lnbrMnnm": "194"

},

{

"admCd": "1168011800",

"udrtYn": "0",

"lnbrMnnm": "199"

}

]

}

}

Was this reply helpful? Yes No
Suggested answer

Andrey Baludin 3,941 on at

Like (0)

Report

I understood your problem, it,s because Json Array should starts from square brackets [, and your response starts from { and array data[] placed inside.

Honestly, i don't know how to get array from this response properly, so i used a cheat (if anybody knows - i'll be very appreciate):

if not Client.Post("API URL", Content, ResponseMessage)

then

Error('The call to the web service failed.');

ResponseMessage.Content.ReadAs(JsonText);

//Here is we get a clear array by copying ony part in square brackets

JsonText := CopyStr(JsonText, StrPos(JsonText, '['));

JsonText := CopyStr(JsonText, 1, StrLen(JsonText) - 1);

// Process JSON response

if JsonArray.ReadFrom(JsonText) then begin

for i := 0 to JsonArray.Count - 1 do

begin

JsonArray.Get(i, JsonToken);

JsonObject := JsonToken.AsObject;

//and here some function which takes data from JsonObject like in article

end;

end;

And also place a breakpoints and use a debugger - this way you'll get a step on which error occurs.

Was this reply helpful? Yes No
jadenkim on at

Like (0)

Report

i solve this.

thank you andrey.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

Hi JK

It Will be Great Help If You Explain how you Solve. If Using JSONARRAY give your code

Thanks

Seema

Was this reply helpful? Yes No
Andrey Baludin 3,941 on at

Like (1)

Report
Hi Seema, try this:

ResponseMessage.Content.ReadAs(JsonText); JsonToken.ReadFrom(JsonText); JsonObject := JsonToken.AsObject; JsonObject.SelectToken('data', JsonToken); JsonArray := JsonToken.AsArray; for i := 0 to JsonArray.Count - 1 do begin JsonArray.Get(i, JsonToken); HandleArray(JsonToken); end; procedure HandleArray(JsonToken : JsonToken); var JsonObject : JsonObject; Results : Record "XXX"; // <- Your table begin JsonObject := JsonToken.AsObject; Results.init; Results.admCd := SelectJsonToken(JsonObject, '$.admCd') Results.udrtYn := SelectJsonToken(JsonObject, '$.udrtYn') Results.lnbrMnnm := SelectJsonToken(JsonObject, '$.lnbrMnnm') Results.Insert; end; local procedure SelectJsonToken(JsonObject: JsonObject; Path: text): text; var JsonToken: JsonToken; begin if not JsonObject.SelectToken(Path, JsonToken) then exit(''); if JsonToken.AsValue.IsNull then exit(''); exit(jsontoken.asvalue.astext); end;

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

How do I do that?

Was this reply helpful? Yes No