Imports EgtUILib

Public Class CompoCsvDataWindowVM

#Region "FIELDS & PROPERTIES"

   Private m_sOrder As String
   Public Property Order As String
      Get
         Return m_sOrder
      End Get
      Set(value As String)
         m_sOrder = value
      End Set
   End Property

   Private m_sList As String
   Public Property List As String
      Get
         Return m_sList
      End Get
      Set(value As String)
         m_sList = value
      End Set
   End Property

   Private m_sName As String
   Public Property Name As String
      Get
         Return m_sName
      End Get
      Set(value As String)
         m_sName = value
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property TitleMsg As String
      Get
         Return EgtMsg( 90398)          'Dati Csv
      End Get
   End Property

   Public ReadOnly Property OrderMsg As String
      Get
         Return EgtMsg( 90467)         'Ordine
      End Get
   End Property

   Public ReadOnly Property ListMsg As String
      Get
         Return EgtMsg( 90468)         'Distinta
      End Get
   End Property

   Public ReadOnly Property NameMsg As String
      Get
         Return EgtMsg( 90469)         'Nome
      End Get
   End Property

   Public ReadOnly Property OkMsg As String
      Get
         Return EgtMsg(MSG_GENERIC + 1)
      End Get
   End Property

   Public ReadOnly Property CancelMsg As String
      Get
         Return EgtMsg(MSG_GENERIC + 2)
      End Get
   End Property

#End Region    ' Messages

#End Region    'FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()

   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Sub SetData(sOrder As String, sList As String, sName As String)
      Order = sOrder
      List = sList
      Name = sName
   End Sub

   Friend Sub GetData(ByRef sOrder As String, ByRef sList As String, ByRef sName As String)
      sOrder = Order
      sList = List
      sName = Name
   End Sub

#End Region

End Class