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 17:25:00 +01:00
parent 340fdc57c0
commit d0f4c450fb
2 changed files with 336 additions and 330 deletions
Download Patch File Download Diff File Expand all files Collapse all files

660
Aviso/frmEssensbestellungen.Designer.vb generated
View File

@@ -23,24 +23,46 @@ Partial Class frmEssensbestellungen
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.lblWochenkarte = New System.Windows.Forms.Label()
Me.btnSave = New System.Windows.Forms.Button()
Me.lblDatum = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.pbMontag = New System.Windows.Forms.PictureBox()
Me.cbMontag = New System.Windows.Forms.CheckBox()
Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenoAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.ToolTipInfoMo = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoDi = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoMi = 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.lblAbteilung = New System.Windows.Forms.Label()
Me.lblGebaeude = New System.Windows.Forms.Label()
Me.lblBestellungen = New System.Windows.Forms.Label()
Me.lblBestellungBis = New System.Windows.Forms.Label()
Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.txtPreis = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Dienstag = New System.Windows.Forms.GroupBox()
Me.pbDienstag = New System.Windows.Forms.PictureBox()
Me.cbDienstag = New System.Windows.Forms.CheckBox()
Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_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.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.pbMontag = New System.Windows.Forms.PictureBox()
Me.cbMontag = New System.Windows.Forms.CheckBox()
Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenoAlt_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.pbFreitag = New System.Windows.Forms.PictureBox()
Me.cbFreitag = New System.Windows.Forms.CheckBox()
Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
Me.lbl2 = New System.Windows.Forms.Label()
Me.Mittwoch = New System.Windows.Forms.GroupBox()
Me.pbMittwoch = New System.Windows.Forms.PictureBox()
Me.cbMittwoch = New System.Windows.Forms.CheckBox()
@@ -53,43 +75,21 @@ Partial Class frmEssensbestellungen
Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Do = 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.pbFreitag = New System.Windows.Forms.PictureBox()
Me.cbFreitag = New System.Windows.Forms.CheckBox()
Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Fr = 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.lbl2 = New System.Windows.Forms.Label()
Me.txtAnzahlMenu = New System.Windows.Forms.Label()
Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
Me.ToolTipInfoMo = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoDi = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoMi = 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.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblAbteilung = 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()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.Dienstag.SuspendLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Mittwoch.SuspendLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout()
'
'lblWochenkarte
@@ -119,6 +119,180 @@ Partial Class frmEssensbestellungen
Me.lblDatum.TabIndex = 11
Me.lblDatum.Text = "Datum:"
'
'lblAbteilung
'
Me.lblAbteilung.AutoSize = True
Me.lblAbteilung.Location = New System.Drawing.Point(511, 9)
Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
Me.lblAbteilung.TabIndex = 18
Me.lblAbteilung.Text = "Abteilung:"
'
'lblGebaeude
'
Me.lblGebaeude.AutoSize = True
Me.lblGebaeude.Location = New System.Drawing.Point(511, 27)
Me.lblGebaeude.Name = "lblGebaeude"
Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
Me.lblGebaeude.TabIndex = 19
Me.lblGebaeude.Text = "Gebäude:"
'
'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"
'
'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:"
'
'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
'
'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
'
'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:"
'
'Dienstag
'
Me.Dienstag.Controls.Add(Me.pbDienstag)
Me.Dienstag.Controls.Add(Me.cbDienstag)
Me.Dienstag.Controls.Add(Me.txtAltDi)
Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di)
Me.Dienstag.Controls.Add(Me.rbMenu_Di)
Me.Dienstag.Location = New System.Drawing.Point(225, 8)
Me.Dienstag.Name = "Dienstag"
Me.Dienstag.Size = New System.Drawing.Size(200, 95)
Me.Dienstag.TabIndex = 13
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
'
Me.cbDienstag.AutoSize = True
Me.cbDienstag.Location = New System.Drawing.Point(0, 0)
Me.cbDienstag.Name = "cbDienstag"
Me.cbDienstag.Size = New System.Drawing.Size(68, 17)
Me.cbDienstag.TabIndex = 4
Me.cbDienstag.Text = "Dienstag"
Me.cbDienstag.UseVisualStyleBackColor = True
'
'txtAltDi
'
Me.txtAltDi._DateTimeOnly = False
Me.txtAltDi._numbersOnly = False
Me.txtAltDi._numbersOnlyKommastellen = ""
Me.txtAltDi._numbersOnlyTrennzeichen = True
Me.txtAltDi._Prozent = False
Me.txtAltDi._ShortDateNew = False
Me.txtAltDi._ShortDateOnly = False
Me.txtAltDi._TimeOnly = False
Me.txtAltDi._TimeOnly_Seconds = False
Me.txtAltDi._value = ""
Me.txtAltDi._Waehrung = False
Me.txtAltDi._WaehrungZeichen = True
Me.txtAltDi.ForeColor = System.Drawing.Color.Black
Me.txtAltDi.Location = New System.Drawing.Point(0, 65)
Me.txtAltDi.MaxLineLength = -1
Me.txtAltDi.MaxLines_Warning = ""
Me.txtAltDi.MaxLines_Warning_Label = Nothing
Me.txtAltDi.Name = "txtAltDi"
Me.txtAltDi.Size = New System.Drawing.Size(177, 20)
Me.txtAltDi.TabIndex = 2
Me.txtAltDi.Visible = False
'
'rbMenuAlt_Di
'
Me.rbMenuAlt_Di.AutoSize = True
Me.rbMenuAlt_Di.GroupName = "Dienstag"
Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di"
Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Di.TabIndex = 1
Me.rbMenuAlt_Di.TabStop = True
Me.rbMenuAlt_Di.Text = "A la carte"
Me.rbMenuAlt_Di.UseVisualStyleBackColor = True
'
'rbMenu_Di
'
Me.rbMenu_Di.AutoSize = True
Me.rbMenu_Di.GroupName = "Dienstag"
Me.rbMenu_Di.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Di.Name = "rbMenu_Di"
Me.rbMenu_Di.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Di.TabIndex = 0
Me.rbMenu_Di.TabStop = True
Me.rbMenu_Di.Text = "Menü"
Me.rbMenu_Di.UseVisualStyleBackColor = True
'
'lbl1
'
Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(463, 128)
Me.lbl1.Name = "lbl1"
Me.lbl1.Size = New System.Drawing.Size(72, 13)
Me.lbl1.TabIndex = 14
Me.lbl1.Text = "Anzahl Menü:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.pbMontag)
@@ -201,87 +375,105 @@ Partial Class frmEssensbestellungen
Me.rbMenu_Mo.Text = "Menü"
Me.rbMenu_Mo.UseVisualStyleBackColor = True
'
'Dienstag
'GroupBox5
'
Me.Dienstag.Controls.Add(Me.pbDienstag)
Me.Dienstag.Controls.Add(Me.cbDienstag)
Me.Dienstag.Controls.Add(Me.txtAltDi)
Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di)
Me.Dienstag.Controls.Add(Me.rbMenu_Di)
Me.Dienstag.Location = New System.Drawing.Point(225, 8)
Me.Dienstag.Name = "Dienstag"
Me.Dienstag.Size = New System.Drawing.Size(200, 95)
Me.Dienstag.TabIndex = 13
Me.Dienstag.TabStop = False
Me.Dienstag.Text = "Dienstag"
Me.GroupBox5.Controls.Add(Me.pbFreitag)
Me.GroupBox5.Controls.Add(Me.cbFreitag)
Me.GroupBox5.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr)
Me.GroupBox5.Controls.Add(Me.rbMenu_Fr)
Me.GroupBox5.Location = New System.Drawing.Point(225, 109)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(200, 95)
Me.GroupBox5.TabIndex = 13
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Freitag"
'
'pbDienstag
'pbFreitag
'
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
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
'
'cbDienstag
'cbFreitag
'
Me.cbDienstag.AutoSize = True
Me.cbDienstag.Location = New System.Drawing.Point(0, 0)
Me.cbDienstag.Name = "cbDienstag"
Me.cbDienstag.Size = New System.Drawing.Size(68, 17)
Me.cbDienstag.TabIndex = 4
Me.cbDienstag.Text = "Dienstag"
Me.cbDienstag.UseVisualStyleBackColor = True
Me.cbFreitag.AutoSize = True
Me.cbFreitag.Location = New System.Drawing.Point(3, 0)
Me.cbFreitag.Name = "cbFreitag"
Me.cbFreitag.Size = New System.Drawing.Size(58, 17)
Me.cbFreitag.TabIndex = 6
Me.cbFreitag.Text = "Freitag"
Me.cbFreitag.UseVisualStyleBackColor = True
'
'txtAltDi
'txtAltFr
'
Me.txtAltDi._DateTimeOnly = False
Me.txtAltDi._numbersOnly = False
Me.txtAltDi._numbersOnlyKommastellen = ""
Me.txtAltDi._numbersOnlyTrennzeichen = True
Me.txtAltDi._Prozent = False
Me.txtAltDi._ShortDateNew = False
Me.txtAltDi._ShortDateOnly = False
Me.txtAltDi._TimeOnly = False
Me.txtAltDi._TimeOnly_Seconds = False
Me.txtAltDi._value = ""
Me.txtAltDi._Waehrung = False
Me.txtAltDi._WaehrungZeichen = True
Me.txtAltDi.ForeColor = System.Drawing.Color.Black
Me.txtAltDi.Location = New System.Drawing.Point(0, 65)
Me.txtAltDi.MaxLineLength = -1
Me.txtAltDi.MaxLines_Warning = ""
Me.txtAltDi.MaxLines_Warning_Label = Nothing
Me.txtAltDi.Name = "txtAltDi"
Me.txtAltDi.Size = New System.Drawing.Size(177, 20)
Me.txtAltDi.TabIndex = 2
Me.txtAltDi.Visible = False
Me.txtAltFr._DateTimeOnly = False
Me.txtAltFr._numbersOnly = False
Me.txtAltFr._numbersOnlyKommastellen = ""
Me.txtAltFr._numbersOnlyTrennzeichen = True
Me.txtAltFr._Prozent = False
Me.txtAltFr._ShortDateNew = False
Me.txtAltFr._ShortDateOnly = False
Me.txtAltFr._TimeOnly = False
Me.txtAltFr._TimeOnly_Seconds = False
Me.txtAltFr._value = ""
Me.txtAltFr._Waehrung = False
Me.txtAltFr._WaehrungZeichen = True
Me.txtAltFr.ForeColor = System.Drawing.Color.Black
Me.txtAltFr.Location = New System.Drawing.Point(0, 65)
Me.txtAltFr.MaxLineLength = -1
Me.txtAltFr.MaxLines_Warning = ""
Me.txtAltFr.MaxLines_Warning_Label = Nothing
Me.txtAltFr.Name = "txtAltFr"
Me.txtAltFr.Size = New System.Drawing.Size(177, 20)
Me.txtAltFr.TabIndex = 2
Me.txtAltFr.Visible = False
'
'rbMenuAlt_Di
'rbMenuAlt_Fr
'
Me.rbMenuAlt_Di.AutoSize = True
Me.rbMenuAlt_Di.GroupName = "Dienstag"
Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di"
Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Di.TabIndex = 1
Me.rbMenuAlt_Di.TabStop = True
Me.rbMenuAlt_Di.Text = "A la carte"
Me.rbMenuAlt_Di.UseVisualStyleBackColor = True
Me.rbMenuAlt_Fr.AutoSize = True
Me.rbMenuAlt_Fr.GroupName = "Freitag"
Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr"
Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Fr.TabIndex = 1
Me.rbMenuAlt_Fr.TabStop = True
Me.rbMenuAlt_Fr.Text = "A la carte"
Me.rbMenuAlt_Fr.UseVisualStyleBackColor = True
'
'rbMenu_Di
'rbMenu_Fr
'
Me.rbMenu_Di.AutoSize = True
Me.rbMenu_Di.GroupName = "Dienstag"
Me.rbMenu_Di.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Di.Name = "rbMenu_Di"
Me.rbMenu_Di.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Di.TabIndex = 0
Me.rbMenu_Di.TabStop = True
Me.rbMenu_Di.Text = "Menü"
Me.rbMenu_Di.UseVisualStyleBackColor = True
Me.rbMenu_Fr.AutoSize = True
Me.rbMenu_Fr.GroupName = "Freitag"
Me.rbMenu_Fr.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Fr.Name = "rbMenu_Fr"
Me.rbMenu_Fr.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Fr.TabIndex = 0
Me.rbMenu_Fr.TabStop = True
Me.rbMenu_Fr.Text = "Menü"
Me.rbMenu_Fr.UseVisualStyleBackColor = True
'
'txtAnzahlLaCart
'
Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155)
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlLaCart.TabIndex = 17
Me.txtAnzahlLaCart.Text = "0"
'
'lbl2
'
Me.lbl2.AutoSize = True
Me.lbl2.Location = New System.Drawing.Point(463, 155)
Me.lbl2.Name = "lbl2"
Me.lbl2.Size = New System.Drawing.Size(90, 13)
Me.lbl2.TabIndex = 15
Me.lbl2.Text = "Anzahl a la Carte:"
'
'Mittwoch
'
@@ -447,106 +639,6 @@ Partial Class frmEssensbestellungen
Me.rbMenu_Do.Text = "Menü"
Me.rbMenu_Do.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.pbFreitag)
Me.GroupBox5.Controls.Add(Me.cbFreitag)
Me.GroupBox5.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr)
Me.GroupBox5.Controls.Add(Me.rbMenu_Fr)
Me.GroupBox5.Location = New System.Drawing.Point(225, 109)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(200, 95)
Me.GroupBox5.TabIndex = 13
Me.GroupBox5.TabStop = False
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
'
Me.cbFreitag.AutoSize = True
Me.cbFreitag.Location = New System.Drawing.Point(3, 0)
Me.cbFreitag.Name = "cbFreitag"
Me.cbFreitag.Size = New System.Drawing.Size(58, 17)
Me.cbFreitag.TabIndex = 6
Me.cbFreitag.Text = "Freitag"
Me.cbFreitag.UseVisualStyleBackColor = True
'
'txtAltFr
'
Me.txtAltFr._DateTimeOnly = False
Me.txtAltFr._numbersOnly = False
Me.txtAltFr._numbersOnlyKommastellen = ""
Me.txtAltFr._numbersOnlyTrennzeichen = True
Me.txtAltFr._Prozent = False
Me.txtAltFr._ShortDateNew = False
Me.txtAltFr._ShortDateOnly = False
Me.txtAltFr._TimeOnly = False
Me.txtAltFr._TimeOnly_Seconds = False
Me.txtAltFr._value = ""
Me.txtAltFr._Waehrung = False
Me.txtAltFr._WaehrungZeichen = True
Me.txtAltFr.ForeColor = System.Drawing.Color.Black
Me.txtAltFr.Location = New System.Drawing.Point(0, 65)
Me.txtAltFr.MaxLineLength = -1
Me.txtAltFr.MaxLines_Warning = ""
Me.txtAltFr.MaxLines_Warning_Label = Nothing
Me.txtAltFr.Name = "txtAltFr"
Me.txtAltFr.Size = New System.Drawing.Size(177, 20)
Me.txtAltFr.TabIndex = 2
Me.txtAltFr.Visible = False
'
'rbMenuAlt_Fr
'
Me.rbMenuAlt_Fr.AutoSize = True
Me.rbMenuAlt_Fr.GroupName = "Freitag"
Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr"
Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Fr.TabIndex = 1
Me.rbMenuAlt_Fr.TabStop = True
Me.rbMenuAlt_Fr.Text = "A la carte"
Me.rbMenuAlt_Fr.UseVisualStyleBackColor = True
'
'rbMenu_Fr
'
Me.rbMenu_Fr.AutoSize = True
Me.rbMenu_Fr.GroupName = "Freitag"
Me.rbMenu_Fr.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Fr.Name = "rbMenu_Fr"
Me.rbMenu_Fr.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Fr.TabIndex = 0
Me.rbMenu_Fr.TabStop = True
Me.rbMenu_Fr.Text = "Menü"
Me.rbMenu_Fr.UseVisualStyleBackColor = True
'
'lbl1
'
Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(463, 128)
Me.lbl1.Name = "lbl1"
Me.lbl1.Size = New System.Drawing.Size(72, 13)
Me.lbl1.TabIndex = 14
Me.lbl1.Text = "Anzahl Menü:"
'
'lbl2
'
Me.lbl2.AutoSize = True
Me.lbl2.Location = New System.Drawing.Point(463, 155)
Me.lbl2.Name = "lbl2"
Me.lbl2.Size = New System.Drawing.Size(90, 13)
Me.lbl2.TabIndex = 15
Me.lbl2.Text = "Anzahl a la Carte:"
'
'txtAnzahlMenu
'
Me.txtAnzahlMenu.AutoSize = True
@@ -556,15 +648,6 @@ Partial Class frmEssensbestellungen
Me.txtAnzahlMenu.TabIndex = 16
Me.txtAnzahlMenu.Text = "0"
'
'txtAnzahlLaCart
'
Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155)
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlLaCart.TabIndex = 17
Me.txtAnzahlLaCart.Text = "0"
'
'dgvBestellungen
'
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
@@ -572,34 +655,34 @@ Partial Class frmEssensbestellungen
Me.dgvBestellungen.AllowUserToDeleteRows = False
Me.dgvBestellungen.AllowUserToOrderColumns = True
Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvBestellungen.Location = New System.Drawing.Point(12, 351)
Me.dgvBestellungen.Name = "dgvBestellungen"
Me.dgvBestellungen.ReadOnly = True
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
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.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBestellungen.ShowEditingIcon = False
Me.dgvBestellungen.Size = New System.Drawing.Size(663, 127)
@@ -616,89 +699,6 @@ Partial Class frmEssensbestellungen
Me.cbxMenu.Size = New System.Drawing.Size(95, 21)
Me.cbxMenu.TabIndex = 0
'
'lblAbteilung
'
Me.lblAbteilung.AutoSize = True
Me.lblAbteilung.Location = New System.Drawing.Point(511, 9)
Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
Me.lblAbteilung.TabIndex = 18
Me.lblAbteilung.Text = "Abteilung:"
'
'lblGebaeude
'
Me.lblGebaeude.AutoSize = True
Me.lblGebaeude.Location = New System.Drawing.Point(511, 27)
Me.lblGebaeude.Name = "lblGebaeude"
Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
Me.lblGebaeude.TabIndex = 19
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -717,24 +717,24 @@ Partial Class frmEssensbestellungen
Me.Controls.Add(Me.cbxMenu)
Me.Name = "frmEssensbestellungen"
Me.Text = "Essensbestellung"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.Dienstag.ResumeLayout(False)
Me.Dienstag.PerformLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit()
Me.Mittwoch.ResumeLayout(False)
Me.Mittwoch.PerformLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()

6
Aviso/frmEssensbestellungen.vb
View File

@@ -94,6 +94,9 @@ Public Class frmEssensbestellungen
If txtPreis.Text IsNot "" Then
essen.eb_preis = CDbl(txtPreis.Text)
End If
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
essen.SAVE()
loadDGVBestellungen()
@@ -437,4 +440,7 @@ Public Class frmEssensbestellungen
End Function
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_Mo.Click, rbMenu_Di.Click, rbMenu_Mi.Click, rbMenu_Do.Click, rbMenu_Fr.Click
countChecks()
End Sub
End Class