Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Man, seems I am not giving up until someone actually hel
Message
 
À
17/06/1999 10:13:41
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00230878
Message ID:
00231387
Vues:
17
Chuck,

After a quick look, I think you should be able to figure this out yourself. Do a SET STEP ON right before your scan. Through the Command Box, you should BROWSE all affected tables before and after every command that affects a table. Also check your record pointer after any LOCATE to see that it is where you expect. When something happens that you didn't expect/want, fix the code.

Do you have a problem with that?

Joe



> CASE _tally = ct && (means both tables has same counts, so need to verfiy side-by-side)
> SELECT histpo
> SELECT * FROM histpo TO histtemp WHERE po = varpo
> SELECT tempcur
> SELECT * FROM tempcur TO temptemp
>
>***
>***THIS SECTION IS WHERE I NEED HELP!!!
>***
>
> SCAN FOR po = varpo
> IF class = varclass AND ;
> fund = varfund AND ;
> udds = varudds AND ;
> amount = varamount AND ;
> fy = varfy AND ;
> activity = varactivity AND ;
> account = varaccount
> SELECT histtemp
> DELETE
> SELECT temptemp
> DELETE
> LOCATE
> ELSE && (means tempcur has updated data, need to DELETE records in HISTPO, add new records into HISTPO)
> SELECT tab3
> APPEND FROM tempcur
> EXIT
> ENDIF
> SELECT histtemp
> IF BOF() && (see next 2nd line)
> SELECT temptemp
> IF BOF() && (means ALL matches)
> SELECT tab2
> APPEND FROM tempcur
> ELSE
> SELECT tab3
> APPEND FROM tempcur
> ENDIF
> ELSE
> SELECT tab3
> APPEND FROM tempcur
> ENDIF
> ENDSCAN
>
>
>What is wrong here? I have two tables and both have duplicate recs and same counts of duplicates (5 recs and 5 recs or 4 and 4 or 2 and 2). I need to track so I can know if updated or not, so I can report it (there are no forms so it is click and snip coffee and walk to printer kind of execute).
Joseph C. Kempel
Systems Analyst/Programmer
JNC
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform