OmagOFFICE :

- Gestione dati TRF.
- Stime tempi e costi.
- Lavorazioni da sotto.

CompoTrfDataWindow/CompoTrfDataWindowVM.vb

@@ -0,0 +1,127 @@
+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_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 + 19)
+      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 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
+
+#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, sMatCode As String, sSurfCode As String, dTh As Double)
+      OrdCode = sOrdCode
+      OrdDesc = sOrdDesc
+      MatCode = sMatCode
+      SurfCode = sSurfCode
+      Thickness = LenToString(dTh, 2)
+   End Sub
+
+   Friend Sub GetData(ByRef sOrdCode As String, ByRef sOrdDesc As String, ByRef sMatCode As String, ByRef sSurfCode As String, ByRef dTh As Double)
+      sOrdCode = OrdCode
+      sOrdDesc = OrdDesc
+      sMatCode = MatCode
+      sSurfCode = SurfCode
+      StringToLen(Thickness, dTh)
+   End Sub
+
+#End Region
+
+End Class