Imports EgtUILib

Public Class SlabIdWindowVM

#Region "FIELDS & PROPERTIES"

   Private m_sBlockName As String
   Public Property BlockName As String
      Get
         Return m_sBlockName
      End Get
      Set(value As String)
         m_sBlockName = value
      End Set
   End Property

   Private m_sSlabNbr As String
   Public Property SlabNbr As String
      Get
         Return m_sSlabNbr
      End Get
      Set(value As String)
         m_sSlabNbr = value
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property TitleMsg As String
      Get
         Return EgtMsg( 90884)          'Dati lastra
      End Get
   End Property

   Public ReadOnly Property BlockNameMsg As String
      Get
         Return EgtMsg( 90882)         'Blocco
      End Get
   End Property

   Public ReadOnly Property SlabNbrMsg As String
      Get
         Return EgtMsg( 90883)         'Numero
      End Get
   End Property

   Public ReadOnly Property OkMsg As String
      Get
         Return EgtMsg( 91651)        'Ok
      End Get
   End Property

   Public ReadOnly Property CancelMsg As String
      Get
         Return EgtMsg( 91652)        'Cancel
      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( sBlockName As String, sSlabNbr As String)
      BlockName = sBlockName
      SlabNbr = sSlabNbr
   End Sub

   Friend Sub GetData( ByRef sBlockName As String, ByRef sSlabNbr As String)
      sBlockName = BlockName
      sSlabNbr = SlabNbr
   End Sub

#End Region

End Class