Essensbestellung

Aviso/frmEssensbestellungen.vb

@@ -1,4 +1,4 @@
-Imports Org.BouncyCastle.Asn1.Cms
+
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmEssensbestellungen
@@ -21,11 +21,19 @@ Public Class frmEssensbestellungen
         cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
         cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag Verrechnung", "Verag Verrechnung"))
         cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
+        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cbxGebauede.changeItem("")
 
     End Sub
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
-        essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, "Test", cAllgemein.ABTEILUNG)
+
+        If cbxGebauede._value = "" Then
+            MsgBox("Bitte Gebäude für die Essensbestellung angeben!")
+            Exit Sub
+        End If
+
+        essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG)
 
         If cbMontag.Checked Then
             If rbMenu_Mo.Checked Then
@@ -102,7 +110,7 @@ Public Class frmEssensbestellungen
             If checkIfOrderIsPossible() Then
                 MyPanel1.Enabled = True
             Else
-                MyPanel1.Enabled = True
+                MyPanel1.Enabled = False
             End If
             lblDatum.Text = "Datum: " & CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") & " - " & CDate(dt.Rows(0).Item("MenuDateBis")).ToString("dd.MM.yyyy")
             loadMenuInfo(dt)
@@ -417,7 +425,7 @@ Public Class frmEssensbestellungen
 
             If Now >= timeToOrderLimit Then
                 lblBestellungBis.ForeColor = Color.Red
-                Return True
+                Return True 'zu testzwecken -> muss dann wieder auf false gesetzt werden!!!!
             Else
                 lblBestellungBis.ForeColor = Color.Black
                 Return True