236013_fr-FR

liliconcom

Exécuter la boîte de date avant de supprimer des données

Dans le script ci-dessous, toutes les données de ma table sont supprimées avant que je puisse exécuter les boîtes de données. 

J'essaie de supprimer toutes les données en dehors de ma plage de dates.

Puis-je utiliser modal en quelque sorte?

 

Thx - Matt

 

_____________________________________________________________

// Ouvrir et réinitialiser tous les noms, demander la date
Noms par défaut ici (1);
dt_run = Open ("data.jmp");

// attendre pour ouvrir
attendez (0);

dt_run << efface les états de ligne;
dt_run << Effacer la sélection de colonne ();

startNW = Nouvelle fenêtre ("Démarrer",
/// << Modal, /// n'autorise pas le script ou l'utilisateur à continuer tant que la zone de texte n'a pas été renseignée
StartDate << Date Max (Col Max (: nom ("Date"))) << Min Date (Col Min (: Nom ("Date")));


StartDate = Calendrier (),
Boîte à boutons ("OK",
startNW << fermer la fenêtre;
StartDate << Set Function (Fonction ({this, date}, theStartDate = StartDate << Date d’obtention));
)

)

runEndDate = Expr (
endNW = Nouvelle fenêtre ("End",
EndDate = Calendrier (),
Boîte à boutons ("OK",
endNW << fermer la fenêtre;
runSelect;
)
)
endDate << Date maximale (Col Max (: nom ("Date"))) << Min Date (Col Min (: Nom ("Date")));
EndDate << Set Function (Fonction ({this, date}, theEndDate = endDate << Date d’obtention));
)

runSelect = Expr (
dt_run << sélectionnez où (: Nom ("Date")> theStartDate &: Name ("Date") )

dt_run << Inverser la sélection de la ligne ();
dt_run << Delete Rows ();

Re: Exécuter la boîte de date avant de supprimer des données

Je crois qu'en déplaçant la ligne StartDate une fois les composants de la fenêtre définis, vous obtiendrez ce que vous voulez.

//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: Exécuter la boîte de date avant de supprimer des données

J'ai retravaillé votre script pour permettre un flux conditionnel.

//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: Exécuter la boîte de date avant de supprimer des données

Vous avez la suppression pour fonctionner comme indiqué ci-dessous.

Même problème, bien que le script prenne son envol et fasse les graphiques avant d’en finir avec la boîte de calendrier ()

//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>

 

Comment puis-je conserver le script jusqu'à la fin de la boîte de calendrier?

Merci