topic-43516

devwin2010

Posts: 69

Joined: Tue Jul 17, 2007 12:37 PM

Ayuda con FW_DbfToJson
Posted: Thu Jul 27, 2023 02:08 AM

Buenas Noches

Alguien tiene un ejemplo de uso de FW_DbfToJson

muchas gracias

Fabian

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: Ayuda con FW_DbfToJson
Posted: Thu Jul 27, 2023 03:52 AM

Fabian:

Code (fw): Select all Collapse

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

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

FiveTech Support Forums

Continue the discussion