Xdialog field variable value not available within xdialog code section ?

[Mike Wilson]

I swear this should work. The following code is a two field xdialog with a set focus event for the second field to evaluate the value put into the first field. The variable value for the first field is not being recognized during the xdialog code activity. I swear this used to be possible. It is available in the dialog, just press the test button after the cursor enters field 2, but it is not available with the field 1 killfocus or the field 2 setfocus events! What happened? Or am I mistaken?

'dialog structure
	dim dlg_title as C="Stock Entry"
	dim dlg_body as C
	dim dlg_code as C
	dim vR as C
	
'dialog field variables
	dim global aaa_symb as C=""
	dim vname as C=""

	dlg_body = <<%dlg%
	{background=#185,185,150}{xmargin=1,1}{ymargin=1,1}
	{justify=left}{font=arial,8,bi}{frame=1,5}{font=Arial,10}
	{region}
	Symbol:	| [.12aaa_symb] ;	
	Stock Name: | [.60vname!evnm_*];
	{endregion};
	{lf=.5};
	{justify=center} <15OK> <15Cancel> <test>
	%dlg%
	
	dlg_code=<<%code%
	IF left(a_dlg_button,5)="evnm_"
		if a_dlg_button="evnm_set_focus"
			msgbox("Symbol","The symbol entered is: "+aaa_symb)
		end if
	   a_dlg_button=""
	 END IF

	IF a_dlg_button="test"
		msgbox("Symbol","The symbol is: "+aaa_symb)
	  a_dlg_button=""
	END IF
	%code%

	vR=ui_dlg_box(dlg_title,dlg_body,dlg_code)
	if vR="Cancel"
		end
	end if

[CALocklin]

Re: Xdialog field variable value not available within xdialog code section ?

Try "evnm_setfocus" instead of "evnm_set_focus"

[G Gabriel]

Re: Xdialog field variable value not available within xdialog code section ?

Ditto ..

[Mike Wilson]

Re: Xdialog field variable value not available within xdialog code section ?

Hi Gabriel,
Nope. That wasn't it. That posted xdialog is code is workable directly in the IW without any tables or forms. So you can just copy and paste into IW and see if you can make it work. If you can... let me know.

[G Gabriel]

Re: Xdialog field variable value not available within xdialog code section ?

Yes Mike.. you are correct..you threw me in a loop with the mis-spelled event.
I believe, pending (time permitting) further testing, it's a bug.
The reason I say that is, and you as an avid reader of the message board might remember, there was a similar bug in the killfocus for which I submitted a report and Selwyn acknowledged it and mentioned that it will not be fixed (understandable).
Here is a workaround (do not place the msg box for confirmation, it will throw your script in an endless loop, and yes and I am sorry, but it will not work on modal).

'dialog structure
	dim dlg_title as C="Stock Entry"
	dim dlg_body as C
	dim dlg_code as C
	dim vR as C
	
'dialog field variables
	dim global aaa_symb as C=""
	dim vname as C=""
	dim txt as c=""
	dlg_body = <<%dlg%
	{background=#185,185,150}{xmargin=1,1}{ymargin=1,1}
	{justify=left}{font=arial,8,bi}{frame=1,5}{font=Arial,10}
	{region}
	Symbol:	| [.12aaa_symb] ;	
	Stock Name: | [.60vname!evnm_*];
	| {text=40,txt}
	{endregion};
	{lf=.5};
	{justify=center} <15OK> <15Cancel> <test>
	%dlg%
	
	dlg_code=<<%code%
	IF left(a_dlg_button,5)="evnm_"
		if a_dlg_button="evnm_setfocus"
			txt="The Symbol entered is: "+aaa_symb
		end if
	   a_dlg_button=""
	 END IF

	IF a_dlg_button="test"
		msgbox("Symbol","The symbol is: "+aaa_symb)
	  a_dlg_button=""
	END IF
	if a_dlg_button="cancel"
		ui_modeless_dlg_close(dlg_title)
		end if
	%code%

	vR=ui_modeless_dlg_box(dlg_title,dlg_body,dlg_code)
	if vR="Cancel"
		end
	end if

[Mike Wilson]

Re: Xdialog field variable value not available within xdialog code section ?

Thanks Gabriel,
I guess I'll have to code the whole action within the code of a modeless dialog, or go for a completely different approach. I'll start with the whole different approach first.

[Tim Kiebert]

Re: Xdialog field variable value not available within xdialog code section ?

Mike, see if this works for you.
I added a dummy event to field 1. this seems to wake up some part of the dialog code that there is a value there even though the test button has access to it. I noticed that after using the test button the focus event would show the value.
Of course then we also need to deal with the event.

'dialog structure
	dim dlg_title as C="Stock Entry"
	dim dlg_body as C
	dim dlg_code as C
	dim vR as C
	
'dialog field variables
	dim global aaa_symb as C=""
	dim vname as C=""

	dlg_body = <<%dlg%
	{background=#185,185,150}{xmargin=1,1}{ymargin=1,1}
	{justify=left}{font=arial,8,bi}{frame=1,5}{font=Arial,10}
	{region}
	Symbol:	| [.12aaa_symb[COLOR="#FF0000"]!dummyevent[/COLOR]] ;	
	Stock Name: | [.60vname!evnm_*];
	{endregion};
	{lf=.5};
	{justify=center} <15OK> <15Cancel> <test>
	%dlg%
	
	dlg_code=<<%code%
	IF left(a_dlg_button,5)="evnm_"
		if a_dlg_button="evnm_setfocus"
			msgbox("Symbol","The symbol entered is: "+aaa_symb)
		end if
	   a_dlg_button=""
	 END IF

	IF a_dlg_button="test"
		msgbox("Symbol","The symbol is: "+aaa_symb)
	  a_dlg_button=""
	END IF
	[COLOR="#FF0000"]If a_dlg_button = "dummyevent" then
	    a_dlg_button = ""
	end if[/COLOR]
	%code%

	vR=ui_dlg_box(dlg_title,dlg_body,dlg_code)
	if vR="Cancel"
		end
	end if

And just to add a bit of confusion. You said you could not get the killfocus event on field1 to work. But it works here.

'dialog structure
	dim dlg_title as C="Stock Entry"
	dim dlg_body as C
	dim dlg_code as C
	dim vR as C
	
'dialog field variables
	dim global aaa_symb as C=""
	dim vname as C=""

	dlg_body = <<%dlg%
	{background=#185,185,150}{xmargin=1,1}{ymargin=1,1}
	{justify=left}{font=arial,8,bi}{frame=1,5}{font=Arial,10}
	{region}
	Symbol:	| [.12aaa_symb![COLOR="#FF0000"]evnm_*[/COLOR]] ;	
	Stock Name: | [.60vname];
	{endregion};
	{lf=.5};
	{justify=center} <15OK> <15Cancel> <test>
	%dlg%
	
	dlg_code=<<%code%
	IF left(a_dlg_button,5)="evnm_"
		if a_dlg_button="[COLOR="#FF0000"]evnm_killfocus[/COLOR]"
			msgbox("Symbol","The symbol entered is: "+aaa_symb)
		end if
	   a_dlg_button=""
	 END IF

	IF a_dlg_button="test"
		msgbox("Symbol","The symbol is: "+aaa_symb)
	  a_dlg_button=""
	END IF
	%code%

	vR=ui_dlg_box(dlg_title,dlg_body,dlg_code)
	if vR="Cancel"
		end
	end if