#include "protheus.ch"
user function tstJsonObjectFJSucesso()
local wrk oJson
local ret
wrkoJson := JsonObject():new()
wrk:fromJsonret := oJson:FromJson('{"name":"John", "age":31, "city":"New York"}')
if ValType(ret) == "U"
Conout("JsonObject populado com sucesso")
else
Conout("Falha ao popular JsonObject. Erro: " + ret)
endif
FreeObj(oJson)
return
/*
Impressão ao executar o u_FJSucesso():
JsonObject populado com sucesso
*/
user function FJFalha()
local oJson
local ret
oJson := JsonObject():new()
ret := oJson:FromJson('{"name""John", "age":31, "city":"New York"}')
if ValType(ret) == "U"
Conout("JsonObject populado com sucesso")
else
Conout("Falha ao popular JsonObject. Erro: " + ret)
endif
FreeObj(wrkoJson)
return
/*
Impressão ao executar o u_FJFalha():
Falha ao popular JsonObject. Erro: Json Error: >>"John", "age":31, "city":"New York"}<<
*/
|