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

Berechtigungen für Admin-Essensbestellungen, Bugfix, GUI verbessert.

Browse Source
This commit is contained in:
d.breimaier
2023-01-10 10:48:48 +01:00
parent 45a8e53ec5
commit 7b991737d9
4 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/UsrCntlEssensbestellungen.vb
View File

@@ -24,7 +24,7 @@ Public Class UsrCntlessensbestellungen
End Sub
Sub New(storniert As Boolean, abgerechnet As Boolean, menu As String)
Sub New(storniert As Boolean, abgerechnet As Boolean, menutitle As String)
' Dieser Aufruf ist für den Designer erforderlich.
@@ -34,7 +34,7 @@ Public Class UsrCntlessensbestellungen
Me.CheckBox1.Checked = storniert
Me.CheckBox2.Checked = abgerechnet
'dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menu & "' order by MenuDateVon desc", "AVISO", 100, True)
dt = SQL.loadDgvBySql("Select Case Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menu & "'", "AVISO", 100, True)
dt = SQL.loadDgvBySql("Select Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
loadMenuInfo(dt)
essen = New cEssensbestellung()
txtGebäude.Text = essen.eb_gebaeude.ToString
@@ -55,7 +55,7 @@ Public Class UsrCntlessensbestellungen
Me.CheckBox1.Checked = essen.eb_storniert
Me.CheckBox2.Checked = essen.eb_abgerechnet
'dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menutitle & "' order by MenuDateVon desc", "AVISO", 100, True)
dt = SQL.loadDgvBySql("Select Case Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
dt = SQL.loadDgvBySql("Select Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
loadMenuInfo(dt)
txtGebäude.Text = essen.eb_gebaeude.ToString
txtAnmerkung.Text = essen.eb_anmerkung.ToString