Emmanuele Sassi
32d9f4fd7a
- aggiunta gestione angoli di fianco con tallone (bisello) - ora angolo verso esterno mantiene dimensione totale del pezzo - gestione ventose con asse rotante a step (STEPS=Val1,Val2,... in GEO di asse) - aggiunta gestione accorciamento fresate negli angoli - sistemazione dati TRF da compo e aggiunta codice pezzo - in DB utensili con nuova lama creazione/aggiornamento note speciali Hofmann - abilitazione bottoni UnderCut e DripDrill sempre da chiave - aggiunto secondo offset nei tagli da sotto - modifiche a componenti per import DXF e nome su linea separata - dati TRF non più richiesti per default sui componenti
146 lines
3.2 KiB
VB.net
146 lines
3.2 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 + 19)
|
|
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
|
|
|
|
#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
|