EgtCAM5 2.2b2 :

- corretta segnalazione errori all'avvio della simulazione.
2020-02-06 08:19:23 +00:00
parent 4bf848b6fe
commit 6421fdcd36
2 changed files with 10 additions and 3 deletions
@@ -739,7 +739,14 @@ Public Class SimulationExpanderVM
      Application.Msn.NotifyColleagues(Application.OPERATIONVIEWEXPANDERISENABLED, False)
      Application.Msn.NotifyColleagues(Application.MACHGROUPSISENABLED, False)
      OnPropertyChanged("Estimation_IsEnabled")
-      EgtSimStart(False)
+      If Not EgtSimStart(False) Then
+         If EgtGetLastMachMgrErrorId() <> 0 Then
+            Dim sErr As String = EgtGetLastMachMgrErrorString()
+            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+         Else
+            MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
+         End If
+      End If
      Dim nShowDataCounter As Integer = 0
      While m_nStatus <> MCH_SIM_ST.UI_STOP
         ' Se simulazione in svolgimento