xdialog popup date value not available while dialog is open

[Mike Wilson]

The following example shows that the date value selected with the date popup does not seem to be available while the xdialog is open. Am I wrong, not coding something right, missing something subtle? Is there a work around?

        dim vdate as d={}
	dim vfield2 as d
	ui_dlg_box("test",<<%dlg%
	Purchase_Date: |{initial_focus} [%P=popup.calendar(dtoc(vdate));I=popup.calendar%.15vdate]   ;
	Field2: | [.12vfield2!evf2_*];
	{lf};
	<OK>
	%dlg%,<<%code%
	
	IF left(a_dlg_button,5)="evf2_"
		if a_dlg_button="evf2_setfocus"
			msgbox("focus set on field 2",dtoc(vdate))
			vfield2=vdate+30
		end if
	
		if a_dlg_button="evf2_killfocus"
			msgbox("killfocus on field 2",dtoc(vdate))
		end if

	  a_dlg_button=""
	END IF
	%code%)

	msgbox("Dates",dtoc(vdate)+crlf()+dtoc(vfield2))

[Tim Kiebert]

Re: xdialog popup date value not available while dialog is open

Mike, A number of these issues seem to have popped up lately (sorry for the bad pun). I am not sure if it is a bug or a idiosyncrasy of xdialog. I tested in v9 and get the same thing.

Any way, I added a couple of bits that seem to get things going. The issue seems to be that the control that is supplying the value, in this case the date popup, needs to have an event assigned as well. It seems that this event wakes up the dialog to the fact that the value has changed. Of course now you need to deal with this event (xxx) but that is no biggy. If you had a number of controls where this was necessary then you could simply use the same event name which would be trapped in the one place.

dim vdate as d={}
dim vfield2 as d
ui_dlg_box("test",<<%dlg%
	Purchase_Date: |{initial_focus} [%P=popup.calendar(dtoc(vdate));I=popup.calendar%.15vdate[COLOR="#FF0000"][B]!xxx[/B][/COLOR]]   ;
	Field2: | [.12vfield2!evf2_*];
	{lf};
	<OK>
%dlg%,<<%code%

IF left(a_dlg_button,5)="evf2_"
	IF a_dlg_button="evf2_setfocus"
		msgbox("focus set on field 2",dtoc(vdate))
		vfield2=vdate+30
	END IF
	
	IF a_dlg_button="evf2_killfocus"
		msgbox("killfocus on field 2",dtoc(vdate))
	END IF
	
	a_dlg_button=""
[B][COLOR="#FF0000"]else if a_dlg_button = "xxx"
	a_dlg_button = ""[/COLOR][/B]
END IF
%code%)

msgbox("Dates",dtoc(vdate)+crlf()+dtoc(vfield2))

Or even just like this using the event prefix you already have.

dim vdate as d={}
dim vfield2 as d
ui_dlg_box("test",<<%dlg%
	Purchase_Date: |{initial_focus} [%P=popup.calendar(dtoc(vdate));I=popup.calendar%.15vdate[COLOR="#FF0000"][B]!evf2_x[/B][/COLOR]]   ;
	Field2: | [.12vfield2!evf2_*];
	{lf};
	<OK>
%dlg%,<<%code%

IF left(a_dlg_button,5)="evf2_"
	IF a_dlg_button="evf2_setfocus"
		msgbox("focus set on field 2",dtoc(vdate))
		vfield2=vdate+30
	END IF
	
	IF a_dlg_button="evf2_killfocus"
		msgbox("killfocus on field 2",dtoc(vdate))
	END IF
	
	a_dlg_button=""

END IF
%code%)

msgbox("Dates",dtoc(vdate)+crlf()+dtoc(vfield2))

[Clunes]

Re: xdialog popup date value not available while dialog is open

I can see it for your first field OK. The second field is not set for a date popup. Is that the way you wanted it?

[Clunes]

Re: xdialog popup date value not available while dialog is open

Sorry - I missed the {initial focus} part and have the same issue. I was actually going to post a similar problem with the focus on the xdialog when starting. I have found that the setfocus to field does not work on startup at any time no matter what field gets even with it set to have initial focus

[Tom Cone Jr]

Re: xdialog popup date value not available while dialog is open

Mike, I'm seeing the same thing as Tim, and solved it using a similar approach:

dim vdate as d={}
dim vfield2 as d = {}
ui_dlg_box("test",<<%dlg%
Purchase_Date: |{initial_focus} [%P=popup.calendar(dtoc(vdate));I=popup.calendar%.15vdate[COLOR="#FF0000"]!popup_changed[/COLOR]] ;
Field2: | [.12vfield2!evf2_*];
{lf};
<OK>
%dlg%,<<%code%
[COLOR="#FF0000"]if a_dlg_button = "popup_changed" then
    a_dlg_button = ""
    'msgbox("found","calendar control")
    if vdate <> {} then
        vfield2 = vdate + 30
    end if
end if[/COLOR]
IF left(a_dlg_button,5)="evf2_"
		if a_dlg_button="evf2_setfocus"
			msgbox("focus set on field 2",dtoc(vdate))
			[COLOR="#FF0000"]'vfield2[/COLOR]=vdate+30
		end if
	
		if a_dlg_button="evf2_killfocus"
			msgbox("killfocus on field 2",dtoc(vdate))
		end if

	  a_dlg_button=""
END IF
%code%)

msgbox("Dates",dtoc(vdate)+crlf()+dtoc(vfield2))

I don't know if the popup calendar control is "sleepy" or if this is a timing issue with the setfocus event firing too quickly, but the net result is that field2 gets focus before the selected calendar date is processed and stored in the second var.

Hope this helps.

[Clunes]

Re: xdialog popup date value not available while dialog is open

Can you guys also check my observation on this for all fields

I have found that the setfocus to field does not work on startup at any time no matter what field gets even with it set to have initial focus

[Mike Wilson]

Re: xdialog popup date value not available while dialog is open

Tim, Tom.. Thank you. I thought in times past I had difficulties having the popup field fire an event, so I didn't try that route. I did think about timing and others, and tried to place a couple of added fields beyond the popup with events trying to capture the prior entered date through those, which didn't work. So, we'll chalk it up to a "sleepy" popup that needs a little event to make it's value available.

Mark,
I did not test the setfocus event on startup. I wouldn't ever go that route but instead I use the startup event to fire anything that needs to happen at startup instead of trying to fire it from the setfocus event of the initial_focus field. Example:

dim vdate as d={}
dim vfield2 as d = {}
dim dlg_title as C="Testing"
ui_dlg_box(dlg_title,<<%dlg%
{startup=ini}
Purchase_Date: |{initial_focus} [%P=popup.calendar(dtoc(vdate));I=popup.calendar%.15vdate!popup_changed] ;
Field2: | [.12vfield2!evf2_*];
{lf};
<OK>
%dlg%,<<%code%

IF a_dlg_button="ini"
	ui_beep(UI_EXCLAMATION_BEEP)
	ui_modeless_dlg_box("Startup",<<%dlg%
	{position=4,2}{background=yellow}
	{lf};	
	This modeless xdialog is part of the startup event of the modal dialog;
	{lf};
	%dlg%)	
  a_dlg_button=""
END IF

IF a_dlg_button = "popup_changed" then
      if vdate <> {} then
        vfield2 = vdate + 30
		sys_send_keys("{TAB}")
    end if
	a_dlg_button = ""
end if

IF left(a_dlg_button,5)="evf2_"
	if a_dlg_button="evf2_setfocus"
		ui_dlg_ctl_goto(dlg_title,"<OK>")
	end if

 a_dlg_button=""
END IF
%code%)

msgbox("Dates",dtoc(vdate)+crlf()+dtoc(vfield2))
ui_modeless_dlg_close("Startup")

[G Gabriel]

Re: xdialog popup date value not available while dialog is open

dim vdate as d
dim vfield2 as c
ui_dlg_box("test",<<%dlg%
Purchase_Date: |{initial_focus} [%P=popup.calendar(dtoc(vdate));I=popup.calendar%.15vdate!evf2_*]   ;
Field2: | [.12vfield2];
{lf};
<OK>
%dlg%,<<%code%	
	IF left(a_dlg_button,5)="evf2_"
	vfield2=""
		if a_dlg_button="evf2_killfocus"
		vfield2=dtoc(vdate+30,"mm/dd/yyyy")
		end if
	  a_dlg_button=""
	END IF
%code%)