Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scan Endscan Problem VFP6 sp3
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00315948
Message ID:
00316249
Views:
32
>snip If WHILE is used, the skip -1 will be necessary because the REPLACE will >leave the record pointer at the record past the last record that satisfies the >WHILE condition.

That was the statement that I was looking for. I could not figure out why the scan was skiping records. Here is how it was fixed.

Use invfl in 0 shared order orderno
use orderfl in 0 shared order orderno

set relation to orderno into orderfl

sele invfl

Scan for shipdate=date() and empty(invfl.invno) and lines=1
lcCusnum=invfl.cuskey
lnOrdernum=invfl.orderno
lcCatkey=orderfl.catkey
If lcCatkey="CON" and orderfl.orderno=lnOrdernum
Replace hold with .T.
Wait window "Replaced Hold with True as Requested for Customer # "+lcCusnum at 15,115 timeout 0.75
Endif
Endscan

Thank you for your post.
Previous
Reply
Map
View

Click here to load this message in the networking platform