From 6421fdcd36607c6baa847474ae468eb89ba6b1c8 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Thu, 6 Feb 2020 08:19:23 +0000 Subject: [PATCH] EgtCAM5 2.2b2 : - corretta segnalazione errori all'avvio della simulazione. --- My Project/AssemblyInfo.vb | 4 ++-- .../SimulationExpander/SimulationExpanderViewModel.vb | 9 ++++++++- 2 files changed, 10 insertions(+), 3 deletions(-) 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