Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem with seek()
Message
From
11/10/2003 07:08:02
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
10/10/2003 17:52:39
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00837690
Message ID:
00837800
Views:
26
>Hello everyone. In my application I am doing the following seek()
>command.
>
>IF SEEK(route_status_vp.depot_id+DTOC(route_status_vp.delivery_date);
> + route_status_vp.route_id+route_status_vp.load_number+'Y', ;
> 'palletize_customers_vp', 'palletize')
>
>Let me explain how this is used. I pop up a modal form where the user
>changes a combobox in a grid for each record he wants selected
>(changes palletize field from N to Y or vice versa). When done
>changing records, the user clicks and OK button to close the form
>which executes my code. On the first run I change 2 records to have
>palletize = 'Y'. The system returns a T from the seek. I then run
>the form again and change the same records back to 'N' from 'Y' but
>the seek returns T again. I tried a locate and it worked correctly.
>I displayed all the fields resulting from the seek and the palletize
>field it returns is .F.
>
>Any ideas?
>
>Jason

What is the index key expression ?
When seek returns .t. what does :
lcSeek = route_status_vp.depot_id+DTOC(route_status_vp.delivery_date);
	+ route_status_vp.route_id+route_status_vp.load_number+'Y'
IF SEEK(lcSeek, 'palletize_customers_vp', 'palletize')

lcAlias = 'palletize_customers_vp'
lcKey = 'palletize'
select (lcAlias)
lcKeyValue = evaluate(Key(lcAlias,Tagno(lcKey,lcAlias,lcAlias),lcAlias))
? lcKeyValue = lcSeek, lcKeyValue == lcSeek
? lcKeyValue
? lcSeek
return ?
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform