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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-27 15:20:42 +02:00
parent 3c48bc68a4 6da48a608c
commit 8a29cb92ab
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), "") 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), "") 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_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land) If Not IsDBNull(KD_KONTAKT.kkd_Geburtsland) Then cbxLand.changeItem(KD_KONTAKT.kkd_Geburtsland)
End Sub End Sub
@@ -103,6 +103,9 @@
KD_KONTAKT.kkd_PLZ = txtPLZ.Text KD_KONTAKT.kkd_PLZ = txtPLZ.Text
KD_KONTAKT.kkd_Adresse = txtStrasse.Text KD_KONTAKT.kkd_Adresse = txtStrasse.Text
KD_KONTAKT.kkd_Geburtsland = cbxGeburtsland._value
KD_KONTAKT.kkd_Geburtsort = txtGeburtsort.Text
End Sub End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click