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-09 16:23:32 +01:00
parent aae58351a7
commit ebafee916f
8 changed files with 459 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/UsrCntlEssensbestellungen.vb
View File

@@ -33,10 +33,12 @@ Public Class UsrCntlessensbestellungen
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
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 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)
loadMenuInfo(dt)
essen = New cEssensbestellung()
txtGebäude.Text = essen.eb_gebaeude.ToString
txtAnmerkung.Text = essen.eb_anmerkung.ToString
End Sub
@@ -52,9 +54,11 @@ Public Class UsrCntlessensbestellungen
Dim menutitle = bestellung.eb_kw.ToString()
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 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)
loadMenuInfo(dt)
txtGebäude.Text = essen.eb_gebaeude.ToString
txtAnmerkung.Text = essen.eb_anmerkung.ToString
End Sub
@@ -212,9 +216,11 @@ Public Class UsrCntlessensbestellungen
If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
MyPanel1.Enabled = False
txtGebäude.Enabled = False
txtAnmerkung.Enabled = False
Else
MyPanel1.Enabled = True
txtGebäude.Enabled = True
txtAnmerkung.Enabled = True
End If
End Sub