essensbestellungen

SDL/My Project/Resources.Designer.vb

@@ -508,6 +508,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property documents() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("documents", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -738,6 +748,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property food() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("food", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property food2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("food2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

SDL/My Project/Resources.resx

@@ -157,9 +157,6 @@
   <data name="reloadFinance" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="mse" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -169,15 +166,9 @@
   <data name="positionen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -193,11 +184,14 @@
   <data name="statistik2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="IMEX_LOGO_AEO_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="food" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\food1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="mic_logo___short" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -262,9 +256,6 @@
   <data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="warenkorb1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -280,9 +271,6 @@
   <data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -292,8 +280,8 @@
   <data name="email11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -325,15 +313,15 @@
   <data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Einheitspapier_0777_kurz" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -427,6 +415,9 @@
   <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -436,9 +427,15 @@
   <data name="cards1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -454,24 +451,15 @@
   <data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -547,8 +535,8 @@
   <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -589,8 +577,8 @@
   <data name="transp" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -640,8 +628,8 @@
   <data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -667,14 +655,17 @@
   <data name="passpic_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Verag_Customs_Service_GMBH_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
   <data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -685,8 +676,8 @@
   <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -694,8 +685,8 @@
   <data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -706,8 +697,8 @@
   <data name="LKW_klein1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -715,14 +706,20 @@
   <data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="android-note12" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -739,14 +736,14 @@
   <data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -805,6 +802,12 @@
   <data name="mahn" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -817,11 +820,14 @@
   <data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="rechnung" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -835,13 +841,16 @@
   <data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="food2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\food2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="sms_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\..\AVISO\Aviso\Diverses\sms_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

SDL/SDL.vbproj

@@ -560,6 +560,12 @@
     <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="frmEssensbestellungen.Designer.vb">
+      <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEssensbestellungen.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
       <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
     </Compile>
@@ -2802,6 +2808,9 @@
     <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.resx">
       <DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmEssensbestellungen.resx">
+      <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
       <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
     </EmbeddedResource>
@@ -4268,6 +4277,10 @@
     <Content Include="My Project\logo_mdm.png" />
     <Content Include="My Project\zoll.png" />
     <None Include="Resources\email_big_gray.jpg" />
+    <None Include="Resources\documents.png" />
+    <Content Include="Resources\food.png" />
+    <None Include="Resources\food1.png" />
+    <None Include="Resources\food2.png" />
     <Content Include="Resources\Verag_Customs_Service_AEO.jpg" />
     <None Include="Resources\mic-logo.jpg" />
     <None Include="Resources\mic-logo - short.jpg" />

SDL/frmEssensbestellungen.vb

@@ -0,0 +1,617 @@
+
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmEssensbestellungen
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    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 alacarte As String = "A la carte"
+
+
+
+    Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+
+
+        cbxMenu.fillWithSQL("SELECT Distinct Top 50 (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
+        loadDGVBestellungen()
+
+        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice"))
+        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
+        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag Verrechnung"))
+        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
+        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cbxGebauede.changeItem("")
+        btnSave.Enabled = False
+
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+        If cbxGebauede._value = "" Then
+            MsgBox("Bitte Gebäude für die Essensbestellung angeben!")
+            Exit Sub
+        End If
+
+        essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname, txtAnmerkung)
+
+        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 = cbxGebauede._value
+        essen.eb_anmerkung = txtAnmerkung.Text
+        essen.SAVE()
+        loadDGVBestellungen()
+
+    End Sub
+
+
+    Private Sub cbxMenu_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMenu.SelectedValueChanged
+
+        If cbxMenu._value Is Nothing Or cbxMenu._value = "" Then
+            'Button1.Visible = False
+            lblDatum.Text = "Datum: "
+            lblBestellungBis.Text = ""
+            loadDGVBestellungen()
+            btnSave.Enabled = False
+
+            For Each comp As System.ComponentModel.Component In Me.components.Components
+                If TypeOf comp Is ToolTip Then
+                    Dim tip = DirectCast(comp, ToolTip)
+                    tip.RemoveAll()
+                End If
+            Next
+
+            Exit Sub
+        End If
+
+        btnSave.Enabled = True
+        'Button1.Visible = True
+        dt.Clear()
+        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
+                MyPanel1.Enabled = True
+            Else
+                MyPanel1.Enabled = False
+            End If
+            lblDatum.Text = "Datum: " & CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") & " - " & CDate(dt.Rows(0).Item("MenuDateBis")).ToString("dd.MM.yyyy")
+            loadMenuInfo(dt)
+
+            btnSave.Enabled = True
+        Else
+            btnSave.Enabled = False
+        End If
+
+        uncheckGroupBoxesAndRadioButtons(sender, e)
+        loadDGVBestellungen()
+
+    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 loadDGVBestellungen()
+
+        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], [eb_mitname], [eb_datum], [eb_anmerkung]  FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
+
+        dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
+        dgvBestellungen.LOAD()
+
+
+        If dgvBestellungen.Columns.Count < 1 Then Exit Sub
+
+        With dgvBestellungen
+            .RowHeadersWidth = 10
+            .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"
+            .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_anmerkung").HeaderText = "Anm"
+            .Columns("eb_anmerkung").Width = 80
+        End With
+
+    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 loadMenuInfo(dt As DataTable)
+
+        If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
+            'pbMontag.Visible = True
+            rbMenu_montag.Text = menu
+            txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
+
+            ttMontag.SetToolTip(pb_montag, dt.Rows(0).Item("MenuEssenMo").ToString)
+        Else
+            pb_montag.Visible = False
+            txtMenu_montag.Text = ""
+        End If
+
+
+        If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
+            'pbDienstag.Visible = True
+            rbMenu_dienstag.Text = menu
+            txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
+            ttDienstag.SetToolTip(pb_dienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
+
+        Else
+            pb_dienstag.Visible = False
+        End If
+
+
+        If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
+            'pbMittwoch.Visible = True
+            rbMenu_mittwoch.Text = menu
+            txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
+            ttMittwoch.SetToolTip(pb_mittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
+        Else
+            pb_mittwoch.Visible = False
+        End If
+
+        If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
+            'pbDonnerstag.Visible = True
+            rbMenu_donnerstag.Text = menu
+            txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
+            ttDonnerstag.SetToolTip(pb_donnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
+        Else
+            pb_donnerstag.Visible = False
+        End If
+
+        If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
+            'pbFreitag.Visible = True
+            rbMenu__freitag.Text = menu
+            txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
+            ttFreitag.SetToolTip(pb_freitag, dt.Rows(0).Item("MenuEssenFr").ToString)
+        Else
+            pb_freitag.Visible = False
+        End If
+
+    End Sub
+
+    Private Sub dgvBestellungen_Click(sender As Object, e As EventArgs) Handles dgvBestellungen.Click
+
+        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, dgvBestellungen.CurrentRow.Cells("eb_mitname").Value, dgvBestellungen.CurrentRow.Cells("eb_anmerkung").Value)
+
+        cbxMenu.changeItem(currentEssen.eb_kw)
+
+        If currentEssen.eb_montag IsNot Nothing Then
+            cb_montag.Checked = True
+            If currentEssen.eb_montag.ToString = menu Then
+                rbMenu_montag.Checked = True
+            Else
+                rbMenuAlt_montag.Checked = True
+                If currentEssen.eb_montag IsNot Nothing Then txtAlt_montag.Text = currentEssen.eb_montag.ToString
+            End If
+        Else
+            cb_montag.Checked = False
+        End If
+
+        If currentEssen.eb_dienstag IsNot Nothing Then
+            cb_dienstag.Checked = True
+            If currentEssen.eb_dienstag.ToString = menu Then
+                rbMenu_dienstag.Checked = True
+            Else
+                rbMenuAlt_dienstag.Checked = True
+                If currentEssen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = currentEssen.eb_dienstag.ToString
+            End If
+        Else
+            cb_dienstag.Checked = False
+        End If
+
+
+        If currentEssen.eb_mittwoch IsNot Nothing Then
+            cb_mittwoch.Checked = True
+            If currentEssen.eb_mittwoch.ToString = menu Then
+                rbMenu_mittwoch.Checked = True
+            Else
+                rbMenuAlt_mittwoch.Checked = True
+                If currentEssen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString
+            End If
+        Else
+            cb_mittwoch.Checked = False
+        End If
+
+        If currentEssen.eb_donnerstag IsNot Nothing Then
+            cbdonnerstag.Checked = True
+            If currentEssen.eb_donnerstag.ToString = menu Then
+                rbMenu_donnerstag.Checked = True
+            Else
+                rbMenuAlt_donnerstag.Checked = True
+                If currentEssen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString
+            End If
+        Else
+            cbdonnerstag.Checked = False
+        End If
+
+
+        If currentEssen.eb_freitag IsNot Nothing Then
+            cb_freitag.Checked = True
+            If currentEssen.eb_freitag.ToString = menu Then
+                rbMenu__freitag.Checked = True
+            Else
+                rbMenuAlt_freitag.Checked = True
+                If currentEssen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_freitag.ToString
+            End If
+        Else
+            cb_freitag.Checked = False
+        End If
+
+
+        cbxGebauede.Text = currentEssen.eb_gebaeude
+        txtAnmerkung.Text = currentEssen.eb_anmerkung
+
+
+    End Sub
+
+    Private Sub ToolTipInfoMo_Draw(sender As Object, e As DrawToolTipEventArgs) Handles ToolTipInfoMo.Draw, ToolTipInfoDi.Draw, ToolTipInfoMi.Draw, ToolTipInfoDo.Draw, ToolTipInfoFr.Draw
+        e.DrawBackground()
+        e.DrawBorder()
+        e.Graphics.DrawString(e.ToolTipText,
+                          Me.ToolTipFont,
+                          Brushes.Black,
+                          e.Bounds)
+
+
+    End Sub
+
+    Private Sub ToolTipInfoMo_Popup(sender As Object, e As PopupEventArgs) Handles ToolTipInfoMo.Popup
+
+        e.ToolTipSize = TextRenderer.MeasureText(Me.ToolTipInfoMo.GetToolTip(e.AssociatedControl), Me.ToolTipFont)
+
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+
+        Dim webAddress As String = "http://www.highway-118.de/speisekarte/speisekarte.html"
+        Process.Start(webAddress)
+    End Sub
+
+    Private Function checkIfOrderIsPossible() As Boolean
+
+        If dt.Rows.Count = 0 Then Return False
+
+        Try
+            Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
+
+            Dim tageBisBestellende = dt.Rows(0).Item("MenuBestellungBisTageVorher") * -1
+
+            If tageBisBestellende > 0 Then
+                lblTest.Text = "Zu Testzwecken darf aktuell " & tageBisBestellende & " Tage im Nachhinein bestellt werden!"
+            Else
+                lblTest.Text = ""
+            End If
+
+            Dim newTime As New TimeSpan(14, 30, 0)
+            Dim timeToOrderLimit = startMenu.AddDays(tageBisBestellende) + newTime
+            lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString
+
+            If Now >= timeToOrderLimit Then
+                lblBestellungBis.ForeColor = Color.Red
+                Return False
+            Else
+                lblBestellungBis.ForeColor = Color.Black
+                Return True
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.Message)
+        End Try
+
+
+    End Function
+
+
+    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 Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        'If cbxMenu._value Is Nothing Then Exit Sub
+        'Process.Start("\\YM5T001348\Gastro\FTPUpload\Menues\" & cbxMenu._value & ".pdf")
+
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        cbxMenu.changeItem("")
+    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
+
+End Class

SDL/frmMain.Designer.vb

@@ -45,6 +45,7 @@ Partial Class frmMain
         Me.AuswertungenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueBerichte = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueBuchhaltung = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnueEssensbestellung = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueKassenbuch = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueAdministration = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueSchnittstellen = New System.Windows.Forms.ToolStripMenuItem()
@@ -136,7 +137,7 @@ Partial Class frmMain
         Me.MenuStripSDL.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.MenuStripSDL.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.MenuStripSDL.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.MenuStripSDL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueMDM, Me.mnueBerichte, Me.mnueBuchhaltung, Me.mnueKassenbuch, Me.mnueAdministration, Me.mnueSchnittstellen})
+        Me.MenuStripSDL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueMDM, Me.mnueBerichte, Me.mnueBuchhaltung, Me.mnueEssensbestellung, Me.mnueKassenbuch, Me.mnueAdministration, Me.mnueSchnittstellen})
         Me.MenuStripSDL.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
         Me.MenuStripSDL.Location = New System.Drawing.Point(0, 0)
         Me.MenuStripSDL.Name = "MenuStripSDL"
@@ -304,6 +305,21 @@ Partial Class frmMain
         Me.mnueBuchhaltung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mnueBuchhaltung.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
         '
+        'mnueEssensbestellung
+        '
+        Me.mnueEssensbestellung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.mnueEssensbestellung.ForeColor = System.Drawing.Color.White
+        Me.mnueEssensbestellung.Image = Global.SDL.My.Resources.Resources.house1
+        Me.mnueEssensbestellung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.mnueEssensbestellung.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.mnueEssensbestellung.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
+        Me.mnueEssensbestellung.Name = "mnueEssensbestellung"
+        Me.mnueEssensbestellung.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.mnueEssensbestellung.Size = New System.Drawing.Size(93, 69)
+        Me.mnueEssensbestellung.Text = "Essensbestellung"
+        Me.mnueEssensbestellung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.mnueEssensbestellung.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
         'mnueKassenbuch
         '
         Me.mnueKassenbuch.ForeColor = System.Drawing.Color.White
@@ -664,24 +680,24 @@ Partial Class frmMain
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
         '
         'NeuesPasswortToolStripMenuItem
         '
         Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem"
-        Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
         Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort"
         '
         'UpdateToolStripMenuItem
         '
         Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
         Me.UpdateToolStripMenuItem.Text = "Update"
         '
         'TESTToolStripMenuItem
         '
         Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
-        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
         Me.TESTToolStripMenuItem.Text = "TEST"
         Me.TESTToolStripMenuItem.Visible = False
         '
@@ -697,7 +713,7 @@ Partial Class frmMain
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(57, 6)
         '
         'StatistikToolStripMenuItem
         '
@@ -1050,4 +1066,5 @@ Partial Class frmMain
     Friend WithEvents Button3 As Button
     Friend WithEvents USTVAnträgeToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents BesuchsberichteToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents mnueEssensbestellung As ToolStripMenuItem
 End Class

SDL/frmMain.vb

@@ -940,6 +940,11 @@ Public Class frmMain
     Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
 
     End Sub
+
+    Private Sub mnueEssensbestellung_Click(sender As Object, e As EventArgs) Handles mnueEssensbestellung.Click
+        Dim f As New frmEssensbestellungen()
+        f.Show()
+    End Sub
 End Class
 
 Public Class MyRenderer