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

Essensbestellungen -> Menüanzeige

Browse Source
This commit is contained in:
d.breimaier
2024-06-11 16:13:28 +02:00
parent 978884cd2b
commit 6ae38089a2
4 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/frmEssensbestellungen.vb
View File

@@ -58,9 +58,9 @@ Public Class frmEssensbestellungen
Exit Sub
End If
Dim MenuID = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = " & cbxMenu._value, "AVISO")
Dim MenuID As String = SQL.getValueTxtBySql("select MenuID from tblEBMenu where MenuDateVon = '" & cbxMenu.SelectedItem.ToString & "'", "AVISO")
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung, MenuID)
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung)
If cb_montag.Checked Then
If rbMenu_montag.Checked Then
@@ -172,6 +172,7 @@ Public Class frmEssensbestellungen
essen.eb_gebaeude = cbxGebauede._value
essen.eb_anmerkung = txtAnmerkung.Text
essen.eb_firma = cAllgemein.MITARBEITER.getFirma
essen.eb_MenuID = MenuID
essen.SAVE()
loadDGVBestellungen()