OmagCUT 1.8d4 :

- aggiunta gestione gocciolatoi su componenti semplici.

CurrentMachine.vb

@@ -59,9 +59,10 @@ Public Class CurrentMachine
    Private m_bSawFinishing As Boolean = False
 
    ' Variabili che contengono il nome degli utensili disponibili per tipo
-   Private m_sCurrSaw(0) As String
-   Private m_sCurrDrill(0) As String
-   Private m_sCurrMill(0) As String
+   Private m_sCurrSaw As String = String.Empty
+   Private m_sCurrDrill As String = String.Empty
+   Private m_sCurrMill As String = String.Empty
+   Private m_sCurrDripSaw As String = String.Empty
 
    ' Variabili che contengono le lavorazioni correntemente attive (utilizzate per definire lavorazioni nel programma)
    Private m_sCurrSawing As String = String.Empty
@@ -70,6 +71,7 @@ Public Class CurrentMachine
    Private m_sCurrSawRoughing As String = String.Empty
    Private m_sCurrSawFinishing As String = String.Empty
    Private m_sCurrSawSideFinishing As String = String.Empty
+   Private m_sCurrDripSawing As String = String.Empty
 
    ' Spessore sottopezzo
    Private m_dAdditionalTable As Double = 0
@@ -286,11 +288,11 @@ Public Class CurrentMachine
 
    Friend Property sCurrSaw As String
       Get
-         Return m_sCurrSaw(0)
+         Return m_sCurrSaw
       End Get
       Set(value As String)
          If WritePrivateProfileString(S_MACH_MACH, K_CURRSAW, value, sMachIniFile) Then
-            m_sCurrSaw(0) = value
+            m_sCurrSaw = value
             m_MainWindow.m_CurrentProjectPageUC.ToolTxBx.Text = value
          End If
       End Set
@@ -298,22 +300,33 @@ Public Class CurrentMachine
 
    Friend Property sCurrDrill As String
       Get
-         Return m_sCurrDrill(0)
+         Return m_sCurrDrill
       End Get
       Set(value As String)
          If WritePrivateProfileString(S_MACH_MACH, K_CURRDRILL, value, sMachIniFile) Then
-            m_sCurrDrill(0) = value
+            m_sCurrDrill = value
          End If
       End Set
    End Property
 
    Friend Property sCurrMill As String
       Get
-         Return m_sCurrMill(0)
+         Return m_sCurrMill
       End Get
       Set(value As String)
          If WritePrivateProfileString(S_MACH_MACH, K_CURRMILL, value, sMachIniFile) Then
-            m_sCurrMill(0) = value
+            m_sCurrMill = value
+         End If
+      End Set
+   End Property
+
+   Friend Property sCurrDripSaw As String
+      Get
+         Return m_sCurrDripSaw
+      End Get
+      Set(value As String)
+         If WritePrivateProfileString(S_MACH_MACH, K_CURRDRIPSAW, value, sMachIniFile) Then
+            m_sCurrDripSaw = value
          End If
       End Set
    End Property
@@ -384,6 +397,17 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend Property sCurrDripSawing As String
+      Get
+         Return m_sCurrDripSawing
+      End Get
+      Set(value As String)
+         If WritePrivateProfileString(S_MACH_MACH, K_CURRDRIPSAWING, value, sMachIniFile) Then
+            m_sCurrDripSawing = value
+         End If
+      End Set
+   End Property
+
    Friend Property dAdditionalTable As Double
       Get
          Return m_dAdditionalTable
@@ -627,11 +651,13 @@ Public Class CurrentMachine
 
       ' Leggo utensili correnti
       ' lama
-      GetPrivateProfileString(S_MACH_MACH, K_CURRSAW, Nothing, m_sCurrSaw(0), sMachIniFile)
+      GetPrivateProfileString(S_MACH_MACH, K_CURRSAW, Nothing, m_sCurrSaw, sMachIniFile)
       ' foretto
-      GetPrivateProfileString(S_MACH_MACH, K_CURRDRILL, Nothing, m_sCurrDrill(0), sMachIniFile)
+      GetPrivateProfileString(S_MACH_MACH, K_CURRDRILL, Nothing, m_sCurrDrill, sMachIniFile)
       ' fresa
-      GetPrivateProfileString(S_MACH_MACH, K_CURRMILL, Nothing, m_sCurrMill(0), sMachIniFile)
+      GetPrivateProfileString(S_MACH_MACH, K_CURRMILL, Nothing, m_sCurrMill, sMachIniFile)
+      ' lama da sotto
+      GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPSAW, Nothing, m_sCurrDripSaw, sMachIniFile)
 
       ' Leggo lavorazioni correnti
       ' lama
@@ -646,6 +672,8 @@ Public Class CurrentMachine
       GetPrivateProfileString(S_MACH_MACH, K_CURRSAWFINISHING, Nothing, m_sCurrSawFinishing, sMachIniFile)
       ' spatolatura con lama
       GetPrivateProfileString(S_MACH_MACH, K_CURRSAWSIDEFINISHING, Nothing, m_sCurrSawSideFinishing, sMachIniFile)
+      ' lama da sotto
+      GetPrivateProfileString(S_MACH_MACH, K_CURRDRIPSAWING, Nothing, m_sCurrDripSawing, sMachIniFile)
 
       ' Leggo numero di portautensili
       m_ToolChangerNbr = GetPrivateProfileInt(S_TOOLCHANGER, K_NUMBER, 0, sMachIniFile)