egtbeamwall/EgtBEAMWALL.ViewerOptimizer/Statistics/StatisticsVM.vb

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

Public Class StatisticsVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_StatisticsColumns As New ObservableCollection(Of EgtDataGridColumn)
   Public Property StatisticsColumns As ObservableCollection(Of EgtDataGridColumn)
      Get
         Return m_StatisticsColumns
      End Get
      Set(value As ObservableCollection(Of EgtDataGridColumn))
         m_StatisticsColumns = value
      End Set
   End Property

   Private m_OptimizerStatisticsColumns As New ObservableCollection(Of EgtDataGridColumn)
   Public Property OptimizerStatisticsColumns As ObservableCollection(Of EgtDataGridColumn)
      Get
         Return m_OptimizerStatisticsColumns
      End Get
      Set(value As ObservableCollection(Of EgtDataGridColumn))
         m_OptimizerStatisticsColumns = 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 ID_Msg As String
      Get
         Return EgtMsg(61809)
      End Get
   End Property

   Public ReadOnly Property DO_Msg As String
      Get
         Return EgtMsg(61810)
      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 MAT_Msg As String
      Get
         Return EgtMsg(61607)
      End Get
   End Property

   Public ReadOnly Property CNT_Msg As String
      Get
         Return EgtMsg(61608)
      End Get
   End Property

   Public ReadOnly Property ADDED_Msg As String
      Get
         Return EgtMsg(61813)
      End Get
   End Property
   Public ReadOnly Property INPROD_Msg As String
      Get
         Return EgtMsg(61609)
      End Get
   End Property
   Public ReadOnly Property DONE_Msg As String
      Get
         Return EgtMsg(61814)
      End Get
   End Property

   Public ReadOnly Property GRP_Msg As String
      Get
         Return EgtMsg(61612)
      End Get
   End Property

   Public ReadOnly Property UNIT_VOLUME_Msg As String
      Get
         Return EgtMsg(61712)
      End Get
   End Property

   Public ReadOnly Property TOT_VOLUME_Msg As String
      Get
         Return EgtMsg(61713)
      End Get
   End Property

   Public ReadOnly Property UNIT_TIME_Msg As String
      Get
         Return EgtMsg(61714)
      End Get
   End Property

   Public ReadOnly Property TOT_TIME_Msg As String
      Get
         Return EgtMsg(61715)
      End Get
   End Property

   Public ReadOnly Property BTLTotParts_Msg As String
      Get
         Return EgtMsg(61716) & ": "
      End Get
   End Property

   Public ReadOnly Property BTLTotVolume_Msg As String
      Get
         Return EgtMsg(61717) & ": "
      End Get
   End Property

   Public ReadOnly Property BTLTotTime_Msg As String
      Get
         Return EgtMsg(61718) & ": "
      End Get
   End Property

   Public ReadOnly Property TotMachGroups_Msg As String
      Get
         Return "Numero totale grezzi" & ": "
      End Get
   End Property

   Public ReadOnly Property TotCNTParts_Msg As String
      Get
         Return "Numero totale pezzi da BTL" & ": "
      End Get
   End Property

   Public ReadOnly Property TotADDEDParts_Msg As String
      Get
         Return "Numero totale pezzi aggiunti" & ": "
      End Get
   End Property

   Public ReadOnly Property TotINPRODParts_Msg As String
      Get
         Return "Numero totale pezzi nelle barre" & ": "
      End Get
   End Property

   Public ReadOnly Property TotDONEParts_Msg As String
      Get
         Return "Numero totale grezzi" & ": "
      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

   Public ReadOnly Property CopyToClipboard_Msg As String
      Get
         Return EgtMsg(61841)
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()
      ' Aggiungo riferimento a Map
      Map.SetRefStatisticsVM(Me)
      ' carico le colonne della datagrid
      GetPrivateProfileColumns(S_STATISTICS, StatisticsColumns)
      GetPrivateProfileColumns(S_OPTIMIZERSTATISTICS, OptimizerStatisticsColumns)
   End Sub

#End Region    ' CONSTRUCTOR

   ' Definizione comandi
   Private m_cmdPrint As ICommand

#Region "COMMANDS"

#Region "Invert"

   Public ReadOnly Property Print_Command As ICommand
      Get
         If m_cmdPrint Is Nothing Then
            m_cmdPrint = New Command(AddressOf Print)
         End If
         Return m_cmdPrint
      End Get
   End Property

   Public Sub Print()

   End Sub

#End Region ' Invert

#End Region    ' COMMANDS

End Class