OmagOFFICE 1.9k1 :

- 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

CompoTrfDataWindow/CompoTrfDataWindowVM.vb

@@ -24,6 +24,16 @@ Public Class CompoTrfDataWindowVM
       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
@@ -74,6 +84,12 @@ Public Class CompoTrfDataWindowVM
       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)
@@ -106,17 +122,19 @@ Public Class CompoTrfDataWindowVM
 
 #Region "METHODS"
 
-   Friend Sub SetData(sOrdCode As String, sOrdDesc As String, sMatCode As String, sSurfCode As String, dTh As Double)
+   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, ByRef sMatCode As String, ByRef sSurfCode As String, ByRef dTh As Double)
+   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)