Verwahrung, Mitarbeiter, Fakt, etc.

UID/Mitarbeiter/frmMitarbDetails.Designer.vb

@@ -80,6 +80,8 @@ Partial Class frmMitarbDetails
         Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.tabParameter = New System.Windows.Forms.TabPage()
         Me.dgvUserParameter = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.tabBenachrichtigungen = New System.Windows.Forms.TabPage()
+        Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.cboFunktion = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -258,8 +260,7 @@ Partial Class frmMitarbDetails
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.dgvSessions = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.tabBenachrichtigungen = New System.Windows.Forms.TabPage()
+        Me.cbxeigeneFirma = New System.Windows.Forms.CheckBox()
-        Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.TabControl2.SuspendLayout()
@@ -271,6 +272,7 @@ Partial Class frmMitarbDetails
         Me.TabPage7.SuspendLayout()
         Me.tabParameter.SuspendLayout()
         CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.tabBenachrichtigungen.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -287,7 +289,6 @@ Partial Class frmMitarbDetails
         CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage6.SuspendLayout()
         CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.tabBenachrichtigungen.SuspendLayout()
         Me.SuspendLayout()
         '
         'PictureBox1
@@ -934,6 +935,27 @@ Partial Class frmMitarbDetails
         Me.dgvUserParameter.Size = New System.Drawing.Size(436, 168)
         Me.dgvUserParameter.TabIndex = 0
         '
+        'tabBenachrichtigungen
+        '
+        Me.tabBenachrichtigungen.Controls.Add(Me.cbxeigeneFirma)
+        Me.tabBenachrichtigungen.Controls.Add(Me.clInterneMailBenachrichtigungen)
+        Me.tabBenachrichtigungen.Location = New System.Drawing.Point(4, 22)
+        Me.tabBenachrichtigungen.Name = "tabBenachrichtigungen"
+        Me.tabBenachrichtigungen.Size = New System.Drawing.Size(442, 174)
+        Me.tabBenachrichtigungen.TabIndex = 6
+        Me.tabBenachrichtigungen.Text = "Benachrichtigungen"
+        Me.tabBenachrichtigungen.UseVisualStyleBackColor = True
+        '
+        'clInterneMailBenachrichtigungen
+        '
+        Me.clInterneMailBenachrichtigungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.clInterneMailBenachrichtigungen.FormattingEnabled = True
+        Me.clInterneMailBenachrichtigungen.Location = New System.Drawing.Point(76, 3)
+        Me.clInterneMailBenachrichtigungen.Name = "clInterneMailBenachrichtigungen"
+        Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(363, 169)
+        Me.clInterneMailBenachrichtigungen.TabIndex = 98
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -2988,23 +3010,16 @@ Partial Class frmMitarbDetails
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
-        'tabBenachrichtigungen
+        'cbxeigeneFirma
         '
-        Me.tabBenachrichtigungen.Controls.Add(Me.clInterneMailBenachrichtigungen)
+        Me.cbxeigeneFirma.AutoSize = True
-        Me.tabBenachrichtigungen.Location = New System.Drawing.Point(4, 22)
+        Me.cbxeigeneFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.tabBenachrichtigungen.Name = "tabBenachrichtigungen"
+        Me.cbxeigeneFirma.Location = New System.Drawing.Point(5, 3)
-        Me.tabBenachrichtigungen.Size = New System.Drawing.Size(442, 174)
+        Me.cbxeigeneFirma.Name = "cbxeigeneFirma"
-        Me.tabBenachrichtigungen.TabIndex = 6
+        Me.cbxeigeneFirma.Size = New System.Drawing.Size(71, 17)
-        Me.tabBenachrichtigungen.Text = "Benachrichtigungen"
+        Me.cbxeigeneFirma.TabIndex = 116
-        Me.tabBenachrichtigungen.UseVisualStyleBackColor = True
+        Me.cbxeigeneFirma.Text = "eig. Firma"
-        '
+        Me.cbxeigeneFirma.UseVisualStyleBackColor = True
-        'clInterneMailBenachrichtigungen
-        '
-        Me.clInterneMailBenachrichtigungen.FormattingEnabled = True
-        Me.clInterneMailBenachrichtigungen.Location = New System.Drawing.Point(3, 3)
-        Me.clInterneMailBenachrichtigungen.Name = "clInterneMailBenachrichtigungen"
-        Me.clInterneMailBenachrichtigungen.Size = New System.Drawing.Size(426, 169)
-        Me.clInterneMailBenachrichtigungen.TabIndex = 98
         '
         'frmMitarbDetails
         '
@@ -3036,6 +3051,8 @@ Partial Class frmMitarbDetails
         Me.TabPage7.ResumeLayout(False)
         Me.tabParameter.ResumeLayout(False)
         CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.tabBenachrichtigungen.ResumeLayout(False)
+        Me.tabBenachrichtigungen.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
@@ -3057,7 +3074,6 @@ Partial Class frmMitarbDetails
         Me.TabPage6.ResumeLayout(False)
         Me.TabPage6.PerformLayout()
         CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.tabBenachrichtigungen.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -3297,4 +3313,5 @@ Partial Class frmMitarbDetails
     Friend WithEvents dgvSessions As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents tabBenachrichtigungen As TabPage
     Friend WithEvents clInterneMailBenachrichtigungen As CheckedListBox
+    Friend WithEvents cbxeigeneFirma As CheckBox
 End Class

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1,5 +1,6 @@
 
 Imports System.Text.RegularExpressions
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
@@ -149,18 +150,6 @@ Public Class frmMitarbDetails
         clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
         clbTimasMehreFirmen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
 
-        clInterneMailBenachrichtigungen.Items.Clear()
-        Dim dt_Bebachrichtigungen As DataTable = SQL.loadDgvBySql("SELECT  mb_object +
-                                           CASE 
-                                              WHEN mb_firmaID IS NULL THEN ' (ALLE)'
-                                              ELSE ' (' + [tblFirma].Firma_Bez + ')'
-                                          END as mb_object, mb_id
-
-                                        FROM [ADMIN].[dbo].[tblEMailbenachrichtigungen]
-                                        inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID", "ADMIN")
-        For Each r As DataRow In dt_Bebachrichtigungen.Rows
-            clInterneMailBenachrichtigungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.Item("mb_object"), r.Item("mb_id")))
-        Next
 
 
         cbxClientTimas.Items.Clear()
@@ -177,6 +166,7 @@ Public Class frmMitarbDetails
 
         cbxClientTimas.SelectedIndex = 0
 
+        loadBenachrichtiungenListe()
 
         cboFirma.Items.Clear()
         cboFirma.Items.Add("VERAG")
@@ -1875,5 +1865,39 @@ Public Class frmMitarbDetails
 
 
     End Sub
+
+    Private Sub cbxeigeneFirma_CheckedChanged(sender As Object, e As EventArgs) Handles cbxeigeneFirma.CheckedChanged
+        If cbxeigeneFirma.Checked Then
+
+            If cboFirmaFMZOLL._value <> "" AndAlso IsNumeric(cboFirmaFMZOLL._value) Then
+                loadBenachrichtiungenListe(CInt(cboFirmaFMZOLL._value))
+
+            Else
+
+                loadBenachrichtiungenListe()
+
+            End If
+        Else
+            loadBenachrichtiungenListe()
+        End If
+
+    End Sub
+
+    Private Sub loadBenachrichtiungenListe(Optional FIRMAID As Integer = -1)
+
+        clInterneMailBenachrichtigungen.Items.Clear()
+        Dim dt_Bebachrichtigungen As DataTable = SQL.loadDgvBySql("SELECT  mb_object +
+                                           CASE 
+                                              WHEN mb_firmaID IS NULL THEN ' (ALLE)'
+                                              ELSE ' (' + [tblFirma].Firma_Bez + ')'
+                                          END as mb_object, mb_id
+
+                                        FROM [ADMIN].[dbo].[tblEMailbenachrichtigungen]
+                                        inner join [VERAG].[dbo].[tblFirma] on [mb_firmaID] = [tblFirma].Firma_ID" & IIf(FIRMAID > 0, " AND [tblFirma].Firma_ID = " & FIRMAID, ""), "ADMIN")
+        For Each r As DataRow In dt_Bebachrichtigungen.Rows
+            clInterneMailBenachrichtigungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.Item("mb_object"), r.Item("mb_id")))
+        Next
+
+    End Sub
 End Class
 

UID/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.5.1")>
+<Assembly: AssemblyVersion("1.2.5.2")>
-<Assembly: AssemblyFileVersion("1.2.5.1")>
+<Assembly: AssemblyFileVersion("1.2.5.2")>

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -531,7 +531,7 @@ Anzeige:
                 If posMassnahmen.Rows.Count > 0 Then
 
                     Dim Mailext = createInfoMail(regNR, posMassnahmen, "MASSNAHME-DAKOSY")
-                    Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("MASSNAHME-DAKOSY")
+                    Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("MASSNAHME-DAKOSY")
                     VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Massnahme DAKOSY - " & Now().ToShortDateString, Mailext,,,,, "d.breimaier@verag.ag")
 
                 End If
@@ -815,7 +815,7 @@ Anzeige:
 
                             If sendInfoMail Then
                                 Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit)
-                                Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("Verwahrungseingang-DAKOSY", GesSichRef.brgakto_firmaID)
+                                Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Verwahrungseingang-DAKOSY", GesSichRef.brgakto_firmaID)
                                 VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
                             End If
 
@@ -1079,7 +1079,7 @@ Anzeige:
 
                                 If sendInfoMail Then
                                     Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
-                                    Dim empfaenger = cMitarbeiter.GetEMailForEmailNotification("Verwahrungsausgang-DAKOSY", GesSichRef.brgakto_firmaID)
+                                    Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("Verwahrungsausgang-DAKOSY", GesSichRef.brgakto_firmaID)
                                     VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
                                 End If
 

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -1175,7 +1175,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                     If filepath <> "" Then
                         Dim anhenge As New List(Of String)
                         anhenge.Add(filepath)
-                        Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("RMC Import", 19)
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr (EASYTRIP)", "Im Anhang die zu prüfenden Kunden von WÖLFL EasyTrip: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
                     End If
                 End If
@@ -1269,7 +1269,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                     If filepath <> "" Then
                         Dim anhenge As New List(Of String)
                         anhenge.Add(filepath)
-                        Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("RMC Import", 19)
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("RMC Import", 19)
                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, "Wölfl-UIDNr", "Im Anhang die zu prüfenden Kunden von WÖLFL für Importdatei: " & fi.Name & vbNewLine & "Pro Importdatei wird ein Email generiert/gesendet" & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
                     End If
                 End If

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,6 +6,8 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
+Imports com.sun.xml.internal.rngom
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports javax
 Imports MDM_Worker
 Imports Renci.SshNet
@@ -335,6 +337,12 @@ Public Class frmStartOptions
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 updateATEZStatusByMRNTop(500)
                 closeMe()
+
+            Case "EMAIL_CHECKER" 'PRÜFT KUNDENADRESSEN AUF KORREKTEN AUFBAU
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                checkEmailAdressen(2, True)
+                closeMe()
+
             Case "UID_Pruefung"
                 Dim f As New frmInfo(PARAM)
                 f.Show()
@@ -885,7 +893,7 @@ Public Class frmStartOptions
                     If filepath <> "" Then
                         Dim anhenge As New List(Of String)
                         anhenge.Add(filepath)
-                        Dim empfaneger = cMitarbeiter.GetEMailForEmailNotification("Stichtagsliste Kundensummen", 19)
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("Stichtagsliste Kundensummen", 19)
                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "Stichtagsliste Kundensummen " & Now().ToShortDateString, "Im Anhang die Stichtagsliste der Kundensummen vom:  " & Now() & vbNewLine & "*Automatic generated e-mail*",,,,, "al@verag.ag", anhenge)
                     End If
 
@@ -3349,13 +3357,13 @@ Public Class frmStartOptions
 
     Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
 
-        Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 1)
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
         getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs, True)
-        Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 20)
+        Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
         getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs)
-        Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 24)
+        Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 24)
         getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs)
-        Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 21)
+        Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 21)
         getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag", "d.breimaier@verag.ag",, True, finanzOnline, veroegerungMs)
 
     End Function
@@ -4012,7 +4020,7 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 1)
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
         Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, , cbxUpdateFIBU.Checked)
         showPic(bool, PictureBox12)
     End Sub
@@ -4490,13 +4498,13 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 20)
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
         Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
         showPic(bool, PictureBox12)
     End Sub
     Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 24)
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 24)
         Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", Empfaenger, , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
         showPic(bool, PictureBox12)
     End Sub
@@ -4662,7 +4670,7 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim Empfaenger = cMitarbeiter.GetEMailForEmailNotification("UID-Prüfung", 21)
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 21)
         Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", Empfaenger, "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
         showPic(bool, PictureBox12)
     End Sub
@@ -7029,10 +7037,10 @@ repeatRequest:
                     Dim anhenge As New List(Of String)
                     anhenge.Add(filepath)
                     Dim empfaneger As String = ""
-                    If countMissingVerag > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 1)
+                    If countMissingVerag > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1)
-                    If countMissingIMEX > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 20)
+                    If countMissingIMEX > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
-                    If countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 21)
+                    If countMissingUNISPED > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
-                    If countMissingAMBAR > 0 Then empfaneger &= cMitarbeiter.GetEMailForEmailNotification("Creditsafe", 24)
+                    If countMissingAMBAR > 0 Then empfaneger &= cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
                     If empfaneger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE - fehlende CS-IDs", "Im Anhang befinden sich eine Liste der Kunden, deren Creditsafe-ID ungültig sind/nicht gefunden wurden!" & "<br><br>" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge)
                 End If
             End If
@@ -7488,83 +7496,13 @@ repeatRequest:
 
     Private Sub btnKKEmailscheck_Click(sender As Object, e As EventArgs) Handles btnKKEmailscheck.Click
 
-        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim sendNotificationEmails = False
-
-        Dim dt As DataTable = SQL.loadDgvBySql("select *  from (
-
-                        select ADR.AdressenNr, ADR.[Name 1],KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR
-                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
-                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
-                       INNER JOIN tblKundenKontakt KK on KK.kkd_KundenNr = K.KundenNr
-                       where isnull(ADR.Auswahl,'A') = 'A' and (KK.kkd_Email is not null or KK.kkd_EmailCC is not null  or KK.kkd_EmailBCC is not null)
-                       
-                       UNION
-                       
-                        select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma  from Adressen ADR
-                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
-                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
-                        where isnull(ADR.Auswahl,'A') = 'A' and (ADR.[E-Mail] is not null or ADR.[E-Mail2] is not null)
-                       
-                        UNION
-                       
-                       select ADR.AdressenNr, ADR.[Name 1] ,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma  from Adressen ADR
-                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
-                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
-                       INNER JOIN  tblEmailBenachrichtigung BEN on BEN.eb_KundenNr = K.KundenNr
-                        where isnull(ADR.Auswahl,'A') = 'A' and (BEN.eb_EMail is not null or BEN.eb_cc is not null or BEN.eb_bcc is not null)
-                       
-                        ) as temp
-                        order by temp.AdressenNr", "FMZOLL", 100, False)
-
-        Dim dt_wrongEmails As New DataTable
-        dt_wrongEmails.Columns.Add("KdNr", GetType(String))
-        dt_wrongEmails.Columns.Add("Art", GetType(String))
-        dt_wrongEmails.Columns.Add("Name", GetType(String))
-        dt_wrongEmails.Columns.Add("Firma", GetType(String))
-        dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String))
-        dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
-        dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
-
-        'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
-        Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
-
-        If dt IsNot Nothing Then
-            For Each r As DataRow In dt.Rows
-
-                Dim fehlerhafteMail As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email"))
-                Dim fehlerhafteMailCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc"))
-                Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
-
-                If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
-
-                    Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
-                    If exists Then
-                        Dim ROW As DataRow = dt_wrongEmails.NewRow
-                        ROW("KdNr") = r.Item("AdressenNr")
-                        ROW("Art") = r.Item("kkd_kkaBez")
-                        ROW("Name") = r.Item("Name 1")
-                        ROW("Firma") = r.Item("Firma")
-                        ROW("fehlerhafteMail") = fehlerhafteMail
-                        ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
-                        ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
-                        dt_wrongEmails.Rows.Add(ROW)
-                    End If
-                End If
-
-
-            Next
-
-            If dt_wrongEmails.Rows.Count > 0 Then
-                showPic(False, pbEmailscheck)
-                VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_wrongEmails)
-
-            Else
-                showPic(True, pbEmailscheck)
-
-            End If
 
+        If vbYes = MsgBox("Soll eine Info-Mail an die zuständigen Mitarbeiter geschickt werden?", vbYesNoCancel) Then
+            sendNotificationEmails = True
         End If
 
+        checkEmailAdressen(2, sendNotificationEmails)
 
     End Sub
 
@@ -7579,7 +7517,7 @@ repeatRequest:
         With dgv_MDMEinarbeitung
 
             .ClearSelection()
-            .SET_SQL("SELECT [supplier],[completed],sum(ds_total) as DS ,sum(ds_count) as DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
+            .SET_SQL("Select [supplier], [completed], sum(ds_total) As DS, sum(ds_count) As DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
                             where cast(invoicedate as Date) = '" & dtp_MDM_Einarbeitung.Value & "'
                             group by [supplier], completed", "FMZOLL")
 
@@ -7992,4 +7930,154 @@ repeatRequest:
 
         Return updatedCount
     End Function
+
+    Private Sub checkEmailAdressen(CustomersWithInvoiceWithingYears As Integer, sendNotificationEmails As Boolean)
+
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        Dim dt As DataTable = SQL.loadDgvBySql("select *  from (
+
+                        select ADR.AdressenNr, ADR.[Name 1],KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR
+                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
+                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
+                       INNER JOIN tblKundenKontakt KK on KK.kkd_KundenNr = K.KundenNr
+                       where isnull(ADR.Auswahl,'A') = 'A' and (KK.kkd_Email is not null or KK.kkd_EmailCC is not null  or KK.kkd_EmailBCC is not null)
+                       
+                       UNION
+                       
+                        select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma  from Adressen ADR
+                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
+                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
+                        where isnull(ADR.Auswahl,'A') = 'A' and (ADR.[E-Mail] is not null or ADR.[E-Mail2] is not null)
+                       
+                        UNION
+                       
+                       select ADR.AdressenNr, ADR.[Name 1] ,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma  from Adressen ADR
+                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
+                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
+                       INNER JOIN  tblEmailBenachrichtigung BEN on BEN.eb_KundenNr = K.KundenNr
+                        where isnull(ADR.Auswahl,'A') = 'A' and (BEN.eb_EMail is not null or BEN.eb_cc is not null or BEN.eb_bcc is not null)
+                       
+                        ) as temp
+                        order by temp.AdressenNr", "FMZOLL", 100, False)
+
+        Dim dt_wrongEmails As New DataTable
+        dt_wrongEmails.Columns.Add("KdNr", GetType(String))
+        dt_wrongEmails.Columns.Add("Art", GetType(String))
+        dt_wrongEmails.Columns.Add("Name", GetType(String))
+        dt_wrongEmails.Columns.Add("Firma", GetType(String))
+        dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String))
+        dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
+        dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
+
+        Dim dtVerag As DataTable = dt_wrongEmails.Clone()
+        Dim dtIMEX As DataTable = dt_wrongEmails.Clone()
+        Dim dtAMBAR As DataTable = dt_wrongEmails.Clone()
+        Dim dtUNISPED As DataTable = dt_wrongEmails.Clone()
+
+        'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
+        Dim yearstocheck As Integer = CustomersWithInvoiceWithingYears
+        Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-yearstocheck) & "' ", "FMZOLL")
+
+
+
+        If dt IsNot Nothing Then
+            For Each r As DataRow In dt.Rows
+
+                Dim fehlerhafteMail As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_email"))
+                Dim fehlerhafteMailCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailcc"))
+                Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
+
+                If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
+
+                    Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
+                    If exists Then
+                        Dim ROW As DataRow = dt_wrongEmails.NewRow
+                        ROW("KdNr") = r.Item("AdressenNr")
+                        ROW("Art") = r.Item("kkd_kkaBez")
+                        ROW("Name") = r.Item("Name 1")
+                        ROW("Firma") = r.Item("Firma")
+                        ROW("fehlerhafteMail") = fehlerhafteMail
+                        ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
+                        ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
+                        dt_wrongEmails.Rows.Add(ROW)
+
+                        Select Case ROW("Firma").ToString()
+                            Case "VERAG"
+                                dtVerag.ImportRow(ROW)
+                            Case "IMEX"
+                                dtIMEX.ImportRow(ROW)
+                            Case "AMBAR"
+                                dtAMBAR.ImportRow(ROW)
+                            Case "UNISPED"
+                                dtUNISPED.ImportRow(ROW)
+                        End Select
+
+                    End If
+                End If
+
+
+            Next
+
+            If dt_wrongEmails.Rows.Count > 0 Then
+
+                If Not sendNotificationEmails Then
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_wrongEmails,,,,, True,,, True)
+                Else
+
+
+                    Dim Betreff = "EMAIL-CHECK"
+                    Dim MailText = "Liste mit fehlerhaften EMail-Adressen im Kunden, die in den letzten " & yearstocheck & " Jahren eine Rechnung bekommen haben  " & " < br <> br > " & " * Automatic generated e-mail*"
+
+                    If dtVerag.Rows.Count > 0 Then
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 1)
+                        If empfaneger <> "" Then
+                            Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVerag,,,,, False,,, True)
+                            Dim anhenge As New List(Of String)
+                            anhenge.Add(path)
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG", MailText,,,,, "d.breimaier@verag.ag", anhenge)
+                        End If
+                    End If
+
+                    If dtIMEX.Rows.Count > 0 Then
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 20)
+                        If empfaneger <> "" Then
+                            Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtIMEX,,,,, False,,, True)
+                            Dim anhenge As New List(Of String)
+                            anhenge.Add(path)
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " IMEX", MailText,,,,, "d.breimaier@verag.ag", anhenge)
+                        End If
+                    End If
+
+                    If dtAMBAR.Rows.Count > 0 Then
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 24)
+                        If empfaneger <> "" Then
+                            Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtAMBAR,,,,, False,,, True)
+                            Dim anhenge As New List(Of String)
+                            anhenge.Add(path)
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " AMBAR", MailText,,,,, "d.breimaier@verag.ag", anhenge)
+                        End If
+                    End If
+
+                    If dtUNISPED.Rows.Count > 0 Then
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 21)
+                        If empfaneger <> "" Then
+                            Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtUNISPED,,,,, False,,, True)
+                            Dim anhenge As New List(Of String)
+                            anhenge.Add(path)
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " UNISPED", MailText,,,,, "d.breimaier@verag.ag", anhenge)
+                        End If
+                    End If
+
+                End If
+
+            End If
+
+            showPic(dt_wrongEmails.Rows.Count > 0, pbEmailscheck)
+
+        End If
+
+
+    End Sub
 End Class