EgtCAM5 :

- piccola miglioria.

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