start

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
+Imports com.sun.crypto.provider
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -3341,11 +3342,15 @@ Public Class frmStartOptions
                     Dim list As New List(Of String)
                     list.Add(PDF)
                     Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
+
+                    Body &= createUIDPruefungUebersicht(dt)
+
                     Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung", "") & " vermerkt!</b>"
                     Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
                     Body &= "<br><br>Automatisch generiertes E-Mail."
 
                     VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_betreff, Body,,, False, Mail_CC, Mail_BCC, list)
+                    'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "UID-Prüfung", Body,,, False, , , list)
                     '  VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
                 End If
 
@@ -3415,6 +3420,46 @@ Public Class frmStartOptions
 
     End Function
 
+    Function createUIDPruefungUebersicht(dt As DataTable) As String
+
+
+        Dim gruppiert = From row In dt.AsEnumerable()
+                        Group row By kat = row.Field(Of String)("Ergebnis") Into grp = Group
+                        Select New With {
+                    .Ergebnis = kat,
+                    .Anzahl = grp.Count()
+                }
+
+        ' Ergebnis in neue DataTable umwandeln
+        Dim result As New DataTable()
+        result.Columns.Add("Ergebnis", GetType(String))
+        result.Columns.Add("Anzahl", GetType(Integer))
+
+        For Each item In gruppiert
+            result.Rows.Add(item.Ergebnis, item.Anzahl)
+        Next
+
+
+
+        Dim TextHTMLtable = ""
+
+        TextHTMLtable &= "<br><br><table border=1>"
+        TextHTMLtable &= "<tr><td>Anzahl</td><td>Ergebnis</td></tr>"
+
+        For Each row As DataRow In result.Rows
+
+            TextHTMLtable &= "<tr>"
+            TextHTMLtable &= "<td><b>" & row.Item("Anzahl") & "</b></td>"
+            TextHTMLtable &= "<td><b>" & row.Item("Ergebnis") & "</b></td>"
+            TextHTMLtable &= "</tr>"
+
+        Next
+
+        Return TextHTMLtable & "</table><br><br>"
+
+
+    End Function
+
     Sub setUIDToNull(kunde)
 
         Dim addressen As cAdressen = New cAdressen(kunde.KundenNr)