Essensbestellungen, Firma wird nun mitangegeben

2023-10-17 15:24:16 +02:00
parent e74939b1ef
commit 8b8c0b8e3b
3 changed files with 15 additions and 5 deletions
--- a/Aviso/UsrCntlEssensbestellungen.vb
+++ b/Aviso/UsrCntlEssensbestellungen.vb
@@ -256,6 +256,8 @@ Public Class UsrCntlessensbestellungen
            Exit Sub
        End If

+        Dim mitarbeiter As New cMitarbeiter(cbxMitarbeiter._value)
+
        essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text)


@@ -357,6 +359,7 @@ Public Class UsrCntlessensbestellungen

        essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
        essen.eb_gebaeude = cbxGebäude._value
+        essen.eb_firma = mitarbeiter.getFirma

        If CheckBox1.Checked = False Then
            essen.eb_abgerechnet = False