Essensbestellungen

Aviso/frmEssensbestellungenAdministration.vb

@@ -1,4 +1,5 @@
 Imports System.Web.UI.HtmlControls
+Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmEssensbestellungenAdministration
@@ -28,6 +29,8 @@ Public Class frmEssensbestellungenAdministration
         cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
         cboAbteilung.changeItem("")
 
+        cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]", False, "AVISO", True)
+
         loadBestellungen()
 
     End Sub
@@ -151,7 +154,7 @@ Public Class frmEssensbestellungenAdministration
     End Sub
 
     Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year)
-    Dim srcTAG As Date = CDate(Now.ToShortDateString)
+
 
     Dim JAHR As Date = CDate("01.01." & Now.Year)
 
@@ -248,7 +251,9 @@ Public Class frmEssensbestellungenAdministration
                 tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
                 tmpForm.Controls.Add(UserControl1)
                 If tmpForm.ShowDialog() = DialogResult.OK Then
-
+                    dgvBestellungen.SetOrder()
+                    loadBestellungen()
+                    dgvBestellungen.GetOrder()
                 End If
 
             End Using
@@ -304,6 +309,7 @@ Public Class frmEssensbestellungenAdministration
                     Case 1
                         If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abschicken?", vbYesNoCancel) Then
                             bestellungenSenden(True)
+                            generateEMailforHighway()
                         Else
                             Exit Sub
                         End If
@@ -311,6 +317,7 @@ Public Class frmEssensbestellungenAdministration
 
                         If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
                             bestellungenSenden(True)
+                            generateEMailforHighway()
                         Else
                             Exit Sub
                         End If
@@ -392,5 +399,88 @@ Public Class frmEssensbestellungenAdministration
 
     End Sub
 
+    Private Sub generateEMailforHighway()
+
+        Me.Cursor = Cursors.WaitCursor
+        Try
+
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+
+
+                    Mail = outl.CreateItem(0)
+
+                    Mail.Subject = "Essensbestellung: "
+
+                    Dim DETextHTML = ""
+                    DETextHTML &= "Hallo,<br>"
+                    DETextHTML &= "<br>"
+                    DETextHTML &= "Anbei ist die Essensbestellung für .<br>"
+
+                    Dim TextHTMLtable = ""
+
+                    TextHTMLtable &= "<table border=1>"
+                    TextHTMLtable &= "<tr><td>KW </td><td>Montag</td><td>Dienstag</td><td>Mittwoch</td><td>Donnerstag</td><td>Freitag</td><td>Gebäude</td></tr>"
+
+
+                    Dim cnt = 1
+            For Each row In dgvBestellungen.SelectedRows
+
+                TextHTMLtable &= "<tr>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_mitname").Value & "</b></td>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_montag").Value & "</b></td>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_dienstag").Value & "</b></td>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_mittwoch").Value & "</b></td>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_donnerstag").Value & "</b></td>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_freitag").Value & "</b></td>"
+                TextHTMLtable &= "<td><b>" & row.Cells("eb_gebaeude").Value & "</b></td>"
+                TextHTMLtable &= "</tr>"
+
+            Next
+
+            TextHTMLtable &= "</table>"
+
+                    Dim EndTextHTML = ""
+
+                    EndTextHTML &= "<br>"
+                    EndTextHTML &= "<br>"
+            EndTextHTML &= "Bitte um kurze Bestätigung nach Erhalt der Mail, danke. <br>"
+            EndTextHTML &= "<br>"
+                    EndTextHTML &= "Mit freundlichen Grüßen/Best regards<br>"
+                    EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                    EndTextHTML &= "<br>"
+
+            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+                    Mail.Display()
+
+        Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+                End Try
+
+
+        Me.Cursor = Cursors.Default
+
+
+
+
+    End Sub
+
+    Private Sub cbKW_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbKW.SelectedValueChanged
+
+        If cbKW._value Is Nothing Then Exit Sub
+
+        Dim dt As DataTable = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & cbKW._value & "' order by MenuDateVon desc", "AVISO", 100, True)
+
+        If dt.Rows.Count > 0 Then
+
+            txtBestellDat.Text = CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy")
+            txtBestellDatBis.Text = CDate(dt.Rows(0).Item("MenuDateBis")).ToString("dd.MM.yyyy")
+            btnSuche.PerformClick()
+        End If
+
+
+
+    End Sub
+
 
 End Class