Emmanuele Sassi
113 lines
2.8 KiB
VB.net
113 lines
2.8 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
Imports EgtBEAMWALL.Core
|
|
Imports System.Windows.Threading
|
|
Imports EgtBEAMWALL.DataLayer.DatabaseModels
|
|
Imports EgtBEAMWALL.Core.MachLog
|
|
|
|
Public Class MachineLogPageVM
|
|
Inherits VMBase
|
|
|
|
Private m_MachineLogList_View As CollectionView
|
|
Private m_MachineLogList As List(Of MachLog)
|
|
Public Property MachineLogList As List(Of MachLog)
|
|
Get
|
|
Return m_MachineLogList
|
|
End Get
|
|
Set(value As List(Of MachLog))
|
|
m_MachineLogList = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MachLogTypeList As New List(Of MachLogType)({New MachLogType(MachLogTypes.PART_STATUS, "PartStatus", True),
|
|
New MachLogType(MachLogTypes.MACHGROUP_STATUS, "MachGroupStatus", True),
|
|
New MachLogType(MachLogTypes.MACHINE_MODE, "MachineMode", True),
|
|
New MachLogType(MachLogTypes.ALARM, "Alarm", True)})
|
|
Public Property MachLogTypeList As List(Of MachLogType)
|
|
Get
|
|
Return m_MachLogTypeList
|
|
End Get
|
|
Set(value As List(Of MachLogType))
|
|
m_MachLogTypeList = value
|
|
End Set
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
'Private m_cmdSendMDI As ICommand
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Command_Msg As String
|
|
Get
|
|
Return "Command"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Description_Msg As String
|
|
Get
|
|
Return "Description"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Sub New()
|
|
' imposto riferimento in Map
|
|
Map.SetRefMachineLogPageVM(Me)
|
|
' carico le colonne della datagrid
|
|
'GetPrivateProfileColumns(S_MDICOMMANDS, MDICommandColumns)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub LoadMachineLogList()
|
|
m_MachineLogList = DbControllers.m_LogMachineController.GetcoreDesc(DateTime.Now - TimeSpan.FromDays(300), DateTime.Now)
|
|
NotifyPropertyChanged(NameOf(MachineLogList))
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|
|
|
|
Public Class MachLogType
|
|
|
|
Private m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sName As String
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_bOn As Boolean = False
|
|
Public Property bOn As Boolean
|
|
Get
|
|
Return m_bOn
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bOn = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(nId As Integer, sName As String, bOn As Boolean)
|
|
m_nId = nId
|
|
m_sName = sName
|
|
m_bOn = bOn
|
|
End Sub
|
|
|
|
End Class |