OmagCUT:

- Aggiunti Mola (MillNoTip) al DB Utensili e Svuotatura (Pocketing) al DB Lavorazioni, con parametri uguali a Fresa e Fresatura

CurrentMachine.vb

@@ -62,6 +62,7 @@ Public Class CurrentMachine
    Private m_bSaw As Boolean = False
    Private m_bDrill As Boolean = False
    Private m_bMill As Boolean = False
+   Private m_bMillNoTip As Boolean = False
 
    ' Flag per visualizzazione TcPos, Testa/uscita e Note utente
    Private m_nShowToolChanger As Integer = 0                 ' 0=no, 1=tutti utensili, 2=solo lame
@@ -73,6 +74,7 @@ Public Class CurrentMachine
    Private m_bSawing As Boolean = False
    Private m_bDrilling As Boolean = False
    Private m_bMilling As Boolean = False
+   Private m_bPocketing As Boolean = False
    Private m_bSawRoughing As Boolean = False
    Private m_bSawFinishing As Boolean = False
 
@@ -80,6 +82,7 @@ Public Class CurrentMachine
    Private m_sCurrSaw As String = String.Empty
    Private m_sCurrDrill As String = String.Empty
    Private m_sCurrMill As String = String.Empty
+   Private m_sCurrMillNoTip As String = String.Empty
    Private m_sCurrDripSaw As String = String.Empty
    Private m_sCurrDripDrill As String = String.Empty
 
@@ -87,6 +90,7 @@ Public Class CurrentMachine
    Private m_sCurrSawing As String = String.Empty
    Private m_sCurrDrilling As String = String.Empty
    Private m_sCurrMilling As String = String.Empty
+   Private m_sCurrPocketing As String = String.Empty
    Private m_sCurrSawRoughing As String = String.Empty
    Private m_sCurrSawFinishing As String = String.Empty
    Private m_sCurrSawSideFinishing As String = String.Empty
@@ -359,6 +363,12 @@ Public Class CurrentMachine
       End Get
    End Property
 
+   Friend ReadOnly Property bMillNoTip As Boolean
+      Get
+         Return m_bMillNoTip
+      End Get
+   End Property
+
    Friend ReadOnly Property ShowToolChanger As Integer
       Get
          Return m_nShowToolChanger
@@ -401,6 +411,12 @@ Public Class CurrentMachine
       End Get
    End Property
 
+   Friend ReadOnly Property bPocketing As Boolean
+      Get
+         Return m_bPocketing
+      End Get
+   End Property
+
    Friend ReadOnly Property bSawRoughing As Boolean
       Get
          Return m_bSawRoughing
@@ -447,6 +463,17 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend Property sCurrMillNoTip As String
+      Get
+         Return m_sCurrMillNoTip
+      End Get
+      Set(value As String)
+         If WritePrivateProfileString(S_MACH_MACH, K_CURRMILLNOTIP, value, sMachIniFile) Then
+            m_sCurrMillNoTip = value
+         End If
+      End Set
+   End Property
+
    Friend Property sCurrDripSaw As String
       Get
          Return m_sCurrDripSaw
@@ -502,6 +529,17 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend Property sCurrPocketing As String
+      Get
+         Return m_sCurrPocketing
+      End Get
+      Set(value As String)
+         If WritePrivateProfileString(S_MACH_MACH, K_CURRPOCKETING, value, sMachIniFile) Then
+            m_sCurrPocketing = value
+         End If
+      End Set
+   End Property
+
    Friend Property sCurrSawRoughing As String
       Get
          Return m_sCurrSawRoughing
@@ -910,6 +948,9 @@ Public Class CurrentMachine
       ' fresa
       m_bMill = (GetPrivateProfileInt(S_TOOLS, K_MILL, 0, sMachIniFile) > 0) And
                 m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.ENABLE_MILL)
+      ' mola
+      m_bMillNoTip = (GetPrivateProfileInt(S_TOOLS, K_MILLNOTIP, 0, sMachIniFile) > 0) And
+                m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.ENABLE_MILL)
       ' Leggo abilitazione visualizzazione TcPos, Head/exit e Note utente
       m_nShowToolChanger = GetPrivateProfileInt(S_TOOLS, K_SHOWTOOLCHANGER, 0, sMachIniFile)
       m_bShowHeadExit = (GetPrivateProfileInt(S_TOOLS, K_SHOWHEADEXIT, 0, sMachIniFile) > 0)
@@ -928,6 +969,8 @@ Public Class CurrentMachine
       ' fresa
       m_bMilling = (GetPrivateProfileInt(S_MACHININGS, K_MILLING, 0, sMachIniFile) > 0) And
                    m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.ENABLE_MILL)
+      ' mola
+      m_bPocketing = (GetPrivateProfileInt(S_MACHININGS, K_POCKETING, 0, sMachIniFile) > 0)
       ' sgrossatura con lama
       m_bSawRoughing = (GetPrivateProfileInt(S_MACHININGS, K_SAWROUGHING, 0, sMachIniFile) > 0)
       ' finitura con lama
@@ -940,6 +983,8 @@ Public Class CurrentMachine
       GetPrivateProfileString(S_MACH_MACH, K_CURRDRILL, Nothing, m_sCurrDrill, sMachIniFile)
       ' fresa
       GetPrivateProfileString(S_MACH_MACH, K_CURRMILL, Nothing, m_sCurrMill, sMachIniFile)
+      ' mola
+      GetPrivateProfileString(S_MACH_MACH, K_CURRMILLNOTIP, Nothing, m_sCurrMillNoTip, sMachIniFile)
       ' lama da sotto
       GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPSAW, Nothing, m_sCurrDripSaw, sMachIniFile)
       ' foretto da sotto
@@ -952,6 +997,8 @@ Public Class CurrentMachine
       GetPrivateProfileString(S_MACH_MACH, K_CURRDRILLING, Nothing, m_sCurrDrilling, sMachIniFile)
       ' fresa
       GetPrivateProfileString(S_MACH_MACH, K_CURRMILLING, Nothing, m_sCurrMilling, sMachIniFile)
+      ' svuotatura
+      GetPrivateProfileString(S_MACH_MACH, K_CURRPOCKETING, Nothing, m_sCurrPocketing, sMachIniFile)
       ' sgrossatura con lama
       GetPrivateProfileString(S_MACH_MACH, K_CURRSAWROUGHING, Nothing, m_sCurrSawRoughing, sMachIniFile)
       ' finitura con lama