Gerar Json
Enviado: 15 Ago 2023 19:03
Preciso gerar o aquivo clientes.dbf em formato JSON
Deve estar faltando alguma coisa entre cada registro, pois o json gerado nao é valido (ver anexos)
Deve estar faltando alguma coisa entre cada registro, pois o json gerado nao é valido (ver anexos)
Código: Selecionar todos
function main()
local vsaida:='',oData
sele 0
use cliente alias cliente
go top
do while !eof()
oData:=hb_Hash()
oData["Nome_Cliente"]:=alltrim(nomecli)
oData["CliUF"]:=cliente->uf
oData["CliCEP"]:=cliente->cep
vsaida+=hb_JsonEncode( oData ) // +','+chr(13)+Chr(10)
dbskip()
enddo
HB_MemoWrit('teste.json',vsaida)
qui