edv/SDL
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:35:32 +01:00
parent ed5aa04bd5
commit b096c704e5
1 changed files with 28 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
VERAG_PROG_ALLGEMEIN/Classes/Essensbestellung.vb
View File

@@ -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