xdialog list vs. date field conflict

[Peter.Greulich]

I have an xdialog with a list (actually 2 lists) linked, similar to a set (this happens to be SQL).
The problem is that the date field interferes with the fetch of the 2nd list - but only when I scroll through list 1 using the down/up arrows. It starts off good, but after a 3 or 4 down arrows, list 2 is from then on out of sync (by 1) w. the parent list. Clicking on a row in list 1 always fetches the correct records in list 2. If I remove the date field definition from the xdialog (and say, put in a text field instead), I can scroll using the arrow keys and it always syncs correctly. Some date field event is firing and somehow interfering w. the fetch in list 2.

Here is the date field:

[%DATE;P=popup.calendar(dtoc(vDate));I=popup.calendar%.30vDate!vDate_*]

Here is the date event (standard Alpha derived code):

If left(a_dlg_button,6) = "vDate_" then 
	if a_dlg_button = "vDate_killfocus" then 
		vDate = ctod(dtoc(vDate))
	end if 


	if a_dlg_button = "vDate_changing" then 
		vDate = ctod(dtoc(vDate))
	end if 


	trace.WriteLn(a_dlg_button)


	a_dlg_button = ""
End if

Here are the 2 lists:

[%dk%.70,50 index^"PartNum:15|Plan Id:15|Lot:15|Qty:15
"vProd_trans_sum_List!vSelect_prod_trans_sum_List_*];

[%dk%.125,20 index2^"PartNum:15|Plan Id:15|Lot:15|Plan Qty:20|Picked Qty:20|
Prev Built Qty:25|Closed:15
"vProd_plan_List!vSelect_Prod_plan_List_*];

Here is the list 1 key event code:

If a_dlg_button = "vSelect_prod_trans_sum_List_change" 
	vArrayId = pList.Array[index].PartNum
	
	'' Filter child table (Prod_plan) on PartNum
	pList2.ChildValue = vArrayId


	vList2 = getList_Prod_plan(pList2)


	Dim vProd_plan_List[0] as C
	vProd_plan_List.initialize(vList2)
		
	vSize2 = pList2.Array2.size()
	
	If vSize2 > 0
		Dim index2 as N = 1
		Dim vArrayId2 as C = pList2.Array2[index2].Prp_PartNum
	End If
	
	a_dlg_button = ""
End if

Can anyone suggest how I can keep my date popup calendar and mitigate the incorrect fetch of list 2?

Remember, changing the date field to a text input box eliminates the problem. The issue seems to be the vDate_ event.

[G Gabriel]

Re: xdialog list vs. date field conflict

That is not very helpful.
The hierarchy of the events here seems to play a role.
You need to post the actual xdlg.

I see one event that could possibly be eliminated (depending on the rest of the script):

if a_dlg_button = "vDate_changing" then
vDate = ctod(dtoc(vDate))
end if
In fact, and without knowing the rest of the script, I'd just go ahead and remove that event.

[Peter.Greulich]

Re: xdialog list vs. date field conflict

Actually I need to remove the date event in it's entirety and then it works.

Thanks for your insight.

Addendum:
Removing the code you suggested and removing:

a_dlg_button = ""

works also.

I'm running this as a modeless xdialog.