Choice Box

[Bruce Roberson]

I have a choice button box setup with three choices on the form itself and the code below. Based on the code below that someone here helped with, a box pops up on the screen with 3 choice buttons button on there with choice 3 as a default, and you can click another choice like choice 2, and press enter and then the selection box goes away. But on the form itself, the box never indicates a choice. I am sure I don't know what I'm doing. But I would want the box on the form to indicate that I'm made choice 2 of the radio buttons if that is what I chose. Cosmetically I think what I have now is a mess. Functionally it works.



''XBasic
'Present a list of choices as radio buttons.
'Only one choice can be selected.
'-------------------------------------------
choice = ui_get_radio("Choose Product",3,"Oil","Gas","All Products")
'If user presses Cancel, end the script.
'---------------------------------------
IF choice = "" THEN
END
END IF
trace.writeln(choice)

[MoGrace2U]

RE: Choice Box

Hi Bruce,
It seems I have been playing with radio buttons a lot lately trying to switch Indexes. Try this - assuming the field on the form is called radio1:

choice = ui_get_radio("Choose Product",3,"Oil","Gas","All Products")
'If user presses Cancel, end the script.
'---------------------------------------
SELECT
case choice = ""
goto ENDIT
case choice = "Oil"
radio1.value = "Oil"
case choice = "Gas"
radio1.value = "Gas"
case choice = "All Products"
radio1.value = "All Products"
END SELECT
:ENDIT
if choice = "" then
trace.writeln("User cancelled")
else
trace.writeln(choice)
end if
radio1.refresh()
end

I didn't test it, but it 'should' work ;-) Robin

[Bruce Roberson]

RE: Choice Box

I just now found the reply, but I pasted your code behind that check box and it gave me a message of "missing or invalid keyword"

Can you figure what it needs from that?

Thanks,


Bruce

[Ken L Herrold]

RE: Choice Box

Robin --- if I may
Bruce:

Part of the power of Alpha is the help it can give about a syntax problem like you're experiencing.

Open the script for editing and be sure that you have a blinking cursor anywhere within the script. Press F4 and you'll see the error in the lower left of the frame -- it will move your cursor to the suspect line and tell you the line number. Examine that line and see what's wrong. The pasted script appears O.K. but glancing can't be as efficient as Alpha's look at it.

Let us all know how you did.

Ken

[Bruce Roberson]

RE: Choice Box

The message of missing or invalid keyword is occuring on the line shown as:

":ENDIT"

I copied the script exactly as I saw it here in the script.

[Tom Cone Jr]

RE: Choice Box

Bruce,

instead of

:ENDIT

try

ENDIT:

-- tom

[Bruce Roberson]

RE: Choice Box

Ok, that fixed the script as it was at that point.

Now, I'm trying to add something to the script so that when a choice is made in the choice box, that it can pass a variable value along. Listed below

case choice = "Gas"
radio1.value = "Gas"
prodcode = "04" (already declared variable as C) in top of script.

Then the report that I am trying to preview has a filter expression as listed below. Apparently the field Pr_Cde is not receiving the variable assigment as I would have it to do here in this case. Why not? It keeps saying prodcode not found.

Property_Name=Var-"Namex.AND.S_Mnth"=Var-"Beg_Month.AND.S_Mnth"=Var-"End_Month.AND.Pr_Cde"=Var-"prodcode

[Tom Cone Jr]

RE: Choice Box

Bruce,

If you care to post a working copy of the database here, with directions to the script and report in question, we can help you without playing 20 questions blindfolded. The kind of error you're seeing suggests that maybe the variable declarations are insufficient for the report process to 'see' the variables. i.e. the ProdCode variable may not be in scope when the filter expression in your report is evaluated. But this is just a guess since I can't see the whole picture.

-- tom

[Bruce Roberson]

RE: Choice Box

I'd be happy to send a working copy if I could get the size down to 1Mb zipped. I keep having trouble getting that done.

[Tom Cone Jr]

RE: Choice Box

We wouldn't need all the data, just a representative sampling. We wouldn't need all the tables and sets, just the ones involved in the problem. We do need the database dictionaries and the dictionaries for all tables or sets involved in the problem.

-- tom

[Tom Cone Jr]

RE: Choice Box

Compression with a zip utility is another great way to get the size down to manageable levels.

-- tom

[Ken L Herrold]

RE: Choice Box

Tom - If I may....

Bruce:
Your variable is not being 'seen' by the report filter. I've had that and found that when I declare the variables as 'global' they will be seen in the report filter [in fact, everywhere in the system for that whole session]. Try that with the product code, at least and see how it plays.

Start your script with
dim global prodcode as c

Ken

Let us know how you do

[Bruce Roberson]

RE: Choice Box

Ok, I have a sample database with the form and report I want to work.

Just go in and try to run the form in this database and note that the variable prodcode is not found even though in the object radio1, I have the global declaration as I understand it to be: dim global prodcode as C

On the start and end year, use 2003, since I accidentally deleted the records I had for 2004.

Thanks,

Bruce

[Tom Cone Jr]

RE: Choice Box

Bruce,

I took a look. Your form has a radio button tied to a field in one of your tables. This is probably unwise. If you ever succeed in getting the second radio button to work correctly you'll be writing directly to the table when you refresh radio1. You don't want to write to the table, right?

The OnArrive event for the radio button may contain errors. Again, are you trying to write field values to a record in your table?

If this form is designed to permit someone to input parameters for a filtered report I suggest:

a) Base radio1 on a variable, not a table field;

b) Abandon the onArrive script. I see no reason to launch another radio button just to get a selection to assign to the radio control on the form already. Instead put a button on the form and let the button's OnPush event read values from all the controls on the form assigning them to the variables you need for your query. It could also call the report for you.

c) if the variables you need to populate are defined in the report layout make certain they have the right scope when used in your form.

-- tom

[Tom Cone Jr]

RE: Choice Box

Bruce,

Maybe this will get you going again.

Unzip the attachment and extract its contents to an empty folder.

-- tom