I'm converting a oldesta prg ( from clipper) and I have Dbf and Dbt, now I use Cdx and fpt
How I can change dbt on Fpt ?
FUNCTION dbffpt()
//use emaillog
//copy to c:\marc\fpt\emaillog.dbf via "COMIX"
//close all
//*
LOCAL aFiles[ADIR("c:\marc\*.dbf")]
cursorwait()
ADIR("c:\marc\*.dbf", aFiles)
asort(afiles)
for i = 1 to len(aFiles)
cFile = alltrim(aFiles[i])
use &cfile
cTarget = "c:\marc\fpt\" + cfile
copy to &cTarget via "COMIX"
close all
next
*/
msginfo("Done")
RETURN
Marc Venken wrote:I did it like this...
Comix will become "DBFCDX" now
- Code: Select all Expand view
FUNCTION dbffpt()
//use emaillog
//copy to c:\marc\fpt\emaillog.dbf via "COMIX"
//close all
//*
LOCAL aFiles[ADIR("c:\marc\*.dbf")]
cursorwait()
ADIR("c:\marc\*.dbf", aFiles)
asort(afiles)
for i = 1 to len(aFiles)
cFile = alltrim(aFiles[i])
use &cfile
cTarget = "c:\marc\fpt\" + cfile
copy to &cTarget via "COMIX"
close all
next
*/
msginfo("Done")
RETURN
#include "fivewin.ch"
REQUEST DBFCDX
REQUEST DBFFPT
EXTERNAL ORDKEYNO,ORDKEYCOUNT,ORDCREATE,ORDKEYGOTO
FUNCTION dbffpt()
//use emaillog
//copy to c:\marc\fpt\emaillog.dbf via "COMIX"
//close all
//*
LOCAL aFiles[ADIR("*.dbf")]
cursorwait()
ADIR("*.dbf", aFiles)
asort(afiles)
for i = 1 to len(aFiles)
cFile = alltrim(aFiles[i])
use &cfile
cTarget = ".\fpt\" + cfile
copy to &cTarget via "DBFCDX"
close all
next
msginfo("Done")
RETURN
#include "fivewin.ch"
REQUEST DBFCDX
REQUEST DBFNTX
REQUEST DBFDBT
REQUEST DBFFPT
EXTERNAL ORDKEYNO,ORDKEYCOUNT,ORDCREATE,ORDKEYGOTO
FUNCTION dbffpt()
//use emaillog
//copy to c:\marc\fpt\emaillog.dbf via "COMIX"
//close all
//*
LOCAL aFiles[ADIR("*.dbf")]
cursorwait()
ADIR("*.dbf", aFiles)
asort(afiles)
for i = 1 to len(aFiles)
cFile = alltrim(aFiles[i])
use &cfile via "DBFNTX"
cTarget = ".\fpt\" + cfile
copy to &cTarget via "DBFCDX"
close all
if I = 10 // for testing
exit
endif
next
msginfo("Done")
RETURN
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 70 guests