Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Compiler Trap
Message
From
21/10/2004 13:17:21
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Compiler Trap
Miscellaneous
Thread ID:
00953399
Message ID:
00953399
Views:
66
Dear lookers-over-the-shoulder

My compiler won't let me out of the method wherein lies this code. It objects to the "Else". If I comment out the "Scan Rest" command it's happy. Can anyone see the problem? Beats the c**p out of me!
If SEEK( lcSeekKey)	&& then RZSTOP recs already set up for this route combo
  If Not FLOCK()
      = MESSAGEBOX( "Route: " + lcRoute + ", Gen: " + lcGen + ", Dir: " + lcDirectn + "." + CHR(13) + ;
  	  	  "Another user has the Route-Zones-Stops Link Table locked." + CHR(13) + ;
  	  	  "Cannot continue with saving this Route's Zones and Stops.", MB_ICONINFORMATION, ; 
  	  	  "Route-Zones-Stops Link Table Locked") 
      llSuccess		          = .F.
      Scan Rest 	For RTE_NO    = tcRoute ;
		And RTE_LET   = tcGen ;
		And DIRECTN   = tcDirectn	&& so we're done with this RGD
  Else
      Delete All	For RTE_NO    = tcRoute ;
		And RTE_LET   = tcGen ;
		And  DIRECTN  = tcDirectn
      Skip				&& In case above delete fails - not know where we'd be in table
      llSuccess		     = TABLEUPDATE(.T.)
      UNLOCK
  EndIf Not FLOCK()
EndIf SEEK()
Terry
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Next
Reply
Map
View

Click here to load this message in the networking platform