Ayuda con FW_DbfToJson

[devwin2010]

Buenas Noches

Alguien tiene un ejemplo de uso de FW_DbfToJson

muchas gracias

Fabian

[Cgallegoa]

Fabian:

Code: Select all  Expand view

#include "FiveWin.ch"

REQUEST DBFCDX

Function main()
   LOCAL hJSon, hFile
   
   RddSetDefault("DBFCDX")
   
   USE d:\fwh\samples\customer.dbf ALIAS "Cust"

   hJson := Cust->(FW_DbfToJson())
   hFile := FCreate( "_Resp.json" )
   FWrite(hFile,hJSon)
   FClose(hFile)
   
   HB_JsonDecode(hJSon, @hJSon)
   xBrowse(hJSon,"hJSon")
   
   dbCloseall()
Return(nIl)