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
2023-01-13 11:49:45 +01:00
parent 4305a23c2e
commit ae5dfdf128
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso/frmEssensbestellungen.vb
View File

@@ -298,7 +298,7 @@ Public Class frmEssensbestellungen
Dim SQLWhere As String = ""
If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
dgvBestellungen.LOAD()
@@ -449,7 +449,7 @@ Public Class frmEssensbestellungen
If currentEssen.eb_montag IsNot Nothing Then
cb_montag.Checked = True
If currentEssen.eb_montag.ToString = "Menu" Then
If currentEssen.eb_montag.ToString = menu Then
rbMenu_montag.Checked = True
Else
rbMenuAlt_montag.Checked = True
@@ -461,7 +461,7 @@ Public Class frmEssensbestellungen
If currentEssen.eb_dienstag IsNot Nothing Then
cb_dienstag.Checked = True
If currentEssen.eb_dienstag.ToString = "Menu" Then
If currentEssen.eb_dienstag.ToString = menu Then
rbMenu_dienstag.Checked = True
Else
rbMenuAlt_dienstag.Checked = True
@@ -474,7 +474,7 @@ Public Class frmEssensbestellungen
If currentEssen.eb_mittwoch IsNot Nothing Then
cb_mittwoch.Checked = True
If currentEssen.eb_mittwoch.ToString = "Menu" Then
If currentEssen.eb_mittwoch.ToString = menu Then
rbMenu_mittwoch.Checked = True
Else
rbMenuAlt_mittwoch.Checked = True
@@ -486,7 +486,7 @@ Public Class frmEssensbestellungen
If currentEssen.eb_donnerstag IsNot Nothing Then
cbdonnerstag.Checked = True
If currentEssen.eb_donnerstag.ToString = "Menu" Then
If currentEssen.eb_donnerstag.ToString = menu Then
rbMenu_donnerstag.Checked = True
Else
rbMenuAlt_donnerstag.Checked = True
@@ -499,7 +499,7 @@ Public Class frmEssensbestellungen
If currentEssen.eb_freitag IsNot Nothing Then
cb_freitag.Checked = True
If currentEssen.eb_freitag.ToString = "Menu" Then
If currentEssen.eb_freitag.ToString = menu Then
rbMenu__freitag.Checked = True
Else
rbMenuAlt_freitag.Checked = True