Find by key

[Jim Lightburn]

guess I didn't ask this right last time.
While in the form view, when I press the find by key it opens up to search by the Record Number (One of the fields) I would like to change it so that when I click on Find By it opens up to Client ID (another field). I do change it for that time that I'm working on my DB but when I close Alpha then the next time I use it it goes right back to Record Number.
Thanks for your help

[Cheryl Lemire]

RE: Find by key

On one of my forms I use a lookup using cust_id as the index and when I select the find by key in that field it searches by that index. Based on this, perhaps you can try to define this by setting an index for that field. I believe that it pulls the field index as the default find by.

[Jim Lightburn]

RE: Find by key

thanks Cheryl....I was thinking along those lines also but the field index is actually Last Name so you would think it would default to that but it still defaults to Record Number....weird huh?

[Cheryl Lemire]

RE: Find by key

I did an 'index' search in the help docs using find by key as my search data.

The Find by Key action searches for records matching a specified key value using the Find by Key dialog. This action gives you the option to specify the key to search for in advance, or prompt the user at run-time.

In the How will you specify which key value to go to? field select one of the following values.

"Specify record key value now"

"Specify a variable that contains the key value"

"Specify an expression that evaluates to the key value"

"Prompt user for key value at run-time"

If you selected "Specify record key value now", enter a value in the Key Value field.

If you selected "Specify a variable that contains the key value", select an existing variable for the Variable Name list or enter the name of a variable. In the latter case, you will also have to select the variable's type in the Variable Type list.

If you selected "Specify an expression that evaluates to the key value", enter an expression into the Expression field. Optionally, click the Expression icon to open the Expression Builder.

[Tom Cone Jr]

RE: Find by key

Jim,

Find by Key will work with whichever index is primary. You can set the primary index for the form using code or action scripting.

A typical sequence for your button would be:

1) get the current primary index and store it in a variable
2) set a different index as primary (choosing one which fits the type of key you want to use for the search)
3) do the search
4) re-set the original index as primary

-- tom

[Tom Cone Jr]

RE: Find by key

Jim,

If you're working with the app yourself, not developing it for another, try this:

1) use Ctrl-I to pick the desired index for your search
2) use Ctrl-K to do the find by key
3) use Ctrl-I to pick the original index (returning the form to it's configuration before the search).

--tom

[Cheryl Lemire]

RE: Find by key

Like Tom I am not aware of the environment that this search is being done in so I do not know if any of this will assist or not. I have created a 'find by' form for the client to select how he wants to search his records. As an example, there are buttons on the form for: find by last name, find by company name, etc What happens as a result of the button being pushed say for find by last name

The customer form is opened and the client is prompted to enter a last name to search for. Because of the paramenter settings in the open form action scripting that I selected, the prompt will show the first available last name based on what they have typed to that point. Once they press enter the record matching their selection will be displayed. If there are multiple records that match the last name entered it is sorted by last name, first name, and company and the client can use the pgdn or pgup keys to navigate the choices.

My settings below will only show exact matches.

Cheryl

Using the OnPush event of the different buttons and action scripting I have the following:

OnPush event of button: Find Customer by Last Name
Action Scripting
Open Form or Browse Layout
Select the appropriate form: f_customer
Prompt for Parameters at runtime
Filter: Last name = [Prompt: 'Last_name']
Order: Last_name+First_name+Company
Query Options: All Selected Records
Customize: Title: Last Name (left ok and cancel as is)
Advanced: High Level

************

xbasic code for above:

'Open a Form or Browse layout, displaying all, or selected records in the layout.
filter = " (Last_name = [varC-"prms.Parameter1] )"
get_parameters_string = ""%string%
Parameter1|Last_name|Character|Record List-Combo Box||"table_name="customer""\cr\lf"field_name="Last_name""\cr\lf"filter="""\cr\lf
%string%
ok_label = "&OK"
cancel_label = "&Cancel"
dialog_title = "Last Name"

'Prompt for parameter values. Store results in a 'dot' variable called 'prms'
dim prms as p
prms = ui_get_parameters(dialog_title,get_parameters_string,ok_label,cancel_label)

if prms.last_button_pressed = "OK" then
'Replace parameters in the filter with actual values
query.filter = replace_parameters(filter,local_variables())

query.order = "Last_name"
else
end
end if


'Open the layout_type showing just the records that satisfy the filter
DIM Shared varP_f_customer as P
DIM layout_name as c
layout_name = "f_customer"


dim tempP as p
'Get pointer to existing window. In case layout_name is qualified with a dictionary name, extract up to first @. In case formname has spaces, normalize it
tempP=obj(":"+object_name_normalize(word(layout_name,1,"@")))
'Test if pointer is valid
if is_object(tempP) then
'Test if pointer refers to a form or browse
if tempP.class() = "form" .or. tempP.class() = "browse" then
'Apply the query to the form or browse as the Base query. (this means that
'the user cannot turn the query off, only add to the query)
tempP.BaseQueryRun(query.filter,query.order)
'then activate the already open window
tempP.activate()
else
'Window is not already open, so open it
varP_f_customer = :Form.viewqueried(layout_name,query.filter, query.order )

end if
else
varP_f_customer = :Form.viewqueried(layout_name,query.filter, query.order )

end if