edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-13 16:17:44 +01:00
parent d990f57249
commit c6b5747db5
10 changed files with 3081 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/My Project/Resources.Designer.vb generated
View File

@@ -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>

125
SDL/My Project/Resources.resx
View File

@@ -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">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="food" type="System.Resources.ResXFileRef, System.Windows.Forms">
<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">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="abc_obu" 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>
</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">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big" 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>
</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">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big_gray" 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>
</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">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/documents.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 72 KiB

BIN
SDL/Resources/food.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.8 KiB

13
SDL/SDL.vbproj
View File

@@ -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" />

1058
SDL/frmEssensbestellungen.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

1268
SDL/frmEssensbestellungen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

617
SDL/frmEssensbestellungen.vb Normal file
View File

@@ -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

29
SDL/frmMain.Designer.vb generated
View File

@@ -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

5
SDL/frmMain.vb
View File

@@ -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