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

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2022-11-30 10:24:58 +01:00
parent d0f4c450fb
commit b73bb67349
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmEssensbestellungen.Designer.vb generated
View File

@@ -158,8 +158,9 @@ Partial Class frmEssensbestellungen
'cbxGebauede 'cbxGebauede
' '
Me.cbxGebauede._allowedValuesFreiText = Nothing Me.cbxGebauede._allowedValuesFreiText = Nothing
Me.cbxGebauede._allowFreiText = False Me.cbxGebauede._allowFreiText = True
Me.cbxGebauede._value = "" Me.cbxGebauede._value = ""
Me.cbxGebauede.DropDownWidth = 150
Me.cbxGebauede.FormattingEnabled = True Me.cbxGebauede.FormattingEnabled = True
Me.cbxGebauede.Location = New System.Drawing.Point(580, 24) Me.cbxGebauede.Location = New System.Drawing.Point(580, 24)
Me.cbxGebauede.Name = "cbxGebauede" Me.cbxGebauede.Name = "cbxGebauede"
@@ -693,6 +694,7 @@ Partial Class frmEssensbestellungen
Me.cbxMenu._allowedValuesFreiText = Nothing Me.cbxMenu._allowedValuesFreiText = Nothing
Me.cbxMenu._allowFreiText = False Me.cbxMenu._allowFreiText = False
Me.cbxMenu._value = "" Me.cbxMenu._value = ""
Me.cbxMenu.DropDownWidth = 200
Me.cbxMenu.FormattingEnabled = True Me.cbxMenu.FormattingEnabled = True
Me.cbxMenu.Location = New System.Drawing.Point(12, 30) Me.cbxMenu.Location = New System.Drawing.Point(12, 30)
Me.cbxMenu.Name = "cbxMenu" Me.cbxMenu.Name = "cbxMenu"

4
Aviso/frmEssensbestellungen.vb
View File

@@ -11,7 +11,7 @@ Public Class frmEssensbestellungen
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbxMenu.fillWithSQL("SELECT MenuTitel from tblEBMenu", False, "AVISO", True) cbxMenu.fillWithSQL("SELECT Distinct (MenuDateVon), MenuTitel from tblEBMenu where MenuDateVon >= GETDATE() order by MenuDateVon desc", True, "AVISO", True)
lblGebaeude.Text = "Gebäude: " lblGebaeude.Text = "Gebäude: "
lblAbteilung.Text = "Abteilung: " & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG lblAbteilung.Text = "Abteilung: " & VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
@@ -107,7 +107,7 @@ Public Class frmEssensbestellungen
dt.Clear() dt.Clear()
dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & cbxMenu._value & "'", "AVISO", 100, True) dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuDateVon] = '" & cbxMenu._value & "'", "AVISO", 100, True)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
If checkIfOrderIsPossible() Then If checkIfOrderIsPossible() Then