Gestione colore da lama lavorazioni

CadCuts/SplitAuto.vb

@@ -1,6 +1,4 @@
-Imports System.Net
-Imports System.Windows.Forms.Integration
-Imports EgtUILib
+Imports EgtUILib
 
 Public Module SplitAuto
 
@@ -430,10 +428,14 @@ Public Module SplitAuto
             Else
                colCut = COL_MCH_CUT()
             End If
-            ' Se macchina con cambio utensile anche per lama
+            ' Se macchina con cambio utensile di lama
             If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
+               Dim sSawing As String = String.Empty, sSaw As String = String.Empty
+               m_MainWindow.m_CadCutPageUC.m_SplitPage.GetCurrSawingandSaw(nOperId, sSawing, sSaw)
+               ' Setto l'utensile corrente
+               EgtTdbSetCurrTool(sSaw)
                ' recupero il colore della lavorazione direttamente dall'utensile
-               ChangeToolWD.GetColorPV()
+               colCut = ChangeToolWD.GetColorPV()
             End If
 
             For Each nId In vCutId