Hello all !

I have a serious serious issue that I need help trying to solve. Here is the scenario:

We get intermittent errors with file access denied on cdx files, and file is missing or invalid on fpt files when the program tries to open some dbfs on the network server.

There approx less than 20 users at any one time.
The server is Win2000 5.00.2195 Data Center SP3

Here is the problem:

the program tries to open a dbf and will eventually come back after 30 to 60 to 90 secs (or longer) and say that either it cant open the cdx or the fpr associated with the dbf.

I then leave that error up and open a new session of vfp ide in another process and attempt to open the same dbf shared and I get the same error.

But if I open notepad and then open the cdx or dbf or fpt it will open it no problem ???

So then I came back to the vfp ide and tried to modi file the cdx, and get the access denied error. Same with the dbf and fpt.

BTW I have this in my start program:

*-- Turns off table integrity checking which locks the header and can cause scalability issues
SET TABLEVALIDATE TO 0


** This is the code where the errors seem to always happen:
This code gets called from our baseforms load event for all cursors
bypassing the original path to the dbcs and tables.


PROCEDURE openDataFile(cDBFToOpen,cAlias2Open,cDataPath2Look)

LOCAL cMyAlias , cDBFToOpen , cAlias2Open , cDBFFullName , cOldDBC , cDBC , lPView

cMyAlias1 = ALLTRIM(IIF(VARTYPE(cAlias2Open)='C',ALLTRIM(cAlias2Open),JUSTSTEM(cDBFToOpen)))
cMyAlias = IIF(EMPTY(cMyAlias1),JUSTSTEM(cDBFToOpen),cMyAlias1)
cDBFFullName = cDataPath2Look + FORCEEXT(cDBFToOpen,'DBF')

*-- If its used with the alias we want, cool
IF USED(cMyAlias)
RETURN .T.
ENDIF

IF '!' $ cDBFFullName
*-- This is a view dont test for the file... it doesnt exist...
cMyAlias = GETWORDNUM(cDBFToOpen,2,'!')
cDBC = GETWORDNUM(cDBFToOpen,1,'!')
IF USED(cMyAlias)
RETURN .T.
ENDIF

cOldDBC = DBC()
SET DATABASE TO (cDBC)

* See if it is a parametized view, if so open nodata
lPView = '?' $ DBGETPROP(cMyAlias, "View", "SQL")

IF !EMPTY(cOldDBC)
SET DATABASE TO (cOldDBC)
ENDIF

IF lPView
USE (cDBFToOpen) IN 0 SHARED ALIAS (cMyAlias) AGAIN NODATA
ELSE
USE (cDBFToOpen) IN 0 SHARED ALIAS (cMyAlias) AGAIN
ENDIF

ELSE
IF FILE(cDBFFullName)
IF EMPTY(ALLTRIM(cMyAlias))
USE (cDBFFullName) IN 0 SHARED
ELSE


*****************************
* This next line is where the error occurs
****************************

USE (cDBFFullName) IN 0 SHARED ALIAS (cMyAlias)



ENDIF
ELSE


* We can look up this table in the other system data folders

ENDIF
ENDIF

*-- If its used with the alias we want, cool, otherwise look elsewhere
RETURN USED(cMyAlias)




Does anyone have any idea what could cause this ? Is it network or VFP ? How can it be network if notepad can open the file(s) ?

As you might imagine this is Extraordinarily hard to explain to the clients !!!

Thanks for any and all help on this issue !
Greg