Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scan Endscan Problem VFP6 sp3
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00315948
Message ID:
00316249
Vues:
31
>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.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform