Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 19

changes.mady.by.user Rodrigo Silva Costa

Gravado em

comparado com

Nova versão 20

changes.mady.by.user Rodrigo Silva Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Fontes

Progress 10.2b e versões posteriores: <FOUNDATION>/com/totvs/framework/abl/json/

Aviso

A versão do 10.1b do progress não faz conversão automática dos valores passados por parâmetro para os métodos e funções das classes, é necessário primeiro converte-los, isso significa que se chamar um método que recebe um lchar, primeiramente deve-se criar uma variável do tipo lchar, atribuir o valor e passar essa variável como parâmetro.

Fontes adaptados:

Progress 10.1b (legado): <FOUNDATION>/V2.06B/V2.06B/com/totvs/framework/abl/json

Bloco de código
linenumberstrue
USING com.totvs.framework.abl.json.*.

DEFINE VARIABLE oJson AS CLASS JSONObject NO-UNDO.
DEFINE VARIABLE lChar AS LONGCHAR NO-UNDO.

oJson = NEW JSONObject().

lChar = '~{"nome":"fulano","idade":28,"admin":true,"carga":8.5,"conjuge":~{"nome":"Beltrana","sobrenome":"Siclana"~},"cursos":[~{"curso":"1 - Ciencia da Computa‡Æo","finalizado":false~},~{"curso":"3 - Gastronomia","finalizado":true,"ano":2015~},~{"curso":"4 - Inglˆs","finalizado":true,"ano":2014~}],"contrato":"15-1-2015"~}'.

oJson:setJSONString(lChar).
oJson:saveToFile("c:\tmp\teste_salvo.json").