OmagCUT 1.9j2 :

- sistemazione dati TRF da compo e aggiunta codice pezzo
- in DB utensili con nuova lama creazione/aggiornamento note speciali Hofmann.

CompoTrfData.xaml.vb

@@ -16,6 +16,7 @@ Public Class CompoTrfData
       Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
       OrdCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 10)    'Order Code
       OrdDescTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 11)    'Order Description
+      PartCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 16)   'Part Code
       MatCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 12)    'Material Code
       SurfCodeTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 13)   'Surface Code
       ThicknessTxBl.Text = EgtMsg(MSG_DRAWPAGEUC + 14)  'Thickness
@@ -31,17 +32,19 @@ Public Class CompoTrfData
       Close()
    End Sub
 
-   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)
       OrdCodeTxBx.Text = sOrdCode
       OrdDescTxBx.Text = sOrdDesc
+      PartCodeTxBx.Text = sPartCode
       MatCodeTxBx.Text = sMatCode
       SurfCodeTxBx.Text = sSurfCode
       ThicknessTxBx.Text = 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, ByRef sPartCode As String, ByRef sMatCode As String, ByRef sSurfCode As String, ByRef dTh As Double)
       sOrdCode = OrdCodeTxBx.Text
       sOrdDesc = OrdDescTxBx.Text
+      sPartCode = PartCodeTxBx.Text
       sMatCode = MatCodeTxBx.Text
       sSurfCode = SurfCodeTxBx.Text
       StringToLen(ThicknessTxBx.Text, dTh)