EgtCAM5 :

- aggiunti parametri di lavorazione per oscillazione da finire di configurare.

MachiningDbWindow/MachiningTreeView.vb

@@ -194,6 +194,27 @@ Public Class MachiningTreeViewItem
       End Set
    End Property
 
+   Private m_IsModifiedOscillEnable As Boolean = False
+   Private m_OscillEnable As Boolean
+   ''' <summary>
+   ''' Property that read and write to the Machining's database the Invert
+   ''' </summary>
+   Public Property OscillEnable As Boolean
+      Get
+         Return m_OscillEnable
+      End Get
+      Set(value As Boolean)
+         If value <> m_OscillEnable Then
+            m_OscillEnable = value
+            Dim DbOscillEnable As Boolean = False
+            EgtMdbGetCurrMachiningParam(MCH_MP.TOOLINVERT, DbOscillEnable)
+            m_IsModifiedOscillEnable = If(value <> DbOscillEnable, True, False)
+            m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
+            NotifyPropertyChanged("OscillEnable")
+         End If
+      End Set
+   End Property
+
    Private m_Type As MCH_MY
    ''' <summary>
    ''' Property that read from the Machining's database the Type
@@ -1546,6 +1567,75 @@ Public Class MachiningTreeViewItem
       End Set
    End Property
 
+   Private m_IsModifiedOscillHeight As Boolean = False
+   Private m_OscillHeight As String
+   ''' <summary>
+   ''' Property that read and write to the Machining's database the Vert Feed
+   ''' </summary>
+   Public Property OscillHeight As String
+      Get
+         Return m_OscillHeight
+      End Get
+      Set(value As String)
+         If value <> m_OscillHeight Then
+            m_OscillHeight = value
+            Dim DbOscillHeight As Double = 0
+            Dim dValue As Double = 0
+            EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, DbOscillHeight)
+            StringToLen(value, dValue)
+            m_IsModifiedVertFeed = Math.Abs(dValue - DbOscillHeight) > 10 * EPS_SMALL
+            m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
+            NotifyPropertyChanged("OscillHeight")
+         End If
+      End Set
+   End Property
+
+   Private m_IsModifiedOscillRampL As Boolean = False
+   Private m_OscillRampL As String
+   ''' <summary>
+   ''' Property that read and write to the Machining's database the Vert Feed
+   ''' </summary>
+   Public Property OscillRampL As String
+      Get
+         Return m_OscillRampL
+      End Get
+      Set(value As String)
+         If value <> m_OscillRampL Then
+            m_OscillRampL = value
+            Dim DbOscillRampL As Double = 0
+            Dim dValue As Double = 0
+            EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, DbOscillRampL)
+            StringToLen(value, dValue)
+            m_IsModifiedVertFeed = Math.Abs(dValue - DbOscillRampL) > 10 * EPS_SMALL
+            m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
+            NotifyPropertyChanged("OscillRampL")
+         End If
+      End Set
+   End Property
+
+   Private m_IsModifiedOscillHorizL As Boolean = False
+   Private m_OscillHorizL As String
+   ''' <summary>
+   ''' Property that read and write to the Machining's database the Vert Feed
+   ''' </summary>
+   Public Property OscillHorizL As String
+      Get
+         Return m_OscillHorizL
+      End Get
+      Set(value As String)
+         If value <> m_OscillHorizL Then
+            m_OscillHorizL = value
+            Dim DbOscillHorizL As Double = 0
+            Dim dValue As Double = 0
+            EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, DbOscillHorizL)
+            StringToLen(value, dValue)
+            m_IsModifiedVertFeed = Math.Abs(dValue - DbOscillHorizL) > 10 * EPS_SMALL
+            m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
+            NotifyPropertyChanged("OscillHorizL")
+         End If
+      End Set
+   End Property
+
    ' Variabile che indica se c'è un errore nel nome della lavorazione (ad esempio nome già utilizzato)
    Dim nErrorMachiningName As Integer = 0
    Friend m_IsModifiedName As Boolean = False
@@ -2106,6 +2196,7 @@ Public Class MachiningTreeViewItem
          Return m_IsModifiedInvert OrElse
                 m_IsModifiedLeaveTab OrElse
                 m_IsModifiedToolInvert OrElse
+                m_IsModifiedOscillEnable OrElse
                 m_IsModifiedSelectedWorkSide OrElse
                 m_IsModifiedSelectedHeadSide OrElse
                 m_IsModifiedSelectedLeadInType OrElse
@@ -2150,6 +2241,10 @@ Public Class MachiningTreeViewItem
                 m_IsModifiedStepIntArc OrElse
                 m_IsModifiedSideStep OrElse
                 m_IsModifiedVertFeed OrElse
+                m_IsModifiedOscillHeight OrElse
+                m_IsModifiedOscillRampL OrElse
+                m_IsModifiedOscillHorizL OrElse
+                m_IsModifiedOscillHeight OrElse
                 m_IsModifiedName OrElse
                 m_IsModifiedSelectedTool OrElse
                 m_IsModifiedDepthStr OrElse
@@ -2164,6 +2259,7 @@ Public Class MachiningTreeViewItem
       m_IsModifiedInvert = False
       m_IsModifiedLeaveTab = False
       m_IsModifiedToolInvert = False
+      m_IsModifiedOscillEnable = False
       m_IsModifiedSelectedWorkSide = False
       m_IsModifiedSelectedHeadSide = False
       m_IsModifiedSelectedLeadInType = False
@@ -2208,6 +2304,9 @@ Public Class MachiningTreeViewItem
       m_IsModifiedStepIntArc = False
       m_IsModifiedSideStep = False
       m_IsModifiedVertFeed = False
+      m_IsModifiedOscillHeight = False
+      m_IsModifiedOscillRampL = False
+      m_IsModifiedOscillHorizL = False
       m_IsModifiedName = False
       m_IsModifiedSelectedTool = False
       m_IsModifiedDepthStr = False