Nachdem ich eine Abfrage zum Erstellen einer Datentabelle (mit dem Namen 'tbl') ausgeführt habe, zeichne ich ein Steuerungsdiagramm und von Data1 vs. TESTDATUM. Ich habe die Alarmskriptinformationen und -beiträge des JMP-Skriptleitfadens überprüft: LINK1 & LINK2 , aber ich kann nicht herausfinden, wie man die Punkte anschließt. 1) Ich möchte, dass das Skript mir eine E-Mail sendet, wenn ein fehlgeschlagener Test mit dem Namen des Diagrammspaltenparameters auftritt und welcher Test für das heutige Datum fehlgeschlagen ist (oder nur die Grafik .jpg, die ich bereits kann) . Ich würde dieses Skript ein- oder zweimal am Tag ausführen. 2) Kann ich diese fehlgeschlagene Testnummer auch in einer Zelle in einer neuen Spalte der fehlerhaften Datenzeile der aktuellen Tabelle ('tbl') ausgeben? Jede Hilfe wäre sehr dankbar.
cc3 = tbl << Control Chart(
Sample Label( :TEST_DATE ),
Group Size( 1 ),
KSigma( 3 ),
Chart Col(
:Data1,
Individual Measurement(
Show Zones( 1 ),
Shade Zones( 1 ),
Test 1( 1 ),
Test 2( 1 ),
Test 3( 1 ),
Test 4( 1 ),
Test 5( 1 ),
Test 6( 1 ),
Test 7( 1 ),
Test 8( 1 ),
Sigma( 0.45 ),
Avg( 0.02296 ),
LCL( -1.347 ),
UCL( 1.39 )
)
),
//copied this section from another user's post & tried a few different variations
Alarm Script(
Write(
QC_Test,
",",
QC_Col,
",",
QC_Sample,
",",
QC_FirstRow,
",",
QC_LastRow,
",",
fldid,
",",
tmppartno,
",",
SessionID,
"\!N"
)
)
//end of copied section
,
SendToReport(
Dispatch(
{"Individual Measurement of Data1"},
"2",
ScaleBox,
{Format( "Fixed Dec", 10, 3 ), Min( -2 ), Max( 2 ), Inc( 0.5 ), Minor Ticks( 1 )}
),
Dispatch(
{"Individual Measurement of Data1"},
"1",
ScaleBox,
{Label Row( Label Orientation( "Angled" ) )}
),
Dispatch(
{"Individual Measurement of Data1"},
"IR Chart of IM",
FrameBox,
{Frame Size( 537, 431 ), Marker Size( 4 ), Grid Line Order( 7 ),
Reference Line Order( 8 ), Row Legend(
Sample_Name,
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
)
)
);
Report( cc3 ) << save picture( "G:\My Drive\spc\picture.jpg" );
For Each Row(
Date = If( :TEST_Date = Today(),
If( :Name( "QC_Test" ) > 0,
Mail(
"bob@bob.com",
"SPC - Out Of Control",
"Chart has failed SPC test ",
"G:\My Drive\spc\picture.jpg"
)
)
)
);