EgtCAM5 1.8f6 :

- possibilità da Ini di visualizzare solo la tavola durante definizione lavorazioni
- corretta gestione dialogo dopo rinuncia ad inserire una nuova lavorazione.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -236,14 +236,13 @@ Namespace EgtCAM5
                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)
                   ' Ne deseleziono la geometria
                   EgtDeselectAll()
                End If
                ' Imposto la fase di lavorazione corrente
-               Dim nPhase As Integer = EgtGetOperationPhase(value.Id)
-               If nPhase <> 0 Then
-                  EgtSetCurrPhase(nPhase)
-               End If
+               EgtSetCurrPhase(EgtGetOperationPhase(value.Id))
                ' Verifico se l'operazione è una disposizione
                If EgtGetOperationType(value.Id) = MCH_OY.DISP Then
                   '' Abilito la selezione delle Fixture
@@ -251,7 +250,7 @@ Namespace EgtCAM5
                   '' Abilito la selezione di tutti i tipi di geometria
                   'Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, SceneSelModeOpt.ALL)
 
-                  ' L'operazione è una lavorazione
+               ' L'operazione è una lavorazione
                Else
                   '' Disabilito la selezione di qualunque cosa
                   'Application.Msn.NotifyColleagues(Application.SETSCENESELTYPE, SceneSelTypeOpt.NULL)
@@ -260,6 +259,8 @@ Namespace EgtCAM5
                   EgtSetCurrMachining(value.Id)
                   ' Evidenzio la lavorazione(operazione) selezionata
                   EgtSetMark(value.Id)
+                  'EgtSetMark(EgtGetFirstNameInGroup(value.Id, "CL"))
+                  'EgtSetStatus(EgtGetFirstNameInGroup(value.Id, "ST"), GDB_ST.ON_)
                   ' Seleziono la geometria della lavorazione
                   Dim CountIndex = 0
                   Dim EntityIndex As Integer = 0
@@ -521,7 +522,7 @@ Namespace EgtCAM5
          If m_NewMachining Then
             EndNewMachining(GDB_ID.NULL)
             ListIsExpanded = True
-            ' altrimenti sto cancellandone una vecchia
+         ' altrimenti sto cancellandone una vecchia
          Else
             If Not IsNothing(SelectedOperation) Then
                ' Salvo indice operazione precedente a selezionata