From edf6d708421a3bfe83f371ac25abf804d712778b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 14 Aug 2025 11:26:44 +0200 Subject: [PATCH] Mailsender, etc. --- MailSender/MAILSender.vb | 329 +++++++++++++++++- MailSender/MailSender.vbproj | 2 + MailSender/My Project/Resources.Designer.vb | 20 ++ MailSender/My Project/Resources.resx | 6 + MailSender/Resources/Auswertung_divers.xlsx | Bin 0 -> 10116 bytes .../Resources/Detailauswertung_divers.xlsx | Bin 0 -> 10256 bytes UID/usrCntlMailsender_.vb | 4 +- 7 files changed, 358 insertions(+), 3 deletions(-) create mode 100644 MailSender/Resources/Auswertung_divers.xlsx create mode 100644 MailSender/Resources/Detailauswertung_divers.xlsx diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index afa905a..1677570 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -3,6 +3,7 @@ Imports System.IO Imports System.Net Imports System.Net.Mail Imports ClosedXML.Excel +Imports com.sun.xml.internal.rngom.digested Imports DAKOSY_Worker Imports VERAG_PROG_ALLGEMEIN @@ -58,7 +59,6 @@ Module Mail ' PARAM = "NCTSLIST_TOBB" ' PARAM = "NCTSLIST_TOBB" '------------------------------------------------------------------------------------ - 'PARAM = "TETRAPAK" If PARAM = "" Then System.Console.WriteLine("OPTION nicht erkannt!") @@ -485,7 +485,45 @@ Module Mail End If End If + Case "BERICHT" + + Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) + Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) + + For Each r As DataRow In dtParam.Rows + + System.Console.WriteLine("OPTION erkannt:" & dtParam.Rows(0).Item("ms_info")) + System.Console.WriteLine("Auswertung Details gestartet...") + If SendEmail_DiverseKunden(r.Item("ms_an"), r.Item("ms_kundenNr"), von, bis, "BERICHT", r.Item("ms_cc"), r.Item("ms_bcc"), r.Item("ms_subject"), r.Item("ms_mailtext")) Then + System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") + End If + + Next + + + + Case "DETAILBERICHT" + + Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) + Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1) + + For Each r As DataRow In dtParam.Rows + + System.Console.WriteLine("OPTION erkannt:" & dtParam.Rows(0).Item("ms_info")) + System.Console.WriteLine("Auswertung Details gestartet...") + If SendEmail_DiverseKunden(r.Item("ms_an"), r.Item("ms_kundenNr"), von, bis, "DETAILBERICHT", r.Item("ms_cc"), r.Item("ms_bcc"), r.Item("ms_subject"), r.Item("ms_mailtext")) Then + System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") + End If + + Next + + + + + Case Else + + System.Console.WriteLine("OPTION nicht erkannt!") End Select @@ -952,6 +990,58 @@ Module Mail End Function + Private Function SendEmail_DiverseKunden(Mailto As String, KdNr As String, von As Date, bis As Date, Auswertungstyp As String, Optional cc As String = "", Optional bcc As String = "", Optional Subject As String = "", Optional Body As String = "") As Boolean + Try + Dim excel As String = genEXCEL_Bericht_Kunden(KdNr, von, bis, Auswertungstyp) + System.Console.WriteLine("EXCEL erstellt...") + If excel <> "" And Not excel.StartsWith("ERROR: ") Then + + System.Console.WriteLine("Sende E-Mail...") + + Dim ADR As New cAdressen(KdNr) + + If Subject = "" Then + + Subject = "Auswertungen Zollanmeldungen " & ADR.Name_1 + + + Else + Subject = replaceBodyVariable(Subject, von, bis) + End If + + + If Body = "" Then + Body = "Anbei befinden sich die Auswertungen Zollanmeldungen von " & von.ToShortDateString & " bis " & bis.ToShortDateString & "." & + "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString & + "


Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." & + "

VERAG SPEDITION AG" + + Else + Body = replaceBodyVariable(Body, von, bis) + End If + + Dim anhenge As New List(Of String) + anhenge.Add(excel) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False, cc, bcc, anhenge) Then + System.Console.WriteLine("E-Mail gesendet.") + System.Console.WriteLine("Erfolgreich!") + Else + System.Console.WriteLine("ERROR BEIM SENDEN DER MAIL!") + + End If + + Return True + Else + System.Console.WriteLine(excel) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + System.Console.WriteLine(ex.Message & ex.StackTrace) + Return False + End Try + End Function + + Private Function SendEmail_BRG_Auswertung(Optional wochenAuswertung As Boolean = False, Optional details As Boolean = False) As Boolean Dim Msg As New MailMessage Dim myCredentials As New System.Net.NetworkCredential @@ -2482,6 +2572,243 @@ Module Mail End Function + + Public Function genEXCEL_Bericht_Kunden(KdNr As String, von As Date, bis As Date, Auswertungstyp As String) As String + + Dim KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(KdNr) + + Dim dt As DataTable = (New SQL).loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer + ,cast([Abfertigungsdatum] as date)Abfertigungsdatum + ,Absender + ,Rechnungsbetrag Betrag + ,BelegNr + ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land + FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart + where EmpfängerKundenNr IN (" & KdNr & ") and VermittlerKundenNr IN (" & KdNr & ") and Abfertigungsdatum BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") + + Try + + Dim Path = "" + If dt IsNot Nothing And dt.Rows.Count > 0 Then + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + exclApp = CreateObject("Excel.Application") + + Select Case Auswertungstyp.ToUpper + + Case "DETAILBERICHT" + + With exclApp + .Visible = False + + Try + Path = sPath & "Detailbericht_" & KUNDE.KundenNr & "_" & von.ToShortDateString & "-" & bis.ToShortDateString & "" & " .xlsx" + While System.IO.File.Exists(Path) + Path = sPath & KUNDE.KundenNr & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Detailauswertung_divers, False) + Catch ex As System.Exception + End Try + + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Dim cnt = 2 + For Each r In dt.Rows + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + Try + Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then + + If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then + + Dim rowcounter As Integer = 0 + + For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows + + Dim ZollInProzent As Double = 0 + If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then + ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100 + End If + + Blatt.Range("A" & cnt).Value = cnt - 1 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger + Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + Blatt.Range("F" & cnt).Value = r("BelegNr") + Blatt.Range("G" & cnt).Value = row.Item("PosNr") + Blatt.Range("H" & cnt).Value = row.Item("WarenNr") + Blatt.Range("I" & cnt).Value = "-" + Blatt.Range("J" & cnt).Value = row.Item("WarenBez") + Blatt.Range("K" & cnt).Value = "" + Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode + Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart + Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang + Blatt.Range("O" & cnt).Value = "" + Blatt.Range("P" & cnt).Value = row.Item("Netto") + Blatt.Range("Q" & cnt).Value = row.Item("PosWert") + Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "") + Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "") + Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "") + Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") + Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender + Blatt.Range("W" & cnt).Value = row.Item("Herkunft") + Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms + Blatt.Range("Y" & cnt).Value = row.Item("Verfahren") + Blatt.Range("Z" & cnt).Value = row.Item("Preferenz") + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + + cnt += 1 + rowcounter += 1 + Next + Else + Dim ZollInProzent As Double = 0 + If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then + ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100 + End If + + Blatt.Range("A" & cnt).Value = cnt - 1 + Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr")) + Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger + Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr") + Blatt.Range("F" & cnt).Value = r("BelegNr") + Blatt.Range("G" & cnt).Value = "" + Blatt.Range("H" & cnt).Value = "" + Blatt.Range("I" & cnt).Value = "-" + Blatt.Range("J" & cnt).Value = "" + Blatt.Range("K" & cnt).Value = "" + Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode + Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart + Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang + Blatt.Range("O" & cnt).Value = "" + Blatt.Range("P" & cnt).Value = "" + Blatt.Range("Q" & cnt).Value = "" + Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST + Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %" + Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "") + Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender + Blatt.Range("W" & cnt).Value = "" + Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms + Blatt.Range("Y" & cnt).Value = "" + Blatt.Range("Z" & cnt).Value = "" + Blatt.Range("AA" & cnt).Value = "" + + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + cnt += 1 + End If + End If + + Catch ex As Exception + + End Try + + Next + + Datei.Save() + .DisplayAlerts = False + .quit() + Try : Datei.close(True) : Catch : End Try + End With + + Case "BERICHT" + + + With exclApp + .Visible = False + + Try + Path = sPath & "Bericht_" & KUNDE.KundenNr & von.ToShortDateString & "-" & bis.ToShortDateString & "" & " .xlsx" + While System.IO.File.Exists(Path) + Path = sPath & KUNDE.KundenNr & von.ToShortDateString & "-" & bis.ToShortDateString & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Auswertung_divers, False) + Catch ex As System.Exception + + End Try + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Blatt.Range("I1").Value = von.ToShortDateString & "-" & bis.ToShortDateString + + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") + ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") + Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") + Blatt.Range("E" & cnt).Value = r("Absender") + Blatt.Range("F" & cnt).Value = "" 'r("Betrag") + Blatt.Range("H" & cnt).Value = r("BelegNr") + + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + Try + Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "") + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL + Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS + + If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then + Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN + End If + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + cnt += 1 + Next + Datei.Save() + .DisplayAlerts = False + .quit() + Try : Datei.close(True) : Catch : End Try + End With + + + + End Select + + 'Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString) + Dim filepath = Path + If filepath = "" Then Return "ERROR 01: Fehler beim Erzeugen des XLS." + + Return filepath + + End If + + Catch ex As System.Exception + ' MsgBox(ex.Message) + Return "ERROR 02: " & ex.Message & vbNewLine & ex.StackTrace + End Try + + + + Return "" + + End Function + Private Sub releaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) diff --git a/MailSender/MailSender.vbproj b/MailSender/MailSender.vbproj index 135e095..36bbcc5 100644 --- a/MailSender/MailSender.vbproj +++ b/MailSender/MailSender.vbproj @@ -117,6 +117,8 @@ Settings.Designer.vb + + Always diff --git a/MailSender/My Project/Resources.Designer.vb b/MailSender/My Project/Resources.Designer.vb index 00c3826..29a6d4e 100644 --- a/MailSender/My Project/Resources.Designer.vb +++ b/MailSender/My Project/Resources.Designer.vb @@ -60,6 +60,16 @@ Namespace My.Resources End Set End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. + ''' + Friend ReadOnly Property Auswertung_divers() As Byte() + Get + Dim obj As Object = ResourceManager.GetObject("Auswertung_divers", resourceCulture) + Return CType(obj,Byte()) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. ''' @@ -80,6 +90,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. + ''' + Friend ReadOnly Property Detailauswertung_divers() As Byte() + Get + Dim obj As Object = ResourceManager.GetObject("Detailauswertung_divers", resourceCulture) + Return CType(obj,Byte()) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. ''' diff --git a/MailSender/My Project/Resources.resx b/MailSender/My Project/Resources.resx index f3e09a1..ee6689d 100644 --- a/MailSender/My Project/Resources.resx +++ b/MailSender/My Project/Resources.resx @@ -118,12 +118,18 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\Auswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\resources\cs_aufteilung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\resources\depot.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\Detailauswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\resources\mdm_zoll_verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/MailSender/Resources/Auswertung_divers.xlsx b/MailSender/Resources/Auswertung_divers.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..023087971f6554c2121384ffd3404a37737a7b39 GIT binary patch literal 10116 zcmeHt1zQ{I7H;rR+`YKF6?b=v6>0HMT!I%VPzWx?-HTf&P~3}Cqy#NRT8cZALXn&9 zea`JZ?0xSaIA`)aGnr)8o0*lh-t~R!{j}APkO={(03ZMWpasYXg-kdj0077+00031 zh-f0`;_Lx(_At})bp^RUi}k($NErU594FU2@|GMankBVCL>wtFOFPSMp_K! z7^Sh*;A4p!a816MfRAcodwG{SwrNc?C`uRzF`(r+S1BTixcPf3Z;NqH`S4xBgUXT%?tEfA5xJ2xeG_} zDM|3e7ELa1!m)2hD9{~(Yqt#e+`5ltv*qtHT@9P3p(fEX7^iAH?khCi|Pc$|raH^tP z)mlHE7wjDNJwr*=m&L0io~^REtUzseg8%C2(d&)uMV1? zqIAAy){fn$@>yL3H~yTO*+V*X0{B1pCX@yl^Uq%zHwYY$=J@stq4!k|9Sw&>Q?-g@0>w^mozxafA?0UqoLLh zr*w?la31e0FCx4J4{o|W{aqa3a0BZS6D@z>*$M?)>odbyHEtvqi0|R}px1>U_Bs;5 zc@KM86h86`0>?u!6qoVSaU`JSe)Yo;B@_buy`A04eGKeOcY+ql#37DcLg8;eSQyE| zi%RI^&swG-0`?zxJo)V1C#go@F*DlmHRvi-cdt66;oUo$OjetXyB4{n@2GhpzSL8v zWauj5SiXR%tr=SOA3X}+fhXw(|-?{z%jRA7(85{r~m*C{0ex;{54pr^i5o{ zcnAaY8t#IwHS5q5ki+!GHKH3d9?y-c6%QjY8zPK3ek`uITJgp#u**uTp+a22_P_lg zl84h5EthL_q0Yt?1$>RINX%~e`pA-^AZxc}St)h8LD`n+0dWCZ$>jU3-Ly5+p=INU z927uUly-$DnP^;;ZmKQ}kCDB*9*?h-yac>kro)$6mdu;;JTBU8^=mRonGA5lkEh?J z&*~A8TgqEmA(}*x9#TNciB6-f@Abpx?2%{si_jspAj8v`-EeY3BVS6crmzH$oZuz2 zbrUpnZvaluWb?kJx#$wxCX`Us(E}|%2XdBihb$J_{-9?~9Q9D{gmU)@-8^`hthZ z&&wE4Ypoy0o*N8%{}4Ta|3&JlPA@X}WriISM#X|WA$hS^@vV^&Y(7aZD59GEd+B;& z&jJE^u-N3ZaIr&Uv1lV(hJr1AjWeN7v#O}WurMVF)065e*iIPocFX5GnNWd8ysq7c z5EK4D3Z#6NJ_B1dPEJzpk`>zdt}Thshxpl)THg>Ym+o$a)4h0eFP{0~ujcN17LZ{w zbxKf7Y+8fSd-A^Lc4Lr*Li1BJ6JKuh2;o4~QbKu7#l$zqX!z)OQgRsID zQJP&J2s_Ow^U2d}66>9HVDZjpHhUSfkAkCoiuu@C({^+iR%DsazS7Zpep|$`%6zY8 zmr)Zqykh~6$ z{6shz68@P1?zR?SkhQJ{*v|R6`!CLPOyGr=7ThpzhTB&g9d27e+8fOeoH8niX$@Oj zh6SO7d9My*R#)bLk+j=BD{X#=3Sv%tYCZ68WZ^!c|I;VG zSi#*E1oCkIS55ijg!lhel+gH|s9qjIg$txxIUm2I*)U8wT_L(={Y@mxt3}kMw1f-7 z8^5=dpze(g*NKfsSwF?gDQvJ`bIi0NhJCdnv8_AuTjcDLfeP<@B1GpDPq6sN)tQN; zsi_({m|#eR0S$Z1a6{S`*uMacLoZK|{I;MH>B}>G8BH-+RblURVuseht=V|U@ipMd zD^Up@quaf>0BUjPqOK3hCljG6A_?Y_g~}pB3i~HPmNL8E-*X)Tu#rog#zs%SqyJM> zM29#VCc!x|j{MiO@DE<}umw4Rxc}Jy@z{Gt6VVhxgq`E>C*B&V*re2&N!h-l>{!zXNHWBxpSzAsb9Eu~4KKcHmgeXeLaJBG z>8TDWs@idQDo>eZc+)!`WhCHvL8gn_Is`tKx@G~nC=>;j(@LOIau$Q(`jM*`52t5D zWE=K-g{{2A`@O?>H&fqnr%oAsj*P+zXbeO;PrDcui@|ZQAMOFn=KU;=CewZf|Z**xUb- z|L8&T!o}>-D;c1v0Q~)0K(rQl5wT(rQp_1z^dF!lv6jPd$eI3b5Q320H7BuC-mb*ljY{)S-VBBh$u(CRV%?` z_>9RIBj^6cfJ|@a$m~|!^Nn~&6VLPuHPi0UT0s>_Z0a}GOp6EM<}erycV58V$pXRV z#@j(=oZMXTAKPEo`jXJ3Y?@-?#8@(RsLcF-F65cL+`B&hnne=dS@)$S?(RHXEAaBt zT@07W#Aod?E&iq7)sM?3dAGOA^cd|)g-BGA47}ey==<+|GUpxB@a?gV!xp^Vfz*X%rv9Vd zhh%SJ-bT7Q6O=|rz!>Gg<_tPhcH#ZFX<@N6p^Hc3pE*lM%baE<{H^KM!lY+p10%}U z21aeUv>o|Hfc8_8gJ9d{E%EgMC*DN69@$3y-VTwfeF>EQv_6}oxg#e%FW zfroyn9z%pbpB5*yJtpH)l4}du;te0oPe|q)x5w|9+5d^7cdiyA3#hnipfH^ocL5oQ|kklTH}+51{qm3p`_4M2p;(tak2BF zq|+GBN?^H+R;%UZBSHc4aUnbhR=U!LV5U}`$$k;%Hksw{k5IhK#%1)q>ovYynFH6B z0|k!1aiM))-m#coHyk#+GTwMCrMEi$2dzF^{#T?pbt|Ru^=lFra4+uG>Lb%20D`l!^ zap>Vl`S#z&d4mbYQxb?Sy(@S&>MN;PD=0@6@p2ScYFS#-pSv;^vWxCGZy@b+R(3 zZ>l0Had=>h-*9-a5vE#5W>BkNR8k}xpMS{zdfqy&!;abd#uWF_i&v&wLME?%*0>jU zo0dL&A=72_pu)oNBqXYM#W984w0icKJjZ5b_tQigFVCsEB-kv-kEnLP>mRGQFX7`O z4P*eI5njNs{;Xl{9=?vCKZZ0jhRbp5j|e+!XS^f$bZSQ!fe(a0;+f-!GHa}w(0!U1nTZfjWP&2Rck-W~tYc>Q=6Av)Xj5wyc$ zu8AkwS9Tt3c?YKULTyS>>&KTD=_BxqcKPi7*i6hzDef*s|c z*?lRlX}a3H-0_xVU0t)2{s`&ux3{HMO~bwF-weit)I&tP8Aknm(*V%JrBvuhHgkSy zrK6_&vo*v=dc!ChC~=6 zWue&)DA6DRXy2r#%cmAeU%fyYjvf@$kFPdTR49ThY|OWxNKz?1Wk|qc!#N4=qSY8A zEX8lasDE1i?yG~3;#1X#^lf2U+hMXoRq4i}7J_;pLrf&+6WpT|E&oXM$oZs6dlH)R zpax?X9_sL?R82&>)x^~)Pl6Xnx84^dm!K&{@xJjM`PxCD?eZ;SBLk+Q$-}+4irdTSjj-e-}3E&>EmNoCsA?(CEK@LhG(3M0 zZ7bNu51F{hNCs=B^phT$m-%z@BwXD!5HR_OT6@j6pGlCykFDlCqJq^D%tD5zWjjsxC1x+Bmy&%GR zDO{3=_HJiqB>Tr6wjbAlVq}m{g(@^)|Z4S2SJ< z#f^K_WOvV%O-e0kQ_kgE&>i9>J+&|tzunj=FO~Xsa8UTuItAneh0a2-EDHHsp{ait10ww|EgAUv>;_npVTex`xsG)sVF z<~OFPw{GAM`Kpooi&;8ADn;BwMD3YWq zi59Acpvn^ZHI^hk;)4iY%f}Y)7c1QT#8y#>BbXQ^7cP{4 zNR@l2I=&)h@aElf9k<7&43xn;5xJ9_=}Rc?_H5hF#*HhKOr9} z6WwGMyUw^PDAliVC&v2mec=*WIu>V?3i*Ecz{-}Z=XkpMh9SCTJV~r2UC5*FAmeuN zlS=LCRdjP7GC1W&bjwN+I4+b&^N4|6=Y%#pAPTb=vD3{RP`5P!n@ z)HnhS>8S-94W*;m&SZ4w1c!ZxUplB87vmaHKy-1pma*xMM;Ok z%&&N`2LMIZdFr!>iTlaK`tR)2z5sD8)q;*!frYD>eVMEQeX-5ajuB8$-+X;o-(4wM zTq7oFJZ2J)G9;-;1=p{KVU+`AAk~r-XWdpH1LEQ}+Pu*{KTO&sfUIb$&1*--(}cdR?h05?MO|n`2bps*koxYS~8%^)m5;e|G9+Xq;WOdv4DtUQd*3OKS z``nLt^uJCo&F&`Jx2CJP9ZeGU6p`DkQ=H3@A4y#m0twcB`qX7S(N@vNlhgxh$&vc8B}3XV2UuxZJsD z!%E71MoI$qG60oNJdDExh`HN=nud~!?dk$TLE-0|tfj_*@uiT-zw-Jb`mDk$i7j(#u{0~pgBPB zH1ab2BV~-21!<7{hp`^^CoTLoh z&TZua2K`G*{a@o5&WZks&m4MrNW%`%e&R4*2u4<~hZub8XGgK1qG%gUe1hdLo!DP~ z7ib5o`DyOWx!I1hNy(S{&=W5p$g@I#K;92o!Cam-WkGXNw=+VC1)NJU96jBQoYP%k z=jF#wOhoV|tdWzw&NMh0aafqC0)5ffj5j7{KKNS=2_;iR*0lXWU+waGRJ3;|$|q*) z2tgmNmd$3=0ev-jl43&6`o*O}1m)lY0M>w*x*y?7UkStgTXEauI9>La6|$vjpSVn- z-p;qiYc>w_txbwCXv8Gst*60GpylN3x-N_WkQHlsU3Y-pTR-}~wCL2IUno{yQGJOs z#4&Q+d}47Lizp%na(5;qoEi(6ehRx?$=zL8Wcwmx6EI!MTfnQ~u4j#AB&#egty00-8?(ET5xNqiUe`2E7goKF5}e3p(;AMrA_PgcyBd zqKw0g!Q8{VyX8l)L(OLq1Pn2N0m{^fa!--@H>GfeX~;&zcv!GBx2ArZhjh zgOMwi7v=5>Ym{6ZQI2|Q+ z)&};jWAzN=bczItM0yo)p=c1QYD2^! z3=ln<3}C-6CL_ZOM8Vp)lC9Sih|MPh=mrGX+GWU;5OZ5#EK~N>7#~m$kgca=Wg{&M zcpTDgtcuw^d%!}96+DFt-}O)83g=x|#o*1`pp$cv1>H2^ zYHh?vAJVBIcOsIA6R*Qn(XCpu88!$py^%VZ$q&5f{!d>K@a5^Om940doSXf(eV zKw6tn4?}$ICX?F7P8}lsWX&u*rygRx-)i34dZ|%q{-X2j=|f}G*$PbLng*<$r^C91 z&P%gKNd2XA@w5F2vKk9FpYwIWY-}Z_MZS@#*d2oc`VL6gY2w;*tN3ibY-MPnff?*| zymqjuLOD5Fo8itAQEr8%;7|!0TG0q%abD+@M@({ii}H_G2C$4(DK0K>@Dv$a9P}Wr zS3LqvD`)<;tE=r$AyPX-;Y|)s5%sPeBKa$1KgstGNfo#7N<*6=3hGuH((J>503yg-DOeht+M4I@5 zlfOCl_L^;TH)keUT*C7Pu9N*qDF}$1aLM4GR}%gEFZ}oMAJ!FVtNkayf39)(x8bj2 zDLha9vf|;s;eYDBe>EI~x3K@;D)4=r`(og4q&xUxse97kedGH&%5P%?%s-6(rmEaW zxUV|=Mj(Q>FaGuO|33}lKH&W({%=4M>^}hSxAgA=-0z_L23UeiMesZN-A}o1dVdo1 z+f;GFu8o48ly{;}%a2mMd-{tXEL ec+&pmp8iGU+G;597z6+?;V&k57%MaUI{QB&e^!D3 literal 0 HcmV?d00001 diff --git a/MailSender/Resources/Detailauswertung_divers.xlsx b/MailSender/Resources/Detailauswertung_divers.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..72b360680c8c9679aafc4ecd66547bdc767d2ca3 GIT binary patch literal 10256 zcmeHN1zQ~1wr$+q-QC>@7TkhMf=lD>65OQ&1OgTS4po(VeCbsGfqcYbshFEp#+J853nj_K2$3FDW~)9Olyt=Y2P=&Dc~Ar;1!JD-T$ z%Vs_g$}7`~{RE2U$-+lDI)eRL3#ZsHZ^CL#`AA8F%Tt5Mwbgm5ydzN>@l2AYm2tBK z@_KepWS~nIQh~t@--O>YSdE2Heo4EfksT))GFKP^dNl|3DY<0;EF0Bg(_jN9V)wkKuhE_ie$$7wiaIyL zJE5R)P>g1l%G5`XM(g!>q_b3)vwiOV{PIYaK|S+*f(nSak7=<6I7xHFwY(zp#Z9XqiL-sJJmVZ_Y}cbk-#)HbT+qj zVPpNd{x3cMgE{$^rk5ossdTd=haJh@h4)`hErQS`6g1LVG;)yC#h6D_vW z5u1i(Xh+Oqx06AuSx8xscyo1fY2-<*K}r!+9ifA&(QrlimV4(Uh_;p`si z?l>58u56V1ntN#Q12qf_v=m(a=gUNlO|NvO71*F0!n}?~`rI#hP`^WAU34-PMPWjF zW7!@F!8nYZjX=Sh9F&s=$-rP??(goE9w4EnxnMPlCiF9BVDoQY(bEuw=N3>(oi|Q| zaa)hFyK!2(d?6VG`^-?ydcaMH`hIy(O?^Fi8iU2gW25B457^8gFS7A70t7i>6feN| z_9O+CMCT_tV@ z8QK?4nTO7gEY=75rk24y{ZE%c6v{7~0lP~zEC7H8z60zse|45J%~uZT?AU&pHID&z z${o;{K@ugfYAh4H&tE+=pj1NT??g1RNT=1DdTg_Sms@CYJwU(O>pE$?BsJ{CyQSnK zEds@)P;`k95!5Jp4h||s*gI4xk`buA;iM5@vx*=smcmP{H0%{(tz#OkhXo{YN~Nl4 z8tHNl0L9JXwQHb<(xQXt-$ljJFp0}Ca>;AH(T}r3D+{W^tc4HsM1wV~)Ri#Jn1o@` zM4|*LV}D5@C^ZY$qCN^_ikO{#n|hoB8G$pD>TN6b<^^@9ue!6imOw*mUq&^aBic$Q zFSl|%*1ORgzr15 z?yb0yC#-8Q#g0WIHc1)QcQt&t=(9+85W=brVTtIIR{qF219m*-xcOMG=dAf$r? zD2EAp`x5;vL2bVzHq4Md0x9d)C3#iYzR)Q1LjOiz3UTL(%h%`>a<0hC$ITnlam&2` z`lu|dc?krl-m@zq=vzFmfG?6kU%Ln1OWNKqt7xA9@h`*Q5cG`>yPnvZDHq=NpXX+a zoQo`YIG!ULM2LeN)k^n4%CQ7FZMZA?U(r4uG0&n}CujV4{Shst_?Az}(q}qjx67?> zTR8)>vat6d<1NE7Pla$B{!!Y7PjU$|@8v6^mv%F4FX{#Ym`HE@RKB`#7oxX*$E<%@ zvBK$g78QLFq^M3DsPUD^oNAlsV~&?H$E5KqK{qpFX2{m)cZCfDFE5QHPR%Hg7kSvc zqV{UG6TrqEt;#2qWh7>#8;>U^Yk zj_nFQY|qxUkSZb)Phh#TtJv|Dr!FdTgZB)A7n;_(oLXo5EeE(0Koo} z11>;gXLB=kS7$4GOP8Nf(^Y-M{;L>z8`TMF>08js7u)S@iMI!csvr>{dK31eo z`{FPy)k*(U*ekIGe~p^FMmcWjsE_Mx#EfsOO+7wf-K76wVeTapym{G6ptE25jq8ar zlL-;y!e>C^14^DlR0rB)6~(q3|7J8#$^ZcD!IJ_Wp*%z5$#7LlY#P)3jI6h;a8gYbOHglIopxQv=HfwuvJ}MMmHe9bJxobs0bV{$fcJa@d{yf=q)hJPyVP(UGHp+ zJGOQ>z+Lhwn#Y-<|J!!IXsz}oeIeKAb<$h@Nv*E;FMG7V*`eKDJ+oLhi+=XoP8YJ{ zROkd>kpOo*)t{aIGw`_p&COk1{*^ZWINo zL30brQ!`N3&`iTIw!j|>|> zROkY`;i0o12)_&c(Lwe)iQupwNBHy0_m9x;3N*JfXZvIQN3-{J$D)b&u-ou%o*}z< z+}T*zvYo*C*jg^^(^Bl^tryjr$A3(FLom?HL7|#pnys3aY=GE$p*jzXxlMC#Q>SF5 z-rxR(Ze*6Ke8WD?o}5Lun=|+N{CuaCZ#j`0k8Lrw*d;_=S!cq%6pyhYI1z&=(QMw` z0TnL4V9zlyfg^{x)6OHX(Z}lc{*pC^1!EOo=*zQJ{h|YDiQ&3IbI~A+9=0k1<(0XR zd=5;Pu_Gf1JJ$$dZjuDgQE~k%!#o-OO!TYOz(JF+sUw)om4d(I9o!Ie0fvOb4pcz;t zZ2As&;V7_xW7f4DhqH9rDxRB6#HI>DDcw(yRMes5-O!6Uta1ea5b|U}Js8mh8Ce)+ zP7(A1vXP$@3NWabkZEEhUGlXEG~(ce0+27vEO3 z))@DA5w7BYeeEKIPOI;^dYuyg+UMr#T08UMVUY@{B{2tzM3kCib5zrJ|CuFPb3X^j&jM=((htd52gIDC%-EP%8E&2@bF({s1{(UP=Wce=Q%v6SvCQuE1 z_y->+cLSK5nMb<2y*O*pGDh9Lp@hWQnugPJNGxQIiRng;nBf}-Z@NWc1{UylcD)&! zrRYtbTcqtd-XkT*kNFhoXpdDG9Wg~C>1;%;Hf|N(gPsx^OCBGCY_{{U+`{fJ`Eaa!U}4_llHj8QlxbNo=6k zahY-!{&G&j5zAGxP=h+cms5qMx+Ny{T9kDg+Blz+{5CADk6J)|UL~^WQF-!HiL2hE z5JPpFo={<)FV^8R`V|pwl?qc&%W0%pp?m+r<-MYNc(kY?vQ*KhR+8NWu6*1kAB6~k#@bbVmW=3*ls^K~$LJ@wc4a;s#o{VWCfB^!+=L^17&Z))g*Ab+O=@3y1nir|7sJ0+W2DtC zBJAI-a%PAhIyN3YcSY>8qgrN_Z{H}y zheAH|ym!k*@^Eno;ZRxDn>D3T$rwtA2j?+9Jg2XuZ+d6xNRz`P zxNE-wb-0izwTj>`N znIdD4C(X>tbrG0f7Ey}EJ~h9I#*PXx-iS8|Tkc&-l%#htnzeq>G@{0Y+>~#C&g&g) zu+66*d|Tm?*I`gd>Mh=`i&$c;a~c$tw`}{C(4c(!gz$sK^4_0I=xwv}Sn*T9o`=+f!lhf1P({DbkXsH+J$y{53MPc%9 zvQ~O!P%#>ri;6JMw!T2mu&s-%@?=1s4itBYM>~j60>rrF9y%j z?qvDx?ah>+%aYWb%8W}GD~oYDpPPz)A4c+fedweJvrAd#>92$yH`S+pu$eHU^EHOE zWQ-Tr*|W`C8==^-7hp{!#qTk1R3TBQ*-blr^I7!$rabS*Nj~(ML~}WpQ<`u2_2-VF z(n0-|(bzp1WTJzunw2rwUQxoTl4SE`3Jk7m>!;MNK^B0?B%_NL{VJ3^3LTC|wYq$n zAK->NFv%T0jnX6zj*F3KjOsye=AF$NOLIMs)sGY~-x?(*3^s4RT*J0@h{@<2&-QX6 zTjqZ(^WzNO+!GL)+Y5+KShG|gjMw4$GF>OQYRfUuPdhDUkyI`BL8#jT1*JF=lc7xT z{>rf;I}37D84otOZRZt(FKXA-4I1G9&^V&pJy}}Q96?@vx&6X}_o&P;D~Ftg0h2r4 z_8h^eI}OJ2HF=+638bs>b^-c#kAji3H)@i#IOTDh+Czj77HT&9Lg{YePBbtU1sGv$ z1%^Qx0j|`tWUJd~A1<*|=W>=;8DB?#mS`L#AxDd-JUvSA5v>=Mqt{i&Z{{2Dqi1vD zf~#O5ar(|MbCh+SRki7fELr6BY~OlPN%5dyylFPEs=g9&uV#bhfl77!lu#pOjO69a z{@rb)rBuGwN-WTIx;{oL2rE~N*5gZ@y|q1ok_(l9s^7Y=T7xKPx+&Fl;Z!dB0Yy=! zc-zvbJL@A$$U`DKS;}Gh6k_0TTcr{I4;)o)?hXayv{IAxuSIkG3woLjK?hdmF59q> ze8=yk9j+hEPW=v$rGypGf!*<#=TmE!uR?TAAR1GF^Hk59fr+LSN6?E4bUBQ)SD&!V z)1oZTk#lelia}Bv-mm>Cqk8~zDi%i8v}G#Hcco|1FJ!VT$2@RBcL@*g3*lx=2Axp-veItHQet; ztDW>Sz$$0}zz+ie!2id1{nto6Psh$BmlyqEDfIy^?1%#%*`Hv6ZzgXizjZG^Wxe8n zk6@^76YxTAbja;yxtR%69oSec*(=T|>|djI@M(h6=j?s{C{9{Q zdgHC*Yd;Qml66%|op{lU*;yxsNd=f%H14 zD$^1c8r|BBCmIw4uTsg(i}9}f_sx^G><8H27CJ^;q|xomQ#Z$KG*Q1{&L`a0);FLZ zN~S6NVy@x8h=Ui|kC>%%nzV-}xhts4**do_F=38)=1(h`#y^HB3UL?ij_=aWqt=VX zkfgH*!S0hkaJzWunJ@b6lJHWf#oS-u76xV3&BUdYuVhJ^gE zB3qZy>@aZd5X>Gh_Fkko3iCFuU`QzWqZAi=WJ4V8XP>(16lSHZLkCBwZXbpoZK-8I zuT1nXnVYHIMPc+{uVm_agku@M^wStuHy=ihT*@2qy1x!hF+Jwz6wRJcT5#kg0U5;fxAL^40er>7sym+#ECC6 z&Q97s*kt?}&h9f_kajOdq=6;b@W3qG!R2+^8b<_FH$?dd)5$u77XR;vF^r->mdt1P zu;V~Q)aeyhQQ3`NQQ$#T*a%MOl<0Vq+-F$3&%9PDKU@WoA343VO$&*BL>PWdff{U_ zm~BvrL1#kP*XeDDkJQ3h7sE9}kG(r~3{{z7uKw5&SBu`YWqV>e&!C-)3mth2kNe4N zKxYUFQ=aMl*t@bRxMG-~#WOmaQ1Q5=lbcDoGTth6x-rrn)~el(IP(yC;b*1#n$We3 zU7{3t``koG$#+}FeiUkkpIYLY#{)+BWphB%C}Zh9wovfjZ!K&g#`ZG+1B zyj>iwVx#vZX$3NDyb1$ z^vha|ZquGIJ1N(g279XSraf$SJ=^#v6;fhf4lRX5rN7l+B%1bAl8~OoQ+Niz7LuY$ z5*qj|Ls&IjNcM@Lv_C9CSn>Zbh09x=TR@fVu6^w)M%Z>g2|jsQ0X1=a=tqRf-E#W{ z!pif~1$@&Y8wn`Pv0W zp9kq-In@p3Cy?CrCPS2sgQE+Zse`lm zzqIK87Vg2}-#6if3b+;%x~z1Erm!rd&x_1!Dn%_UF7Z94w|?Fr%jqDw4*t%k83Jqk zs&3=`?Z*2=i?vqPT$L(iO^XmAET3QOfAc96 zT(hs=J4oP_?pHb4GkKWQihXNUhZ%6Hh)B!qXgGJ**?+u|bM5{(T5rVVOTjCd{O$Vr ztZ%-UGU{~_5sW!^br!dF>|_0wZ(YrxC&(-F+)5Fs_%#SKxxg0G;^twg4nJk@s0ho6 zSU&3%{OL47SUH-&+LO8fA{Bc*V?2q5`ncjSJy|A8H2*P^KVpErKu#QMT19uBx&?OK zZab5W=@IOQ{}c`Iv6|r`z@2af_F=j|bFm}1QtE2%tZwe=`mH<7r$u9svAh3r$6!y#0DJU82vum{o50L$NLfx!TVo^0 zgg7zvVmSP4=|CVYIqdjjAYc&|Po-UzCJah!hJ*dRVKp6GCem!yrkG-0j;Ty6Atwbu zLA!_l3ZVL;${_+zwj9tMMu9g3e$wAGhP@Z}@B^4~?BK?r|CMsaj*kCj+|PIR=kh+W z(|+NnybARLHS93T&AVNM?50C+{mv#YKR6h zAFd-4rbgPFbi+C3R**O{Hz*|?B+T#Y&{a0#qmL*RpxYqvgmJ%v7254e!%4<4Tq<2f z0{ttE2$C1gAkI`0UXTT|kJc_a5xMf3R#;OV>`{=H)tAJU;WL{^9|=Qaw{cRG&)W^# z+pm>MjlA2=Uy|yOYuZ4erUeaac`_=SWIYSPZnC3bH+~3k(slpb(6}73Q#C z=B1U~pO<>E+>4?oPjq>Sh9OPUXrmG4c+<&Uw|wpkTv=(U=EJwr;oo9r5m0R3#gV#! z_7VL|iZ8v5Q5b?E7``^iuV9oANenLR9fW?d7 z&uaR27yf(un>kLZ3V#Rq`+SRk8~)rDf_d_n*%wa@|E@v*)o>VGYyQ6#>8ChPg~?w? zkKl=0Ph`rc#!nTUU&c`2LIK$LANtNygs1YrFN7;_o#9`9|Nn^vPXV7++kXMxp#A~) zwD$fK;AyGj7eE`%pKbcz!pBq7r{7M$Op6GfHs;rt)Kiqdk4=7IfE5H%0N@`Zm8a%U zlg2LqZi+u1;z`Q*Z3=k``uE`d3lac;p!~}-{VSBKD!_n!5CA|1|7gK(JW2iY=zjpl Cz^<79 literal 0 HcmV?d00001 diff --git a/UID/usrCntlMailsender_.vb b/UID/usrCntlMailsender_.vb index 9c082bc..982c858 100644 --- a/UID/usrCntlMailsender_.vb +++ b/UID/usrCntlMailsender_.vb @@ -79,7 +79,7 @@ Public Class usrCntlMailsender_ Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") - DatenarchivBind.initBinding("SELECT " & TopMax & " [ms_id],[ms_param],[ms_an],[ms_cc],[ms_bcc],[ms_subject],[ms_mailtext],[ms_aktiv],[ms_info],[ms_firma] FROM " & table & " WHERE 1 = 1 " & getParamwhere(), table) + DatenarchivBind.initBinding("SELECT " & TopMax & " [ms_id],[ms_param],[ms_kundenNr],[ms_an],[ms_cc],[ms_bcc],[ms_subject],[ms_mailtext],[ms_aktiv],[ms_info],[ms_firma] FROM " & table & " WHERE 1 = 1 " & getParamwhere(), table) DataGridView.DataSource = DatenarchivBind.bindingdataTable @@ -110,7 +110,7 @@ Public Class usrCntlMailsender_ Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") - DatenarchivBind.initBinding("SELECT " & TopMax & " [ms_id],[ms_param],[ms_an],[ms_cc],[ms_bcc],[ms_subject],[ms_mailtext],[ms_aktiv],[ms_info],[ms_firma] FROM " & table & " WHERE 1 = 1 " & getParamwhere(), table) + DatenarchivBind.initBinding("SELECT " & TopMax & " [ms_id],[ms_param],[ms_kundenNr],[ms_an],[ms_cc],[ms_bcc],[ms_subject],[ms_mailtext],[ms_aktiv],[ms_info],[ms_firma] FROM " & table & " WHERE 1 = 1 " & getParamwhere(), table) DataGridView.DataSource = DatenarchivBind.bindingdataTable