201020

SDL/kunden/frmNeuerKunde.vb

@@ -126,6 +126,10 @@
             KUNDE.EORITIN = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEORI.Text)
             KUNDE.EORITIN_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtEORINL.Text)
 
+
+            Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
+            KUNDE_ERW.kde_BesonderheitenNeu = 1
+
             Dim err = ""
             If Not ADRESSE.VALID(err) Then
                 lblError.Text = err
@@ -142,6 +146,7 @@
                     lblError.Text = "FEHLER beim Eintragen in die Tabelle 'Kunden'!"
                     kdnr = -1 : Exit Sub
                 End If
+                KUNDE_ERW.SAVE()
             Else
                 lblError.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!"
                 kdnr = -1 : Exit Sub