From b096c704e5f379532c6b309240f22f53ac2eda34 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 9 Jan 2023 16:35:32 +0100
Subject: [PATCH] Essensbestellungen

---
 .../Classes/Essensbestellung.vb               | 30 +++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb b/VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
index ac7f6425..8f22e2dd 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
@@ -3,7 +3,7 @@ Imports System.Data.SqlClient
     Imports System.Reflection
 
 Public Class cEssensbestellung
-    Property _BASE_id As Integer
+    'Property _BASE_id As Integer
     Property eb_kw As Object = Nothing
     Property eb_mitid As Object = Nothing
     Property eb_montag As Object = Nothing
@@ -15,16 +15,27 @@ Public Class cEssensbestellung
     Property eb_gebaeude As Object = Nothing
     Property eb_abteilung As Object = Nothing
     Property eb_datum As Date = Nothing
+    Property eb_mitname As Object = Nothing
+    Property eb_abgerechnet_am As Object = Nothing
+    Property eb_storniert_am As Object = Nothing
+    Property eb_storniert As Boolean
+    Property eb_abgerechnet As Boolean
+    Property eb_anmerkung As Object = Nothing
+    Property eb_gesendet_am As Object = Nothing
+    Property eb_gesendet As Boolean
+
 
     Public hasEntry = False
 
     Dim SQL As New SQL
 
-    Sub New(eb_kw, eb_mitid, eb_gebaeude, eb_abteilung)
+    Sub New(eb_kw, eb_mitid, eb_gebaeude, eb_abteilung, eb_mitname, eb_anmerkung)
         Me.eb_kw = eb_kw
         Me.eb_mitid = eb_mitid
         Me.eb_gebaeude = eb_gebaeude
         Me.eb_abteilung = eb_abteilung
+        Me.eb_mitname = eb_mitname
+        Me.eb_anmerkung = eb_anmerkung
         LOAD()
     End Sub
 
@@ -32,6 +43,13 @@ Public Class cEssensbestellung
 
 
     End Sub
+
+    Sub New(eb_kw, eb_mitid)
+        Me.eb_kw = eb_kw
+        Me.eb_mitid = eb_mitid
+        LOAD()
+    End Sub
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("_BASE_id", _BASE_id,, True))
@@ -46,6 +64,14 @@ Public Class cEssensbestellung
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abteilung", eb_abteilung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_preis", eb_preis))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_datum", eb_datum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_mitname", eb_mitname))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_storniert", eb_storniert))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_storniert_am", eb_storniert_am))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abgerechnet", eb_abgerechnet))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_abgerechnet_am", eb_abgerechnet_am))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_anmerkung", eb_anmerkung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gesendet", eb_gesendet))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_gesendet_am", eb_gesendet_am))
 
 
         Return list