Emmanuele Sassi
f4a55298f7
- aggiunta modalita' che salva stima nesting sul salvataggio - gestito upload della stima nesting
122 lines
2.7 KiB
VB.net
122 lines
2.7 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class RawPartM
|
|
Inherits VMBase
|
|
|
|
Protected m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
Public Sub SetId(nId As Integer)
|
|
m_nId = nId
|
|
End Sub
|
|
|
|
Private m_bActive As Boolean
|
|
Public Property bActive As Boolean
|
|
Get
|
|
Return m_bActive
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bActive = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Material As MaterialM
|
|
Public Property Material As MaterialM
|
|
Get
|
|
Return m_Material
|
|
End Get
|
|
Set(value As MaterialM)
|
|
m_Material = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_dW As Double
|
|
Public Property dW As Double
|
|
Get
|
|
Return m_dW
|
|
End Get
|
|
Set(value As Double)
|
|
m_dW = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_dL As Double
|
|
Public Property dL As Double
|
|
Get
|
|
Return m_dL
|
|
End Get
|
|
Set(value As Double)
|
|
m_dL = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nQuantity As Integer
|
|
Public Property nQuantity As Integer
|
|
Get
|
|
Return m_nQuantity
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nQuantity = value
|
|
End Set
|
|
End Property
|
|
Private m_bUseQuantity As Boolean
|
|
Public Property bUseQuantity As Boolean
|
|
Get
|
|
Return m_bUseQuantity
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bUseQuantity = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(Material As MaterialM, W As Double, L As Double, Qty As Integer, Active As Boolean)
|
|
m_Material = Material
|
|
m_dW = W
|
|
m_dL = L
|
|
m_nQuantity = Qty
|
|
m_bActive = Active
|
|
End Sub
|
|
|
|
Sub New(nId As Integer, Material As MaterialM, W As Double, L As Double, Qty As Integer, bUseQty As Boolean, Active As Boolean)
|
|
m_nId = nId
|
|
m_Material = Material
|
|
m_dW = W
|
|
m_dL = L
|
|
m_nQuantity = Qty
|
|
m_bUseQuantity = bUseQty
|
|
m_bActive = Active
|
|
End Sub
|
|
|
|
Sub New(Material As MaterialM, W As Double, L As Double)
|
|
m_Material = Material
|
|
m_dW = W
|
|
m_dL = L
|
|
m_nQuantity = 0
|
|
m_bUseQuantity = False
|
|
m_bActive = False
|
|
End Sub
|
|
|
|
Public Sub Update(RawPart As RawPartM)
|
|
m_Material = RawPart.m_Material
|
|
m_dW = RawPart.dW
|
|
m_dL = RawPart.dL
|
|
m_nQuantity = RawPart.m_nQuantity
|
|
m_bUseQuantity = RawPart.m_bUseQuantity
|
|
m_bActive = RawPart.m_bActive
|
|
End Sub
|
|
|
|
Public Sub Update(W As Double, L As Double)
|
|
m_dW = W
|
|
m_dL = L
|
|
End Sub
|
|
|
|
Public Function Copy() As RawPartM
|
|
Return New RawPartM(m_nId, m_Material, m_dW, m_dL, m_nQuantity, bUseQuantity, bActive)
|
|
End Function
|
|
|
|
End Class
|
|
|