From 9d420795d829575ef22af74973a545f01fc9514d Mon Sep 17 00:00:00 2001 From: DarioS Date: Wed, 7 Dec 2022 08:17:51 +0100 Subject: [PATCH] EgtCAM5 2.4l1 : - in ingresso simulazione spostata prima visualizzazione dopo EgtSimInit e EgtSimStart. --- My Project/AssemblyInfo.vb | 4 ++-- .../SimulationExpander/SimulationExpanderVM.vb | 6 ++++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index fa83134..ae8230e 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -70,6 +70,6 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb index eec777c..9f73a88 100644 --- a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb +++ b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb @@ -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