EgtCAM5 :

- Corretto errore attivazione bottone apply dopo retrieve in SetUp.

SetUpWindow/SetUpViewModel.vb

@@ -222,7 +222,7 @@ Namespace EgtCAM5
          Dim IniIndex As Integer = 1
          ' recupero stringa di ogni posizione
          While EgtGetInfo(nSetUpGroup, K_POS & IniIndex, sPosition)
-            ReadPositionString(IniIndex, sPosition)
+            ReadPositionString(IniIndex, sPosition, True)
             IniIndex += 1
          End While
 
@@ -287,7 +287,7 @@ Namespace EgtCAM5
       End Function
 
       ' Funzione che dati l'indice della posizione e la sua stringa di attrezzaggio, carica l'attrezzaggio descritto
-      Private Sub ReadPositionString(nIndex As Integer, sPosition As String)
+      Private Sub ReadPositionString(nIndex As Integer, sPosition As String, bOriginal As Boolean)
          Dim sTcPos As String = String.Empty
          Dim sHead As String = String.Empty
          Dim sExitList As New List(Of String)
@@ -356,7 +356,7 @@ Namespace EgtCAM5
                                        CurrExitToolAss.Tool = TempTool
                                        CurrExitToolAss.IsOccupied = True
                                        ' lo metto anche come utensile originale
-                                       CurrExitToolAss.OrigTool = TempTool
+                                       If bOriginal Then CurrExitToolAss.OrigTool = TempTool
                                        Exit For
                                     End If
                                  Next
@@ -677,7 +677,7 @@ Namespace EgtCAM5
          Dim IniIndex As Integer = 1
          ' recupero stringa di ogni posizione
          While EgtUILib.GetPrivateProfileString(S_GENERAL, K_POS & IniIndex, String.Empty, sPosition, sPath) > 0
-            ReadPositionString(IniIndex, sPosition)
+            ReadPositionString(IniIndex, sPosition, False)
             IniIndex += 1
          End While
          ' verifico se disabilitare questa posizione in base all'utensile correntemente selezionato