TIMOCOM, Anpassung Auftrag Kopieren

UID/frmDetails.vb

@@ -140,6 +140,7 @@ Public Class frmDetails
             binddata(txtFax, "Text", bindingDATA.bindingSource, "kd_fax")
             binddata(txtEmail, "Text", bindingDATA.bindingSource, "kd_email")
             binddata(txtHomepage, "Text", bindingDATA.bindingSource, "kd_homepage")
+            binddata(txtTIMOCOM, "Text", bindingDATA.bindingSource, "kd_TIMOCOM")
 
             Dim kdnr = (bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr"))
             kdFirma.KdNr = If(kdnr Is DBNull.Value, -1, kdnr)
@@ -198,7 +199,7 @@ Public Class frmDetails
 
             bindingOeZ.initBinding("SELECT * FROM tblOeffnungszeiten WHERE oz_id = " & bindingDATA.bindingdataTable.Rows(0).Item("kd_oez_id").ToString, "tblOeffnungszeiten")
 
-            AddHandler bindingOeZ.bindingdataTable.ColumnChanged, _
+            AddHandler bindingOeZ.bindingdataTable.ColumnChanged,
                  Sub(send As Object, evnt As EventArgs)
                      btnSave.Enabled = True
                  End Sub
@@ -438,6 +439,7 @@ Public Class frmDetails
                 txtFax.Text = data.kd_fax
                 txtEmail.Text = data.kd_email
                 txtHomepage.Text = data.kd_homepage
+                txtTIMOCOM.Text = data.kd_TIMOCOM
 
 
                 kdFirma.KdNr = data.kd_FMZOLL_KdNr
@@ -545,6 +547,7 @@ Public Class frmDetails
         entry.kd_fax = txtFax.Text
         entry.kd_email = txtEmail.Text
         entry.kd_homepage = txtHomepage.Text
+        entry.kd_TIMOCOM = txtTIMOCOM.Text
         data.kd_FMZOLL_KdNr = kdFirma.KdNrNullInt
 
         'entry.kd_oez_id = txt
@@ -656,6 +659,7 @@ Public Class frmDetails
         k.kd_fax = txtFax.Text
         k.kd_email = txtEmail.Text
         k.kd_homepage = txtHomepage.Text
+        k.kd_TIMOCOM = txtTIMOCOM.Text
         k.kd_FMZOLL_KdNr = kdFirma.KdNrNullInt
 
         'entry.kd_oez_id = txtkdFirma.KdNr
@@ -1013,7 +1017,7 @@ Public Class frmDetails
         Me.Cursor = Cursors.WaitCursor
         Try
             bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr") = If(kdFirma.KdNrNullInt, DBNull.Value)
-            MsgBox(kdFirma.KdNrNullInt)
+            'MsgBox(kdFirma.KdNrNullInt)
             If bindingDATA.updateBinding() AndAlso bindingOeZ.updateBinding Then
                 btnSave.Enabled = False
             End If