Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Man, seems I am not giving up until someone actually hel
Message
From
18/06/1999 08:34:04
David Fluker
NGIT - Centers For Disease Control
Decatur, Georgia, United States
 
 
To
18/06/1999 08:20:04
David Fluker
NGIT - Centers For Disease Control
Decatur, Georgia, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00230878
Message ID:
00231305
Views:
12
Oops!

I thought I had left a reply with a question about the LOCATE. Then I saw the answer in your discussion with Evan and came back to retract the question, but it looks like I had posted a blank.

Sorry!

David.


>> 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).
David.
Previous
Reply
Map
View

Click here to load this message in the networking platform