Dúvida em como popular json

Framework - Linha Protheus LIB
,
1

Tenho que montar um json (de maneira simplificada) com a seguinte estrutura:


{"conteudo":"Produtos de Aluminio, aço, plastico, madeira","totPeso":100,"pedido":["123456","654321"]}



// maneira comum de montar

oJson := JSonObject():New()
cTextJson := "{" 
cTextJson += '"conteudo":"Produtos de Aluminio, aço, plastico, madeira",' 
cTextJson += '"pedido":[ "123456","654321"],' 
cTextJson += '"totPeso":100 }' 

oJson:FromJson(cTextJson)



// imputando os dados diretamente ao objeto oJson
oJson := JSonObject():New()
oJson["conteudo"] := "Produtos de Aluminio, aço, plastico, madeira"
Pedido[] (nao sei como fazer,tentei diversas maneiras e a documentação no TDN só explica assim: "pedido":[{"pedido1":"123456","pedido2":"654321"}] )
oJson["totPeso"] := 100

Como faço para incluir a propriedade pedido ?

2

Boa Tarde,

Você vai precisa usar a função set pra adicionar um array dentro de um JsonObject, veja o exemplo no link:

https://tdn.totvs.com/display/tec/JsonObject%3ASet

Aí você pode fazer mais ou menos da seguinte forma:



Aadd(aPedidos,JsonObject():new())

aPedidos[1]["pedido1"]:="123456"
aPedidos[1]["pedido2"]:="654321"


oJson2 := JsonObject():New()
oJson2:Set(aPedidos)

oJson["pedido"]  := oJson2[1], 
oJson["totPeso"] := 100

Acho que isso resolve

Atenciosamente, Douglas Bichir

3

Obrigado pela resposta Douglas!