From ae5dfdf12894aa16d89e90cacdfcfa7e7b8b9828 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 13 Jan 2023 11:49:45 +0100 Subject: [PATCH] Essensbestellungen --- Aviso/frmEssensbestellungen.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Aviso/frmEssensbestellungen.vb b/Aviso/frmEssensbestellungen.vb index 8c821c1..7a0d2c2 100644 --- a/Aviso/frmEssensbestellungen.vb +++ b/Aviso/frmEssensbestellungen.vb @@ -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