Mitarbeiter, etc.

UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb

@@ -59,6 +59,7 @@ Partial Class usrCntlMitarbeiter
         Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.Button7 = New System.Windows.Forms.Button()
         Me.Panel2.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -93,6 +94,7 @@ Partial Class usrCntlMitarbeiter
         '
         'Panel2
         '
+        Me.Panel2.Controls.Add(Me.Button7)
         Me.Panel2.Controls.Add(Me.Button9)
         Me.Panel2.Controls.Add(Me.Button6)
         Me.Panel2.Controls.Add(Me.Button5)
@@ -452,6 +454,15 @@ Partial Class usrCntlMitarbeiter
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
+        'Button7
+        '
+        Me.Button7.Location = New System.Drawing.Point(9, 325)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(75, 34)
+        Me.Button7.TabIndex = 22
+        Me.Button7.Text = "Check"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
         'usrCntlMitarbeiter
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -523,4 +534,5 @@ Partial Class usrCntlMitarbeiter
     Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
     Friend WithEvents cbxZE As CheckBox
     Friend WithEvents cbxDakosy As CheckBox
+    Friend WithEvents Button7 As Button
 End Class

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -1,6 +1,7 @@
 Imports System.ComponentModel
 Imports System.Net
 Imports System.Text
+Imports Mysqlx.XDevAPI.CRUD
 Imports VERAG_PROG_ALLGEMEIN
 
 
@@ -55,6 +56,12 @@ Public Class usrCntlMitarbeiter
             End If
         End If
 
+        If TabControl1.SelectedIndex = 7 Then
+            Button7.Visible = True
+        Else
+            Button7.Visible = False
+        End If
+
     End Sub
 
     Public Sub showVERAGATILLA(firma)
@@ -215,7 +222,12 @@ Public Class usrCntlMitarbeiter
         Else
             Dim timas As New cTimasAPI("timas")
             timas.getEmployeeList(dt)
-            dgvTimasNew.DataSource = dt
+
+            Dim dt_onlyActive As New DataTable
+            dt_onlyActive = dt.Select("[Ausweis-Nr] <> 0 and Vorname <> '' and Nachname <> ''").CopyToDataTable
+            dgvTimasNew.DataSource = dt_onlyActive
+
+            ' MsgBox("ALLE:" & dt.Rows.Count & vbNewLine & "AKIVE:" & dt_onlyActive.Rows.Count)
 
         End If
         With dgvTimasNew
@@ -886,5 +898,99 @@ Public Class usrCntlMitarbeiter
         Tabelle_anzeigen()
     End Sub
 
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
 
+        If dgvTimasNew.Rows.Count = 0 Then Exit Sub
+
+        Try
+
+
+            Dim dt_Accounts As New DataTable
+            dt_Accounts.Columns.Add("accountid", GetType(Integer))
+
+            Dim ROW_ACC As DataRow = dt_Accounts.NewRow
+            ROW_ACC("accountid") = "993" 'Auszahlungen ÜS!
+            dt_Accounts.Rows.Add(ROW_ACC)
+
+            'Dim ROW_ACC1 As DataRow = dt_Accounts.NewRow
+            'ROW_ACC1("accountid") = "1598" 'Auszahlungen ÜS!
+            'dt_Accounts.Rows.Add(ROW_ACC1)
+
+            'Dim ROW_ACC2 As DataRow = dt_Accounts.NewRow
+            'ROW_ACC2("accountid") = "1235" 'Auszahlungen ÜS!
+            'dt_Accounts.Rows.Add(ROW_ACC2)
+
+
+            Dim dt_Employee As New DataTable
+            dt_Employee.Columns.Add("employeeId", GetType(Integer))
+            dt_Employee.Columns.Add("Vorname", GetType(String))
+            dt_Employee.Columns.Add("Nachname", GetType(String))
+
+            Dim dt_result As New DataTable
+
+            Dim dateStart As New Date("2025", "01", "01")
+            Dim dateEnd = Today()
+
+            For Each r As DataGridViewRow In dgvTimasNew.Rows
+                Dim ROW As DataRow = dt_Employee.NewRow
+                ROW("employeeId") = r.Cells("Id").Value
+                ROW("Vorname") = r.Cells("Vorname").Value
+                ROW("Nachname") = r.Cells("Nachname").Value
+                dt_Employee.Rows.Add(ROW)
+            Next
+
+
+
+            Dim timas As New cTimasAPI("timas")
+            timas.getTimeAccounts(dateStart, dateEnd, 0, dt_Accounts, dt_result, dt_Employee)
+
+            If dt_result.Rows.Count > 0 Then
+
+
+                Dim dt_falschAusbezahlt As New DataTable
+
+                dt_falschAusbezahlt = dt_result.Select("multiplier = '-'", "date").CopyToDataTable
+
+                If dt_falschAusbezahlt.Rows.Count = 0 Then
+                    MsgBox("keine falsch ausbezahlten Überstunden vorhanden!" & vbNewLine & "Es wird nur geprüft, ob die ausbezahlten Überstunden NICHT negativ sind!")
+                    Exit Sub
+                Else
+
+                    ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_falschAusbezahlt,,,,,,,, True)
+
+                    Dim query = From fa In dt_falschAusbezahlt.AsEnumerable()
+                                Join emp In dt_Employee.AsEnumerable() On fa.Field(Of Integer)("employeeId") Equals emp.Field(Of Integer)("employeeId")
+                                Select result = fa.ItemArray.Concat({emp.Field(Of String)("Vorname"), emp.Field(Of String)("Nachname")}).ToArray()
+
+                    ' Neue Tabelle erstellen (Struktur erweitern)
+                    Dim dt_merged As New DataTable
+
+                    ' Alte Spalten übernehmen
+                    For Each col As DataColumn In dt_falschAusbezahlt.Columns
+                        dt_merged.Columns.Add(col.ColumnName, col.DataType)
+                    Next
+
+                    ' Neue Spalten hinzufügen
+                    dt_merged.Columns.Add("Vorname", GetType(String))
+                    dt_merged.Columns.Add("Nachname", GetType(String))
+
+                    ' Daten einfügen
+                    For Each row In query
+                        dt_merged.Rows.Add(row)
+                    Next
+
+                    If dt_merged.Rows.Count > 0 Then
+                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_merged,,,,,,,, True)
+                    End If
+                End If
+
+
+            End If
+
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
 End Class

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
+Imports iTextSharp.text
 Imports javax
 Imports MDM_Worker
 Imports Renci.SshNet
@@ -3512,7 +3513,7 @@ Public Class frmStartOptions
 
                                     ' Datei hochladen
                                     Using fileStream As New FileStream(localFilePath, FileMode.Open)
-                                        sftpClient.UploadFile(fileStream, remoteDirectory & Path.GetFileName(localFilePath))
+                                        sftpClient.UploadFile(fileStream, remoteDirectory & System.IO.Path.GetFileName(localFilePath))
                                     End Using
 
                                     Console.WriteLine("Datei erfolgreich hochgeladen!")
@@ -8132,4 +8133,335 @@ repeatRequest:
 
 
     End Sub
-End Class
+
+
+    Private Function checkZugferd(sendNotificationEmails As Boolean) As Boolean
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht...
+
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr  FROM [Rechnungsausgang] where RK_ID = 2923288 ", "FMZOLL", 100, False)
+
+        Dim sumTotal_IMEX As Integer = 0
+        Dim sumTotal_VERAG As Integer = 0
+        Dim sumTotal_CS As Integer = 0
+        Dim sumTotal_US As Integer = 0
+        Dim sumTotal_AMBAR As Integer = 0
+        Dim sumTotal_ATILLA As Integer = 0
+        Dim sumTotal_360 As Integer = 0
+
+        Dim sumvalid_IMEX As Integer = 0
+        Dim sumvalid_VERAG As Integer = 0
+        Dim sumvalid_CS As Integer = 0
+        Dim sumvalid_US As Integer = 0
+        Dim sumvalid_AMBAR As Integer = 0
+        Dim sumvalid_ATILLA As Integer = 0
+        Dim sumvalid_360 As Integer = 0
+
+        Dim sumInvalid_IMEX As Integer = 0
+        Dim sumInvalid_VERAG As Integer = 0
+        Dim sumInvalid_CS As Integer = 0
+        Dim sumInvalid_US As Integer = 0
+        Dim sumInvalid_AMBAR As Integer = 0
+        Dim sumInvalid_ATILLA As Integer = 0
+        Dim sumInvalid_360 As Integer = 0
+
+        Dim sumInvalid_Total As Integer = 0
+        Dim sumvalid_Total As Integer = 0
+        Dim sumTotal_Total As Integer = 0
+
+        Dim dtVerag As DataTable = dt.Clone()
+        Dim dtIMEX As DataTable = dt.Clone()
+        Dim dtAMBAR As DataTable = dt.Clone()
+        Dim dtUNISPED As DataTable = dt.Clone()
+        Dim dtCS As DataTable = dt.Clone()
+        Dim dtATILLA As DataTable = dt.Clone()
+        Dim dt360 As DataTable = dt.Clone()
+
+
+
+
+        For Each row In dt.Rows
+
+            Dim rkObj As Object = row("RK_ID")
+            Dim dsObj As Object = row("dsId")
+
+            If rkObj IsNot DBNull.Value AndAlso dsObj IsNot DBNull.Value Then
+
+                Dim rkId As Integer
+                Dim dsId As Integer
+
+                If Integer.TryParse(rkObj.ToString(), rkId) AndAlso
+                   Integer.TryParse(dsObj.ToString(), dsId) AndAlso
+                   dsId > 0 Then
+
+                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsId)
+                    Dim Path As String = DS.GET_TOP1_PATH()
+                    If Path <> "" And System.IO.File.Exists(Path) Then
+
+                        Try
+
+                            Dim psi As New ProcessStartInfo()
+
+                            'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe"
+                            'psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar""  --no-notices --action validate --source " & Path & ""
+
+                            Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+                            psi.FileName = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_JAVA")
+                            psi.Arguments = Paramslist.GET_PARAMETER_VALUE("ZUGFeRD_Check_Pfad_CMD") & Path
+
+
+                            'psi.FileName = "C:\Program Files (x86)\Java\jre1.8.0_491\bin\java.exe"
+                            'psi.Arguments = "-jar ""C:\Verag\Mustang-CLI-2.21.0.jar""  --no-notices --action validate --source " & Path & ""
+
+
+                            psi.RedirectStandardOutput = True
+                            psi.RedirectStandardError = True
+                            psi.UseShellExecute = False
+                            psi.CreateNoWindow = True
+
+                            Using p As Process = Process.Start(psi)
+                                Dim output = p.StandardOutput.ReadToEnd()
+                                Dim err = p.StandardError.ReadToEnd()
+                                p.WaitForExit()
+
+                                If output <> "" Then
+                                    Dim tmpPath_Report = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MUSTANG-REPORT_" & rkObj, ".pdf", , False)
+                                    Dim PruefungOK = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.CreateValidationPdf(output, Path, rkId, tmpPath_Report)
+                                    If tmpPath_Report <> "" Then
+                                        'Process.Start(tmpPath_Report)
+
+                                        Dim fileInfo_ZP As New FileInfo(tmpPath_Report)
+                                        Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False)
+                                        ZUGF_DS.uploadDataToDATENSERVER(tmpPath_Report, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True)
+                                        SQL.doSQL("Update [Rechnungsausgang] SET zugferdcheck_datetime=getDate(),zugferdcheck = " & IIf(PruefungOK, "1", "0") & ", zugferdcheck_daid = " & ZUGF_DS.da_id & "  where RK_ID = " & rkId, "FMZOLL")
+
+
+                                        Select Case row("Firma_ID")
+                                            Case 11
+                                                sumTotal_CS += 1
+                                                If PruefungOK Then
+                                                    sumvalid_CS += 1
+                                                Else
+                                                    sumInvalid_CS += 1
+
+                                                    dtCS.ImportRow(row)
+                                                End If
+                                            Case 24
+                                                sumTotal_AMBAR += 1
+
+                                                If PruefungOK Then
+                                                    sumvalid_AMBAR += 1
+                                                Else
+                                                    sumInvalid_AMBAR += 1
+                                                    dtAMBAR.ImportRow(row)
+                                                End If
+
+                                            Case 21, 22, 23
+                                                sumTotal_US += 1
+                                                If PruefungOK Then
+                                                    sumvalid_US += 1
+                                                Else
+                                                    sumInvalid_US += 1
+                                                    dtUNISPED.ImportRow(row)
+                                                End If
+
+                                            Case 20
+                                                sumTotal_IMEX += 1
+                                                If PruefungOK Then
+                                                    sumvalid_IMEX += 1
+                                                Else
+                                                    sumInvalid_IMEX += 1
+                                                    dtIMEX.ImportRow(row)
+                                                End If
+
+                                            Case 19
+                                                sumTotal_360 += 1
+                                                If PruefungOK Then
+                                                    sumvalid_360 += 1
+                                                Else
+                                                    sumInvalid_360 += 1
+                                                    dt360.ImportRow(row)
+                                                End If
+
+                                            Case 7
+                                                sumTotal_ATILLA += 1
+                                                If PruefungOK Then
+                                                    sumvalid_ATILLA += 1
+                                                Else
+                                                    sumInvalid_ATILLA += 1
+                                                    dtATILLA.ImportRow(row)
+                                                End If
+                                            Case Else
+                                                sumTotal_VERAG += 1
+                                                If PruefungOK Then
+                                                    sumvalid_VERAG += 1
+                                                Else
+                                                    sumInvalid_VERAG += 1
+                                                    dtVerag.ImportRow(row)
+                                                End If
+
+
+                                        End Select
+
+                                    End If
+                                End If
+
+
+                            End Using
+
+                        Catch ex As Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                            Return False
+                        End Try
+
+                    End If
+
+                End If
+
+            End If
+
+        Next
+
+
+        If dt.Rows.Count > 0 Then
+
+            If Not sendNotificationEmails Then
+                'VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True,,, True)
+            Else
+
+
+                Dim Betreff = "ZUGFeRD-CHECK"
+
+                'hier ungültigen Prüfungen pro Firma
+
+                If dtVerag.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    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", createMailTextZugferd(sumTotal_VERAG, sumvalid_VERAG, sumInvalid_VERAG, "VERAG"),, True, False,,, anhenge)
+                    End If
+                End If
+
+                If dtIMEX.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    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", createMailTextZugferd(sumTotal_IMEX, sumvalid_IMEX, sumInvalid_IMEX, "IMEX"),, True, False,,, anhenge)
+                    End If
+                End If
+
+                If dtAMBAR.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    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", createMailTextZugferd(sumTotal_AMBAR, sumvalid_AMBAR, sumInvalid_AMBAR, "AMBAR"),, True, False,,, anhenge)
+                    End If
+                End If
+
+                If dtUNISPED.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    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", createMailTextZugferd(sumTotal_US, sumvalid_US, sumInvalid_US, "UNISPED"),, True, False,,, anhenge)
+                    End If
+                End If
+
+                If dtATILLA.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    If empfaneger <> "" Then
+                        Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtATILLA,,,,, 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 & " ATILLA", createMailTextZugferd(sumTotal_ATILLA, sumvalid_ATILLA, sumInvalid_ATILLA, "ATILLA"),, True, False,,, anhenge)
+                    End If
+                End If
+
+                If dt360.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    If empfaneger <> "" Then
+                        Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt360,,,,, 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 360", createMailTextZugferd(sumTotal_360, sumvalid_360, sumInvalid_360, "VERAG 360"),, True, False,,, anhenge)
+                    End If
+                End If
+
+                If dtCS.Rows.Count > 0 Then
+                    Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                    If empfaneger <> "" Then
+                        Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtCS,,,,, 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 CS", createMailTextZugferd(sumTotal_CS, sumvalid_CS, sumInvalid_CS, "VERAG CS"),, True, False,,, anhenge)
+                    End If
+                End If
+
+
+                'hier alle Prüfungen
+
+                Dim empfanegerALL = cMitarbeiter.GetEMailRecipientForEmailNotification("ZUGFERD-Check")
+                If empfanegerALL <> "" Then
+
+                    sumTotal_Total = sumTotal_VERAG + sumTotal_ATILLA + sumTotal_AMBAR + sumTotal_360 + sumTotal_CS + sumTotal_IMEX + sumTotal_US
+                    sumInvalid_Total = sumInvalid_VERAG + sumInvalid_ATILLA + sumInvalid_AMBAR + sumInvalid_360 + sumInvalid_CS + sumInvalid_IMEX + sumInvalid_US
+                    sumvalid_Total = sumvalid_VERAG + sumvalid_ATILLA + sumvalid_AMBAR + sumvalid_360 + sumvalid_CS + sumvalid_IMEX + sumvalid_US
+
+                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerALL, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " ALL", createMailTextZugferd(sumTotal_Total, sumvalid_Total, sumInvalid_Total, "ALL"),, True, False)
+                End If
+
+            End If
+
+        End If
+
+
+
+
+        Return True
+
+
+    End Function
+
+    Private Function createMailTextZugferd(total As Integer, valid As Integer, invalid As Integer, Firma As String) As String
+
+        Dim MailText = "Auflistung der gültigen/ungültigen ZUGFeRD-Prüfungen vom " & Now.ToShortDateString & " für  " & Firma & " <br><br>"
+        MailText &= "<table border=1>"
+        MailText &= "<tr><td>Gültig</td><td>Ungültig</td><td>Gesamt</td></tr>"
+        MailText &= "<tr>"
+        MailText &= "<td><b>" & valid & "</b></td>"
+        MailText &= "<td><b>" & invalid & "</b></td>"
+        MailText &= "<td><b>" & total & "</b></td>"
+        MailText &= "</tr>"
+        MailText &= "</table>"
+        MailText &= "<br><br>Erstellt am: " & Now.ToShortDateString & " um " & Now.ToShortTimeString
+        MailText &= "<br><br>Automatisch generiertes E-Mail."
+
+        Return MailText
+
+    End Function
+
+    Private Sub Button32_Click_1(sender As Object, e As EventArgs) Handles Button32.Click
+
+        Dim sendNotificationEmails = False
+
+        Select Case MsgBox("Soll eine Info-Mail an die zuständigen Mitarbeiter geschickt werden?", vbYesNoCancel)
+            Case MsgBoxResult.Cancel : Exit Sub
+            Case MsgBoxResult.Yes : sendNotificationEmails = True
+            Case Else
+
+        End Select
+
+        checkZugferd(sendNotificationEmails)
+    End Sub
+End Class