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-11-29 15:15:05 +01:00
parent 4882bdfa18
commit e5909bd403
2 changed files with 690 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

539
Aviso/frmEssensbestellungen.Designer.vb generated
View File

@@ -30,30 +30,35 @@ Partial Class frmEssensbestellungen
Me.btnSave = New System.Windows.Forms.Button() Me.btnSave = New System.Windows.Forms.Button()
Me.lblDatum = New System.Windows.Forms.Label() Me.lblDatum = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
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.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenoAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Dienstag = New System.Windows.Forms.GroupBox()
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.rbMenuAltDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.Mittwoch = New System.Windows.Forms.GroupBox()
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.rbMenuAltMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuMi = 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.GroupBox4 = New System.Windows.Forms.GroupBox()
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.rbMenuAltDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox()
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()
Me.rbMenuFrAlt = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenuAlt_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuFr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.lbl1 = New System.Windows.Forms.Label() Me.lbl1 = New System.Windows.Forms.Label()
Me.lbl2 = New System.Windows.Forms.Label() Me.lbl2 = New System.Windows.Forms.Label()
Me.txtAnzahlMenu = New System.Windows.Forms.Label() Me.txtAnzahlMenu = New System.Windows.Forms.Label()
@@ -64,15 +69,27 @@ Partial Class frmEssensbestellungen
Me.ToolTipInfoDo = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTipInfoDo = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoFr = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTipInfoFr = New System.Windows.Forms.ToolTip(Me.components)
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblAbteilung = New System.Windows.Forms.Label() Me.lblAbteilung = New System.Windows.Forms.Label()
Me.lblGebaeude = New System.Windows.Forms.Label() Me.lblGebaeude = New System.Windows.Forms.Label()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.lblBestellungen = New System.Windows.Forms.Label()
Me.txtPreis = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblBestellungBis = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout() Me.Dienstag.SuspendLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Mittwoch.SuspendLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout() Me.GroupBox4.SuspendLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout() Me.GroupBox5.SuspendLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'lblWochenkarte 'lblWochenkarte
@@ -86,7 +103,7 @@ Partial Class frmEssensbestellungen
' '
'btnSave 'btnSave
' '
Me.btnSave.Location = New System.Drawing.Point(565, 249) Me.btnSave.Location = New System.Drawing.Point(305, 484)
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
@@ -104,17 +121,28 @@ Partial Class frmEssensbestellungen
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.pbMontag)
Me.GroupBox1.Controls.Add(Me.cbMontag) Me.GroupBox1.Controls.Add(Me.cbMontag)
Me.GroupBox1.Controls.Add(Me.txtAltMo) Me.GroupBox1.Controls.Add(Me.txtAltMo)
Me.GroupBox1.Controls.Add(Me.rbMenoAltMo) Me.GroupBox1.Controls.Add(Me.rbMenoAlt_Mo)
Me.GroupBox1.Controls.Add(Me.rbMenuMo) Me.GroupBox1.Controls.Add(Me.rbMenu_Mo)
Me.GroupBox1.Location = New System.Drawing.Point(15, 67) Me.GroupBox1.Location = New System.Drawing.Point(6, 8)
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(200, 95) Me.GroupBox1.Size = New System.Drawing.Size(200, 95)
Me.GroupBox1.TabIndex = 12 Me.GroupBox1.TabIndex = 12
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Montag" Me.GroupBox1.Text = "Montag"
' '
'pbMontag
'
Me.pbMontag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbMontag.Location = New System.Drawing.Point(61, 23)
Me.pbMontag.Name = "pbMontag"
Me.pbMontag.Size = New System.Drawing.Size(17, 13)
Me.pbMontag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbMontag.TabIndex = 4
Me.pbMontag.TabStop = False
'
'cbMontag 'cbMontag
' '
Me.cbMontag.AutoSize = True Me.cbMontag.AutoSize = True
@@ -149,42 +177,53 @@ Partial Class frmEssensbestellungen
Me.txtAltMo.TabIndex = 2 Me.txtAltMo.TabIndex = 2
Me.txtAltMo.Visible = False Me.txtAltMo.Visible = False
' '
'rbMenoAltMo 'rbMenoAlt_Mo
' '
Me.rbMenoAltMo.AutoSize = True Me.rbMenoAlt_Mo.AutoSize = True
Me.rbMenoAltMo.GroupName = "GroupBox1" Me.rbMenoAlt_Mo.GroupName = "GroupBox1"
Me.rbMenoAltMo.Location = New System.Drawing.Point(3, 42) Me.rbMenoAlt_Mo.Location = New System.Drawing.Point(3, 42)
Me.rbMenoAltMo.Name = "rbMenoAltMo" Me.rbMenoAlt_Mo.Name = "rbMenoAlt_Mo"
Me.rbMenoAltMo.Size = New System.Drawing.Size(70, 17) Me.rbMenoAlt_Mo.Size = New System.Drawing.Size(70, 17)
Me.rbMenoAltMo.TabIndex = 1 Me.rbMenoAlt_Mo.TabIndex = 1
Me.rbMenoAltMo.TabStop = True Me.rbMenoAlt_Mo.TabStop = True
Me.rbMenoAltMo.Text = "A la carte" Me.rbMenoAlt_Mo.Text = "A la carte"
Me.rbMenoAltMo.UseVisualStyleBackColor = True Me.rbMenoAlt_Mo.UseVisualStyleBackColor = True
' '
'rbMenuMo 'rbMenu_Mo
' '
Me.rbMenuMo.AutoSize = True Me.rbMenu_Mo.AutoSize = True
Me.rbMenuMo.GroupName = "GroupBox1" Me.rbMenu_Mo.GroupName = "GroupBox1"
Me.rbMenuMo.Location = New System.Drawing.Point(3, 19) Me.rbMenu_Mo.Location = New System.Drawing.Point(3, 19)
Me.rbMenuMo.Name = "rbMenuMo" Me.rbMenu_Mo.Name = "rbMenu_Mo"
Me.rbMenuMo.Size = New System.Drawing.Size(52, 17) Me.rbMenu_Mo.Size = New System.Drawing.Size(52, 17)
Me.rbMenuMo.TabIndex = 0 Me.rbMenu_Mo.TabIndex = 0
Me.rbMenuMo.TabStop = True Me.rbMenu_Mo.TabStop = True
Me.rbMenuMo.Text = "Menü" Me.rbMenu_Mo.Text = "Menü"
Me.rbMenuMo.UseVisualStyleBackColor = True Me.rbMenu_Mo.UseVisualStyleBackColor = True
' '
'GroupBox2 'Dienstag
' '
Me.GroupBox2.Controls.Add(Me.cbDienstag) Me.Dienstag.Controls.Add(Me.pbDienstag)
Me.GroupBox2.Controls.Add(Me.txtAltDi) Me.Dienstag.Controls.Add(Me.cbDienstag)
Me.GroupBox2.Controls.Add(Me.rbMenuAltDi) Me.Dienstag.Controls.Add(Me.txtAltDi)
Me.GroupBox2.Controls.Add(Me.rbMenuDi) Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di)
Me.GroupBox2.Location = New System.Drawing.Point(234, 67) Me.Dienstag.Controls.Add(Me.rbMenu_Di)
Me.GroupBox2.Name = "GroupBox2" Me.Dienstag.Location = New System.Drawing.Point(225, 8)
Me.GroupBox2.Size = New System.Drawing.Size(200, 95) Me.Dienstag.Name = "Dienstag"
Me.GroupBox2.TabIndex = 13 Me.Dienstag.Size = New System.Drawing.Size(200, 95)
Me.GroupBox2.TabStop = False Me.Dienstag.TabIndex = 13
Me.GroupBox2.Text = "Dienstag" Me.Dienstag.TabStop = False
Me.Dienstag.Text = "Dienstag"
'
'pbDienstag
'
Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbDienstag.Location = New System.Drawing.Point(61, 23)
Me.pbDienstag.Name = "pbDienstag"
Me.pbDienstag.Size = New System.Drawing.Size(17, 13)
Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbDienstag.TabIndex = 5
Me.pbDienstag.TabStop = False
' '
'cbDienstag 'cbDienstag
' '
@@ -220,42 +259,53 @@ Partial Class frmEssensbestellungen
Me.txtAltDi.TabIndex = 2 Me.txtAltDi.TabIndex = 2
Me.txtAltDi.Visible = False Me.txtAltDi.Visible = False
' '
'rbMenuAltDi 'rbMenuAlt_Di
' '
Me.rbMenuAltDi.AutoSize = True Me.rbMenuAlt_Di.AutoSize = True
Me.rbMenuAltDi.GroupName = Nothing Me.rbMenuAlt_Di.GroupName = "Dienstag"
Me.rbMenuAltDi.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAltDi.Name = "rbMenuAltDi" Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di"
Me.rbMenuAltDi.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAltDi.TabIndex = 1 Me.rbMenuAlt_Di.TabIndex = 1
Me.rbMenuAltDi.TabStop = True Me.rbMenuAlt_Di.TabStop = True
Me.rbMenuAltDi.Text = "A la carte" Me.rbMenuAlt_Di.Text = "A la carte"
Me.rbMenuAltDi.UseVisualStyleBackColor = True Me.rbMenuAlt_Di.UseVisualStyleBackColor = True
' '
'rbMenuDi 'rbMenu_Di
' '
Me.rbMenuDi.AutoSize = True Me.rbMenu_Di.AutoSize = True
Me.rbMenuDi.GroupName = Nothing Me.rbMenu_Di.GroupName = "Dienstag"
Me.rbMenuDi.Location = New System.Drawing.Point(3, 19) Me.rbMenu_Di.Location = New System.Drawing.Point(3, 19)
Me.rbMenuDi.Name = "rbMenuDi" Me.rbMenu_Di.Name = "rbMenu_Di"
Me.rbMenuDi.Size = New System.Drawing.Size(52, 17) Me.rbMenu_Di.Size = New System.Drawing.Size(52, 17)
Me.rbMenuDi.TabIndex = 0 Me.rbMenu_Di.TabIndex = 0
Me.rbMenuDi.TabStop = True Me.rbMenu_Di.TabStop = True
Me.rbMenuDi.Text = "Menü" Me.rbMenu_Di.Text = "Menü"
Me.rbMenuDi.UseVisualStyleBackColor = True Me.rbMenu_Di.UseVisualStyleBackColor = True
' '
'GroupBox3 'Mittwoch
' '
Me.GroupBox3.Controls.Add(Me.cbMittwoch) Me.Mittwoch.Controls.Add(Me.pbMittwoch)
Me.GroupBox3.Controls.Add(Me.txtAltMi) Me.Mittwoch.Controls.Add(Me.cbMittwoch)
Me.GroupBox3.Controls.Add(Me.rbMenuAltMi) Me.Mittwoch.Controls.Add(Me.txtAltMi)
Me.GroupBox3.Controls.Add(Me.rbMenuMi) Me.Mittwoch.Controls.Add(Me.rbMenuAlt_Mi)
Me.GroupBox3.Location = New System.Drawing.Point(440, 67) Me.Mittwoch.Controls.Add(Me.rbMenu_Mi)
Me.GroupBox3.Name = "GroupBox3" Me.Mittwoch.Location = New System.Drawing.Point(431, 8)
Me.GroupBox3.Size = New System.Drawing.Size(200, 95) Me.Mittwoch.Name = "Mittwoch"
Me.GroupBox3.TabIndex = 13 Me.Mittwoch.Size = New System.Drawing.Size(200, 95)
Me.GroupBox3.TabStop = False Me.Mittwoch.TabIndex = 13
Me.GroupBox3.Text = "Mittwoch" Me.Mittwoch.TabStop = False
Me.Mittwoch.Text = "Mittwoch"
'
'pbMittwoch
'
Me.pbMittwoch.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbMittwoch.Location = New System.Drawing.Point(56, 23)
Me.pbMittwoch.Name = "pbMittwoch"
Me.pbMittwoch.Size = New System.Drawing.Size(17, 13)
Me.pbMittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbMittwoch.TabIndex = 6
Me.pbMittwoch.TabStop = False
' '
'cbMittwoch 'cbMittwoch
' '
@@ -291,43 +341,54 @@ Partial Class frmEssensbestellungen
Me.txtAltMi.TabIndex = 2 Me.txtAltMi.TabIndex = 2
Me.txtAltMi.Visible = False Me.txtAltMi.Visible = False
' '
'rbMenuAltMi 'rbMenuAlt_Mi
' '
Me.rbMenuAltMi.AutoSize = True Me.rbMenuAlt_Mi.AutoSize = True
Me.rbMenuAltMi.GroupName = Nothing Me.rbMenuAlt_Mi.GroupName = "Mittwoch"
Me.rbMenuAltMi.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Mi.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAltMi.Name = "rbMenuAltMi" Me.rbMenuAlt_Mi.Name = "rbMenuAlt_Mi"
Me.rbMenuAltMi.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Mi.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAltMi.TabIndex = 1 Me.rbMenuAlt_Mi.TabIndex = 1
Me.rbMenuAltMi.TabStop = True Me.rbMenuAlt_Mi.TabStop = True
Me.rbMenuAltMi.Text = "A la carte" Me.rbMenuAlt_Mi.Text = "A la carte"
Me.rbMenuAltMi.UseVisualStyleBackColor = True Me.rbMenuAlt_Mi.UseVisualStyleBackColor = True
' '
'rbMenuMi 'rbMenu_Mi
' '
Me.rbMenuMi.AutoSize = True Me.rbMenu_Mi.AutoSize = True
Me.rbMenuMi.GroupName = Nothing Me.rbMenu_Mi.GroupName = "Mittwoch"
Me.rbMenuMi.Location = New System.Drawing.Point(3, 19) Me.rbMenu_Mi.Location = New System.Drawing.Point(3, 19)
Me.rbMenuMi.Name = "rbMenuMi" Me.rbMenu_Mi.Name = "rbMenu_Mi"
Me.rbMenuMi.Size = New System.Drawing.Size(52, 17) Me.rbMenu_Mi.Size = New System.Drawing.Size(52, 17)
Me.rbMenuMi.TabIndex = 0 Me.rbMenu_Mi.TabIndex = 0
Me.rbMenuMi.TabStop = True Me.rbMenu_Mi.TabStop = True
Me.rbMenuMi.Text = "Menü" Me.rbMenu_Mi.Text = "Menü"
Me.rbMenuMi.UseVisualStyleBackColor = True Me.rbMenu_Mi.UseVisualStyleBackColor = True
' '
'GroupBox4 'GroupBox4
' '
Me.GroupBox4.Controls.Add(Me.pbDonnerstag)
Me.GroupBox4.Controls.Add(Me.cbDonnerstag) Me.GroupBox4.Controls.Add(Me.cbDonnerstag)
Me.GroupBox4.Controls.Add(Me.txtAltDo) Me.GroupBox4.Controls.Add(Me.txtAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenuAltDo) Me.GroupBox4.Controls.Add(Me.rbMenuAlt_Do)
Me.GroupBox4.Controls.Add(Me.rbMenuDo) Me.GroupBox4.Controls.Add(Me.rbMenu_Do)
Me.GroupBox4.Location = New System.Drawing.Point(12, 168) Me.GroupBox4.Location = New System.Drawing.Point(3, 109)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(200, 95) Me.GroupBox4.Size = New System.Drawing.Size(200, 95)
Me.GroupBox4.TabIndex = 13 Me.GroupBox4.TabIndex = 13
Me.GroupBox4.TabStop = False Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Donnerstag" Me.GroupBox4.Text = "Donnerstag"
' '
'pbDonnerstag
'
Me.pbDonnerstag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbDonnerstag.Location = New System.Drawing.Point(56, 21)
Me.pbDonnerstag.Name = "pbDonnerstag"
Me.pbDonnerstag.Size = New System.Drawing.Size(17, 13)
Me.pbDonnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbDonnerstag.TabIndex = 7
Me.pbDonnerstag.TabStop = False
'
'cbDonnerstag 'cbDonnerstag
' '
Me.cbDonnerstag.AutoSize = True Me.cbDonnerstag.AutoSize = True
@@ -362,43 +423,54 @@ Partial Class frmEssensbestellungen
Me.txtAltDo.TabIndex = 2 Me.txtAltDo.TabIndex = 2
Me.txtAltDo.Visible = False Me.txtAltDo.Visible = False
' '
'rbMenuAltDo 'rbMenuAlt_Do
' '
Me.rbMenuAltDo.AutoSize = True Me.rbMenuAlt_Do.AutoSize = True
Me.rbMenuAltDo.GroupName = Nothing Me.rbMenuAlt_Do.GroupName = "Donnerstag"
Me.rbMenuAltDo.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Do.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAltDo.Name = "rbMenuAltDo" Me.rbMenuAlt_Do.Name = "rbMenuAlt_Do"
Me.rbMenuAltDo.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Do.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAltDo.TabIndex = 1 Me.rbMenuAlt_Do.TabIndex = 1
Me.rbMenuAltDo.TabStop = True Me.rbMenuAlt_Do.TabStop = True
Me.rbMenuAltDo.Text = "A la carte" Me.rbMenuAlt_Do.Text = "A la carte"
Me.rbMenuAltDo.UseVisualStyleBackColor = True Me.rbMenuAlt_Do.UseVisualStyleBackColor = True
' '
'rbMenuDo 'rbMenu_Do
' '
Me.rbMenuDo.AutoSize = True Me.rbMenu_Do.AutoSize = True
Me.rbMenuDo.GroupName = Nothing Me.rbMenu_Do.GroupName = "Donnerstag"
Me.rbMenuDo.Location = New System.Drawing.Point(3, 19) Me.rbMenu_Do.Location = New System.Drawing.Point(3, 19)
Me.rbMenuDo.Name = "rbMenuDo" Me.rbMenu_Do.Name = "rbMenu_Do"
Me.rbMenuDo.Size = New System.Drawing.Size(52, 17) Me.rbMenu_Do.Size = New System.Drawing.Size(52, 17)
Me.rbMenuDo.TabIndex = 0 Me.rbMenu_Do.TabIndex = 0
Me.rbMenuDo.TabStop = True Me.rbMenu_Do.TabStop = True
Me.rbMenuDo.Text = "Menü" Me.rbMenu_Do.Text = "Menü"
Me.rbMenuDo.UseVisualStyleBackColor = True Me.rbMenu_Do.UseVisualStyleBackColor = True
' '
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Controls.Add(Me.pbFreitag)
Me.GroupBox5.Controls.Add(Me.cbFreitag) Me.GroupBox5.Controls.Add(Me.cbFreitag)
Me.GroupBox5.Controls.Add(Me.txtAltFr) Me.GroupBox5.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenuFrAlt) Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr)
Me.GroupBox5.Controls.Add(Me.rbMenuFr) Me.GroupBox5.Controls.Add(Me.rbMenu_Fr)
Me.GroupBox5.Location = New System.Drawing.Point(234, 168) Me.GroupBox5.Location = New System.Drawing.Point(225, 109)
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(200, 95) Me.GroupBox5.Size = New System.Drawing.Size(200, 95)
Me.GroupBox5.TabIndex = 13 Me.GroupBox5.TabIndex = 13
Me.GroupBox5.TabStop = False Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Freitag" Me.GroupBox5.Text = "Freitag"
' '
'pbFreitag
'
Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbFreitag.Location = New System.Drawing.Point(61, 23)
Me.pbFreitag.Name = "pbFreitag"
Me.pbFreitag.Size = New System.Drawing.Size(17, 13)
Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbFreitag.TabIndex = 8
Me.pbFreitag.TabStop = False
'
'cbFreitag 'cbFreitag
' '
Me.cbFreitag.AutoSize = True Me.cbFreitag.AutoSize = True
@@ -433,34 +505,34 @@ Partial Class frmEssensbestellungen
Me.txtAltFr.TabIndex = 2 Me.txtAltFr.TabIndex = 2
Me.txtAltFr.Visible = False Me.txtAltFr.Visible = False
' '
'rbMenuFrAlt 'rbMenuAlt_Fr
' '
Me.rbMenuFrAlt.AutoSize = True Me.rbMenuAlt_Fr.AutoSize = True
Me.rbMenuFrAlt.GroupName = Nothing Me.rbMenuAlt_Fr.GroupName = "Freitag"
Me.rbMenuFrAlt.Location = New System.Drawing.Point(3, 42) Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42)
Me.rbMenuFrAlt.Name = "rbMenuFrAlt" Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr"
Me.rbMenuFrAlt.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17)
Me.rbMenuFrAlt.TabIndex = 1 Me.rbMenuAlt_Fr.TabIndex = 1
Me.rbMenuFrAlt.TabStop = True Me.rbMenuAlt_Fr.TabStop = True
Me.rbMenuFrAlt.Text = "A la carte" Me.rbMenuAlt_Fr.Text = "A la carte"
Me.rbMenuFrAlt.UseVisualStyleBackColor = True Me.rbMenuAlt_Fr.UseVisualStyleBackColor = True
' '
'rbMenuFr 'rbMenu_Fr
' '
Me.rbMenuFr.AutoSize = True Me.rbMenu_Fr.AutoSize = True
Me.rbMenuFr.GroupName = Nothing Me.rbMenu_Fr.GroupName = "Freitag"
Me.rbMenuFr.Location = New System.Drawing.Point(3, 19) Me.rbMenu_Fr.Location = New System.Drawing.Point(3, 19)
Me.rbMenuFr.Name = "rbMenuFr" Me.rbMenu_Fr.Name = "rbMenu_Fr"
Me.rbMenuFr.Size = New System.Drawing.Size(52, 17) Me.rbMenu_Fr.Size = New System.Drawing.Size(52, 17)
Me.rbMenuFr.TabIndex = 0 Me.rbMenu_Fr.TabIndex = 0
Me.rbMenuFr.TabStop = True Me.rbMenu_Fr.TabStop = True
Me.rbMenuFr.Text = "Menü" Me.rbMenu_Fr.Text = "Menü"
Me.rbMenuFr.UseVisualStyleBackColor = True Me.rbMenu_Fr.UseVisualStyleBackColor = True
' '
'lbl1 'lbl1
' '
Me.lbl1.AutoSize = True Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(472, 187) Me.lbl1.Location = New System.Drawing.Point(463, 128)
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
@@ -469,7 +541,7 @@ Partial Class frmEssensbestellungen
'lbl2 'lbl2
' '
Me.lbl2.AutoSize = True Me.lbl2.AutoSize = True
Me.lbl2.Location = New System.Drawing.Point(472, 214) Me.lbl2.Location = New System.Drawing.Point(463, 155)
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
@@ -478,7 +550,7 @@ Partial Class frmEssensbestellungen
'txtAnzahlMenu 'txtAnzahlMenu
' '
Me.txtAnzahlMenu.AutoSize = True Me.txtAnzahlMenu.AutoSize = True
Me.txtAnzahlMenu.Location = New System.Drawing.Point(562, 189) Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 130)
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
@@ -487,7 +559,7 @@ Partial Class frmEssensbestellungen
'txtAnzahlLaCart 'txtAnzahlLaCart
' '
Me.txtAnzahlLaCart.AutoSize = True Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(562, 214) Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155)
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
@@ -517,8 +589,9 @@ Partial Class frmEssensbestellungen
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvBestellungen.Location = New System.Drawing.Point(12, 298) Me.dgvBestellungen.Location = New System.Drawing.Point(12, 351)
Me.dgvBestellungen.Name = "dgvBestellungen" Me.dgvBestellungen.Name = "dgvBestellungen"
Me.dgvBestellungen.ReadOnly = True
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -527,24 +600,26 @@ Partial Class frmEssensbestellungen
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvBestellungen.Size = New System.Drawing.Size(528, 150) Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBestellungen.ShowEditingIcon = False
Me.dgvBestellungen.Size = New System.Drawing.Size(663, 127)
Me.dgvBestellungen.TabIndex = 2 Me.dgvBestellungen.TabIndex = 2
' '
'MyComboBox1 'cbxMenu
' '
Me.MyComboBox1._allowedValuesFreiText = Nothing Me.cbxMenu._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False Me.cbxMenu._allowFreiText = False
Me.MyComboBox1._value = "" Me.cbxMenu._value = ""
Me.MyComboBox1.FormattingEnabled = True Me.cbxMenu.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(12, 30) Me.cbxMenu.Location = New System.Drawing.Point(12, 30)
Me.MyComboBox1.Name = "MyComboBox1" Me.cbxMenu.Name = "cbxMenu"
Me.MyComboBox1.Size = New System.Drawing.Size(95, 21) Me.cbxMenu.Size = New System.Drawing.Size(95, 21)
Me.MyComboBox1.TabIndex = 0 Me.cbxMenu.TabIndex = 0
' '
'lblAbteilung 'lblAbteilung
' '
Me.lblAbteilung.AutoSize = True Me.lblAbteilung.AutoSize = True
Me.lblAbteilung.Location = New System.Drawing.Point(472, 9) Me.lblAbteilung.Location = New System.Drawing.Point(511, 9)
Me.lblAbteilung.Name = "lblAbteilung" Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(54, 13) Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
Me.lblAbteilung.TabIndex = 18 Me.lblAbteilung.TabIndex = 18
@@ -553,76 +628,143 @@ Partial Class frmEssensbestellungen
'lblGebaeude 'lblGebaeude
' '
Me.lblGebaeude.AutoSize = True Me.lblGebaeude.AutoSize = True
Me.lblGebaeude.Location = New System.Drawing.Point(472, 30) Me.lblGebaeude.Location = New System.Drawing.Point(511, 27)
Me.lblGebaeude.Name = "lblGebaeude" Me.lblGebaeude.Name = "lblGebaeude"
Me.lblGebaeude.Size = New System.Drawing.Size(54, 13) Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
Me.lblGebaeude.TabIndex = 19 Me.lblGebaeude.TabIndex = 19
Me.lblGebaeude.Text = "Gebäude:" Me.lblGebaeude.Text = "Gebäude:"
' '
'MyPanel1
'
Me.MyPanel1.Controls.Add(Me.txtPreis)
Me.MyPanel1.Controls.Add(Me.Label2)
Me.MyPanel1.Controls.Add(Me.Dienstag)
Me.MyPanel1.Controls.Add(Me.lbl1)
Me.MyPanel1.Controls.Add(Me.GroupBox1)
Me.MyPanel1.Controls.Add(Me.GroupBox5)
Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart)
Me.MyPanel1.Controls.Add(Me.lbl2)
Me.MyPanel1.Controls.Add(Me.Mittwoch)
Me.MyPanel1.Controls.Add(Me.GroupBox4)
Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
Me.MyPanel1.Location = New System.Drawing.Point(12, 67)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(667, 240)
Me.MyPanel1.TabIndex = 18
'
'lblBestellungen
'
Me.lblBestellungen.AutoSize = True
Me.lblBestellungen.Location = New System.Drawing.Point(9, 335)
Me.lblBestellungen.Name = "lblBestellungen"
Me.lblBestellungen.Size = New System.Drawing.Size(100, 13)
Me.lblBestellungen.TabIndex = 20
Me.lblBestellungen.Text = "Meine Bestellungen"
'
'txtPreis
'
Me.txtPreis.AutoSize = True
Me.txtPreis.Location = New System.Drawing.Point(553, 181)
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Size = New System.Drawing.Size(13, 13)
Me.txtPreis.TabIndex = 19
Me.txtPreis.Text = "0"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(463, 181)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 13)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Gesamtpreis:"
'
'cbxGebauede
'
Me.cbxGebauede._allowedValuesFreiText = Nothing
Me.cbxGebauede._allowFreiText = False
Me.cbxGebauede._value = ""
Me.cbxGebauede.FormattingEnabled = True
Me.cbxGebauede.Location = New System.Drawing.Point(580, 24)
Me.cbxGebauede.Name = "cbxGebauede"
Me.cbxGebauede.Size = New System.Drawing.Size(95, 21)
Me.cbxGebauede.TabIndex = 21
'
'lblBestellungBis
'
Me.lblBestellungBis.AutoSize = True
Me.lblBestellungBis.Location = New System.Drawing.Point(167, 38)
Me.lblBestellungBis.Name = "lblBestellungBis"
Me.lblBestellungBis.Size = New System.Drawing.Size(114, 13)
Me.lblBestellungBis.TabIndex = 22
Me.lblBestellungBis.Text = "Bestellung möglich bis:"
'
'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(680, 476) Me.ClientSize = New System.Drawing.Size(687, 518)
Me.Controls.Add(Me.lblBestellungBis)
Me.Controls.Add(Me.cbxGebauede)
Me.Controls.Add(Me.lblBestellungen)
Me.Controls.Add(Me.MyPanel1)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.lblGebaeude) Me.Controls.Add(Me.lblGebaeude)
Me.Controls.Add(Me.lblAbteilung) Me.Controls.Add(Me.lblAbteilung)
Me.Controls.Add(Me.txtAnzahlLaCart)
Me.Controls.Add(Me.txtAnzahlMenu)
Me.Controls.Add(Me.lbl2)
Me.Controls.Add(Me.lbl1)
Me.Controls.Add(Me.GroupBox5)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.lblDatum) Me.Controls.Add(Me.lblDatum)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.dgvBestellungen) Me.Controls.Add(Me.dgvBestellungen)
Me.Controls.Add(Me.lblWochenkarte) Me.Controls.Add(Me.lblWochenkarte)
Me.Controls.Add(Me.MyComboBox1) Me.Controls.Add(Me.cbxMenu)
Me.Name = "frmEssensbestellungen" Me.Name = "frmEssensbestellungen"
Me.Text = "Essensbestellung" Me.Text = "Essensbestellung"
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False) CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.PerformLayout() Me.Dienstag.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False) Me.Dienstag.PerformLayout()
Me.GroupBox3.PerformLayout() CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit()
Me.Mittwoch.ResumeLayout(False)
Me.Mittwoch.PerformLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout() Me.GroupBox4.PerformLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False) Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout() Me.GroupBox5.PerformLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
End Sub End Sub
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxMenu As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWochenkarte As Label Friend WithEvents lblWochenkarte As Label
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 GroupBox1 As GroupBox
Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenoAltMo As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenoAlt_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuMo As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox2 As GroupBox Friend WithEvents Dienstag As GroupBox
Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAltDi As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuDi As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox3 As GroupBox Friend WithEvents Mittwoch As GroupBox
Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAltMi As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuMi As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox4 As GroupBox Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAltDo As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuDo As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox5 As GroupBox Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuFrAlt As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenuAlt_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuFr As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents rbMenu_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents lbl1 As Label Friend WithEvents lbl1 As Label
Friend WithEvents lbl2 As Label Friend WithEvents lbl2 As Label
Friend WithEvents txtAnzahlMenu As Label Friend WithEvents txtAnzahlMenu As Label
@@ -639,4 +781,15 @@ Partial Class frmEssensbestellungen
Friend WithEvents cbFreitag As CheckBox Friend WithEvents cbFreitag As CheckBox
Friend WithEvents lblAbteilung As Label Friend WithEvents lblAbteilung As Label
Friend WithEvents lblGebaeude As Label Friend WithEvents lblGebaeude As Label
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents lblBestellungen As Label
Friend WithEvents pbMontag As PictureBox
Friend WithEvents pbDienstag As PictureBox
Friend WithEvents pbMittwoch As PictureBox
Friend WithEvents pbDonnerstag As PictureBox
Friend WithEvents pbFreitag As PictureBox
Friend WithEvents txtPreis As Label
Friend WithEvents Label2 As Label
Friend WithEvents cbxGebauede As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblBestellungBis As Label
End Class End Class

384
Aviso/frmEssensbestellungen.vb
View File

@@ -1,128 +1,432 @@
 Imports Org.BouncyCastle.Asn1.Cms
Imports System.Web.UI.WebControls
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports Spire.Pdf.General.Paper
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmEssensbestellungen Public Class frmEssensbestellungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim essen As New cEssensbestellung() Dim essen As New cEssensbestellung()
Dim dt As New DataTable
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MyComboBox1.fillWithSQL("SELECT MenuTitel from tblEBMenu", False, "AVISO", True) cbxMenu.fillWithSQL("SELECT MenuTitel from tblEBMenu", False, "AVISO", True)
lblGebaeude.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO
lblAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
lblGebaeude.Text = "Gebäude: "
lblAbteilung.Text = "Abteilung: " & 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 Verrechnung", "Verag Verrechnung"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
End Sub End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, "Test", cAllgemein.ABTEILUNG)
If cbMontag.Checked Then If cbMontag.Checked Then
IIf(rbMenuMo.Checked, essen.eb_montag = "Menu", essen.eb_montag = txtAltMo.ToString) If rbMenu_Mo.Checked Then
essen.eb_montag = "Menu"
Else
essen.eb_montag = txtAltMo.Text.ToString
End If
Else Else
essen.eb_montag = Nothing essen.eb_montag = Nothing
End If End If
If cbDienstag.Checked Then If cbDienstag.Checked Then
IIf(rbMenuDi.Checked, essen.eb_dienstag = "Menu", essen.eb_dienstag = txtAltMo.ToString) If rbMenu_Di.Checked Then
essen.eb_dienstag = "Menu"
Else
essen.eb_dienstag = txtAltDi.Text.ToString
End If
Else Else
essen.eb_dienstag = Nothing essen.eb_dienstag = Nothing
End If End If
If cbMittwoch.Checked Then If cbMittwoch.Checked Then
IIf(rbMenuMi.Checked, essen.eb_mittwoch = "Menu", essen.eb_mittwoch = txtAltMo.ToString) If rbMenu_Mi.Checked Then
essen.eb_mittwoch = "Menu"
Else
essen.eb_mittwoch = txtAltMi.Text.ToString
End If
Else Else
essen.eb_mittwoch = Nothing essen.eb_mittwoch = Nothing
End If End If
If cbDonnerstag.Checked Then If cbDonnerstag.Checked Then
IIf(rbMenuDo.Checked, essen.eb_donnerstag = "Menu", essen.eb_donnerstag = txtAltMo.ToString) If rbMenu_Do.Checked Then
essen.eb_donnerstag = "Menu"
Else
essen.eb_donnerstag = txtAltDo.Text.ToString
End If
Else Else
essen.eb_donnerstag = Nothing essen.eb_donnerstag = Nothing
End If End If
If cbFreitag.Checked Then If cbFreitag.Checked Then
IIf(rbMenuFr.Checked, essen.eb_freitag = "Menu", essen.eb_freitag = txtAltMo.ToString) If rbMenu_Fr.Checked Then
essen.eb_freitag = "Menu"
Else
essen.eb_freitag = txtAltFr.Text.ToString
End If
Else Else
essen.eb_freitag = Nothing essen.eb_freitag = Nothing
End If End If
If txtPreis.Text IsNot "" Then
essen.eb_preis = CDbl(txtPreis.Text)
End If
essen.SAVE() essen.SAVE()
loadDGVBestellungen()
End Sub End Sub
Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged Private Sub cbxMenu_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMenu.SelectedValueChanged
essen = New cEssensbestellung(MyComboBox1._value, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG)
Dim dt As New DataTable dt.Clear()
dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True) dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & cbxMenu._value & "'", "AVISO", 100, True)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
If checkIfOrderIsPossible() Then
MyPanel1.Enabled = True
Else
MyPanel1.Enabled = True
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 btnSave.Enabled = True
Else Else
btnSave.Enabled = False btnSave.Enabled = False
End If End If
uncheckGroupBoxes(sender, e)
loadDGVBestellungen()
End Sub End Sub
Private Sub rbMenoAltMo_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAltMo.CheckedChanged 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
If rbMenoAlt_Mo.Checked Then
txtAltMo.Visible = True
Else
txtAltMo.Visible = False
End If
If rbMenuAlt_Di.Checked Then
txtAltDi.Visible = True
Else
txtAltDi.Visible = False
End If
If rbMenuAlt_Mi.Checked Then
txtAltMi.Visible = True
Else
txtAltMi.Visible = False
End If
If rbMenuAlt_Do.Checked Then
txtAltDo.Visible = True
Else
txtAltDo.Visible = False
End If
If rbMenuAlt_Fr.Checked Then
txtAltFr.Visible = True
Else
txtAltFr.Visible = False
End If
countChecks()
End Sub End Sub
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
rbMenoAltMo.Enabled = True rbMenoAlt_Mo.Enabled = True
rbMenuMo.Enabled = True rbMenu_Mo.Enabled = True
Else Else
rbMenoAltMo.Enabled = False rbMenoAlt_Mo.Enabled = False
rbMenoAltMo.Enabled = False rbMenu_Mo.Enabled = False
txtAltMo.Text = ""
End If End If
If cbDienstag.Checked Then If cbDienstag.Checked Then
rbMenuAltDi.Enabled = True rbMenuAlt_Di.Enabled = True
rbMenuDi.Enabled = True rbMenu_Di.Enabled = True
Else Else
rbMenuDi.Enabled = False rbMenu_Di.Enabled = False
rbMenuAltDi.Enabled = False rbMenuAlt_Di.Enabled = False
txtAltDi.Text = ""
End If End If
If cbMittwoch.Checked Then If cbMittwoch.Checked Then
rbMenuAltMi.Enabled = True rbMenuAlt_Mi.Enabled = True
rbMenuMi.Enabled = True rbMenu_Mi.Enabled = True
Else Else
rbMenuMi.Enabled = False rbMenu_Mi.Enabled = False
rbMenuAltMi.Enabled = False rbMenuAlt_Mi.Enabled = False
txtAltMi.Text = ""
End If End If
If cbDonnerstag.Checked Then If cbDonnerstag.Checked Then
rbMenuAltDo.Enabled = True rbMenuAlt_Do.Enabled = True
rbMenuDo.Enabled = True rbMenu_Do.Enabled = True
Else Else
rbMenuDo.Enabled = False rbMenu_Do.Enabled = False
rbMenuAltDo.Enabled = False rbMenuAlt_Do.Enabled = False
txtAltDo.Text = ""
End If End If
If cbFreitag.Checked Then If cbFreitag.Checked Then
rbMenuFrAlt.Enabled = True rbMenuAlt_Fr.Enabled = True
rbMenuFr.Enabled = True rbMenu_Fr.Enabled = True
Else Else
rbMenuFr.Enabled = False rbMenu_Fr.Enabled = False
rbMenuFrAlt.Enabled = False rbMenuAlt_Fr.Enabled = False
txtAltFr.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] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
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_gebaeude").Visible = False
.Columns("eb_abteilung").Visible = False
.Columns("eb_montag").Width = 100
.Columns("eb_montag").HeaderText = "Montag"
.Columns("eb_montag").Width = 100
.Columns("eb_dienstag").HeaderText = "Dienstag"
.Columns("eb_dienstag").Width = 100
.Columns("eb_mittwoch").HeaderText = "Mittwoch"
.Columns("eb_mittwoch").Width = 100
.Columns("eb_donnerstag").HeaderText = "Donnerstag"
.Columns("eb_donnerstag").Width = 100
.Columns("eb_freitag").HeaderText = "Freitag"
.Columns("eb_freitag").Width = 100
.Columns("eb_preis").HeaderText = "Preis"
.Columns("eb_preis").Width = 40
End With
End Sub
Private Sub uncheckGroupBoxes(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
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)) * 3
End Sub
Private Sub loadMenuInfo(dt As DataTable)
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
pbMontag.Visible = True
Dim ttMontag As New ToolTip()
ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
Else
pbMontag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
pbDienstag.Visible = True
Dim ttDienstag As New ToolTip()
ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
Else
pbDienstag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
pbMittwoch.Visible = True
Dim ttMittwoch As New ToolTip()
ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
Else
pbMittwoch.Visible = False
End If
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
pbDonnerstag.Visible = True
Dim ttDonnerstag As New ToolTip()
ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
Else
pbDonnerstag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
pbFreitag.Visible = True
Dim ttFreitag As New ToolTip()
ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
Else
pbFreitag.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)
If currentEssen.eb_montag IsNot Nothing Then
cbMontag.Checked = True
If currentEssen.eb_montag.ToString = "Menu" Then
rbMenu_Mo.Checked = True
Else
rbMenoAlt_Mo.Checked = True
If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
End If
Else
cbMontag.Checked = False
End If
If currentEssen.eb_dienstag IsNot Nothing Then
cbDienstag.Checked = True
If currentEssen.eb_dienstag.ToString = "Menu" Then
rbMenu_Di.Checked = True
Else
rbMenuAlt_Di.Checked = True
If currentEssen.eb_dienstag IsNot Nothing Then txtAltDi.Text = currentEssen.eb_dienstag.ToString
End If
Else
cbDienstag.Checked = False
End If
If currentEssen.eb_mittwoch IsNot Nothing Then
cbMittwoch.Checked = True
If currentEssen.eb_mittwoch.ToString = "Menu" Then
rbMenu_Mi.Checked = True
Else
rbMenuAlt_Mi.Checked = True
If currentEssen.eb_mittwoch IsNot Nothing Then txtAltMi.Text = currentEssen.eb_mittwoch.ToString
End If
Else
cbMittwoch.Checked = False
End If
If currentEssen.eb_donnerstag IsNot Nothing Then
cbDonnerstag.Checked = True
If currentEssen.eb_donnerstag.ToString = "Menu" Then
rbMenu_Do.Checked = True
Else
rbMenuAlt_Do.Checked = True
If currentEssen.eb_donnerstag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_donnerstag.ToString
End If
Else
cbMittwoch.Checked = False
End If
If currentEssen.eb_freitag IsNot Nothing Then
cbFreitag.Checked = True
If currentEssen.eb_freitag.ToString = "Menu" Then
rbMenu_Fr.Checked = True
Else
rbMenuAlt_Fr.Checked = True
If currentEssen.eb_freitag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_freitag.ToString
End If
Else
cbFreitag.Checked = False
End If End If
End Sub End Sub
Private Function checkIfOrderIsPossible() As Boolean
Dim isPossible As Boolean = False
If dt.Rows.Count = 0 Then Return False
Try
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
Dim newTime As New TimeSpan(14, 30, 0)
Dim timeToOrderLimit = startMenu.AddDays(-5) + newTime
lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString
If Now >= timeToOrderLimit Then
lblBestellungBis.ForeColor = Color.Red
Return True
Else
lblBestellungBis.ForeColor = Color.Black
Return True
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
End Class End Class