Append an Open Window after a selection is made

Yngeinstn

I have been searching for a solution to be able to append an open window after a selection is made from from a calendar box.

 

Once the Start Date and End Date are selected I would like to open another box right below the panel box that holds the calendar(s)

 

Below is an example i am trying in the simplfied version. In my actual application I would like to open a check box() list based on the dates selected from a database that was based on an sql script..

 

Thank You

 

 

<BR />nw = New Window( "Example",
	V List Box(
	pb = Panel Box( "Calendar",
			V List Box(
				H List Box(
					Panel Box( "Select Start",
						StartDate = Calendar Box(
							<< Set Function(
								Function(
									{f1},
									sqlstartA = StartDate << Get Date();
								)
							)
						)
					), // End StartDate Calendar Box
					Panel Box( "Select End",
						EndDate = Calendar Box(
							<< Set Function(
								Function(
									{f2},
									sqlendA = EndDate << Get Date();
								)
							)
						)
					) // End EndDate Calendar Box	
				),
				H List Box(
					bb1 = Button Box( "Set Dates",
						sqlstart = format(sqlstartA, "yyyy-mm-dd");
						sqlend = format(sqlendA, "yyyy-mm-dd");
						show(sqlstart, sqlend);
					),
					bb2 = Button Box( "Cancel" )
				),
				
				Wait( 0.1 ),
				pb << Append(
					Text Box( "Why isn't this working" )
				)
			)
		)
	)
);

 

ian_jmp

Working in a hurry, I'm not sure what I did to your original. But the code below does indeed work. Generally I find it helps readability and maintainability to define actions as expressions with a name, then invoke them using that name.

nw = New Window( "Example",
	V List Box(
		pb = Panel Box( "Calendar",
			V List Box(
				H List Box(
					Panel Box( "Select Start",
						StartDate = Calendar Box(
							<<Set Function( Function( {f1}, sqlstartA = StartDate << Get Date() ) )
						)
					), // End StartDate Calendar Box
					Panel Box( "Select End",
						EndDate = Calendar Box(
							<<Set Function( Function( {f2}, sqlendA = EndDate << Get Date() ) )
						)
					) // End EndDate Calendar Box	
				),
				H List Box(
					bb1 = Button Box( "Set Dates", pb << Append(Text Box( "Why isn't this working" ))),
					bb2 = Button Box( "Cancel" )
				)
			)
		)
	)
);