omagoffice/CompoTrfDataWindow/CompoTrfDataWindowVM.vb

Imports EgtUILib

Public Class CompoTrfDataWindowVM

#Region "FIELDS & PROPERTIES"

   Private m_OrdCode As String
   Public Property OrdCode As String
      Get
         Return m_OrdCode
      End Get
      Set(value As String)
         m_OrdCode = value
      End Set
   End Property

   Private m_OrdDesc As String
   Public Property OrdDesc As String
      Get
         Return m_OrdDesc
      End Get
      Set(value As String)
         m_OrdDesc = value
      End Set
   End Property

   Private m_PartCode As String
   Public Property PartCode As String
      Get
         Return m_PartCode
      End Get
      Set(value As String)
         m_PartCode = value
      End Set
   End Property

   Private m_MatCode As String
   Public Property MatCode As String
      Get
         Return m_MatCode
      End Get
      Set(value As String)
         m_MatCode = value
      End Set
   End Property

   Private m_SurfCode As String
   Public Property SurfCode As String
      Get
         Return m_SurfCode
      End Get
      Set(value As String)
         m_SurfCode = value
      End Set
   End Property

   Private m_Thickness As Double
   Public Property Thickness As Double
      Get
         Return m_Thickness
      End Get
      Set(value As Double)
         m_Thickness = value
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property TitleMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 9)
      End Get
   End Property

   Public ReadOnly Property OrdCodeMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 10)
      End Get
   End Property

   Public ReadOnly Property OrdDescMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 11)
      End Get
   End Property

   Public ReadOnly Property PartCodeMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 16)
      End Get
   End Property

   Public ReadOnly Property MatCodeMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 12)
      End Get
   End Property

   Public ReadOnly Property SurfCodeMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 13)
      End Get
   End Property

   Public ReadOnly Property ThicknessMsg As String
      Get
         Return EgtMsg(MSG_DRAWPAGEUC + 14)
      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(sOrdCode As String, sOrdDesc As String, sPartCode As String, sMatCode As String, sSurfCode As String, dTh As Double)
      OrdCode = sOrdCode
      OrdDesc = sOrdDesc
      PartCode = sPartCode
      MatCode = sMatCode
      SurfCode = sSurfCode
      Thickness = LenToString(dTh, 2)
   End Sub

   Friend Sub GetData(ByRef sOrdCode As String, ByRef sOrdDesc As String, sPartCode As String, ByRef sMatCode As String, ByRef sSurfCode As String, ByRef dTh As Double)
      sOrdCode = OrdCode
      sOrdDesc = OrdDesc
      sPartCode = PartCode
      sMatCode = MatCode
      sSurfCode = SurfCode
      StringToLen(Thickness, dTh)
   End Sub

#End Region

End Class