Dario Sassi
7d913babee
- richiesta licenza livello 22 - aggiunta gestione opzionale Ordine, Distinta e Nome in import CSV - aggiunta gestione opzionale Ordine, Distinta e Nome in import DXF - aggiunta gestione opzionale Ordine, Distinta e Nome in disegno parametrico pezzi - aggiunta gestione opzionale Blocco e Numero Lastra in definizione grezzo.
158 lines
3.5 KiB
VB.net
158 lines
3.5 KiB
VB.net
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
|