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

Kunednkontakte, Bereichitungsgruppen (Ansicht), StartOptions, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-30 16:43:35 +01:00
parent 9c8f6c626f
commit ef8992cbd4
3 changed files with 49 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
SDL/kunden/frmKundenKontakteDetails.vb
View File

@@ -68,24 +68,14 @@
txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "") txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "") txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "")
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text) Then Dim mailfalse = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text)
lblEmail.ForeColor = Color.Black If mailfalse <> "" Then lblEmail.ForeColor = Color.Red
Else
lblEmail.ForeColor = Color.Red
End If
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text) Then Dim mailfalsecc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text)
lblEmailCC.ForeColor = Color.Black If mailfalsecc <> "" Then lblEmail.ForeColor = Color.Red
Else
lblEmailCC.ForeColor = Color.Red
End If
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text) Then
lblEmailBCC.ForeColor = Color.Black
Else
lblEmailBCC.ForeColor = Color.Red
End If
Dim mailfalsebcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text)
If mailfalsebcc <> "" Then lblEmail.ForeColor = Color.Red
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), "")
@@ -133,25 +123,33 @@
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
getvalue() getvalue()
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email) Then
Dim mailfalse = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email)
If mailfalse <> "" Then
lblEmail.ForeColor = Color.Red lblEmail.ForeColor = Color.Red
MsgBox("Mailadresse: " & mailfalse & " fehlerhaft!")
lblEmail.Focus() lblEmail.Focus()
Exit Sub Exit Sub
Else Else
lblEmail.ForeColor = Color.Black lblEmail.ForeColor = Color.Black
End If End If
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC) Then Dim mailfalsecc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC)
If mailfalsecc <> "" Then
lblEmailCC.ForeColor = Color.Red lblEmailCC.ForeColor = Color.Red
MsgBox("Mailadresse: " & mailfalsecc & " fehlerhaft!")
lblEmailCC.Focus() lblEmailCC.Focus()
Exit Sub Exit Sub
Else Else
lblEmailCC.ForeColor = Color.Black lblEmailCC.ForeColor = Color.Black
End If End If
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC) Then Dim mailfalsebcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC)
If mailfalsebcc <> "" Then
lblEmailBCC.ForeColor = Color.Red lblEmailBCC.ForeColor = Color.Red
MsgBox("Mailadresse: " & mailfalsebcc & " fehlerhaft!")
lblEmailBCC.Focus() lblEmailBCC.Focus()
Exit Sub Exit Sub
Else Else

4
SDL/kunden/usrCntlKundenKontakte.vb
View File

@@ -38,14 +38,14 @@
dgvAufschub.Rows.Clear() dgvAufschub.Rows.Clear()
If dgvAufschub.Columns.Count >= 5 Then If dgvAufschub.Columns.Count >= 5 Then
If kdNr > 0 Then If kdNr > 0 Then
Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL") Dim dt = SQL.loadDgvBySql("SELECT [kkd_id],[kkd_KundenNr],[kkd_kkaBez],[kkd_Tel],isnull([kkd_Email],'') as kkd_Email ,isnull([kkd_EmailCC], '') as kkd_EmailCC ,isnull([kkd_EmailBCC], '') as kkd_EmailBCC ,[kkd_Fax],[kkd_AnsprechpartnerAnrede],[kkd_AnsprechpartnerVorname],[kkd_AnsprechpartnerNachname] FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
For Each r In dt.Rows For Each r In dt.Rows
Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).Trim Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).Trim
Dim rowIndex As Integer = dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax")) Dim rowIndex As Integer = dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc")) Or Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc")) Then 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 dgvRow As DataGridViewRow = dgvAufschub.Rows(rowIndex) Dim dgvRow As DataGridViewRow = dgvAufschub.Rows(rowIndex)
dgvRow.DefaultCellStyle.BackColor = Color.IndianRed dgvRow.DefaultCellStyle.BackColor = Color.IndianRed
End If End If

39
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -900,25 +900,44 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
End Function End Function
Shared Function checkifMailisOK(email As String) As Boolean Shared Function checkifMailisOK(emailList As String) As String
If String.IsNullOrWhiteSpace(email) Then Dim invalid As New List(Of String)
Return True
Else If String.IsNullOrWhiteSpace(emailList) Then Return ""
Dim emails = emailList.Split(";"c, ","c)
For Each email In emails
Dim e = email.Trim()
If e = "" Then Continue For
Try Try
Dim addr As New System.Net.Mail.MailAddress(email) Dim addr As New System.Net.Mail.MailAddress(e)
' zusätzlicher Check: Domain muss einen Punkt enthalten If Not addr.Host.Contains(".") Then
Dim domain As String = addr.Host invalid.Add(e)
If Not domain.Contains(".") Then Return False End If
Return True
Catch Catch
Return False invalid.Add(e)
End Try End Try
Next
If invalid.Count = 0 Then
Return ""
Else
Dim StringLIst As String = ""
For i = 1 To invalid.Count
StringLIst = StringLIst & invalid(i - 1)
Next i
Return StringLIst
End If End If
End Function End Function
Public Function MakeScreenshot() Public Function MakeScreenshot()