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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-05 10:01:32 +01:00
parent bf91597bdd c7edfc01bd
commit e9872fcb36
16 changed files with 1322 additions and 961 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kunden/usrCntlKundenKontakte.vb
View File

@@ -45,7 +45,11 @@
Dim rowIndex As Integer = dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")) <> "" Or VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")) <> "" Or VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")) <> "" Then
Dim mail As String = IIf(Not IsDBNull(r("kkd_email")), VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")), "")
Dim mailcc As String = IIf(Not IsDBNull(r("kkd_emailcc")), VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")), "")
Dim mailbcc As String = IIf(Not IsDBNull(r("kkd_emailbcc")), VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")), "")
If mail <> "" Or mailcc <> "" Or mailbcc <> "" Then
Dim dgvRow As DataGridViewRow = dgvAufschub.Rows(rowIndex)
dgvRow.DefaultCellStyle.BackColor = Color.IndianRed
End If