Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/Aviso.vbproj

@@ -543,6 +543,12 @@
     <Compile Include="frmEssensbestellungen.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmEssensbestellungenAdministration.Designer.vb">
+      <DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEssensbestellungenAdministration.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmFrachtkostenBerechnen.Designer.vb">
       <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
     </Compile>
@@ -962,6 +968,12 @@
     <Compile Include="usrCntlEintragAvisoAtilla.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="UsrCntlEssensbestellungen.Designer.vb">
+      <DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="UsrCntlEssensbestellungen.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
       <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
     </Compile>
@@ -1098,6 +1110,9 @@
     <EmbeddedResource Include="frmEssensbestellungen.resx">
       <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
+      <DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
       <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
     </EmbeddedResource>
@@ -1308,6 +1323,9 @@
     <EmbeddedResource Include="usrCntlEintragAvisoAtilla.resx">
       <DependentUpon>usrCntlEintragAvisoAtilla.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="UsrCntlEssensbestellungen.resx">
+      <DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
       <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
     </EmbeddedResource>

Aviso/UsrCntlEssensbestellungen.Designer.vb

@@ -0,0 +1,746 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class UsrCntlessensbestellungen
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    '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()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.txtPreis = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox()
+        Me.txtMenu_dienstag = New System.Windows.Forms.Label()
+        Me.cb_dienstag = New System.Windows.Forms.CheckBox()
+        Me.txtAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenuAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenu_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.lbl1 = New System.Windows.Forms.Label()
+        Me.GroupBoxMontag = New System.Windows.Forms.GroupBox()
+        Me.txtMenu_montag = New System.Windows.Forms.Label()
+        Me.cb_montag = New System.Windows.Forms.CheckBox()
+        Me.txtAlt_montag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenuAlt_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenu_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox()
+        Me.txtMenu_freitag = New System.Windows.Forms.Label()
+        Me.cb_freitag = New System.Windows.Forms.CheckBox()
+        Me.txtAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenuAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenu__freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
+        Me.lbl2 = New System.Windows.Forms.Label()
+        Me.Mittwoch = New System.Windows.Forms.GroupBox()
+        Me.txtMenu_mittwoch = New System.Windows.Forms.Label()
+        Me.cb_mittwoch = New System.Windows.Forms.CheckBox()
+        Me.txtAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenuAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenu_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox()
+        Me.txtMenu_donnerstag = New System.Windows.Forms.Label()
+        Me.cbdonnerstag = New System.Windows.Forms.CheckBox()
+        Me.txtAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rbMenuAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.rbMenu_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
+        Me.txtAnzahlMenu = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.txtGebäude = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtAnmerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyPanel1.SuspendLayout()
+        Me.GroupBoxDienstag.SuspendLayout()
+        Me.GroupBoxMontag.SuspendLayout()
+        Me.GroupBoxFreitag.SuspendLayout()
+        Me.Mittwoch.SuspendLayout()
+        Me.GroupBoxDonnerstag.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.Controls.Add(Me.lblWarning)
+        Me.MyPanel1.Controls.Add(Me.txtPreis)
+        Me.MyPanel1.Controls.Add(Me.Label2)
+        Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag)
+        Me.MyPanel1.Controls.Add(Me.lbl1)
+        Me.MyPanel1.Controls.Add(Me.GroupBoxMontag)
+        Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag)
+        Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart)
+        Me.MyPanel1.Controls.Add(Me.lbl2)
+        Me.MyPanel1.Controls.Add(Me.Mittwoch)
+        Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag)
+        Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
+        Me.MyPanel1.Location = New System.Drawing.Point(3, 40)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(667, 266)
+        Me.MyPanel1.TabIndex = 19
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(465, 217)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarning.TabIndex = 31
+        '
+        'txtPreis
+        '
+        Me.txtPreis.AutoSize = True
+        Me.txtPreis.Location = New System.Drawing.Point(553, 188)
+        Me.txtPreis.Name = "txtPreis"
+        Me.txtPreis.Size = New System.Drawing.Size(13, 13)
+        Me.txtPreis.TabIndex = 19
+        Me.txtPreis.Text = "0"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(463, 188)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(68, 13)
+        Me.Label2.TabIndex = 18
+        Me.Label2.Text = "Gesamtpreis:"
+        '
+        'GroupBoxDienstag
+        '
+        Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag)
+        Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag)
+        Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag)
+        Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag)
+        Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag)
+        Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8)
+        Me.GroupBoxDienstag.Name = "GroupBoxDienstag"
+        Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121)
+        Me.GroupBoxDienstag.TabIndex = 13
+        Me.GroupBoxDienstag.TabStop = False
+        Me.GroupBoxDienstag.Text = "Dienstag"
+        '
+        'txtMenu_dienstag
+        '
+        Me.txtMenu_dienstag.Location = New System.Drawing.Point(0, 39)
+        Me.txtMenu_dienstag.Name = "txtMenu_dienstag"
+        Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32)
+        Me.txtMenu_dienstag.TabIndex = 30
+        Me.txtMenu_dienstag.Text = "Menutext"
+        '
+        'cb_dienstag
+        '
+        Me.cb_dienstag.AutoSize = True
+        Me.cb_dienstag.Location = New System.Drawing.Point(0, 0)
+        Me.cb_dienstag.Name = "cb_dienstag"
+        Me.cb_dienstag.Size = New System.Drawing.Size(68, 17)
+        Me.cb_dienstag.TabIndex = 4
+        Me.cb_dienstag.Text = "Dienstag"
+        Me.cb_dienstag.UseVisualStyleBackColor = True
+        '
+        'txtAlt_dienstag
+        '
+        Me.txtAlt_dienstag._DateTimeOnly = False
+        Me.txtAlt_dienstag._numbersOnly = False
+        Me.txtAlt_dienstag._numbersOnlyKommastellen = ""
+        Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True
+        Me.txtAlt_dienstag._Prozent = False
+        Me.txtAlt_dienstag._ShortDateNew = False
+        Me.txtAlt_dienstag._ShortDateOnly = False
+        Me.txtAlt_dienstag._TimeOnly = False
+        Me.txtAlt_dienstag._TimeOnly_Seconds = False
+        Me.txtAlt_dienstag._value = ""
+        Me.txtAlt_dienstag._Waehrung = False
+        Me.txtAlt_dienstag._WaehrungZeichen = True
+        Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black
+        Me.txtAlt_dienstag.Location = New System.Drawing.Point(0, 93)
+        Me.txtAlt_dienstag.MaxLineLength = -1
+        Me.txtAlt_dienstag.MaxLines_Warning = ""
+        Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing
+        Me.txtAlt_dienstag.Name = "txtAlt_dienstag"
+        Me.txtAlt_dienstag.Size = New System.Drawing.Size(177, 20)
+        Me.txtAlt_dienstag.TabIndex = 2
+        Me.txtAlt_dienstag.Visible = False
+        '
+        'rbMenuAlt_dienstag
+        '
+        Me.rbMenuAlt_dienstag.AutoSize = True
+        Me.rbMenuAlt_dienstag.GroupName = "Dienstag"
+        Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 74)
+        Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag"
+        Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAlt_dienstag.TabIndex = 1
+        Me.rbMenuAlt_dienstag.TabStop = True
+        Me.rbMenuAlt_dienstag.Text = "A la carte"
+        Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True
+        '
+        'rbMenu_dienstag
+        '
+        Me.rbMenu_dienstag.AutoSize = True
+        Me.rbMenu_dienstag.GroupName = "Dienstag"
+        Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenu_dienstag.Name = "rbMenu_dienstag"
+        Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenu_dienstag.TabIndex = 0
+        Me.rbMenu_dienstag.TabStop = True
+        Me.rbMenu_dienstag.Text = "Menü"
+        Me.rbMenu_dienstag.UseVisualStyleBackColor = True
+        '
+        'lbl1
+        '
+        Me.lbl1.AutoSize = True
+        Me.lbl1.Location = New System.Drawing.Point(463, 135)
+        Me.lbl1.Name = "lbl1"
+        Me.lbl1.Size = New System.Drawing.Size(72, 13)
+        Me.lbl1.TabIndex = 14
+        Me.lbl1.Text = "Anzahl Menü:"
+        '
+        'GroupBoxMontag
+        '
+        Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag)
+        Me.GroupBoxMontag.Controls.Add(Me.cb_montag)
+        Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag)
+        Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag)
+        Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag)
+        Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8)
+        Me.GroupBoxMontag.Name = "GroupBoxMontag"
+        Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121)
+        Me.GroupBoxMontag.TabIndex = 12
+        Me.GroupBoxMontag.TabStop = False
+        Me.GroupBoxMontag.Text = "Montag"
+        '
+        'txtMenu_montag
+        '
+        Me.txtMenu_montag.Location = New System.Drawing.Point(6, 39)
+        Me.txtMenu_montag.Name = "txtMenu_montag"
+        Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32)
+        Me.txtMenu_montag.TabIndex = 29
+        Me.txtMenu_montag.Text = "Menutext"
+        '
+        'cb_montag
+        '
+        Me.cb_montag.AutoSize = True
+        Me.cb_montag.Location = New System.Drawing.Point(3, 0)
+        Me.cb_montag.Name = "cb_montag"
+        Me.cb_montag.Size = New System.Drawing.Size(62, 17)
+        Me.cb_montag.TabIndex = 3
+        Me.cb_montag.Text = "Montag"
+        Me.cb_montag.UseVisualStyleBackColor = True
+        '
+        'txtAlt_montag
+        '
+        Me.txtAlt_montag._DateTimeOnly = False
+        Me.txtAlt_montag._numbersOnly = False
+        Me.txtAlt_montag._numbersOnlyKommastellen = ""
+        Me.txtAlt_montag._numbersOnlyTrennzeichen = True
+        Me.txtAlt_montag._Prozent = False
+        Me.txtAlt_montag._ShortDateNew = False
+        Me.txtAlt_montag._ShortDateOnly = False
+        Me.txtAlt_montag._TimeOnly = False
+        Me.txtAlt_montag._TimeOnly_Seconds = False
+        Me.txtAlt_montag._value = ""
+        Me.txtAlt_montag._Waehrung = False
+        Me.txtAlt_montag._WaehrungZeichen = True
+        Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black
+        Me.txtAlt_montag.Location = New System.Drawing.Point(3, 92)
+        Me.txtAlt_montag.MaxLineLength = -1
+        Me.txtAlt_montag.MaxLines_Warning = ""
+        Me.txtAlt_montag.MaxLines_Warning_Label = Nothing
+        Me.txtAlt_montag.Name = "txtAlt_montag"
+        Me.txtAlt_montag.Size = New System.Drawing.Size(177, 20)
+        Me.txtAlt_montag.TabIndex = 2
+        Me.txtAlt_montag.Visible = False
+        '
+        'rbMenuAlt_montag
+        '
+        Me.rbMenuAlt_montag.AutoSize = True
+        Me.rbMenuAlt_montag.GroupName = "GroupBox1"
+        Me.rbMenuAlt_montag.Location = New System.Drawing.Point(6, 74)
+        Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag"
+        Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAlt_montag.TabIndex = 1
+        Me.rbMenuAlt_montag.TabStop = True
+        Me.rbMenuAlt_montag.Text = "A la carte"
+        Me.rbMenuAlt_montag.UseVisualStyleBackColor = True
+        '
+        'rbMenu_montag
+        '
+        Me.rbMenu_montag.AutoSize = True
+        Me.rbMenu_montag.GroupName = "GroupBox1"
+        Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenu_montag.Name = "rbMenu_montag"
+        Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenu_montag.TabIndex = 0
+        Me.rbMenu_montag.TabStop = True
+        Me.rbMenu_montag.Text = "Menü"
+        Me.rbMenu_montag.UseVisualStyleBackColor = True
+        '
+        'GroupBoxFreitag
+        '
+        Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag)
+        Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag)
+        Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag)
+        Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag)
+        Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag)
+        Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135)
+        Me.GroupBoxFreitag.Name = "GroupBoxFreitag"
+        Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121)
+        Me.GroupBoxFreitag.TabIndex = 13
+        Me.GroupBoxFreitag.TabStop = False
+        Me.GroupBoxFreitag.Text = "Freitag"
+        '
+        'txtMenu_freitag
+        '
+        Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39)
+        Me.txtMenu_freitag.Name = "txtMenu_freitag"
+        Me.txtMenu_freitag.Size = New System.Drawing.Size(188, 32)
+        Me.txtMenu_freitag.TabIndex = 32
+        Me.txtMenu_freitag.Text = "Menutext"
+        '
+        'cb_freitag
+        '
+        Me.cb_freitag.AutoSize = True
+        Me.cb_freitag.Location = New System.Drawing.Point(3, 0)
+        Me.cb_freitag.Name = "cb_freitag"
+        Me.cb_freitag.Size = New System.Drawing.Size(58, 17)
+        Me.cb_freitag.TabIndex = 6
+        Me.cb_freitag.Text = "Freitag"
+        Me.cb_freitag.UseVisualStyleBackColor = True
+        '
+        'txtAlt_freitag
+        '
+        Me.txtAlt_freitag._DateTimeOnly = False
+        Me.txtAlt_freitag._numbersOnly = False
+        Me.txtAlt_freitag._numbersOnlyKommastellen = ""
+        Me.txtAlt_freitag._numbersOnlyTrennzeichen = True
+        Me.txtAlt_freitag._Prozent = False
+        Me.txtAlt_freitag._ShortDateNew = False
+        Me.txtAlt_freitag._ShortDateOnly = False
+        Me.txtAlt_freitag._TimeOnly = False
+        Me.txtAlt_freitag._TimeOnly_Seconds = False
+        Me.txtAlt_freitag._value = ""
+        Me.txtAlt_freitag._Waehrung = False
+        Me.txtAlt_freitag._WaehrungZeichen = True
+        Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black
+        Me.txtAlt_freitag.Location = New System.Drawing.Point(-3, 97)
+        Me.txtAlt_freitag.MaxLineLength = -1
+        Me.txtAlt_freitag.MaxLines_Warning = ""
+        Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing
+        Me.txtAlt_freitag.Name = "txtAlt_freitag"
+        Me.txtAlt_freitag.Size = New System.Drawing.Size(177, 20)
+        Me.txtAlt_freitag.TabIndex = 2
+        Me.txtAlt_freitag.Visible = False
+        '
+        'rbMenuAlt_freitag
+        '
+        Me.rbMenuAlt_freitag.AutoSize = True
+        Me.rbMenuAlt_freitag.GroupName = "Freitag"
+        Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(0, 78)
+        Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag"
+        Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAlt_freitag.TabIndex = 1
+        Me.rbMenuAlt_freitag.TabStop = True
+        Me.rbMenuAlt_freitag.Text = "A la carte"
+        Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True
+        '
+        'rbMenu__freitag
+        '
+        Me.rbMenu__freitag.AutoSize = True
+        Me.rbMenu__freitag.GroupName = "Freitag"
+        Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenu__freitag.Name = "rbMenu__freitag"
+        Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenu__freitag.TabIndex = 0
+        Me.rbMenu__freitag.TabStop = True
+        Me.rbMenu__freitag.Text = "Menü"
+        Me.rbMenu__freitag.UseVisualStyleBackColor = True
+        '
+        'txtAnzahlLaCart
+        '
+        Me.txtAnzahlLaCart.AutoSize = True
+        Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162)
+        Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
+        Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
+        Me.txtAnzahlLaCart.TabIndex = 17
+        Me.txtAnzahlLaCart.Text = "0"
+        '
+        'lbl2
+        '
+        Me.lbl2.AutoSize = True
+        Me.lbl2.Location = New System.Drawing.Point(463, 162)
+        Me.lbl2.Name = "lbl2"
+        Me.lbl2.Size = New System.Drawing.Size(90, 13)
+        Me.lbl2.TabIndex = 15
+        Me.lbl2.Text = "Anzahl a la Carte:"
+        '
+        'Mittwoch
+        '
+        Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch)
+        Me.Mittwoch.Controls.Add(Me.cb_mittwoch)
+        Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch)
+        Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch)
+        Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch)
+        Me.Mittwoch.Location = New System.Drawing.Point(431, 8)
+        Me.Mittwoch.Name = "Mittwoch"
+        Me.Mittwoch.Size = New System.Drawing.Size(200, 121)
+        Me.Mittwoch.TabIndex = 13
+        Me.Mittwoch.TabStop = False
+        Me.Mittwoch.Text = "Mittwoch"
+        '
+        'txtMenu_mittwoch
+        '
+        Me.txtMenu_mittwoch.Location = New System.Drawing.Point(0, 39)
+        Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch"
+        Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32)
+        Me.txtMenu_mittwoch.TabIndex = 31
+        Me.txtMenu_mittwoch.Text = "Menutext"
+        '
+        'cb_mittwoch
+        '
+        Me.cb_mittwoch.AutoSize = True
+        Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0)
+        Me.cb_mittwoch.Name = "cb_mittwoch"
+        Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17)
+        Me.cb_mittwoch.TabIndex = 5
+        Me.cb_mittwoch.Text = "Mittwoch"
+        Me.cb_mittwoch.UseVisualStyleBackColor = True
+        '
+        'txtAlt_mittwoch
+        '
+        Me.txtAlt_mittwoch._DateTimeOnly = False
+        Me.txtAlt_mittwoch._numbersOnly = False
+        Me.txtAlt_mittwoch._numbersOnlyKommastellen = ""
+        Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True
+        Me.txtAlt_mittwoch._Prozent = False
+        Me.txtAlt_mittwoch._ShortDateNew = False
+        Me.txtAlt_mittwoch._ShortDateOnly = False
+        Me.txtAlt_mittwoch._TimeOnly = False
+        Me.txtAlt_mittwoch._TimeOnly_Seconds = False
+        Me.txtAlt_mittwoch._value = ""
+        Me.txtAlt_mittwoch._Waehrung = False
+        Me.txtAlt_mittwoch._WaehrungZeichen = True
+        Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black
+        Me.txtAlt_mittwoch.Location = New System.Drawing.Point(0, 93)
+        Me.txtAlt_mittwoch.MaxLineLength = -1
+        Me.txtAlt_mittwoch.MaxLines_Warning = ""
+        Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing
+        Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch"
+        Me.txtAlt_mittwoch.Size = New System.Drawing.Size(177, 20)
+        Me.txtAlt_mittwoch.TabIndex = 2
+        Me.txtAlt_mittwoch.Visible = False
+        '
+        'rbMenuAlt_mittwoch
+        '
+        Me.rbMenuAlt_mittwoch.AutoSize = True
+        Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch"
+        Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 74)
+        Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch"
+        Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAlt_mittwoch.TabIndex = 1
+        Me.rbMenuAlt_mittwoch.TabStop = True
+        Me.rbMenuAlt_mittwoch.Text = "A la carte"
+        Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True
+        '
+        'rbMenu_mittwoch
+        '
+        Me.rbMenu_mittwoch.AutoSize = True
+        Me.rbMenu_mittwoch.GroupName = "Mittwoch"
+        Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch"
+        Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenu_mittwoch.TabIndex = 0
+        Me.rbMenu_mittwoch.TabStop = True
+        Me.rbMenu_mittwoch.Text = "Menü"
+        Me.rbMenu_mittwoch.UseVisualStyleBackColor = True
+        '
+        'GroupBoxDonnerstag
+        '
+        Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag)
+        Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag)
+        Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag)
+        Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag)
+        Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag)
+        Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135)
+        Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag"
+        Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121)
+        Me.GroupBoxDonnerstag.TabIndex = 13
+        Me.GroupBoxDonnerstag.TabStop = False
+        Me.GroupBoxDonnerstag.Text = "Donnerstag"
+        '
+        'txtMenu_donnerstag
+        '
+        Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39)
+        Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag"
+        Me.txtMenu_donnerstag.Size = New System.Drawing.Size(188, 32)
+        Me.txtMenu_donnerstag.TabIndex = 33
+        Me.txtMenu_donnerstag.Text = "Menutext"
+        '
+        '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
+        '
+        'txtAlt_donnerstag
+        '
+        Me.txtAlt_donnerstag._DateTimeOnly = False
+        Me.txtAlt_donnerstag._numbersOnly = False
+        Me.txtAlt_donnerstag._numbersOnlyKommastellen = ""
+        Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True
+        Me.txtAlt_donnerstag._Prozent = False
+        Me.txtAlt_donnerstag._ShortDateNew = False
+        Me.txtAlt_donnerstag._ShortDateOnly = False
+        Me.txtAlt_donnerstag._TimeOnly = False
+        Me.txtAlt_donnerstag._TimeOnly_Seconds = False
+        Me.txtAlt_donnerstag._value = ""
+        Me.txtAlt_donnerstag._Waehrung = False
+        Me.txtAlt_donnerstag._WaehrungZeichen = True
+        Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black
+        Me.txtAlt_donnerstag.Location = New System.Drawing.Point(1, 97)
+        Me.txtAlt_donnerstag.MaxLineLength = -1
+        Me.txtAlt_donnerstag.MaxLines_Warning = ""
+        Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing
+        Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag"
+        Me.txtAlt_donnerstag.Size = New System.Drawing.Size(177, 20)
+        Me.txtAlt_donnerstag.TabIndex = 2
+        Me.txtAlt_donnerstag.Visible = False
+        '
+        'rbMenuAlt_donnerstag
+        '
+        Me.rbMenuAlt_donnerstag.AutoSize = True
+        Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag"
+        Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(4, 78)
+        Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag"
+        Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17)
+        Me.rbMenuAlt_donnerstag.TabIndex = 1
+        Me.rbMenuAlt_donnerstag.TabStop = True
+        Me.rbMenuAlt_donnerstag.Text = "A la carte"
+        Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True
+        '
+        'rbMenu_donnerstag
+        '
+        Me.rbMenu_donnerstag.AutoSize = True
+        Me.rbMenu_donnerstag.GroupName = "Donnerstag"
+        Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19)
+        Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag"
+        Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17)
+        Me.rbMenu_donnerstag.TabIndex = 0
+        Me.rbMenu_donnerstag.TabStop = True
+        Me.rbMenu_donnerstag.Text = "Menü"
+        Me.rbMenu_donnerstag.UseVisualStyleBackColor = True
+        '
+        'txtAnzahlMenu
+        '
+        Me.txtAnzahlMenu.AutoSize = True
+        Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137)
+        Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
+        Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
+        Me.txtAnzahlMenu.TabIndex = 16
+        Me.txtAnzahlMenu.Text = "0"
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(121, 9)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(63, 17)
+        Me.CheckBox1.TabIndex = 20
+        Me.CheckBox1.Text = "storniert"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Location = New System.Drawing.Point(12, 9)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(86, 17)
+        Me.CheckBox2.TabIndex = 21
+        Me.CheckBox2.Text = "abgerechnet"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button1.Location = New System.Drawing.Point(285, 312)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 22
+        Me.Button1.Text = "Speichern"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'txtGebäude
+        '
+        Me.txtGebäude._DateTimeOnly = False
+        Me.txtGebäude._numbersOnly = False
+        Me.txtGebäude._numbersOnlyKommastellen = ""
+        Me.txtGebäude._numbersOnlyTrennzeichen = True
+        Me.txtGebäude._Prozent = False
+        Me.txtGebäude._ShortDateNew = False
+        Me.txtGebäude._ShortDateOnly = False
+        Me.txtGebäude._TimeOnly = False
+        Me.txtGebäude._TimeOnly_Seconds = False
+        Me.txtGebäude._value = ""
+        Me.txtGebäude._Waehrung = False
+        Me.txtGebäude._WaehrungZeichen = True
+        Me.txtGebäude.ForeColor = System.Drawing.Color.Black
+        Me.txtGebäude.Location = New System.Drawing.Point(514, -3)
+        Me.txtGebäude.MaxLineLength = -1
+        Me.txtGebäude.MaxLines_Warning = ""
+        Me.txtGebäude.MaxLines_Warning_Label = Nothing
+        Me.txtGebäude.Name = "txtGebäude"
+        Me.txtGebäude.Size = New System.Drawing.Size(142, 20)
+        Me.txtGebäude.TabIndex = 30
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(444, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(54, 13)
+        Me.Label1.TabIndex = 30
+        Me.Label1.Text = "Gebäude:"
+        '
+        'CheckBox3
+        '
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Location = New System.Drawing.Point(225, 9)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(70, 17)
+        Me.CheckBox3.TabIndex = 31
+        Me.CheckBox3.Text = "gesendet"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(444, 17)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(64, 13)
+        Me.Label3.TabIndex = 32
+        Me.Label3.Text = "Anmerkung:"
+        '
+        'txtAnmerkung
+        '
+        Me.txtAnmerkung._DateTimeOnly = False
+        Me.txtAnmerkung._numbersOnly = False
+        Me.txtAnmerkung._numbersOnlyKommastellen = ""
+        Me.txtAnmerkung._numbersOnlyTrennzeichen = True
+        Me.txtAnmerkung._Prozent = False
+        Me.txtAnmerkung._ShortDateNew = False
+        Me.txtAnmerkung._ShortDateOnly = False
+        Me.txtAnmerkung._TimeOnly = False
+        Me.txtAnmerkung._TimeOnly_Seconds = False
+        Me.txtAnmerkung._value = ""
+        Me.txtAnmerkung._Waehrung = False
+        Me.txtAnmerkung._WaehrungZeichen = True
+        Me.txtAnmerkung.ForeColor = System.Drawing.Color.Black
+        Me.txtAnmerkung.Location = New System.Drawing.Point(514, 14)
+        Me.txtAnmerkung.MaxLineLength = -1
+        Me.txtAnmerkung.MaxLines_Warning = ""
+        Me.txtAnmerkung.MaxLines_Warning_Label = Nothing
+        Me.txtAnmerkung.Name = "txtAnmerkung"
+        Me.txtAnmerkung.Size = New System.Drawing.Size(142, 20)
+        Me.txtAnmerkung.TabIndex = 33
+        '
+        'UsrCntlessensbestellungen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtAnmerkung)
+        Me.Controls.Add(Me.CheckBox3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtGebäude)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.CheckBox2)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.MyPanel1)
+        Me.Name = "UsrCntlessensbestellungen"
+        Me.Size = New System.Drawing.Size(690, 358)
+        Me.MyPanel1.ResumeLayout(False)
+        Me.MyPanel1.PerformLayout()
+        Me.GroupBoxDienstag.ResumeLayout(False)
+        Me.GroupBoxDienstag.PerformLayout()
+        Me.GroupBoxMontag.ResumeLayout(False)
+        Me.GroupBoxMontag.PerformLayout()
+        Me.GroupBoxFreitag.ResumeLayout(False)
+        Me.GroupBoxFreitag.PerformLayout()
+        Me.Mittwoch.ResumeLayout(False)
+        Me.Mittwoch.PerformLayout()
+        Me.GroupBoxDonnerstag.ResumeLayout(False)
+        Me.GroupBoxDonnerstag.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents txtPreis As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents GroupBoxDienstag As GroupBox
+    Friend WithEvents txtMenu_dienstag As Label
+    Friend WithEvents cb_dienstag As CheckBox
+    Friend WithEvents txtAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenu_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents lbl1 As Label
+    Friend WithEvents GroupBoxMontag As GroupBox
+    Friend WithEvents txtMenu_montag As Label
+    Friend WithEvents cb_montag As CheckBox
+    Friend WithEvents txtAlt_montag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAlt_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenu_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents GroupBoxFreitag As GroupBox
+    Friend WithEvents txtMenu_freitag As Label
+    Friend WithEvents cb_freitag As CheckBox
+    Friend WithEvents txtAlt_freitag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAlt_freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenu__freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents txtAnzahlLaCart As Label
+    Friend WithEvents lbl2 As Label
+    Friend WithEvents Mittwoch As GroupBox
+    Friend WithEvents txtMenu_mittwoch As Label
+    Friend WithEvents cb_mittwoch As CheckBox
+    Friend WithEvents txtAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenu_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents GroupBoxDonnerstag As GroupBox
+    Friend WithEvents txtMenu_donnerstag As Label
+    Friend WithEvents cbdonnerstag As CheckBox
+    Friend WithEvents txtAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents rbMenuAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents rbMenu_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
+    Friend WithEvents txtAnzahlMenu As Label
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents txtGebäude As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents CheckBox3 As CheckBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtAnmerkung As VERAG_PROG_ALLGEMEIN.MyTextBox
+End Class

Aviso/UsrCntlEssensbestellungen.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Aviso/UsrCntlEssensbestellungen.vb

@@ -0,0 +1,484 @@
+
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class UsrCntlessensbestellungen
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim essen As cEssensbestellung
+    Dim dt As New DataTable
+    'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
+    Private ToolTipFont As New Font("Courier New", 12)
+    Dim preisProMahlzeit As Double = 3
+    Dim menu As String = "Menu"
+
+
+
+    Sub New()
+
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(storniert As Boolean, abgerechnet As Boolean, menu As String)
+
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.CheckBox1.Checked = storniert
+        Me.CheckBox2.Checked = abgerechnet
+        'dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menu & "' order by MenuDateVon desc", "AVISO", 100, True)
+        dt = SQL.loadDgvBySql("Select Case Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menu & "'", "AVISO", 100, True)
+        loadMenuInfo(dt)
+        essen = New cEssensbestellung()
+        txtGebäude.Text = essen.eb_gebaeude.ToString
+        txtAnmerkung.Text = essen.eb_anmerkung.ToString
+
+    End Sub
+
+    Sub New(bestellung As cEssensbestellung)
+
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+        essen = bestellung
+        Dim menutitle = bestellung.eb_kw.ToString()
+        Me.CheckBox1.Checked = essen.eb_storniert
+        Me.CheckBox2.Checked = essen.eb_abgerechnet
+        'dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menutitle & "' order by MenuDateVon desc", "AVISO", 100, True)
+        dt = SQL.loadDgvBySql("Select Case Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
+        loadMenuInfo(dt)
+        txtGebäude.Text = essen.eb_gebaeude.ToString
+        txtAnmerkung.Text = essen.eb_anmerkung.ToString
+
+    End Sub
+
+
+    Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
+
+        If rbMenuAlt_montag.Checked Then
+            txtAlt_montag.Visible = True
+        Else
+            txtAlt_montag.Visible = False
+        End If
+
+        If rbMenuAlt_dienstag.Checked Then
+            txtAlt_dienstag.Visible = True
+        Else
+
+            txtAlt_dienstag.Visible = False
+        End If
+
+        If rbMenuAlt_mittwoch.Checked Then
+            txtAlt_mittwoch.Visible = True
+        Else
+            txtAlt_mittwoch.Visible = False
+        End If
+
+
+        If rbMenuAlt_donnerstag.Checked Then
+            txtAlt_donnerstag.Visible = True
+        Else
+            txtAlt_donnerstag.Visible = False
+        End If
+
+        If rbMenuAlt_freitag.Checked Then
+            txtAlt_freitag.Visible = True
+        Else
+            txtAlt_freitag.Visible = False
+        End If
+        countChecks()
+    End Sub
+
+    Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged
+        If cb_montag.Checked Then
+            rbMenuAlt_montag.Enabled = True
+            rbMenu_montag.Enabled = True
+            If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
+                rbMenu_montag.Checked = True
+            End If
+        Else
+            rbMenuAlt_montag.Enabled = False
+            rbMenu_montag.Enabled = False
+            txtAlt_montag.Text = ""
+        End If
+
+        If cb_dienstag.Checked Then
+            rbMenuAlt_dienstag.Enabled = True
+            rbMenu_dienstag.Enabled = True
+            If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
+                rbMenu_dienstag.Checked = True
+            End If
+        Else
+            rbMenu_dienstag.Enabled = False
+            rbMenuAlt_dienstag.Enabled = False
+            txtAlt_dienstag.Text = ""
+        End If
+
+        If cb_mittwoch.Checked Then
+            rbMenuAlt_mittwoch.Enabled = True
+            rbMenu_mittwoch.Enabled = True
+            If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
+                rbMenu_mittwoch.Checked = True
+            End If
+        Else
+            rbMenu_mittwoch.Enabled = False
+            rbMenuAlt_mittwoch.Enabled = False
+            txtAlt_mittwoch.Text = ""
+        End If
+
+
+        If cbdonnerstag.Checked Then
+            rbMenuAlt_donnerstag.Enabled = True
+            rbMenu_donnerstag.Enabled = True
+            If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
+                rbMenu_donnerstag.Checked = True
+            End If
+        Else
+            rbMenu_donnerstag.Enabled = False
+            rbMenuAlt_donnerstag.Enabled = False
+            txtAlt_donnerstag.Text = ""
+        End If
+
+        If cb_freitag.Checked Then
+            rbMenuAlt_freitag.Enabled = True
+            rbMenu__freitag.Enabled = True
+            If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
+                rbMenu__freitag.Checked = True
+            End If
+        Else
+            rbMenu__freitag.Enabled = False
+            rbMenuAlt_freitag.Enabled = False
+            txtAlt_freitag.Text = ""
+        End If
+        countChecks()
+    End Sub
+
+    Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)
+        For Each gb As Control In MyPanel1.Controls
+            If TypeOf gb Is GroupBox Then
+                For Each c As Control In gb.Controls
+                    If TypeOf c Is CheckBox Then
+                        Dim checkbox As CheckBox = c
+                        checkbox.Checked = False
+                    End If
+                    If TypeOf c Is RadioButton Then
+                        Dim radiobutton As RadioButton = c
+                        radiobutton.Checked = False
+                    End If
+
+                Next
+            End If
+        Next
+        cbFields_CheckedChanged(sender, e)
+    End Sub
+
+    Private Sub countChecks()
+
+        Dim countMenus As Integer
+        Dim countlaCarte As Integer
+        countMenus = 0
+        countlaCarte = 0
+        For Each gb As Control In MyPanel1.Controls
+            If TypeOf gb Is GroupBox Then
+                For Each c As Control In gb.Controls
+
+                    If c.Text.ToLower.StartsWith("menü") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
+                        Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
+                        If rb.Checked Then countMenus = countMenus + 1
+                    End If
+
+                    If c.Text.ToLower.StartsWith("a la carte") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
+                        Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
+                        If rb.Checked Then countlaCarte = countlaCarte + 1
+                    End If
+                Next
+            End If
+        Next
+
+        txtAnzahlMenu.Text = countMenus.ToString()
+        txtAnzahlLaCart.Text = countlaCarte.ToString
+        txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit
+
+
+    End Sub
+
+    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
+            txtAnmerkung.Enabled = False
+        Else
+            MyPanel1.Enabled = True
+            txtGebäude.Enabled = True
+            txtAnmerkung.Enabled = True
+
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+
+        If cb_montag.Checked Then
+            If rbMenu_montag.Checked Then
+                essen.eb_montag = menu
+                setWarning(False)
+            Else
+                If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_montag = txtAlt_montag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
+
+            End If
+            setWarning(False)
+        Else
+            essen.eb_montag = Nothing
+        End If
+
+
+        If cb_dienstag.Checked Then
+            If rbMenu_dienstag.Checked Then
+                essen.eb_dienstag = menu
+                setWarning(False)
+            Else
+                If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_dienstag = txtAlt_dienstag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
+            End If
+            setWarning(False)
+        Else
+            essen.eb_dienstag = Nothing
+        End If
+
+        If cb_mittwoch.Checked Then
+            If rbMenu_mittwoch.Checked Then
+                essen.eb_mittwoch = menu
+                setWarning(False)
+            Else
+                If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
+            End If
+            setWarning(False)
+        Else
+            essen.eb_mittwoch = Nothing
+        End If
+
+        If cbdonnerstag.Checked Then
+            If rbMenu_donnerstag.Checked Then
+                essen.eb_donnerstag = menu
+                setWarning(False)
+            Else
+                If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
+            End If
+            setWarning(False)
+        Else
+            essen.eb_donnerstag = Nothing
+        End If
+
+        If cb_freitag.Checked Then
+            If rbMenu__freitag.Checked Then
+                essen.eb_freitag = menu
+                setWarning(False)
+            Else
+                If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_freitag = txtAlt_freitag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
+            End If
+            setWarning(False)
+        Else
+            essen.eb_freitag = Nothing
+        End If
+
+        If txtPreis.Text IsNot "" Then
+            essen.eb_preis = CDbl(txtPreis.Text)
+        End If
+
+        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
+
+    End Sub
+
+    Private Sub loadMenuInfo(dt As DataTable)
+
+        If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
+            rbMenu_montag.Text = menu
+            txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
+
+        End If
+
+
+        If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
+            rbMenu_dienstag.Text = menu
+            txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
+
+        End If
+
+
+        If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
+            rbMenu_mittwoch.Text = menu
+            txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
+
+        End If
+
+        If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
+            rbMenu_donnerstag.Text = menu
+            txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
+
+        End If
+
+        If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
+            rbMenu__freitag.Text = menu
+            txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
+
+        End If
+
+    End Sub
+
+    Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click
+        countChecks()
+    End Sub
+
+    Private Function checkIfGroupBoxIsSetFirstTime(gb As GroupBox)
+
+        For Each c As Control In gb.Controls
+            If TypeOf c Is RadioButton Then
+                Dim radioButton As RadioButton = c
+                If radioButton.Checked = True Then
+                    Return False
+                End If
+            End If
+        Next
+        Return True
+
+    End Function
+
+    Private Sub setWarning(warning As Boolean)
+
+        If warning Then
+            lblWarning.Text = "Bezeichnung für A la carte fehlt"
+        Else
+
+            lblWarning.Text = ""
+
+        End If
+
+    End Sub
+
+    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_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_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
+
+    End Sub
+End Class

Aviso/frmEssensbestellungen.vb

@@ -7,15 +7,18 @@ Public Class frmEssensbestellungen
     Dim essen As New cEssensbestellung()
     Dim dt As New DataTable
     Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
+    'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
     Private ToolTipFont As New Font("Courier New", 12)
     Dim preisProMahlzeit As Double = 3
-    Dim menu As String = "Menü:"
+    Dim menu As String = "Menü"
 
 
 
     Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-        cbxMenu.fillWithSQL("SELECT Distinct Top 10 (MenuTitel), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() 
+
+
+        cbxMenu.fillWithSQL("SELECT Distinct Top 10 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() 
 
         txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
         txtAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
@@ -38,60 +41,96 @@ Public Class frmEssensbestellungen
             Exit Sub
         End If
 
-        essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG)
+        essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung)
 
-        If cbMontag.Checked Then
-            If rbMenu_Mo.Checked Then
-                essen.eb_montag = "Menu"
+        If cb_montag.Checked Then
+            If rbMenu_montag.Checked Then
+                essen.eb_montag = menu
+                setWarning(False)
             Else
-                essen.eb_montag = txtAltMo.Text.ToString
-            End If
+                If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_montag = txtAlt_montag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
 
+            End If
+            setWarning(False)
         Else
             essen.eb_montag = Nothing
         End If
 
 
-        If cbDienstag.Checked Then
-            If rbMenu_Di.Checked Then
-                essen.eb_dienstag = "Menu"
+        If cb_dienstag.Checked Then
+            If rbMenu_dienstag.Checked Then
+                essen.eb_dienstag = menu
+                setWarning(False)
             Else
-                essen.eb_dienstag = txtAltDi.Text.ToString
+                If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_dienstag = txtAlt_dienstag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
             End If
-
+            setWarning(False)
         Else
             essen.eb_dienstag = Nothing
         End If
 
-        If cbMittwoch.Checked Then
-            If rbMenu_Mi.Checked Then
-                essen.eb_mittwoch = "Menu"
+        If cb_mittwoch.Checked Then
+            If rbMenu_mittwoch.Checked Then
+                essen.eb_mittwoch = menu
+                setWarning(False)
             Else
-                essen.eb_mittwoch = txtAltMi.Text.ToString
+                If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
             End If
-
+            setWarning(False)
         Else
             essen.eb_mittwoch = Nothing
         End If
 
-        If cbDonnerstag.Checked Then
-            If rbMenu_Do.Checked Then
-                essen.eb_donnerstag = "Menu"
+        If cbdonnerstag.Checked Then
+            If rbMenu_donnerstag.Checked Then
+                essen.eb_donnerstag = menu
+                setWarning(False)
             Else
-                essen.eb_donnerstag = txtAltDo.Text.ToString
+                If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
             End If
-
+            setWarning(False)
         Else
             essen.eb_donnerstag = Nothing
         End If
 
-        If cbFreitag.Checked Then
-            If rbMenu_Fr.Checked Then
-                essen.eb_freitag = "Menu"
+        If cb_freitag.Checked Then
+            If rbMenu__freitag.Checked Then
+                essen.eb_freitag = menu
+                setWarning(False)
             Else
-                essen.eb_freitag = txtAltFr.Text.ToString
+                If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
+                    essen.eb_freitag = txtAlt_freitag.Text.ToString
+                    setWarning(False)
+                Else
+                    setWarning(True)
+                    Exit Sub
+                End If
             End If
-
+            setWarning(False)
         Else
             essen.eb_freitag = Nothing
         End If
@@ -102,6 +141,7 @@ Public Class frmEssensbestellungen
 
         essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
         essen.eb_gebaeude = cbxGebauede._value
+        essen.eb_anmerkung = txtAnmerkung.Text
         essen.SAVE()
         loadDGVBestellungen()
 
@@ -130,7 +170,7 @@ Public Class frmEssensbestellungen
         btnSave.Enabled = True
         'Button1.Visible = True
         dt.Clear()
-        dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & cbxMenu._value & "' order by MenuDateVon desc", "AVISO", 100, True)
+        dt = SQL.loadDgvBySql("SELECT Top 1 * from (SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & cbxMenu._value & "'", "AVISO", 100, True)
 
         If dt.Rows.Count > 0 Then
             If checkIfOrderIsPossible() Then
@@ -151,102 +191,102 @@ Public Class frmEssensbestellungen
 
     End Sub
 
-    Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged
+    Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
 
-        If rbMenuAlt_Mo.Checked Then
-            txtAltMo.Visible = True
+        If rbMenuAlt_montag.Checked Then
+            txtAlt_montag.Visible = True
         Else
-            txtAltMo.Visible = False
+            txtAlt_montag.Visible = False
         End If
 
-        If rbMenuAlt_Di.Checked Then
-            txtAltDi.Visible = True
+        If rbMenuAlt_dienstag.Checked Then
+            txtAlt_dienstag.Visible = True
         Else
 
-            txtAltDi.Visible = False
+            txtAlt_dienstag.Visible = False
         End If
 
-        If rbMenuAlt_Mi.Checked Then
-            txtAltMi.Visible = True
+        If rbMenuAlt_mittwoch.Checked Then
+            txtAlt_mittwoch.Visible = True
         Else
-            txtAltMi.Visible = False
+            txtAlt_mittwoch.Visible = False
         End If
 
 
-        If rbMenuAlt_Do.Checked Then
-            txtAltDo.Visible = True
+        If rbMenuAlt_donnerstag.Checked Then
+            txtAlt_donnerstag.Visible = True
         Else
-            txtAltDo.Visible = False
+            txtAlt_donnerstag.Visible = False
         End If
 
-        If rbMenuAlt_Fr.Checked Then
-            txtAltFr.Visible = True
+        If rbMenuAlt_freitag.Checked Then
+            txtAlt_freitag.Visible = True
         Else
-            txtAltFr.Visible = False
+            txtAlt_freitag.Visible = False
         End If
         countChecks()
     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
-            rbMenuAlt_Mo.Enabled = True
-            rbMenu_Mo.Enabled = True
+    Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged
+        If cb_montag.Checked Then
+            rbMenuAlt_montag.Enabled = True
+            rbMenu_montag.Enabled = True
             If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
-                rbMenu_Mo.Checked = True
+                rbMenu_montag.Checked = True
             End If
         Else
-            rbMenuAlt_Mo.Enabled = False
-            rbMenu_Mo.Enabled = False
-            txtAltMo.Text = ""
+            rbMenuAlt_montag.Enabled = False
+            rbMenu_montag.Enabled = False
+            txtAlt_montag.Text = ""
         End If
 
-        If cbDienstag.Checked Then
-            rbMenuAlt_Di.Enabled = True
-            rbMenu_Di.Enabled = True
+        If cb_dienstag.Checked Then
+            rbMenuAlt_dienstag.Enabled = True
+            rbMenu_dienstag.Enabled = True
             If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
-                rbMenu_Di.Checked = True
+                rbMenu_dienstag.Checked = True
             End If
         Else
-            rbMenu_Di.Enabled = False
-            rbMenuAlt_Di.Enabled = False
-            txtAltDi.Text = ""
+            rbMenu_dienstag.Enabled = False
+            rbMenuAlt_dienstag.Enabled = False
+            txtAlt_dienstag.Text = ""
         End If
 
-        If cbMittwoch.Checked Then
-            rbMenuAlt_Mi.Enabled = True
-            rbMenu_Mi.Enabled = True
+        If cb_mittwoch.Checked Then
+            rbMenuAlt_mittwoch.Enabled = True
+            rbMenu_mittwoch.Enabled = True
             If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
-                rbMenu_Mi.Checked = True
+                rbMenu_mittwoch.Checked = True
             End If
         Else
-            rbMenu_Mi.Enabled = False
-            rbMenuAlt_Mi.Enabled = False
-            txtAltMi.Text = ""
+            rbMenu_mittwoch.Enabled = False
+            rbMenuAlt_mittwoch.Enabled = False
+            txtAlt_mittwoch.Text = ""
         End If
 
 
-        If cbDonnerstag.Checked Then
-            rbMenuAlt_Do.Enabled = True
-            rbMenu_Do.Enabled = True
+        If cbdonnerstag.Checked Then
+            rbMenuAlt_donnerstag.Enabled = True
+            rbMenu_donnerstag.Enabled = True
             If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
-                rbMenu_Do.Checked = True
+                rbMenu_donnerstag.Checked = True
             End If
         Else
-            rbMenu_Do.Enabled = False
-            rbMenuAlt_Do.Enabled = False
-            txtAltDo.Text = ""
+            rbMenu_donnerstag.Enabled = False
+            rbMenuAlt_donnerstag.Enabled = False
+            txtAlt_donnerstag.Text = ""
         End If
 
-        If cbFreitag.Checked Then
-            rbMenuAlt_Fr.Enabled = True
-            rbMenu_Fr.Enabled = True
+        If cb_freitag.Checked Then
+            rbMenuAlt_freitag.Enabled = True
+            rbMenu__freitag.Enabled = True
             If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
-                rbMenu_Fr.Checked = True
+                rbMenu__freitag.Checked = True
             End If
         Else
-            rbMenu_Fr.Enabled = False
-            rbMenuAlt_Fr.Enabled = False
-            txtAltFr.Text = ""
+            rbMenu__freitag.Enabled = False
+            rbMenuAlt_freitag.Enabled = False
+            txtAlt_freitag.Text = ""
         End If
         countChecks()
     End Sub
@@ -257,7 +297,7 @@ Public Class frmEssensbestellungen
         Dim SQLWhere As String = ""
         If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
 
-        Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis]  FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
+        Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung]  FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
 
         dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
         dgvBestellungen.LOAD()
@@ -270,7 +310,8 @@ Public Class frmEssensbestellungen
             .Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("eb_kw").HeaderText = "KW"
             .Columns("eb_mitid").Visible = False
-
+            .Columns("eb_mitname").Visible = False
+            .Columns("eb_datum").Visible = False
             .Columns("eb_abteilung").Visible = False
             .Columns("eb_montag").Width = 80
             .Columns("eb_montag").HeaderText = "Montag"
@@ -288,6 +329,8 @@ Public Class frmEssensbestellungen
             .Columns("eb_preis").HeaderText = "Preis"
             .Columns("eb_preis").Width = 40
             .Columns("eb_preis").DefaultCellStyle.Format = "N"
+            .Columns("eb_anmerkung").HeaderText = "Anm"
+            .Columns("eb_anmerkung").Width = 80
         End With
 
     End Sub
@@ -345,52 +388,52 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
             'pbMontag.Visible = True
-            rbMenu_Mo.Text = menu
-            txtMenuMo.Text = dt.Rows(0).Item("MenuEssenMo").ToString
+            rbMenu_montag.Text = menu
+            txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
 
-            ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
+            ttMontag.SetToolTip(pb_montag, dt.Rows(0).Item("MenuEssenMo").ToString)
         Else
-            pbMontag.Visible = False
-            txtMenuMo.Text = ""
+            pb_montag.Visible = False
+            txtMenu_montag.Text = ""
         End If
 
 
         If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
             'pbDienstag.Visible = True
-            rbMenu_Di.Text = menu
-            txtMenuDi.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
-            ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
+            rbMenu_dienstag.Text = menu
+            txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
+            ttDienstag.SetToolTip(pb_dienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
 
         Else
-            pbDienstag.Visible = False
+            pb_dienstag.Visible = False
         End If
 
 
         If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
             'pbMittwoch.Visible = True
-            rbMenu_Mi.Text = menu
-            txtMenuMi.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
-            ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
+            rbMenu_mittwoch.Text = menu
+            txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
+            ttMittwoch.SetToolTip(pb_mittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
         Else
-            pbMittwoch.Visible = False
+            pb_mittwoch.Visible = False
         End If
 
         If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
             'pbDonnerstag.Visible = True
-            rbMenu_Do.Text = menu
-            txtMenuDo.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
-            ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
+            rbMenu_donnerstag.Text = menu
+            txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
+            ttDonnerstag.SetToolTip(pb_donnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
         Else
-            pbDonnerstag.Visible = False
+            pb_donnerstag.Visible = False
         End If
 
         If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
             'pbFreitag.Visible = True
-            rbMenu_Fr.Text = menu
-            txtMenuFr.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
-            ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
+            rbMenu__freitag.Text = menu
+            txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
+            ttFreitag.SetToolTip(pb_freitag, dt.Rows(0).Item("MenuEssenFr").ToString)
         Else
-            pbFreitag.Visible = False
+            pb_freitag.Visible = False
         End If
 
     End Sub
@@ -399,74 +442,75 @@ Public Class frmEssensbestellungen
 
         If dgvBestellungen.Rows.Count = 0 Then Exit Sub
 
-        Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value)
+        Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value, dgvBestellungen.CurrentRow.Cells("eb_mitname").Value, dgvBestellungen.CurrentRow.Cells("eb_anmerkung").Value)
 
         cbxMenu.changeItem(currentEssen.eb_kw)
 
         If currentEssen.eb_montag IsNot Nothing Then
-            cbMontag.Checked = True
+            cb_montag.Checked = True
             If currentEssen.eb_montag.ToString = "Menu" Then
-                rbMenu_Mo.Checked = True
+                rbMenu_montag.Checked = True
             Else
-                rbMenuAlt_Mo.Checked = True
-                If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
+                rbMenuAlt_montag.Checked = True
+                If currentEssen.eb_montag IsNot Nothing Then txtAlt_montag.Text = currentEssen.eb_montag.ToString
             End If
         Else
-            cbMontag.Checked = False
+            cb_montag.Checked = False
         End If
 
         If currentEssen.eb_dienstag IsNot Nothing Then
-            cbDienstag.Checked = True
+            cb_dienstag.Checked = True
             If currentEssen.eb_dienstag.ToString = "Menu" Then
-                rbMenu_Di.Checked = True
+                rbMenu_dienstag.Checked = True
             Else
-                rbMenuAlt_Di.Checked = True
-                If currentEssen.eb_dienstag IsNot Nothing Then txtAltDi.Text = currentEssen.eb_dienstag.ToString
+                rbMenuAlt_dienstag.Checked = True
+                If currentEssen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = currentEssen.eb_dienstag.ToString
             End If
         Else
-            cbDienstag.Checked = False
+            cb_dienstag.Checked = False
         End If
 
 
         If currentEssen.eb_mittwoch IsNot Nothing Then
-            cbMittwoch.Checked = True
+            cb_mittwoch.Checked = True
             If currentEssen.eb_mittwoch.ToString = "Menu" Then
-                rbMenu_Mi.Checked = True
+                rbMenu_mittwoch.Checked = True
             Else
-                rbMenuAlt_Mi.Checked = True
-                If currentEssen.eb_mittwoch IsNot Nothing Then txtAltMi.Text = currentEssen.eb_mittwoch.ToString
+                rbMenuAlt_mittwoch.Checked = True
+                If currentEssen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString
             End If
         Else
-            cbMittwoch.Checked = False
+            cb_mittwoch.Checked = False
         End If
 
         If currentEssen.eb_donnerstag IsNot Nothing Then
-            cbDonnerstag.Checked = True
+            cbdonnerstag.Checked = True
             If currentEssen.eb_donnerstag.ToString = "Menu" Then
-                rbMenu_Do.Checked = True
+                rbMenu_donnerstag.Checked = True
             Else
-                rbMenuAlt_Do.Checked = True
-                If currentEssen.eb_donnerstag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_donnerstag.ToString
+                rbMenuAlt_donnerstag.Checked = True
+                If currentEssen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString
             End If
         Else
-            cbMittwoch.Checked = False
+            cb_mittwoch.Checked = False
         End If
 
 
         If currentEssen.eb_freitag IsNot Nothing Then
-            cbFreitag.Checked = True
+            cb_freitag.Checked = True
             If currentEssen.eb_freitag.ToString = "Menu" Then
-                rbMenu_Fr.Checked = True
+                rbMenu__freitag.Checked = True
             Else
-                rbMenuAlt_Fr.Checked = True
-                If currentEssen.eb_freitag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_freitag.ToString
+                rbMenuAlt_freitag.Checked = True
+                If currentEssen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_freitag.ToString
             End If
         Else
-            cbFreitag.Checked = False
+            cb_freitag.Checked = False
         End If
 
 
         cbxGebauede.Text = currentEssen.eb_gebaeude
+        txtAnmerkung.Text = currentEssen.eb_anmerkung
 
 
     End Sub
@@ -501,7 +545,7 @@ Public Class frmEssensbestellungen
         Try
             Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
 
-            Dim tageBisBestellende = 50 '-5
+            Dim tageBisBestellende = 10000 '-5
 
             If tageBisBestellende > 0 Then
                 lblTest.Text = "Zu Testzwecken darf aktuell " & tageBisBestellende & " Tage im Nachhinein bestellt werden!"
@@ -528,7 +572,7 @@ Public Class frmEssensbestellungen
     End Function
 
 
-    Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_Mo.Click, rbMenu_Di.Click, rbMenu_Mi.Click, rbMenu_Do.Click, rbMenu_Fr.Click
+    Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click
         countChecks()
     End Sub
 
@@ -557,4 +601,16 @@ Public Class frmEssensbestellungen
 
     End Function
 
+    Private Sub setWarning(warning As Boolean)
+
+        If warning Then
+            lblWarning.Text = "Bezeichnung für A la carte fehlt"
+        Else
+
+            lblWarning.Text = ""
+
+        End If
+
+    End Sub
+
 End Class

Aviso/frmEssensbestellungenAdministration.Designer.vb

@@ -0,0 +1,748 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmEssensbestellungenAdministration
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    '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()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cbKW = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cbxNichtAbgeschickt = New System.Windows.Forms.CheckBox()
+        Me.cbxAbgerechnet = New System.Windows.Forms.CheckBox()
+        Me.cbxStornos = New System.Windows.Forms.CheckBox()
+        Me.FlatButton7 = New System.Windows.Forms.Button()
+        Me.btnSuche = New System.Windows.Forms.Button()
+        Me.cboGebaeude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnJahr = New System.Windows.Forms.Button()
+        Me.btnBisJahr = New System.Windows.Forms.Button()
+        Me.btnVonJahr = New System.Windows.Forms.Button()
+        Me.txtBestellDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.txtBestellDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.txtMitarbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.btnMonat = New System.Windows.Forms.Button()
+        Me.btnBisMonat = New System.Windows.Forms.Button()
+        Me.btnVonMonat = New System.Windows.Forms.Button()
+        Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.StornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AbgerechnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AnHigway118SchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.txtAnzahlDS = New System.Windows.Forms.TextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.cbxMailKW = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cbxMailGebäude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.pnlTop.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnlTop
+        '
+        Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlTop.Controls.Add(Me.Label4)
+        Me.pnlTop.Controls.Add(Me.Label22)
+        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+        Me.pnlTop.Name = "pnlTop"
+        Me.pnlTop.Size = New System.Drawing.Size(1242, 48)
+        Me.pnlTop.TabIndex = 1
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(10, 13)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(386, 26)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "Administration-Essensbestellungen"
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.ForeColor = System.Drawing.Color.White
+        Me.Label22.Location = New System.Drawing.Point(505, 22)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(221, 13)
+        Me.Label22.TabIndex = 1
+        Me.Label22.Text = "(Erweiterte suche: * vor oder nach dem Text )"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.cbKW)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.cbxNichtAbgeschickt)
+        Me.Panel1.Controls.Add(Me.cbxAbgerechnet)
+        Me.Panel1.Controls.Add(Me.cbxStornos)
+        Me.Panel1.Controls.Add(Me.FlatButton7)
+        Me.Panel1.Controls.Add(Me.btnSuche)
+        Me.Panel1.Controls.Add(Me.cboGebaeude)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.btnJahr)
+        Me.Panel1.Controls.Add(Me.btnBisJahr)
+        Me.Panel1.Controls.Add(Me.btnVonJahr)
+        Me.Panel1.Controls.Add(Me.txtBestellDat)
+        Me.Panel1.Controls.Add(Me.Label23)
+        Me.Panel1.Controls.Add(Me.txtBestellDatBis)
+        Me.Panel1.Controls.Add(Me.DateTimePicker2)
+        Me.Panel1.Controls.Add(Me.Label13)
+        Me.Panel1.Controls.Add(Me.DateTimePicker1)
+        Me.Panel1.Controls.Add(Me.txtMitarbeiter)
+        Me.Panel1.Controls.Add(Me.Label18)
+        Me.Panel1.Controls.Add(Me.btnMonat)
+        Me.Panel1.Controls.Add(Me.btnBisMonat)
+        Me.Panel1.Controls.Add(Me.btnVonMonat)
+        Me.Panel1.Controls.Add(Me.cboAbteilung)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Location = New System.Drawing.Point(0, 49)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1242, 85)
+        Me.Panel1.TabIndex = 2
+        '
+        'cbKW
+        '
+        Me.cbKW._allowedValuesFreiText = Nothing
+        Me.cbKW._allowFreiText = False
+        Me.cbKW._value = ""
+        Me.cbKW.DropDownWidth = 100
+        Me.cbKW.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbKW.FormattingEnabled = True
+        Me.cbKW.Location = New System.Drawing.Point(311, 29)
+        Me.cbKW.Name = "cbKW"
+        Me.cbKW.Size = New System.Drawing.Size(80, 22)
+        Me.cbKW.TabIndex = 53
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(308, 12)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(94, 13)
+        Me.Label6.TabIndex = 52
+        Me.Label6.Text = "Kalenderwoche"
+        '
+        'cbxNichtAbgeschickt
+        '
+        Me.cbxNichtAbgeschickt.AutoSize = True
+        Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(668, 58)
+        Me.cbxNichtAbgeschickt.Name = "cbxNichtAbgeschickt"
+        Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17)
+        Me.cbxNichtAbgeschickt.TabIndex = 51
+        Me.cbxNichtAbgeschickt.Text = "noch nicht abgeschickt"
+        Me.cbxNichtAbgeschickt.UseVisualStyleBackColor = True
+        '
+        'cbxAbgerechnet
+        '
+        Me.cbxAbgerechnet.AutoSize = True
+        Me.cbxAbgerechnet.Location = New System.Drawing.Point(668, 19)
+        Me.cbxAbgerechnet.Name = "cbxAbgerechnet"
+        Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17)
+        Me.cbxAbgerechnet.TabIndex = 50
+        Me.cbxAbgerechnet.Text = "abgerechnet"
+        Me.cbxAbgerechnet.UseVisualStyleBackColor = True
+        '
+        'cbxStornos
+        '
+        Me.cbxStornos.AutoSize = True
+        Me.cbxStornos.Location = New System.Drawing.Point(668, 39)
+        Me.cbxStornos.Name = "cbxStornos"
+        Me.cbxStornos.Size = New System.Drawing.Size(63, 17)
+        Me.cbxStornos.TabIndex = 49
+        Me.cbxStornos.Text = "storniert"
+        Me.cbxStornos.UseVisualStyleBackColor = True
+        '
+        'FlatButton7
+        '
+        Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FlatButton7.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton7.Image = Global.AVISO.My.Resources.Resources.refresh
+        Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.FlatButton7.Location = New System.Drawing.Point(1007, 25)
+        Me.FlatButton7.Name = "FlatButton7"
+        Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
+        Me.FlatButton7.TabIndex = 48
+        Me.FlatButton7.UseVisualStyleBackColor = True
+        '
+        'btnSuche
+        '
+        Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSuche.Location = New System.Drawing.Point(1068, 13)
+        Me.btnSuche.Name = "btnSuche"
+        Me.btnSuche.Size = New System.Drawing.Size(162, 52)
+        Me.btnSuche.TabIndex = 47
+        Me.btnSuche.Text = "Suche starten"
+        Me.btnSuche.UseVisualStyleBackColor = True
+        '
+        'cboGebaeude
+        '
+        Me.cboGebaeude._allowedValuesFreiText = Nothing
+        Me.cboGebaeude._allowFreiText = True
+        Me.cboGebaeude._value = ""
+        Me.cboGebaeude.DropDownWidth = 250
+        Me.cboGebaeude.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboGebaeude.FormattingEnabled = True
+        Me.cboGebaeude.Location = New System.Drawing.Point(814, 25)
+        Me.cboGebaeude.Name = "cboGebaeude"
+        Me.cboGebaeude.Size = New System.Drawing.Size(80, 22)
+        Me.cboGebaeude.TabIndex = 46
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(811, 12)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(58, 13)
+        Me.Label3.TabIndex = 45
+        Me.Label3.Text = "Gebäude"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(11, 13)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 13)
+        Me.Label2.TabIndex = 42
+        Me.Label2.Text = "Zeitraum"
+        '
+        'btnJahr
+        '
+        Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnJahr.Location = New System.Drawing.Point(176, 49)
+        Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnJahr.Name = "btnJahr"
+        Me.btnJahr.Size = New System.Drawing.Size(87, 23)
+        Me.btnJahr.TabIndex = 40
+        Me.btnJahr.Text = "2023"
+        Me.btnJahr.UseVisualStyleBackColor = True
+        '
+        'btnBisJahr
+        '
+        Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.Location = New System.Drawing.Point(262, 49)
+        Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisJahr.Name = "btnBisJahr"
+        Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisJahr.TabIndex = 41
+        Me.btnBisJahr.Text = ">>"
+        Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisJahr.UseVisualStyleBackColor = True
+        '
+        'btnVonJahr
+        '
+        Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
+        Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.Location = New System.Drawing.Point(143, 49)
+        Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonJahr.Name = "btnVonJahr"
+        Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonJahr.TabIndex = 39
+        Me.btnVonJahr.Text = "<<"
+        Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonJahr.UseVisualStyleBackColor = True
+        '
+        'txtBestellDat
+        '
+        Me.txtBestellDat._DateTimeOnly = False
+        Me.txtBestellDat._numbersOnly = False
+        Me.txtBestellDat._numbersOnlyKommastellen = ""
+        Me.txtBestellDat._numbersOnlyTrennzeichen = True
+        Me.txtBestellDat._Prozent = False
+        Me.txtBestellDat._ShortDateNew = False
+        Me.txtBestellDat._ShortDateOnly = True
+        Me.txtBestellDat._TimeOnly = False
+        Me.txtBestellDat._TimeOnly_Seconds = False
+        Me.txtBestellDat._value = ""
+        Me.txtBestellDat._Waehrung = False
+        Me.txtBestellDat._WaehrungZeichen = True
+        Me.txtBestellDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBestellDat.ForeColor = System.Drawing.Color.Black
+        Me.txtBestellDat.Location = New System.Drawing.Point(40, 28)
+        Me.txtBestellDat.MaxLength = 10
+        Me.txtBestellDat.MaxLineLength = -1
+        Me.txtBestellDat.MaxLines_Warning = ""
+        Me.txtBestellDat.MaxLines_Warning_Label = Nothing
+        Me.txtBestellDat.Name = "txtBestellDat"
+        Me.txtBestellDat.Size = New System.Drawing.Size(63, 20)
+        Me.txtBestellDat.TabIndex = 33
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.Location = New System.Drawing.Point(11, 56)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(23, 13)
+        Me.Label23.TabIndex = 37
+        Me.Label23.Text = "bis:"
+        '
+        'txtBestellDatBis
+        '
+        Me.txtBestellDatBis._DateTimeOnly = False
+        Me.txtBestellDatBis._numbersOnly = False
+        Me.txtBestellDatBis._numbersOnlyKommastellen = ""
+        Me.txtBestellDatBis._numbersOnlyTrennzeichen = True
+        Me.txtBestellDatBis._Prozent = False
+        Me.txtBestellDatBis._ShortDateNew = False
+        Me.txtBestellDatBis._ShortDateOnly = True
+        Me.txtBestellDatBis._TimeOnly = False
+        Me.txtBestellDatBis._TimeOnly_Seconds = False
+        Me.txtBestellDatBis._value = ""
+        Me.txtBestellDatBis._Waehrung = False
+        Me.txtBestellDatBis._WaehrungZeichen = True
+        Me.txtBestellDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBestellDatBis.ForeColor = System.Drawing.Color.Black
+        Me.txtBestellDatBis.Location = New System.Drawing.Point(40, 53)
+        Me.txtBestellDatBis.MaxLength = 10
+        Me.txtBestellDatBis.MaxLineLength = -1
+        Me.txtBestellDatBis.MaxLines_Warning = ""
+        Me.txtBestellDatBis.MaxLines_Warning_Label = Nothing
+        Me.txtBestellDatBis.Name = "txtBestellDatBis"
+        Me.txtBestellDatBis.Size = New System.Drawing.Size(63, 20)
+        Me.txtBestellDatBis.TabIndex = 35
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.CustomFormat = "''"
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker2.Location = New System.Drawing.Point(40, 53)
+        Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
+        Me.DateTimePicker2.TabIndex = 36
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(11, 32)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(28, 13)
+        Me.Label13.TabIndex = 38
+        Me.Label13.Text = "von:"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "''"
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(40, 28)
+        Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
+        Me.DateTimePicker1.TabIndex = 34
+        '
+        'txtMitarbeiter
+        '
+        Me.txtMitarbeiter._DateTimeOnly = False
+        Me.txtMitarbeiter._numbersOnly = False
+        Me.txtMitarbeiter._numbersOnlyKommastellen = ""
+        Me.txtMitarbeiter._numbersOnlyTrennzeichen = True
+        Me.txtMitarbeiter._Prozent = False
+        Me.txtMitarbeiter._ShortDateNew = False
+        Me.txtMitarbeiter._ShortDateOnly = False
+        Me.txtMitarbeiter._TimeOnly = False
+        Me.txtMitarbeiter._TimeOnly_Seconds = False
+        Me.txtMitarbeiter._value = Nothing
+        Me.txtMitarbeiter._Waehrung = False
+        Me.txtMitarbeiter._WaehrungZeichen = False
+        Me.txtMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMitarbeiter.ForeColor = System.Drawing.Color.Black
+        Me.txtMitarbeiter.Location = New System.Drawing.Point(432, 27)
+        Me.txtMitarbeiter.MaxLineLength = -1
+        Me.txtMitarbeiter.MaxLines_Warning = ""
+        Me.txtMitarbeiter.MaxLines_Warning_Label = Nothing
+        Me.txtMitarbeiter.Name = "txtMitarbeiter"
+        Me.txtMitarbeiter.Size = New System.Drawing.Size(218, 20)
+        Me.txtMitarbeiter.TabIndex = 32
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label18.Location = New System.Drawing.Point(429, 12)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(67, 13)
+        Me.Label18.TabIndex = 31
+        Me.Label18.Text = "Mitarbeiter"
+        '
+        'btnMonat
+        '
+        Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMonat.Location = New System.Drawing.Point(176, 29)
+        Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnMonat.Name = "btnMonat"
+        Me.btnMonat.Size = New System.Drawing.Size(87, 23)
+        Me.btnMonat.TabIndex = 24
+        Me.btnMonat.Text = "September"
+        Me.btnMonat.UseVisualStyleBackColor = True
+        '
+        'btnBisMonat
+        '
+        Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.Location = New System.Drawing.Point(262, 29)
+        Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnBisMonat.Name = "btnBisMonat"
+        Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnBisMonat.TabIndex = 25
+        Me.btnBisMonat.Text = ">>"
+        Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnBisMonat.UseVisualStyleBackColor = True
+        '
+        'btnVonMonat
+        '
+        Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
+        Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.Location = New System.Drawing.Point(143, 29)
+        Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnVonMonat.Name = "btnVonMonat"
+        Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
+        Me.btnVonMonat.TabIndex = 23
+        Me.btnVonMonat.Text = "<<"
+        Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVonMonat.UseVisualStyleBackColor = True
+        '
+        'cboAbteilung
+        '
+        Me.cboAbteilung._allowedValuesFreiText = Nothing
+        Me.cboAbteilung._allowFreiText = False
+        Me.cboAbteilung._value = ""
+        Me.cboAbteilung.DropDownWidth = 250
+        Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboAbteilung.FormattingEnabled = True
+        Me.cboAbteilung.Location = New System.Drawing.Point(916, 25)
+        Me.cboAbteilung.Name = "cboAbteilung"
+        Me.cboAbteilung.Size = New System.Drawing.Size(80, 22)
+        Me.cboAbteilung.TabIndex = 22
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(913, 12)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(60, 13)
+        Me.Label1.TabIndex = 21
+        Me.Label1.Text = "Abteilung"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StornierenToolStripMenuItem, Me.AbgerechnetToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.AnHigway118SchickenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(283, 92)
+        '
+        'StornierenToolStripMenuItem
+        '
+        Me.StornierenToolStripMenuItem.Name = "StornierenToolStripMenuItem"
+        Me.StornierenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
+        Me.StornierenToolStripMenuItem.Text = "stornieren"
+        '
+        'AbgerechnetToolStripMenuItem
+        '
+        Me.AbgerechnetToolStripMenuItem.Name = "AbgerechnetToolStripMenuItem"
+        Me.AbgerechnetToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
+        Me.AbgerechnetToolStripMenuItem.Text = "abgerechnet"
+        '
+        'BearbeitenToolStripMenuItem
+        '
+        Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
+        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
+        Me.BearbeitenToolStripMenuItem.Text = "bearbeiten"
+        '
+        'AnHigway118SchickenToolStripMenuItem
+        '
+        Me.AnHigway118SchickenToolStripMenuItem.Name = "AnHigway118SchickenToolStripMenuItem"
+        Me.AnHigway118SchickenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
+        Me.AnHigway118SchickenToolStripMenuItem.Text = "markierte Bestellungen per Mail senden"
+        '
+        'txtAnzahlDS
+        '
+        Me.txtAnzahlDS.Location = New System.Drawing.Point(1170, 741)
+        Me.txtAnzahlDS.Name = "txtAnzahlDS"
+        Me.txtAnzahlDS.ReadOnly = True
+        Me.txtAnzahlDS.Size = New System.Drawing.Size(60, 20)
+        Me.txtAnzahlDS.TabIndex = 45
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label27.Location = New System.Drawing.Point(860, 744)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(45, 13)
+        Me.Label27.TabIndex = 46
+        Me.Label27.Text = "Summe:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(1065, 745)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(99, 13)
+        Me.Label5.TabIndex = 44
+        Me.Label5.Text = "Anzahl Datensätze:"
+        '
+        'txtSumme
+        '
+        Me.txtSumme._DateTimeOnly = False
+        Me.txtSumme._numbersOnly = False
+        Me.txtSumme._numbersOnlyKommastellen = ""
+        Me.txtSumme._numbersOnlyTrennzeichen = False
+        Me.txtSumme._Prozent = False
+        Me.txtSumme._ShortDateNew = False
+        Me.txtSumme._ShortDateOnly = False
+        Me.txtSumme._TimeOnly = False
+        Me.txtSumme._TimeOnly_Seconds = False
+        Me.txtSumme._value = ""
+        Me.txtSumme._Waehrung = True
+        Me.txtSumme._WaehrungZeichen = True
+        Me.txtSumme.ForeColor = System.Drawing.Color.Black
+        Me.txtSumme.Location = New System.Drawing.Point(931, 741)
+        Me.txtSumme.MaxLineLength = -1
+        Me.txtSumme.MaxLines_Warning = ""
+        Me.txtSumme.MaxLines_Warning_Label = Nothing
+        Me.txtSumme.Name = "txtSumme"
+        Me.txtSumme.ReadOnly = True
+        Me.txtSumme.Size = New System.Drawing.Size(100, 20)
+        Me.txtSumme.TabIndex = 47
+        '
+        'dgvBestellungen
+        '
+        Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvBestellungen.AllowUserToAddRows = False
+        Me.dgvBestellungen.AllowUserToDeleteRows = False
+        Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvBestellungen.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.dgvBestellungen.Location = New System.Drawing.Point(0, 140)
+        Me.dgvBestellungen.Name = "dgvBestellungen"
+        Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 581)
+        Me.dgvBestellungen.TabIndex = 43
+        '
+        'cbxMailKW
+        '
+        Me.cbxMailKW._allowedValuesFreiText = Nothing
+        Me.cbxMailKW._allowFreiText = False
+        Me.cbxMailKW._value = ""
+        Me.cbxMailKW.DropDownWidth = 100
+        Me.cbxMailKW.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxMailKW.FormattingEnabled = True
+        Me.cbxMailKW.Location = New System.Drawing.Point(14, 741)
+        Me.cbxMailKW.Name = "cbxMailKW"
+        Me.cbxMailKW.Size = New System.Drawing.Size(91, 22)
+        Me.cbxMailKW.TabIndex = 57
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(11, 724)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(94, 13)
+        Me.Label7.TabIndex = 56
+        Me.Label7.Text = "Kalenderwoche"
+        '
+        'cbxMailGebäude
+        '
+        Me.cbxMailGebäude._allowedValuesFreiText = Nothing
+        Me.cbxMailGebäude._allowFreiText = True
+        Me.cbxMailGebäude._value = ""
+        Me.cbxMailGebäude.DropDownWidth = 250
+        Me.cbxMailGebäude.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxMailGebäude.FormattingEnabled = True
+        Me.cbxMailGebäude.Location = New System.Drawing.Point(122, 741)
+        Me.cbxMailGebäude.Name = "cbxMailGebäude"
+        Me.cbxMailGebäude.Size = New System.Drawing.Size(80, 22)
+        Me.cbxMailGebäude.TabIndex = 55
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(119, 724)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(58, 13)
+        Me.Label8.TabIndex = 54
+        Me.Label8.Text = "Gebäude"
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(228, 734)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(113, 29)
+        Me.Button1.TabIndex = 54
+        Me.Button1.Text = "Email"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(496, 744)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarning.TabIndex = 58
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(361, 734)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(113, 29)
+        Me.Button2.TabIndex = 59
+        Me.Button2.Text = "Excel"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'frmEssensbestellungenAdministration
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1242, 767)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.lblWarning)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.cbxMailKW)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.cbxMailGebäude)
+        Me.Controls.Add(Me.txtSumme)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.txtAnzahlDS)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.dgvBestellungen)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.pnlTop)
+        Me.Name = "frmEssensbestellungenAdministration"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Essensbestellungen Administration"
+        Me.pnlTop.ResumeLayout(False)
+        Me.pnlTop.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents pnlTop As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label22 As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents StornierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AbgerechnetToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents cboAbteilung As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents btnMonat As Button
+    Friend WithEvents btnBisMonat As Button
+    Friend WithEvents btnVonMonat As Button
+    Friend WithEvents txtMitarbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents txtBestellDat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents txtBestellDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents Label13 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents btnJahr As Button
+    Friend WithEvents btnBisJahr As Button
+    Friend WithEvents btnVonJahr As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents cboGebaeude As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents btnSuche As Button
+    Friend WithEvents FlatButton7 As Button
+    Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAnzahlDS As TextBox
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents cbxAbgerechnet As CheckBox
+    Friend WithEvents cbxStornos As CheckBox
+    Friend WithEvents AnHigway118SchickenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents cbxNichtAbgeschickt As CheckBox
+    Friend WithEvents cbKW As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents cbxMailKW As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents cbxMailGebäude As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents Button2 As Button
+End Class

Aviso/frmEssensbestellungenAdministration.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Aviso/frmEssensbestellungenAdministration.vb

@@ -0,0 +1,668 @@
+
+Imports System.Timers
+Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmEssensbestellungenAdministration
+
+    Dim dt As DataTable
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Private Sub frmEssensbestellungenAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        lblWarning.Text = ""
+        txtBestellDat.Text = Date.Parse("01.01.2001")
+        txtBestellDatBis.Text = Now.ToShortDateString
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+
+        txtMitarbeiter.Text = ""
+        cboGebaeude.changeItem("")
+        cboAbteilung.changeItem("")
+        cbxStornos.Checked = False
+        cbxAbgerechnet.Checked = False
+
+        cboGebaeude.fillWithSQL("SELECT DISTINCT(eb_gebaeude) FROM [tblEssensbestellungen]", False, "AVISO", True)
+        cboGebaeude.changeItem("")
+
+        cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
+        cboAbteilung.changeItem("")
+
+        cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]", False, "AVISO", True)
+
+
+        cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]", False, "AVISO", True)
+        cbxMailKW.changeItem("")
+
+        cbxMailGebäude.changeItem("")
+        cbxMailGebäude.fillWithSQL("SELECT DISTINCT(eb_gebaeude) FROM [tblEssensbestellungen]", False, "AVISO", True)
+
+        loadBestellungen()
+
+    End Sub
+
+
+    Private Sub loadBestellungen()
+
+
+        Dim SQLString As String = "SELECT  [eb_mitid] , [eb_mitname] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],
+                                    [eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am]  
+                                    FROM 
+                                    [tblEssensbestellungen] WHERE 1=1"
+
+        dgvBestellungen.SET_SQL(SQLString & bestellungenWhereClause() & " Order by eb_datum, eb_mitid", "AVISO", ,)
+        dgvBestellungen.LOAD()
+
+
+        If dgvBestellungen.Columns.Count < 1 Then Exit Sub
+
+        With dgvBestellungen
+            If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+            .RowHeadersVisible = False
+            .ReadOnly = True
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+
+            .RowHeadersWidth = 10
+            .Columns("eb_kw").HeaderText = "KW"
+            .Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("eb_mitid").HeaderText = "MID"
+            .Columns("eb_mitid").Width = 40
+            .Columns("eb_mitname").HeaderText = "Mitarbeiter"
+            .Columns("eb_abteilung").Visible = False
+            .Columns("eb_datum").Width = 80
+            .Columns("eb_datum").HeaderText = "Datum"
+            .Columns("eb_montag").Width = 80
+            .Columns("eb_montag").HeaderText = "Montag"
+            .Columns("eb_montag").Width = 80
+            .Columns("eb_dienstag").HeaderText = "Dienstag"
+            .Columns("eb_dienstag").Width = 80
+            .Columns("eb_mittwoch").HeaderText = "Mittwoch"
+            .Columns("eb_mittwoch").Width = 80
+            .Columns("eb_donnerstag").HeaderText = "Donnerstag"
+            .Columns("eb_donnerstag").Width = 80
+            .Columns("eb_freitag").HeaderText = "Freitag"
+            .Columns("eb_freitag").Width = 80
+            .Columns("eb_gebaeude").HeaderText = "Gebäude"
+            .Columns("eb_gebaeude").Width = 80
+            .Columns("eb_preis").HeaderText = "Preis"
+            .Columns("eb_preis").Width = 40
+            .Columns("eb_preis").DefaultCellStyle.Format = "N"
+            .Columns("eb_storniert_am").HeaderText = "Storniert am"
+            .Columns("eb_abgerechnet_am").HeaderText = "Abgerechnet am"
+            .Columns("eb_gesendet_am").HeaderText = "Gesendet am"
+            .Columns("eb_storniert").Visible = False
+            .Columns("eb_abgerechnet").Visible = False
+            .Columns("eb_gesendet").Visible = False
+            .Columns("eb_anmerkung").HeaderText = "Anmerkung"
+        End With
+
+
+        For Each row As DataGridViewRow In dgvBestellungen.Rows
+            If Not IsDBNull(row.Cells("eb_storniert").Value) Then
+                If row.Cells("eb_storniert").Value Then
+                    row.DefaultCellStyle.BackColor = Color.IndianRed
+                End If
+            End If
+            If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
+                If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
+            End If
+
+        Next
+
+        txtAnzahlDS.Text = dgvBestellungen.Rows.Count
+        calcSumme()
+
+    End Sub
+
+    Private Function bestellungenWhereClause() As String
+
+        Dim SQLwhere = ""
+
+        If cboGebaeude._value IsNot "" Then SQLwhere &= " AND [eb_gebaeude] = '" & cboGebaeude._value.ToString & "'"
+        If cboAbteilung._value IsNot "" Then SQLwhere &= " AND [eb_abteilung] = '" & cboAbteilung._value.ToString & "'"
+        If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'"
+        If cbxStornos.Checked Then
+            SQLwhere &= " AND [eb_storniert] = '1'"
+        Else
+            SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'"
+        End If
+
+        If cbxAbgerechnet.Checked Then
+            SQLwhere &= " AND [eb_abgerechnet] = '1'"
+        Else
+            SQLwhere &= " AND ISNULL([eb_abgerechnet],0) = '0'"
+        End If
+
+        If cbxNichtAbgeschickt.Checked Then
+            SQLwhere &= " AND ISNULL([eb_gesendet],0) = '0'"
+        Else
+            'SQLwhere &= " AND [eb_gesendet] = '1'"
+        End If
+
+        If txtBestellDat._value <> Nothing AndAlso txtBestellDatBis._value <> Nothing Then
+            SQLwhere &= " AND [eb_datum] BETWEEN '" & txtBestellDat._value & "' AND '" & txtBestellDatBis._value & "'"
+        End If
+
+        Return SQLwhere
+
+    End Function
+
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+        txtBestellDat._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
+        txtBestellDatBis._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
+        initBtns("Monat")
+    End Sub
+
+    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year)
+
+
+    Dim JAHR As Date = CDate("01.01." & Now.Year)
+
+    Sub initBtns(MonatJahr)
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+        Select Case MonatJahr
+            Case "Monat"
+                DateTimePicker1.Value = MONAT
+                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
+            Case "Jahr"
+                DateTimePicker1.Value = JAHR
+                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
+            Case ""
+                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
+                DateTimePicker2.Value = Now
+        End Select
+
+    End Sub
+
+    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
+        MONAT = MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
+        MONAT = MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
+        JAHR = JAHR.AddYears(1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
+        JAHR = JAHR.AddYears(-1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub txtMitarbeiter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMitarbeiter.KeyDown
+        If e.KeyCode = Keys.Enter Then
+
+            Me.loadBestellungen()
+            e.Handled = True
+
+        End If
+    End Sub
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged
+        loadBestellungen()
+    End Sub
+
+    Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
+
+        txtMitarbeiter.Text = ""
+        cboGebaeude.changeItem("")
+        cboAbteilung.changeItem("")
+        cbxStornos.Checked = False
+        cbxAbgerechnet.Checked = False
+        txtBestellDat.Text = Date.Parse("01.01.2001")
+        txtBestellDatBis.Text = Now.ToShortDateString
+        Me.btnSuche.PerformClick()
+
+    End Sub
+
+    Private Sub calcSumme()
+
+        Dim countSumme As Double = 0
+
+
+        For i As Integer = 0 To dgvBestellungen.Rows.Count - 1
+            countSumme += CDbl(dgvBestellungen.Rows(i).Cells("eb_preis").Value)
+
+        Next
+
+        txtSumme._value = countSumme.ToString
+
+    End Sub
+
+    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
+
+        Dim bestellung As New cEssensbestellung(dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value, dgvBestellungen.SelectedRows(0).Cells("eb_mitid").Value)
+
+        Using UserControl1 As UsrCntlessensbestellungen = New UsrCntlessensbestellungen(bestellung)
+            Using tmpForm As Form = New Form()
+                tmpForm.Width = UserControl1.Width
+                tmpForm.Height = UserControl1.Height
+                tmpForm.Text = bestellung.eb_kw.ToString & " - " & bestellung.eb_mitname.ToString
+                tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
+                tmpForm.Controls.Add(UserControl1)
+                If tmpForm.ShowDialog() = DialogResult.OK Then
+                    dgvBestellungen.SetOrder()
+                    loadBestellungen()
+                    dgvBestellungen.GetOrder()
+                End If
+
+            End Using
+        End Using
+    End Sub
+
+    Private Sub AbgerechnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbgerechnetToolStripMenuItem.Click, StornierenToolStripMenuItem.Click, AnHigway118SchickenToolStripMenuItem.Click
+        If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
+
+        Select Case sender.Text
+            Case "abgerechnet"
+                Select Case dgvBestellungen.SelectedRows.Count
+                    Case 1
+                        If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then
+                            bestellungenAbrechnen(True)
+                        Else
+                            Exit Sub
+                        End If
+                    Case Else
+                        If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abrechnen", vbYesNoCancel) Then
+                            bestellungenAbrechnen(True)
+                        Else
+                            Exit Sub
+
+                        End If
+
+
+                End Select
+
+
+            Case "stornieren"
+                Select Case dgvBestellungen.SelectedRows.Count
+                    Case 1
+                        If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " wirklich stornieren", vbYesNoCancel) Then
+                            bestellungenStornieren(True)
+                        Else
+                            Exit Sub
+                        End If
+                    Case Else
+
+                        If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen wirklich stornieren", vbYesNoCancel) Then
+                            bestellungenStornieren(True)
+                        Else
+                            Exit Sub
+                        End If
+
+
+                End Select
+
+
+            Case "markierte Bestellungen per Mail senden"
+                Select Case dgvBestellungen.SelectedRows.Count
+                    Case 1
+                        If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abschicken?", vbYesNoCancel) Then
+                            bestellungenSenden(True)
+                            generateEMailforHighway(sender, e)
+                        Else
+                            Exit Sub
+                        End If
+                    Case Else
+
+                        If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
+                            bestellungenSenden(True)
+                            generateEMailforHighway(sender, e)
+                        Else
+                            Exit Sub
+                        End If
+
+
+                End Select
+
+
+        End Select
+
+
+    End Sub
+    Private Sub bestellungenStornieren(stornieren As Boolean)
+
+
+        For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
+
+            Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
+
+            bestellung.eb_storniert = True
+            If stornieren Then
+                bestellung.eb_storniert_am = Now
+            Else
+                bestellung.eb_storniert_am = DBNull.Value
+
+            End If
+
+            bestellung.SAVE()
+
+
+        Next
+
+
+    End Sub
+
+    Private Sub bestellungenAbrechnen(abrechnen As Boolean)
+
+
+        For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
+
+            Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
+
+            bestellung.eb_abgerechnet = abrechnen
+            If abrechnen Then
+                bestellung.eb_abgerechnet_am = Now
+            Else
+                bestellung.eb_abgerechnet_am = DBNull.Value
+
+            End If
+
+            dgvBestellungen.SetOrder()
+            bestellung.SAVE()
+            dgvBestellungen.GetOrder()
+        Next
+
+
+    End Sub
+
+    Private Sub bestellungenSenden(senden As Boolean)
+
+
+        For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
+
+            Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
+
+            bestellung.eb_gesendet = senden
+            If senden Then
+                bestellung.eb_gesendet_am = Now
+            Else
+                bestellung.eb_gesendet_am = DBNull.Value
+
+            End If
+
+            dgvBestellungen.SetOrder()
+            bestellung.SAVE()
+            dgvBestellungen.GetOrder()
+        Next
+
+
+    End Sub
+
+    Private Sub generateEMailforHighway(sender As Object, e As EventArgs)
+
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            Dim kw As String = ""
+            Dim gebaeude As String = ""
+            Dim TextHTMLtable = ""
+
+            TextHTMLtable &= "<table border=1>"
+            TextHTMLtable &= "<tr><td>Mitarbeiter</td><td>Montag</td><td>Dienstag</td><td>Mittwoch</td><td>Donnerstag</td><td>Freitag</td><td>Gebäude</td><td>Anmerkung</td></tr>"
+
+            If sender.Text = "Email" Then
+
+                Dim dtBestellungenMail = generateDTBestellungen()
+                kw = cbxMailKW._value
+                gebaeude = cbxMailGebäude._value
+
+                For Each row As DataRow In dtBestellungenMail.Rows
+
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & row("Name") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Montag") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Dienstag") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Mittwoch") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Donnerstag") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Freitag") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Gebaeude") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row("Anmerkung") & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+
+                    If row("ID") <> 0 Then
+                        Dim bestellung As New cEssensbestellung(row("KW"), row("ID"))
+
+                        bestellung.eb_gesendet = True
+                        bestellung.eb_gesendet_am = Now
+                        bestellung.SAVE()
+                    End If
+                Next
+
+
+
+            Else
+                For Each row In dgvBestellungen.SelectedRows
+
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_mitname").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_montag").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_dienstag").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_mittwoch").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_donnerstag").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_freitag").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_gebaeude").Value & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & row.Cells("eb_anmerkung").Value & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+
+                Next
+
+            End If
+
+            lblWarning.Text = ""
+
+            Dim outl As New Outlook.Application
+            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+
+
+            Mail = outl.CreateItem(0)
+
+
+            Mail.Subject = "Essensbestellung: " & IIf(kw <> "", kw, "") & " " & IIf(gebaeude <> "", gebaeude, "")
+
+            Dim DETextHTML = ""
+            DETextHTML &= "Hallo,<br>"
+            DETextHTML &= "<br>"
+            DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br>"
+
+            TextHTMLtable &= "</table>"
+
+            Dim EndTextHTML = ""
+
+            EndTextHTML &= "<br>"
+            EndTextHTML &= "<br>"
+            EndTextHTML &= "Bitte um kurze Bestätigung nach Erhalt der Mail, danke. <br>"
+            EndTextHTML &= "<br>"
+            EndTextHTML &= "Mit freundlichen Grüßen/Best regards<br>"
+            EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+            EndTextHTML &= "<br>"
+
+            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+            Mail.Display()
+
+        Catch ex As Exception
+
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+        End Try
+
+
+        Me.Cursor = Cursors.Default
+
+
+    End Sub
+
+    Private Sub cbKW_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbKW.SelectedValueChanged
+
+        If cbKW._value Is Nothing Or cbKW._value = "" Then Exit Sub
+
+        If dt IsNot Nothing Then
+            dt.Clear()
+        End If
+
+        dt = SQL.loadDgvBySql("SELECT Top 1 * from (SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDate, MenuDateVon, MenuDateBis FROM tblEBMenu) kwDate where kwDate = '" & cbKW._value & "'", "AVISO", 100, True)
+
+        If dt.Rows.Count > 0 Then
+
+            txtBestellDat.Text = CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy")
+            txtBestellDatBis.Text = CDate(dt.Rows(0).Item("MenuDateBis")).ToString("dd.MM.yyyy")
+            btnSuche.PerformClick()
+        End If
+
+
+
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
+        lblWarning.Text = ""
+
+        If cbxMailKW._value = "" Then
+            lblWarning.Text = "Kalenderwoche auswählen!"
+            Exit Sub
+        End If
+
+        If cbxMailGebäude._value = "" Then
+            lblWarning.Text = "Gebäude auswählen!"
+            Exit Sub
+        End If
+
+        Select Case sender.Text
+
+            Case "Email"
+
+                generateEMailforHighway(sender, e)
+
+            Case "Excel"
+
+                SDL.cProgramFunctions.genExcelFromDT_NEW(generateDTBestellungen())
+
+        End Select
+
+    End Sub
+
+
+    Private Function generateDTBestellungen() As DataTable
+
+
+        Dim dtBestellungen As DataTable
+
+        Dim SQLStringBEstellungen As String = "SELECT  [eb_mitname] as Name ,[eb_mitid] as ID , [eb_kw] as KW , [eb_gebaeude] as Gebaeude ,[eb_abteilung] as Abteilung ,[eb_montag] As Montag ,[eb_dienstag] As Dienstag,[eb_mittwoch] As Mittwoch,
+                                    [eb_donnerstag] As Donnerstag ,[eb_freitag] as Freitag, [eb_anmerkung] as Anmerkung ,[eb_datum] as Datum , [eb_storniert] as Storniert 
+                                    FROM 
+                                    [tblEssensbestellungen] " 'WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum"
+
+        dtBestellungen = SQL.loadDgvBySql(SQLStringBEstellungen, "AVISO", 100, True)
+
+
+        Dim uniqueMenusMontag = dtBestellungen.AsEnumerable() _
+                        .GroupBy(Function(row) _
+                        New With
+                        {
+                        Key .Montag = row.Field(Of String)("Montag")
+                       }
+                   )
+
+
+        Dim uniqueMenusDienstag = dtBestellungen.AsEnumerable() _
+                        .GroupBy(Function(row) _
+                        New With
+                        {
+                            Key .Dienstag = row.Field(Of String)("Dienstag")
+                       }
+                   )
+
+        Dim uniqueMenusMittwoch = dtBestellungen.AsEnumerable() _
+                        .GroupBy(Function(row) _
+                        New With
+                        {
+                            Key .Mittwoch = row.Field(Of String)("Mittwoch")
+                       }
+                   )
+
+
+        Dim uniqueMenusDonnerstag = dtBestellungen.AsEnumerable() _
+                        .GroupBy(Function(row) _
+                        New With
+                        {
+                            Key .Donnerstag = row.Field(Of String)("Donnerstag")
+                       }
+                   )
+
+        Dim uniqueMenusFreitag = dtBestellungen.AsEnumerable() _
+                        .GroupBy(Function(row) _
+                        New With
+                        {
+                            Key .Freitag = row.Field(Of String)("Freitag")
+                       }
+                   )
+
+
+
+        Dim resultMontag, resultDienstag, resultMittwoch, resultDonnerstag, resultFreitag As String
+
+
+        For Each el In uniqueMenusMontag
+            resultMontag &= IIf(el.Key.Montag <> "", String.Format("{0} {1}x ", el.Key.Montag, el.Count()), "")
+        Next
+
+        For Each el In uniqueMenusDienstag
+            resultDienstag &= IIf(el.Key.Dienstag <> "", String.Format("{0} {1}x ", el.Key.Dienstag, el.Count()), "")
+        Next
+
+        For Each el In uniqueMenusMittwoch
+            resultMittwoch &= IIf(el.Key.Mittwoch <> "", String.Format("{0} {1}x ", el.Key.Mittwoch, el.Count()), "")
+        Next
+
+        For Each el In uniqueMenusDonnerstag
+            resultDonnerstag &= IIf(el.Key.Donnerstag <> "", String.Format("{0} {1}x ", el.Key.Donnerstag, el.Count()), "")
+        Next
+        For Each el In uniqueMenusFreitag
+            resultFreitag &= IIf(el.Key.Freitag <> "", String.Format("{0} {1}x ", el.Key.Freitag, el.Count()), "")
+        Next
+
+
+        Dim R As DataRow = dtBestellungen.NewRow
+        R("ID") = 0
+        R("KW") = "-"
+        R("Name") = "-"
+        R("KW") = "Summe"
+        R("Gebaeude") = "-"
+        R("Name") = "-"
+        R("Gebaeude") = "-"
+        R("Abteilung") = "-"
+        R("Datum") = DateTime.Now()
+        R("Storniert") = True
+        R("Montag") = String.Join(" ", resultMontag)
+        R("Dienstag") = String.Join(" ", resultDienstag)
+        R("Mittwoch") = String.Join(" ", resultMittwoch)
+        R("Donnerstag") = String.Join(" ", resultDonnerstag)
+        R("Freitag") = String.Join(" ", resultFreitag)
+        dtBestellungen.Rows.Add(R)
+
+        ' MessageBox.Show(String.Join(Environment.NewLine, result))
+
+        If dtBestellungen.Rows.Count = 0 Then
+            lblWarning.Text = "keine Datensätze vorhanden"
+            Me.Cursor = Cursors.Default
+            Exit Function
+        End If
+
+        Return dtBestellungen
+
+    End Function
+
+End Class

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -12,7 +12,9 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
-        cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+        'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+        cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge]  ", True, "AVISO", True)
+        cbxWarenort.DropDownWidth = 150
         Me.Text = "Gesamtsicherheiten " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
 
@@ -116,18 +118,9 @@ Public Class frmGesamtsicherheitenMenuNEU
                 If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
 
                     dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
-                Else
-                    dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
-                End If
-            End If
-        Next
-
-
-        For Each row As DataGridViewRow In dgvListe.Rows
-            If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
-                If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
                     row.DefaultCellStyle.BackColor = Color.IndianRed
                 Else
+                    dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
                     row.DefaultCellStyle.BackColor = Color.Green
                 End If
             End If

Aviso/frmGesamtsicherheitenNEU.Designer.vb

@@ -33,6 +33,8 @@ Partial Class frmGesamtsicherheitenNEU
         Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.pnlChangeATCNr = New System.Windows.Forms.Panel()
+        Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox()
+        Me.Label30 = New System.Windows.Forms.Label()
         Me.txtWarenwertContext = New System.Windows.Forms.TextBox()
         Me.lblWarenwertContext = New System.Windows.Forms.Label()
         Me.txtUhrzeitaendern = New System.Windows.Forms.TextBox()
@@ -142,8 +144,6 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox()
         Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox()
-        Me.Label30 = New System.Windows.Forms.Label()
         Me.ContextMenuStripGesSicherh.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.pnlChangeATCNr.SuspendLayout()
@@ -205,6 +205,27 @@ Partial Class frmGesamtsicherheitenNEU
         Me.pnlChangeATCNr.TabIndex = 13
         Me.pnlChangeATCNr.Visible = False
         '
+        'txtSicherheitsbetragContext
+        '
+        Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSicherheitsbetragContext.Location = New System.Drawing.Point(147, 133)
+        Me.txtSicherheitsbetragContext.Margin = New System.Windows.Forms.Padding(0)
+        Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext"
+        Me.txtSicherheitsbetragContext.ReadOnly = True
+        Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24)
+        Me.txtSicherheitsbetragContext.TabIndex = 14
+        Me.txtSicherheitsbetragContext.TabStop = False
+        '
+        'Label30
+        '
+        Me.Label30.AutoSize = True
+        Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label30.Location = New System.Drawing.Point(10, 133)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(134, 20)
+        Me.Label30.TabIndex = 15
+        Me.Label30.Text = "Sicherheitsbetrag"
+        '
         'txtWarenwertContext
         '
         Me.txtWarenwertContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1634,27 +1655,6 @@ Partial Class frmGesamtsicherheitenNEU
         Me.btnAddSicherheit.TabIndex = 36
         Me.btnAddSicherheit.UseVisualStyleBackColor = False
         '
-        'txtSicherheitsbetragContext
-        '
-        Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSicherheitsbetragContext.Location = New System.Drawing.Point(147, 133)
-        Me.txtSicherheitsbetragContext.Margin = New System.Windows.Forms.Padding(0)
-        Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext"
-        Me.txtSicherheitsbetragContext.ReadOnly = True
-        Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24)
-        Me.txtSicherheitsbetragContext.TabIndex = 14
-        Me.txtSicherheitsbetragContext.TabStop = False
-        '
-        'Label30
-        '
-        Me.Label30.AutoSize = True
-        Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label30.Location = New System.Drawing.Point(10, 133)
-        Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(134, 20)
-        Me.Label30.TabIndex = 15
-        Me.Label30.Text = "Sicherheitsbetrag"
-        '
         'frmGesamtsicherheitenNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

Aviso/frmGesamtsicherheitenNEU.vb

@@ -79,7 +79,7 @@ Public Class frmGesamtsicherheitenNEU
 
         cbx_offene.Checked = True
         initPrevNextButtons()
-
+        changeLabel()
 
         Me.Text = "Gesamtsicherheit " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -116,20 +116,33 @@ Public Class frmGesamtsicherheitenNEU
                 .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                 .Columns("gs_saldo").DefaultCellStyle.Format = "c"
                 .Columns("gs_saldo").Visible = True
+
                 Select Case currentGesSichRef.brgakto_gs_ATR
                     Case True
-                        .Columns("gs_ATBNr").HeaderText = "ATB"
+
+                        If Standort = "Verag GmbH" Then
+                            .Columns("gs_ATBNr").HeaderText = "ATB"
+                        Else
+                            .Columns("gs_ATBNr").HeaderText = "T1 MRN"
+                        End If
+
                         .Columns("gs_ATBNr").Width = 130
                         .Columns("gs_atr").HeaderText = "ATR"
                         .Columns("gs_atr").Visible = True
                         .Columns("gs_atr").Width = 35
                         .Columns("gs_ust").Width = 70
                         .Columns("gs_ust").HeaderText = "Ust"
+
                     Case Else
-                        .Columns("gs_ATBNr").HeaderText = "ATB"
+
+                        If Standort = "Verag GmbH" Then
+                            .Columns("gs_ATBNr").HeaderText = "ATB"
+                        Else
+                            .Columns("gs_ATBNr").HeaderText = "T1 MRN"
+                        End If
                         .Columns("gs_ATBNr").Width = 150
                 End Select
-
+                changeLabel(currentGesSichRef.brgakto_gs_ATR)
 
                 .Columns("gs_posNr").Width = 35
                 .Columns("gs_posNr").HeaderText = "Pos#"
@@ -268,9 +281,23 @@ Public Class frmGesamtsicherheitenNEU
                 .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                 Select Case currentGesSichRef.brgakto_gs_ATR
                     Case True
-                        .Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
+                        If Standort = "Verag GmbH" Then
+                            .Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
+                        ElseIf Standort = "VERAG AG" Then
+                            .Columns("gsp_ATCNr").HeaderText = "T1 CRN"
+                        Else
+                            .Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
+                        End If
+
                     Case Else
-                        .Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
+                        If Standort = "Verag GmbH" Then
+                            .Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
+                        ElseIf Standort = "VERAG AG" Then
+                            .Columns("gsp_ATCNr").HeaderText = "T1 CRN"
+                        Else
+                            .Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
+                        End If
+
                 End Select
                 .Columns("gsp_ATCNr").Width = 140
                 .Columns("gsp_datum").Width = 100
@@ -1593,4 +1620,26 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Private Sub changeLabel(Optional isATR As Boolean = True)
+
+        If Standort = "Verag GmbH" Then
+            Label1.Text = "ATB Nummer"
+
+            If isATR Then
+                Label12.Text = "ATC / MRN"
+            Else
+
+                Label12.Text = "CRN / MRN"
+            End If
+
+
+        ElseIf Standort = "VERAG AG" Then
+            Label12.Text = "T1 CRN"
+            Label1.Text = "T1 MRN"
+        Else
+            Label12.Text = "EZA / T1 CRN"
+            Label1.Text = "T1 MRN"
+        End If
+
+    End Sub
 End Class

Aviso/frmHauptfenster.Designer.vb

@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        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()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
         Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -116,6 +116,10 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
         Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
         Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
@@ -125,10 +129,6 @@ Partial Class frmHauptfenster
         Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem()
         Me.VorauskassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.EssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -268,6 +268,7 @@ Partial Class frmHauptfenster
         Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
         Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
+        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -368,7 +369,7 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
+        Me.AdministrationEssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.Top.SuspendLayout()
@@ -831,7 +832,7 @@ Partial Class frmHauptfenster
         '
         '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.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem})
+        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.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem})
         Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
         Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
         Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -931,6 +932,34 @@ Partial Class frmHauptfenster
         Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
         Me.ToolStripMenuItem6.Visible = False
         '
+        'DEGesamtsicherheitVeragGmbHToolStripMenuItem
+        '
+        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem"
+        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH"
+        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False
+        '
+        'ATGesamtsicherheitVeragAGToolStripMenuItem
+        '
+        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem"
+        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG"
+        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False
+        '
+        'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem
+        '
+        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem"
+        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH"
+        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False
+        '
+        'ATGesamtsicherheitVeragCSToolStripMenuItem
+        '
+        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem"
+        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
+        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False
+        '
         'ToolStripMenuItem10
         '
         Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
@@ -984,34 +1013,6 @@ Partial Class frmHauptfenster
         Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
         '
-        'DEGesamtsicherheitVeragGmbHToolStripMenuItem
-        '
-        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem"
-        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
-        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH"
-        Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False
-        '
-        'ATGesamtsicherheitVeragAGToolStripMenuItem
-        '
-        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem"
-        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
-        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG"
-        Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False
-        '
-        'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem
-        '
-        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem"
-        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
-        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH"
-        Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False
-        '
-        'ATGesamtsicherheitVeragCSToolStripMenuItem
-        '
-        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem"
-        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
-        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
-        Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False
-        '
         'EssensbestellungenToolStripMenuItem
         '
         Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
@@ -2276,6 +2277,15 @@ Partial Class frmHauptfenster
         Me.SplitContainer3.SplitterDistance = 158
         Me.SplitContainer3.TabIndex = 3
         '
+        'UsrCntlBenachrichtigungen1
+        '
+        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
+        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
+        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
+        '
         'pnl
         '
         Me.pnl.Controls.Add(Me.Button10)
@@ -2308,38 +2318,38 @@ Partial Class frmHauptfenster
         Me.gridMyAviso.AllowUserToDeleteRows = False
         Me.gridMyAviso.AllowUserToOrderColumns = True
         Me.gridMyAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
-        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
         Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
         Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
         Me.gridMyAviso.Name = "gridMyAviso"
         Me.gridMyAviso.ReadOnly = True
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.gridMyAviso.RowHeadersVisible = False
         Me.gridMyAviso.RowHeadersWidth = 62
         Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
@@ -2737,47 +2747,47 @@ Partial Class frmHauptfenster
         Me.gridAviso.AllowUserToAddRows = False
         Me.gridAviso.AllowUserToDeleteRows = False
         Me.gridAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
         Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 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.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
         Me.gridAviso.ColumnHeadersHeight = 25
         Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
         Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridAviso.Location = New System.Drawing.Point(0, 220)
         Me.gridAviso.MultiSelect = False
         Me.gridAviso.Name = "gridAviso"
         Me.gridAviso.ReadOnly = True
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
         Me.gridAviso.RowHeadersVisible = False
         Me.gridAviso.RowHeadersWidth = 62
         Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.gridAviso.RowTemplate.ReadOnly = True
         Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
         Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -3505,14 +3515,11 @@ Partial Class frmHauptfenster
         Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
         Me.UsrCntlTestsystem1.TabIndex = 8
         '
-        'UsrCntlBenachrichtigungen1
+        'AdministrationEssensbestellungenToolStripMenuItem
         '
-        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
-        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
-        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
+        Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
+        Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
         '
         'frmHauptfenster
         '
@@ -3922,4 +3929,5 @@ Partial Class frmHauptfenster
     Friend WithEvents tabINDONESIEN As TabPage
     Friend WithEvents conAnVerimex As ToolStripMenuItem
     Friend WithEvents conAnIndonesien As ToolStripMenuItem
+    Friend WithEvents AdministrationEssensbestellungenToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmHauptfenster.resx

@@ -228,9 +228,6 @@
         pOTzPwAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>598, 17</value>
-  </metadata>
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>697, 17</value>
   </metadata>

Aviso/frmHauptfenster.vb

@@ -4323,7 +4323,10 @@ Public Class frmHauptfenster
         f.ShowDialog(Me)
     End Sub
 
-
+    Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click
+        Dim f As New frmEssensbestellungenAdministration()
+        f.ShowDialog(Me)
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions

Aviso/frmSendungsdetailsNEU.vb

@@ -5465,16 +5465,19 @@ Public Class frmSendungsdetailsNEU
 
                         Dim olSess = outl.Session
 
+                        Dim accounts = olSess.Accounts
+                        Dim account As Outlook.Account
+
                         Dim PathTmpANH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.CurrentRow.Cells("anh_docId").Value)
 
                         Mail = CType(olSess.OpenSharedItem(PathTmpANH), Outlook.MailItem)
 
-                        Dim accounts = olSess.Accounts
-                        Dim account As Outlook.Account
+                        'For Each account In accounts
+                        '    If account.UserName.ToString = "brexit" Then
+                        '        Mail.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString
 
-                        For Each account In accounts
-                            If account.UserName.ToString = "brexit" Then Mail.SendUsingAccount = account
-                        Next
+                        '    End If
+                        'Next
 
                         Mail = Mail.ReplyAll
                         isReply = True