diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 69e4229..e345a55 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -70,5 +70,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb index 7a94e8d..fa37806 100644 --- a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb +++ b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb @@ -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