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

Public Class RawPartListVM

#Region "FIELDS & PROPERTIES"

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

#Region "Messages"

   Public ReadOnly Property ID_Msg As String
      Get
         Return EgtMsg(61815)
      End Get
   End Property

   Public ReadOnly Property StartOffset_Msg As String
      Get
         Return EgtMsg(61816)
      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 Material_Msg As String
      Get
         Return EgtMsg(61607)
      End Get
   End Property

   Public ReadOnly Property Used_Msg As String
      Get
         Return EgtMsg(61817)
      End Get
   End Property

   Public ReadOnly Property Waste_Msg As String
      Get
         Return EgtMsg(61818)
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Aggiungo riferimento a Map
      Map.SetRefRawPartListVM(Me)
      ' aggiungo colonne
      RawPartColumns.Add(COL_NAME)
      RawPartColumns.Add(COL_CALC)
      RawPartColumns.Add(COL_STARTCUT)
      RawPartColumns.Add(COL_W)
      RawPartColumns.Add(COL_H)
      RawPartColumns.Add(COL_L)
      RawPartColumns.Add(COL_MATERIAL)
      RawPartColumns.Add(COL_USAGE)
      RawPartColumns.Add(COL_WASTE)
   End Sub

#End Region    ' CONSTRUCTOR

   Friend Sub UpdateColumns(nMachType As MachineType)
      If nMachType = MachineType.BEAM Then
         If IsNothing(m_RawPartColumns.FirstOrDefault(Function(x) x = COL_STARTCUT)) Then m_RawPartColumns.Insert(2, COL_STARTCUT)
      ElseIf nMachType = MachineType.WALL Then
         If Not IsNothing(m_RawPartColumns.FirstOrDefault(Function(x) x = COL_STARTCUT)) Then m_RawPartColumns.Remove(COL_STARTCUT)
      End If
   End Sub

End Class