edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Essensbestellung

Browse Source
This commit is contained in:
d.breimaier
2022-11-29 15:19:34 +01:00
parent e5909bd403
commit 340fdc57c0
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Aviso/frmEssensbestellungen.vb
View File

@@ -1,4 +1,4 @@
Imports Org.BouncyCastle.Asn1.Cms 
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmEssensbestellungen 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("Asfinag", "Asfinag"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag Verrechnung", "Verag Verrechnung")) 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("Maut", "Maut"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxGebauede.changeItem("")
End Sub End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click 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 cbMontag.Checked Then
If rbMenu_Mo.Checked Then If rbMenu_Mo.Checked Then
@@ -102,7 +110,7 @@ Public Class frmEssensbestellungen
If checkIfOrderIsPossible() Then If checkIfOrderIsPossible() Then
MyPanel1.Enabled = True MyPanel1.Enabled = True
Else Else
MyPanel1.Enabled = True MyPanel1.Enabled = False
End If 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") 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) loadMenuInfo(dt)
@@ -417,7 +425,7 @@ Public Class frmEssensbestellungen
If Now >= timeToOrderLimit Then If Now >= timeToOrderLimit Then
lblBestellungBis.ForeColor = Color.Red lblBestellungBis.ForeColor = Color.Red
Return True Return True 'zu testzwecken -> muss dann wieder auf false gesetzt werden!!!!
Else Else
lblBestellungBis.ForeColor = Color.Black lblBestellungBis.ForeColor = Color.Black
Return True Return True