From 9fc10579afeda7eebae12da194f47774879b1ab4 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 13 Mar 2025 11:21:59 +0100
Subject: [PATCH] Essensbestellungen Reminder

---
 SDL/frmEssensbestellungenAdministration.vb | 18 +++++++++++++++---
 SDL/mdm/usrcntlFremdrechnungen.vb          |  2 --
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb
index eb8c56d3..1f613c17 100644
--- a/SDL/frmEssensbestellungenAdministration.vb
+++ b/SDL/frmEssensbestellungenAdministration.vb
@@ -562,10 +562,10 @@ Public Class frmEssensbestellungenAdministration
 
             If isReminder Then
                 Mail.Subject = "Essensgeld für "
-                DETextHTML &= "bitte diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & " bezahlen.<br>"
+                DETextHTML &= "bitte diese Woche das Essensgeld " & IIf(kw <> "", "für " & kw, "") & " bezahlen.<br><br>"
             Else
                 Mail.Subject = "Essensbestellung: "
-                DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br>"
+                DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br><br>"
             End If
 
             Mail.Subject &= IIf(kw <> "", kw, "") & " " & IIf(gebaeude <> "", gebaeude, "")
@@ -1124,6 +1124,10 @@ Public Class frmEssensbestellungenAdministration
 
             Next
 
+            Dim TextHTMLtable = ""
+
+            TextHTMLtable &= "<table border=1>"
+            TextHTMLtable &= "<tr><td>Mitarbeiter</td><td>Betrag</td><td>Firma</td></tr>"
 
             For Each row As DataRow In distinctDT.Rows
 
@@ -1137,6 +1141,14 @@ Public Class frmEssensbestellungenAdministration
 
                     If result IsNot Nothing AndAlso IsNumeric(result) Then
                         result = CDbl(result)
+
+                        TextHTMLtable &= "<tr>"
+                        TextHTMLtable &= "<td><b>" & mit.mit_username & "</b></td>"
+                        TextHTMLtable &= "<td><b>" & result & "</b></td>"
+                        TextHTMLtable &= "<td><b>" & mit.mit_firma & "</b></td>"
+                        TextHTMLtable &= "</tr>"
+
+
                         Select Case mit.mit_abteilung
                             Case "MDM", "EDV" ' -> per Mail weil SDL keine Benachrichtigungen hat und EDV nicht ins AVISO schaut:
                                 If mit.mit_email <> "" AndAlso Not emailEmpf.Contains(mit.mit_email) Then
@@ -1167,7 +1179,7 @@ Public Class frmEssensbestellungenAdministration
 
             If emailEmpf <> "" Then
 
-                generateEmail(emailEmpf, kw, " - " & cboGebaeude._value, "", True)
+                generateEmail(emailEmpf, kw, " - " & cboGebaeude._value, TextHTMLtable, True)
 
             End If
 
diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb
index 9d5fafc2..4233f348 100644
--- a/SDL/mdm/usrcntlFremdrechnungen.vb
+++ b/SDL/mdm/usrcntlFremdrechnungen.vb
@@ -1,7 +1,5 @@
 Imports System.Reflection
-Imports javax.xml.bind
 Imports Microsoft.Office.Interop
-Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrcntlFremdrechnungen
     Dim KUNDE As New cKunden