How can I post the ITEMS list like the example os Json's code?
The first block is OK:
oJson = new JsonObject().
oJson:Add('appId', 'totvs.1').
oJson:Add('token', '').
oJson:Add('activityId', '1').
oJson:Add('IdCode', '55-0438736-1056435-3102D').
{ "appId" : "totvs.1", "token" : "", "activityId" : 1, "idcode" : "55-0438736-1056435-3102D", "items" : [ { "material" : { "id" : "00930", "name" : "CONSERVANTE MONOCÁLCIO", "desc1" : "CONSERVAR EM TEMPERATURA ATÉ 20 oC", }, "itemIdx" : 1, "itemSupBatch" : "BA-23903", "itemErpBatch" : null, }, { "material" : { "id" : "00930", "name" : "CONSERVANTE MONOCÁLCIO", "desc1" : "CONSERVAR EM TEMPERATURA ATÉ 20 oC", }, "itemIdx" : 2, "itemSupBatch" : "BA-23904", "itemErpBatch" : null, } ] }
using Progress.Json.ObjectModel.*. define variable oJson as JsonObject. define variable oJson2 as JsonObject. define variable oJson3 as JsonObject. define variable aJson as JsonArray. oJson = new JsonObject(). oJson2 = new JsonObject(). oJson3 = new JsonObject(). aJson = new JsonArray(). oJson:Add('appId', 'totvs.1'). oJson:Add('token', ''). oJson:Add('activityId', '1'). oJson:Add('IdCode', '55-0438736-1056435-3102D'). oJson2:Add('material', oJson3). oJson2:ADD('itemIdx', 1). oJson2:ADD('itemSupBatch', 1). oJson2:ADD('itemErpBatch', 1). oJson3:Add('id', '00930'). oJson3:Add('name', 'CONSERVANTE MONOCALCIO'). oJson:Add('items', aJson). aJson:Add(0, oJson2). aJson:Add(1, oJson3). oJson:WriteFile('c:\temp\oJson.json', true).
Look at jsonArray, add oJson to that....
Did you have an example?
using Progress.Json.ObjectModel.*. define variable oJson as JsonObject. define variable oJson2 as JsonObject. define variable oJson3 as JsonObject. define variable aJson as JsonArray. oJson = new JsonObject(). oJson2 = new JsonObject(). oJson3 = new JsonObject(). aJson = new JsonArray(). oJson:Add('appId', 'totvs.1'). oJson:Add('token', ''). oJson:Add('activityId', '1'). oJson:Add('IdCode', '55-0438736-1056435-3102D'). oJson2:Add('material', oJson3). oJson2:ADD('itemIdx', 1). oJson2:ADD('itemSupBatch', 1). oJson2:ADD('itemErpBatch', 1). oJson3:Add('id', '00930'). oJson3:Add('name', 'CONSERVANTE MONOCALCIO'). oJson:Add('items', aJson). aJson:Add(0, oJson2). aJson:Add(1, oJson3). oJson:WriteFile('c:\temp\oJson.json', true).