OmagCUT 2.7h3 :

- aggiunta gestione SpecialSend per macchine multitavola (Mega5) con controllo FANUC.
OmagCUT 2.7i2 :
2025-09-03 19:51:43 +02:00 · 2025-09-02 17:13:19 +02:00 · 2025-09-01 18:27:02 +02:00 · 2025-08-29 11:25:51 +02:00 · 2025-08-29 10:44:13 +02:00 · 2025-08-29 10:30:17 +02:00
21 changed files with 950 additions and 312 deletions
@@ -24,7 +24,7 @@
            <RowDefinition Height="0.5*"/>
         </Grid.RowDefinitions>

-         <TextBlock Name="Title" Grid.Row="1" Grid.Column="1" 
+         <TextBlock Name="TableListMsg" Grid.Row="1" Grid.Column="1" 
                    Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>

         <ItemsControl Name="TableList"
@@ -20,7 +20,7 @@ Public Class SelectTableWD

   Private Sub ChangeTable_Initialized() Handles Me.Initialized

-      Title.Text = EgtUILib.EgtMsg(91234)      ' Seleziona la tavola da usare
+      TableListMsg.Text = EgtUILib.EgtMsg(91234)      ' Seleziona la tavola da usare
      ' recuepero l'inidce della tavola corrente
      Dim nIndeXCurrTab As Integer = GetCurrentTable()
      ' creo la lista delle tavole disponibili (attivo il bottone della tavola attualmente in uso)
@@ -1,5 +1,6 @@
 Imports System.Collections.ObjectModel
 Imports System.ComponentModel
+Imports System.Reflection
 Imports EgtUILib

 Public Class SplitPageUC
@@ -203,7 +204,7 @@ Public Class SplitPageUC
               If Mach.m_sLay = NAME_ONPATH Then AddTopText(sText)
               If Mach.m_bFinalCut Then AddFinalText(sText)
            Else
-                  sText = EgtMsg(90791) & " " & i.ToString() & "  " & DoubleToString(Mach.m_dSideAng, 2) & "°"
+               sText = EgtMsg(90791) & " " & i.ToString() & "  " & DoubleToString(Mach.m_dSideAng, 2) & "°"
            End If
            If Mach.m_bPause Then AddPauseText(sText)
            AddItemToList(i, Mach, sText, MCH_OY.SAWING)
@@ -916,6 +917,8 @@ Public Class SplitPageUC
      Next
      m_CurrFirstInd = m_ItemList.IndexOf(ItemList(0))
      m_CurrLastInd = m_ItemList.IndexOf(ItemList(ItemList.Count - 1))
+      ' Aggiorno lo stato dei bottoni
+      UpdateEnableMoveBtn()
      EgtDraw()
   End Sub

@@ -932,7 +935,9 @@ Public Class SplitPageUC
      If m_IsCtrlKeyDown Or m_IsShiftKeyDown Then Return
      Dim Index As Integer = MachiningLsBx.SelectedIndex
      If Index = -1 Then Return
-      ChangeMachinig(m_MachiningList(Index).m_nId)
+      If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
+         ChangeMachinig(m_MachiningList(Index).m_nId)
+      End If
   End Sub

   Private Sub MoveUpBtn_Click(sender As Object, e As RoutedEventArgs) Handles MoveUpBtn.Click
@@ -962,11 +967,31 @@ Public Class SplitPageUC
      End If
   End Sub

+   ' Uno spostamento è possibile solo se la pozione di arrivo è un taglio dello stesso tipo (FinalCut)
+   Private Sub UpdateEnableMoveBtn()
+      If Not MoveUpBtn.IsEnabled And Not MoveDownBtn.IsEnabled Then Return
+
+      ' MOVE UP (-1)
+      If m_CurrFirstInd > 0 Then
+         Dim OldItem As SplitMach = m_MachiningList(m_CurrFirstInd - 1)
+         Dim NewItem As SplitMach = m_MachiningList(m_CurrLastInd)
+         MoveUpBtn.IsEnabled = Not (OldItem.m_bFinalCut Or NewItem.m_bFinalCut) Or (OldItem.m_bFinalCut And NewItem.m_bFinalCut)
+      End If
+
+      ' MOVE DOWN (1)
+      If m_CurrLastInd < m_MachiningList.Count - 1 Then
+         Dim OldItem = m_MachiningList(m_CurrLastInd + 1)
+         Dim NewItem = m_MachiningList(m_CurrFirstInd)
+         MoveDownBtn.IsEnabled = Not (OldItem.m_bFinalCut Or NewItem.m_bFinalCut) Or (OldItem.m_bFinalCut And NewItem.m_bFinalCut)
+      End If
+   End Sub
+
   Private Sub MoveItem(direction As Integer)
      ' Checking selected item
      If m_CurrFirstInd = -1 OrElse MachiningLsBx.SelectedIndex < 0 Then
         Return
      End If
+      m_MainWindow.m_CurrentProjectPageUC.ClearMessage()

      ' Se la direzione è giù
      If direction = 1 And m_CurrLastInd < m_ItemList.Count - 1 Then
@@ -990,7 +1015,8 @@ Public Class SplitPageUC
         m_CurrFirstInd -= 1
         m_CurrLastInd -= 1
      End If
-
+      ' Aggiorno lo stato dei bottoni
+      UpdateEnableMoveBtn()
      ' Imposto flag di modifica
      m_bModified = True
   End Sub
@@ -1250,17 +1276,31 @@ Public Class SplitPageUC

   End Sub

+   ' Dato l'indice della lavorazione restituisce l'indice della lavorazione TwinCut
+   Private Function GetIndexTwinCut(nIndex As Integer, Optional OnlyFinalCut As Boolean = True) As Integer
+      Dim nIndexTwinCut As Integer = -1
+      If m_MachiningList(nIndex).m_bFinalCut Or Not OnlyFinalCut Then
+         Dim nIdTwinCut As Integer = -1
+         EgtGetInfo(m_MachiningList(nIndex).m_nId, "IdTwinCut", nIdTwinCut)
+         nIndexTwinCut = m_MachiningList.FindIndex(Function(x) x.m_nId = nIdTwinCut)
+      End If
+      Return nIndexTwinCut
+   End Function
+
+   ' Ok: gestione info 'IdTwinCut' per tagli FinalCut
   Private Function AdjustBothCuts(nI As Integer,
                                   Optional bAllForced As Boolean = False,
                                   Optional bAccForced As Boolean = False) As Boolean
+      Dim nIndexTwinCut As Integer = GetIndexTwinCut(nI, False)
      ' Verifico che entrambi gli estremi siano allungabili
-      If Not (m_MachiningList(nI).m_bCanStartAll And m_MachiningList(nI).m_bCanEndAll) Then Return False
+      If Not ((m_MachiningList(nI).m_bCanStartAll And m_MachiningList(nI).m_bCanEndAll) Or nIndexTwinCut > -1) Then Return False
      ' Eseguo allungamento o riporto allo standard
      EgtSetCurrMachining(m_MachiningList(nI).m_nId)
      Dim nLiPrev As Integer
      EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
      Dim nLoPrev As Integer
      EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+
      If (m_MachiningList(nI).m_bStartAll Or m_MachiningList(nI).m_bEndAll) And Not bAllForced Then
         ' accorcio
         If nLiPrev = MCH_SAW_LI.EXT_OUT Then
@@ -1276,6 +1316,28 @@ Public Class SplitPageUC
         UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
         m_MachiningList(nI).m_bStartAll = False
         m_MachiningList(nI).m_bEndAll = False
+
+         ' ver_2.7h3
+         If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
+            ' Eseguo allungamento o riporto allo standard
+            EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
+            EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
+            EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+
+            ' accorcio
+            If nLiPrev = MCH_SAW_LI.EXT_OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
+            End If
+            If nLoPrev = MCH_SAW_LO.EXT_OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
+            End If
+            UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
+         End If
+
      ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
         ' allungo
         If nLiPrev = MCH_SAW_LI.OUT Then
@@ -1291,20 +1353,44 @@ Public Class SplitPageUC
         UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
         m_MachiningList(nI).m_bStartAll = True
         m_MachiningList(nI).m_bEndAll = True
+
+         ' ver_2.7h3
+         If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
+            ' Eseguo allungamento o riporto allo standard
+            EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
+            EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
+            EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+
+            If nLiPrev = MCH_SAW_LI.OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
+            End If
+            If nLoPrev = MCH_SAW_LO.OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
+            End If
+            UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
+         End If
+
      End If
      ColorMachining(m_MachiningList(nI))
      Return True
   End Function

+   ' Ok: gestione info 'IdTwinCut' per tagli FinalCut
   Private Function AdjustStartCut(nI As Integer,
                                   Optional bAllForced As Boolean = False,
                                   Optional bAccForced As Boolean = False) As Boolean
+      Dim nIndexTwinCut As Integer = GetIndexTwinCut(nI, False)
      ' Verifico che l'estremo iniziale sia allungabile
-      If Not m_MachiningList(nI).m_bCanStartAll Then Return False
+      If Not (m_MachiningList(nI).m_bCanStartAll Or nIndexTwinCut > -1) Then Return False
      ' Eseguo allungamento o riporto allo standard
      EgtSetCurrMachining(m_MachiningList(nI).m_nId)
      Dim nLiPrev As Integer
      EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
+
      If m_MachiningList(nI).m_bStartAll And Not bAllForced Then
         ' accorcio
         If nLiPrev = MCH_SAW_LI.EXT_OUT Then
@@ -1314,6 +1400,21 @@ Public Class SplitPageUC
         End If
         UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
         m_MachiningList(nI).m_bStartAll = False
+
+         ' ver_2.7h3
+         If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
+            ' Eseguo allungamento o riporto allo standard
+            EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
+            EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
+            ' accorcio
+            If nLiPrev = MCH_SAW_LI.EXT_OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
+            End If
+            UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
+         End If
+
      ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
         ' allungo
         If nLiPrev = MCH_SAW_LI.OUT Then
@@ -1323,20 +1424,38 @@ Public Class SplitPageUC
         End If
         UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
         m_MachiningList(nI).m_bStartAll = True
+
+         ' ver_2.7h3
+         If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
+            ' Eseguo allungamento o riporto allo standard
+            EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
+            EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
+            ' allungo
+            If nLiPrev = MCH_SAW_LI.OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
+            End If
+            UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
+         End If
+
      End If
      ColorMachining(m_MachiningList(nI))
      Return True
   End Function

+   ' Ok: gestione info 'IdTwinCut' per tagli FinalCut
   Private Function AdjustEndCut(nI As Integer,
                                 Optional bAllForced As Boolean = False,
                                 Optional bAccForced As Boolean = False) As Boolean
+      Dim nIndexTwinCut As Integer = GetIndexTwinCut(nI, False)
      ' Verifico che l'estremo finale sia allungabile
-      If Not m_MachiningList(nI).m_bCanEndAll Then Return False
+      If Not (m_MachiningList(nI).m_bCanEndAll Or nIndexTwinCut > -1) Then Return False
      ' Eseguo allungamento o riporto allo standard
      EgtSetCurrMachining(m_MachiningList(nI).m_nId)
      Dim nLoPrev As Integer
      EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+
      If m_MachiningList(nI).m_bEndAll And Not bAllForced Then
         ' accorcio
         If nLoPrev = MCH_SAW_LO.EXT_OUT Then
@@ -1345,6 +1464,21 @@ Public Class SplitPageUC
            EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
         End If
         m_MachiningList(nI).m_bEndAll = False
+
+         ' ver_2.7h3
+         If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
+            ' Eseguo allungamento o riporto allo standard
+            EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
+            EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+            ' accorcio
+            If nLoPrev = MCH_SAW_LO.EXT_OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
+            End If
+            UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
+         End If
+
      ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
         ' allungo
         If nLoPrev = MCH_SAW_LO.OUT Then
@@ -1353,62 +1487,106 @@ Public Class SplitPageUC
            EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
         End If
         m_MachiningList(nI).m_bEndAll = True
+
+         ' ver_2.7h3
+         If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
+            ' Eseguo allungamento o riporto allo standard
+            EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
+            EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+            ' allungo
+            If nLoPrev = MCH_SAW_LO.OUT Then
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
+            Else
+               EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
+            End If
+            UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
+         End If
+
      End If
      UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
      ColorMachining(m_MachiningList(nI))
      Return True
   End Function

+   ' Ok: gestione info 'IdTwinCut' per tagli FinalCut
   Private Sub OutCenStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles OutCenStartBtn.Click
      If m_CurrFirstInd = -1 Then Return
      Dim bGenModif As Boolean = False
+
      For Index As Integer = m_CurrFirstInd To m_CurrLastInd
-         If Not m_ItemList(Index).IsSelected Then
+         Dim nIndexTwinCut As Integer = -1
+         ' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
+         Dim nCount As Integer = 0
+         Dim CurrIndex = Index
+         If Not m_ItemList(CurrIndex).IsSelected Then
            Continue For
         End If
-         Dim nI As Integer = m_ItemList(Index).Ind
-         If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then

-            ' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
-            If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
-               EgtOutLog(" ⚠️ L'ingresso di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama ⚠️")
-            Else
+         Do
+            nCount = nCount + 1
+            Dim nI As Integer = m_ItemList(CurrIndex).Ind
+            If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
+
+               ' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
+               If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
+                  EgtOutLog("L'ingresso di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
+               Else
+
+                  EgtSetCurrMachining(m_MachiningList(nI).m_nId)
+                  Dim nLiPrev As Integer
+                  EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
+                  If nLiPrev = MCH_SAW_LI.OUT Then
+                     ' accorcio
+                     EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
+                     ' ri-verifico interferenza
+                     EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
+                  ElseIf nLiPrev = MCH_SAW_LI.EXT_OUT Then
+                     ' accorcio
+                     EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
+                  ElseIf nLiPrev = MCH_SAW_LI.CENT Then
+                     ' allungo
+                     EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
+                     ' ri-verifico interferenza
+                     EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
+                  ElseIf nLiPrev = MCH_SAW_LI.EXT_CENT Then
+                     ' allungo
+                     EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
+                  End If
+                  ColorMachining(m_MachiningList(nI))
+                  ColorNumberArrow(nI)
+                  bGenModif = True
+
+                  ' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
+                  nIndexTwinCut = GetIndexTwinCut(nI, False)
+                  If nIndexTwinCut > -1 Then
+                     ' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
+                     If m_ItemList(nIndexTwinCut).IsSelected Then
+                        nIndexTwinCut = -1
+                     Else
+                        CurrIndex = nIndexTwinCut
+                     End If
+                  End If

-               EgtSetCurrMachining(m_MachiningList(nI).m_nId)
-               Dim nLiPrev As Integer
-               EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
-               If nLiPrev = MCH_SAW_LI.OUT Then
-                  ' accorcio
-                  EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
-                  ' ri-verifico interferenza
-                  EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
-               ElseIf nLiPrev = MCH_SAW_LI.EXT_OUT Then
-                  ' accorcio
-                  EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
-               ElseIf nLiPrev = MCH_SAW_LI.CENT Then
-                  ' allungo
-                  EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
-                  ' ri-verifico interferenza
-                  EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
-               ElseIf nLiPrev = MCH_SAW_LI.EXT_CENT Then
-                  ' allungo
-                  EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
               End If
-               ColorMachining(m_MachiningList(nI))
-               ColorNumberArrow(nI)
-               bGenModif = True
-
            End If

-         End If
+            If nCount > 10 Then
+               EgtOutLog("! FATAL ERROR ! In function 'OutCenEndBtn' cycle 'Do Loop Until' is potentially infinte")
+               ' Forzo l'uscita dal ciclo
+               nIndexTwinCut = -1
+            End If
+         Loop Until nIndexTwinCut < 0
+
+         ' ----  FINE  ----- metodo per mofica paramtri
+
      Next
      ' Se modificato qualcosa
      If bGenModif Then
@@ -1417,6 +1595,7 @@ Public Class SplitPageUC
      End If
   End Sub

+   ' Ok: anche per tagli TwinCut con affondament ridotto
   Private Sub AllOutStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllOutStartBtn.Click
      For nI As Integer = 0 To m_MachiningList.Count() - 1
         EgtSetCurrMachining(m_MachiningList(nI).m_nId)
@@ -1443,12 +1622,13 @@ Public Class SplitPageUC
      m_bModified = True
   End Sub

+   ' Ok: anche per tagli TwinCut con affondament ridotto
   Private Sub AllCenStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllCenStartBtn.Click
      For nI As Integer = 0 To m_MachiningList.Count() - 1

         ' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
         If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
-            EgtOutLog(" ⚠️ L'ingresso di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama ⚠️")
+            EgtOutLog("L'ingresso di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
         Else

            EgtSetCurrMachining(m_MachiningList(nI).m_nId)
@@ -1478,56 +1658,84 @@ Public Class SplitPageUC
      m_bModified = True
   End Sub

+   ' Ok: gestione info 'IdTwinCut' per tagli FinalCut
   Private Sub OutCenEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles OutCenEndBtn.Click
      If m_CurrFirstInd = -1 Then Return
      Dim bGenModif As Boolean = False
+
      For Index As Integer = m_CurrFirstInd To m_CurrLastInd
-         If Not m_ItemList(Index).IsSelected Then
+         Dim nIndexTwinCut As Integer = -1
+         ' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
+         Dim nCount As Integer = 0
+         Dim CurrIndex = Index
+         If Not m_ItemList(CurrIndex).IsSelected Then
            Continue For
         End If
-         Dim nI As Integer = m_ItemList(Index).Ind
-         If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then

-            ' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
-            If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
-               EgtOutLog(" ⚠️ L'uscita di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama ⚠️")
-            Else
+         Do
+            nCount = nCount + 1
+            Dim nI As Integer = m_ItemList(CurrIndex).Ind
+            If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
+
+               ' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
+               If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
+                  EgtOutLog("L'uscita di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
+               Else
+
+                  EgtSetCurrMachining(m_MachiningList(nI).m_nId)
+                  Dim nLoPrev As Integer
+                  EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
+                  If nLoPrev = MCH_SAW_LO.OUT Then
+                     ' accorcio
+                     EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
+                     ' ri-verifico interferenza
+                     EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
+                  ElseIf nLoPrev = MCH_SAW_LO.EXT_OUT Then
+                     ' accorcio
+                     EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
+                  ElseIf nLoPrev = MCH_SAW_LO.CENT Then
+                     ' allungo
+                     EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
+                     ' ri-verifico interferenza
+                     EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
+                  ElseIf nLoPrev = MCH_SAW_LO.EXT_CENT Then
+                     ' allungo
+                     EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
+                     UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                     ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
+                  End If
+                  ColorMachining(m_MachiningList(nI))
+                  ColorNumberArrow(nI)
+                  bGenModif = True
+
+                  ' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
+                  nIndexTwinCut = GetIndexTwinCut(nI, False)
+                  If nIndexTwinCut > -1 Then
+                     ' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
+                     If m_ItemList(nIndexTwinCut).IsSelected Then
+                        nIndexTwinCut = -1
+                     Else
+                        CurrIndex = nIndexTwinCut
+                     End If
+                  End If

-               EgtSetCurrMachining(m_MachiningList(nI).m_nId)
-               Dim nLoPrev As Integer
-               EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
-               If nLoPrev = MCH_SAW_LO.OUT Then
-                  ' accorcio
-                  EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
-                  ' ri-verifico interferenza
-                  EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
-               ElseIf nLoPrev = MCH_SAW_LO.EXT_OUT Then
-                  ' accorcio
-                  EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
-               ElseIf nLoPrev = MCH_SAW_LO.CENT Then
-                  ' allungo
-                  EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
-                  ' ri-verifico interferenza
-                  EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
-               ElseIf nLoPrev = MCH_SAW_LO.EXT_CENT Then
-                  ' allungo
-                  EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
-                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-                  ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
               End If
-               ColorMachining(m_MachiningList(nI))
-               ColorNumberArrow(nI)
-               bGenModif = True
-
            End If

-         End If
+            If nCount > 10 Then
+               EgtOutLog("! FATAL ERROR ! In function 'OutCenEndBtn' cycle 'Do Loop Until' is potentially infinte")
+               ' Forzo l'uscita dal ciclo
+               nIndexTwinCut = -1
+            End If
+         Loop Until nIndexTwinCut < 0
+
+
      Next
      ' Se modificato qualcosa
      If bGenModif Then
@@ -1536,6 +1744,7 @@ Public Class SplitPageUC
      End If
   End Sub

+   ' Ok: anche per tagli TwinCut con affondament ridotto
   Private Sub AllOutEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllOutEndBtn.Click
      For nI As Integer = 0 To m_MachiningList.Count() - 1
         EgtSetCurrMachining(m_MachiningList(nI).m_nId)
@@ -1562,12 +1771,13 @@ Public Class SplitPageUC
      m_bModified = True
   End Sub

+   ' Ok
   Private Sub AllCenEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllCenEndBtn.Click
      For nI As Integer = 0 To m_MachiningList.Count() - 1

         ' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
         If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
-            EgtOutLog(" ⚠️ L'uscita di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama ⚠️")
+            EgtOutLog("L'uscita di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
         Else

            EgtSetCurrMachining(m_MachiningList(nI).m_nId)
@@ -1597,6 +1807,7 @@ Public Class SplitPageUC
      m_bModified = True
   End Sub

+   ' Ok
   Private Sub AllExtendBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllExtendBtn.Click
      Dim bModif As Boolean = False
      For nI As Integer = 0 To m_MachiningList.Count() - 1
@@ -1618,6 +1829,7 @@ Public Class SplitPageUC
      EnableButtons()
   End Sub

+   ' Ok
   Private Sub AllReduceBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllReduceBtn.Click
      Dim bModif As Boolean = False
      For nI As Integer = 0 To m_MachiningList.Count() - 1
@@ -1639,6 +1851,7 @@ Public Class SplitPageUC
      EnableButtons()
   End Sub

+   ' Ok
   Private Sub ModifStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles ModifStartBtn.Click
      Dim bLen As Boolean = True
      ' abilito la finestra per inserire i valori solo per il primo elemento della lista (di default tutti gli altri oggetti assumono lo stesso valore)
@@ -1659,76 +1872,115 @@ Public Class SplitPageUC
      If m_CurrFirstInd = -1 Then Return
      Dim bGenModif As Boolean = False
      For Index As Integer = m_CurrFirstInd To m_CurrLastInd
-         If Not m_ItemList(Index).IsSelected Then
+         Dim nIndexTwinCut As Integer = -1
+         Dim CurrIndex As Integer = Index
+         ' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
+         Dim nCount As Integer = 0
+
+         If Not m_ItemList(CurrIndex).IsSelected Then
            Continue For
         End If
-         Dim nI As Integer = m_ItemList(Index).Ind
+
+         Dim nI As Integer = m_ItemList(CurrIndex).Ind
         Dim nOperId As Integer = m_MachiningList(nI).m_nId
         Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
+
         ' Se taglio con lama
-         If nMachiningType = MCH_MY.SAWING And
-            (m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dPrevAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
+         If nMachiningType = MCH_MY.SAWING Then

-            If Not m_MachiningList(nI).m_bCanStartAll Then
-               EgtOutLog(" ⚠️ Il taglio non puo' essere allungato all'interno del pezzo ⚠️")
-               Return
-            End If
-
-            ' leggo il valore salvato nella geometria
-            Dim dOrigUsal As Double = 0
-            EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
-
-            ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
-            If bFirstInd Then
-               ' Dialogo richiesta valore
-               Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375))      ' Allungamento
-               ValWnd.SetVal(dOrigUsal, bLen)
-               If Not ValWnd.ShowDialog() Then Return
-               ' carico il valore letto dal testierino virtuale
-               dUsal = ValWnd.GetVal(bLen)
-               ' comunico che ho letto il primo dato
-               bFirstInd = False
-            End If
-            ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
-            Dim bRepeat As Boolean = False
            Do
-               ' Se c'è limite alla lunghezza libera
-               If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
-                  ' se abilitati i controlli sugli allungamenti dei lati interni
-                  If Not m_StartEndModifyOnIntCorner Then
-                     ' Recupero sicurezza in corner interno
-                     Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
-                     ' Recupero lunghezza baffo del taglio
-                     Dim nPvId As Integer = GDB_ID.NULL
-                     EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
-                     Dim dDT As Double = 0
-                     EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
-                     dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
+               ' Riassegno i valori dell'indice corrente
+               nI = m_ItemList(CurrIndex).Ind
+               nOperId = m_MachiningList(nI).m_nId
+
+               nCount = nCount + 1
+               If Not (m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dPrevAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
+                  Continue For
+               End If
+
+               nIndexTwinCut = GetIndexTwinCut(nI, False)
+               If Not (m_MachiningList(nI).m_bCanStartAll Or nIndexTwinCut > -1) Then
+                  EgtOutLog("Il taglio non puo' essere allungato all'interno del pezzo")
+                  ' Passo al prossimo indice disponibile
+                  Continue For
+               End If
+
+               ' leggo il valore salvato nella geometria
+               Dim dOrigUsal As Double = 0
+               EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
+
+               ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
+               If bFirstInd Then
+                  ' Dialogo richiesta valore
+                  Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375))      ' Allungamento
+                  ValWnd.SetVal(dOrigUsal, bLen)
+                  If Not ValWnd.ShowDialog() Then Return
+                  ' carico il valore letto dal testierino virtuale
+                  dUsal = ValWnd.GetVal(bLen)
+                  ' comunico che ho letto il primo dato
+                  bFirstInd = False
+               End If
+               ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
+               Dim bRepeat As Boolean = False
+               Do
+                  ' Se c'è limite alla lunghezza libera
+                  If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
+                     ' se abilitati i controlli sugli allungamenti dei lati interni
+                     If Not m_StartEndModifyOnIntCorner Then
+                        ' Recupero sicurezza in corner interno
+                        Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
+                        ' Recupero lunghezza baffo del taglio
+                        Dim nPvId As Integer = GDB_ID.NULL
+                        EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+                        Dim dDT As Double = 0
+                        EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
+                        dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
+                     End If
+                  End If
+                  ' Modifica della lavorazione
+                  EgtSetCurrMachining(nOperId)
+                  Dim dAddLen As Double = 0
+                  EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
+                  ' verifico che non sia sull'angolo interno (altrimenti vieto la modifica)
+                  If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUsal < -10 * EPS_SMALL) Then
+                     ' Passo al prossimo indice disponibile
+                     Continue For
+                     Return
+                  End If
+                  EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
+                  EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
+                  bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                  If bRepeat Then
+                     EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUsal)
+                     EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
+                     dUsal = dOrigUsal
+                  End If
+               Loop Until Not bRepeat
+
+               ' verifico interferenza
+               EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
+               ColorMachining(m_MachiningList(nI))
+               ColorNumberArrow(nI)
+               bGenModif = True
+
+               ' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
+               nIndexTwinCut = GetIndexTwinCut(nI, False)
+               If nIndexTwinCut > -1 Then
+                  ' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
+                  If m_ItemList(nIndexTwinCut).IsSelected Then
+                     nIndexTwinCut = -1
+                  Else
+                     CurrIndex = nIndexTwinCut
                  End If
               End If
-               ' Modifica della lavorazione
-               EgtSetCurrMachining(nOperId)
-               Dim dAddLen As Double = 0
-               EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
-               ' verifico che non sia sull'angolo interno (altrimenti vieto la modifica)
-               If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUsal < -10 * EPS_SMALL) Then
-                  Return
-               End If
-               EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
-               EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
-               bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-               If bRepeat Then
-                  EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUsal)
-                  EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
-                  dUsal = dOrigUsal
-               End If
-            Loop Until Not bRepeat

-            ' verifico interferenza
-            EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
-            ColorMachining(m_MachiningList(nI))
-            ColorNumberArrow(nI)
-            bGenModif = True
+               If nCount > 10 Then
+                  EgtOutLog("! FATAL ERROR ! In function 'ModifStartBtn' cycle 'Do Loop Until' is potentially infinte")
+                  ' Forzo l'uscita dal ciclo
+                  nIndexTwinCut = -1
+               End If
+
+            Loop Until nIndexTwinCut < 0

            ' se altrimenti fresatura sopra
         ElseIf nMachiningType = MCH_MY.MILLING And m_MachiningList(nI).m_sLay = NAME_ONPATH Then
@@ -1741,7 +1993,10 @@ Public Class SplitPageUC
               ' Dialogo richiesta valore
               Dim ValWnd As New EditValueWD(m_MainWindow, "MILL: " & EgtMsg(90375))      ' Allungamento
               ValWnd.SetVal(dOrigUsal, bLen)
-               If Not ValWnd.ShowDialog() Then Return
+               If Not ValWnd.ShowDialog() Then
+                  ' Esco da tutto
+                  Return
+               End If
               ' carico il valore letto dal testierino virtuale
               dUsal = ValWnd.GetVal(bLen)
               ' comunico che ho letto il primo dato
@@ -1783,8 +2038,10 @@ Public Class SplitPageUC
               ModifStartWnd.SetLiTangDist(nOriginalTangDist)
               ModifStartWnd.SetLiPerpDist(nOriginalPerpDist)
               ModifStartWnd.SetLeadInType(nOriginalLeadInType)
-               If Not ModifStartWnd.ShowDialog() Then Return
-
+               If Not ModifStartWnd.ShowDialog() Then
+                  ' esco da tutto
+                  Return
+               End If
               ' carico il valore letto dal testierino virtuale
               dWJAddLen = ModifStartWnd.GetElongation()
               bWJLiHole = ModifStartWnd.GetHole()
@@ -1820,6 +2077,7 @@ Public Class SplitPageUC
      End If
   End Sub

+   ' Ok
   Private Sub ModifEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles ModifEndBtn.Click
      Dim bLen As Boolean = True
      ' abilito la finestra per inserire i valori solo per il primo elemento della lista (di default tutti gli altri oggetti assumono lo stesso valore)
@@ -1839,74 +2097,110 @@ Public Class SplitPageUC
      If m_CurrFirstInd = -1 Then Return
      Dim bGenModif As Boolean = False
      For Index As Integer = m_CurrFirstInd To m_CurrLastInd
+         Dim nIndexTwinCut As Integer = -1
+         Dim CurrIndex As Integer = Index
+         ' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
+         Dim nCount As Integer = 0
+
         If Not m_ItemList(Index).IsSelected Then
            Continue For
         End If
+
         Dim nI As Integer = m_ItemList(Index).Ind
         Dim nOperId As Integer = m_MachiningList(nI).m_nId
         Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
+
         ' Se taglio con lama
-         If nMachiningType = MCH_MY.SAWING And
-            (m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dNextAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
+         If nMachiningType = MCH_MY.SAWING Then

-            If Not m_MachiningList(nI).m_bCanEndAll Then
-               EgtOutLog(" ⚠️ Il taglio non puo' essere allungato all'interno del pezzo ⚠️")
-               Return
-            End If
-
-            Dim dOrigUeal As Double = 0
-            EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
-
-            ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
-            If bFirstInd Then
-               ' Dialogo richiesta valore
-               Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375))      ' Allungamento
-               ValWnd.SetVal(dOrigUeal, bLen)
-               If Not ValWnd.ShowDialog() Then Return
-               dUeal = ValWnd.GetVal(bLen)
-               bFirstInd = False
-            End If
-            ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
-            Dim bRepeat As Boolean = False
            Do
-               ' Se c'è limite alla lunghezza libera
-               If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
-                  ' se abilitati i controlli sugli allungamenti dei lati interni
-                  If Not m_StartEndModifyOnIntCorner Then
-                     ' Recupero sicurezza in corner interno
-                     Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
-                     ' Recupero lunghezza baffo del taglio
-                     Dim nPvId As Integer = GDB_ID.NULL
-                     EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
-                     Dim dDT As Double = 0
-                     EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
-                     dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
+               ' Riassegno i valori dell'indice corrente
+               nI = m_ItemList(CurrIndex).Ind
+               nOperId = m_MachiningList(nI).m_nId
+
+               nCount = nCount + 1
+               If Not (m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dNextAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
+                  Continue For
+               End If
+
+               nIndexTwinCut = GetIndexTwinCut(nI, False)
+               If Not (m_MachiningList(nI).m_bCanEndAll Or nIndexTwinCut > -1) Then
+                  EgtOutLog("Il taglio non puo' essere allungato all'interno del pezzo")
+                  Return
+               End If
+
+               Dim dOrigUeal As Double = 0
+               EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
+
+               ' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
+               If bFirstInd Then
+                  ' Dialogo richiesta valore
+                  Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375))      ' Allungamento
+                  ValWnd.SetVal(dOrigUeal, bLen)
+                  If Not ValWnd.ShowDialog() Then Return
+                  dUeal = ValWnd.GetVal(bLen)
+                  bFirstInd = False
+               End If
+               ' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
+               Dim bRepeat As Boolean = False
+               Do
+                  ' Se c'è limite alla lunghezza libera
+                  If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
+                     ' se abilitati i controlli sugli allungamenti dei lati interni
+                     If Not m_StartEndModifyOnIntCorner Then
+                        ' Recupero sicurezza in corner interno
+                        Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
+                        ' Recupero lunghezza baffo del taglio
+                        Dim nPvId As Integer = GDB_ID.NULL
+                        EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
+                        Dim dDT As Double = 0
+                        EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
+                        dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
+                     End If
+                  End If
+
+                  ' Modifica della lavorazione
+                  EgtSetCurrMachining(nOperId)
+                  Dim dAddLen As Double = 0
+                  EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
+                  If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUeal < -10 * EPS_SMALL) Then
+                     Return
+                  End If
+                  EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
+                  EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
+                  UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                  bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
+                  If bRepeat Then
+                     EgtSetMachiningParam(MCH_MP.ENDADDLEN, dOrigUeal)
+                     EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
+                     dUeal = dOrigUeal
+                  End If
+               Loop Until Not bRepeat
+
+               ' verifico interferenza
+               EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
+               ColorMachining(m_MachiningList(nI))
+               ColorNumberArrow(nI)
+               bGenModif = True
+
+               ' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
+               nIndexTwinCut = GetIndexTwinCut(nI, False)
+               If nIndexTwinCut > -1 Then
+                  ' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
+                  If m_ItemList(nIndexTwinCut).IsSelected Then
+                     nIndexTwinCut = -1
+                  Else
+                     CurrIndex = nIndexTwinCut
                  End If
               End If

-               ' Modifica della lavorazione
-               EgtSetCurrMachining(nOperId)
-               Dim dAddLen As Double = 0
-               EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
-               If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUeal < -10 * EPS_SMALL) Then
-                  Return
+               If nCount > 10 Then
+                  EgtOutLog("! FATAL ERROR ! In function 'ModifStartBtn' cycle 'Do Loop Until' is potentially infinte")
+                  ' Forzo l'uscita dal ciclo
+                  nIndexTwinCut = -1
               End If
-               EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
-               EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
-               UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-               bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
-               If bRepeat Then
-                  EgtSetMachiningParam(MCH_MP.ENDADDLEN, dOrigUeal)
-                  EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
-                  dUeal = dOrigUeal
-               End If
-            Loop Until Not bRepeat
+            Loop Until nIndexTwinCut < 0

-            ' verifico interferenza
-            EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
-            ColorMachining(m_MachiningList(nI))
-            ColorNumberArrow(nI)
-            bGenModif = True
            ' se altrimenti fresatura sopra
         ElseIf nMachiningType = MCH_MY.MILLING And m_MachiningList(nI).m_sLay = NAME_ONPATH Then

@@ -261,17 +261,11 @@ Module ConstIni
   Public Const K_REGANGSTEP As String = "AngStep"

   Public Const S_CAMERA As String = "Camera"
-   Public Const K_CAM_COUNT As String = "Count"
   Public Const K_CAM_EXEPATH As String = "ExePath"
   Public Const K_CAM_IMAGE As String = "Image"
   Public Const K_CAM_INFO As String = "Info"
   Public Const K_CAM_RESULT As String = "Result"
   Public Const K_CAM_CONTOUR As String = "Contour"
-   Public Const K_CAM_EXEPATH2 As String = "ExePath2"
-   Public Const K_CAM_IMAGE2 As String = "Image2"
-   Public Const K_CAM_INFO2 As String = "Info2"
-   Public Const K_CAM_RESULT2 As String = "Result2"
-   Public Const K_CAM_CONTOUR2 As String = "Contour2"
   Public Const K_CAM_THRESHOLD As String = "Threshold"
   Public Const K_CAM_TOLERANCE As String = "Tolerance"
   Public Const K_CAM_TIMEOUT As String = "Timeout"
@@ -2,6 +2,7 @@

   Public Const S_NUMERICALCONTROL As String = "NumericalControl"
   Public Const K_TYPE As String = "Type"
+   Public Const K_SPECIALSEND As String = "SpecialSend"

   Public Const S_PARTPROGRAM As String = "PartProgram"
   Public Const K_EXTENSION As String = "Extension"
@@ -267,6 +267,7 @@ Public Class GridCut
         EraseDirectCutPart()
         ' Riattivo eventuali lavorazioni presenti
         ActivateAllMachinings()
+         EgtSetCurrPhase(1)
         ' Abilito registrazione progetto modificato
         EgtEnableModified()
         ' Nascondo la macchina
@@ -763,10 +764,37 @@ Public Class GridCut
      If Not m_MainWindow.m_CurrentMachine.bDirectCutsFinalHome Then
         RemoveFinalHome()
      End If
+      ' Se richiesta gestione tagli finali
+      OrderFinalSawCuts()
+      ' Aggiorno stato bottoni
      UpdateSimulOkBtn()
      Return m_bCutOk
   End Function

+   Private Function OrderFinalSawCuts() As Boolean
+      ' Se gestione tagli finali non richiesta, esco
+      If Not m_MainWindow.m_CurrentMachine.bEnableFinalSawCut Then Return False
+      ' Sposto i tagli finali alla fine, conservando l'ordine relativo
+      Dim nFirstMovedId As Integer = GDB_ID.NULL
+      Dim nRefId As Integer = EgtGetLastActiveOperation()
+      Dim nOpeId As Integer = EgtGetFirstActiveOperation()
+      While nOpeId <> GDB_ID.NULL
+         If nOpeId = nFirstMovedId Then Exit While
+         Dim nNextOpeId As Integer = EgtGetNextActiveOperation( nOpeId) 
+         If EgtGetOperationType( nOpeId) = MCH_OY.SAWING Then
+            Dim bFinalCut As Boolean = False
+            IF EgtGetInfo( nOpeId, "FinalCut", bFinalCut) AndAlso bFinalCut Then
+               EgtRelocateGlob( nOpeId, nRefId, GDB_POS.AFTER)
+               nRefId = nOpeId
+               If nFirstMovedId = GDB_ID.NULL Then nFirstMovedId = nOpeId
+            End If
+         End If
+         nOpeId = nNextOpeId
+      End While
+      ' Esco
+      Return True
+   End Function
+
   Private Function MultiplyCut(nLayerId As Integer) As Boolean
      If m_bCustomGrid Then
         Return MultiplyCut_1(nLayerId)
@@ -1563,10 +1563,15 @@ Public Class DrawPageUC
            LeftButtonGrd.Children.Remove(m_CompoDimension.m_AlzFrontPage)

      End Select
-
      ' Pulisco l'ambiente lua
      ResetLuaVariables()

+      Try
+         VariablesGrd.Children.Remove(m_CompoDimension)
+      Catch ex As Exception
+         Dim x As Boolean = True
+      End Try
+
   End Sub

   Private Class CompoVar
@@ -248,5 +248,5 @@ Public Class SecondaryComponentPageUC
      m_MainWindow.m_DrawPageUC.LeftButtonGrd.Children.Add(m_MainComponentPage)
   End Sub

-    
+
 End Class
@@ -167,7 +167,42 @@ Public Class SideAngleUC
      End If

      ' Gestisco Checkbox e nomi in base al numero di lati inclinabili
-      TxBlChBxView()
+      ' Controllo se la checkbox SideAngle è attiva
+      If SideAngleChBx.IsChecked Then
+         Dim dSideAngle As Double = 0
+         Dim dHell As Double = 0
+         ' Controllo se l'angolo della nuova entità non è nullo
+         If Not String.IsNullOrEmpty(NewA1TxBx.Text) Then
+            StringToDouble(NewA1TxBx.Text, dSideAngle)
+            ' Controllo se l'angolo è diverso da 0
+            If dSideAngle <> 0 Then
+               ' Aggiorno l'angolo delle entità
+               UpdateSideAngleAllEntities()
+            End If
+         End If
+         ' Controllo se il tallone della nuova entità non è nullo
+         If Not String.IsNullOrEmpty(NewH1TxBx.Text) Then
+            StringToDouble(NewH1TxBx.Text, dHell)
+            ' Controllo se il tallone è maggiore di 0
+            If dHell > 0 Then
+               ' Aggiorno il tallone delle entità
+               UpdateHeelAllEntities()
+            End If
+         End If
+         ' Elimino le righe per riposizionarle
+         Grid.SetRow(NewEntity, MAX_LINES - m_nShow + 1)
+         Grid.SetRow(NewA1TxBx, MAX_LINES - m_nShow + 1)
+         Grid.SetRow(NewH1TxBx, MAX_LINES - m_nShow + 1)
+
+         Grid.SetRow(SideAngleBl, MAX_LINES - m_nShow)
+         Grid.SetRow(HeelBl, MAX_LINES - m_nShow)
+         Grid.SetRow(SideAngleGrid, MAX_LINES - m_nShow)
+         ' Rendo visibile solo la nuova entità
+         CollapsedCheckAllTextSideAng()
+      Else
+         ' Altrimenti eseguo impaginazione classica
+         TxBlChBxView()
+      End If

      ' Aggiorno valori
      If m_Mode = ModeOpt.DRIP Then
@@ -406,10 +441,16 @@ Public Class SideAngleUC
      Grid.SetRow(NewA1TxBx, MAX_LINES - m_nShow + 1)
      Grid.SetRow(NewH1TxBx, MAX_LINES - m_nShow + 1)

-      NewEntity.Text = "A#"
      ' Se interrompo la creazione di un unico SideAng
      If Not GetSideAngleFromAllEntities() Then Return

+      CollapsedCheckAllTextSideAng()
+   End Sub
+
+   ' Rende visibile NewEntity quando si attiva la spunta sulla checkbox
+   Private Sub CollapsedCheckAllTextSideAng()
+      NewEntity.Text = "A#"
+
      PrevBtn.Visibility = Visibility.Collapsed
      NextBtn.Visibility = Visibility.Collapsed

@@ -614,6 +614,24 @@ Public Class AlarmsPageUC
      m_MainWindow.m_WorkInProgressPageUC.UpdateTools()
      ' aggiorno la lista delle lavorazioni
      RefreschMachining()
+
+      ' Se è associata anche una lavorazione inclinata allora deve essere resettata
+      If m_CurrentMachine.MountedToolConfig <> CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
+         m_CurrentMachine.sCurrSawTilted = CurrSawCmBx.SelectedItem.ToString()
+         ' Se nuova lama incompatibile con lavorazione di taglio corrente, resetto quest'ultima
+         sMchTuuid = String.Empty
+         sMchTool = String.Empty
+         If Not EgtMdbSetCurrMachining(m_CurrentMachine.sCurrSawingTilted) Or
+            Not EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sMchTuuid) Or
+            Not EgtTdbGetToolFromUUID(sMchTuuid, sMchTool) Or
+            String.Compare(sMchTool, m_CurrentMachine.sCurrSawTilted, True) <> 0 Then
+            m_CurrentMachine.sCurrSawingTilted = String.Empty
+         End If
+         ' Aggiorno utensili per lavoro in corso
+         m_MainWindow.m_WorkInProgressPageUC.UpdateTools()
+         ' aggiorno la lista delle lavorazioni
+         RefreschMachining()
+      End If
   End Sub

   ' -- SAW TILTED --
@@ -13,7 +13,7 @@
         <Grid.ColumnDefinitions>
            <ColumnDefinition Width="7.5*"/>
            <ColumnDefinition Width="1.5*"/>
-            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="2*"/>
            <ColumnDefinition Width="5*"/>
         </Grid.ColumnDefinitions>
         <Grid.RowDefinitions>
@@ -103,7 +103,7 @@

         <GroupBox Name="PartProgTransferGpBx" 
                   Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="2"
-                   Grid.ColumnSpan="3">
+                   Grid.ColumnSpan="2">
            <Grid>
               <Grid.ColumnDefinitions>
                  <ColumnDefinition Width="2*"/>
@@ -127,9 +127,16 @@
            </Grid>
         </GroupBox>

+         <GroupBox Name="SpecialSendGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="2"
+                   Grid.Column="2" Grid.ColumnSpan="1" Margin="5,0,5,0">
+               <CheckBox Name="SpecialSendChBx"
+                         Style="{DynamicResource OmagCut_CheckBox_Single}"
+                         HorizontalAlignment="Center" Margin="0,0,0,0"/>
+         </GroupBox>
+
         <GroupBox Name="PowerGpBx" Style="{DynamicResource OmagCut_GroupBox}" Grid.Row="2"
-                   Grid.Column="3" Grid.ColumnSpan="3" Margin="5,0,0,0">
-            <Grid>
+                   Grid.Column="3" Grid.ColumnSpan="1" Margin="5,0,0,0">
+               <Grid>
               <Grid.ColumnDefinitions>
                  <ColumnDefinition Width="2*"/>
                  <ColumnDefinition Width="2*"/>
@@ -37,6 +37,16 @@ Public Class MachineCNPageUC
         PartProgTransferGpBx.Visibility = Windows.Visibility.Hidden
      End If

+      ' Se prevista, scelta invio speciale part program
+      Dim nSpecialSend As Integer = GetPrivateProfileInt(S_NUMERICALCONTROL, K_SPECIALSEND, -1, m_MainWindow.GetMachIniFile())
+      If nSpecialSend <> -1 Then
+         SpecialSendChBx.IsChecked() = (nSpecialSend = 1)
+         SpecialSendGpBx.Header = "Special Send"
+         SpecialSendGpBx.Visibility = Visibility.Visible
+      else
+         SpecialSendGpBx.Visibility = Visibility.Collapsed
+      End If
+
      ' nuovi pulsanti
      If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 Then
         PowerONBtn.Content = "ON"
@@ -85,7 +95,7 @@ Public Class MachineCNPageUC
      Dim m_nCount As Integer = 1
      Dim bFoundBtn As Boolean = True
      Dim sTestVal As String = String.Empty
-      ' se non trovo il primo pulsante della lista allora nascondo l'elenco dei pulasnti per accensione
+      ' se non trovo il primo pulsante della lista allora nascondo l'elenco dei pulsanti per accensione
      If GetPrivateProfileString("MachineButtons", K_BUTTON & "1", "", sTestVal, m_MainWindow.GetMachIniFile()) = 0 Then
         PowerGpBx.Visibility = Visibility.Collapsed
         Return
@@ -323,6 +333,10 @@ Public Class MachineCNPageUC
      MDITxBx.Background = Brushes.LightGray
   End Sub

+   Private Sub SpecialSend_Click(sender As Object, e As RoutedEventArgs) Handles SpecialSendChBx.Click
+      m_MainWindow.m_CNCommunication.SpecialSend() = If( SpecialSendChBx.IsChecked(), 1, 0)
+   End Sub
+
   Private Sub PowerON_Click(sender As Object, e As RoutedEventArgs) Handles PowerONBtn.Click
      Dim PowerOnButton As MachineButton = m_ButtonPower(0)
      ' eseguo lo script lua associato
@@ -2221,7 +2221,7 @@ Public Class MachiningDbPageUC
   Friend Function SaveCurrMachining() As Boolean
      SetMachiningParams()
      If EgtMdbIsCurrMachiningModified() Then
-         Dim SaveCurrMachiningWnd As New EgtMsgBox(m_MainWindow, "", EgtMsg(91003), EgtMsgBox.Buttons.YES_NO_CANCEL, EgtMsgBox.Icons.NULL)   ' Inclinazione
+         Dim SaveCurrMachiningWnd As New EgtMsgBox(m_MainWindow, "", EgtMsg(91103), EgtMsgBox.Buttons.YES_NO_CANCEL, EgtMsgBox.Icons.NULL)   ' Inclinazione
         Select Case SaveCurrMachiningWnd.m_nPressedBtn
            Case 0    ' Annulla
               Return False
@@ -362,8 +362,8 @@ Class MainWindow
      ' Verifico abilitazione nesting automatico
      m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey)
      ' Recupero opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2707, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2707, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2709, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2709, 1, m_nKeyOptions)
      ' Verifico abilitazione prodotto
      Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
      ' Impostazione per programma OnlyFrame: solo se CUT_BASE non attivo
@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("2.7.8.2")>
-<Assembly: AssemblyFileVersion("2.7.8.2")>
+<Assembly: AssemblyVersion("2.7.9.3")>
+<Assembly: AssemblyFileVersion("2.7.9.3")>
@@ -20,6 +20,21 @@ Public Class CNCommunication
   ' Variabile per tipologia CN
   Friend m_nNCType As Integer

+   ' Modalità speciale invio programmi (attualmente solo per Fanuc, fino a 4 programmi)
+   Private m_nSpecialSend As Integer = -1
+   Friend Property SpecialSend As Integer
+      Get
+         Return m_nSpecialSend
+      End Get
+      Set(value As Integer)
+         value = Math.Max( Math.Min( value, 1), -1)
+         If value <> m_nSpecialSend Then
+            m_nSpecialSend = value
+            WritePrivateProfileString( S_NUMERICALCONTROL, K_SPECIALSEND, value.ToString(), m_MainWindow.GetMachIniFile())
+         End If
+      End Set
+   End Property
+
   ' Variabile che indica il Mode corrente
   Private m_nCurrMode As Integer = -1

@@ -98,6 +113,10 @@ Public Class CNCommunication

      EgtOutLog("NcLink=" & m_MainWindow.m_bNCLink.ToString & " type=" & m_nNCType)

+      ' Leggo flag invio speciale programma di lavoro
+      Dim nTemp As Integer = GetPrivateProfileInt(S_NUMERICALCONTROL, K_SPECIALSEND, -1, m_MainWindow.GetMachIniFile())
+      m_nSpecialSend = Math.Max( Math.Min( nTemp, 1), -1)
+
      ' Se CN Siemens leggo dati programma intermedio di comunicazione
      If m_nNCType = 3 Then
         Dim sExeName As String = String.Empty
@@ -1183,7 +1202,7 @@ Public Class CNCommunication
      'Laser = 16384
   End Enum

-#Region "MASCHERA per conttrollo Bit a Bit"
+#Region "MASCHERA per controllo Bit a Bit"
   <Flags()>
   Public Enum Mask As Integer
      bit_Err = -1
@@ -1568,10 +1587,6 @@ Public Class CNCommunication
                               Optional bActivate As Boolean = True) As Boolean
      Dim bOk As Boolean = True

-      ' !!!!!!!!!!!!!!!!!! FORZO IL PROGRAMMA !!!!!!!!!!!!!!!!!!
-      ' m_nNCType = 2
-      ' !!!!!!!!!!!!!!!!!! FORZO IL PROGRAMMA !!!!!!!!!!!!!!!!!!
-
      ' Download programma
      If m_MainWindow.m_bNCLink Then
         bOk = (m_nNCType > 0)
@@ -1582,6 +1597,10 @@ Public Class CNCommunication
         Else
            sNumProg = nNumProg.ToString()
         End If
+         ' Se Fanuc con trasmissione speciale, disabilito attivazione
+         If m_nNCType = 4 AndAlso m_nSpecialSend = 1 Then
+            bActivate = False
+         End If
         ' Se richiesta successiva attivazione, faccio reset
         If bActivate Then
            EgtOutLog("Call function: DGeneralFunctions_Reset")
@@ -1600,42 +1619,47 @@ Public Class CNCommunication
            ' Attesa opportuna
            System.Threading.Thread.Sleep(100)
         ElseIf m_nNCType = 4 Then
-            ' FANUC: imposto modalità EDIT 
-            bOk = bOk AndAlso (m_CN.DGeneralFunctions_WriteCncMode(1) = 0)
-            ' Attesa opportuna
-            System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+            ' FANUC: imposto modalità EDIT se non special send
+            If m_nSpecialSend <> 1 Then
+               bOk = bOk AndAlso (m_CN.DGeneralFunctions_WriteCncMode(1) = 0)
+               ' Attesa opportuna
+               System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+            End If
         End If
         EgtOutLog("Download_NC_prog(" & sCncPath & ", " & sNumProg.ToString & ")")
         ' -------------- START DOWNLOAD -------------- 
         TimeSpanInit()
-         bOk = bOk AndAlso (m_CN.Download_NC_prog(sCncPath, sNumProg) = 0)
-         ' Attesa opportuna
-         System.Threading.Thread.Sleep(100)
-         ' FANUC: genero un file 901 vuoto da aspedire, attivare; poi rispedisco il file 900
-         If m_nNCType = 4 And Not bOk Then
-            bOk = True
-            Dim sCncPath1 As String = m_MainWindow.GetCncDir() & "\PlaceHolder" & m_MainWindow.m_CurrentMachine.sIsoFileExt
-            Dim fs As FileStream = File.Create(sCncPath1)
-            ' Add text to the file.
-            Dim info As Byte() = New UTF8Encoding(True).GetBytes(vbLf & "(PlaceHolder)")
-            fs.Write(info, 0, info.Length)
-            fs.Close()
-            bOk = bOk AndAlso (m_CN.Download_NC_prog(sCncPath1, "901") = 0)
+         If m_nNCType = 4 AndAlso m_nSpecialSend = 1 Then
+            bOk = bOk AndAlso SpecialSendProgram(sCncPath, sNumProg)
+         Else
+            bOk = bOk AndAlso (m_CN.Download_NC_prog(sCncPath, sNumProg) = 0)
            ' Attesa opportuna
-            System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
-            If bActivate Then
-               bOk = bOk AndAlso (m_CN.ActivateProgram("901") = 0)
+            System.Threading.Thread.Sleep(100)
+            ' FANUC: genero un file 901 vuoto da spedire, attivare; poi rispedisco il file 900
+            If m_nNCType = 4 And Not bOk Then
+               bOk = True
+               Dim sCncPath1 As String = m_MainWindow.GetCncDir() & "\PlaceHolder" & m_MainWindow.m_CurrentMachine.sIsoFileExt
+               Dim fs As FileStream = File.Create(sCncPath1)
+               ' Add text to the file.
+               Dim info As Byte() = New UTF8Encoding(True).GetBytes(vbLf & "(PlaceHolder)")
+               fs.Write(info, 0, info.Length)
+               fs.Close()
+               bOk = bOk AndAlso (m_CN.Download_NC_prog(sCncPath1, "901") = 0)
+               ' Attesa opportuna
+               System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+               If bActivate Then
+                  bOk = bOk AndAlso (m_CN.ActivateProgram("901") = 0)
+                  ' Attesa opportuna
+                  System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+               End If
+               ' riprovo ad eseguire il programma 900
+               bOk = True
+               bOk = bOk AndAlso (m_CN.Download_NC_prog(sCncPath, sNumProg) = 0)
               ' Attesa opportuna
               System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
            End If
-            ' riprovo ad eseguire il programma 900
-            bOk = True
-            bOk = bOk AndAlso (m_CN.Download_NC_prog(sCncPath, sNumProg) = 0)
-            ' Attesa opportuna
-            System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
         End If
-         EgtOutLog("Nc Type : " & m_nNCType.ToString)
-         ' AXIUM (NUM OLD): se DripFeed non esegluo attivazione programma)
+         ' AXIUM (NUM OLD): se DripFeed non eseguo attivazione programma)
         If m_nNCType = 1 AndAlso m_CN.bIsDripFeed Then
            ' eventauli cambi di stato sono trattati all'interno della funzione DownLoad_NC_prog
            Return True
@@ -1652,7 +1676,7 @@ Public Class CNCommunication
            EgtOutLog(TimeSpanEnd())
            ' Attesa opportuna
            System.Threading.Thread.Sleep(100)
-            ' Attivo la modalità AUTO prima per preparar il cyclo start
+            ' Attivo la modalità AUTO prima per preparare il cyclo start
            bOk = bOk AndAlso (m_CN.DGeneralFunctions_WriteCncMode(0) = 0)
            ' Attesa opportuna
            System.Threading.Thread.Sleep(100)
@@ -1675,6 +1699,56 @@ Public Class CNCommunication
      Return bOk
   End Function

+   Private Function SpecialSendProgram(sz_PC_filename As String, sz_NC_filename As String) As Boolean
+      ' Solo per Fanuc
+      If m_nNCType <> 4 Then Return False
+      ' Indice base
+      Dim nBase As Integer = 900
+      ' Ho possibilità di trasmettere in 4 aree consecutive (901, 902, 903 e 904)
+      For I As Integer = 1 To 4
+         ' Leggo la variabile semaforo dell'area I-esima
+         Dim nVal As Integer = -1
+         Dim sVar As String = "#" & (nBase + I).ToString()
+         EgtOutLog( "IndVar=" & sVar)
+         For J As Integer = 1 To 20
+            ' Devo rileggere la variabile ad ogni ciclo
+            m_CN.ReadEls_Add_Parameter(sVar, 3)
+            System.Threading.Thread.Sleep(100)
+            If m_CN.n_DReadELS_handle = 3 Then
+               nVal = CInt(m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value)
+               EgtOutLog( "Value=" & nVal.ToString())
+               If nVal <> -1 Then
+                  Exit For
+               End If
+            End If
+         Next
+         ' Se posso trasmettere
+         If nVal = 0 Then
+            ' Assegno numero di programma
+            Dim sNumProg As String = "O0" & ( nBase + I).ToString()
+            EgtOutLog( "NumProg=" & sNumProg)
+            ' Eseguo trasmissione
+            Dim bOk As Boolean = ( m_CN.Download_NC_prog(sz_PC_filename, sNumProg) = 0)
+            System.Threading.Thread.Sleep(100)
+            EgtOutLog( "SendResult=" & bOk.ToString())
+            ' Se non riuscita riprovo
+            If Not bOk Then
+               bOk = ( m_CN.Download_NC_prog(sz_PC_filename, sNumProg) = 0)
+               System.Threading.Thread.Sleep(100)
+               EgtOutLog( "SecondSendResult=" & bOk.ToString())
+            End If
+            ' Se andata a buon fine
+            If bOk Then
+               ' Dichiaro programma trasmesso
+               m_MainWindow.m_CNCommunication.m_CN.DVariables_WriteVariables2(sVar, "1")
+               System.Threading.Thread.Sleep(100)
+               Return True
+            End If
+         End If
+      Next
+      Return False
+   End Function
+
   Private Sub GetSpecialCAxes()
      If m_CN.bCPos Then
         m_CN.d_axis_position(m_nA4) = m_CN.dCPos
@@ -1372,7 +1372,11 @@ Module M_Fanuc
      FileOpen(nFilew, szFileProgramma, OpenMode.Output)

      '        PrintLine(nFilew, "%" & vbLf & "<" & NomeSend & ">") ' !!!!!!!! da spostare
-      PrintLine(nFilew, vbLf & "<" & NomeSend & ">") ' !!
+      If NomeSend.StartsWith( "O") Then
+         PrintLine(nFilew, vbLf & NomeSend) ' !!
+      Else
+         PrintLine(nFilew, vbLf & "<" & NomeSend & ">") ' !!
+      End If

      'trascrivo file tranne prima linea
      While (Not EOF(nFiler))
@@ -330,13 +330,18 @@ Public Class CurrentProjectPageUC
         EgtSetCurrentContext(CurrentProjectScene.GetCtx())
         ' Cancello eventuali messaggi
         ClearMessage()
+         ' Se è stata modificata l'uso della lama inclinata allora aggiorno anche questa lavorazione
+         If m_MainWindow.m_CurrentMachine.MountedToolConfig <> CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then
+            ' assegno la lavorazione corrente per i tagli di lama inclinati (solo se specificato nella ComboBox della ChooseMachinig)
+            RestoreDef_Machinig(True)
+         End If
         ' Ricalcolo tutte le lavorazioni
         Dim nWarn As Integer = 0
         ResetAllMachinings(nWarn)
         If nWarn = 1 Then SetWarningMessage(EgtMsg(90351)) ' Lama troppo grande per utilizzo ventosa
-         ' Aggiorno visualizzazione
-         EgtDraw()
-      End If
+            ' Aggiorno visualizzazione
+            EgtDraw()
+         End If
   End Sub

   Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles CurrentProjectScene.OnMouseDownScene
@@ -56,10 +56,10 @@
                PlacementTarget="{Binding ElementName=ResetCutBtn}">
            <WrapPanel Orientation="Vertical" 
                       Background="{DynamicResource OmagCut_Gray}">
-               <Button x:Name="ResetCut1Btn"
+               <Button x:Name="ResetCut2Btn"
                       Width ="78" Height="78"
                       Style="{DynamicResource OmagCut_YellowTextButton}"/>
-               <Button x:Name="ResetCut2Btn"
+               <Button x:Name="ResetCut1Btn"
                       Width ="78" Height="78"
                       Style="{DynamicResource OmagCut_YellowTextButton}"/>
            </WrapPanel>
@@ -2,6 +2,9 @@
 Imports EgtWPFLib

 Public Class ProjectMgrUC
+   ' Creo una varibile statica per verificare di non stampare due volte lo stesso messaggio
+   Public Shared bFirstRun As Boolean = True
+
   ' Riferimenti a pagine (condivisi tra tutte le istanze della classe)
   Private Shared m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
   Private Shared m_CurrProjPage As CurrentProjectPageUC
@@ -11,6 +14,7 @@ Public Class ProjectMgrUC
   ' usato per scrivere i comadi di movimento test lavorazione
   Friend m_CN As CN_generico

+   ' L'inizializzazine avviene 2 volte: una per i tagli CAD ed una per le cornici
   Private Sub ProjectMgrUC_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
      ' Imposto i messaggi letti dal file dei messaggi
      NewBtn.ToolTip = EgtMsg(90303)                                   ' Nuovo
@@ -21,9 +25,12 @@ Public Class ProjectMgrUC
      VeinMatchingBtn.ToolTip = EgtMsg(90309)                          ' Vein Match

      RegisterBtn.Content = "REG"                                      ' Shape Registration
-      ResetCutBtn.Content = EgtMsg(90336)                              ' Reset
-      ResetCut2Btn.Content = EgtMsg(91024)                             ' Reset lavorazioni
-      ResetCut1Btn.Content = EgtMsg(91025)                             ' Aggiorna feed/speed
+
+      'ResetCutBtn.Content = EgtMsg(90336)                              ' Reset
+      'ResetCut2Btn.Content = EgtMsg(91024)                             ' Reset lavorazioni
+      'ResetCut1Btn.Content = EgtMsg(91025)                             ' Aggiorna feed/speed
+      PopulateListCmdReset()
+
      SimulateBtn.ToolTip = EgtMsg(90301)                              ' Simulate - Simula
      If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
         WorkBtn.ToolTip = EgtMsg(90310)                               ' Export - Esporta
@@ -255,6 +262,8 @@ Public Class ProjectMgrUC
      m_MainWindow.m_PrevActivePage = MainWindow.Pages.CadCut
   End Sub

+#Region "RESET"
+
   Private Sub ResetCutBtn_Click(sender As Object, e As RoutedEventArgs) Handles ResetCutBtn.Click
      If (Keyboard.Modifiers And ModifierKeys.Shift) > 0 Then
         If ResetCutPopUp.IsOpen Then
@@ -263,18 +272,28 @@ Public Class ProjectMgrUC
            ResetCutPopUp.IsOpen = True
         End If
      Else
-         ResetCut3Btn_Click()
+         CallFunction(0)
      End If
   End Sub

   ' Reimposto le feed di tutte le lavorazioni
   Private Sub ResetCut1Btn_Click(sender As Object, e As RoutedEventArgs) Handles ResetCut1Btn.Click
+      CallFunction(1)
+   End Sub
+
+   ' Reimposto le lavorazioni di default e ripristino i parametri
+   Private Sub ResetCut2Btn_Click(sender As Object, e As RoutedEventArgs) Handles ResetCut2Btn.Click
+      CallFunction(2)
+   End Sub
+
+   ' Reimposto le feed di tutte le lavorazioni
+   Private Sub FeedReset()
      ' eseguo il ricalcolo delle sole FEED di lavorazione
      UpdateFeedAllMachining()
   End Sub

   ' Reimposto le lavorazioni di default e ripristino i parametri
-   Private Sub ResetCut2Btn_Click(sender As Object, e As RoutedEventArgs) Handles ResetCut2Btn.Click
+   Private Sub HardReset()
      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
      ' Cancello eventuali messaggi
      m_CurrProjPage.ClearMessage()
@@ -307,7 +326,7 @@ Public Class ProjectMgrUC
   End Sub

   ' Resetta i valori dei parametri (ma non le lavorazioni)
-   Private Sub ResetCut3Btn_Click()
+   Private Sub StandardReset()
      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
      ' Cancello eventuali messaggi
      m_CurrProjPage.ClearMessage()
@@ -333,6 +352,96 @@ Public Class ProjectMgrUC
      EgtDraw()
   End Sub

+   Private Const HARD_RESET As String = "HARD"
+   Private Const STANDARD_RESET As String = "STANDARD"
+   Private Const FEED_RESET As String = "FEED"
+
+   Private Enum RESET_TYPE
+      HARD
+      STANDARD
+      FEED
+   End Enum
+
+   Private m_ListCmdReset As New List(Of RESET_TYPE) From {RESET_TYPE.HARD, RESET_TYPE.STANDARD, RESET_TYPE.FEED}
+
+   Private Sub CallFunction(IndexListCmdReset As Integer)
+      Select Case m_ListCmdReset(IndexListCmdReset)
+         Case RESET_TYPE.STANDARD
+            EgtOutLog("STNADRD Reset")
+            StandardReset()
+         Case RESET_TYPE.HARD
+            EgtOutLog("HARD Reset")
+            HardReset()
+         Case RESET_TYPE.FEED
+            EgtOutLog("FEED Reset")
+            FeedReset()
+      End Select
+   End Sub
+
+   Private Sub SetBtnResetContent(IndexListCmdReset As Integer, Btn As Button)
+      Select Case m_ListCmdReset(IndexListCmdReset)
+         Case RESET_TYPE.STANDARD
+            Btn.Content = EgtMsg(90336)                             ' Reset
+         Case RESET_TYPE.HARD
+            Btn.Content = EgtMsg(91024)                             ' Reset lavorazioni
+         Case RESET_TYPE.FEED
+            Btn.Content = EgtMsg(91025)                             ' Aggiorna feed/speed
+      End Select
+   End Sub
+
+   Private Sub PopulateListCmdReset()
+      Dim sConfig As String = "HARD,STANDARD,FEED"
+      GetPrivateProfileString(S_GENERAL, "ResetCmd", sConfig, sConfig, m_MainWindow.GetIniFile())
+      Dim sItems As String() = sConfig.Split(",")
+      ' VERIFICA della lettura configurazione
+      If sItems.Count <> 3 Then
+         If bFirstRun Then
+            EgtOutLog("WARNING configurazione: in Config.ini del programma nella sezione 'General/ResetCmd' " &
+                   "non trovato una sequenza del tipo 'HARD,STANDARD,FEED'")
+         End If
+      Else
+         Dim bOk As Boolean = True
+         Dim sErrMsg As String = String.Empty
+         ' popolo una lista di appoggio
+         Dim TempList As New List(Of RESET_TYPE) From {RESET_TYPE.STANDARD, RESET_TYPE.STANDARD, RESET_TYPE.STANDARD}
+         For Index As Integer = 0 To sItems.Count - 1
+            If sItems(Index).Trim = STANDARD_RESET Then
+               TempList(Index) = RESET_TYPE.STANDARD
+            ElseIf sItems(Index).Trim = HARD_RESET Then
+               TempList(Index) = RESET_TYPE.HARD
+            ElseIf sItems(Index).Trim = FEED_RESET Then
+               TempList(Index) = RESET_TYPE.FEED
+            Else
+               bOk = False
+               sErrMsg = sErrMsg & If(String.IsNullOrEmpty(sErrMsg), "", ",") & sItems(Index).Trim
+            End If
+         Next
+         ' verifico che non ci siano elementi ripetuti nella lista
+         If Not bOk Then
+            If bFirstRun Then
+               EgtOutLog("WARNING configurazione: in Config.ini del programma nella sezione 'General/ResetCmd' " &
+                      "non trovato una sequenza del tipo 'HARD,STANDARD,FEED' (i seguenti parametri non sono decodificati: " &
+                      sErrMsg & " )")
+            End If
+         ElseIf TempList(0) = TempList(1) Or TempList(0) = TempList(2) Or TempList(1) = TempList(2) Then
+            If bFirstRun Then
+               EgtOutLog("WARNING configurazione: in Config.ini del programma nella sezione 'General/ResetCmd' " &
+                      "non trovato una sequenza del tipo 'HARD,STANDARD,FEED' (due o più dati sono ripetuti)")
+            End If
+         Else
+               m_ListCmdReset = TempList
+         End If
+      End If
+
+      SetBtnResetContent(0, ResetCutBtn)
+      SetBtnResetContent(1, ResetCut1Btn)
+      SetBtnResetContent(2, ResetCut2Btn)
+
+      bFirstRun = False
+   End Sub
+
+#End Region  ' Reset
+
   Private Sub SimulateBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulateBtn.Click
      EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
      m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
@@ -657,7 +766,8 @@ Public Class ProjectMgrUC
         End If

         '------------------- INIZIO Avvio il Ciclo-Start-------------------------
-         If GetPrivateProfileInt(S_GENERAL, K_STARTPROGRAM, 0, m_MainWindow.GetIniFile()) <> 0 Then
+         If GetPrivateProfileInt(S_GENERAL, K_STARTPROGRAM, 0, m_MainWindow.GetIniFile()) <> 0 AndAlso
+            ( m_MainWindow.m_CNCommunication.m_nNCType <> 4  Or m_MainWindow.m_CNCommunication.SpecialSend <> 1) Then
            Dim MyCicloStartWD As New CicloStartWD(m_MainWindow)
            MyCicloStartWD.ShowDialog()
         End If
@@ -923,35 +1033,32 @@ Public Class ProjectMgrUC
   End Sub

   Public Sub UpdateFeedAllMachining()
-      ' recupero il valore di Feed della lavorazione corrente
+      Dim SettedMachinig As String = String.Empty
+      EgtMdbGetCurrMachiningParam(MCH_MP.NAME, SettedMachinig)
+
+      ' Parametri della lavorazione letta da DB
      Dim sMachiningName As String = String.Empty
-      If Not EgtMdbGetCurrMachiningParam(MCH_MP.NAME, sMachiningName) Then
-         ' errore: lavorazione non trovata
-         EgtOutLog(" - Prima di 'Reset Feed' accedere alla pagina MACCHINA!")
-         'm_MainWindow.m_CurrentProjectPageUC.SetErrorMessage("Salvare la lavorazione corrente")
-         Return
-      End If
      Dim dFeed As Double = 0
-      EgtMdbGetCurrMachiningParam(MCH_MP.FEED, dFeed)
      Dim dFeedStarted As Double = 0
-      EgtMdbGetCurrMachiningParam(MCH_MP.STARTFEED, dFeedStarted)
      Dim dFeedEnded As Double = 0
-      EgtMdbGetCurrMachiningParam(MCH_MP.ENDFEED, dFeedEnded)
      Dim dFeedTipped As Double = 0
-      EgtMdbGetCurrMachiningParam(MCH_MP.TIPFEED, dFeedTipped)
      Dim dFeedBack As Double = 0
-      EgtMdbGetCurrMachiningParam(MCH_MP.BACKFEED, dFeedBack)
      Dim dFeedSideAng As Double = 0
-      EgtMdbGetCurrMachiningParam(MCH_MP.SIDEANGFEED, dFeedSideAng)
+      ' Elenco delle lavorazioni
      Dim MachiningList As New List(Of SplitMach)

      ' Recupero l'indice della fase corrente
      Dim nCurrPhase As Integer = 1
      ' recupero in numero di fasi presenti nel progetto
      Dim nCountPhase As Integer = EgtGetPhaseCount()
-      ' ciclo su tutte le fasi di lavorazione
+      ' Numero di lavorazioni del progetto (conteggiate nel ciclo for)
      Dim nMach As Integer = 0
+      ' Numero di lavorazioni aggiornate (conteggate nel ciclo for)
      Dim nMachUpdated As Integer = 0
+      ' Elenco dei nomi lavorazioni aggiorniate
+      Dim UpdateMachinigNameList As New List(Of String)
+
+      ' ciclo su tutte le fasi di lavorazione
      For IndexPhase As Integer = 1 To nCountPhase
         ' imposto la fase corrente
         nCurrPhase = IndexPhase
@@ -963,6 +1070,31 @@ Public Class ProjectMgrUC
            Dim nOperId As Integer = MachiningList(IndexMachining).m_nId
            ' setto la lavorazione come corrente
            If EgtSetCurrMachining(nOperId) Then
+               Dim sCurrMachiningName As String = String.Empty
+               EgtGetMachiningParam(MCH_MP.NAME, sCurrMachiningName)
+               ' Se la lavorazione corrente da DB è diversa da quella della lavorazione allora aggiorno i dati
+               If sCurrMachiningName <> sMachiningName Then
+                  sMachiningName = sCurrMachiningName
+                  ' Recupero la lavorazione dell'operazione indicata
+                  If Not EgtMdbSetCurrMachining(sMachiningName) Then
+                     EgtOutLog("ERRORE: Machining '" & sMachiningName & "' does not exist in DB of machining.")
+                     sMachiningName = String.Empty
+                     Continue For
+                  End If
+                  EgtMdbGetCurrMachiningParam(MCH_MP.FEED, dFeed)
+                  EgtMdbGetCurrMachiningParam(MCH_MP.STARTFEED, dFeedStarted)
+                  EgtMdbGetCurrMachiningParam(MCH_MP.ENDFEED, dFeedEnded)
+                  EgtMdbGetCurrMachiningParam(MCH_MP.TIPFEED, dFeedTipped)
+                  EgtMdbGetCurrMachiningParam(MCH_MP.BACKFEED, dFeedBack)
+                  EgtMdbGetCurrMachiningParam(MCH_MP.SIDEANGFEED, dFeedSideAng)
+               Else
+                  ' verifico se è stata applicata una variazione delle Feed 
+                  If UpdateMachinigNameList.FindIndex(Function(x) x = sCurrMachiningName) = -1 Then
+                     ' La lavorazione corrente non ha nessun parametro nuovo
+                     Continue For
+                  End If
+               End If
+
               Dim bUpdate As Boolean = False
               ' STANDARD
               Dim dOrigFeed As Double
@@ -1021,10 +1153,24 @@ Public Class ProjectMgrUC
               ' conto il numero di lavorazioni aggiornate
               If bUpdate Then
                  nMachUpdated += 1
+                  If UpdateMachinigNameList.FindIndex(Function(x) x = sCurrMachiningName) = -1 Then
+                     UpdateMachinigNameList.Add(sCurrMachiningName)
+                  End If
               End If
            End If
         Next
      Next
+
+      If UpdateMachinigNameList.Count > 0 Then
+         Dim sMsg As String = String.Empty
+         For Each Item As String In UpdateMachinigNameList
+            sMsg = sMsg & If(String.IsNullOrEmpty(sMsg), "", ",") & Item
+         Next
+         EgtOutLog("Le lavorazioni aggiornate sono: " & sMsg)
+      Else
+         EgtOutLog("Nessuna lavorazione è stata aggiornata: Feed da DB uguali a quelle impostate nelle lavorazioni")
+      End If
+
      m_MainWindow.m_CurrentProjectPageUC.SetInfoMessage(EgtMsg(91243) & nMachUpdated & "/ " & nMach)      ' Lavorazione aggiornate: 
   End Sub

@@ -26,28 +26,19 @@ Public Class Camera
   Private m_bCalcContour As Boolean = False
   Private m_nCameraCount As Integer = 0
   Private m_sCameraPath As String = String.Empty
-   'Private m_sCameraPath2 As String = String.Empty
   Private m_sCameraProcName As String = String.Empty
-   'Private m_sCameraProcName2 As String = String.Empty
   Private m_sImage As String = String.Empty
-   'Private m_sImage2 As String = String.Empty
   Private m_sInfo As String = String.Empty
-   'Private m_sInfo2 As String = String.Empty
   Private m_sResult As String = String.Empty
-   'Private m_sResult2 As String = String.Empty
   Private m_sContour As String = String.Empty
-   'Private m_sContour2 As String = String.Empty
   Private m_nThreshold As Integer = 60
   Private m_dTolerance As Double = 5
   Private m_nTimeout As Integer = 30
   Private m_sImageDir As String = String.Empty

-   Private Const CAMERAMNG As String = "CameraMng"
   Private Const N_LOOP As Integer = 20

-   'Public m_ProcessCmg As New Process()
-
-   ' Lista dei processi Cmg associati ad igni tavola
+   ' Lista dei processi Cmg associati ad ogni tavola
   Public m_ProcessCmgList As New List(Of Process)
   ' restituisce lo stato che il processo associato alla tavola corrente (PrepareCamera)
   Private m_bIsRunnigProc As Boolean = False
@@ -96,6 +87,8 @@ Public Class Camera
                      (GetPrivateProfileInt(S_GENERAL, K_CONTOURFROMCAMERA, 1, m_MainWindow.GetIniFile()) <> 0)
      ' Ricavo il nome del processo associato
      m_sCameraProcName = Path.GetFileNameWithoutExtension(m_sCameraPath)
+      ' Terminazione di eventuali processi omonimi in esecuzione
+      KillPreviousProcesses()
      ' Avvio processi del camera manager per ogni tavola
      CamerasHide()
      Return True
@@ -104,7 +97,7 @@ Public Class Camera
   Public Function Close() As Boolean
      If m_bBusy Then Return False
      If m_bCameraLink Then
-         KillProcess()
+         KillProcesses()
      End If
      Return True
   End Function
@@ -179,7 +172,7 @@ Public Class Camera
            ' Indice di processo uguale all'indice della tavola
            nIndProc = nIndTab
         Case 1
-            ' Alla tavola 1 possono essre associati 2 processi (solo se camera Hq abilitata e attiva)
+            ' Alla tavola 1 possono essere associati 2 processi (solo se camera Hq abilitata e attiva)
            If nIndTab = 1 And
               (GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ENABLE, 0, m_MainWindow.GetMachIniFile()) <> 0) AndAlso
               (GetPrivateProfileInt(S_CAMERAHQ, K_CAMERAHQ_ACTIVATE, 0, m_MainWindow.GetMachIniFile()) <> 0) Then
@@ -197,6 +190,8 @@ Public Class Camera

   ' OK: Avvio un processo per ogni tavola presente in macchina
   Public Function CamerasHide() As Boolean
+      If Not m_bCameraLink Then Return False
+
      ' Lancio il programma in cieco, se già attivo lo nascondo
      m_nCameraCount = GetTableCount()

@@ -465,10 +460,12 @@ Public Class Camera
      GetPrivateProfileString(S_CAMERA, K_CAM_RESULT, "", m_sResult, m_MainWindow.GetIniFile())
      GetPrivateProfileString(S_CAMERA, K_CAM_CONTOUR, "", m_sContour, m_MainWindow.GetIniFile())

-      m_sImage = m_sImage.Replace(CAMERAMNG, CAMERAMNG & (nIndProc).ToString())
-      m_sInfo = m_sInfo.Replace(CAMERAMNG, CAMERAMNG & (nIndProc).ToString())
-      m_sResult = m_sResult.Replace(CAMERAMNG, CAMERAMNG & (nIndProc).ToString())
-      m_sContour = m_sContour.Replace(CAMERAMNG, CAMERAMNG & (nIndProc).ToString())
+      If nIndProc <> 1 Then
+         m_sImage = m_sImage.Replace(m_sCameraProcName, m_sCameraProcName & (nIndProc).ToString())
+         m_sInfo = m_sInfo.Replace(m_sCameraProcName, m_sCameraProcName & (nIndProc).ToString())
+         m_sResult = m_sResult.Replace(m_sCameraProcName, m_sCameraProcName & (nIndProc).ToString())
+         m_sContour = m_sContour.Replace(m_sCameraProcName, m_sCameraProcName & (nIndProc).ToString())
+      End If

      Return If(m_bIsRunnigProc, nIndProc, -1)
   End Function
@@ -797,20 +794,30 @@ Public Class Camera
      Return bOk
   End Function

-   Private Function ProcessIsRunning() As Boolean
+   ' OK: chiudo tutti i processi di CameraMng in esecuzione prima dell'avvio
+   Private Sub KillPreviousProcesses()
+      If Not m_bCameraLink Then Return
      Dim Procs() As Process
      Procs = Process.GetProcessesByName(m_sCameraProcName)
-      Return (Procs.Length() > 0)
-   End Function
+      For i As Integer = 0 To Procs.Count() - 1
+         Try
+            Procs(i).Kill()
+            Procs(i).WaitForExit( 50)
+         Catch Ex As Exception
+            EgtOutLog(ex.Message())
+         End Try
+      Next
+   End Sub

-   ' OK: chiudo tutti i processi che hanno il nome CameraMng.exe
-   Private Sub KillProcess()
-      Dim Procs() As Process
-      Procs = Process.GetProcessesByName(m_sCameraProcName)
-      For i As Integer = 0 To Procs.Length() - 1
-         Procs(i).Kill()
-         Procs(i).WaitForExit(2000)
-      Next i
+   ' OK: chiudo tutti i processi di CameraMng lanciati
+   Private Sub KillProcesses()
+      For i As Integer = 0 To m_ProcessCmgList.Count() - 1
+         Try
+            m_ProcessCmgList(i).Kill()
+         Catch Ex As Exception
+            EgtOutLog(ex.Message())
+         End Try
+      Next
   End Sub

 End Class
Author	SHA1	Message	Date
Dario Sassi	37adc352a1	OmagCUT 2.7h3 : - aggiunta gestione SpecialSend per macchine multitavola (Mega5) con controllo FANUC.	2025-09-03 19:51:43 +02:00
Dario Sassi	2708670d9a	OmagCUT 2.7i2 : - corretto ordinamento tagli finali di lama in griglia (quando abilitati).	2025-09-02 17:13:19 +02:00
Dario Sassi	737366ba27	OmagCut : - modifiche per prima istanza CameraMng (associata a tavola 1) senza il numero 1 nella path (come era nelle versioni vecchie).	2025-09-01 18:27:02 +02:00
Nicola Pievani	d10588867f	Aggiornamento KeyOpt	2025-08-29 11:25:51 +02:00
Nicola Pievani	54158406b7	Aggiornamento versione 2.7i1	2025-08-29 10:44:13 +02:00
Nicola Pievani	5c3c231729	Merge branch 'develop'	2025-08-29 10:30:17 +02:00
Nicola Pievani	d3c0b1c2c6	Merge branch 'Menage_Final_Cut' into develop	2025-08-28 19:22:46 +02:00
Nicola Pievani	ad04e5d916	Correzione messaggio salvattaggio lavorazione	2025-08-28 19:22:41 +02:00
Nicola Pievani	db623544e9	Gestione Split per tagli finali	2025-08-28 19:12:46 +02:00
Nicola Pievani	3075c2f4af	Migliorata gestione avvio programma CameraMng	2025-08-27 16:03:31 +02:00
Nicola Pievani	045e7cba61	Gestione spostame tagli finali	2025-08-27 15:54:55 +02:00
Nicola Pievani	57d4a29b74	Gestione configurazione dei comandi RESET, milgiorata funzione ResetFEED	2025-08-27 14:30:14 +02:00
Nicola Pievani	b045f0ce7b	Gestione aggiornamento lavorazioni inclinate	2025-08-26 11:19:32 +02:00
Nicola Pievani	41767f4f3a	Merge branch 'develop' of https://gitlab.steamware.net/egaltech/OmagCUT into develop	2025-08-25 18:56:41 +02:00
Nicola Pievani	85f05f280f	Corretta gestione selezione lavorazione inclianata senza cmabio lama	2025-08-25 18:56:06 +02:00
Demetrio Cassarino	b4338ef88e	-migliorata gestione pagina sideangleUC	2025-08-25 16:12:13 +02:00