EgtCAM5 :

- modifiche e aggiornamenti per Scalpellatura e Svuotatura.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -148,6 +148,10 @@ Namespace EgtCAM5
                            Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, OptionModule.m_SelGeomSawRoughing)
                         Case MCH_OY.SAWFINISHING
                            Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, OptionModule.m_SelGeomSawFinishing)
+                        Case MCH_OY.GENMACHINING
+                           Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, OptionModule.m_SelGeomGenMachining)
+                        Case MCH_OY.CHISELING
+                           Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, OptionModule.m_SelGeomChiseling)
                      End Select
                   End If
                Else
@@ -770,20 +774,18 @@ Namespace EgtCAM5
          While Id <> GDB_ID.NULL
             EgtGetOperationName(Id, OpName)
             OpType = EgtGetOperationType(Id)
-            Select Case OpType
-               Case MCH_OY.DRILLING, MCH_OY.SAWING, MCH_OY.MILLING, MCH_OY.POCKETING, MCH_OY.MORTISING,
-                    MCH_OY.SAWROUGHING, MCH_OY.SAWFINISHING, MCH_OY.GENMACHINING
+            If IsValidMachiningType(OpType) Then
                   EgtSetCurrMachining(Id)
                   OpStatus = EgtGetOperationMode(Id)
                   EgtGetMachiningParam(MCH_MP.TOOL, OpTool)
                   EgtGetMachiningParam(MCH_MP.NAME, OpMach)
                   OperationList.Add(New MachiningOpListBoxItem(Id, OpStatus, OpName, OpType, OpTool, OpMach))
-               Case MCH_OY.DISP
+            ElseIf IsValidDispositionType(OpType) Then
                   OpStatus = True
                   OpTool = String.Empty
                   OpMach = String.Empty
                   OperationList.Add(New DispositionOpListBoxItem(Id, OpName, OpType))
-            End Select
+            End If
             Id = EgtGetNextOperation(Id)
          End While
       End Sub