From 36d781ea3c43318f2dd3d5be344d42e0adc2ba78 Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Tue, 7 Feb 2017 20:46:32 +0000 Subject: [PATCH] EgtCAM5 : - Corretto errore attivazione bottone apply dopo retrieve in SetUp. --- SetUpWindow/SetUpViewModel.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/SetUpWindow/SetUpViewModel.vb b/SetUpWindow/SetUpViewModel.vb index abb8bdd..0788801 100644 --- a/SetUpWindow/SetUpViewModel.vb +++ b/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