RenzoL
109 lines
3.4 KiB
VB.net
109 lines
3.4 KiB
VB.net
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_POSY)) Then m_PartInRawPartColumns.Remove(COL_POSY)
|
|
If IsNothing(m_PartInRawPartColumns.FirstOrDefault(Function(x) x = COL_OFFSET)) Then m_PartInRawPartColumns.Insert(8, 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_POSY)) Then m_PartInRawPartColumns.Insert(9, COL_POSY)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|