[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: (Help) Make a list - REST

[Ruben Dröge]

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).

Continue reading...