neu

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -393,6 +393,8 @@ Public Class usrcntlKundeBearbeitenFull
                 KUNDE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                 KUNDE.Eingegeben_am = Now.ToShortDateString
                 KUNDE.INIT_NEWKD_DATA()
+
+                KUNDE_ERW.kde_KundenNr = kdnr
             Else
                 MsgBox("Err Kd-Vergabe!")
                 Return False
@@ -641,6 +643,7 @@ Public Class usrcntlKundeBearbeitenFull
                     txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
                 End If
             End If
+            initBesonderheitenNEU()
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try
@@ -1209,10 +1212,19 @@ Public Class usrcntlKundeBearbeitenFull
 
     Sub initBesonderheitenNEU()
 
+        lblHinweisKdNr.Visible = False
         If cbxBesonderheitenNEU.Checked Then
+
             UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
-            UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr)
-            UsrCntlKundenBesonderheiten1.Visible = True
+            If KUNDE.KundenNr > 0 Then
+                UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr)
+                UsrCntlKundenBesonderheiten1.Visible = True
+                UsrCntlKundenBesonderheiten1.Enabled = True
+            Else
+                UsrCntlKundenBesonderheiten1.Visible = True
+                UsrCntlKundenBesonderheiten1.Enabled = False
+                lblHinweisKdNr.Visible = True
+            End If
         Else
             UsrCntlKundenBesonderheiten1.Visible = False
         End If
@@ -1223,4 +1235,6 @@ Public Class usrcntlKundeBearbeitenFull
     Private Sub cbxVerzolltBei_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerzolltBei.CheckedChanged
         cboFremdspedition.Enabled = cbxVerzolltBei.Checked
     End Sub
+
+
 End Class