Essensbestellungen

Aviso/frmEssensbestellungen.vb

@@ -94,6 +94,9 @@ Public Class frmEssensbestellungen
         If txtPreis.Text IsNot "" Then
             essen.eb_preis = CDbl(txtPreis.Text)
         End If
+
+        essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
+
         essen.SAVE()
         loadDGVBestellungen()
 
@@ -437,4 +440,7 @@ Public Class frmEssensbestellungen
 
     End Function
 
+    Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_Mo.Click, rbMenu_Di.Click, rbMenu_Mi.Click, rbMenu_Do.Click, rbMenu_Fr.Click
+        countChecks()
+    End Sub
 End Class