From a21366029fb80a8a5aa8cd39581b18671b232c79 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Tue, 4 Jul 2017 07:27:46 +0000
Subject: [PATCH] EgtCAM5 : - piccola miglioria.

---
 .../OperationExpanderViewModel.vb             | 20 ++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
index 9cf358c..d3698cd 100644
--- a/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
+++ b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
@@ -234,10 +234,13 @@ Namespace EgtCAM5
             If Not IsNothing(value) Then
                ' Verifico se c'è l'operazione precedente 
                If m_LastMarkedOperationId <> GDB_ID.NULL Then
-                  ' La deevidenzio 
-                  EgtResetMark(m_LastMarkedOperationId)
-                  'EgtResetMark(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "CL"))
-                  'EgtSetStatus(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "ST"), GDB_ST.OFF)
+                  ' La de-evidenzio 
+                  'EgtResetMark(m_LastMarkedOperationId)
+                  Dim bEnabModif As Boolean = EgtGetEnableModified()
+                  EgtDisableModified()
+                  EgtResetMark(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "CL"))
+                  EgtSetStatus(EgtGetFirstNameInGroup(m_LastMarkedOperationId, "ST"), GDB_ST.OFF)
+                  If bEnabModif Then EgtEnableModified()
                   ' Ne deseleziono la geometria
                   EgtDeselectAll()
                End If
@@ -258,9 +261,12 @@ Namespace EgtCAM5
                   ' Imposto come corrente la lavorazione(operazione) selezionata
                   EgtSetCurrMachining(value.Id)
                   ' Evidenzio la lavorazione(operazione) selezionata
-                  EgtSetMark(value.Id)
-                  'EgtSetMark(EgtGetFirstNameInGroup(value.Id, "CL"))
-                  'EgtSetStatus(EgtGetFirstNameInGroup(value.Id, "ST"), GDB_ST.ON_)
+                  'EgtSetMark(value.Id)
+                  Dim bEnabModif As Boolean = EgtGetEnableModified()
+                  EgtDisableModified()
+                  EgtSetMark(EgtGetFirstNameInGroup(value.Id, "CL"))
+                  EgtSetStatus(EgtGetFirstNameInGroup(value.Id, "ST"), GDB_ST.ON_)
+                  If bEnabModif Then EgtEnableModified()
                   ' Seleziono la geometria della lavorazione
                   Dim CountIndex = 0
                   Dim EntityIndex As Integer = 0