egtbeamwall/EgtBEAMWALL.Core/MachGroup Model/MyMachGroupM.vb

Imports System.Collections.ObjectModel
Imports System.IO
Imports System.Windows.Input
Imports System.Windows.Media
Imports EgtUILib
Imports EgtWPFLib5

Public MustInherit Class MyMachGroupM
   Inherits MachGroupM

   Protected m_nMachineType As MachineType
   Public ReadOnly Property nMachineType As MachineType
      Get
         Return m_nMachineType
      End Get
   End Property
   Public Sub SetMachineType(nMachineType As MachineType)
      m_nMachineType = nMachineType
   End Sub

   Protected m_dL As Double
   Public Property dL As Double
      Get
         Return m_dL
      End Get
      Set(value As Double)
         m_dL = value
      End Set
   End Property

   Protected m_dW As Double
   Public Property dW As Double
      Get
         Return m_dW
      End Get
      Set(value As Double)
         m_dW = value
      End Set
   End Property

   Protected m_dH As Double
   Public Property dH As Double
      Get
         Return m_dH
      End Get
      Set(value As Double)
         m_dH = value
      End Set
   End Property

   Protected m_dtStartTime As DateTime
   Public Property dtStartTime As DateTime
      Get
         Return m_dtStartTime
      End Get
      Set(value As DateTime)
         m_dtStartTime = value
      End Set
   End Property

   Protected m_dtEndTime As DateTime
   Public Property dtEndTime As DateTime
      Get
         Return m_dtEndTime
      End Get
      Set(value As DateTime)
         m_dtEndTime = value
      End Set
   End Property

   Protected m_dMatForPart As Double = 0
   Public ReadOnly Property dMatForPart As Double
      Get
         Return m_dMatForPart
      End Get
   End Property
   
   Protected m_nProdIndex As Integer = 0
   Public Property nProdIndex As Integer
      Get
         Return m_nProdIndex
      End Get
      Set
         m_nProdIndex = value
      End Set
   End Property

   Public Sub SetMatForPart(dMatForPart As Double)
      m_dMatForPart = dMatForPart
   End Sub

   Protected m_dTotMat As Double = 0
   Public ReadOnly Property dTotMat As Double
      Get
         Return m_dTotMat
      End Get
   End Property
   Public Sub SetTotMat(TotMat As Double)
      m_dTotMat = TotMat
   End Sub

   Protected m_sMATERIAL As String
   Public Property sMATERIAL As String
      Get
         Return m_sMATERIAL
      End Get
      Set(value As String)
         m_sMATERIAL = value
      End Set
   End Property

   ' lista dei pezzi che sono nel grezzo
   Protected m_PartMList As New List(Of PartM)
   Public Property PartMList As List(Of PartM)
      Get
         Return m_PartMList
      End Get
      Set(value As List(Of PartM))
         m_PartMList = value
      End Set
   End Property

   Protected m_nState As CalcStates = -1
   Public ReadOnly Property nState As CalcStates
      Get
         Return m_nState
      End Get
   End Property
   Public Sub SetState(nState As CalcStates)
      m_nState = nState
   End Sub

#Region "CONSTRUCTOR"

   'Sub New(nId As Integer, sName As String, sMachine As String)
   '   MyBase.New(nId, sName, sMachine)
   '   'aggiorno lista pezzi
   '   RefreshPartList()
   'End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Public Event PartAdded As EventHandler(Of PartAddedEventArgs)
   Public Event PartRemoved As EventHandler(Of PartAddedEventArgs)

   Public Sub AddPart(PartM As PartM)
      If IsNothing(PartM) Then Return
      If Not m_PartMList.Contains(PartM) Then
         m_PartMList.Add(PartM)
         RaiseEvent PartAdded(Me, New PartAddedEventArgs(PartM))
      End If
   End Sub

   Public Sub RemovePart(PartM As PartM)
      If IsNothing(PartM) Then Return
      If m_PartMList.Contains(PartM) AndAlso m_PartMList.Remove(PartM) Then
         RaiseEvent PartRemoved(Me, New PartAddedEventArgs(PartM))
      End If
   End Sub

   Public Sub RemoveAllParts()
      If IsNothing(m_PartMList) Then Return
      For PartIndex = m_PartMList.Count - 1 To 0 Step -1
         Dim PartM As PartM = m_PartMList(PartIndex)
         If m_PartMList.Remove(PartM) Then
            RaiseEvent PartRemoved(Me, New PartAddedEventArgs(PartM))
         End If
      Next
   End Sub

   Public Function GetParts() As List(Of PartM)
      Return New List(Of PartM)(m_PartMList)
   End Function

#End Region    ' METHODS

   Public MustOverride Sub RefreshPartList()

   Public MustOverride Sub RefreshGroupData()

   Public Overridable Sub DeleteMachGroup()
      ' elimino tutte le copie
      Dim nRawPartId As Integer = EgtGetFirstRawPart()
      Dim nBeamId As Integer = EgtGetFirstPartInRawPart(nRawPartId)
      While nRawPartId <> GDB_ID.NULL
         EgtRemovePartFromRawPart(nBeamId)
         EgtErase(nBeamId)
         nRawPartId = EgtGetNextRawPart(nRawPartId)
         nBeamId = EgtGetFirstPartInRawPart(nRawPartId)
      End While
      ' elimino MachGroup
      EgtRemoveMachGroup(Me.Id)
   End Sub

End Class