Essensbestellung

Aviso/frmEssensbestellungen.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmEssensbestellungen
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,13 +20,52 @@ Partial Class frmEssensbestellungen
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
+        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.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        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.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        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.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.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.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenuFrAlt = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenuFr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.lbl1 = New System.Windows.Forms.Label()
+        Me.lbl2 = New System.Windows.Forms.Label()
+        Me.txtAnzahlMenu = New System.Windows.Forms.Label()
+        Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
+        Me.ToolTipInfoMo = New System.Windows.Forms.ToolTip(Me.components)
+        Me.ToolTipInfoDi = New System.Windows.Forms.ToolTip(Me.components)
+        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.GroupBox1.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.GroupBox5.SuspendLayout()
         Me.SuspendLayout()
         '
         'MyComboBox1
@@ -35,7 +74,7 @@ Partial Class frmEssensbestellungen
         Me.MyComboBox1._allowFreiText = False
         Me.MyComboBox1._value = ""
         Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(15, 60)
+        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
@@ -43,32 +82,435 @@ Partial Class frmEssensbestellungen
         'lblWochenkarte
         '
         Me.lblWochenkarte.AutoSize = True
-        Me.lblWochenkarte.Location = New System.Drawing.Point(12, 34)
+        Me.lblWochenkarte.Location = New System.Drawing.Point(12, 14)
         Me.lblWochenkarte.Name = "lblWochenkarte"
-        Me.lblWochenkarte.Size = New System.Drawing.Size(39, 13)
+        Me.lblWochenkarte.Size = New System.Drawing.Size(34, 13)
         Me.lblWochenkarte.TabIndex = 1
-        Me.lblWochenkarte.Text = "Label1"
+        Me.lblWochenkarte.Text = "Menü"
         '
-        'MyDatagridview1
+        'dgvBestellungen
         '
-        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
-        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvBestellungen.AllowUserToAddRows = False
-        Me.MyDatagridview1.Location = New System.Drawing.Point(252, 31)
+        Me.dgvBestellungen.AllowUserToDeleteRows = False
-        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.dgvBestellungen.AllowUserToOrderColumns = True
-        Me.MyDatagridview1.Size = New System.Drawing.Size(485, 150)
+        Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
-        Me.MyDatagridview1.TabIndex = 2
+        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)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(75, 23)
+        Me.btnSave.TabIndex = 10
+        Me.btnSave.Text = "OK"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'lblDatum
+        '
+        Me.lblDatum.AutoSize = True
+        Me.lblDatum.Location = New System.Drawing.Point(167, 14)
+        Me.lblDatum.Name = "lblDatum"
+        Me.lblDatum.Size = New System.Drawing.Size(41, 13)
+        Me.lblDatum.TabIndex = 11
+        Me.lblDatum.Text = "Datum:"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.txtAltMo)
+        Me.GroupBox1.Controls.Add(Me.rbMenoAltMo)
+        Me.GroupBox1.Controls.Add(Me.rbMenuMo)
+        Me.GroupBox1.Location = New System.Drawing.Point(15, 67)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(200, 95)
+        Me.GroupBox1.TabIndex = 12
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Montag"
+        '
+        'rbMenuMo
+        '
+        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
+        '
+        'txtAltMo
+        '
+        Me.txtAltMo._DateTimeOnly = False
+        Me.txtAltMo._numbersOnly = False
+        Me.txtAltMo._numbersOnlyKommastellen = ""
+        Me.txtAltMo._numbersOnlyTrennzeichen = True
+        Me.txtAltMo._Prozent = False
+        Me.txtAltMo._ShortDateNew = False
+        Me.txtAltMo._ShortDateOnly = False
+        Me.txtAltMo._TimeOnly = False
+        Me.txtAltMo._TimeOnly_Seconds = False
+        Me.txtAltMo._value = ""
+        Me.txtAltMo._Waehrung = False
+        Me.txtAltMo._WaehrungZeichen = True
+        Me.txtAltMo.ForeColor = System.Drawing.Color.Black
+        Me.txtAltMo.Location = New System.Drawing.Point(0, 65)
+        Me.txtAltMo.MaxLineLength = -1
+        Me.txtAltMo.MaxLines_Warning = ""
+        Me.txtAltMo.MaxLines_Warning_Label = Nothing
+        Me.txtAltMo.Name = "txtAltMo"
+        Me.txtAltMo.Size = New System.Drawing.Size(177, 20)
+        Me.txtAltMo.TabIndex = 2
+        Me.txtAltMo.Visible = False
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.txtAltDi)
+        Me.GroupBox2.Controls.Add(Me.rbMenuAltDi)
+        Me.GroupBox2.Controls.Add(Me.rbMenuDi)
+        Me.GroupBox2.Location = New System.Drawing.Point(234, 67)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(200, 95)
+        Me.GroupBox2.TabIndex = 13
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Dienstag"
+        '
+        'txtAltDi
+        '
+        Me.txtAltDi._DateTimeOnly = False
+        Me.txtAltDi._numbersOnly = False
+        Me.txtAltDi._numbersOnlyKommastellen = ""
+        Me.txtAltDi._numbersOnlyTrennzeichen = True
+        Me.txtAltDi._Prozent = False
+        Me.txtAltDi._ShortDateNew = False
+        Me.txtAltDi._ShortDateOnly = False
+        Me.txtAltDi._TimeOnly = False
+        Me.txtAltDi._TimeOnly_Seconds = False
+        Me.txtAltDi._value = ""
+        Me.txtAltDi._Waehrung = False
+        Me.txtAltDi._WaehrungZeichen = True
+        Me.txtAltDi.ForeColor = System.Drawing.Color.Black
+        Me.txtAltDi.Location = New System.Drawing.Point(0, 65)
+        Me.txtAltDi.MaxLineLength = -1
+        Me.txtAltDi.MaxLines_Warning = ""
+        Me.txtAltDi.MaxLines_Warning_Label = Nothing
+        Me.txtAltDi.Name = "txtAltDi"
+        Me.txtAltDi.Size = New System.Drawing.Size(177, 20)
+        Me.txtAltDi.TabIndex = 2
+        Me.txtAltDi.Visible = False
+        '
+        'rbMenuAltDi
+        '
+        Me.rbMenuAltDi.AutoSize = True
+        Me.rbMenuAltDi.GroupName = Nothing
+        Me.rbMenuAltDi.Location = New System.Drawing.Point(3, 42)
+        Me.rbMenuAltDi.Name = "rbMenuAltDi"
+        Me.rbMenuAltDi.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAltDi.TabIndex = 1
+        Me.rbMenuAltDi.TabStop = True
+        Me.rbMenuAltDi.Text = "A la carte"
+        Me.rbMenuAltDi.UseVisualStyleBackColor = True
+        '
+        'rbMenuDi
+        '
+        Me.rbMenuDi.AutoSize = True
+        Me.rbMenuDi.GroupName = Nothing
+        Me.rbMenuDi.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenuDi.Name = "rbMenuDi"
+        Me.rbMenuDi.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenuDi.TabIndex = 0
+        Me.rbMenuDi.TabStop = True
+        Me.rbMenuDi.Text = "Menü"
+        Me.rbMenuDi.UseVisualStyleBackColor = True
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.txtAltMi)
+        Me.GroupBox3.Controls.Add(Me.rbMenuAltMi)
+        Me.GroupBox3.Controls.Add(Me.rbMenuMi)
+        Me.GroupBox3.Location = New System.Drawing.Point(440, 67)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(200, 95)
+        Me.GroupBox3.TabIndex = 13
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Mittwoch"
+        '
+        'txtAltMi
+        '
+        Me.txtAltMi._DateTimeOnly = False
+        Me.txtAltMi._numbersOnly = False
+        Me.txtAltMi._numbersOnlyKommastellen = ""
+        Me.txtAltMi._numbersOnlyTrennzeichen = True
+        Me.txtAltMi._Prozent = False
+        Me.txtAltMi._ShortDateNew = False
+        Me.txtAltMi._ShortDateOnly = False
+        Me.txtAltMi._TimeOnly = False
+        Me.txtAltMi._TimeOnly_Seconds = False
+        Me.txtAltMi._value = ""
+        Me.txtAltMi._Waehrung = False
+        Me.txtAltMi._WaehrungZeichen = True
+        Me.txtAltMi.ForeColor = System.Drawing.Color.Black
+        Me.txtAltMi.Location = New System.Drawing.Point(0, 65)
+        Me.txtAltMi.MaxLineLength = -1
+        Me.txtAltMi.MaxLines_Warning = ""
+        Me.txtAltMi.MaxLines_Warning_Label = Nothing
+        Me.txtAltMi.Name = "txtAltMi"
+        Me.txtAltMi.Size = New System.Drawing.Size(177, 20)
+        Me.txtAltMi.TabIndex = 2
+        Me.txtAltMi.Visible = False
+        '
+        'rbMenuAltMi
+        '
+        Me.rbMenuAltMi.AutoSize = True
+        Me.rbMenuAltMi.GroupName = Nothing
+        Me.rbMenuAltMi.Location = New System.Drawing.Point(3, 42)
+        Me.rbMenuAltMi.Name = "rbMenuAltMi"
+        Me.rbMenuAltMi.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAltMi.TabIndex = 1
+        Me.rbMenuAltMi.TabStop = True
+        Me.rbMenuAltMi.Text = "A la carte"
+        Me.rbMenuAltMi.UseVisualStyleBackColor = True
+        '
+        'rbMenuMi
+        '
+        Me.rbMenuMi.AutoSize = True
+        Me.rbMenuMi.GroupName = Nothing
+        Me.rbMenuMi.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenuMi.Name = "rbMenuMi"
+        Me.rbMenuMi.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenuMi.TabIndex = 0
+        Me.rbMenuMi.TabStop = True
+        Me.rbMenuMi.Text = "Menü"
+        Me.rbMenuMi.UseVisualStyleBackColor = True
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.txtAltDo)
+        Me.GroupBox4.Controls.Add(Me.rbMenuAltDo)
+        Me.GroupBox4.Controls.Add(Me.rbMenuDo)
+        Me.GroupBox4.Location = New System.Drawing.Point(12, 168)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(200, 95)
+        Me.GroupBox4.TabIndex = 13
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Donnerstag"
+        '
+        'txtAltDo
+        '
+        Me.txtAltDo._DateTimeOnly = False
+        Me.txtAltDo._numbersOnly = False
+        Me.txtAltDo._numbersOnlyKommastellen = ""
+        Me.txtAltDo._numbersOnlyTrennzeichen = True
+        Me.txtAltDo._Prozent = False
+        Me.txtAltDo._ShortDateNew = False
+        Me.txtAltDo._ShortDateOnly = False
+        Me.txtAltDo._TimeOnly = False
+        Me.txtAltDo._TimeOnly_Seconds = False
+        Me.txtAltDo._value = ""
+        Me.txtAltDo._Waehrung = False
+        Me.txtAltDo._WaehrungZeichen = True
+        Me.txtAltDo.ForeColor = System.Drawing.Color.Black
+        Me.txtAltDo.Location = New System.Drawing.Point(0, 65)
+        Me.txtAltDo.MaxLineLength = -1
+        Me.txtAltDo.MaxLines_Warning = ""
+        Me.txtAltDo.MaxLines_Warning_Label = Nothing
+        Me.txtAltDo.Name = "txtAltDo"
+        Me.txtAltDo.Size = New System.Drawing.Size(177, 20)
+        Me.txtAltDo.TabIndex = 2
+        Me.txtAltDo.Visible = False
+        '
+        'rbMenuAltDo
+        '
+        Me.rbMenuAltDo.AutoSize = True
+        Me.rbMenuAltDo.GroupName = Nothing
+        Me.rbMenuAltDo.Location = New System.Drawing.Point(3, 42)
+        Me.rbMenuAltDo.Name = "rbMenuAltDo"
+        Me.rbMenuAltDo.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAltDo.TabIndex = 1
+        Me.rbMenuAltDo.TabStop = True
+        Me.rbMenuAltDo.Text = "A la carte"
+        Me.rbMenuAltDo.UseVisualStyleBackColor = True
+        '
+        'rbMenuDo
+        '
+        Me.rbMenuDo.AutoSize = True
+        Me.rbMenuDo.GroupName = Nothing
+        Me.rbMenuDo.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenuDo.Name = "rbMenuDo"
+        Me.rbMenuDo.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenuDo.TabIndex = 0
+        Me.rbMenuDo.TabStop = True
+        Me.rbMenuDo.Text = "Menü"
+        Me.rbMenuDo.UseVisualStyleBackColor = True
+        '
+        'GroupBox5
+        '
+        Me.GroupBox5.Controls.Add(Me.txtAltFr)
+        Me.GroupBox5.Controls.Add(Me.rbMenuFrAlt)
+        Me.GroupBox5.Controls.Add(Me.rbMenuFr)
+        Me.GroupBox5.Location = New System.Drawing.Point(234, 168)
+        Me.GroupBox5.Name = "GroupBox5"
+        Me.GroupBox5.Size = New System.Drawing.Size(200, 95)
+        Me.GroupBox5.TabIndex = 13
+        Me.GroupBox5.TabStop = False
+        Me.GroupBox5.Text = "Freitag"
+        '
+        'txtAltFr
+        '
+        Me.txtAltFr._DateTimeOnly = False
+        Me.txtAltFr._numbersOnly = False
+        Me.txtAltFr._numbersOnlyKommastellen = ""
+        Me.txtAltFr._numbersOnlyTrennzeichen = True
+        Me.txtAltFr._Prozent = False
+        Me.txtAltFr._ShortDateNew = False
+        Me.txtAltFr._ShortDateOnly = False
+        Me.txtAltFr._TimeOnly = False
+        Me.txtAltFr._TimeOnly_Seconds = False
+        Me.txtAltFr._value = ""
+        Me.txtAltFr._Waehrung = False
+        Me.txtAltFr._WaehrungZeichen = True
+        Me.txtAltFr.ForeColor = System.Drawing.Color.Black
+        Me.txtAltFr.Location = New System.Drawing.Point(0, 65)
+        Me.txtAltFr.MaxLineLength = -1
+        Me.txtAltFr.MaxLines_Warning = ""
+        Me.txtAltFr.MaxLines_Warning_Label = Nothing
+        Me.txtAltFr.Name = "txtAltFr"
+        Me.txtAltFr.Size = New System.Drawing.Size(177, 20)
+        Me.txtAltFr.TabIndex = 2
+        Me.txtAltFr.Visible = False
+        '
+        'rbMenuFrAlt
+        '
+        Me.rbMenuFrAlt.AutoSize = True
+        Me.rbMenuFrAlt.GroupName = Nothing
+        Me.rbMenuFrAlt.Location = New System.Drawing.Point(3, 42)
+        Me.rbMenuFrAlt.Name = "rbMenuFrAlt"
+        Me.rbMenuFrAlt.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuFrAlt.TabIndex = 1
+        Me.rbMenuFrAlt.TabStop = True
+        Me.rbMenuFrAlt.Text = "A la carte"
+        Me.rbMenuFrAlt.UseVisualStyleBackColor = True
+        '
+        'rbMenuFr
+        '
+        Me.rbMenuFr.AutoSize = True
+        Me.rbMenuFr.GroupName = Nothing
+        Me.rbMenuFr.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenuFr.Name = "rbMenuFr"
+        Me.rbMenuFr.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenuFr.TabIndex = 0
+        Me.rbMenuFr.TabStop = True
+        Me.rbMenuFr.Text = "Menü"
+        Me.rbMenuFr.UseVisualStyleBackColor = True
+        '
+        'lbl1
+        '
+        Me.lbl1.AutoSize = True
+        Me.lbl1.Location = New System.Drawing.Point(472, 187)
+        Me.lbl1.Name = "lbl1"
+        Me.lbl1.Size = New System.Drawing.Size(72, 13)
+        Me.lbl1.TabIndex = 14
+        Me.lbl1.Text = "Anzahl Menü:"
+        '
+        'lbl2
+        '
+        Me.lbl2.AutoSize = True
+        Me.lbl2.Location = New System.Drawing.Point(472, 214)
+        Me.lbl2.Name = "lbl2"
+        Me.lbl2.Size = New System.Drawing.Size(90, 13)
+        Me.lbl2.TabIndex = 15
+        Me.lbl2.Text = "Anzahl a la Carte:"
+        '
+        'txtAnzahlMenu
+        '
+        Me.txtAnzahlMenu.AutoSize = True
+        Me.txtAnzahlMenu.Location = New System.Drawing.Point(562, 189)
+        Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
+        Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
+        Me.txtAnzahlMenu.TabIndex = 16
+        Me.txtAnzahlMenu.Text = "0"
+        '
+        'txtAnzahlLaCart
+        '
+        Me.txtAnzahlLaCart.AutoSize = True
+        Me.txtAnzahlLaCart.Location = New System.Drawing.Point(562, 214)
+        Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
+        Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
+        Me.txtAnzahlLaCart.TabIndex = 17
+        Me.txtAnzahlLaCart.Text = "0"
         '
         'frmEssensbestellungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.ClientSize = New System.Drawing.Size(680, 476)
-        Me.Controls.Add(Me.MyDatagridview1)
+        Me.Controls.Add(Me.txtAnzahlLaCart)
+        Me.Controls.Add(Me.txtAnzahlMenu)
+        Me.Controls.Add(Me.lbl2)
+        Me.Controls.Add(Me.lbl1)
+        Me.Controls.Add(Me.GroupBox5)
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.lblDatum)
+        Me.Controls.Add(Me.btnSave)
+        Me.Controls.Add(Me.dgvBestellungen)
         Me.Controls.Add(Me.lblWochenkarte)
         Me.Controls.Add(Me.MyComboBox1)
         Me.Name = "frmEssensbestellungen"
-        Me.Text = "frmEssensbestellungen"
+        Me.Text = "Essensbestellung"
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.GroupBox5.ResumeLayout(False)
+        Me.GroupBox5.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -76,5 +518,36 @@ Partial Class frmEssensbestellungen
 
     Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents lblWochenkarte As Label
-    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents btnSave As Button
+    Friend WithEvents lblDatum As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenoAltMo As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenuMo As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAltDi As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenuDi As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAltMi As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenuMi As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAltDo As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenuDo As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents GroupBox5 As GroupBox
+    Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuFrAlt As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenuFr As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents lbl1 As Label
+    Friend WithEvents lbl2 As Label
+    Friend WithEvents txtAnzahlMenu As Label
+    Friend WithEvents txtAnzahlLaCart As Label
+    Friend WithEvents ToolTipInfoMo As ToolTip
+    Friend WithEvents ToolTipInfoDi As ToolTip
+    Friend WithEvents ToolTipInfoMi As ToolTip
+    Friend WithEvents ToolTipInfoDo As ToolTip
+    Friend WithEvents ToolTipInfoFr As ToolTip
 End Class

Aviso/frmEssensbestellungen.resx

@@ -117,4 +117,19 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ToolTipInfoMo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ToolTipInfoDi.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>116, 17</value>
+  </metadata>
+  <metadata name="ToolTipInfoMi.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>215, 17</value>
+  </metadata>
+  <metadata name="ToolTipInfoDo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>314, 17</value>
+  </metadata>
+  <metadata name="ToolTipInfoFr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>413, 17</value>
+  </metadata>
 </root>

Aviso/frmEssensbestellungen.vb

@@ -1,8 +1,43 @@
-Public Class frmEssensbestellungen
+
-    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
-        'MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]")
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
+Imports Spire.Pdf.General.Paper
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmEssensbestellungen
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+
+    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-        MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]",, "Gastro", True)
 
     End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+    End Sub
+
+
+    Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged
+
+        Dim dt As New DataTable
+        dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True)
+
+        If dt.Rows.Count > 0 Then
+
+            btnSave.Enabled = True
+        Else
+            btnSave.Enabled = False
+        End If
+
+
+    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
+
+
 End Class

Aviso/frmHauptfenster.Designer.vb

@@ -92,11 +92,11 @@ Partial Class frmHauptfenster
         Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TürkischToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.GenerelleGestellungenDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.KundenVonFremdenSpeditionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -363,6 +363,7 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.Top.SuspendLayout()
@@ -774,6 +775,12 @@ Partial Class frmHauptfenster
         Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
         Me.TürkischToolStripMenuItem.Text = "Türkisch"
         '
+        'StandarddruckerWechselnToolStripMenuItem
+        '
+        Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem"
+        Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
+        Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln"
+        '
         'NacherfassungToolStripMenuItem
         '
         Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem"
@@ -800,15 +807,9 @@ Partial Class frmHauptfenster
         Me.LogoutToolStripMenuItem.Text = "Logout"
         Me.LogoutToolStripMenuItem.Visible = False
         '
-        'StandarddruckerWechselnToolStripMenuItem
-        '
-        Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem"
-        Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
-        Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln"
-        '
         'FunktionenToolStripMenuItem
         '
-        Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem})
+        Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem})
         Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
         Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
         Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -3464,6 +3465,12 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
         Me.ToolStripMenuItem21.Text = "GELB"
         '
+        'EssensbestellungenToolStripMenuItem
+        '
+        Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
+        Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
+        '
         'frmHauptfenster
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3866,4 +3873,5 @@ Partial Class frmHauptfenster
     Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents StandarddruckerWechselnToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents EssensbestellungenToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmHauptfenster.vb

@@ -4210,6 +4210,11 @@ Public Class frmHauptfenster
         Dim f As New frmWechselStandarddrucker()
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
+        Dim f As New frmEssensbestellungen()
+        f.ShowDialog(Me)
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions