Run date box before deleting data

Matt_C

In the script below all the data from my table is deleted before I can run the data boxes. 

I am trying to delete any data outside of my date range.

Can I use modal somehow?

 

Thx - Matt

 

_____________________________________________________________

//Open and reset all names, ask for date
Names Default To Here( 1 );
dt_run = Open( "data.jmp");

//wait for open
wait(0);

dt_run << clear row states;
dt_run << Clear Column Selection();

startNW = New Window( "Start",
 ///<<Modal,///does not allow script or user to go on until text box answered
 StartDate << Max Date( Col Max( :name( "Date" ) ) ) << Min Date( Col Min( :Name( "Date" ) ) );
 
 
 StartDate = Calendar Box(),
 Button Box( "OK",
  startNW << close window;
  StartDate << Set Function( Function( {this, date}, theStartDate = StartDate << Get Date ) );
 )
 
);

runEndDate = Expr(
 endNW = New Window( "End",
  EndDate = Calendar Box(),
  Button Box( "OK",
   endNW << close window;
   runSelect;
  )
 );
 endDate << Max Date( Col Max( :name( "Date" ) ) ) << Min Date( Col Min( :Name( "Date" ) ) );
 EndDate << Set Function( Function( {this, date}, theEndDate = endDate << Get Date ) );
);

runSelect = Expr(
 dt_run << select where( :Name( "Date" ) > theStartDate & :Name( "Date" ) < theEndDate )
);

dt_run << Invert Row Selection();
dt_run << Delete Rows();

txnelson

I have reworked your script to allow for conditional flow.

//Open and reset all names, ask for date
Names Default To Here( 1 );
dt_run = Open( "Data_date.jmp" );

//wait for open
Wait( 0 );
dt_run << clear row states;
dt_run << Clear Column Selection();
startNW = New Window( "Start Day (note: day after date)",
	<<modal,
	StartDate = Calendar Box(),
	Button Box( "OK", startNW << close window );
	StartDate << Max Date( Col Max( dt_run:Date ) ) << Min Date( Col Min( dt_run:Date ) );
	StartDate << Set Function(
		Function( {this, date},
			Show( "xx" );
			theStartDate = StartDate << Get Date;
		);
		Show( thestartdate );
	);
);
If( startnw["button"] == 1,
	endNW = New Window( "End",
		<<modal,
		EndDate = Calendar Box(),
		Button Box( "OK", endNW << close window );
		EndDate << Max Date( Col Max( :name( "Date" ) ) ) << Min Date( Col Min( :Name( "Date" ) ) );
		EndDate << Set Function( Function( {this, date}, theEndDate = endDate << Get Date ) );
	)
);
If( endNW["Button"] == 1,
	dt_run << select where( :Name( "Date" ) > theStartDate & :Name( "Date" ) < theEndDate );
	dt_run << Invert Row Selection();
	dt_run << Delete Rows();
   
	dt_run << Save( "date_selection.jmp" );
	Close All( Data Tables, No Save );
	
	dt_run = Open( "date_selection.jmp" );

///Graphs
	New Window( "ProtoCP_Monitor - Variability Chart",
		V List Box(
			Variability Chart(
				Y( :PV waves ),
				X( :Date, :Time ),
				Std Dev Chart( 0 ),
				SendToReport(
					Dispatch( {"Variability Chart for PV"}, "2", ScaleBox, {Min( 0 ), Max( 2 ), Inc( 0.02 ), Minor Ticks( 0 )} )
				)
			), 
 //more charts but deleted script to shorten post
		)
	) << Journal();

// Save and Close The Journal
	Current Journal() << save Journal( "stuff.jrn" );
);