Demetrio Cassarino
85 lines
2.5 KiB
VB.net
85 lines
2.5 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtBEAMWALL.Core
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Imports System.IO
|
|
|
|
Public Class FeatureInPartInRawPartListVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_colFeatureInPartInRawPart_Do As EgwWPFBaseLib.ColumnLayout
|
|
Public ReadOnly Property colFeatureInPartInRawPart_Do As EgwWPFBaseLib.ColumnLayout
|
|
Get
|
|
Return m_colFeatureInPartInRawPart_Do
|
|
End Get
|
|
End Property
|
|
|
|
Private m_colFeatureInPartInRawPart_Priority As EgwWPFBaseLib.ColumnLayout
|
|
Public ReadOnly Property colFeatureInPartInRawPart_Priority As EgwWPFBaseLib.ColumnLayout
|
|
Get
|
|
Return m_colFeatureInPartInRawPart_Priority
|
|
End Get
|
|
End Property
|
|
|
|
Private m_FeatureInPartInRawPartColumns As New ObservableCollection(Of EgwWPFBaseLib.ColumnLayout)
|
|
Public Property FeatureInPartInRawPartColumns As ObservableCollection(Of EgwWPFBaseLib.ColumnLayout)
|
|
Get
|
|
Return m_FeatureInPartInRawPartColumns
|
|
End Get
|
|
Set(value As ObservableCollection(Of EgwWPFBaseLib.ColumnLayout))
|
|
m_FeatureInPartInRawPartColumns = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Description_Msg As String
|
|
Get
|
|
Return EgtMsg(61603)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DO_Msg As String
|
|
Get
|
|
Return EgtMsg(61610)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Priority_Msg As String
|
|
Get
|
|
Return EgtMsg(61895)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' creo riferimento in Map
|
|
Map.SetRefFeatureInPartInRawPartListVM(Me)
|
|
|
|
' carico le colonne della datagrid
|
|
EgwWPFBaseLib.EgwDataGrid.ReadColumnLayout(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, S_FEATUREINPARTINRAWPARTLIST, FeatureInPartInRawPartColumns)
|
|
m_colFeatureInPartInRawPart_Do = FeatureInPartInRawPartColumns.FirstOrDefault(Function(x) x.Key = COL_DO)
|
|
m_colFeatureInPartInRawPart_Priority = FeatureInPartInRawPartColumns.FirstOrDefault(Function(x) x.Key = COL_PRIORITY)
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub UpdateColumns(nProjectType As BWType)
|
|
If Not IsNothing(m_colFeatureInPartInRawPart_Priority) Then
|
|
m_colFeatureInPartInRawPart_Priority.IsVisible = (nProjectType = BWType.WALL AndAlso CurrentMachine.bIsEnabledPriority)
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|