EgtCAM5 2.4l1 :

- in ingresso simulazione spostata prima visualizzazione dopo EgtSimInit e EgtSimStart.
2022-12-07 08:17:51 +01:00
parent 5c0a68bfcc
commit 9d420795d8
2 changed files with 6 additions and 4 deletions
@@ -198,10 +198,12 @@ Public Class SimulationExpanderVM
      Dim nPhase As Integer = EgtGetCurrPhase()
      ' Aggiorno le lavorazioni
      If Not UpdateAllMachinings() Then EgtSetCurrPhase(If(nPhase = 0, 1, nPhase), True)
+      ' Inizio simulazione
+      Dim bOk As Boolean = EgtSimInit() AndAlso EgtSimStart()
      ' Costringo ad aggiornare UI
      UpdateUI()
-      ' Inizio simulazione
-      If Not EgtSimInit() OrElse Not EgtSimStart() Then
+      ' Messaggio in caso di errore
+      If Not bOk Then
         If EgtGetLastMachMgrErrorId() <> 0 Then
            Dim sErr As String = EgtGetLastMachMgrErrorString()
            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE