Date Entering Issues

[jbk]

Hello, I'm having issues with entering date ranges. When a user trys to enter a date range, popup appears, user starts typing date and popup disappears and cursor advances to next field. Any and all help would be appreciated....

Below is that code I'm using:

DIM vcSDate10 as D
DIM vcEDate10 as D
DIM vcSEDate10 as N
DIM varC_result as C
vcSDate10 = ""
vcEDate10 = ""
vcSEDate10 = ""

ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Enter Date Range",<<%dlg%
{region}
Billing Start Date:| [%DATE;P=popup.calendar(dtoc(vcSDate10));I=popup.calendar%.20vcSDate10!vcSDate10_*];
Billing End Date:| [%DATE;P=popup.calendar(dtoc(vcEDate10));I=popup.calendar%.20vcEDate10!vcEDate10_*];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%

if varC_result = "Cancel"
end
end if

if left(a_dlg_button,9) = "vcSDate10_" then
if a_dlg_button = "vcSDate10_killfocus" then
vcSDate10 = ctod(dtoc(vcSDate10))
end if
a_dlg_button = ""
end if

if left(a_dlg_button,9) = "vcEDate10_" then
if a_dlg_button = "vcEDate10_killfocus" then
vcEDate10 = ctod(dtoc(vcEDate10))
end if
a_dlg_button = ""
end if
%code%)

vcSEDate10 = vcEDate10 - vcSDate10
parentform:Item_10_Days.value = vcSEDate10
topparent:Item_10_Rate.activate()

[johnkoh]

Re: Date Entering Issues

see -- The UI_DLG_NAVIGATE() function moves the cursor and focus to the next or previous control on the Xdialog form.

[Mike Wilson]

Re: Date Entering Issues

Why manipulate the dates within the dialog? That is more complicated than it needs to be. Get the dates with the dialog and do the math and conversions after the dialog closes.

DIM vd_Sdate as D={}
dim vd_Edate as D={}
dim vn_Date10 as N
DIM varC_result as C

varC_result = ui_dlg_box("Enter Date Range",<<%dlg%
{region}
Billing Start Date:| [%DATE;P=popup.calendar(dtoc(vd_SDate));I=popup.calendar%.20vd_SDate];
Billing End Date:| [%DATE;P=popup.calendar(dtoc(vd_EDate));I=popup.calendar%.20vd_EDate];
{endregion};
{line=1,0};
{region}
<*15OK> <15CANCEL>
{endregion};
%dlg%)

if varC_result = "Cancel"
	end
end if

vn_Date10 = vd_EDate - vd_SDate
msgbox(""+vn_Date10)

[G Gabriel]

Re: Date Entering Issues

Your code has many anomalies (not sure where you got it from? Action Script that you modified?):
First:
You dimmed couple variables as D one as N and a another as C

DIM vcSDate10 as D
DIM vcEDate10 as D
DIM vcSEDate10 as N
DIM varC_result as C

Second:
You assigned all a value of ""

vcSDate10 = ""
vcEDate10 = ""
vcSEDate10 = ""

Not only you do not need to do so as all variables have a default value of blank (or zero if numeric) but you assigned a character value to a D and N variables.
Alpha forgave that..but that doesn't excuse it.

Third:
In the xdlg code, you have this if statement:

if varC_result = "Cancel"
end
end if

Which is a chicken-egg situation because varC_result is the value of the xdlg itself which will not evaluate until such time that the xdlg is closed therefore having it in the code part of the xdlg defies the laws of gravity.

Fourth:
The reason for the behavior you described is simply a counting error:
In your code, you have:

if left(a_dlg_button,9) = "vcSDate10_" then
if a_dlg_button = "vcSDate10_killfocus" then
vcSDate10 = ctod(dtoc(vcSDate10))
end if
a_dlg_button = ""
end if

This statement will never be true. You should say:
if left(a_dlg_button,10) = "vcSDate10_" then

Notice, 10 not 9
If you make that change, it should work, but you need to take care of the other issues as well

[Mike Wilson]

Re: Date Entering Issues

ignore

[Tim Kiebert]

Re: Date Entering Issues

ignore

We usually do!!