216787_es-ES

liliconcom

Prueba de script de alarma de correo fallido

Después de ejecutar una consulta para crear una tabla de datos (llamada 'tbl'), trazo un gráfico de control y de Data1 vs. FECHA DE LA PRUEBA. Revisé la información y las publicaciones del script de alarma de la guía de scripts JMP LINK1 Y LINK2 , pero no puedo averiguar cómo conectar los puntos.  1) Me gustaría que la secuencia de comandos me envíe un correo electrónico cuando se produzca una prueba fallida con el nombre del parámetro de la columna del gráfico y en qué prueba falló la fecha actual (o simplemente el gráfico .jpg que ya sé cómo hacerlo) .  Estaría ejecutando este script una o dos veces al día.  2) ¿También puedo enviar esta prueba fallida # a una celda en una nueva columna de la fila de datos fallidos de la tabla actual ('tbl')? Cualquier ayuda sería muy apreciada.

 

 

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