EgtCAM5 1.9j2 :

- aggiunta in simulazione gestione messaggi generici di errore da script.
2018-10-18 06:28:55 +00:00
parent 5d163c7897
commit 5eb02c8199
2 changed files with 8 additions and 3 deletions
@@ -756,7 +756,12 @@ Public Class SimulationExpanderVM
                  Case MCH_SIM.DIR_ERR
                     MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
                  Case Else
-                     MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Errore
+                     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_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
+                     End If
               End Select
            End If
            ' Aggiorno stato visualizzazione macchina (dipende anche da utensile)