Gesamtsicherheiten Excel-Export für Zollamut und Plausibiltätsprüfungen, Export für Essensbestellungen verbessert.

Aviso/frmEssensbestellungenAdministration.vb

@@ -823,5 +823,57 @@ Public Class frmEssensbestellungenAdministration
 
     End Sub
 
+    Private Sub ExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExcelToolStripMenuItem.Click
+        Me.Cursor =
+            Cursors.WaitCursor
+        Try
+            If dgvBestellungen.SelectedRows.Count = 0 Then
+                lblWarning.Text = "keine Bestellungen markiert!"
+                Me.Cursor = Cursors.Default
+                Exit Sub
+            End If
 
+
+
+            Dim dtSource As DataTable
+            dtSource = CType(dgvBestellungen.DataSource, DataTable)
+            Dim dt = dtSource.Clone()
+
+            For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
+
+                dt.ImportRow(dtSource.Rows(row.Index))
+
+            Next
+
+            dt.DefaultView.Sort = "eb_mitid ASC, eb_kw ASC"
+            dt = dt.DefaultView.ToTable
+
+            Dim drFirst = dt.NewRow
+            drFirst.Item("eb_mitname") = "Bestellungen von " & txtBestellDat.Text & " bis " & txtBestellDatBis.Text
+            drFirst.Item("eb_mitId") = 0
+            drFirst.Item("eb_kw") = " "
+            drFirst.Item("eb_gebaeude") = " "
+            drFirst.Item("eb_abteilung") = " "
+            drFirst.Item("eb_preis") = 0
+
+            dt.Rows.InsertAt(drFirst, 0)
+
+            Dim drLast = dt.NewRow
+            drLast.Item("eb_mitname") = "Gesamtsumme: "
+            drLast.Item("eb_mitId") = 0
+            drLast.Item("eb_kw") = " "
+            drLast.Item("eb_gebaeude") = " "
+            drLast.Item("eb_abteilung") = " "
+            drLast.Item("eb_preis") = txtMarkierteDS.Text.Replace("€", "")
+            dt.Rows.InsertAt(drLast, dt.Rows.Count)
+
+            dt.Columns.Remove("eb_mitid")
+
+            SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
+
+                Me.Cursor = Cursors.Default
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
 End Class