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

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2022-12-23 08:24:35 +01:00
parent 552dd3b02c
commit bb723948b8
3 changed files with 271 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.4.0")> <Assembly: AssemblyVersion("3.8.4.1")>
<Assembly: AssemblyFileVersion("3.8.4.0")> <Assembly: AssemblyFileVersion("3.8.4.1")>

318
Aviso/frmEssensbestellungen.Designer.vb generated
View File

@@ -43,20 +43,24 @@ Partial Class frmEssensbestellungen
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.txtPreis = New System.Windows.Forms.Label() Me.txtPreis = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Dienstag = New System.Windows.Forms.GroupBox() Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox()
Me.txtMenuDi = New System.Windows.Forms.Label()
Me.pbDienstag = New System.Windows.Forms.PictureBox() Me.pbDienstag = New System.Windows.Forms.PictureBox()
Me.cbDienstag = New System.Windows.Forms.CheckBox() Me.cbDienstag = New System.Windows.Forms.CheckBox()
Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.lbl1 = New System.Windows.Forms.Label() Me.lbl1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.Button1 = New System.Windows.Forms.Button()
Me.GroupBoxMontag = New System.Windows.Forms.GroupBox()
Me.txtMenuMo = New System.Windows.Forms.Label()
Me.pbMontag = New System.Windows.Forms.PictureBox() Me.pbMontag = New System.Windows.Forms.PictureBox()
Me.cbMontag = New System.Windows.Forms.CheckBox() Me.cbMontag = New System.Windows.Forms.CheckBox()
Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenoAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox()
Me.txtMenuFr = New System.Windows.Forms.Label()
Me.pbFreitag = New System.Windows.Forms.PictureBox() Me.pbFreitag = New System.Windows.Forms.PictureBox()
Me.cbFreitag = New System.Windows.Forms.CheckBox() Me.cbFreitag = New System.Windows.Forms.CheckBox()
Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -65,19 +69,20 @@ Partial Class frmEssensbestellungen
Me.txtAnzahlLaCart = New System.Windows.Forms.Label() Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
Me.lbl2 = New System.Windows.Forms.Label() Me.lbl2 = New System.Windows.Forms.Label()
Me.Mittwoch = New System.Windows.Forms.GroupBox() Me.Mittwoch = New System.Windows.Forms.GroupBox()
Me.txtMenuMi = New System.Windows.Forms.Label()
Me.pbMittwoch = New System.Windows.Forms.PictureBox() Me.pbMittwoch = New System.Windows.Forms.PictureBox()
Me.cbMittwoch = New System.Windows.Forms.CheckBox() Me.cbMittwoch = New System.Windows.Forms.CheckBox()
Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox()
Me.txtMenuDo = New System.Windows.Forms.Label()
Me.pbDonnerstag = New System.Windows.Forms.PictureBox() Me.pbDonnerstag = New System.Windows.Forms.PictureBox()
Me.cbDonnerstag = New System.Windows.Forms.CheckBox() Me.cbDonnerstag = New System.Windows.Forms.CheckBox()
Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.txtAnzahlMenu = New System.Windows.Forms.Label() Me.txtAnzahlMenu = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbteilung = New System.Windows.Forms.Label() Me.txtAbteilung = New System.Windows.Forms.Label()
@@ -86,16 +91,17 @@ Partial Class frmEssensbestellungen
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.lblTest = New System.Windows.Forms.Label()
Me.MyPanel1.SuspendLayout() Me.MyPanel1.SuspendLayout()
Me.Dienstag.SuspendLayout() Me.GroupBoxDienstag.SuspendLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout() Me.GroupBoxMontag.SuspendLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout() Me.GroupBoxFreitag.SuspendLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Mittwoch.SuspendLayout() Me.Mittwoch.SuspendLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout() Me.GroupBoxDonnerstag.SuspendLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -113,7 +119,7 @@ Partial Class frmEssensbestellungen
'btnSave 'btnSave
' '
Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.btnSave.Location = New System.Drawing.Point(305, 484) Me.btnSave.Location = New System.Drawing.Point(305, 531)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 10 Me.btnSave.TabIndex = 10
@@ -166,7 +172,7 @@ Partial Class frmEssensbestellungen
'lblBestellungen 'lblBestellungen
' '
Me.lblBestellungen.AutoSize = True Me.lblBestellungen.AutoSize = True
Me.lblBestellungen.Location = New System.Drawing.Point(15, 297) Me.lblBestellungen.Location = New System.Drawing.Point(15, 334)
Me.lblBestellungen.Name = "lblBestellungen" Me.lblBestellungen.Name = "lblBestellungen"
Me.lblBestellungen.Size = New System.Drawing.Size(100, 13) Me.lblBestellungen.Size = New System.Drawing.Size(100, 13)
Me.lblBestellungen.TabIndex = 20 Me.lblBestellungen.TabIndex = 20
@@ -197,25 +203,25 @@ Partial Class frmEssensbestellungen
' '
Me.MyPanel1.Controls.Add(Me.txtPreis) Me.MyPanel1.Controls.Add(Me.txtPreis)
Me.MyPanel1.Controls.Add(Me.Label2) Me.MyPanel1.Controls.Add(Me.Label2)
Me.MyPanel1.Controls.Add(Me.Dienstag) Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag)
Me.MyPanel1.Controls.Add(Me.lbl1) Me.MyPanel1.Controls.Add(Me.lbl1)
Me.MyPanel1.Controls.Add(Me.Button1) Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.GroupBox1) Me.MyPanel1.Controls.Add(Me.GroupBoxMontag)
Me.MyPanel1.Controls.Add(Me.GroupBox5) Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag)
Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart) Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart)
Me.MyPanel1.Controls.Add(Me.lbl2) Me.MyPanel1.Controls.Add(Me.lbl2)
Me.MyPanel1.Controls.Add(Me.Mittwoch) Me.MyPanel1.Controls.Add(Me.Mittwoch)
Me.MyPanel1.Controls.Add(Me.GroupBox4) Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag)
Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
Me.MyPanel1.Location = New System.Drawing.Point(12, 67) Me.MyPanel1.Location = New System.Drawing.Point(12, 65)
Me.MyPanel1.Name = "MyPanel1" Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(667, 210) Me.MyPanel1.Size = New System.Drawing.Size(667, 259)
Me.MyPanel1.TabIndex = 18 Me.MyPanel1.TabIndex = 18
' '
'txtPreis 'txtPreis
' '
Me.txtPreis.AutoSize = True Me.txtPreis.AutoSize = True
Me.txtPreis.Location = New System.Drawing.Point(553, 181) Me.txtPreis.Location = New System.Drawing.Point(553, 188)
Me.txtPreis.Name = "txtPreis" Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Size = New System.Drawing.Size(13, 13) Me.txtPreis.Size = New System.Drawing.Size(13, 13)
Me.txtPreis.TabIndex = 19 Me.txtPreis.TabIndex = 19
@@ -224,35 +230,45 @@ Partial Class frmEssensbestellungen
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(463, 181) Me.Label2.Location = New System.Drawing.Point(463, 188)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 13) Me.Label2.Size = New System.Drawing.Size(68, 13)
Me.Label2.TabIndex = 18 Me.Label2.TabIndex = 18
Me.Label2.Text = "Gesamtpreis:" Me.Label2.Text = "Gesamtpreis:"
' '
'Dienstag 'GroupBoxDienstag
' '
Me.Dienstag.Controls.Add(Me.pbDienstag) Me.GroupBoxDienstag.Controls.Add(Me.txtMenuDi)
Me.Dienstag.Controls.Add(Me.cbDienstag) Me.GroupBoxDienstag.Controls.Add(Me.pbDienstag)
Me.Dienstag.Controls.Add(Me.txtAltDi) Me.GroupBoxDienstag.Controls.Add(Me.cbDienstag)
Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di) Me.GroupBoxDienstag.Controls.Add(Me.txtAltDi)
Me.Dienstag.Controls.Add(Me.rbMenu_Di) Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_Di)
Me.Dienstag.Location = New System.Drawing.Point(225, 8) Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_Di)
Me.Dienstag.Name = "Dienstag" Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8)
Me.Dienstag.Size = New System.Drawing.Size(200, 95) Me.GroupBoxDienstag.Name = "GroupBoxDienstag"
Me.Dienstag.TabIndex = 13 Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121)
Me.Dienstag.TabStop = False Me.GroupBoxDienstag.TabIndex = 13
Me.Dienstag.Text = "Dienstag" Me.GroupBoxDienstag.TabStop = False
Me.GroupBoxDienstag.Text = "Dienstag"
'
'txtMenuDi
'
Me.txtMenuDi.Location = New System.Drawing.Point(0, 39)
Me.txtMenuDi.Name = "txtMenuDi"
Me.txtMenuDi.Size = New System.Drawing.Size(188, 32)
Me.txtMenuDi.TabIndex = 30
Me.txtMenuDi.Text = "Menutext"
' '
'pbDienstag 'pbDienstag
' '
Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbDienstag.Location = New System.Drawing.Point(61, 19) Me.pbDienstag.Location = New System.Drawing.Point(168, 19)
Me.pbDienstag.Name = "pbDienstag" Me.pbDienstag.Name = "pbDienstag"
Me.pbDienstag.Size = New System.Drawing.Size(26, 26) Me.pbDienstag.Size = New System.Drawing.Size(26, 26)
Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbDienstag.TabIndex = 5 Me.pbDienstag.TabIndex = 5
Me.pbDienstag.TabStop = False Me.pbDienstag.TabStop = False
Me.pbDienstag.Visible = False
' '
'cbDienstag 'cbDienstag
' '
@@ -279,7 +295,7 @@ Partial Class frmEssensbestellungen
Me.txtAltDi._Waehrung = False Me.txtAltDi._Waehrung = False
Me.txtAltDi._WaehrungZeichen = True Me.txtAltDi._WaehrungZeichen = True
Me.txtAltDi.ForeColor = System.Drawing.Color.Black Me.txtAltDi.ForeColor = System.Drawing.Color.Black
Me.txtAltDi.Location = New System.Drawing.Point(0, 65) Me.txtAltDi.Location = New System.Drawing.Point(0, 93)
Me.txtAltDi.MaxLineLength = -1 Me.txtAltDi.MaxLineLength = -1
Me.txtAltDi.MaxLines_Warning = "" Me.txtAltDi.MaxLines_Warning = ""
Me.txtAltDi.MaxLines_Warning_Label = Nothing Me.txtAltDi.MaxLines_Warning_Label = Nothing
@@ -292,7 +308,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_Di.AutoSize = True Me.rbMenuAlt_Di.AutoSize = True
Me.rbMenuAlt_Di.GroupName = "Dienstag" Me.rbMenuAlt_Di.GroupName = "Dienstag"
Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 74)
Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di" Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di"
Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Di.TabIndex = 1 Me.rbMenuAlt_Di.TabIndex = 1
@@ -315,35 +331,55 @@ Partial Class frmEssensbestellungen
'lbl1 'lbl1
' '
Me.lbl1.AutoSize = True Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(463, 128) Me.lbl1.Location = New System.Drawing.Point(463, 135)
Me.lbl1.Name = "lbl1" Me.lbl1.Name = "lbl1"
Me.lbl1.Size = New System.Drawing.Size(72, 13) Me.lbl1.Size = New System.Drawing.Size(72, 13)
Me.lbl1.TabIndex = 14 Me.lbl1.TabIndex = 14
Me.lbl1.Text = "Anzahl Menü:" Me.lbl1.Text = "Anzahl Menü:"
' '
'GroupBox1 'Button1
' '
Me.GroupBox1.Controls.Add(Me.pbMontag) Me.Button1.Image = Global.AVISO.My.Resources.Resources.pdf
Me.GroupBox1.Controls.Add(Me.cbMontag) Me.Button1.Location = New System.Drawing.Point(599, 140)
Me.GroupBox1.Controls.Add(Me.txtAltMo) Me.Button1.Name = "Button1"
Me.GroupBox1.Controls.Add(Me.rbMenoAlt_Mo) Me.Button1.Size = New System.Drawing.Size(54, 57)
Me.GroupBox1.Controls.Add(Me.rbMenu_Mo) Me.Button1.TabIndex = 20
Me.GroupBox1.Location = New System.Drawing.Point(6, 8) Me.Button1.UseVisualStyleBackColor = True
Me.GroupBox1.Name = "GroupBox1" Me.Button1.Visible = False
Me.GroupBox1.Size = New System.Drawing.Size(200, 95) '
Me.GroupBox1.TabIndex = 12 'GroupBoxMontag
Me.GroupBox1.TabStop = False '
Me.GroupBox1.Text = "Montag" Me.GroupBoxMontag.Controls.Add(Me.txtMenuMo)
Me.GroupBoxMontag.Controls.Add(Me.pbMontag)
Me.GroupBoxMontag.Controls.Add(Me.cbMontag)
Me.GroupBoxMontag.Controls.Add(Me.txtAltMo)
Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_Mo)
Me.GroupBoxMontag.Controls.Add(Me.rbMenu_Mo)
Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8)
Me.GroupBoxMontag.Name = "GroupBoxMontag"
Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121)
Me.GroupBoxMontag.TabIndex = 12
Me.GroupBoxMontag.TabStop = False
Me.GroupBoxMontag.Text = "Montag"
'
'txtMenuMo
'
Me.txtMenuMo.Location = New System.Drawing.Point(6, 39)
Me.txtMenuMo.Name = "txtMenuMo"
Me.txtMenuMo.Size = New System.Drawing.Size(188, 32)
Me.txtMenuMo.TabIndex = 29
Me.txtMenuMo.Text = "Menutext"
' '
'pbMontag 'pbMontag
' '
Me.pbMontag.Image = Global.AVISO.My.Resources.Resources.documents Me.pbMontag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbMontag.Location = New System.Drawing.Point(61, 19) Me.pbMontag.Location = New System.Drawing.Point(168, 19)
Me.pbMontag.Name = "pbMontag" Me.pbMontag.Name = "pbMontag"
Me.pbMontag.Size = New System.Drawing.Size(26, 26) Me.pbMontag.Size = New System.Drawing.Size(26, 26)
Me.pbMontag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.pbMontag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbMontag.TabIndex = 4 Me.pbMontag.TabIndex = 4
Me.pbMontag.TabStop = False Me.pbMontag.TabStop = False
Me.pbMontag.Visible = False
' '
'cbMontag 'cbMontag
' '
@@ -370,7 +406,7 @@ Partial Class frmEssensbestellungen
Me.txtAltMo._Waehrung = False Me.txtAltMo._Waehrung = False
Me.txtAltMo._WaehrungZeichen = True Me.txtAltMo._WaehrungZeichen = True
Me.txtAltMo.ForeColor = System.Drawing.Color.Black Me.txtAltMo.ForeColor = System.Drawing.Color.Black
Me.txtAltMo.Location = New System.Drawing.Point(0, 65) Me.txtAltMo.Location = New System.Drawing.Point(3, 92)
Me.txtAltMo.MaxLineLength = -1 Me.txtAltMo.MaxLineLength = -1
Me.txtAltMo.MaxLines_Warning = "" Me.txtAltMo.MaxLines_Warning = ""
Me.txtAltMo.MaxLines_Warning_Label = Nothing Me.txtAltMo.MaxLines_Warning_Label = Nothing
@@ -379,17 +415,17 @@ Partial Class frmEssensbestellungen
Me.txtAltMo.TabIndex = 2 Me.txtAltMo.TabIndex = 2
Me.txtAltMo.Visible = False Me.txtAltMo.Visible = False
' '
'rbMenoAlt_Mo 'rbMenuAlt_Mo
' '
Me.rbMenoAlt_Mo.AutoSize = True Me.rbMenuAlt_Mo.AutoSize = True
Me.rbMenoAlt_Mo.GroupName = "GroupBox1" Me.rbMenuAlt_Mo.GroupName = "GroupBox1"
Me.rbMenoAlt_Mo.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Mo.Location = New System.Drawing.Point(6, 74)
Me.rbMenoAlt_Mo.Name = "rbMenoAlt_Mo" Me.rbMenuAlt_Mo.Name = "rbMenuAlt_Mo"
Me.rbMenoAlt_Mo.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Mo.Size = New System.Drawing.Size(70, 17)
Me.rbMenoAlt_Mo.TabIndex = 1 Me.rbMenuAlt_Mo.TabIndex = 1
Me.rbMenoAlt_Mo.TabStop = True Me.rbMenuAlt_Mo.TabStop = True
Me.rbMenoAlt_Mo.Text = "A la carte" Me.rbMenuAlt_Mo.Text = "A la carte"
Me.rbMenoAlt_Mo.UseVisualStyleBackColor = True Me.rbMenuAlt_Mo.UseVisualStyleBackColor = True
' '
'rbMenu_Mo 'rbMenu_Mo
' '
@@ -403,29 +439,39 @@ Partial Class frmEssensbestellungen
Me.rbMenu_Mo.Text = "Menü" Me.rbMenu_Mo.Text = "Menü"
Me.rbMenu_Mo.UseVisualStyleBackColor = True Me.rbMenu_Mo.UseVisualStyleBackColor = True
' '
'GroupBox5 'GroupBoxFreitag
' '
Me.GroupBox5.Controls.Add(Me.pbFreitag) Me.GroupBoxFreitag.Controls.Add(Me.txtMenuFr)
Me.GroupBox5.Controls.Add(Me.cbFreitag) Me.GroupBoxFreitag.Controls.Add(Me.pbFreitag)
Me.GroupBox5.Controls.Add(Me.txtAltFr) Me.GroupBoxFreitag.Controls.Add(Me.cbFreitag)
Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr) Me.GroupBoxFreitag.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenu_Fr) Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_Fr)
Me.GroupBox5.Location = New System.Drawing.Point(225, 109) Me.GroupBoxFreitag.Controls.Add(Me.rbMenu_Fr)
Me.GroupBox5.Name = "GroupBox5" Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135)
Me.GroupBox5.Size = New System.Drawing.Size(200, 95) Me.GroupBoxFreitag.Name = "GroupBoxFreitag"
Me.GroupBox5.TabIndex = 13 Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121)
Me.GroupBox5.TabStop = False Me.GroupBoxFreitag.TabIndex = 13
Me.GroupBox5.Text = "Freitag" Me.GroupBoxFreitag.TabStop = False
Me.GroupBoxFreitag.Text = "Freitag"
'
'txtMenuFr
'
Me.txtMenuFr.Location = New System.Drawing.Point(3, 39)
Me.txtMenuFr.Name = "txtMenuFr"
Me.txtMenuFr.Size = New System.Drawing.Size(188, 32)
Me.txtMenuFr.TabIndex = 32
Me.txtMenuFr.Text = "Menutext"
' '
'pbFreitag 'pbFreitag
' '
Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbFreitag.Location = New System.Drawing.Point(67, 19) Me.pbFreitag.Location = New System.Drawing.Point(168, 19)
Me.pbFreitag.Name = "pbFreitag" Me.pbFreitag.Name = "pbFreitag"
Me.pbFreitag.Size = New System.Drawing.Size(26, 26) Me.pbFreitag.Size = New System.Drawing.Size(26, 26)
Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbFreitag.TabIndex = 8 Me.pbFreitag.TabIndex = 8
Me.pbFreitag.TabStop = False Me.pbFreitag.TabStop = False
Me.pbFreitag.Visible = False
' '
'cbFreitag 'cbFreitag
' '
@@ -452,7 +498,7 @@ Partial Class frmEssensbestellungen
Me.txtAltFr._Waehrung = False Me.txtAltFr._Waehrung = False
Me.txtAltFr._WaehrungZeichen = True Me.txtAltFr._WaehrungZeichen = True
Me.txtAltFr.ForeColor = System.Drawing.Color.Black Me.txtAltFr.ForeColor = System.Drawing.Color.Black
Me.txtAltFr.Location = New System.Drawing.Point(0, 65) Me.txtAltFr.Location = New System.Drawing.Point(-3, 97)
Me.txtAltFr.MaxLineLength = -1 Me.txtAltFr.MaxLineLength = -1
Me.txtAltFr.MaxLines_Warning = "" Me.txtAltFr.MaxLines_Warning = ""
Me.txtAltFr.MaxLines_Warning_Label = Nothing Me.txtAltFr.MaxLines_Warning_Label = Nothing
@@ -465,7 +511,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_Fr.AutoSize = True Me.rbMenuAlt_Fr.AutoSize = True
Me.rbMenuAlt_Fr.GroupName = "Freitag" Me.rbMenuAlt_Fr.GroupName = "Freitag"
Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(0, 78)
Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr" Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr"
Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Fr.TabIndex = 1 Me.rbMenuAlt_Fr.TabIndex = 1
@@ -488,7 +534,7 @@ Partial Class frmEssensbestellungen
'txtAnzahlLaCart 'txtAnzahlLaCart
' '
Me.txtAnzahlLaCart.AutoSize = True Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155) Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162)
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart" Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13) Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlLaCart.TabIndex = 17 Me.txtAnzahlLaCart.TabIndex = 17
@@ -497,7 +543,7 @@ Partial Class frmEssensbestellungen
'lbl2 'lbl2
' '
Me.lbl2.AutoSize = True Me.lbl2.AutoSize = True
Me.lbl2.Location = New System.Drawing.Point(463, 155) Me.lbl2.Location = New System.Drawing.Point(463, 162)
Me.lbl2.Name = "lbl2" Me.lbl2.Name = "lbl2"
Me.lbl2.Size = New System.Drawing.Size(90, 13) Me.lbl2.Size = New System.Drawing.Size(90, 13)
Me.lbl2.TabIndex = 15 Me.lbl2.TabIndex = 15
@@ -505,6 +551,7 @@ Partial Class frmEssensbestellungen
' '
'Mittwoch 'Mittwoch
' '
Me.Mittwoch.Controls.Add(Me.txtMenuMi)
Me.Mittwoch.Controls.Add(Me.pbMittwoch) Me.Mittwoch.Controls.Add(Me.pbMittwoch)
Me.Mittwoch.Controls.Add(Me.cbMittwoch) Me.Mittwoch.Controls.Add(Me.cbMittwoch)
Me.Mittwoch.Controls.Add(Me.txtAltMi) Me.Mittwoch.Controls.Add(Me.txtAltMi)
@@ -512,20 +559,29 @@ Partial Class frmEssensbestellungen
Me.Mittwoch.Controls.Add(Me.rbMenu_Mi) Me.Mittwoch.Controls.Add(Me.rbMenu_Mi)
Me.Mittwoch.Location = New System.Drawing.Point(431, 8) Me.Mittwoch.Location = New System.Drawing.Point(431, 8)
Me.Mittwoch.Name = "Mittwoch" Me.Mittwoch.Name = "Mittwoch"
Me.Mittwoch.Size = New System.Drawing.Size(200, 95) Me.Mittwoch.Size = New System.Drawing.Size(200, 121)
Me.Mittwoch.TabIndex = 13 Me.Mittwoch.TabIndex = 13
Me.Mittwoch.TabStop = False Me.Mittwoch.TabStop = False
Me.Mittwoch.Text = "Mittwoch" Me.Mittwoch.Text = "Mittwoch"
' '
'txtMenuMi
'
Me.txtMenuMi.Location = New System.Drawing.Point(0, 39)
Me.txtMenuMi.Name = "txtMenuMi"
Me.txtMenuMi.Size = New System.Drawing.Size(188, 32)
Me.txtMenuMi.TabIndex = 31
Me.txtMenuMi.Text = "Menutext"
'
'pbMittwoch 'pbMittwoch
' '
Me.pbMittwoch.Image = Global.AVISO.My.Resources.Resources.documents Me.pbMittwoch.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbMittwoch.Location = New System.Drawing.Point(61, 19) Me.pbMittwoch.Location = New System.Drawing.Point(168, 19)
Me.pbMittwoch.Name = "pbMittwoch" Me.pbMittwoch.Name = "pbMittwoch"
Me.pbMittwoch.Size = New System.Drawing.Size(26, 26) Me.pbMittwoch.Size = New System.Drawing.Size(26, 26)
Me.pbMittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.pbMittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbMittwoch.TabIndex = 6 Me.pbMittwoch.TabIndex = 6
Me.pbMittwoch.TabStop = False Me.pbMittwoch.TabStop = False
Me.pbMittwoch.Visible = False
' '
'cbMittwoch 'cbMittwoch
' '
@@ -552,7 +608,7 @@ Partial Class frmEssensbestellungen
Me.txtAltMi._Waehrung = False Me.txtAltMi._Waehrung = False
Me.txtAltMi._WaehrungZeichen = True Me.txtAltMi._WaehrungZeichen = True
Me.txtAltMi.ForeColor = System.Drawing.Color.Black Me.txtAltMi.ForeColor = System.Drawing.Color.Black
Me.txtAltMi.Location = New System.Drawing.Point(0, 65) Me.txtAltMi.Location = New System.Drawing.Point(0, 93)
Me.txtAltMi.MaxLineLength = -1 Me.txtAltMi.MaxLineLength = -1
Me.txtAltMi.MaxLines_Warning = "" Me.txtAltMi.MaxLines_Warning = ""
Me.txtAltMi.MaxLines_Warning_Label = Nothing Me.txtAltMi.MaxLines_Warning_Label = Nothing
@@ -565,7 +621,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_Mi.AutoSize = True Me.rbMenuAlt_Mi.AutoSize = True
Me.rbMenuAlt_Mi.GroupName = "Mittwoch" Me.rbMenuAlt_Mi.GroupName = "Mittwoch"
Me.rbMenuAlt_Mi.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Mi.Location = New System.Drawing.Point(3, 74)
Me.rbMenuAlt_Mi.Name = "rbMenuAlt_Mi" Me.rbMenuAlt_Mi.Name = "rbMenuAlt_Mi"
Me.rbMenuAlt_Mi.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Mi.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Mi.TabIndex = 1 Me.rbMenuAlt_Mi.TabIndex = 1
@@ -585,29 +641,39 @@ Partial Class frmEssensbestellungen
Me.rbMenu_Mi.Text = "Menü" Me.rbMenu_Mi.Text = "Menü"
Me.rbMenu_Mi.UseVisualStyleBackColor = True Me.rbMenu_Mi.UseVisualStyleBackColor = True
' '
'GroupBox4 'GroupBoxDonnerstag
' '
Me.GroupBox4.Controls.Add(Me.pbDonnerstag) Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenuDo)
Me.GroupBox4.Controls.Add(Me.cbDonnerstag) Me.GroupBoxDonnerstag.Controls.Add(Me.pbDonnerstag)
Me.GroupBox4.Controls.Add(Me.txtAltDo) Me.GroupBoxDonnerstag.Controls.Add(Me.cbDonnerstag)
Me.GroupBox4.Controls.Add(Me.rbMenuAlt_Do) Me.GroupBoxDonnerstag.Controls.Add(Me.txtAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenu_Do) Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_Do)
Me.GroupBox4.Location = New System.Drawing.Point(3, 109) Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_Do)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135)
Me.GroupBox4.Size = New System.Drawing.Size(200, 95) Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag"
Me.GroupBox4.TabIndex = 13 Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121)
Me.GroupBox4.TabStop = False Me.GroupBoxDonnerstag.TabIndex = 13
Me.GroupBox4.Text = "Donnerstag" Me.GroupBoxDonnerstag.TabStop = False
Me.GroupBoxDonnerstag.Text = "Donnerstag"
'
'txtMenuDo
'
Me.txtMenuDo.Location = New System.Drawing.Point(3, 39)
Me.txtMenuDo.Name = "txtMenuDo"
Me.txtMenuDo.Size = New System.Drawing.Size(188, 32)
Me.txtMenuDo.TabIndex = 33
Me.txtMenuDo.Text = "Menutext"
' '
'pbDonnerstag 'pbDonnerstag
' '
Me.pbDonnerstag.Image = Global.AVISO.My.Resources.Resources.documents Me.pbDonnerstag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbDonnerstag.Location = New System.Drawing.Point(56, 19) Me.pbDonnerstag.Location = New System.Drawing.Point(171, 19)
Me.pbDonnerstag.Name = "pbDonnerstag" Me.pbDonnerstag.Name = "pbDonnerstag"
Me.pbDonnerstag.Size = New System.Drawing.Size(26, 26) Me.pbDonnerstag.Size = New System.Drawing.Size(26, 26)
Me.pbDonnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.pbDonnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbDonnerstag.TabIndex = 7 Me.pbDonnerstag.TabIndex = 7
Me.pbDonnerstag.TabStop = False Me.pbDonnerstag.TabStop = False
Me.pbDonnerstag.Visible = False
' '
'cbDonnerstag 'cbDonnerstag
' '
@@ -634,7 +700,7 @@ Partial Class frmEssensbestellungen
Me.txtAltDo._Waehrung = False Me.txtAltDo._Waehrung = False
Me.txtAltDo._WaehrungZeichen = True Me.txtAltDo._WaehrungZeichen = True
Me.txtAltDo.ForeColor = System.Drawing.Color.Black Me.txtAltDo.ForeColor = System.Drawing.Color.Black
Me.txtAltDo.Location = New System.Drawing.Point(0, 65) Me.txtAltDo.Location = New System.Drawing.Point(1, 97)
Me.txtAltDo.MaxLineLength = -1 Me.txtAltDo.MaxLineLength = -1
Me.txtAltDo.MaxLines_Warning = "" Me.txtAltDo.MaxLines_Warning = ""
Me.txtAltDo.MaxLines_Warning_Label = Nothing Me.txtAltDo.MaxLines_Warning_Label = Nothing
@@ -647,7 +713,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_Do.AutoSize = True Me.rbMenuAlt_Do.AutoSize = True
Me.rbMenuAlt_Do.GroupName = "Donnerstag" Me.rbMenuAlt_Do.GroupName = "Donnerstag"
Me.rbMenuAlt_Do.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Do.Location = New System.Drawing.Point(4, 78)
Me.rbMenuAlt_Do.Name = "rbMenuAlt_Do" Me.rbMenuAlt_Do.Name = "rbMenuAlt_Do"
Me.rbMenuAlt_Do.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Do.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Do.TabIndex = 1 Me.rbMenuAlt_Do.TabIndex = 1
@@ -670,22 +736,12 @@ Partial Class frmEssensbestellungen
'txtAnzahlMenu 'txtAnzahlMenu
' '
Me.txtAnzahlMenu.AutoSize = True Me.txtAnzahlMenu.AutoSize = True
Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 130) Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137)
Me.txtAnzahlMenu.Name = "txtAnzahlMenu" Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13) Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlMenu.TabIndex = 16 Me.txtAnzahlMenu.TabIndex = 16
Me.txtAnzahlMenu.Text = "0" Me.txtAnzahlMenu.Text = "0"
' '
'Button1
'
Me.Button1.Image = Global.AVISO.My.Resources.Resources.pdf
Me.Button1.Location = New System.Drawing.Point(599, 133)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(54, 57)
Me.Button1.TabIndex = 20
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'dgvBestellungen 'dgvBestellungen
' '
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
@@ -712,7 +768,7 @@ Partial Class frmEssensbestellungen
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvBestellungen.Location = New System.Drawing.Point(16, 313) Me.dgvBestellungen.Location = New System.Drawing.Point(16, 360)
Me.dgvBestellungen.Name = "dgvBestellungen" Me.dgvBestellungen.Name = "dgvBestellungen"
Me.dgvBestellungen.ReadOnly = True Me.dgvBestellungen.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -751,7 +807,7 @@ Partial Class frmEssensbestellungen
' '
'Button2 'Button2
' '
Me.Button2.Location = New System.Drawing.Point(499, 286) Me.Button2.Location = New System.Drawing.Point(499, 323)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(180, 21) Me.Button2.Size = New System.Drawing.Size(180, 21)
Me.Button2.TabIndex = 25 Me.Button2.TabIndex = 25
@@ -794,11 +850,21 @@ Partial Class frmEssensbestellungen
Me.Label1.TabIndex = 28 Me.Label1.TabIndex = 28
Me.Label1.Text = "Menü" Me.Label1.Text = "Menü"
' '
'lblTest
'
Me.lblTest.AutoSize = True
Me.lblTest.ForeColor = System.Drawing.Color.Red
Me.lblTest.Location = New System.Drawing.Point(16, 1)
Me.lblTest.Name = "lblTest"
Me.lblTest.Size = New System.Drawing.Size(0, 13)
Me.lblTest.TabIndex = 29
'
'frmEssensbestellungen 'frmEssensbestellungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(687, 518) Me.ClientSize = New System.Drawing.Size(687, 565)
Me.Controls.Add(Me.lblTest)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.txtMA) Me.Controls.Add(Me.txtMA)
@@ -822,20 +888,20 @@ Partial Class frmEssensbestellungen
Me.Text = "Essensbestellung" Me.Text = "Essensbestellung"
Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout() Me.MyPanel1.PerformLayout()
Me.Dienstag.ResumeLayout(False) Me.GroupBoxDienstag.ResumeLayout(False)
Me.Dienstag.PerformLayout() Me.GroupBoxDienstag.PerformLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False) Me.GroupBoxMontag.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBoxMontag.PerformLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False) Me.GroupBoxFreitag.ResumeLayout(False)
Me.GroupBox5.PerformLayout() Me.GroupBoxFreitag.PerformLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit()
Me.Mittwoch.ResumeLayout(False) Me.Mittwoch.ResumeLayout(False)
Me.Mittwoch.PerformLayout() Me.Mittwoch.PerformLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False) Me.GroupBoxDonnerstag.ResumeLayout(False)
Me.GroupBox4.PerformLayout() Me.GroupBoxDonnerstag.PerformLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -849,11 +915,11 @@ Partial Class frmEssensbestellungen
Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnSave As Button Friend WithEvents btnSave As Button
Friend WithEvents lblDatum As Label Friend WithEvents lblDatum As Label
Friend WithEvents GroupBox1 As GroupBox Friend WithEvents GroupBoxMontag As GroupBox
Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenoAlt_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents Dienstag As GroupBox Friend WithEvents GroupBoxDienstag As GroupBox
Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton
@@ -861,11 +927,11 @@ Partial Class frmEssensbestellungen
Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox4 As GroupBox Friend WithEvents GroupBoxDonnerstag As GroupBox
Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox5 As GroupBox Friend WithEvents GroupBoxFreitag As GroupBox
Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton
@@ -903,4 +969,10 @@ Partial Class frmEssensbestellungen
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
Friend WithEvents PictureBox1 As PictureBox Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents txtMenuDi As Label
Friend WithEvents txtMenuMo As Label
Friend WithEvents txtMenuFr As Label
Friend WithEvents txtMenuMi As Label
Friend WithEvents txtMenuDo As Label
Friend WithEvents lblTest As Label
End Class End Class

91
Aviso/frmEssensbestellungen.vb
View File

@@ -8,7 +8,8 @@ Public Class frmEssensbestellungen
Dim dt As New DataTable Dim dt As New DataTable
Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip() Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
Private ToolTipFont As New Font("Courier New", 12) Private ToolTipFont As New Font("Courier New", 12)
Dim essenMontag As String = "" Dim preisProMahlzeit As Double = 3
Dim menu As String = "Menü:"
@@ -100,7 +101,7 @@ Public Class frmEssensbestellungen
End If End If
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon")) essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
essen.eb_gebaeude = cbxGebauede._value
essen.SAVE() essen.SAVE()
loadDGVBestellungen() loadDGVBestellungen()
@@ -145,14 +146,14 @@ Public Class frmEssensbestellungen
btnSave.Enabled = False btnSave.Enabled = False
End If End If
uncheckGroupBoxes(sender, e) uncheckGroupBoxesAndRadioButtons(sender, e)
loadDGVBestellungen() loadDGVBestellungen()
End Sub End Sub
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged
If rbMenoAlt_Mo.Checked Then If rbMenuAlt_Mo.Checked Then
txtAltMo.Visible = True txtAltMo.Visible = True
Else Else
txtAltMo.Visible = False txtAltMo.Visible = False
@@ -188,10 +189,13 @@ Public Class frmEssensbestellungen
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cbMontag.CheckedChanged, cbDienstag.CheckedChanged, cbMittwoch.CheckedChanged, cbDonnerstag.CheckedChanged, cbFreitag.CheckedChanged Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cbMontag.CheckedChanged, cbDienstag.CheckedChanged, cbMittwoch.CheckedChanged, cbDonnerstag.CheckedChanged, cbFreitag.CheckedChanged
If cbMontag.Checked Then If cbMontag.Checked Then
rbMenoAlt_Mo.Enabled = True rbMenuAlt_Mo.Enabled = True
rbMenu_Mo.Enabled = True rbMenu_Mo.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
rbMenu_Mo.Checked = True
End If
Else Else
rbMenoAlt_Mo.Enabled = False rbMenuAlt_Mo.Enabled = False
rbMenu_Mo.Enabled = False rbMenu_Mo.Enabled = False
txtAltMo.Text = "" txtAltMo.Text = ""
End If End If
@@ -199,6 +203,9 @@ Public Class frmEssensbestellungen
If cbDienstag.Checked Then If cbDienstag.Checked Then
rbMenuAlt_Di.Enabled = True rbMenuAlt_Di.Enabled = True
rbMenu_Di.Enabled = True rbMenu_Di.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
rbMenu_Di.Checked = True
End If
Else Else
rbMenu_Di.Enabled = False rbMenu_Di.Enabled = False
rbMenuAlt_Di.Enabled = False rbMenuAlt_Di.Enabled = False
@@ -208,6 +215,9 @@ Public Class frmEssensbestellungen
If cbMittwoch.Checked Then If cbMittwoch.Checked Then
rbMenuAlt_Mi.Enabled = True rbMenuAlt_Mi.Enabled = True
rbMenu_Mi.Enabled = True rbMenu_Mi.Enabled = True
If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
rbMenu_Mi.Checked = True
End If
Else Else
rbMenu_Mi.Enabled = False rbMenu_Mi.Enabled = False
rbMenuAlt_Mi.Enabled = False rbMenuAlt_Mi.Enabled = False
@@ -218,6 +228,9 @@ Public Class frmEssensbestellungen
If cbDonnerstag.Checked Then If cbDonnerstag.Checked Then
rbMenuAlt_Do.Enabled = True rbMenuAlt_Do.Enabled = True
rbMenu_Do.Enabled = True rbMenu_Do.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
rbMenu_Do.Checked = True
End If
Else Else
rbMenu_Do.Enabled = False rbMenu_Do.Enabled = False
rbMenuAlt_Do.Enabled = False rbMenuAlt_Do.Enabled = False
@@ -227,6 +240,9 @@ Public Class frmEssensbestellungen
If cbFreitag.Checked Then If cbFreitag.Checked Then
rbMenuAlt_Fr.Enabled = True rbMenuAlt_Fr.Enabled = True
rbMenu_Fr.Enabled = True rbMenu_Fr.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
rbMenu_Fr.Checked = True
End If
Else Else
rbMenu_Fr.Enabled = False rbMenu_Fr.Enabled = False
rbMenuAlt_Fr.Enabled = False rbMenuAlt_Fr.Enabled = False
@@ -276,7 +292,7 @@ Public Class frmEssensbestellungen
End Sub End Sub
Private Sub uncheckGroupBoxes(sender, e) Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)
For Each gb As Control In MyPanel1.Controls For Each gb As Control In MyPanel1.Controls
If TypeOf gb Is GroupBox Then If TypeOf gb Is GroupBox Then
For Each c As Control In gb.Controls For Each c As Control In gb.Controls
@@ -284,6 +300,11 @@ Public Class frmEssensbestellungen
Dim checkbox As CheckBox = c Dim checkbox As CheckBox = c
checkbox.Checked = False checkbox.Checked = False
End If End If
If TypeOf c Is RadioButton Then
Dim radiobutton As RadioButton = c
radiobutton.Checked = False
End If
Next Next
End If End If
Next Next
@@ -315,7 +336,7 @@ Public Class frmEssensbestellungen
txtAnzahlMenu.Text = countMenus.ToString() txtAnzahlMenu.Text = countMenus.ToString()
txtAnzahlLaCart.Text = countlaCarte.ToString txtAnzahlLaCart.Text = countlaCarte.ToString
txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * 3 txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit
End Sub End Sub
@@ -323,15 +344,21 @@ Public Class frmEssensbestellungen
Private Sub loadMenuInfo(dt As DataTable) Private Sub loadMenuInfo(dt As DataTable)
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
pbMontag.Visible = True 'pbMontag.Visible = True
rbMenu_Mo.Text = menu
txtMenuMo.Text = dt.Rows(0).Item("MenuEssenMo").ToString
ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString) ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
Else Else
pbMontag.Visible = False pbMontag.Visible = False
txtMenuMo.Text = ""
End If End If
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
pbDienstag.Visible = True 'pbDienstag.Visible = True
rbMenu_Di.Text = menu
txtMenuDi.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString) ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
Else Else
@@ -340,21 +367,27 @@ Public Class frmEssensbestellungen
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
pbMittwoch.Visible = True 'pbMittwoch.Visible = True
rbMenu_Mi.Text = menu
txtMenuMi.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString) ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
Else Else
pbMittwoch.Visible = False pbMittwoch.Visible = False
End If End If
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
pbDonnerstag.Visible = True 'pbDonnerstag.Visible = True
rbMenu_Do.Text = menu
txtMenuDo.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString) ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
Else Else
pbDonnerstag.Visible = False pbDonnerstag.Visible = False
End If End If
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
pbFreitag.Visible = True 'pbFreitag.Visible = True
rbMenu_Fr.Text = menu
txtMenuFr.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString) ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
Else Else
pbFreitag.Visible = False pbFreitag.Visible = False
@@ -368,12 +401,14 @@ Public Class frmEssensbestellungen
Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value) Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value)
cbxMenu.changeItem(currentEssen.eb_kw)
If currentEssen.eb_montag IsNot Nothing Then If currentEssen.eb_montag IsNot Nothing Then
cbMontag.Checked = True cbMontag.Checked = True
If currentEssen.eb_montag.ToString = "Menu" Then If currentEssen.eb_montag.ToString = "Menu" Then
rbMenu_Mo.Checked = True rbMenu_Mo.Checked = True
Else Else
rbMenoAlt_Mo.Checked = True rbMenuAlt_Mo.Checked = True
If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
End If End If
Else Else
@@ -431,7 +466,7 @@ Public Class frmEssensbestellungen
End If End If
cbxGebauede._value = currentEssen.eb_gebaeude cbxGebauede._value = currentEssen.eb_gebaeude.ToString
End Sub End Sub
@@ -466,9 +501,16 @@ Public Class frmEssensbestellungen
Try Try
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon")) Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
Dim tageBisBestellende = 20 '-5
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 newTime As New TimeSpan(14, 30, 0)
Dim timeToOrderLimit = startMenu.AddDays(20) + newTime '-5 Dim timeToOrderLimit = startMenu.AddDays(tageBisBestellende) + newTime
lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString
If Now >= timeToOrderLimit Then If Now >= timeToOrderLimit Then
@@ -499,4 +541,19 @@ Public Class frmEssensbestellungen
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
cbxMenu.changeItem("") cbxMenu.changeItem("")
End Sub 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
End Class End Class