From e103aa753f3e7842b86e266384f677cd30da823e Mon Sep 17 00:00:00 2001
From: Nicola Pievani <nicola.pievani@egalware>
Date: Wed, 5 Mar 2025 10:27:50 +0100
Subject: [PATCH] Aggiorno il valore di numerazione del taglio

---
 CadCuts/SplitPageUC.xaml.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/CadCuts/SplitPageUC.xaml.vb b/CadCuts/SplitPageUC.xaml.vb
index 1a45f16..155f53b 100644
--- a/CadCuts/SplitPageUC.xaml.vb
+++ b/CadCuts/SplitPageUC.xaml.vb
@@ -538,10 +538,15 @@ Public Class SplitPageUC
             Next
             Dim nNewMchId As Integer = -1
             AddSawMachining(nMchId, nNewMchId)
+            ' Elimino la numerazione e la freccia
+            EgtErase(m_MachiningList(Index).m_nArrId)
+            EgtErase(m_MachiningList(Index).m_nNbrId)
             Dim Mach As New SplitMach
             If SplitAuto.CreateMach(Mach, nNewMchId) Then
                ' ricalcolo la lavorazione
                m_MachiningList(Index) = Mach
+               ' assegno numerazione
+               NumberDirectionMachining(Index)
                m_ItemList(Index).TCPos = m_ChangeToolPage.TCPos
                ' Recupero il colore della lavorazione
                Dim EgtCol As Color3d = m_ChangeToolPage.EgtColor