OmagCUT :

- altre modifiche per SimpleStatistics (non si lanciano su restart dopo prima fase, viene notificato se taglio diretto)
- nel caso di tagli diretti in simulazione si ignora info di restart (non è inerente).

Project/ProjectMgrUC.xaml.vb

@@ -324,6 +324,7 @@ Public Class ProjectMgrUC
          Case 2         ' NO
             EgtEnableModified()
             m_CurrProjPage.ResetProjectNcRestart()
+            nPhaseRestart = 0
             EgtDisableModified()
          Case Else      ' CANCEL
             Return
@@ -358,9 +359,9 @@ Public Class ProjectMgrUC
             ' copio il progetto corrente come progetto in lavorazione
             Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
             My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
-            ' se abilitato, lancio eventuale lua post-trasmissione
-            If m_MainWindow.GetKeyOption( MainWindow.KEY_OPT.SIMPLESTATISTICS) Then
-               m_MainWindow.ExecSentProgScript()
+            ' se abilitato e non è restart, lancio eventuale lua post-trasmissione
+            If m_MainWindow.GetKeyOption( MainWindow.KEY_OPT.SIMPLESTATISTICS) And nPhaseRestart = 0 Then
+               m_MainWindow.ExecSentProgScript( False)
             End If
          End If
       ' Altrimenti linea di produzione
@@ -436,7 +437,7 @@ Public Class ProjectMgrUC
             ' Salvo il progetto
             m_CurrProjPage.SaveProject()
             ' lancio eventuale lua post-trasmissione
-            m_MainWindow.ExecSentProgScript( bAlreadySent)
+            m_MainWindow.ExecSentProgScript( False, bAlreadySent)
             Return
          End If
          ' Leggo variabile relativa al programma 1 (standard E80021)
@@ -488,7 +489,7 @@ Public Class ProjectMgrUC
                ' Dichiaro programma inviato
                m_CurrNcComm.m_CN.DVariables_WriteVariables2(m_CurrMachine.sVarProg1, "1")
                ' lancio eventuale lua post-trasmissione
-               m_MainWindow.ExecSentProgScript( bAlreadySent)
+               m_MainWindow.ExecSentProgScript( False, bAlreadySent)
             End If
             m_CurrNcComm.SetProgramMainOrSub(True)
          ' Altrimenti verifico se posso scrivere nell'area 2
@@ -505,7 +506,7 @@ Public Class ProjectMgrUC
                ' Dichiaro programma inviato
                m_CurrNcComm.m_CN.DVariables_WriteVariables2(m_CurrMachine.sVarProg2, "1")
                ' lancio eventuale lua post-trasmissione
-               m_MainWindow.ExecSentProgScript( bAlreadySent)
+               m_MainWindow.ExecSentProgScript( False, bAlreadySent)
             End If
             m_CurrNcComm.SetProgramMainOrSub(True)
          ' Altrimenti aree di memoria non disponibili