It worked before Feb 2006 (XHB and FWH), but now it crashes
- Code: Select all Expand view
Error description: Error DBFCDX/1023 Exclusive required
Called from: => __DBPACK(0)
Called from: dbsdf.prg => __DBSDF(241)
Called from: IMP_CLK.PRG => IMPORT_HRS(343)
Line 343 contained this below, but never had problems before 10/mar/2006
append from (xClPath+"_MAST.TXT") SDF
My search for DBSDF.PRG in FWH\SOURCE failed of course ...
The original code was as this:
- Code: Select all Expand view
Create (xClPath+"_MIMP.DBF") FROM (xClPath+"_MAST.STR")
newinfile := Select()
SELECT (newinfile)
append from (xClPath+"_MAST.TXT") SDF
(newinfile)->(DBCLOSEAREA())
My solution was to add this line:
- Code: Select all Expand view
Create (xClPath+"_MIMP.DBF") FROM (xClPath+"_MAST.STR")
newinfile := Select()
SELECT (newinfile)
USE (xClPath+"_MIMP.DBF") alias QQQQ EXCLUSIVE // added
append from (xClPath+"_MAST.TXT") SDF
(newinfile)->(DBCLOSEAREA())
Any advise ?
Regards, saludos
Evans