Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sporadic error accessing table
Message
 
To
25/07/2003 08:30:33
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00813452
Message ID:
00813703
Views:
7
When you get the Nesting Error, check what value is in orders.printed (make sure it's a logical, and what you get from len(alltrim(orders.po)) (make sure it's numeric. I've seen nesting errors in a SCAN statement when you would normally expect something like "Data type mismatch".

The second problem sounds similar. There's something wrong with your Orders table in some cases.

>I am getting the following 2 errors every so often.
>
>1.
>Procedure Utilosfprintserver001.zgetpo
>C:\ecnc\source\utilosfprintserver.sct (line 15)
>"Nesting error."
>2.
>Procedure Utilosfprintserver001.zgetpo
>C:\ecnc\source\utilosfprintserver.sct (line 7)
>"Error reading file \\stysinger3\osf\data\orders.dbf."
>
>
Create Cursor notprinted (po c(30))
>If File('\\stysinger3\osf\data\orders.dbf')
>	If Not Used('orders')
>		Use '\\stysinger3\osf\data\orders.dbf' In 0 Shared
>	Endif
>	Select orders
>	Scan For Len(Alltrim(orders.po))>0 And orders.printed<>.T.
>		Select notprinted
>		Locate For Alltrim(notprinted.po)=Alltrim(orders.po)
>		If Found()=.T.
>			*do nothing
>		Else
>			Insert Into notprinted (po) Values (orders.po)
>		Endif
>	Endscan
>	Thisform.lstpos.RowSource='notprinted.po'
>	Thisform.lstpos.Refresh
>	Thisform.lstpos.Click
>	Thisform.Refresh
>Else
>	Wait 'network path not found, process suspeneded' Window Nowait
>Endif
>
>This bit of code is part of an automated process that fires every 10 seconds or 30000 miliseconds.
>Any ideas on what is causing these errors?
Previous
Reply
Map
View

Click here to load this message in the networking platform