236013_es-ES

liliconcom

Ejecutar cuadro de fecha antes de eliminar datos

En el script a continuación, todos los datos de mi tabla se eliminan antes de que pueda ejecutar los cuadros de datos. 

Estoy tratando de eliminar cualquier información fuera de mi rango de fechas.

¿Puedo usar modal de alguna manera?

 

Thx - Matt

 

_____________________________________________________________

// Abre y restablece todos los nombres, pide fecha
Nombres predeterminados hasta aquí (1);
dt_run = Abrir ("data.jmp");

// espera para abrir
espera (0);

dt_run << borrar estados de fila;
dt_run << Borrar selección de columna ();

startNW = Nueva ventana ("Inicio",
/// << Modal, /// no permite que el script o el usuario continúen hasta que se responda el cuadro de texto
StartDate << Max Date (Col Max (: nombre ("Fecha"))) << Min Date (Col Min (: Nombre ("Fecha")));


StartDate = Cuadro de calendario (),
Caja de botones ("OK",
inicioNW << cerrar ventana;
StartDate << Set Function (Function ({this, date}, theStartDate = StartDate << Get Date));
)

);

runEndDate = Expr (
endNW = Nueva ventana ("Fin",
EndDate = Calendar Box (),
Caja de botones ("OK",
endNW << cerrar ventana;
runSelect;
)
);
endDate << Max Date (Col Max (: nombre ("Fecha"))) << Min Date (Col Min (: Nombre ("Fecha")));
EndDate << Set Function (Function ({this, date}, theEndDate = endDate << Get Date));
);

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

dt_run << Invertir selección de fila ();
dt_run << Eliminar filas ();

Re: Ejecutar cuadro de fecha antes de eliminar datos

Creo que al mover la línea StartDate después de definir los componentes de la ventana, obtendrá lo que desea.

//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> theStartDate & :Name( "Date" ) < theEndDate )
);
dt_run << Invert Row Selection();
dt_run << Delete Rows();</MODAL>

Re: Ejecutar cuadro de fecha antes de eliminar datos

He reelaborado su script para permitir el flujo condicional.

//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> 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" );
);

</MODAL>

Re: Ejecutar cuadro de fecha antes de eliminar datos

Obtuve la eliminación para trabajar como se muestra a continuación.

El mismo problema, aunque el script despega y hace los gráficos antes de que termine con el cuadro Calendario ()

//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> theStartDate & :Name( "Date" ) < theEndDate );
&nbsp;dt_run << Invert Row Selection();
&nbsp;dt_run << Delete Rows();
&nbsp;&nbsp;&nbsp;
&nbsp;dt_run << Save( "date_selection.jmp");
&nbsp;Close All( Data Tables, No Save );
);


Names Default To Here( 1 );
dt_run = Open( "date_selection.jmp");

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

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

 

¿Cómo mantengo el guión retenido hasta que se completa la caja del calendario?

Gracias