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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/kunden/frmKundenKontakteDetails.vb
View File

@@ -55,6 +55,8 @@
lblTel.Text = If(KD_KONTAKT.kkd_Tel, "")
lblFax.Text = If(KD_KONTAKT.kkd_Fax, "")
lblEmail.Text = If(KD_KONTAKT.kkd_Email, "")
lblEmailCC.Text = If(KD_KONTAKT.kkd_EmailCC, "")
lblEmailBCC.Text = If(KD_KONTAKT.kkd_EmailBCC, "")
lblMobil.Text = If(KD_KONTAKT.kkd_Mobil, "")
End Sub
@@ -72,6 +74,8 @@
KD_KONTAKT.kkd_Tel = lblTel.Text
KD_KONTAKT.kkd_Fax = lblFax.Text
KD_KONTAKT.kkd_Email = lblEmail.Text
KD_KONTAKT.kkd_EmailCC = lblEmailCC.Text
KD_KONTAKT.kkd_EmailBCC = lblEmailBCC.Text
KD_KONTAKT.kkd_Mobil = lblMobil.Text
End Sub
@@ -81,4 +85,8 @@
KD_KONTAKT.SAVE()
Me.Close()
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles lblEmailCC.TextChanged
End Sub
End Class