From 2de7a39344c61afa487c6afd73b9c5c3df54cc08 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 23 Sep 2024 11:43:28 +0200 Subject: [PATCH] Kundenkontakt erw. --- SDL/kunden/frmKundenKontakteDetails.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/SDL/kunden/frmKundenKontakteDetails.vb b/SDL/kunden/frmKundenKontakteDetails.vb index 611afa60..0d553812 100644 --- a/SDL/kunden/frmKundenKontakteDetails.vb +++ b/SDL/kunden/frmKundenKontakteDetails.vb @@ -70,10 +70,10 @@ 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), "") - txtGeburtsort.Text = If(KD_KONTAKT.kkd_Firmenname, "") + txtGeburtsort.Text = If(KD_KONTAKT.kkd_Geburtsort, "") If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land) - If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land) + If Not IsDBNull(KD_KONTAKT.kkd_Geburtsland) Then cbxLand.changeItem(KD_KONTAKT.kkd_Geburtsland) End Sub @@ -103,6 +103,9 @@ KD_KONTAKT.kkd_PLZ = txtPLZ.Text KD_KONTAKT.kkd_Adresse = txtStrasse.Text + KD_KONTAKT.kkd_Geburtsland = cbxGeburtsland._value + KD_KONTAKT.kkd_Geburtsort = txtGeburtsort.Text + End Sub Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click