Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
1st App installed at beta site but errors...
Message
From
24/10/2000 21:38:30
Ed Gay
Computer Software Consultants
Bangor, Maine, United States
 
 
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Miscellaneous
Thread ID:
00433499
Message ID:
00433867
Views:
23
Jim,
I think I found the problem and it maybe a bug in the Framework. The error happens in the cGlobalDataEnvironment, here is the code:


IF EMPTY(this.cResource)
SET RESOURCE ON && error happens here
ELSE
luTemp = this.cResource
SET RESOURCE &luTemp
ENDIF

IF EMPTY(this.cResourceTo)
IF FILE(HOME() + "FOXUSER.DBF")
SET RESOURCE TO (HOME() + "FOXUSER.DBF")
ENDIF
ELSE
luTemp = this.cResourceTo
IF FILE(this.cResourceTo)
luTemp = ["] + luTemp + ["]
SET RESOURCE TO &luTemp
ENDIF
ENDIF

I think that the this.cResourceTo should be checked before you try to set the resouce on. The two If statements should be reversed like this



IF EMPTY(this.cResourceTo)
IF FILE(HOME() + "FOXUSER.DBF")
SET RESOURCE TO (HOME() + "FOXUSER.DBF")
ENDIF
ELSE
luTemp = this.cResourceTo
IF FILE(this.cResourceTo)
luTemp = ["] + luTemp + ["]
SET RESOURCE TO &luTemp
ENDIF
ENDIF

IF EMPTY(this.cResource)
SET RESOURCE ON && now its safe to turn the resource on
ELSE
luTemp = this.cResource
SET RESOURCE &luTemp
ENDIF

How about it Kevin is this a problem?

Ed
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform