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

RKSV, cFakt,

Browse Source
This commit is contained in:
d.breimaier
2026-02-02 16:29:11 +01:00
parent ef8992cbd4
commit ea31a0d75a
7 changed files with 27 additions and 19 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