OmagCUT 1.6v4 :

- aggiunta gestione utensili con attrezzaggio manuale e automatico da toolchanger
- corretta gestione interni di componenti
- migliorata gestione grezzo principale sempre di fase 1.

CurrentMachine.vb

@@ -637,6 +637,7 @@ Public Class CurrentMachine
          GetPrivateProfileString(S_TOOLCHANGER, K_POS & Index, Nothing, sTool, sMachIniFile)
          m_ToolChanger.Add(New ToolChangerPos(Index, sName, sTool))
       Next
+
       ' Leggo numero portautensili manuali
       m_ManualToolChangerNbr = GetPrivateProfileInt(S_TOOLCHANGER, K_MANUALNUMBER, 0, sMachIniFile)
 
@@ -735,13 +736,13 @@ End Class
 
 Class ToolChangerPos
 
-   Private m_sPosition As Integer
+   Private m_nPosition As Integer
    Private m_sName As String = String.Empty
    Private m_sTool As String = String.Empty
 
-   Public ReadOnly Property sPosition As Integer
+   Public ReadOnly Property nPosition As Integer
       Get
-         Return m_sPosition
+         Return m_nPosition
       End Get
    End Property
 
@@ -761,7 +762,7 @@ Class ToolChangerPos
    End Property
 
    Sub New(sPosition As Integer, sName As String, sTool As String)
-      m_sPosition = sPosition
+      m_nPosition = sPosition
       m_sName = sName
       m_sTool = sTool
    End Sub