Essensbestellungen

Aviso/frmEssensbestellungen.vb

@@ -1,5 +1,6 @@
 
 
+Imports System.Web.UI.WebControls
 Imports GrapeCity.ActiveReports.ReportsCore.Tools
 Imports Spire.Pdf.General.Paper
 Imports VERAG_PROG_ALLGEMEIN
@@ -7,21 +8,62 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmEssensbestellungen
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-
+    Dim essen As New cEssensbestellung()
 
 
     Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
+        MyComboBox1.fillWithSQL("SELECT MenuTitel from tblEBMenu", False, "AVISO", True)
+
+        lblGebaeude.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO
+        lblAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
+
+
 
     End Sub
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
 
+        If cbMontag.Checked Then
+            IIf(rbMenuMo.Checked, essen.eb_montag = "Menu", essen.eb_montag = txtAltMo.ToString)
+        Else
+            essen.eb_montag = Nothing
+        End If
+
+        If cbDienstag.Checked Then
+            IIf(rbMenuDi.Checked, essen.eb_dienstag = "Menu", essen.eb_dienstag = txtAltMo.ToString)
+        Else
+            essen.eb_dienstag = Nothing
+        End If
+
+        If cbMittwoch.Checked Then
+            IIf(rbMenuMi.Checked, essen.eb_mittwoch = "Menu", essen.eb_mittwoch = txtAltMo.ToString)
+        Else
+            essen.eb_mittwoch = Nothing
+        End If
+
+
+        If cbDonnerstag.Checked Then
+            IIf(rbMenuDo.Checked, essen.eb_donnerstag = "Menu", essen.eb_donnerstag = txtAltMo.ToString)
+        Else
+            essen.eb_donnerstag = Nothing
+        End If
+
+        If cbFreitag.Checked Then
+            IIf(rbMenuFr.Checked, essen.eb_freitag = "Menu", essen.eb_freitag = txtAltMo.ToString)
+        Else
+            essen.eb_freitag = Nothing
+        End If
+
+        essen.SAVE()
+
     End Sub
 
 
     Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged
 
+        essen = New cEssensbestellung(MyComboBox1._value, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG)
+
         Dim dt As New DataTable
         dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True)
 
@@ -36,8 +78,51 @@ Public Class frmEssensbestellungen
     End Sub
 
     Private Sub rbMenoAltMo_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAltMo.CheckedChanged
-        IIf(rbMenoAltMo.Checked, txtAltMo.Visible = True, txtAltMo.Visible = False)
+
     End Sub
 
+    Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cbMontag.CheckedChanged, cbDienstag.CheckedChanged, cbMittwoch.CheckedChanged, cbDonnerstag.CheckedChanged, cbFreitag.CheckedChanged
+        If cbMontag.Checked Then
+            rbMenoAltMo.Enabled = True
+            rbMenuMo.Enabled = True
+        Else
+            rbMenoAltMo.Enabled = False
+            rbMenoAltMo.Enabled = False
+        End If
 
+        If cbDienstag.Checked Then
+            rbMenuAltDi.Enabled = True
+            rbMenuDi.Enabled = True
+        Else
+            rbMenuDi.Enabled = False
+            rbMenuAltDi.Enabled = False
+        End If
+
+        If cbMittwoch.Checked Then
+            rbMenuAltMi.Enabled = True
+            rbMenuMi.Enabled = True
+        Else
+            rbMenuMi.Enabled = False
+            rbMenuAltMi.Enabled = False
+        End If
+
+
+        If cbDonnerstag.Checked Then
+            rbMenuAltDo.Enabled = True
+            rbMenuDo.Enabled = True
+        Else
+            rbMenuDo.Enabled = False
+            rbMenuAltDo.Enabled = False
+        End If
+
+        If cbFreitag.Checked Then
+            rbMenuFrAlt.Enabled = True
+            rbMenuFr.Enabled = True
+        Else
+            rbMenuFr.Enabled = False
+            rbMenuFrAlt.Enabled = False
+        End If
+
+
+    End Sub
 End Class