FWJsonSerialize substituir por JsonObject

Framework - Linha Protheus LIB
, ,
1

Boa tarde, Ao substituir a função FWJsonSerialize por JsonObject:toJSON, ao realizar a requisição POST, retorna erro 400 bad resquet, analisando o json gerado a única diferença esta nos campos datas, que com a função FWJsonSerialize gera caracter escape barra invertida.

  1. "14\/06\/2023" com FWJsonSerialize
    1. "14/06/2023" com JsonObject:toJSON

Segue trecho do fonte como estou montando o Json


cJsonPos := oObjCab:toJson()



aJson := {}
Aadd(aJson,JsonObject():new())
aJson[Len(aJson)]:= oObjCab
cJsonPos := FWJsonSerialize(aJson)



oRstCliLog := FWRest():New(cUrlBase)
oRstCliLog:setPath(cPath)
oRstCliLog:SetPostParams(cJsonPos)

oRstCliLog:Post(aHeadOut)

Retornando para a função FWJsonSerialize, volta funcionar corretamente.

2

Olá…

Nesse caso vc vai montar o array com os Json lá dentro, e dpois fazer assim

jDados    := JsonObject():New() as json
jDados:Set(aDados) //usa o método SET para setar o array q vc precisa
cParam := jDados:toJson() //Aqui ele transforma o array no json