Amigos... lo hice medio casero... pero funciona, capaz hay algo un poco más sofisticado...
Por ahí le sirve a alguno:
FUNCTION GENERARJSON()
Local hJson := hash()
local cJson := '{"clientes":['
(bclientes)->(dbgotop())
while !(Bclientes)->(eof())
hJson["Código"] := (bclientes)->codigo
hJson["Razón Social"] := alltrim(hb_OemToAnsi((bclientes)->NOMBRE))
hJson["Dirección"] := alltrim(hb_OemToAnsi((bclientes)->direccion))
hJson["Teléfono"] := alltrim((bclientes)->te)
hJson["C.U.I.T."] := alltrim((bclientes)->cuit)
cJson += hb_JsonEncode( hJson,.f. )
(bclientes)->(dbskip())
IF !(Bclientes)->(eof())
cJson +=","
ENDIF
enddo
cJson+=']}'
MemoWrit( "clientes.json", cJson )
RETURN NIL
Saludos...
↧