<< Return Result might not work with << Get Date which calendar box uses. Usually I don't rely just on << Return Result and I always add OK/Cancel buttons to Modal windows and when you do this, you can add << Get Date to the OK button for example
QueryWindow = New Window("Query.jsl",
<<Modal,
<<Return Result,
Panel Box("Test Data Query Builder",
Panel Box("Database Info", Text Box("Connection Info", <<SetFontSize(6))),
Panel Box("Date Range",
rb_DateOption = Radio Box(
{"From-To", "From-to-Present", "Wildcard"},
<<SetFunction(
Function({this},
Sel1 = rb_DateOption << GetSelected();
if_From << Set(Sel1 == "From-To" | Sel1 == "From-to-Present");
if_To << Set(Sel1 == "From-To");
if_cb << Set(Sel1 == "From-To" | Sel1 == "From-to-Present");
)
)
),
Lineup Box(N Col(2),
if_From = If Box(
1,
qw_From = Calendar Box(
<<Date(Today() - In Days(180)),
<<Min Date(Parse Date("1/1/2000")),
<<Max Date(Today() - In Hours(12)),
<<ShowTime(0)
)
),
if_To = If Box(1, qw_To = Calendar Box(<<Date(Today()), <<Min Date(qw_From), <<Max Date(Today()), <<ShowTime(0))),
if_cb = If Box(1, Text Box("Dates are absolute in each time zone unless \!"To Present\!" is selected.", <<SetFontSize(8))),
),
),
Panel Box("Query Parameters",
Lineup Box(N Col(2), Text Box("Category "), lb_Category = List Box({"1", "2"}, <<SetFontSize(8))),
Lineup Box(N Col(2), Text Box("Part Numbers"), tb_PartNums = Text Edit Box("%", <<SetNLines(3), <<SetWidth(200))),
),
Panel Box("Actions",
Lineup Box(N Col(2),
Button Box("OK",
to = qw_to << get date;
from = qw_from << get date;
),
Button Box("Cancel")
)
)
)
);
Show(QueryWindow["tb_PartNums"]);
Show(QueryWindow["rb_DateOption"]);
Show(QueryWindow["qw_From"]);
show(to, from);
-Jarmo