Imports EgtWPFLib5

Public Class VersionPageVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_VersionId As Integer
   Public Property VersionId As Integer
      Get
         Return m_VersionId
      End Get
      Set(value As Integer)
         m_VersionId = value
      End Set
   End Property

   Private m_VersionNumber As Integer
   Public Property VersionNumber As String
      Get
         Return m_VersionNumber.ToString()
      End Get
      Set(value As String)
         Dim nVal As integer
         If Integer.TryParse( value, nVal) Then m_VersionNumber = nVal
         NotifyPropertyChanged("VersionNumber")
      End Set
   End Property

   Private m_ProductList As List(Of Product)
   Public ReadOnly Property ProductList As List(Of Product)
      Get
         Return m_ProductList
      End Get
   End Property

   Private m_SelProduct As Product
   Public Property SelProduct As Product
      Get
         Return m_SelProduct
      End Get
      Set(value As Product)
         m_SelProduct = value
         NotifyPropertyChanged("SelProduct")
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property VersionNumberMsg As String
      Get
         Return "Version number"
      End Get
   End Property

   Public ReadOnly Property ProductNameMsg As String
      Get
         Return "Product name"
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "METHODS"

   Friend Sub InitVersionPage()
      ' Svuoto campi          
      m_VersionNumber = Nothing ' 1
      NotifyPropertyChanged("VersionNumber")

      ' Carico lista Product
      Dim Query As String = "SELECT * FROM " & DB_PRODUCT
      m_ProductList = ManageDb.ExecuteProductQuery(Query)
      NotifyPropertyChanged("ProductList")

   End Sub

#End Region    ' METHODS

End Class