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.
86 lines
1.7 KiB
VB.net
86 lines
1.7 KiB
VB.net
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
|