diff --git a/Icarus/CurrMachiningPanel/CurrMachining.vb b/Icarus/CurrMachiningPanel/CurrMachining.vb index b9d3e92..59c26d6 100644 --- a/Icarus/CurrMachiningPanel/CurrMachining.vb +++ b/Icarus/CurrMachiningPanel/CurrMachining.vb @@ -488,13 +488,13 @@ Public Class CurrNumericMachiningParam m_bIsLen = True Case Params.PREFLOWDELAY bReadFromPart = EgtGetInfo(nPartId, MAC_PREFLOWDELAY, m_dValue) - m_bIsLen = True + m_bIsLen = False Case Params.POSTFLOWDELAY bReadFromPart = EgtGetInfo(nPartId, MAC_POSTFLOWDELAY, m_dValue) - m_bIsLen = True + m_bIsLen = False Case Params.SCREWBACK bReadFromPart = EgtGetInfo(nPartId, MAC_SCREWBACK, m_dValue) - m_bIsLen = True + m_bIsLen = False Case Params.SLICINGHEIGHT bReadFromPart = EgtGetInfo(nPartId, MAC_SLICINGHEIGHT, m_dValue) m_bIsLen = True diff --git a/Icarus/MainWindow/MainWindowM.vb b/Icarus/MainWindow/MainWindowM.vb index af81d6f..0c50cd4 100644 --- a/Icarus/MainWindow/MainWindowM.vb +++ b/Icarus/MainWindow/MainWindowM.vb @@ -191,8 +191,8 @@ Public Class MainWindowM EgtSetLockId( sLockId) End If ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(5583, 2607, 1, m_nKeyLevel) And - EgtGetKeyOptions(5583, 2607, 1, m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(5583, 2611, 1, m_nKeyLevel) And + EgtGetKeyOptions(5583, 2611, 1, m_nKeyOptions) ' Inizializzazione generale di EgtInterface m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0) m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString()) diff --git a/Icarus/My Project/AssemblyInfo.vb b/Icarus/My Project/AssemblyInfo.vb index 12934f8..1e7459a 100644 --- a/Icarus/My Project/AssemblyInfo.vb +++ b/Icarus/My Project/AssemblyInfo.vb @@ -70,5 +70,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +