Imports EgtWPFLib5

Public Class ClientPageVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
         NotifyPropertyChanged("Name")
      End Set
   End Property

   Private m_ResellerList As List(Of Reseller)
   Public ReadOnly Property ResellerList As List(Of Reseller)
      Get
         Return m_ResellerList
      End Get
   End Property

   Private m_SelReseller As Reseller
   Public Property SelReseller As Reseller
      Get
         Return m_SelReseller
      End Get
      Set(value As Reseller)
         m_SelReseller = value
         NotifyPropertyChanged("SelReseller")
      End Set
   End Property

   Private m_Email As String
   Public Property Email As String
      Get
         Return m_Email
      End Get
      Set(value As String)
         m_Email = value
         NotifyPropertyChanged("Email")
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property NameMsg As String
      Get
         Return "Name"
      End Get
   End Property

   Public ReadOnly Property ResellerNameMsg As String
      Get
         Return "Reseller name"
      End Get
   End Property

   Public ReadOnly Property EmailMsg As String
      Get
         Return "E-mail address"
      End Get
   End Property

#End Region    ' Messages

#End Region    ' FIELDS & PROPERTIES

#Region "METHODS"

   Friend Sub InitClientPage()
      ' Svuoto campi
      m_Name = String.Empty
      NotifyPropertyChanged("Name")

      m_Email = String.Empty
      NotifyPropertyChanged("Email")

      ' Carico lista Reseller
      Dim Query As String = "SELECT * FROM " & DB_RESELLER
        m_ResellerList = ManageDb.ExecuteResellerQuery(Query)
        NotifyPropertyChanged("ResellerList")
    End Sub

#End Region    ' METHODS

End Class