OmagCUT :

- prime modifiche per forature da sotto
- migliorato controllo angolo ventose.

CurrentMachine.vb

@@ -73,6 +73,7 @@ Public Class CurrentMachine
    Private m_sCurrDrill As String = String.Empty
    Private m_sCurrMill As String = String.Empty
    Private m_sCurrDripSaw As String = String.Empty
+   Private m_sCurrDripDrill As String = String.Empty
 
    ' Variabili che contengono le lavorazioni correntemente attive (utilizzate per definire lavorazioni nel programma)
    Private m_sCurrSawing As String = String.Empty
@@ -83,6 +84,7 @@ Public Class CurrentMachine
    Private m_sCurrSawSideFinishing As String = String.Empty
    Private m_sCurrSawSingle As String = String.Empty
    Private m_sCurrDripSawing As String = String.Empty
+   Private m_sCurrDripDrilling As String = String.Empty
 
    ' Spessore sottopezzo
    Private m_dAdditionalTable As Double = 0
@@ -394,6 +396,17 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend Property sCurrDripDrill As String
+      Get
+         Return m_sCurrDripDrill
+      End Get
+      Set(value As String)
+         If WritePrivateProfileString(S_MACH_MACH, K_CURRDRIPDRILL, value, sMachIniFile) Then
+            m_sCurrDripDrill = value
+         End If
+      End Set
+   End Property
+
    Friend Property sCurrSawing As String
       Get
          Return m_sCurrSawing
@@ -482,6 +495,17 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend Property sCurrDripDrilling As String
+      Get
+         Return m_sCurrDripDrilling
+      End Get
+      Set(value As String)
+         If WritePrivateProfileString(S_MACH_MACH, K_CURRDRIPDRILLING, value, sMachIniFile) Then
+            m_sCurrDripDrilling = value
+         End If
+      End Set
+   End Property
+
    Friend Property dAdditionalTable As Double
       Get
          Select Case GetCurrentTable()
@@ -807,6 +831,8 @@ Public Class CurrentMachine
       GetPrivateProfileString(S_MACH_MACH, K_CURRMILL, Nothing, m_sCurrMill, sMachIniFile)
       ' lama da sotto
       GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPSAW, Nothing, m_sCurrDripSaw, sMachIniFile)
+      ' foretto da sotto
+      GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPDRILL, Nothing, m_sCurrDripDrill, sMachIniFile)
 
       ' Leggo lavorazioni correnti
       ' lama
@@ -825,6 +851,8 @@ Public Class CurrentMachine
       GetPrivateProfileString(S_MACH_MACH, K_CURRSAWSINGLE, Nothing, m_sCurrSawSingle, sMachIniFile)
       ' lama da sotto
       GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPSAWING, Nothing, m_sCurrDripSawing, sMachIniFile)
+      ' foretto da sotto
+      GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPDRILLING, Nothing, m_sCurrDripDrilling, sMachIniFile)
 
       ' Leggo numero di portautensili
       m_ToolChangerNbr = GetPrivateProfileInt(S_TOOLCHANGER, K_NUMBER, 0, sMachIniFile)