BH, Kundenkontakte, MD;

SDL/kunden/frmKundenKontakteDetails.vb

@@ -39,7 +39,6 @@
 
         If kkd_id > 0 Then
             KD_KONTAKT = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kkd_id)
-
         Else
             KD_KONTAKT = Nothing
         End If
@@ -64,8 +63,10 @@
         txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "")
         txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
         txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
+        txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "")
         If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
         txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "")
+        txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "")
 
     End Sub
 
@@ -88,6 +89,8 @@
         KD_KONTAKT.kkd_Mobil = lblMobil.Text
 
         KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "")
+        KD_KONTAKT.kkd_Passgueltigbis = IIf(txtPassgueltigbis.Text <> "" AndAlso IsDate(txtPassgueltigbis.Text), txtPassgueltigbis.Text, "")
+        KD_KONTAKT.kkd_Firmenname = txtKorrAdd.Text
         KD_KONTAKT.kkd_Ort = txtOrt.Text
         KD_KONTAKT.kkd_Land = cbxLand._value
         KD_KONTAKT.kkd_PLZ = txtPLZ.Text
@@ -101,4 +104,24 @@
         Me.Close()
     End Sub
 
+    Private Sub cboKontaktArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKontaktArt.SelectedIndexChanged
+
+
+        If cboKontaktArt._value = "13" Then
+            pnlGeschaeftsfuehrer.Visible = True
+        Else
+            pnlGeschaeftsfuehrer.Visible = False
+        End If
+
+        If cboKontaktArt._value = "14" Then
+            txtKorrAdd.Visible = True
+            picBoxKorr.Visible = True
+        Else
+            txtKorrAdd.Visible = False
+            picBoxKorr.Visible = False
+
+        End If
+    End Sub
+
+
 End Class