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.
104 lines
2.0 KiB
VB.net
104 lines
2.0 KiB
VB.net
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
|