Imports System.Collections.ObjectModel
Imports EgtBEAMWALL.Core
Imports EgtUILib

Public Class PartInRawPartListVM

   Private m_PartInRawPartColumns As New ObservableCollection(Of String)
   Public Property PartInRawPartColumns As ObservableCollection(Of String)
      Get
         Return m_PartInRawPartColumns
      End Get
      Set(value As ObservableCollection(Of String))
         m_PartInRawPartColumns = value
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property PDN_Msg As String
      Get
         Return EgtMsg(61809)
      End Get
   End Property

   Public ReadOnly Property W_Msg As String
      Get
         Return EgtMsg(61605)
      End Get
   End Property

   Public ReadOnly Property H_Msg As String
      Get
         Return EgtMsg(61606)
      End Get
   End Property

   Public ReadOnly Property L_Msg As String
      Get
         Return EgtMsg(61604)
      End Get
   End Property

   Public ReadOnly Property NAM_Msg As String
      Get
         Return EgtMsg(61603)
      End Get
   End Property
   Public ReadOnly Property PosX_Msg As String
      Get
         Return EgtMsg(61811)
      End Get
   End Property
   Public ReadOnly Property PosY_Msg As String
      Get
         Return EgtMsg(61812)
      End Get
   End Property
   Public ReadOnly Property Offset_Msg As String
      Get
         Return EgtMsg(61755)
      End Get
   End Property

   Public ReadOnly Property MAT_Msg As String
      Get
         Return EgtMsg(61607)
      End Get
   End Property

#End Region    ' Messages

#Region "CONSTRUCTOR"

   Sub New()
      ' aggiungo riferimento a map
      Map.SetRefPartInRawPartListVM(Me)
      ' aggiungo colonne
      PartInRawPartColumns.Add(COL_PDN)
      PartInRawPartColumns.Add(COL_CALC)
      PartInRawPartColumns.Add(COL_NAM)
      PartInRawPartColumns.Add(COL_W)
      PartInRawPartColumns.Add(COL_H)
      PartInRawPartColumns.Add(COL_L)
      PartInRawPartColumns.Add(COL_ROT)
      PartInRawPartColumns.Add(COL_FLIP)
      PartInRawPartColumns.Add(COL_POSX)
      PartInRawPartColumns.Add(COL_POSY)
      PartInRawPartColumns.Add(COL_OFFSET)
      PartInRawPartColumns.Add(COL_MATERIAL)
   End Sub

#End Region    ' CONSTRUCTOR

   Friend Sub UpdateColumns(nMachType As MachineType)
      If nMachType = MachineType.BEAM Then
         If Not IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_ROT)) Then m_PartInRawPartColumns.Remove(COL_ROT)
         If Not IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_FLIP)) Then m_PartInRawPartColumns.Remove(COL_FLIP)
         If Not IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_POSX)) Then m_PartInRawPartColumns.Remove(COL_POSX)
         If Not IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_POSY)) Then m_PartInRawPartColumns.Remove(COL_POSY)
         If IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_OFFSET)) Then m_PartInRawPartColumns.Insert(6, COL_OFFSET)
      ElseIf nMachType = MachineType.WALL Then
         If Not IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_OFFSET)) Then m_PartInRawPartColumns.Remove(COL_OFFSET)
         If IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_ROT)) Then m_PartInRawPartColumns.Insert(6, COL_ROT)
         If IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_FLIP)) Then m_PartInRawPartColumns.Insert(7, COL_FLIP)
         If IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_POSX)) Then m_PartInRawPartColumns.Insert(8, COL_POSX)
         If IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_POSY)) Then m_PartInRawPartColumns.Insert(9, COL_POSY)
      End If
   End Sub

End Class