83 lines
1.5 KiB
VB.net
83 lines
1.5 KiB
VB.net
Public Class RawPartListVM
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_bL_IsReadOnly As Boolean = True
|
|
Public Property bL_IsReadOnly As Boolean
|
|
Get
|
|
Return m_bL_IsReadOnly
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bL_IsReadOnly = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property ID_Msg As String
|
|
Get
|
|
Return "ID"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property StartOffset_Msg As String
|
|
Get
|
|
Return "Ritaglio iniziale"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property W_Msg As String
|
|
Get
|
|
Return "W"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property H_Msg As String
|
|
Get
|
|
Return "H"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property L_Msg As String
|
|
Get
|
|
Return "L"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Material_Msg As String
|
|
Get
|
|
Return "Materiale"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Used_Msg As String
|
|
Get
|
|
Return "% utilizzo"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Waste_Msg As String
|
|
Get
|
|
Return "Scarto"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Aggiungo riferimento a Map
|
|
Map.SetRefRawPartListVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
Friend Sub SelMachine_Changed()
|
|
|
|
End Sub
|
|
|
|
End Class
|