Xbasic - How to reference the values in a checkbox control

[hangbill]

Hi
Have a checkbox on an unbound dialog, name WhatMedication. The checkbox choices are 'inhaler' and 'other'.
The checkbox needs at least one tick, if another control 'MedsWhenLast' is within the last year. If no tick, then error.

Here is the code, in Validation Xbasic

if e.data.MedsWhenLast = "Currently uses medication" .OR. e.data.MedsWhenLast = "0-3 months" .OR. e.data.MedsWhenLast = ">3-12 months" then 
	if e.data.WhatMedication = "" then
		validate_WhatMedication.hasError = .t.
		validate_WhatMedication.errorText = "" 
	end if	
end if

The problem code is the line 'if e.data.WhatMedication = "" then... .' Seems that the code does not trigger validate_WhatMedication.hasError = .t. Just drops down to the 2nd 'end if'. In the debugger get 'e not found' messg.


Then tried an array but still get 'e not found'.

Dim arr[2] as P
arr[1] = e.data.WhatMedication
arr[2] = e.data.WhatMedication

if e.data.MedsWhenLast = "Currently uses medication" .OR. e.data.MedsWhenLast = "0-3 months" .OR. e.data.MedsWhenLast = ">3-12 months" then 
	if arr[1] = "" .and. arr[2] = "" then
		validate_WhatMedication.hasError = .t.
		validate_WhatMedication.errorText = "" 
	end if
end if

Hope you can help.
Thanks

[Garry Flanigan]

Re: Xbasic - How to reference the values in a checkbox control

Try:

if (e.data.WhatMedication = "") .and. ((e.data.MedsWhenLast = "Currently uses medication") .OR. (e.data.MedsWhenLast = "0-3 months") .OR. (e.data.MedsWhenLast = ">3-12 months")) then
validate_WhatMedication.hasError = .t.
validate_WhatMedication.errorText = "just something here to see then later delete if behaviour is ok"
end if

If no joy, double check the spelling of the field names. I like to use brackets to make sure each condition is properly evaluated.
If WhatMedication is not the correct spelling, copy all code to clipboard and delete code then save, the re-open paste and try again. Renaming fields has caused me a lot of wasted time finding errors.
Also, is "Currently uses medication" the actual value you save? If not, note that you must test for the value you save - inspect in the debugger.
Hope this helps.

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

Thanks for the help.
Your code is correct (field names, dropdown values in MedsWhenLast).
Seems there is some problem in if (e.data.WhatMedication = "") .... from here it just goes to end function. So assume the if statement is returning false, therefor the validation code does not run.
I deleted the code and saved, then pasted back - no change
WhatMedication is a checkbox, has two possible values ie Inhaler and Other. Does e.data.WhatMedication hold both values or must its values be accessed by an array?

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

Definitely think the Checkbox has something to do with this.
Have another validation code. This time Steroid is a dropdown, not a checkbox. It can hold only one value.
Have exactly the same code pattern as the code I posted at the beginning, just replaced WhatMedication with Steroid.
It works fine. So it must be that it needs some different syntax to capture the two checkbox values in WhatMedication.

if (e.data.MedsWhenLast = "Currently uses medication") .OR. (e.data.MedsWhenLast = "0-3 months") .OR. (e.data.MedsWhenLast = ">3-12 months") then 
	if e.data.Steroid = "" then
		validate_Steroid.hasError = .t.
		validate_Steroid.errorText = "xxxx" 
	end if	
end if

[GGandhi]

Re: Xbasic - How to reference the values in a checkbox control

please ignore

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

Don't understand, Gandhi. Ignore my post?

[GGandhi]

Re: Xbasic - How to reference the values in a checkbox control

no I made a mistake so I asked you to ignore my post.

I tested with dialogValidate function, not immediate validation. it seems to work there.
but you are trying in immediate validation it seems.

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

Thanks Gandhi, will try figure it out with a dialogValidate function.

I'm confused by the different validation methods. When to use Xbasic, when to use Javascript, what is immediate validation versus other methods, etc.
Are there general guidelines when to use the different methods?

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

So what I'm trying to achieve on the dialogs is have the controls turn red as user moves to another control, but only one error messg at top of dialog. Someting like, 'Answer all red boxes'

[Steve Wood]

Re: Xbasic - How to reference the values in a checkbox control

My answer to a similar post will help. Search for "checkbox dump" and find notes on .dump() function.

[GGandhi]

Re: Xbasic - How to reference the values in a checkbox control

So what I'm trying to achieve on the dialogs is have the controls turn red as user moves to another control, but only one error messg at top of dialog. Someting like, 'Answer all red boxes'

remember we are in the windows world, user can and probably click any control and fill in or just move on to another control by clicking that control. so this turning red from one control to another expecting sequentially, may not be possible.
my approach will be on submit, validate event checks all required fields and if found to be non compliant then do what you said.

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

You're correct Gandhi, should not use immediate validation on its own. Must also validate on submit.

Steve. thanks for the pointer. Have it somewhat working. If checkboxes are blank, code throws an error but there are some funnies. If I tab to the next control the error turns false. And if I tick one of the checkboxes (error should be false) it remains true. Think it must be in the array syntax, very new at this. Will continue to try figure it out.

Dim Arr[2] as P
Arr[] = e.data.WhatMedication

if (e.data.MedsWhenLast = "Currently uses medication") .OR. (e.data.MedsWhenLast = "0-3 months") .OR. (e.data.MedsWhenLast = ">3-12 months") then
	if Arr.DUMP() = "" then
		validate_WhatMedication.hasError = .t.
		validate_WhatMedication.errorText = "xxx"
	end if
end if

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

Still stuck here, need help please.

Have tried numerous variations of the above code (with the dump() function) but not working properly.
In the debugger, if I tick "other", it is passed to Arr, but not to Arr.dump(). Seems Arr.dump() is always " ".
Also if the control shows an error, it loses that status when tabbing to the next control even though have not ticked any of the checkboxes.

What is wrong with this code... thanks

[GGandhi]

Re: Xbasic - How to reference the values in a checkbox control

take a look at this screencast,
this should get you started, I hope.

http://screencast.com/t/LfflwsU1VG3Q

explanation, watch this next:
http://screencast.com/t/jlnHGegtj

[hangbill]

Re: Xbasic - How to reference the values in a checkbox control

Thanks for doing this Gandhi, really good of you!

The values I'm trying to trap for can be multiple, ie checkboxes not radio buttons. So I suppose that this is an array. Earlier Steve said that you catch the array values in the var.dump() function. Think I will use the server event because you suggested earlier that users might not touch a control and therefore the immediate validation will not work for that control. So seems best to do the validation when the submit button is pressed.

The challenge I have is that the checkbox values are not passed to the var.dump() function. Something wrong with the syntax in the code below.
In the debugger Arr[] holds the correct values, but they are not passed to the line 'if Arr.dump() = "" then'.
This results in the validation rule running whether the checkboxes are ticked, or not.

if (e.datasubmitted.MedsWhenLast = "Currently uses medication") .OR. (e.datasubmitted.MedsWhenLast = "0-3 months") .OR. (e.datasubmitted.MedsWhenLast = ">3-12 months") then
	Dim Arr[2] as P
	Arr[] = e.datasubmitted.WhatMedication
		if Arr.dump() = "" then
			validate_WhatMedication.hasError = .t.
			validate_WhatMedication.errorText = "No Message"
			dialogValidate.fieldErrors[].varname = "WhatMedication"
			dialogValidate.fieldErrors[..].errortext = "Answer this question"
				else validate_WhatMedication.hasError = .f.
		end if
end if