Vollmachten

SDL/kunden/frmKundenKontakteDetails.vb

@@ -32,6 +32,9 @@
         cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frau", "Frau"))
 
         cboKontaktArt.fillWithSQL("SELECT [kka_id],[kka_Bezeichnung]  FROM [tblKundenKontaktArten]", False, "FMZOLL", False)
+        cbxLand.fillWithSQL(" select distinct landkz, Währungstabelle.Land  from   Währungstabelle  where landkz is not null  order by LandKz", , "FMZOLL", True)
+        cbxLand.changeItem("")
+
         If cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0
 
         If kkd_id > 0 Then
@@ -58,6 +61,12 @@
         lblEmailCC.Text = If(KD_KONTAKT.kkd_EmailCC, "")
         lblEmailBCC.Text = If(KD_KONTAKT.kkd_EmailBCC, "")
         lblMobil.Text = If(KD_KONTAKT.kkd_Mobil, "")
+        txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "")
+        txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
+        txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
+        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), "")
+
     End Sub
 
     Sub getvalue()
@@ -78,6 +87,12 @@
         KD_KONTAKT.kkd_EmailBCC = lblEmailBCC.Text
         KD_KONTAKT.kkd_Mobil = lblMobil.Text
 
+        KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "")
+        KD_KONTAKT.kkd_Ort = txtOrt.Text
+        KD_KONTAKT.kkd_Land = cbxLand._value
+        KD_KONTAKT.kkd_PLZ = txtPLZ.Text
+        KD_KONTAKT.kkd_Adresse = txtStrasse.Text
+
     End Sub
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
@@ -86,7 +101,4 @@
         Me.Close()
     End Sub
 
-    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles lblEmailCC.TextChanged
-
-    End Sub
 End Class