Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

SDL/Fakturierung/cAutomailversand.vb

@@ -4,14 +4,16 @@ Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cAutomailversand
 
-    Sub sendMailSammelrechnung(Sammelrechnungsdatum As Date, SammelrechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
+    Sub sendMailSammelrechnung(_Rechnungsdatum As Date, SammelrechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
         Try
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
 
+            'BEI SAMMELRECHNUNG WIRD ZUERST INTERN DER STATUS AUF 2 GESETZT
+
             Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang
                                         LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr 
                                         INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz        
-	                                    WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Sammelrechnungsdatum.ToShortDateString & "'
+	                                    WHERE Rechnungsausgang.Status IN (2) and Rechnungsausgang.Automailversand_sent is null And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & SammelrechungArt & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & _Rechnungsdatum.ToShortDateString & "'
                                         and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
                                         GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU
                                         ORDER BY RechnungsLandKz, RechnungsKundenNr"
@@ -52,7 +54,7 @@ Public Class cAutomailversand
 
                 End If
 
-                SR_DT = cFakturierung.GET_SR_SQLDT(FirmaID, SammelrechungArt, Sammelrechnungsdatum, row.Item("RechnungsKundenNr"),,,,, True)
+                SR_DT = cFakturierung.GET_SR_SQLDT(FirmaID, SammelrechungArt, _Rechnungsdatum, row.Item("RechnungsKundenNr"),,,,, True)
 
                 Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(row.Item("RechnungsKundenNr"))
                 Dim FISKAL = New cFiskal_Daten(row.Item("RechnungsKundenNr"))
@@ -81,34 +83,8 @@ Public Class cAutomailversand
                 Dim MailtoCC As String = ""
                 Dim MailtoBCC As String = ""
 
-                If SammelrechungArt <> 6 Then
 
-
+                setEmpfaengerMail_SR(SR_DT, AD, MailTo, MailtoCC, MailtoBCC, FirmaID, SammelrechungArt)
-                    Dim email_receipt As String = ""
-
-                    Dim allAtilla = IIf(FirmaID = 7, True, False)
-                    If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
-                        For Each r In SR_DT.Rows
-                            If "4801" <> r("FilialenNr") And "4802" <> r("FilialenNr") Then
-                                allAtilla = False
-                                Exit For
-                            End If
-                        Next
-                    End If
-
-                    email_receipt = IIf(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "")
-
-                    MailTo = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
-                    MailtoCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
-                    MailtoBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
-
-                Else
-
-                    If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then MailTo &= AD.E_Mail & ";"
-                    If AD.E_Mail2 IsNot Nothing AndAlso AD.E_Mail2 <> "" Then MailTo &= AD.E_Mail2 & ";"
-
-
-                End If
 
                 'im TESTSYSTEM bewusst die Empfänger leeren!
 
@@ -148,7 +124,7 @@ Public Class cAutomailversand
                             TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True,,,,, True)
                             HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
 
-                            If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC) Then
+                            If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,,, FISKAL) Then
 
                             End If
 
@@ -166,17 +142,27 @@ Public Class cAutomailversand
     End Sub
 
 
-    Sub sendMailEinzelrechnungen(Rechnungsdatum As Date, FirmaID As Integer, Optional Sachbearbeiter As String = "", Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
+    Sub sendMailEinzelrechnungen(FirmaID As Integer, Rechnungsdatum As Date, Optional Sachbearbeiter As String = "", Optional RK_ID As List(Of Integer) = Nothing, Optional mailoeffnen As Boolean = True)
 
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
 
-        Dim rechnungenMailversand = "SELECT RechnungsNr,RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0) as keineMWST, max(Rechnungsausgang.[RechnungsLandKz]) as RechnungsLandKz, MitgliedslandEU, sum(Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Steuer FROM Rechnungsausgang
+        Dim SQL_RKID As String = ""
+
+        If RK_ID IsNot Nothing Then
+            If RK_ID.Count > 0 Then
+                SQL_RKID = " AND RK_ID IN (" & String.Join(",", RK_ID) & ")"
+            End If
+        End If
+
+        'BEI EINZELRECHNUNG WIRD STATUS 0 und 2 geprüft
+
+        Dim rechnungenMailversand = "SELECT RK_ID,RechnungsKundenNr,Rechnungsausgang.VermittlerKundenNr,Rechnungsausgang.RechnungsLandKz,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr,Rechnungsausgang.UnterNr, Rechnungsausgang.ErfassungsNr , Rechnungsausgang.SteuerpflichtigerGesamtbetrag AS Steuer FROM Rechnungsausgang
                                         LEFT JOIN tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr 
                                         INNER JOIN Währungstabelle on LandKz = Rechnungsausgang.RechnungsLandKz        
-	                                    WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
+	                                    WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & FirmaID & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) <= '" & Rechnungsdatum.ToShortDateString & "'
-                                        and isnull(Rechnungsausgang.Automailversand,0) = 1 and RechnungsNr > 0 " & IIf(KundenNr > 0, " AND RechnungsKundenNr = " & KundenNr, "") & "
+                                        and isnull(Rechnungsausgang.Automailversand,0) = 1  AND Automailversand_sent IS NULL " & IIf(Sachbearbeiter <> "", " AND Sachbearbeiter = '" & Sachbearbeiter & "'", "") & SQL_RKID & "
-                                        GROUP BY RechnungsNr, RechnungsKundenNr,isnull(tblKundenErweitert.kde_keineMWSt,0),RechnungsLandKz, MitgliedslandEU
+                                        
-                                        ORDER BY RechnungsLandKz, RechnungsKundenNr"
+                                        ORDER BY RechnungsLandKz, RechnungsKundenNr, Rechnungsausgang.Rechnungsdatum"
 
         Dim dt As DataTable = sql.loadDgvBySql(rechnungenMailversand, "FMZOLL")
         Try
@@ -187,6 +173,17 @@ Public Class cAutomailversand
                 Dim MailtoCC As String = ""
                 Dim MailtoBCC As String = ""
 
+                Dim FISKAL As cFiskal_Daten = Nothing
+
+
+                Dim AD As New cAdressen(r.Item("RechnungsKundenNr"))
+                Dim ATTACHMENTS As New List(Of cFakt_MailATTach)
+                Dim RECHNUNG As New cRechnungsausgang(r.Item("RK_ID"))
+                Dim SPEDBUCH As New cSpeditionsbuch(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, RECHNUNG.UnterNr)
+                FISKAL = New cFiskal_Daten(r.Item("RechnungsKundenNr"))
+
+
+                setEmpfaengerMail_ER(SPEDBUCH, AD, MailTo, MailtoCC, MailtoBCC, "")
 
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
                     MailTo = ""
@@ -196,12 +193,54 @@ Public Class cAutomailversand
                     MailtoBCC = setAccountToSend(FirmaID)
                 End If
 
+                If Not (MailTo = "" AndAlso MailtoCC = "" AndAlso MailtoBCC = "") Then
+
+
+                    Dim pathRG As String
+                    If Not cFakturierung.doRechnungsDruck(RECHNUNG, Rechnungsdatum,, 4, pathRG,, True) Then
+                        Continue For
+                    End If
+
+                    'EINZELBELEG ANFÜGEN
+                    If pathRG <> "" Then ATTACHMENTS.Add(New cFakt_MailATTach(pathRG, If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf")))
+
+                    Dim Mailsubject As String = ""
+                    Dim HTMLMail As String = ""
+
+                    Dim listPDFs As New List(Of String)
+                    Dim showError As Boolean = False
+                    setEmailText(r, FirmaID, RECHNUNG.RechnungsNr, Mailsubject, HTMLMail, RECHNUNG.Sammelrechnung, dt, RECHNUNG.BelegartenNr)
+
+                    loadAndSetAnhaenge(dt, ATTACHMENTS, listPDFs, RECHNUNG)
+
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Mailsubject &= " TEST"
+
+                    If mailoeffnen Then
+                        Dim Mail = createMail(Mailsubject, HTMLMail, ATTACHMENTS, MailTo, MailtoCC, MailtoBCC, FirmaID)
+                        If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum,,,,,,, Mail, RECHNUNG) Then
+                            Mail.Display()
+                        End If
+
+                    Else
+
+                        Dim TextHTML = ""
+                        TextHTML &= HTMLMail
+                        TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True,,,,, True)
+                        HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
+
+                        If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,, RECHNUNG, FISKAL, SPEDBUCH) Then
+
+                        End If
+
+                    End If
+
+                End If
+
 
             Next
 
         Catch ex As System.Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,,,)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,, "d.breimaier@verag.ag",,, setAccountToSend(FirmaID))
-
         End Try
 
     End Sub
@@ -212,14 +251,102 @@ Public Class cAutomailversand
         Dim Mailtext As String
 
 
-        If SammelrechungArt <> 6 Then
+        If SammelrechungArt <> 6 Then 'EINZELRECHNUNGEN  - MDM oder ANDERE
 
-            Subject = "VERAG Sammel-Rechnung"
+
-            TextHTML &= getSammelRgTExt(getSelectionLandKz(dt), Firma_ID)
+            Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(1, "", Firma_ID)
+
+            Dim spracheRechnung As String = "EN" 'Defaultsprache
+            Dim belegtyp As String = If(BelegartenNr = 71, "credit note", "invoice")
+
+            Select Case row.Item("RechnungsLandKz")
+                Case "TR" : spracheRechnung = "TR" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "Kredi", "Fatura")
+                Case "RO" : spracheRechnung = "RO" : spracheRechnung = row.Item("RechnungsLandKz") : belegtyp = If(BelegartenNr = 71, "nota de credit", "factura")
+                Case "DE", "A", "AT", "D", "CH" : spracheRechnung = "DE" : belegtyp = If(BelegartenNr = 71, "Gutschrift", "Rechnung")
+                Case "SRB", "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB" : belegtyp = If(BelegartenNr = 71, "credit note", "invoice") 'Belegarten auf Englisch!
+            End Select
+
+            If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then
+
+                Dim r As cTextkonserve = listOfTextconserven.LIST.Find(Function(c) c.txt_sprache = spracheRechnung)
+                If r IsNot Nothing Then
+                    Subject = r.txt_betreff
+                    Subject = Subject.Replace("%Belegtyp%", belegtyp)
+                    Subject = Subject.Replace("%BelegNr%", txtRgNr)
+
+                    TextHTML &= r.txt_text
+
+                    TextHTML = TextHTML.Replace("%Belegtyp%", belegtyp)
+
+                    If Firma_ID = 19 Then
+
+                        Dim KUNDE_ERW As New cKundenErweitert(row("RechnungsKundenNr"))
+
+                        If row.Item("FilialenNr") = 4817 AndAlso row.Item("ErfassungsNr") IsNot Nothing Then
+                            Dim SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(row.Item("FilialenNr"), row.Item("AbfertigungsNr"), row.Item("UnterNr"))
+                            If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
+                                Dim USTV_ANTRAG As New cUSTVAntrag(row.Item("ErfassungsNr"))
+
+                                If row("VermittlerKundenNr") = 150000 Or row("VermittlerKundenNr") = 140000 Or row("VermittlerKundenNr").ToString.Substring(0, 2) = 18 Then
+
+                                    replaceKZ("nichtRMC", TextHTML)
+                                    TextHTML = TextHTML.ToString.Replace("%RMC:", "") : TextHTML = TextHTML.ToString.Replace("RMC%", "")
+
+                                    replaceKZ("KZ1", TextHTML)
+                                    replaceKZ("KZ4", TextHTML)
+                                    TextHTML = TextHTML.ToString.Replace("%", "")
+
+                                Else
+
+                                    replaceKZ("RMC", TextHTML)
+                                    TextHTML = TextHTML.ToString.Replace("%nichtRMC:", "") : TextHTML = TextHTML.ToString.Replace("nichtRMC%", "")
+
+                                    If USTV_ANTRAG.UStVAn_Sicherheit Then
+                                        replaceKZ("KZ1", TextHTML)
+                                        TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "")
+
+                                    ElseIf KUNDE_ERW.kde_Erstattungsart = 4 Then
+                                        replaceKZ("KZ1", TextHTML)
+                                        TextHTML = TextHTML.ToString.Replace("%KZ4:", "") : TextHTML = TextHTML.ToString.Replace("%", "")
+
+                                    ElseIf KUNDE_ERW.kde_Erstattungsart = 1 Then
+                                        replaceKZ("KZ4", TextHTML)
+                                        TextHTML = TextHTML.ToString.Replace("%KZ1:", "") : TextHTML = TextHTML.ToString.Replace("%", "")
+
+                                    Else
+                                        replaceKZ("KZ1", TextHTML)
+                                        replaceKZ("KZ4", TextHTML)
+                                        TextHTML = TextHTML.ToString.Replace("%", "")
+                                    End If
+
+                                End If
+
+                                If Mailtext <> "" Then TextHTML &= Mailtext & vbNewLine
+
+
+                            End If
+
+                        Else
+                            'sonst alles weg!
+                            replaceKZ("nichtRMC", TextHTML)
+                            replaceKZ("RMC", TextHTML)
+                            replaceKZ("KZ1", TextHTML)
+                            replaceKZ("KZ4", TextHTML)
+                            TextHTML = TextHTML.ToString.Replace("%", "")
+
+
+                        End If
+
+                    End If
+
+                End If
+
+            End If
 
 
 
-        Else
+
+        ElseIf SammelrechungArt = 6 Then 'MDM-SAMMELRECHNUNGEN
 
 
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -310,68 +437,92 @@ Public Class cAutomailversand
 
     End Function
 
-    Private Sub loadAndSetAnhaenge(SR_DT As DataTable, ATTACHMENTS As List(Of cFakt_MailATTach), listPDFs As List(Of String))
+    Private Sub loadAndSetAnhaenge(SR_DT As DataTable, ATTACHMENTS As List(Of cFakt_MailATTach), listPDFs As List(Of String), Optional RECHNUNG As cRechnungsausgang = Nothing, Optional SPEDBUCH As cSpeditionsbuch = Nothing)
 
-        ATTACHMENTS.Clear()
-        'Rechnungsanhänge anfügen
 
         Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Attachment", ".pdf",, False, "Zusammenfassung")
 
+        'Rechnungsanhänge anfügen
 
         For Each l In listPDFs
-
             ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
-
         Next
-        '-----------------------------------------------------------------
-        If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
 
-            Dim myList As New List(Of String)
+        If RECHNUNG IsNot Nothing Then
 
-            For Each r As DataRow In SR_DT.Rows
+            '----------------------------------------------------------------- EINZELRECHNUNGEN------------------------------------------------
-                Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
-                If RG_ANH IsNot Nothing Then
 
-                    Dim FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
+            RECHNUNG.LOAD_ANHAENGE()
-
+            For Each ANH In RECHNUNG.ANHAENGE
-                    If FilialenNr = 4817 Then 'diese immer zusammenfassen!
+                ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
-
-                        For Each ANH In RG_ANH
-
-                            Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
-                            If Not (path.ToString.ToLower.Contains("sammelrechnung") OrElse path.ToString.Contains("Maut") OrElse path.ToString.Contains("POS") OrElse path.ToString.ToLower.Contains("invoice") OrElse path.ToString.ToLower.Contains("rechnung")) Then
-                                If path <> "" Then myList.Add(path)
-                            Else
-                                ATTACHMENTS.Add(New cFakt_MailATTach(path, ANH.Bezeichnung))
-                            End If
-
-                        Next
-                        If myList.Any() Then
-                            If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
-                                Dim fileInfo As New FileInfo(zielPfadZusammenfassung)
-                                ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, fileInfo.Name))
-                            End If
-                        End If
-                    Else
-                        For Each ANH In RG_ANH
-                            ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
-                        Next
-                    End If
-
-
-
-                End If
             Next
+
+            If SPEDBUCH IsNot Nothing Then
+
+                If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Versandschein.pdf"))
+
+                'AT
+                If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Mitteilung), "Abgabenbescheid.pdf"))
+                If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Verzollungsnachweis.pdf"))
+
+                'DE
+                If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
+                If SPEDBUCH.DokumentId_VBD IsNot Nothing Then ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_VBD), "Abgabenbescheid.pdf"))
+            End If
+
+
+        Else
+
+                '----------------------------------------------------------------- SAMMELRECHNUNGEN------------------------------------------------
+
+                If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+                'ATTACHMENTS.Clear()
+                Dim myList As New List(Of String)
+
+                For Each r As DataRow In SR_DT.Rows
+                    Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
+                    If RG_ANH IsNot Nothing Then
+
+                        Dim FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
+
+                        If FilialenNr = 4817 Then 'diese immer zusammenfassen!
+
+                            For Each ANH In RG_ANH
+
+                                Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
+                                If Not (path.ToString.ToLower.Contains("sammelrechnung") OrElse path.ToString.Contains("Maut") OrElse path.ToString.Contains("POS") OrElse path.ToString.ToLower.Contains("invoice") OrElse path.ToString.ToLower.Contains("rechnung")) Then
+                                    If path <> "" Then myList.Add(path)
+                                Else
+                                    ATTACHMENTS.Add(New cFakt_MailATTach(path, ANH.Bezeichnung))
+                                End If
+
+                            Next
+                            If myList.Any() Then
+                                If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
+                                    Dim fileInfo As New FileInfo(zielPfadZusammenfassung)
+                                    ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, fileInfo.Name))
+                                End If
+                            End If
+                        Else
+                            For Each ANH In RG_ANH
+                                ATTACHMENTS.Add(New cFakt_MailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                            Next
+                        End If
+
+
+
+                    End If
+                Next
+            End If
+
+
         End If
 
 
-        '-----------------------------------------------------------------
-
-
     End Sub
 
 
-    Private Function setLog(SR_DT As DataTable, row As DataRow, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, Optional ATTACHMENTS As List(Of cFakt_MailATTach) = Nothing, Optional Mailsubject As String = "", Optional Mailhtml As String = "", Optional MailTo As String = "", Optional MailtoCC As String = "", Optional MailtoBCC As String = "", Optional Mail As Microsoft.Office.Interop.Outlook.MailItem = Nothing) As Boolean
+    Private Function setLog(SR_DT As DataTable, row As DataRow, FirmaID As Integer, Sammelrechnungsart As Integer, Rechnungsdatum As Date, Optional ATTACHMENTS As List(Of cFakt_MailATTach) = Nothing, Optional Mailsubject As String = "", Optional Mailhtml As String = "", Optional MailTo As String = "", Optional MailtoCC As String = "", Optional MailtoBCC As String = "", Optional Mail As Microsoft.Office.Interop.Outlook.MailItem = Nothing, Optional RECHNUNG As cRechnungsausgang = Nothing, Optional FISKAL As cFiskal_Daten = Nothing, Optional SPEDBUCH As cSpeditionsbuch = Nothing) As Boolean
 
 
         Dim accountToSend = setAccountToSend(FirmaID)
@@ -406,17 +557,28 @@ Public Class cAutomailversand
 
         Dim AbfertigungsNr As Integer
         Dim FilialenNr As Integer
+        Dim UnterNr As Integer
 
-        If SR_DT.Rows.Count > 0 Then
+        If SPEDBUCH IsNot Nothing Then
-            For Each r As DataRow In SR_DT.Rows
+            FilialenNr = SPEDBUCH.FilialenNr
-                AbfertigungsNr = IIf(Not IsDBNull(r.Item("AbfertigungsNr")) AndAlso IsNumeric(r.Item("AbfertigungsNr")), CInt(r.Item("AbfertigungsNr")), 0)
+            AbfertigungsNr = SPEDBUCH.AbfertigungsNr
-                FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
+            UnterNr = SPEDBUCH.UnterNr
-            Next
 
+        Else
+
+
+            If SR_DT.Rows.Count > 0 Then
+                For Each r As DataRow In SR_DT.Rows
+                    AbfertigungsNr = IIf(Not IsDBNull(r.Item("AbfertigungsNr")) AndAlso IsNumeric(r.Item("AbfertigungsNr")), CInt(r.Item("AbfertigungsNr")), 0)
+                    FilialenNr = IIf(Not IsDBNull(r.Item("FilialenNr")) AndAlso IsNumeric(r.Item("FilialenNr")), CInt(r.Item("FilialenNr")), 0)
+                Next
+
+            End If
         End If
 
 
 
+
         Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "SAMMELRECHNUNG_" & FirmaID,,, row.Item("RechnungsKundenNr"), , , FilialenNr, AbfertigungsNr)
 
         API.api_EMail = EMails
@@ -429,6 +591,23 @@ Public Class cAutomailversand
         If Mail IsNot Nothing Then
 
             API.UPDTAE_OK()
+
+            If RECHNUNG IsNot Nothing Then ' EINZELRECHNUNG
+                RECHNUNG.Automailversand_sent = Now()
+                RECHNUNG.SAVE()
+
+            Else
+                '  'Bei erfolg. SAMMELRECHNUNG SENT-STATUS setzen
+                sql.doSQL("update Rechnungsausgang set Automailversand_sent = getDate()  where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
+                                        And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0  And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4 And Automailversand_sent is null", "FMZOLL")
+
+            End If
+
+            '---------------------TODO ! ----------------------------
+            createMailFISKAL(SPEDBUCH, FISKAL, True, FirmaID, row.Item("RechnungsKundenNr"), row.Item("RechnungsLandKz"))
+            '---------------------TODO ! ----------------------------
+
+
             mailcreated = True
         Else
 
@@ -446,74 +625,47 @@ Public Class cAutomailversand
 
             If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then
                 API.UPDTAE_OK()
+
+                If RECHNUNG IsNot Nothing Then
+                    RECHNUNG.Automailversand_sent = Now()
+                    RECHNUNG.SAVE()
+
+                Else
+                    sql.doSQL("update Rechnungsausgang set Automailversand_sent = getDate()  where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
+                                        And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0  And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4 And Automailversand_sent is null", "FMZOLL")
+                End If
+
+                '---------------------TODO ! ----------------------------
+                createMailFISKAL(SPEDBUCH, FISKAL, False, FirmaID, row.Item("RechnungsKundenNr"), row.Item("RechnungsLandKz"))
+                '---------------------TODO ! ----------------------------
+
                 mailcreated = True
             Else
                 API.UPDTAE_ERR()
-                sql.doSQL("update Rechnungsausgang set Status = 2 where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
+
+                'Bei  FEHLER EINZELRECHNUNG VON STATUS 4 auf 2 zurücksetzen!
+
+                If RECHNUNG IsNot Nothing Then
+                    RECHNUNG.Automailversand_sent = Nothing
+                    RECHNUNG.Status = 2
+                    RECHNUNG.SAVE()
+                Else
+                    'Bei  FEHLER SAMMELRECHNUNG VON STATUS 4 auf 2 zurücksetzen!
+                    sql.doSQL("update Rechnungsausgang set Status = 2, Automailversand_sent = NULL  where Rechnungsausgang.Firma_ID = '" & FirmaID & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechnungsart & "' And CONVERT(DATE,Rechnungsausgang.Rechnungsdatum,104) = '" & Rechnungsdatum.ToShortDateString & "'
                                         And isnull(Rechnungsausgang.Automailversand,0) = 1 And RechnungsNr > 0  And RechnungsKundenNr = " & row.Item("RechnungsKundenNr") & " And Status = 4", "FMZOLL")
+                End If
 
                 Return mailcreated
 
             End If
 
 
-
-
         End If
 
         Return mailcreated
 
     End Function
 
-    Function getSammelRgTExt(RechnungsLandKz, FIRMA_ID) As String
-
-        If RechnungsLandKz = "" Then
-
-            getSammelRgTExt = "Sehr geehrte Damen und Herren,<br>"
-            getSammelRgTExt &= "Dear Ladies and Gentlemen,<br>"
-            getSammelRgTExt &= "Sayin Bayanlar ve Baylar,<br>"
-            getSammelRgTExt &= "<br>"
-            getSammelRgTExt &= "im Anhang senden wir Ihnen die o.g. Rechnung.<br>"
-            getSammelRgTExt &= "attached we send you the invoice mentioned above.<br>"
-            getSammelRgTExt &= "ekte baslikta yazan faturayi bulabilirsinz.<br>"
-            getSammelRgTExt &= "<br>"
-            getSammelRgTExt &= "<br><br><br>Mit freundlichen Grüßen / Best regards / Saygilarimizla<br><br>VERAG Spedition AG<br><br>" & cFakturierung.getSignature(RechnungsLandKz, FIRMA_ID)
-            Return "<div style=""font-family:Calibri, Arial"">" & getSammelRgTExt & "</div>"
-        End If
-
-
-
-        getSammelRgTExt = "<div style=""font-family:Calibri, Arial"">" & getSammelRgTExt & "</div>"
-    End Function
-
-    Function getSelectionLandKz(dt As DataTable) As String
-        getSelectionLandKz = ""
-        If dt.Rows.Count > 0 Then
-
-            If dt.Rows.Count > 0 Then
-
-                For Each r As DataRow In dt.Rows
-
-                    If Not IsDBNull(r("RechnungsLandKz")) Then
-
-                        Dim landKz As String = r("RechnungsLandKz").ToString()
-
-                        If getSelectionLandKz = "" Then
-                            getSelectionLandKz = landKz
-                        ElseIf getSelectionLandKz <> landKz Then
-                            Return ""
-                        End If
-
-                    End If
-
-                Next
-
-            End If
-        End If
-
-
-    End Function
-
     Private Function setAccountToSend(FIRMA_ID) As String
         Dim accountToSend = ""
 
@@ -589,4 +741,306 @@ Public Class cAutomailversand
 
 
     End Function
+
+    Public Shared Function automRechnungsversand_deaktivieren(Optional isEinzelrechnung As Boolean = False)
+
+        Dim RE_Text = ""
+
+        If isEinzelrechnung Then
+            RE_Text = "diese Rechnung"
+        Else
+            RE_Text = "alle markieren Rechnungen"
+        End If
+
+        If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand deaktivieren?" & vbNewLine & "Die Rechnungen müssen dann manuell per Mail verschickt werden!", vbYesNoCancel) Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+
+    Public Shared Function automRechnungsversand_aktivieren(Optional isEinzelrechnung As Boolean = False)
+
+        Dim RE_Text = ""
+
+        If isEinzelrechnung Then
+            RE_Text = "diese Rechnung"
+        Else
+            RE_Text = "alle markieren Rechnungen"
+        End If
+
+        If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+
+    Public Shared Function automRechnungsversand_durchführen(Optional isEinzelrechnung As Boolean = False)
+
+        Dim RE_Text = ""
+
+        If isEinzelrechnung Then
+            RE_Text = "diese Rechnung"
+        Else
+            RE_Text = "alle markieren Rechnungen"
+        End If
+
+        If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand JETZT durchführen?" & vbNewLine & "Ansonsten werden sie im Nachtlauf automatisch versendet!", vbYesNoCancel) Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+
+    Private Sub replaceKZ(KZ As String, ByRef TextHTML As String)
+
+        If TextHTML = "" Then Exit Sub
+
+        Dim index_start As Integer = TextHTML.ToString.IndexOf("%" & KZ & ":")
+        If index_start < 0 Then Exit Sub
+        Dim txtKZ = TextHTML.ToString.Substring(index_start)
+        Dim index_end As Integer = txtKZ.ToString.IndexOf("%", 1)
+
+        If index_start <= 0 AndAlso index_end <= 0 Then
+            Exit Sub
+        End If
+
+        Dim txtKZ_replace As String = TextHTML.ToString.Substring(index_start, index_end)
+        TextHTML = TextHTML.ToString.Replace(txtKZ_replace, "")
+
+
+    End Sub
+
+
+    Private Function createMailFISKAL(SPEDBUCH As cSpeditionsbuch, FISKAL As cFiskal_Daten, showMail As Boolean, FirmaID As Integer, kundenNr As Integer, RechnungsLandKz As String) As Boolean
+
+        Dim MailSteuerberater As String = ""
+        Dim MailFA As String = ""
+
+        Dim MailSteuerberater_do As Boolean = False
+        Dim MailFA_do As Boolean = False
+
+        Dim Subject As String = ""
+        Dim TextHTML As String = ""
+
+        Dim MailTo As String = ""
+        Dim MailCC As String = ""
+
+        If FISKAL IsNot Nothing AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart IsNot Nothing AndAlso IsNumeric(SPEDBUCH.Abfertigungsart) AndAlso (SPEDBUCH.Abfertigungsart = 26 Or SPEDBUCH.Abfertigungsart = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then 'Prüfung 
+            MailSteuerberater_do = (If(FISKAL.fisk_schreibenSB_Mail, "") <> "")
+            MailSteuerberater = If(FISKAL.fisk_schreibenSB_Mail, "")
+            MailFA_do = (If(FISKAL.fisk_schreibenFA_Mail, "") <> "")
+            MailFA = If(FISKAL.fisk_schreibenFA_Mail, "")
+        End If
+
+
+
+        If MailSteuerberater_do Or MailFA_do Then
+
+            If MailSteuerberater <> "" Then
+                MailTo = MailSteuerberater
+                MailCC = MailFA
+            Else
+                MailTo = MailFA
+            End If
+
+            Dim AD As New cAdressen(kundenNr)
+            Dim KD As New cKunde(kundenNr)
+            Dim Sprache As String = "EN"
+            Dim attachList As New List(Of String)
+
+            Subject = "Meldung innergemeinschaftlicher Erwerb - " & AD.Ordnungsbegriff
+
+            Select Case RechnungsLandKz
+                Case "A", "AT", "D", "DE", "CH" : Sprache = "DE"
+            End Select
+
+            Select Case Sprache
+                Case "DE"
+
+                    TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
+                    TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
+                    TextHTML &= "<tr><td>UID-Nr.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
+                    TextHTML &= "<tr><td>Firma:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
+                    TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
+                    TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
+                    TextHTML &= "</table></b>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "Sehr geehrte Damen & Herren!" & "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "Wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender" & "<br>"
+                    TextHTML &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben." & "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden." & "<br>"
+                    TextHTML &= "<br><br>"
+                    TextHTML &= "Freundliche Grüße"
+                    TextHTML &= "<br><br>"
+
+                Case "EN"
+
+                    TextHTML &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
+                    TextHTML &= "<tr><td>EORI-Nr.:</td><td>" & If(KD.EORITIN, "") & "</td></tr>"
+                    TextHTML &= "<tr><td>VAT-ID.:</td><td>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</td></tr>"
+                    TextHTML &= "<tr><td>Company:</td><td>" & If(AD.Name_1, "") & If(AD.Name_2, "") & "</td></tr>"
+                    TextHTML &= "<tr><td></td><td>" & If(AD.Straße, "") & "</td></tr>"
+                    TextHTML &= "<tr><td></td><td>" & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & "</td></tr>"
+                    TextHTML &= "</table></b>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "Dear Sir or Madam!" & "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "We would like to inform you, that we made the customs clearance and subsequent intra-community supply of goods for the company above-mentioned (Code 4200).<br>"
+                    TextHTML &= "The documents are attached." & "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "This intra-community acquisition has to be reported to the tax office." & "<br>"
+                    TextHTML &= "<br><br>"
+                    TextHTML &= "Yours faithfully,"
+                    TextHTML &= "<br><br>"
+
+            End Select
+
+
+
+            If showMail Then
+
+                Dim outl As New Outlook.Application
+                Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem
+                Mail_StbFA = outl.CreateItem(0)
+                Mail_StbFA.Subject = Subject
+
+                If FirmaID = 24 Then Mail_StbFA.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR",, True)
+
+
+                TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID,,,, "")
+                TextHTML &= "</div>"
+
+                Mail_StbFA.HTMLBody = TextHTML
+
+
+                Mail_StbFA.To = MailTo
+                Mail_StbFA.CC = MailCC
+
+                ''-----------------------------------------------------------------
+                ''Steuerbescheid anfügen
+                ''-----------------------------------------------------------------
+                'getAnhaenge(False)
+
+                ''Anhang an Mail anfügen
+                ''-----------------------------------------------------------------
+                'addAttachments(Mail_StbFA, RechnungsNr, cbxMergePDF.Checked)
+                ''-----------------------------------------------------------------
+
+
+                Mail_StbFA.Display()
+
+            Else
+                Dim accountToSend = setAccountToSend(FirmaID)
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend))
+
+                ''-----------------------------------------------------------------
+                ''Steuerbescheid anfügen
+                ''-----------------------------------------------------------------
+                'getAnhaenge(False)
+
+                ''Anhang an Mail anfügen
+                ''-----------------------------------------------------------------
+                'addAttachments(Mail_StbFA, RechnungsNr, cbxMergePDF.Checked)
+                ''-----------------------------------------------------------------
+
+
+            End If
+
+
+
+
+
+        End If
+
+
+
+
+
+
+
+
+
+    End Function
+
+    Private Function setEmpfaengerMail_ER(SPEDBUCH As cSpeditionsbuch, AD As cAdressen, EMAILTMP As String, EMAILTMPCC As String, EMAILTMPBCC As String, email_receipt As String)
+
+
+        If SPEDBUCH IsNot Nothing Then
+            Dim IMPEXP = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("isnull(IMEX,'')", "Aviso", "AvisoId='" & SPEDBUCH.AvisoID & "'", "AVISO")
+            Select Case IMPEXP
+                Case "IMPORT"
+                    If VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an IMPORT") <> "" Then
+                        EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an IMPORT"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+
+                        EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an IMPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+                        EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an IMPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+                    End If
+                Case "EXPORT"
+                    If VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an EXPORT") <> "" Then
+                        EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an EXPORT"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+
+                        EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an EXPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+                        EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an EXPORT"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+                    End If
+            End Select
+        End If
+
+
+        'wenn leere Mailadressen, dann Standardadresse holen
+        If EMAILTMP = "" And EMAILTMPCC = "" And EMAILTMPBCC = "" Then
+            EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+
+            EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+            EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+
+        End If
+
+    End Function
+
+    Private Function setEmpfaengerMail_SR(SR_DT As DataTable, AD As cAdressen, EMAILTMP As String, EMAILTMPCC As String, EMAILTMPBCC As String, FirmaID As Integer, SammelrechungArt As String)
+
+        If SammelrechungArt <> 6 Then
+
+
+            Dim email_receipt As String = ""
+
+            Dim allAtilla = IIf(FirmaID = 7, True, False)
+            If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+                For Each r In SR_DT.Rows
+                    If "4801" <> r("FilialenNr") And "4802" <> r("FilialenNr") Then
+                        allAtilla = False
+                        Exit For
+                    End If
+                Next
+            End If
+
+            email_receipt = IIf(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "")
+
+            EMAILTMP = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"), email_receipt) 'VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+            EMAILTMPCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+            EMAILTMPBCC = IIf(email_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"), VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+
+        Else
+
+            If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then EMAILTMP &= AD.E_Mail & ";"
+            If AD.E_Mail2 IsNot Nothing AndAlso AD.E_Mail2 <> "" Then EMAILTMP &= AD.E_Mail2 & ";"
+
+
+        End If
+
+    End Function
+
+
 End Class

SDL/Fakturierung/cFakturierung.vb

@@ -794,6 +794,8 @@ Public Class cFakturierung
                 rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
                 rpt.txtBank3.Visible = True
 
+                rpt.txtBank2.Visible = False 'soll beim AMBAR ausgeblendet werden (Laut I.Ordu am 27.03.2026)
+
                 'Änderung Ticket_Nr.: 6983
                 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim
                 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim 
@@ -1013,6 +1015,8 @@ Public Class cFakturierung
                 rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
                 rpt.txtBank3.Visible = True
 
+                rpt.txtBank2.Visible = False 'soll beim AMBAR ausgeblendet werden (Laut I.Ordu am 27.03.2026)
+
                 'Änderung Ticket_Nr.: 6983
                 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim
                 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim 
@@ -1122,6 +1126,9 @@ Public Class cFakturierung
                 rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim
                 rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall")
 
+
+                rpt.txtBank2.Visible = False 'soll beim AMBAR ausgeblendet werden (Laut I.Ordu am 27.03.2026)
+
             Case 20 '"IMEX"
                 If RechnungsLandKz = "TR" Then
                     '     rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -1971,9 +1978,9 @@ Public Class cFakturierung
                             End If
                         End If
                         If Rechnung.ANHAENGE.Count > 0 AndAlso Not (Rechnung.Firma_ID = 1 Or Rechnung.Firma_ID = 20) Then
-                            If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                            'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                printRGAnhaenge(Rechnung)
+                            '    printRGAnhaenge(Rechnung)
-                            End If
+                            'End If
                         End If
 
                         Return ret
@@ -2031,9 +2038,9 @@ Public Class cFakturierung
                                 End If
                                 If Rechnung.ANHAENGE.Count > 0 Then
                                     'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt!
-                                    If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                    'If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                        printRGAnhaenge(Rechnung)
+                                    '    printRGAnhaenge(Rechnung)
-                                    End If
+                                    'End If
                                 End If
                             End If
 
@@ -2917,9 +2924,9 @@ Public Class cFakturierung
                         End If
                     End If
                     If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then
-                        If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                        'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                            printRGAnhaenge(RECHNUNG)
+                        '    printRGAnhaenge(RECHNUNG)
-                        End If
+                        'End If
                     End If
 
                     Return ret
@@ -2970,9 +2977,9 @@ Public Class cFakturierung
                             End If
                             If RECHNUNG.ANHAENGE.Count > 0 Then
                                 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt!
-                                If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                    printRGAnhaenge(RECHNUNG)
+                                '    printRGAnhaenge(RECHNUNG)
-                                End If
+                                'End If
                             End If
                         End If
 
@@ -4851,7 +4858,7 @@ Public Class cFakturierung
 
             Dim ROW As DataRow = IIf(dt.Rows.Count > 0, dt.Rows(0), Nothing)
 
-            Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"))
+            Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"), ROW("Firma_ID"))
 
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
             Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
@@ -5749,7 +5756,7 @@ Public Class cFakturierung
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(firmaID)
             Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
 
-            Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"))
+            Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"), firmaID)
 
             If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False
 
@@ -6211,10 +6218,12 @@ Public Class cFakturierung
         Return ""
     End Function
 
-    Shared Function checkIfMDMSammelrechnung(Rechnungsdruck As Integer, Status As Integer)
+    Shared Function checkIfMDMSammelrechnung(Rechnungsdruck As Integer, Status As Integer, Firma_ID As Integer)
 
         'If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4)) Then Return True
 
+        If Firma_ID <> 19 Then Return False
+
         If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 8 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 3 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 2 AndAlso (Status = 2 Or Status = 4)) Then Return True
 
         Return False

SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb

@@ -88,6 +88,7 @@ Partial Class frmAbrechnungsMaske
         Me.btnVonJahr = New System.Windows.Forms.Button()
         Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.btn_doMailAutoversand = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
@@ -200,6 +201,7 @@ Partial Class frmAbrechnungsMaske
         'Panel2
         '
         Me.Panel2.BackColor = System.Drawing.Color.White
+        Me.Panel2.Controls.Add(Me.btn_doMailAutoversand)
         Me.Panel2.Controls.Add(Me.Button11)
         Me.Panel2.Controls.Add(Me.cbxOriginalDrucken)
         Me.Panel2.Controls.Add(Me.cboSort)
@@ -231,7 +233,7 @@ Partial Class frmAbrechnungsMaske
         Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button11.Location = New System.Drawing.Point(220, 21)
+        Me.Button11.Location = New System.Drawing.Point(214, 21)
         Me.Button11.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
         Me.Button11.Name = "Button11"
         Me.Button11.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
@@ -269,9 +271,9 @@ Partial Class frmAbrechnungsMaske
         Me.cboPrinter._value = ""
         Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboPrinter.FormattingEnabled = True
-        Me.cboPrinter.Location = New System.Drawing.Point(142, 52)
+        Me.cboPrinter.Location = New System.Drawing.Point(133, 52)
         Me.cboPrinter.Name = "cboPrinter"
-        Me.cboPrinter.Size = New System.Drawing.Size(157, 21)
+        Me.cboPrinter.Size = New System.Drawing.Size(200, 21)
         Me.cboPrinter.TabIndex = 25
         '
         'Button9
@@ -280,7 +282,7 @@ Partial Class frmAbrechnungsMaske
         Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button9.Location = New System.Drawing.Point(142, 21)
+        Me.Button9.Location = New System.Drawing.Point(136, 21)
         Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
         Me.Button9.Name = "Button9"
         Me.Button9.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
@@ -295,7 +297,7 @@ Partial Class frmAbrechnungsMaske
         Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button8.Location = New System.Drawing.Point(181, 21)
+        Me.Button8.Location = New System.Drawing.Point(175, 21)
         Me.Button8.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
         Me.Button8.Name = "Button8"
         Me.Button8.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
@@ -310,7 +312,7 @@ Partial Class frmAbrechnungsMaske
         Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button7.Location = New System.Drawing.Point(259, 21)
+        Me.Button7.Location = New System.Drawing.Point(253, 21)
         Me.Button7.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
         Me.Button7.Name = "Button7"
         Me.Button7.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
@@ -347,7 +349,7 @@ Partial Class frmAbrechnungsMaske
         Me.btnWiederholeRgDruck.BackgroundImage = Global.SDL.My.Resources.Resources.print_rg
         Me.btnWiederholeRgDruck.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btnWiederholeRgDruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnWiederholeRgDruck.Location = New System.Drawing.Point(388, 9)
+        Me.btnWiederholeRgDruck.Location = New System.Drawing.Point(406, 9)
         Me.btnWiederholeRgDruck.Name = "btnWiederholeRgDruck"
         Me.btnWiederholeRgDruck.Size = New System.Drawing.Size(53, 36)
         Me.btnWiederholeRgDruck.TabIndex = 11
@@ -356,7 +358,7 @@ Partial Class frmAbrechnungsMaske
         'Label4
         '
         Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label4.Location = New System.Drawing.Point(381, 46)
+        Me.Label4.Location = New System.Drawing.Point(399, 46)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(67, 26)
         Me.Label4.TabIndex = 12
@@ -391,7 +393,7 @@ Partial Class frmAbrechnungsMaske
         Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.moneybag1
         Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(329, 9)
+        Me.Button3.Location = New System.Drawing.Point(347, 9)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(53, 36)
         Me.Button3.TabIndex = 9
@@ -400,7 +402,7 @@ Partial Class frmAbrechnungsMaske
         'Label3
         '
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label3.Location = New System.Drawing.Point(326, 46)
+        Me.Label3.Location = New System.Drawing.Point(344, 46)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(56, 26)
         Me.Label3.TabIndex = 10
@@ -974,6 +976,21 @@ Partial Class frmAbrechnungsMaske
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
+        'btn_doMailAutoversand
+        '
+        Me.btn_doMailAutoversand.BackgroundImage = Global.SDL.My.Resources.Resources.zauberstab
+        Me.btn_doMailAutoversand.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn_doMailAutoversand.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_doMailAutoversand.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btn_doMailAutoversand.Location = New System.Drawing.Point(293, 21)
+        Me.btn_doMailAutoversand.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btn_doMailAutoversand.Name = "btn_doMailAutoversand"
+        Me.btn_doMailAutoversand.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
+        Me.btn_doMailAutoversand.Size = New System.Drawing.Size(40, 25)
+        Me.btn_doMailAutoversand.TabIndex = 29
+        Me.btn_doMailAutoversand.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btn_doMailAutoversand.UseVisualStyleBackColor = True
+        '
         'frmAbrechnungsMaske
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1067,4 +1084,5 @@ Partial Class frmAbrechnungsMaske
     Friend WithEvents PictureBox5 As PictureBox
     Friend WithEvents lblKunde As Label
     Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents btn_doMailAutoversand As Button
 End Class

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -1,5 +1,8 @@
 Imports System.IO
+Imports com.sun.tools.javac.comp
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmAbrechnungsMaske
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -38,6 +41,7 @@ Public Class frmAbrechnungsMaske
         cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FAX", "1"))
         cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E-MAIL", "2"))
         cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL+KOPIE", "5"))
+        cboRechnungsdruck.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AUTO-MAIL", "6"))
         cboRechnungsdruck.changeItem("")
 
         cboSort.Items.Clear()
@@ -181,7 +185,11 @@ Public Class frmAbrechnungsMaske
         Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV()
 
         Dim reNrSQL As String = ""
-        If cbx.Checked Then reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, "
+        If cbx.Checked Then
+            reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr,cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, "
+        Else
+            reNrSQL = " cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, "
+        End If
 
 
         With dgv
@@ -221,25 +229,37 @@ Public Class frmAbrechnungsMaske
                 .Columns("BelegartenKz").Visible = False
                 .Columns("PosNr").HeaderText = "Pos-Nr."
 
-                If cbx.Checked Then .Columns("ReNr").HeaderText = "ReNr."
+                If .Columns.Contains("ReNr") Then
-
+                    .Columns("ReNr").HeaderText = "ReNr."
-                .Columns("UnterNr").Width = 35
-                .Columns("Art").Width = 30
-                .Columns("Betrag").Width = 100
-                .Columns("Rechnungsempfänger").MinimumWidth = 150
-                .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-
-                If Not cbxGutschriftenAnVerag.Checked Then
-                    .Columns("Rechnungsdruck").Width = 60
-                    .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
-                    .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                 End If
 
+                If .Columns.Contains("AUTO_sent") Then
+                    .Columns("AUTO_sent").HeaderText = "gesen."
+                    .Columns("AUTO_sent").Width = 40
+                    If cboRechnungsdruck._value <> "6" Then
+                        .Columns("AUTO_sent").Visible = False
+                    Else
+                        .Columns("AUTO_sent").Visible = True
+                    End If
+                End If
 
-                .Columns("Betrag").DefaultCellStyle.Format = "C2"
+                .Columns("UnterNr").Width = 35
-            End If
+                    .Columns("Art").Width = 30
+                    .Columns("Betrag").Width = 100
+                    .Columns("Rechnungsempfänger").MinimumWidth = 150
+                    .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-            If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
+                    If Not cbxGutschriftenAnVerag.Checked Then
+                        .Columns("Rechnungsdruck").Width = 60
+                        .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
+                        .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                    End If
+
+
+                    .Columns("Betrag").DefaultCellStyle.Format = "C2"
+                End If
+
+                If cboFirma._value <> "" AndAlso cboFirma._value = "19" Then
 
                 For Each r In .Rows
 
@@ -269,15 +289,19 @@ Public Class frmAbrechnungsMaske
     Function getRGWhere(filterSR As String, Optional filialenNr As Integer = -1)
         Dim sqlstr = ""
         Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+        Dim enableAUTOMAIL As Boolean = True
+        Dim enableAUTOMAIL_BTN As Boolean = False
+
         srchSB = cboSachbearbeiter._value
 
         If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = 24 Then Return sqlstr
 
         Select Case filterSR
             Case "ER" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (0) "
-            Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) "
+            Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) " : enableAUTOMAIL = False
-            Case "MSR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (6) "
+            Case "MSR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (6) " : enableAUTOMAIL = False
-            Case Else : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (6)  "
+            Case Else : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (6)  " : enableAUTOMAIL = False
         End Select
 
 
@@ -287,6 +311,7 @@ Public Class frmAbrechnungsMaske
 
 
         If cbx.Checked Then
+            enableAUTOMAIL = False
             'sqlstr &= " AND Status = 0 "
             sqlstr &= " AND DruckDatumZeit BETWEEN '" & txtAbfertDat._value & " 00:00:00' AND '" & txtAbfertDatBis._value & " 23:59:59'"
             sqlstr &= IIf(filterSR = "MSR", " And (Status = 4)", "")
@@ -303,14 +328,22 @@ Public Class frmAbrechnungsMaske
         End If
 
         If cboRechnungsdruck._value <> "" Then
-            sqlstr &= " And Rechnungsdruck='" & cboRechnungsdruck._value & "' "
+            Select Case cboRechnungsdruck._value
+                Case 6 : sqlstr &= " And isnull(Automailversand,0)=1 " : enableAUTOMAIL_BTN = True
+                Case 2, 5 : sqlstr &= " And Rechnungsdruck='" & cboRechnungsdruck._value & "' "
+                Case Else
+                    sqlstr &= " And Rechnungsdruck='" & cboRechnungsdruck._value & "' " : enableAUTOMAIL = False
+            End Select
+        Else
+            enableAUTOMAIL = False
         End If
         If srchSB <> "" Then sqlstr &= " And Rechnungsausgang.Sachbearbeiter='" & srchSB & "' "
         If cboFirma._value <> "" Then sqlstr &= " AND Rechnungsausgang.Firma_ID=" & cboFirma._value & " "
 
         If KdSearchBox1.KdNr_value > 0 Then sqlstr &= " AND Rechnungsausgang.RechnungsKundenNr=" & KdSearchBox1.KdNr_value & " "
 
-
+        UsrCntlFaktAbrechnung1.cbxAUTOMailversand.Enabled = enableAUTOMAIL
+        btn_doMailAutoversand.Visible = enableAUTOMAIL_BTN AndAlso enableAUTOMAIL
 
         '  sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)"
         Return sqlstr
@@ -930,4 +963,29 @@ Public Class frmAbrechnungsMaske
         Process.Start(webAddress)
     End Sub
 
+    Private Sub btn_doMailAutoversand_Click(sender As Object, e As EventArgs) Handles btn_doMailAutoversand.Click
+
+
+        If dgvRechnungen.SelectedRows.Count > 0 Then
+
+            If Not cAutomailversand.automRechnungsversand_durchführen Then Exit Sub
+
+            Dim ListOfRK_ID As New List(Of Integer)
+
+            For Each row As DataGridViewRow In dgvRechnungen.SelectedRows
+
+                If Not IsDBNull(row.Cells("RK_ID").Value) AndAlso IsNumeric(row.Cells("RK_ID").Value) Then
+                    ListOfRK_ID.Add(CInt(row.Cells("RK_ID").Value))
+                End If
+
+            Next
+
+            Dim fun As New cAutomailversand
+            fun.sendMailEinzelrechnungen(cboFirma._value, Today(), cboSachbearbeiter._value, ListOfRK_ID)
+            initDGV()
+
+        End If
+
+
+    End Sub
 End Class

SDL/Fakturierung/frmFaktEmail.vb

@@ -723,11 +723,6 @@ Public Class frmFaktEmail
                         Exit Sub
                     End If
 
-                    'If Not RECHNUNG.checkRechnungsNrIsSet() Then
-                    '    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
-                    '    Exit Sub
-                    'End If
-
                     RechnungsNr = RECHNUNG.RechnungsNr
 
                     If cbxRgKopieDrucken.Checked Then

SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb

@@ -73,6 +73,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.btnKeine = New System.Windows.Forms.Button()
         Me.lblAbfertigungsarten = New System.Windows.Forms.Label()
         Me.btnNurExport = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         Me.pnlAUTOMailversand.SuspendLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -656,7 +657,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.MyListBox1.Location = New System.Drawing.Point(836, 93)
         Me.MyListBox1.Name = "MyListBox1"
         Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
-        Me.MyListBox1.Size = New System.Drawing.Size(225, 342)
+        Me.MyListBox1.Size = New System.Drawing.Size(225, 316)
         Me.MyListBox1.TabIndex = 44
         '
         'btnKeine
@@ -675,9 +676,9 @@ Partial Class frmFaktSammelRgDrucken
         Me.lblAbfertigungsarten.AutoSize = True
         Me.lblAbfertigungsarten.Location = New System.Drawing.Point(833, 77)
         Me.lblAbfertigungsarten.Name = "lblAbfertigungsarten"
-        Me.lblAbfertigungsarten.Size = New System.Drawing.Size(93, 13)
+        Me.lblAbfertigungsarten.Size = New System.Drawing.Size(97, 13)
         Me.lblAbfertigungsarten.TabIndex = 43
-        Me.lblAbfertigungsarten.Text = "Abfertigungsarten:"
+        Me.lblAbfertigungsarten.Text = "*Abfertigungsarten:"
         '
         'btnNurExport
         '
@@ -690,12 +691,22 @@ Partial Class frmFaktSammelRgDrucken
         Me.btnNurExport.Text = "Export"
         Me.btnNurExport.UseVisualStyleBackColor = True
         '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(833, 412)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(234, 13)
+        Me.Label6.TabIndex = 49
+        Me.Label6.Text = "*wenn nichts ausgewählt, keine Einschränkung!"
+        '
         'frmFaktSammelRgDrucken
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(1069, 472)
+        Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.btnNurExport)
         Me.Controls.Add(Me.btnNurImport)
         Me.Controls.Add(Me.MyListBox1)
@@ -793,4 +804,5 @@ Partial Class frmFaktSammelRgDrucken
     Friend WithEvents btnKeine As Button
     Friend WithEvents lblAbfertigungsarten As Label
     Friend WithEvents btnNurExport As Button
+    Friend WithEvents Label6 As Label
 End Class

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -147,7 +147,7 @@ Public Class frmFaktSammelRgDrucken
                     sqlStr = "
                                     SELECT 
                                         Rechnungsausgang.RechnungsKundenNr,
-                                        MAX(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1],
+                                        MAX(Rechnungsausgang.[RechnungsName 1]) AS Firma,
                                         0 AS AvisoId,
                                         MAX(Rechnungsausgang.[RechnungsLandKz]) AS [RechnungsLandKz],
                                         COUNT(*) AS Anzahl,
@@ -183,7 +183,7 @@ Public Class frmFaktSammelRgDrucken
                                     SELECT 
                                         min(Rechnungsausgang.RechnungsNr) as RENR,
                                         Rechnungsausgang.RechnungsKundenNr,
-                                        MAX(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1],
+                                        MAX(Rechnungsausgang.[RechnungsName 1]) AS Firma,
                                         " & If(Sammelrechung = 7, "AvisoId", "0") & " AS AvisoId,
                                         MAX(Rechnungsausgang.[RechnungsLandKz]) AS [RechnungsLandKz],
                                         COUNT(*) AS Anzahl,
@@ -219,7 +219,7 @@ Public Class frmFaktSammelRgDrucken
             .LOAD()
             .Columns("RechnungsKundenNr").Width = 120
             .Columns("RechnungsKundenNr").HeaderText = "KundenNr"
-            .Columns("RechnungsName 1").HeaderText = "Firma"
+            .Columns("Firma").Width = 200
             .Columns("Summe").HeaderText = "Summe"
             .Columns("Summe").DefaultCellStyle.Format = "#,##0.00 €"
             .Columns("Summe").Width = 80
@@ -230,11 +230,17 @@ Public Class frmFaktSammelRgDrucken
             .Columns("Rechnungsdruck").HeaderText = "Rg.Art"
             .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            .Columns(2).Visible = False
+            '.Columns(2).Visible = False
             If .Columns.Contains("LKW") And .Columns.Count = 8 Then
                 .Columns("LKW").Width = 80
             End If
 
+            If Sammelrechung = 7 Then
+                .Columns("AvisoId").Visible = True
+            Else
+                .Columns("AvisoId").Visible = False
+            End If
+
             If .Columns.Contains("RechnungsLandKz") AndAlso Sammelrechung = 6 Then
                 .Columns("RechnungsLandKz").Visible = True
             End If
@@ -665,7 +671,7 @@ Public Class frmFaktSammelRgDrucken
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         If MyDatagridview1.SelectedRows.Count > 0 Then
 
-            If vbYes = MsgBox("Möchten Sie alle markieren Rechnungen den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then
+            If cAutomailversand.automRechnungsversand_aktivieren() Then
 
                 Dim noRENRExisting As Boolean = False
 
@@ -727,7 +733,8 @@ Public Class frmFaktSammelRgDrucken
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         If MyDatagridview1.SelectedRows.Count > 0 Then
-            If vbYes = MsgBox("Möchten Sie für alle markieren Rechnungen den automatischen Emailversand deaktiveren?" & vbNewLine & "Die Rechnungen müssen dann manuell per Mail verschickt werden!", vbYesNoCancel) Then
+
+            If cAutomailversand.automRechnungsversand_deaktivieren() Then
 
                 'setMailversand(false, Firma, Sammelrechung, 2)
                 setMailversand_ALL(False, Firma, Sammelrechung, 2)
@@ -735,6 +742,7 @@ Public Class frmFaktSammelRgDrucken
             End If
         End If
 
+
     End Sub
 
     Private Function setMailversand(Mailversand As Boolean, FirmaID As Integer, Sammelrechnung As Integer, Status As Integer) As Boolean
@@ -895,6 +903,30 @@ Public Class frmFaktSammelRgDrucken
         End If
 
 
+    End Sub
+
+    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
+
+
+        ContextMenuStrip1.Hide()
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+
+        If item IsNot Nothing Then
+
+            If item.Name <> "" AndAlso IsNumeric(item.Name) Then
+
+                Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name)
+                f.Show(Me)
+
+
+            End If
+
+        Else
+            MsgBox("Funktion nicht implementiert!")
+        End If
+
+
+
     End Sub
 
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
@@ -909,10 +941,10 @@ Public Class frmFaktSammelRgDrucken
 
         If MyDatagridview1.SelectedRows.Count > 0 Then
 
-            If Not vbYes = MsgBox("Möchten Sie für alle markieren Rechnungen den automatischen Emailversand JETZT durchführen?" & vbNewLine & "Ansonsten werden sie im Nachtlauf automatisch versendet!", vbYesNoCancel) Then Exit Sub
+            If Not cAutomailversand.automRechnungsversand_durchführen Then Exit Sub
 
-            Dim fun As New cAutomailversand
             For Each r In MyDatagridview1.SelectedRows
+                Dim fun As New cAutomailversand
                 fun.sendMailSammelrechnung(CDate(txtRechnungsdatum.Text), Sammelrechung, Firma, r.Cells("RechnungsKundenNr").Value, cbxMailoeffnen.Checked)
             Next
 
@@ -923,9 +955,7 @@ Public Class frmFaktSammelRgDrucken
     End Sub
 
 
-    Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
 
-    End Sub
 
     Private Sub btnNurAbf_Click(sender As Object, e As EventArgs) Handles btnNurImport.Click, btnNurExport.Click
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,7 +1,4 @@
-Imports System.Data.SqlClient
+Imports System.Web.UI.WebControls.Expressions
-Imports System.IO
-Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.xml.internal.rngom
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -348,6 +345,7 @@ Public Class usrCntlFaktAbrechnung
 
             Button2.Enabled = (RECHNUNG.Status = 0)
             btnOK.Enabled = (RECHNUNG.Status = 0)
+            If RECHNUNG.Status <> 0 Then cbxAUTOMailversand.Enabled = False
 
             'RECHNUNG.OffertenNr = OfferteNrTmp
             ' RECHNUNG.OffertenNr = OfferteNrTmp
@@ -3513,6 +3511,43 @@ Public Class usrCntlFaktAbrechnung
 
         If Not checkUIDNR() Then Exit Sub
 
+        If RECHNUNG.Sammelrechnung = 0 Then 'nur bei ER
+            If cbxAUTOMailversand.Checked AndAlso Not RECHNUNG.Automailversand Then
+                If cAutomailversand.automRechnungsversand_aktivieren(RECHNUNG.Sammelrechnung = 0) Then
+
+                    If RECHNUNG.RechnungsDatum Is Nothing Then
+
+                        'LAUT AUSSAGE VON VERR. IMMER HEUTIGES DATUM!
+                        RECHNUNG.RechnungsDatum = Today()
+                        'If Not cFakturierung.getRgDatInput("", RECHNUNG.[RechnungsDatum]) Then 'Now.ToShortDateString
+                        '    cbxAUTOMailversand.Checked = False
+                        '    Exit Sub
+                        'End If
+                    End If
+
+                    RECHNUNG.Automailversand = True
+
+                Else
+                    cbxAUTOMailversand.Checked = False
+                End If
+
+            ElseIf Not cbxAUTOMailversand.Checked AndAlso RECHNUNG.Automailversand Then
+                If cAutomailversand.automRechnungsversand_deaktivieren(RECHNUNG.Sammelrechnung = 0) Then
+
+                    If Not RECHNUNG.RechnungsDatum Is Nothing Then
+                        RECHNUNG.RechnungsDatum = Nothing
+                    End If
+
+
+                    RECHNUNG.Automailversand = False
+                Else
+                    cbxAUTOMailversand.Checked = True
+                End If
+
+            End If
+        End If
+
+
         saveMe()
     End Sub
 

SDL/kassenbuch/frmBelegNeu.Designer.vb

@@ -71,7 +71,6 @@ Partial Class frmBelegNeu
         Me.btnAusgabebeleg = New System.Windows.Forms.Button()
         Me.lblErrPos = New System.Windows.Forms.Label()
         Me.pnlData = New System.Windows.Forms.Panel()
-        Me.Button4 = New System.Windows.Forms.Button()
         Me.cboBuchungsoforterzeugen = New System.Windows.Forms.CheckBox()
         Me.lblErr_Fahrer = New System.Windows.Forms.Label()
         Me.lblErr_Pass = New System.Windows.Forms.Label()
@@ -102,6 +101,7 @@ Partial Class frmBelegNeu
         Me.Label1 = New System.Windows.Forms.Label()
         Me.kdkunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.pnlOPt = New System.Windows.Forms.Panel()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
         Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxBelegOffnen = New System.Windows.Forms.CheckBox()
@@ -693,24 +693,10 @@ Partial Class frmBelegNeu
         Me.pnlData.Size = New System.Drawing.Size(624, 208)
         Me.pnlData.TabIndex = 5
         '
-        'Button4
-        '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ForeColor = System.Drawing.Color.Black
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(120, 38)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
-        Me.Button4.Size = New System.Drawing.Size(51, 21)
-        Me.Button4.TabIndex = 49
-        Me.Button4.Text = "TEST"
-        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.UseVisualStyleBackColor = True
-        Me.Button4.Visible = False
-        '
         'cboBuchungsoforterzeugen
         '
         Me.cboBuchungsoforterzeugen.AutoSize = True
+        Me.cboBuchungsoforterzeugen.Enabled = False
         Me.cboBuchungsoforterzeugen.Location = New System.Drawing.Point(9, 185)
         Me.cboBuchungsoforterzeugen.Name = "cboBuchungsoforterzeugen"
         Me.cboBuchungsoforterzeugen.Size = New System.Drawing.Size(145, 17)
@@ -1259,6 +1245,21 @@ Partial Class frmBelegNeu
         Me.pnlOPt.Size = New System.Drawing.Size(624, 96)
         Me.pnlOPt.TabIndex = 6
         '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.Black
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(120, 38)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
+        Me.Button4.Size = New System.Drawing.Size(51, 21)
+        Me.Button4.TabIndex = 49
+        Me.Button4.Text = "TEST"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
         'LinkLabel1
         '
         Me.LinkLabel1.AutoSize = True

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb

@@ -33,22 +33,17 @@ Partial Class frmAuditFlow
         Me.pnlTop = New System.Windows.Forms.Panel()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.dgvPruefungsobjekte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnloptions = New System.Windows.Forms.Panel()
         Me.lblAbDat = New System.Windows.Forms.Label()
-        Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
-        Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.cboStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Panel3 = New System.Windows.Forms.Panel()
@@ -56,14 +51,10 @@ Partial Class frmAuditFlow
         Me.Button11 = New System.Windows.Forms.Button()
         Me.Button12 = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.dgvPruefungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnl = New System.Windows.Forms.Panel()
         Me.btnSuche = New System.Windows.Forms.Button()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.Label8 = New System.Windows.Forms.Label()
-        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button7 = New System.Windows.Forms.Button()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
@@ -77,20 +68,29 @@ Partial Class frmAuditFlow
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
-        Me.Button4 = New System.Windows.Forms.Button()
+        Me.dgvPruefungsobjekte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.Button8 = New System.Windows.Forms.Button()
+        Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvPruefungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cntxtOptionen.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
-        CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnloptions.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.Panel3.SuspendLayout()
-        CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnl.SuspendLayout()
+        CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'AbgeholtToolStripMenuItem
@@ -163,29 +163,6 @@ Partial Class frmAuditFlow
         Me.SplitContainer1.SplitterDistance = 960
         Me.SplitContainer1.TabIndex = 38
         '
-        'dgvPruefungsobjekte
-        '
-        Me.dgvPruefungsobjekte.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvPruefungsobjekte.AllowUserToAddRows = False
-        Me.dgvPruefungsobjekte.AllowUserToDeleteRows = False
-        Me.dgvPruefungsobjekte.AllowUserToOrderColumns = True
-        Me.dgvPruefungsobjekte.AllowUserToResizeRows = False
-        Me.dgvPruefungsobjekte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvPruefungsobjekte.DefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvPruefungsobjekte.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvPruefungsobjekte.Location = New System.Drawing.Point(0, 106)
-        Me.dgvPruefungsobjekte.Name = "dgvPruefungsobjekte"
-        Me.dgvPruefungsobjekte.RowHeadersVisible = False
-        Me.dgvPruefungsobjekte.Size = New System.Drawing.Size(960, 450)
-        Me.dgvPruefungsobjekte.TabIndex = 7
-        '
         'pnloptions
         '
         Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
@@ -210,30 +187,6 @@ Partial Class frmAuditFlow
         Me.lblAbDat.TabIndex = 142
         Me.lblAbDat.Text = "ab Datum:"
         '
-        'txtWartungFaelligkeitAbDat
-        '
-        Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False
-        Me.txtWartungFaelligkeitAbDat._numbersOnly = False
-        Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = ""
-        Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True
-        Me.txtWartungFaelligkeitAbDat._Prozent = False
-        Me.txtWartungFaelligkeitAbDat._ShortDateNew = True
-        Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False
-        Me.txtWartungFaelligkeitAbDat._TimeOnly = False
-        Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False
-        Me.txtWartungFaelligkeitAbDat._value = ""
-        Me.txtWartungFaelligkeitAbDat._Waehrung = False
-        Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True
-        Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red
-        Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(675, 52)
-        Me.txtWartungFaelligkeitAbDat.MaxLength = 10
-        Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1
-        Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = ""
-        Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing
-        Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat"
-        Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20)
-        Me.txtWartungFaelligkeitAbDat.TabIndex = 143
-        '
         'Button1
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -260,33 +213,6 @@ Partial Class frmAuditFlow
         Me.Label9.TabIndex = 7
         Me.Label9.Text = "Max:"
         '
-        'MyTextBox2
-        '
-        Me.MyTextBox2._DateTimeOnly = False
-        Me.MyTextBox2._numbersOnly = True
-        Me.MyTextBox2._numbersOnlyKommastellen = ""
-        Me.MyTextBox2._numbersOnlyTrennzeichen = True
-        Me.MyTextBox2._Prozent = False
-        Me.MyTextBox2._ShortDateNew = False
-        Me.MyTextBox2._ShortDateOnly = False
-        Me.MyTextBox2._TimeOnly = False
-        Me.MyTextBox2._TimeOnly_Seconds = False
-        Me.MyTextBox2._value = ""
-        Me.MyTextBox2._Waehrung = False
-        Me.MyTextBox2._WaehrungZeichen = True
-        Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox2.Location = New System.Drawing.Point(897, 52)
-        Me.MyTextBox2.MaxLineLength = -1
-        Me.MyTextBox2.MaxLines_Warning = ""
-        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox2.Name = "MyTextBox2"
-        Me.MyTextBox2.Size = New System.Drawing.Size(48, 20)
-        Me.MyTextBox2.TabIndex = 8
-        Me.MyTextBox2.Text = "1000"
-        Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
         'Button2
         '
         Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -324,6 +250,34 @@ Partial Class frmAuditFlow
         Me.Panel2.Size = New System.Drawing.Size(960, 106)
         Me.Panel2.TabIndex = 8
         '
+        'Button8
+        '
+        Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button8.Location = New System.Drawing.Point(780, 58)
+        Me.Button8.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.Button8.Size = New System.Drawing.Size(164, 27)
+        Me.Button8.TabIndex = 33
+        Me.Button8.Text = "Kategorien verwalten"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(780, 30)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.Button4.Size = New System.Drawing.Size(164, 27)
+        Me.Button4.TabIndex = 32
+        Me.Button4.Text = "Standorte verwalten"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'Button3
         '
         Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -339,20 +293,6 @@ Partial Class frmAuditFlow
         Me.Button3.UseVisualStyleBackColor = True
         Me.Button3.Visible = False
         '
-        'cboKategorie
-        '
-        Me.cboKategorie._allowedValuesFreiText = Nothing
-        Me.cboKategorie._allowFreiText = False
-        Me.cboKategorie._value = ""
-        Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboKategorie.FormattingEnabled = True
-        Me.cboKategorie.Location = New System.Drawing.Point(358, 7)
-        Me.cboKategorie.Name = "cboKategorie"
-        Me.cboKategorie.Size = New System.Drawing.Size(143, 24)
-        Me.cboKategorie.TabIndex = 30
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
@@ -373,48 +313,6 @@ Partial Class frmAuditFlow
         Me.Label7.TabIndex = 28
         Me.Label7.Text = "Standort:"
         '
-        'cboStandort
-        '
-        Me.cboStandort._allowedValuesFreiText = Nothing
-        Me.cboStandort._allowFreiText = False
-        Me.cboStandort._value = ""
-        Me.cboStandort.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboStandort.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboStandort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboStandort.FormattingEnabled = True
-        Me.cboStandort.Location = New System.Drawing.Point(110, 64)
-        Me.cboStandort.Name = "cboStandort"
-        Me.cboStandort.Size = New System.Drawing.Size(143, 24)
-        Me.cboStandort.TabIndex = 27
-        '
-        'cboFirma
-        '
-        Me.cboFirma._allowedValuesFreiText = Nothing
-        Me.cboFirma._allowFreiText = False
-        Me.cboFirma._value = ""
-        Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboFirma.FormattingEnabled = True
-        Me.cboFirma.Location = New System.Drawing.Point(110, 7)
-        Me.cboFirma.Name = "cboFirma"
-        Me.cboFirma.Size = New System.Drawing.Size(143, 24)
-        Me.cboFirma.TabIndex = 26
-        '
-        'cboNL
-        '
-        Me.cboNL._allowedValuesFreiText = Nothing
-        Me.cboNL._allowFreiText = False
-        Me.cboNL._value = ""
-        Me.cboNL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboNL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboNL.FormattingEnabled = True
-        Me.cboNL.Location = New System.Drawing.Point(110, 33)
-        Me.cboNL.Name = "cboNL"
-        Me.cboNL.Size = New System.Drawing.Size(143, 24)
-        Me.cboNL.TabIndex = 25
-        '
         'Label5
         '
         Me.Label5.AutoSize = True
@@ -503,56 +401,6 @@ Partial Class frmAuditFlow
         Me.Label3.TabIndex = 5
         Me.Label3.Text = "Max:"
         '
-        'MyTextBox1
-        '
-        Me.MyTextBox1._DateTimeOnly = False
-        Me.MyTextBox1._numbersOnly = True
-        Me.MyTextBox1._numbersOnlyKommastellen = ""
-        Me.MyTextBox1._numbersOnlyTrennzeichen = True
-        Me.MyTextBox1._Prozent = False
-        Me.MyTextBox1._ShortDateNew = False
-        Me.MyTextBox1._ShortDateOnly = False
-        Me.MyTextBox1._TimeOnly = False
-        Me.MyTextBox1._TimeOnly_Seconds = False
-        Me.MyTextBox1._value = ""
-        Me.MyTextBox1._Waehrung = False
-        Me.MyTextBox1._WaehrungZeichen = True
-        Me.MyTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(477, 52)
-        Me.MyTextBox1.MaxLineLength = -1
-        Me.MyTextBox1.MaxLines_Warning = ""
-        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox1.Name = "MyTextBox1"
-        Me.MyTextBox1.Size = New System.Drawing.Size(48, 20)
-        Me.MyTextBox1.TabIndex = 6
-        Me.MyTextBox1.Text = "1000"
-        Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'dgvPruefungen
-        '
-        Me.dgvPruefungen.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvPruefungen.AllowUserToAddRows = False
-        Me.dgvPruefungen.AllowUserToDeleteRows = False
-        Me.dgvPruefungen.AllowUserToOrderColumns = True
-        Me.dgvPruefungen.AllowUserToResizeRows = False
-        Me.dgvPruefungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvPruefungen.DefaultCellStyle = DataGridViewCellStyle2
-        Me.dgvPruefungen.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvPruefungen.Location = New System.Drawing.Point(0, 106)
-        Me.dgvPruefungen.Name = "dgvPruefungen"
-        Me.dgvPruefungen.RowHeadersVisible = False
-        Me.dgvPruefungen.Size = New System.Drawing.Size(622, 530)
-        Me.dgvPruefungen.TabIndex = 5
-        '
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
@@ -617,56 +465,6 @@ Partial Class frmAuditFlow
         Me.Label8.TabIndex = 34
         Me.Label8.Text = "Fälligkeits-Datum:"
         '
-        'txtAbfertDat
-        '
-        Me.txtAbfertDat._DateTimeOnly = False
-        Me.txtAbfertDat._numbersOnly = False
-        Me.txtAbfertDat._numbersOnlyKommastellen = ""
-        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
-        Me.txtAbfertDat._Prozent = False
-        Me.txtAbfertDat._ShortDateNew = True
-        Me.txtAbfertDat._ShortDateOnly = False
-        Me.txtAbfertDat._TimeOnly = False
-        Me.txtAbfertDat._TimeOnly_Seconds = False
-        Me.txtAbfertDat._value = ""
-        Me.txtAbfertDat._Waehrung = False
-        Me.txtAbfertDat._WaehrungZeichen = True
-        Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfertDat.Location = New System.Drawing.Point(37, 33)
-        Me.txtAbfertDat.MaxLength = 10
-        Me.txtAbfertDat.MaxLineLength = -1
-        Me.txtAbfertDat.MaxLines_Warning = ""
-        Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertDat.Name = "txtAbfertDat"
-        Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
-        Me.txtAbfertDat.TabIndex = 9
-        '
-        'txtAbfertDatBis
-        '
-        Me.txtAbfertDatBis._DateTimeOnly = False
-        Me.txtAbfertDatBis._numbersOnly = False
-        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
-        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
-        Me.txtAbfertDatBis._Prozent = False
-        Me.txtAbfertDatBis._ShortDateNew = True
-        Me.txtAbfertDatBis._ShortDateOnly = False
-        Me.txtAbfertDatBis._TimeOnly = False
-        Me.txtAbfertDatBis._TimeOnly_Seconds = False
-        Me.txtAbfertDatBis._value = ""
-        Me.txtAbfertDatBis._Waehrung = False
-        Me.txtAbfertDatBis._WaehrungZeichen = True
-        Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfertDatBis.Location = New System.Drawing.Point(37, 62)
-        Me.txtAbfertDatBis.MaxLength = 10
-        Me.txtAbfertDatBis.MaxLineLength = -1
-        Me.txtAbfertDatBis.MaxLines_Warning = ""
-        Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
-        Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
-        Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
-        Me.txtAbfertDatBis.TabIndex = 23
-        '
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -839,33 +637,235 @@ Partial Class frmAuditFlow
         Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
         Me.DateTimePicker1.TabIndex = 10
         '
-        'Button4
+        'dgvPruefungsobjekte
         '
-        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.dgvPruefungsobjekte.AKTUALISIERUNGS_INTERVALL = -1
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.dgvPruefungsobjekte.AllowUserToAddRows = False
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.dgvPruefungsobjekte.AllowUserToDeleteRows = False
-        Me.Button4.Location = New System.Drawing.Point(780, 30)
+        Me.dgvPruefungsobjekte.AllowUserToOrderColumns = True
-        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
+        Me.dgvPruefungsobjekte.AllowUserToResizeRows = False
-        Me.Button4.Name = "Button4"
+        Me.dgvPruefungsobjekte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        Me.Button4.Size = New System.Drawing.Size(164, 27)
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
-        Me.Button4.TabIndex = 32
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button4.Text = "Standorte verwalten"
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.Button4.UseVisualStyleBackColor = True
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvPruefungsobjekte.DefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvPruefungsobjekte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvPruefungsobjekte.Location = New System.Drawing.Point(0, 106)
+        Me.dgvPruefungsobjekte.Name = "dgvPruefungsobjekte"
+        Me.dgvPruefungsobjekte.RowHeadersVisible = False
+        Me.dgvPruefungsobjekte.Size = New System.Drawing.Size(960, 450)
+        Me.dgvPruefungsobjekte.TabIndex = 7
         '
-        'Button8
+        'txtWartungFaelligkeitAbDat
         '
-        Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False
-        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.txtWartungFaelligkeitAbDat._numbersOnly = False
-        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = ""
-        Me.Button8.Location = New System.Drawing.Point(780, 58)
+        Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True
-        Me.Button8.Margin = New System.Windows.Forms.Padding(0)
+        Me.txtWartungFaelligkeitAbDat._Prozent = False
-        Me.Button8.Name = "Button8"
+        Me.txtWartungFaelligkeitAbDat._ShortDateNew = True
-        Me.Button8.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False
-        Me.Button8.Size = New System.Drawing.Size(164, 27)
+        Me.txtWartungFaelligkeitAbDat._TimeOnly = False
-        Me.Button8.TabIndex = 33
+        Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False
-        Me.Button8.Text = "Kategorien verwalten"
+        Me.txtWartungFaelligkeitAbDat._value = ""
-        Me.Button8.UseVisualStyleBackColor = True
+        Me.txtWartungFaelligkeitAbDat._Waehrung = False
+        Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True
+        Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red
+        Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(675, 52)
+        Me.txtWartungFaelligkeitAbDat.MaxLength = 10
+        Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1
+        Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = ""
+        Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing
+        Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat"
+        Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20)
+        Me.txtWartungFaelligkeitAbDat.TabIndex = 143
+        '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = True
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = ""
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(897, 52)
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.Size = New System.Drawing.Size(48, 20)
+        Me.MyTextBox2.TabIndex = 8
+        Me.MyTextBox2.Text = "1000"
+        Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'cboKategorie
+        '
+        Me.cboKategorie._allowedValuesFreiText = Nothing
+        Me.cboKategorie._allowFreiText = False
+        Me.cboKategorie._value = ""
+        Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboKategorie.FormattingEnabled = True
+        Me.cboKategorie.Location = New System.Drawing.Point(358, 7)
+        Me.cboKategorie.Name = "cboKategorie"
+        Me.cboKategorie.Size = New System.Drawing.Size(143, 24)
+        Me.cboKategorie.TabIndex = 30
+        '
+        'cboStandort
+        '
+        Me.cboStandort._allowedValuesFreiText = Nothing
+        Me.cboStandort._allowFreiText = False
+        Me.cboStandort._value = ""
+        Me.cboStandort.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboStandort.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboStandort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboStandort.FormattingEnabled = True
+        Me.cboStandort.Location = New System.Drawing.Point(110, 64)
+        Me.cboStandort.Name = "cboStandort"
+        Me.cboStandort.Size = New System.Drawing.Size(143, 24)
+        Me.cboStandort.TabIndex = 27
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(110, 7)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(143, 24)
+        Me.cboFirma.TabIndex = 26
+        '
+        'cboNL
+        '
+        Me.cboNL._allowedValuesFreiText = Nothing
+        Me.cboNL._allowFreiText = False
+        Me.cboNL._value = ""
+        Me.cboNL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboNL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboNL.FormattingEnabled = True
+        Me.cboNL.Location = New System.Drawing.Point(110, 33)
+        Me.cboNL.Name = "cboNL"
+        Me.cboNL.Size = New System.Drawing.Size(143, 24)
+        Me.cboNL.TabIndex = 25
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = True
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
+        Me.MyTextBox1._value = ""
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(477, 52)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(48, 20)
+        Me.MyTextBox1.TabIndex = 6
+        Me.MyTextBox1.Text = "1000"
+        Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'dgvPruefungen
+        '
+        Me.dgvPruefungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvPruefungen.AllowUserToAddRows = False
+        Me.dgvPruefungen.AllowUserToDeleteRows = False
+        Me.dgvPruefungen.AllowUserToOrderColumns = True
+        Me.dgvPruefungen.AllowUserToResizeRows = False
+        Me.dgvPruefungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvPruefungen.DefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvPruefungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvPruefungen.Location = New System.Drawing.Point(0, 106)
+        Me.dgvPruefungen.Name = "dgvPruefungen"
+        Me.dgvPruefungen.RowHeadersVisible = False
+        Me.dgvPruefungen.Size = New System.Drawing.Size(622, 530)
+        Me.dgvPruefungen.TabIndex = 5
+        '
+        'txtAbfertDat
+        '
+        Me.txtAbfertDat._DateTimeOnly = False
+        Me.txtAbfertDat._numbersOnly = False
+        Me.txtAbfertDat._numbersOnlyKommastellen = ""
+        Me.txtAbfertDat._numbersOnlyTrennzeichen = True
+        Me.txtAbfertDat._Prozent = False
+        Me.txtAbfertDat._ShortDateNew = True
+        Me.txtAbfertDat._ShortDateOnly = False
+        Me.txtAbfertDat._TimeOnly = False
+        Me.txtAbfertDat._TimeOnly_Seconds = False
+        Me.txtAbfertDat._value = ""
+        Me.txtAbfertDat._Waehrung = False
+        Me.txtAbfertDat._WaehrungZeichen = True
+        Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertDat.Location = New System.Drawing.Point(37, 33)
+        Me.txtAbfertDat.MaxLength = 10
+        Me.txtAbfertDat.MaxLineLength = -1
+        Me.txtAbfertDat.MaxLines_Warning = ""
+        Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertDat.Name = "txtAbfertDat"
+        Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
+        Me.txtAbfertDat.TabIndex = 9
+        '
+        'txtAbfertDatBis
+        '
+        Me.txtAbfertDatBis._DateTimeOnly = False
+        Me.txtAbfertDatBis._numbersOnly = False
+        Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
+        Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True
+        Me.txtAbfertDatBis._Prozent = False
+        Me.txtAbfertDatBis._ShortDateNew = True
+        Me.txtAbfertDatBis._ShortDateOnly = False
+        Me.txtAbfertDatBis._TimeOnly = False
+        Me.txtAbfertDatBis._TimeOnly_Seconds = False
+        Me.txtAbfertDatBis._value = ""
+        Me.txtAbfertDatBis._Waehrung = False
+        Me.txtAbfertDatBis._WaehrungZeichen = True
+        Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtAbfertDatBis.Location = New System.Drawing.Point(37, 62)
+        Me.txtAbfertDatBis.MaxLength = 10
+        Me.txtAbfertDatBis.MaxLineLength = -1
+        Me.txtAbfertDatBis.MaxLines_Warning = ""
+        Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
+        Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
+        Me.txtAbfertDatBis.TabIndex = 23
         '
         'frmAuditFlow
         '
@@ -887,16 +887,16 @@ Partial Class frmAuditFlow
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
-        CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnloptions.ResumeLayout(False)
         Me.pnloptions.PerformLayout()
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
-        CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
+        CType(Me.dgvPruefungsobjekte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvPruefungen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.vb

@@ -493,4 +493,6 @@ Public Class frmAuditFlow
         Dim frm As New frmManageTables("tblAuditFlow_Kategorien", "ADMIN")
         frm.ShowDialog(Me)
     End Sub
+
+
 End Class

VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.Designer.vb

@@ -0,0 +1,296 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frminterneEmailBenachrichtigungen
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frminterneEmailBenachrichtigungen))
+        Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip()
+        Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.dgvBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.pnloptions = New System.Windows.Forms.Panel()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cntxtOptionen.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnloptions.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.pnlTop.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'AbgeholtToolStripMenuItem
+        '
+        Me.AbgeholtToolStripMenuItem.Name = "AbgeholtToolStripMenuItem"
+        Me.AbgeholtToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.AbgeholtToolStripMenuItem.Text = "Abgeholt"
+        '
+        'cntxtOptionen
+        '
+        Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem})
+        Me.cntxtOptionen.Name = "cntxtOptionen"
+        Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48)
+        Me.cntxtOptionen.Text = "Optionen"
+        '
+        'StornoToolStripMenuItem
+        '
+        Me.StornoToolStripMenuItem.Name = "StornoToolStripMenuItem"
+        Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.StornoToolStripMenuItem.Text = "Storno"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.dgvBenachrichtigungen)
+        Me.Panel1.Controls.Add(Me.pnloptions)
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1237, 779)
+        Me.Panel1.TabIndex = 4
+        '
+        'dgvBenachrichtigungen
+        '
+        Me.dgvBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvBenachrichtigungen.AllowUserToAddRows = False
+        Me.dgvBenachrichtigungen.AllowUserToDeleteRows = False
+        Me.dgvBenachrichtigungen.AllowUserToOrderColumns = True
+        Me.dgvBenachrichtigungen.AllowUserToResizeRows = False
+        Me.dgvBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvBenachrichtigungen.DefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvBenachrichtigungen.Location = New System.Drawing.Point(0, 115)
+        Me.dgvBenachrichtigungen.Name = "dgvBenachrichtigungen"
+        Me.dgvBenachrichtigungen.RowHeadersVisible = False
+        Me.dgvBenachrichtigungen.Size = New System.Drawing.Size(1237, 604)
+        Me.dgvBenachrichtigungen.TabIndex = 10
+        '
+        'pnloptions
+        '
+        Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnloptions.Controls.Add(Me.Label9)
+        Me.pnloptions.Controls.Add(Me.MyTextBox2)
+        Me.pnloptions.Controls.Add(Me.Button2)
+        Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pnloptions.Location = New System.Drawing.Point(0, 719)
+        Me.pnloptions.Name = "pnloptions"
+        Me.pnloptions.Size = New System.Drawing.Size(1237, 60)
+        Me.pnloptions.TabIndex = 12
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(1145, 16)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(30, 13)
+        Me.Label9.TabIndex = 7
+        Me.Label9.Text = "Max:"
+        '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = True
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = ""
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(1177, 13)
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.Size = New System.Drawing.Size(48, 20)
+        Me.MyTextBox2.TabIndex = 8
+        Me.MyTextBox2.Text = "1000"
+        Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.plus
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(9, 6)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
+        Me.Button2.Size = New System.Drawing.Size(84, 45)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Neu"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.cboKategorie)
+        Me.Panel2.Controls.Add(Me.cboFirma)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1237, 115)
+        Me.Panel2.TabIndex = 11
+        '
+        'cboKategorie
+        '
+        Me.cboKategorie._allowedValuesFreiText = Nothing
+        Me.cboKategorie._allowFreiText = False
+        Me.cboKategorie._value = ""
+        Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboKategorie.DropDownWidth = 250
+        Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboKategorie.FormattingEnabled = True
+        Me.cboKategorie.Location = New System.Drawing.Point(95, 76)
+        Me.cboKategorie.Name = "cboKategorie"
+        Me.cboKategorie.Size = New System.Drawing.Size(143, 24)
+        Me.cboKategorie.TabIndex = 30
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboFirma.DropDownWidth = 250
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(95, 49)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(143, 24)
+        Me.cboFirma.TabIndex = 26
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(7, 54)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(49, 13)
+        Me.Label5.TabIndex = 22
+        Me.Label5.Text = "FIRMA:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(7, 81)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 29
+        Me.Label1.Text = "KATEGORIE:"
+        '
+        'pnlTop
+        '
+        Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlTop.Controls.Add(Me.Label4)
+        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+        Me.pnlTop.Name = "pnlTop"
+        Me.pnlTop.Size = New System.Drawing.Size(1237, 41)
+        Me.pnlTop.TabIndex = 6
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(12, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(358, 26)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "interne E-Mail Benachrichtungen"
+        '
+        'frminterneEmailBenachrichtigungen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(1237, 779)
+        Me.Controls.Add(Me.pnlTop)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frminterneEmailBenachrichtigungen"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "interne E-Mail Benachrichtigungen"
+        Me.cntxtOptionen.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.dgvBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnloptions.ResumeLayout(False)
+        Me.pnloptions.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.pnlTop.ResumeLayout(False)
+        Me.pnlTop.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents AbgeholtToolStripMenuItem As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents cntxtOptionen As Windows.Forms.ContextMenuStrip
+    Friend WithEvents StornoToolStripMenuItem As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents pnlTop As Windows.Forms.Panel
+    Friend WithEvents Label4 As Windows.Forms.Label
+    Friend WithEvents Panel1 As Windows.Forms.Panel
+    Friend WithEvents dgvBenachrichtigungen As MyDatagridview
+    Friend WithEvents pnloptions As Windows.Forms.Panel
+    Friend WithEvents Label9 As Windows.Forms.Label
+    Friend WithEvents MyTextBox2 As MyTextBox
+    Friend WithEvents Button2 As Windows.Forms.Button
+    Friend WithEvents Panel2 As Windows.Forms.Panel
+    Friend WithEvents cboKategorie As MyComboBox
+    Friend WithEvents Label1 As Windows.Forms.Label
+    Friend WithEvents cboFirma As MyComboBox
+    Friend WithEvents Label5 As Windows.Forms.Label
+End Class

VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.resx

@@ -0,0 +1,983 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="cntxtOptionen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
+        AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
+        OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////d3fOrq+Krq+Krq+Krq+Krq+Krq+Lp6ff/////////
+        ///////////////////////////p6ferq+Krq+Krq+Krq+Krq+Krq+Krq+L///////////+rq+Krq+Kr
+        q+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////////////
+        //////////+rq+Krq+Krq+Krq+Krq+K4uOb////////////////////d3fOrq+Krq+Krq+Krq+Lp6ff/
+        ///////////////p6ferq+Krq+Krq+Krq+Krq+Krq+K4uOb///////////////////+rq+Krq+Krq+Kr
+        q+Krq+Krq+Krq+L///////////////////+rq+Krq+Krq+Krq+Krq+K4uOb/////////////////////
+        ///////////p6ferq+Krq+Krq+Krq+Krq+LFxer////////////////////////////////d3fMpKcID
+        A70DA70DA70DA70DA72Ojtn////////////////////////////////////FxeoDA70DA70DA70DA70D
+        A70DA71ERMf///////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA71+ftTR0e////////////////////////////8pKcIDA70DA70DA70DA70pKcL/////////////
+        //////+rq+IDA70DA70DA70DA72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf/
+        //////////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70D
+        A70DA71ERMf///////////////////////////////+rq+IDA70DA70DA70DA70DA71ZWcv/////////
+        //////////////////////////+rq+IDA70DA70DA70DA70DA70DA73p6ff/////////////////////
+        //////////+rq+IDA70DA70DA70DA70DA70DA71+ftT///////////9ZWcsDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////////////////////9sbNAD
+        A70DA70DA70DA70DA73p6ff///////////////+OjtkDA70DA70DA70DA70DA73p6ff/////////////
+        //8pKcIDA70DA70DA70DA70DA70DA7309Pv///////////////9sbNADA70DA70DA70DA70DA70DA73p
+        6ff///////////////9ZWcsDA70DA70DA70DA70DA7309Pv///////////////////////////8pKcID
+        A70DA70DA70DA70DA70DA73////////////////////////////////////09PspKcIDA70DA70DA70D
+        A70DA72rq+L///////////////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/////
+        //////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A71ZWcv09Pv///////////////+dnd0DA70DA70DA70DA70DA73Fxer///////////////9ZWcsDA70D
+        A70DA70DA70DA72Ojtn///////////////9ZWcsDA70DA70DA70DA70DA70DA73d3fP/////////////
+        //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA73R0e//
+        //////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA73d3fP/////////////////////
+        //////////////+rq+IDA70DA70DA70DA70DA70pKcL09Pv///////////////////////////9ZWcsD
+        A70DA70DA70DA70DA70DA73Fxer///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////+rq+IDA70DA70DA70DA70D
+        A72rq+L///////////////8pKcIDA70DA70DA70DA70DA70DA73p6ff///////////+OjtkDA70DA70D
+        A70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L/////////////
+        //+rq+IDA70DA70DA70DA70DA72rq+L///////////////////////9ZWcsDA70DA70DA70DA70DA70D
+        A70DA73Fxer////////////////////////////////////09PspKcIDA70DA70DA70DA70DA71+ftSr
+        q+Krq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70DA73d3fP////////////R0e8DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/
+        ///////////d3fMDA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA70DA70D
+        A72Ojtn///////////+rq+IDA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70D
+        A70DA70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA72dnd3/////////////////
+        ///R0e8DA70DA70DA70DA70DA70DA70DA70DA72dnd3/////////////////////////////////////
+        //+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA73////////////////09PsDA70DA70DA70DA70DA70DA72dnd3////////////09Purq+JZWcsD
+        A70DA70DA70DA70DA70DA70DA70DA73p6ff////////09PsDA70DA70DA70DA70DA71ZWcv/////////
+        ///FxeoDA70DA70DA70DA70DA70DA70DA70DA73p6ff////////R0e8DA70DA70DA70DA70DA70DA71s
+        bND////////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70D
+        A70DA70DA71ZWcv///////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA71+ftT/////
+        ///////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////8pKcIDA70DA70DA70DA70D
+        A71sbND///////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA72Ojtn///////////9E
+        RMcDA70DA70DA70DA70DA73///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA72Ojtn/////
+        ///09PsDA70DA70DA70DA70DA70DA70pKcL///////////////////9ERMcDA70DA70DA70DA70DA70D
+        A73///////////////////8pKcIDA70DA70DA70DA70pKcL////////////////09PsDA70DA70DA70D
+        A70DA70DA70DA70DA70DA71ERMf///////////////////////////////////////////+rq+IDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn/////////
+        //////////9+ftQDA70DA70DA70DA70DA70pKcL///////////////////////////+OjtkDA70DA70D
+        A70DA70DA70DA70DA7309Pv///////9+ftQDA70DA70DA70DA70DA73d3fP///////+OjtkDA70DA70D
+        A70DA70DA70DA70DA70DA70DA73p6ff///////8pKcIDA70DA70DA70DA70DA70DA7309Pv/////////
+        //////9+ftQDA70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA73d
+        3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/////////////////
+        ///////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA73p6ff/////
+        ///////////////////p6fcDA70DA70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70D
+        A70DA724uOb///////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////9+ftQDA70D
+        A70DA70DA70DA70DA73Fxer///////////////+dnd0DA70DA70DA70DA70DA70DA724uOb/////////
+        //////+dnd0DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA73R0e////////////////////////////////////////////+rq+IDA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////////////+4uOYD
+        A70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70DA70DA70D
+        A72dnd3////////FxeoDA70DA70DA70DA70DA72dnd3///////8pKcIDA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA73R0e////+dnd0DA70DA70DA70DA70DA70DA72rq+L///////////////+4uOYDA70D
+        A70DA70DA70DA70DA72dnd3///////////////+4uOYDA70DA70DA70DA70DA72rq+L///////+4uOYD
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////////////////////////////////
+        ///////////09PspKcIDA70DA70DA70DA70DA73R0e////////////9ZWcsDA70DA70DA70DA70DA70D
+        A73p6ff////////////////////d3fMDA70DA70DA70DA70DA70DA72rq+L/////////////////////
+        //////+rq+IDA70DA70DA70DA70DA70DA71sbND////////d3fMDA70DA70DA70DA70DA71+ftT////d
+        3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///+4uOYDA70DA70DA70DA70DA70D
+        A72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT////////////////d3fMDA70D
+        A70DA70DA70DA71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/
+        //////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA71sbND/////
+        //////8DA70DA70DA70DA70DA70DA70pKcL///////////////////////////8DA70DA70DA70DA70D
+        A70DA72Ojtn////////////////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf/////////
+        //8pKcIDA70DA70DA70DA70pKcL////FxeoDA70DA70DA70DA70DA70pKcKOjtkDA70DA70DA70DA70D
+        A73R0e/d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////8DA70DA70DA70DA70DA70D
+        A70pKcL////////////////09PsDA70DA70DA70DA70DA71ZWcv////d3fMDA70DA70DA70DA70DA70D
+        A71ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////////////////////////0
+        9PspKcIDA70DA70DA70DA70DA73p6ff////p6fcDA70DA70DA70DA70DA70DA71sbND/////////////
+        //////////////9ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////p6fcDA70D
+        A70DA70DA70DA70DA71ERMf///////////9ZWcsDA70DA70DA70DA70DA7309Purq+IDA70DA70DA70D
+        A70DA71ZWcvp6fcDA70DA70DA70DA70DA71sbND///8DA70DA70DA70DA70DA70DA70DA73/////////
+        //////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70D
+        A73///+OjtkDA70DA70DA70DA70DA70DA724uOZZWcsDA70DA70DA70DA70pKcL/////////////////
+        //////////////////////////////////+rq+IDA70DA70DA70DA70DA72Ojtn////FxeoDA70DA70D
+        A70DA70DA70DA72dnd3///////////////////////////9+ftQDA70DA70DA70DA70DA70DA73/////
+        ///////////////////////p6fcDA70DA70DA70DA70DA70DA71ERMf///////////+OjtkDA70DA70D
+        A70DA70DA73R0e9+ftQDA70DA70DA70DA70DA72Ojtn///+dnd0DA70DA70DA70DA70DA73R0e9ZWcsD
+        A70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA70DA73R0e//////
+        //////////9+ftQDA70DA70DA70DA70DA73R0e8DA70DA70DA70DA70DA70DA70pKcL09Pt+ftQDA70D
+        A70DA70DA70DA73p6ff////////////////////////////////////////////////09PspKcIDA70D
+        A70DA70DA70DA73p6ferq+IDA70DA70DA70DA70DA70DA72rq+L///////////////////////////+r
+        q+IDA70DA70DA70DA70DA70DA73d3fP////////////////////////d3fMDA70DA70DA70DA70DA70D
+        A71ZWcv///////////+rq+IDA70DA70DA70DA70DA72rq+JZWcsDA70DA70DA70DA70DA72rq+L////0
+        9PspKcIDA70DA70DA70DA71sbNB+ftQDA70DA70DA70DA70DA70DA73Fxer///////////////+rq+ID
+        A70DA70DA70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA71ZWcsDA70DA70D
+        A70DA70DA70DA72dnd3///+rq+IDA70DA70DA70DA70DA73Fxer/////////////////////////////
+        //////////////////////+rq+IDA70DA70DA70DA70DA72rq+Kdnd0DA70DA70DA70DA70DA70DA73R
+        0e/////////////////////////////FxeoDA70DA70DA70DA70DA70DA73Fxer/////////////////
+        //////+rq+IDA70DA70DA70DA70DA70DA71+ftT////////////R0e8DA70DA70DA70DA70DA72OjtkD
+        A70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70DA70DA71sbNADA70DA70DA70DA70D
+        A70DA72dnd3////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3////////////////FxeoD
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p6ff////FxeoDA70DA70DA70DA70DA72r
+        q+L////////////////////////////////////////////////////09PspKcIDA70DA70DA70DA70p
+        KcJZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////p6fcDA70DA70DA70D
+        A70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA72rq+L/////////
+        ///09PsDA70DA70DA70DA70DA70pKcIDA70DA70DA70DA70DA70DA73d3fP////////09PspKcIDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT////////////////p6fcDA70DA70DA70DA70D
+        A70DA71ZWcv////////////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/
+        ///////d3fMDA70DA70DA70DA70DA71+ftT/////////////////////////////////////////////
+        //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL/////////////////
+        //////////////////8pKcIDA70DA70DA70DA70DA71+ftT////////////////p6fdZWcsDA70DA70D
+        A70DA70DA70DA70DA73p6ff///////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA73///////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf/////
+        //////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA71ZWcv/////////////
+        ///////////////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA71+ftT///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70pKcKr
+        q+Krq+Krq+JsbNADA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////9+ftQDA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA71ERMf////////////////09PspKcIDA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70DA70DA73p6ff/
+        //////////////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///////////////9ZWcsD
+        A70DA70DA70DA70DA73///////////////////////////////////////////////////////////+r
+        q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/////////////////////////////////
+        //+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p
+        6ff///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////
+        //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////////+d
+        nd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA70DA70DA70D
+        A70DA72rq+L///////////////+OjtkDA70DA70DA70DA70DA73d3fP/////////////////////////
+        ///////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/
+        //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+4uOYDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D
+        A70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////////+r
+        q+IDA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////+rq+IDA70DA70DA70DA70D
+        A724uOb///////////////////////////////////////////////////////////+rq+IDA70DA70D
+        A70DA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////R0e8DA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/////////////////////
+        ///////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////+r
+        q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70DA70D
+        A70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72Ojtn/////////
+        ///////////FxeoDA70DA70DA70DA70DA72dnd3/////////////////////////////////////////
+        ///////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA7309Pv/////////////////
+        ///////////////////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70p
+        KcLFxer///////////////////////////////////8DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+        A73R0e/////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/
+        ///////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70DA70D
+        A70DA70DA70DA70DA73R0e/////////////////////09PsDA70DA70DA70DA70DA71+ftT/////////
+        //////////////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D
+        A70DA71ZWcv///////////////////////////////////////////8pKcIDA70DA70DA70DA70DA70D
+        A70DA70DA70DA70DA70pKcKrq+Krq+L///////////////////////////////////////////9ZWcsD
+        A70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////////////////+rq+IDA70DA70D
+        A70DA70DA70DA70DA70DA70DA70DA73///////////////////8pKcIDA70DA70DA70DA70DA70DA73/
+        //////////////////8pKcIDA70DA70DA70DA70DA70DA71ZWcv///////////////////////////8p
+        KcIDA70DA70DA70DA71ERMf/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

VERAG_PROG_ALLGEMEIN/AuditFlow/frminterneEmailbenachrichtigungen.vb

@@ -0,0 +1,127 @@
+Imports System.Windows.Forms
+
+Public Class frminterneEmailBenachrichtigungen
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+
+        cboKategorie.Items.Clear()
+        cboKategorie.fillWithSQL("SELECT distinct([mb_object]) FROM [tblEMailbenachrichtigungen] order by mb_object", False, "ADMIN", True)
+
+        cboFirma.Items.Clear()
+        cboFirma.fillWithSQL("SELECT distinct(Firma_Bez) FROM [tblFirma] order by Firma_Bez", False, "FMZOLL", True)
+        cboFirma.changeItem(cAllgemein.FIRMA)
+
+        loadDGVPuefungsobjekte()
+
+    End Sub
+
+
+    Private Sub cboKategorie_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKategorie.SelectedIndexChanged
+        loadDGVPuefungsobjekte()
+    End Sub
+
+    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
+
+        loadDGVPuefungsobjekte()
+
+    End Sub
+
+
+    Sub loadDGVPuefungsobjekte()
+        Try
+
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "")
+            Dim sqlstr As String = ""
+
+
+            sqlstr &= " SELECT  e.mb_id,e.mb_aktiv,e.mb_object,STRING_AGG(m.mit_email, ', ') AS Emails,STRING_AGG(m.mit_nname, ', ') as Mitarbeiter,COUNT(DISTINCT m.mit_email) AS Anzahl,e.mb_firmaID,ISNULL(f.Firma_Bez,'ALLE') AS Firma_Bez
+                        FROM [tblEMailbenachrichtigungen] e
+                        
+                        LEFT JOIN [VERAG].[dbo].[tblFirma] f ON e.mb_firmaID = f.Firma_ID
+                        LEFT JOIN ADMIN.dbo.tblMitarbeiter m
+                            CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s
+                            ON TRY_CAST(s.value AS INT) = e.mb_id
+                        
+                        WHERE 1 = 1 "
+
+            With dgvBenachrichtigungen
+
+                .SET_SQL(sqlstr & getWherePruefungsobjekte() & " GROUP BY e.mb_id,e.mb_aktiv,e.mb_object,e.mb_firmaID,f.Firma_Bez ORDER BY mb_object,f.Firma_Bez ", "ADMIN", getListBenachrichtigungen)
+                .LOAD()
+                showDGVPruefungsobjekte()
+            End With
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "")
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+    Sub showDGVPruefungsobjekte()
+
+        With dgvBenachrichtigungen
+
+            If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+            .RowHeadersVisible = False
+            .ReadOnly = True
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .MultiSelect = False
+
+            .Columns("mb_id").Visible = False
+            .Columns("mb_firmaID").Visible = False
+
+            .Columns("mb_object").Width = 200
+            .Columns("mb_object").HeaderText = "Benachrichtigung"
+
+
+            .Columns("Mitarbeiter").MinimumWidth = 100
+            .Columns("Mitarbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("Emails").MinimumWidth = 100
+            .Columns("Emails").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("Anzahl").Width = 50
+            .Columns("Anzahl").HeaderText = "# Empf."
+
+            .Columns("Firma_Bez").Width = 150
+            .Columns("Firma_Bez").HeaderText = "Firma"
+
+            .Columns("mb_aktiv").Width = 40
+            .Columns("mb_aktiv").HeaderText = "Aktiv"
+
+
+        End With
+    End Sub
+    Function getWherePruefungsobjekte() As String
+        Dim sqlstr = ""
+
+        If cboFirma._value <> "" Then sqlstr &= " AND Firma_Bez LIKE @Firma_Bez  "
+        If cboKategorie._value <> "" Then sqlstr &= " AND mb_object LIKE @mb_object "
+
+        Return sqlstr
+    End Function
+
+    Function getListBenachrichtigungen() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", cboFirma._value))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mb_object", cboKategorie._value))
+
+
+        Return list
+
+    End Function
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+    End Sub
+
+
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -103,8 +103,7 @@ Public Class cMitarbeiter
     Property mit_SchalterID As Object = Nothing
     Property mit_Funktion As Object = Nothing
     Property mit_terminalTimasId As Object = Nothing 'externe ID von TIMAS
-
+    Property mit_EMailbenachrichtigungen As Object = Nothing
-
 
 
     Dim SQL As New SQL
@@ -224,6 +223,7 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Funktion", mit_Funktion))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_terminalTimasId", mit_terminalTimasId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EMailbenachrichtigungen", mit_EMailbenachrichtigungen))
 
 
 
@@ -436,6 +436,7 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
                             If Not dr.Item("mit_Funktion") Is DBNull.Value Then Me.mit_Funktion = dr.Item("mit_Funktion")
                             If Not dr.Item("mit_terminalTimasId") Is DBNull.Value Then Me.mit_terminalTimasId = dr.Item("mit_terminalTimasId")
+                            If Not dr.Item("mit_EMailbenachrichtigungen") Is DBNull.Value Then Me.mit_EMailbenachrichtigungen = dr.Item("mit_EMailbenachrichtigungen")
 
 
                         Catch ex As Exception
@@ -488,4 +489,20 @@ Public Class cMitarbeiter
         Return Value
     End Function
 
+
+    Public Shared Function GetEMailRecipientForEmailNotification(NotificationObject As String, Optional Firma_ID As Integer = -1) As String
+        Dim dt As New DataTable
+        Dim mailString As String = ""
+        dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select distinct(m.mit_email) FROM ADMIN.dbo.tblMitarbeiter m CROSS APPLY dbo.SplitString(m.mit_EMailbenachrichtigungen, ',') s
+          Join ADMIN.dbo.tblEMailbenachrichtigungen e  On TRY_CAST(s.value AS INT) = e.mb_id
+            WHERE e.mb_object = '" & NotificationObject & "' and isnull(m.mit_email,'') <> '' " & IIf(Firma_ID > 0, " AND e.mb_firmaID = " & Firma_ID & "", ""), "ADMIN")
+
+        For Each r As DataRow In dt.Rows
+            If r.Item("mit_email") <> "" Then mailString &= r.Item("mit_email") & ";"
+        Next
+
+        Return mailString
+
+    End Function
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -119,10 +119,10 @@ Public Class cRechnungsausgang
     Property TextZZ As Object = Nothing
     Property ForceSteuerschlüssel As Object = Nothing
     Property Automailversand As Boolean = False
-
     Property Rechnungsart As String = "RG" ' RG=Rechnung; RU=Rechnung Unvollständig; RK=RechnungKopf -> bei unvollständiger Rechnung ein Kopf benötigt (zB Staffelabrechnung)
-
     Property Vorlageprovision_Mindestbetrag As Object = Nothing
+    Property Automailversand_sent As Object = Nothing
+
     Property dsId As Object = Nothing
 
 
@@ -371,6 +371,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsart", Rechnungsart))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dsId", dsId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Automailversand_sent", Automailversand_sent))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -647,10 +647,10 @@ Public Class cCreditSafeAPI
             Dim empfanegerMail As String = ""
 
             Select Case firma
-                Case "VERAG" : empfanegerMail = "as@verag.ag"
+                Case "VERAG" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 1)
-                Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at"
+                Case "IMEX" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 20)
-                    'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com"
+                Case "AMBAR" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 24)
-                    'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at"
+                Case "UNISPED" : empfanegerMail = cMitarbeiter.GetEMailRecipientForEmailNotification("Creditsafe", 21)
             End Select
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag"

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -184,6 +184,12 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="AuditFlow\frminterneEmailbenachrichtigungen.Designer.vb">
+      <DependentUpon>frminterneEmailbenachrichtigungen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="AuditFlow\frminterneEmailbenachrichtigungen.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="AuditFlow\frmAuditFlow.Designer.vb">
       <DependentUpon>frmAuditFlow.vb</DependentUpon>
     </Compile>
@@ -802,6 +808,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="AuditFlow\frminterneEmailbenachrichtigungen.resx">
+      <DependentUpon>frminterneEmailbenachrichtigungen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="AuditFlow\frmAuditFlow.resx">
       <DependentUpon>frmAuditFlow.vb</DependentUpon>
     </EmbeddedResource>