

LOCAL db   as "newObjectsPack1.sqlite.dbutf8"

db = CreateObject("newObjects.sqlite3.dbutf8")
db.NoErrorMode = .T.

oJson.setbdd_remote()

DELETE FILE (oJson._cBddName)

IF db.Open(oJson._cBddName) THEN	
	oJson.sqlite (db,FILETOSTR('sql/vfac.sql'))
ENDIF

db.Close()
