Essensbestellungen

2022-11-28 17:37:49 +01:00
parent 926580e58f
commit 4882bdfa18
2 changed files with 252 additions and 78 deletions
--- a/Aviso/frmEssensbestellungen.Designer.vb
+++ b/Aviso/frmEssensbestellungen.Designer.vb
@@ -26,28 +26,31 @@ Partial Class frmEssensbestellungen
        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblWochenkarte = New System.Windows.Forms.Label()
-        Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.btnSave = New System.Windows.Forms.Button()
        Me.lblDatum = New System.Windows.Forms.Label()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
-        Me.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.cbMontag = New System.Windows.Forms.CheckBox()
        Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.cbDienstag = New System.Windows.Forms.CheckBox()
        Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.rbMenuAltDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.rbMenuDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.cbMittwoch = New System.Windows.Forms.CheckBox()
        Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.rbMenuAltMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.rbMenuMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.cbDonnerstag = New System.Windows.Forms.CheckBox()
        Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.rbMenuAltDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.rbMenuDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.cbFreitag = New System.Windows.Forms.CheckBox()
        Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.rbMenuFrAlt = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
        Me.rbMenuFr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
@@ -60,25 +63,18 @@ Partial Class frmEssensbestellungen
        Me.ToolTipInfoMi = New System.Windows.Forms.ToolTip(Me.components)
        Me.ToolTipInfoDo = New System.Windows.Forms.ToolTip(Me.components)
        Me.ToolTipInfoFr = New System.Windows.Forms.ToolTip(Me.components)
-        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblAbteilung = New System.Windows.Forms.Label()
+        Me.lblGebaeude = New System.Windows.Forms.Label()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
+        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
-        'MyComboBox1
-        '
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
-        Me.MyComboBox1._allowFreiText = False
-        Me.MyComboBox1._value = ""
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(12, 30)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(95, 21)
-        Me.MyComboBox1.TabIndex = 0
-        '
        'lblWochenkarte
        '
        Me.lblWochenkarte.AutoSize = True
@@ -88,43 +84,6 @@ Partial Class frmEssensbestellungen
        Me.lblWochenkarte.TabIndex = 1
        Me.lblWochenkarte.Text = "Menü"
        '
-        'dgvBestellungen
-        '
-        Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvBestellungen.AllowUserToAddRows = False
-        Me.dgvBestellungen.AllowUserToDeleteRows = False
-        Me.dgvBestellungen.AllowUserToOrderColumns = True
-        Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
-        Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5
-        Me.dgvBestellungen.Location = New System.Drawing.Point(12, 298)
-        Me.dgvBestellungen.Name = "dgvBestellungen"
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
-        Me.dgvBestellungen.Size = New System.Drawing.Size(528, 150)
-        Me.dgvBestellungen.TabIndex = 2
-        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(565, 249)
@@ -145,6 +104,7 @@ Partial Class frmEssensbestellungen
        '
        'GroupBox1
        '
+        Me.GroupBox1.Controls.Add(Me.cbMontag)
        Me.GroupBox1.Controls.Add(Me.txtAltMo)
        Me.GroupBox1.Controls.Add(Me.rbMenoAltMo)
        Me.GroupBox1.Controls.Add(Me.rbMenuMo)
@@ -155,29 +115,15 @@ Partial Class frmEssensbestellungen
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Montag"
        '
-        'rbMenuMo
+        'cbMontag
        '
-        Me.rbMenuMo.AutoSize = True
-        Me.rbMenuMo.GroupName = Nothing
-        Me.rbMenuMo.Location = New System.Drawing.Point(3, 19)
-        Me.rbMenuMo.Name = "rbMenuMo"
-        Me.rbMenuMo.Size = New System.Drawing.Size(52, 17)
-        Me.rbMenuMo.TabIndex = 0
-        Me.rbMenuMo.TabStop = True
-        Me.rbMenuMo.Text = "Menü"
-        Me.rbMenuMo.UseVisualStyleBackColor = True
-        '
-        'rbMenoAltMo
-        '
-        Me.rbMenoAltMo.AutoSize = True
-        Me.rbMenoAltMo.GroupName = Nothing
-        Me.rbMenoAltMo.Location = New System.Drawing.Point(3, 42)
-        Me.rbMenoAltMo.Name = "rbMenoAltMo"
-        Me.rbMenoAltMo.Size = New System.Drawing.Size(70, 17)
-        Me.rbMenoAltMo.TabIndex = 1
-        Me.rbMenoAltMo.TabStop = True
-        Me.rbMenoAltMo.Text = "A la carte"
-        Me.rbMenoAltMo.UseVisualStyleBackColor = True
+        Me.cbMontag.AutoSize = True
+        Me.cbMontag.Location = New System.Drawing.Point(3, 0)
+        Me.cbMontag.Name = "cbMontag"
+        Me.cbMontag.Size = New System.Drawing.Size(62, 17)
+        Me.cbMontag.TabIndex = 3
+        Me.cbMontag.Text = "Montag"
+        Me.cbMontag.UseVisualStyleBackColor = True
        '
        'txtAltMo
        '
@@ -203,8 +149,33 @@ Partial Class frmEssensbestellungen
        Me.txtAltMo.TabIndex = 2
        Me.txtAltMo.Visible = False
        '
+        'rbMenoAltMo
+        '
+        Me.rbMenoAltMo.AutoSize = True
+        Me.rbMenoAltMo.GroupName = "GroupBox1"
+        Me.rbMenoAltMo.Location = New System.Drawing.Point(3, 42)
+        Me.rbMenoAltMo.Name = "rbMenoAltMo"
+        Me.rbMenoAltMo.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenoAltMo.TabIndex = 1
+        Me.rbMenoAltMo.TabStop = True
+        Me.rbMenoAltMo.Text = "A la carte"
+        Me.rbMenoAltMo.UseVisualStyleBackColor = True
+        '
+        'rbMenuMo
+        '
+        Me.rbMenuMo.AutoSize = True
+        Me.rbMenuMo.GroupName = "GroupBox1"
+        Me.rbMenuMo.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenuMo.Name = "rbMenuMo"
+        Me.rbMenuMo.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenuMo.TabIndex = 0
+        Me.rbMenuMo.TabStop = True
+        Me.rbMenuMo.Text = "Menü"
+        Me.rbMenuMo.UseVisualStyleBackColor = True
+        '
        'GroupBox2
        '
+        Me.GroupBox2.Controls.Add(Me.cbDienstag)
        Me.GroupBox2.Controls.Add(Me.txtAltDi)
        Me.GroupBox2.Controls.Add(Me.rbMenuAltDi)
        Me.GroupBox2.Controls.Add(Me.rbMenuDi)
@@ -215,6 +186,16 @@ Partial Class frmEssensbestellungen
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Dienstag"
        '
+        'cbDienstag
+        '
+        Me.cbDienstag.AutoSize = True
+        Me.cbDienstag.Location = New System.Drawing.Point(0, 0)
+        Me.cbDienstag.Name = "cbDienstag"
+        Me.cbDienstag.Size = New System.Drawing.Size(68, 17)
+        Me.cbDienstag.TabIndex = 4
+        Me.cbDienstag.Text = "Dienstag"
+        Me.cbDienstag.UseVisualStyleBackColor = True
+        '
        'txtAltDi
        '
        Me.txtAltDi._DateTimeOnly = False
@@ -265,6 +246,7 @@ Partial Class frmEssensbestellungen
        '
        'GroupBox3
        '
+        Me.GroupBox3.Controls.Add(Me.cbMittwoch)
        Me.GroupBox3.Controls.Add(Me.txtAltMi)
        Me.GroupBox3.Controls.Add(Me.rbMenuAltMi)
        Me.GroupBox3.Controls.Add(Me.rbMenuMi)
@@ -275,6 +257,16 @@ Partial Class frmEssensbestellungen
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Mittwoch"
        '
+        'cbMittwoch
+        '
+        Me.cbMittwoch.AutoSize = True
+        Me.cbMittwoch.Location = New System.Drawing.Point(0, 0)
+        Me.cbMittwoch.Name = "cbMittwoch"
+        Me.cbMittwoch.Size = New System.Drawing.Size(69, 17)
+        Me.cbMittwoch.TabIndex = 5
+        Me.cbMittwoch.Text = "Mittwoch"
+        Me.cbMittwoch.UseVisualStyleBackColor = True
+        '
        'txtAltMi
        '
        Me.txtAltMi._DateTimeOnly = False
@@ -325,6 +317,7 @@ Partial Class frmEssensbestellungen
        '
        'GroupBox4
        '
+        Me.GroupBox4.Controls.Add(Me.cbDonnerstag)
        Me.GroupBox4.Controls.Add(Me.txtAltDo)
        Me.GroupBox4.Controls.Add(Me.rbMenuAltDo)
        Me.GroupBox4.Controls.Add(Me.rbMenuDo)
@@ -335,6 +328,16 @@ Partial Class frmEssensbestellungen
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Donnerstag"
        '
+        'cbDonnerstag
+        '
+        Me.cbDonnerstag.AutoSize = True
+        Me.cbDonnerstag.Location = New System.Drawing.Point(3, 0)
+        Me.cbDonnerstag.Name = "cbDonnerstag"
+        Me.cbDonnerstag.Size = New System.Drawing.Size(81, 17)
+        Me.cbDonnerstag.TabIndex = 7
+        Me.cbDonnerstag.Text = "Donnerstag"
+        Me.cbDonnerstag.UseVisualStyleBackColor = True
+        '
        'txtAltDo
        '
        Me.txtAltDo._DateTimeOnly = False
@@ -385,6 +388,7 @@ Partial Class frmEssensbestellungen
        '
        'GroupBox5
        '
+        Me.GroupBox5.Controls.Add(Me.cbFreitag)
        Me.GroupBox5.Controls.Add(Me.txtAltFr)
        Me.GroupBox5.Controls.Add(Me.rbMenuFrAlt)
        Me.GroupBox5.Controls.Add(Me.rbMenuFr)
@@ -395,6 +399,16 @@ Partial Class frmEssensbestellungen
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Freitag"
        '
+        'cbFreitag
+        '
+        Me.cbFreitag.AutoSize = True
+        Me.cbFreitag.Location = New System.Drawing.Point(3, 0)
+        Me.cbFreitag.Name = "cbFreitag"
+        Me.cbFreitag.Size = New System.Drawing.Size(58, 17)
+        Me.cbFreitag.TabIndex = 6
+        Me.cbFreitag.Text = "Freitag"
+        Me.cbFreitag.UseVisualStyleBackColor = True
+        '
        'txtAltFr
        '
        Me.txtAltFr._DateTimeOnly = False
@@ -479,11 +493,79 @@ Partial Class frmEssensbestellungen
        Me.txtAnzahlLaCart.TabIndex = 17
        Me.txtAnzahlLaCart.Text = "0"
        '
+        'dgvBestellungen
+        '
+        Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvBestellungen.AllowUserToAddRows = False
+        Me.dgvBestellungen.AllowUserToDeleteRows = False
+        Me.dgvBestellungen.AllowUserToOrderColumns = True
+        Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvBestellungen.Location = New System.Drawing.Point(12, 298)
+        Me.dgvBestellungen.Name = "dgvBestellungen"
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
+        Me.dgvBestellungen.Size = New System.Drawing.Size(528, 150)
+        Me.dgvBestellungen.TabIndex = 2
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(12, 30)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(95, 21)
+        Me.MyComboBox1.TabIndex = 0
+        '
+        'lblAbteilung
+        '
+        Me.lblAbteilung.AutoSize = True
+        Me.lblAbteilung.Location = New System.Drawing.Point(472, 9)
+        Me.lblAbteilung.Name = "lblAbteilung"
+        Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
+        Me.lblAbteilung.TabIndex = 18
+        Me.lblAbteilung.Text = "Abteilung:"
+        '
+        'lblGebaeude
+        '
+        Me.lblGebaeude.AutoSize = True
+        Me.lblGebaeude.Location = New System.Drawing.Point(472, 30)
+        Me.lblGebaeude.Name = "lblGebaeude"
+        Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
+        Me.lblGebaeude.TabIndex = 19
+        Me.lblGebaeude.Text = "Gebäude:"
+        '
        'frmEssensbestellungen
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(680, 476)
+        Me.Controls.Add(Me.lblGebaeude)
+        Me.Controls.Add(Me.lblAbteilung)
        Me.Controls.Add(Me.txtAnzahlLaCart)
        Me.Controls.Add(Me.txtAnzahlMenu)
        Me.Controls.Add(Me.lbl2)
@@ -500,7 +582,6 @@ Partial Class frmEssensbestellungen
        Me.Controls.Add(Me.MyComboBox1)
        Me.Name = "frmEssensbestellungen"
        Me.Text = "Essensbestellung"
-        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
@@ -511,6 +592,7 @@ Partial Class frmEssensbestellungen
        Me.GroupBox4.PerformLayout()
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox5.PerformLayout()
+        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -550,4 +632,11 @@ Partial Class frmEssensbestellungen
    Friend WithEvents ToolTipInfoMi As ToolTip
    Friend WithEvents ToolTipInfoDo As ToolTip
    Friend WithEvents ToolTipInfoFr As ToolTip
+    Friend WithEvents cbMontag As CheckBox
+    Friend WithEvents cbDienstag As CheckBox
+    Friend WithEvents cbMittwoch As CheckBox
+    Friend WithEvents cbDonnerstag As CheckBox
+    Friend WithEvents cbFreitag As CheckBox
+    Friend WithEvents lblAbteilung As Label
+    Friend WithEvents lblGebaeude As Label
 End Class
--- a/Aviso/frmEssensbestellungen.vb
+++ b/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