Ayuda con FW_DbfToJson
Posted: Thu Jul 27, 2023 2:08 amBuenas Noches
Alguien tiene un ejemplo de uso de FW_DbfToJson
muchas gracias
Fabian
Alguien tiene un ejemplo de uso de FW_DbfToJson
muchas gracias
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)