diff --git a/Aviso/frmEssensbestellungen.vb b/Aviso/frmEssensbestellungen.vb index 3f8c1a8..6e2d325 100644 --- a/Aviso/frmEssensbestellungen.vb +++ b/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