Essensbestellungen

2023-01-04 17:48:02 +01:00
parent 48b12b78f5
commit 50b394058c
7 changed files with 316 additions and 503 deletions
--- a/Aviso/UsrCntlEssensbestellungen.vb
+++ b/Aviso/UsrCntlEssensbestellungen.vb
@@ -211,8 +211,10 @@ Public Class UsrCntlessensbestellungen
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
        If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
            MyPanel1.Enabled = False
+            txtGebäude.Enabled = False
        Else
            MyPanel1.Enabled = True
+            txtGebäude.Enabled = True

        End If
    End Sub
@@ -318,6 +320,23 @@ Public Class UsrCntlessensbestellungen

        essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
        essen.eb_gebaeude = txtGebäude.Text.ToString
+
+        If CheckBox1.Checked = False Then
+            essen.eb_abgerechnet = False
+            essen.eb_abgerechnet_am = DBNull.Value
+        End If
+
+        If CheckBox2.Checked = False Then
+            essen.eb_storniert = False
+            essen.eb_storniert_am = DBNull.Value
+        End If
+
+        If CheckBox3.Checked = False Then
+            essen.eb_gesendet = False
+            essen.eb_gesendet_am = DBNull.Value
+        End If
+
+
        If essen.SAVE() Then

        End If
@@ -390,70 +409,70 @@ Public Class UsrCntlessensbestellungen

    End Sub

-    'Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load


-    '    If essen.eb_montag IsNot Nothing Then
-    '        cb_montag.Checked = True
-    '        If essen.eb_montag.ToString = menu Then
-    '            rbMenu_montag.Checked = True
-    '        Else
-    '            rbMenuAlt_montag.Checked = True
-    '            If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString
-    '        End If
-    '    Else
-    '        cb_montag.Checked = False
-    '    End If
+        If essen.eb_montag IsNot Nothing Then
+            cb_montag.Checked = True
+            If essen.eb_montag.ToString = menu Then
+                rbMenu_montag.Checked = True
+            Else
+                rbMenuAlt_montag.Checked = True
+                If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString
+            End If
+        Else
+            cb_montag.Checked = False
+        End If

-    '    If essen.eb_dienstag IsNot Nothing Then
-    '        cb_dienstag.Checked = True
-    '        If essen.eb_dienstag.ToString = menu Then
-    '            rbMenu_dienstag.Checked = True
-    '        Else
-    '            rbMenuAlt_dienstag.Checked = True
-    '            If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString
-    '        End If
-    '    Else
-    '        cb_dienstag.Checked = False
-    '    End If
+        If essen.eb_dienstag IsNot Nothing Then
+            cb_dienstag.Checked = True
+            If essen.eb_dienstag.ToString = menu Then
+                rbMenu_dienstag.Checked = True
+            Else
+                rbMenuAlt_dienstag.Checked = True
+                If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString
+            End If
+        Else
+            cb_dienstag.Checked = False
+        End If


-    '    If essen.eb_mittwoch IsNot Nothing Then
-    '        cb_mittwoch.Checked = True
-    '        If essen.eb_mittwoch.ToString = menu Then
-    '            rbMenu_mittwoch.Checked = True
-    '        Else
-    '            rbMenuAlt_mittwoch.Checked = True
-    '            If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString
-    '        End If
-    '    Else
-    '        cb_mittwoch.Checked = False
-    '    End If
+        If essen.eb_mittwoch IsNot Nothing Then
+            cb_mittwoch.Checked = True
+            If essen.eb_mittwoch.ToString = menu Then
+                rbMenu_mittwoch.Checked = True
+            Else
+                rbMenuAlt_mittwoch.Checked = True
+                If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString
+            End If
+        Else
+            cb_mittwoch.Checked = False
+        End If

-    '    If essen.eb_donnerstag IsNot Nothing Then
-    '        cbdonnerstag.Checked = True
-    '        If essen.eb_donnerstag.ToString = menu Then
-    '            rbMenu_donnerstag.Checked = True
-    '        Else
-    '            rbMenuAlt_donnerstag.Checked = True
-    '            If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString
-    '        End If
-    '    Else
-    '        cb_mittwoch.Checked = False
-    '    End If
+        If essen.eb_donnerstag IsNot Nothing Then
+            cbdonnerstag.Checked = True
+            If essen.eb_donnerstag.ToString = menu Then
+                rbMenu_donnerstag.Checked = True
+            Else
+                rbMenuAlt_donnerstag.Checked = True
+                If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString
+            End If
+        Else
+            cb_mittwoch.Checked = False
+        End If


-    '    If essen.eb_freitag IsNot Nothing Then
-    '        cb_freitag.Checked = True
-    '        If essen.eb_freitag.ToString = menu Then
-    '            rbMenu__freitag.Checked = True
-    '        Else
-    '            rbMenuAlt_freitag.Checked = True
-    '            If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString
-    '        End If
-    '    Else
-    '        cb_freitag.Checked = False
-    '    End If
+        If essen.eb_freitag IsNot Nothing Then
+            cb_freitag.Checked = True
+            If essen.eb_freitag.ToString = menu Then
+                rbMenu__freitag.Checked = True
+            Else
+                rbMenuAlt_freitag.Checked = True
+                If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString
+            End If
+        Else
+            cb_freitag.Checked = False
+        End If

-    'End Sub
+    End Sub
 End Class