edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kundenkontakt erw.

Browse Source
This commit is contained in:
d.breimaier
2024-09-23 11:43:28 +02:00
parent 0db7067b42
commit 2de7a39344
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/frmKundenKontakteDetails.vb
View File

@@ -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