Essensbestellungen

Aviso/frmEssensbestellungenAdministration.vb

@@ -11,7 +11,7 @@ Public Class frmEssensbestellungenAdministration
     Private Sub frmEssensbestellungenAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         lblWarning.Text = ""
         txtBestellDat.Text = Date.Parse("01.01.2001")
-        txtBestellDatBis.Text = Now.ToShortDateString
+        txtBestellDatBis.Text = Today.AddDays(7).ToShortDateString
         btnMonat.Text = MONAT.ToString("MMMM")
         btnJahr.Text = JAHR.Year
 
@@ -27,7 +27,7 @@ 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)
+        cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
 
 
         cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]", False, "AVISO", True)
@@ -99,6 +99,11 @@ Public Class frmEssensbestellungenAdministration
 
 
         For Each row As DataGridViewRow In dgvBestellungen.Rows
+
+            If Not IsDBNull(row.Cells("eb_gesendet").Value) Then
+                If row.Cells("eb_gesendet").Value Then row.DefaultCellStyle.BackColor = Color.LightYellow
+            End If
+
             If Not IsDBNull(row.Cells("eb_storniert").Value) Then
                 If row.Cells("eb_storniert").Value Then
                     row.DefaultCellStyle.BackColor = Color.IndianRed
@@ -273,7 +278,7 @@ Public Class frmEssensbestellungenAdministration
         If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
 
         Select Case sender.Text
-            Case "abgerechnen"
+            Case "abrechnen"
                 Select Case dgvBestellungen.SelectedRows.Count
                     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 & " abrechnen", vbYesNoCancel) Then
@@ -336,7 +341,7 @@ Public Class frmEssensbestellungenAdministration
 
 
         End Select
-
+        loadBestellungen()
 
     End Sub
     Private Sub bestellungenStornieren(stornieren As Boolean)