FiveTech Software tech support forums

Code: Select all | Expand

#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)