A5goes weird after running this script

[Graham Wickens]

I wrote this script some time ago, but have just come across a problem. It works OK, does all that I want it too, BUT, after running the script the system ignores any changes in any field that I try to input. After restarting A5 things are OK again. It is called from a right-click-menu.

The Script: Asks for a Location, searches the "Operator" table and lists any operators that are at that location. a double-click on the list then loads the relevant values into the logfile table record.

''XBasic
dim global new_operator as c
dim global new_op_unique as c
dim global new_c1 as c
dim global new_c3 as c
dim global new_colour as c
reply=upper(ui_get_text("Base Search for Operator","Enter Location Name"))
if reply = "" then
goto done
end if
t=table.open("Operator")
t.index_primary_put("z_find_all")
query.order="Country+Base+Area+Operator"
query.filter="containsi(base,reply) .or. containsi(area,reply)"
query.description="Find All Oper"
q=t.query_create()
n=q.records_get()
select
case n > 0
if is_object("Operator Lookup")
:Operator Lookup.show()
:Operator Lookup.activate()
else
form.view("Operator Lookup","Dialog")
end if
:Operator Lookup.close()
case n = 0
ui_msg_box("Base Search","No Operators on File for "+UPPER(Reply)+ " Found.")
end select
q.drop()
t.close()
Operator.text = new_operator
Op_unique.text = new_op_unique
c1.text = new_c1
status.text = new_c3
colour.text = new_colour
done:
end

I guess that the code is in fact quite correct, just that I am possibly missing something to put A5 back where it was before the script was called???

TIA

[Tom Cone Jr]

RE: A5goes weird after running this script

If the Operator form is based on the Operator table, I'd do this differently. Instead of opening an instance of the table, running a query, and then opening the form...

I'd load the form, and then run the query through the form, or using the instance of the table which the form itself loads...

Not sure if this will solve your problem, just suggesting another approach you might try.

-- tom

-- tom

[Graham Wickens]

RE: A5goes weird after running this script

I agree that your suggestion will work, but if there are no matches to be found the form lists the lot in record order, which rather defeats the object. I do most of my work in Browse tables, when I use this script and make a choice, all the correct values are put in the correct places. The odd thing I have now noticed is that although the "cancel changes" and "save record " tabs are available , nothing happens when I click either, also if I scroll down to the next record, I would expect the two tabs to "Grey out" but they dont. But if I swap to form [F8] the record is saved and the two tabs are "Greyed out" until such times as a record is changed.
What is happening here ???

[Tom Cone Jr]

RE: A5goes weird after running this script

Graham,

In general what you're seeing is Alpha Five's effort to do what it thinks you want it to do. I'll be happy to look further, but will need a working model of your database, and instructions on how to replicate the issue.

In my earlier post, I was thinking of using load() to open the form but not show it until after the query had run. If you get zero records returned you can close the form without ever showing it.

-- tom