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

Essensbestellung

Browse Source
This commit is contained in:
d.breimaier
2022-11-28 16:50:52 +01:00
parent 068d3d8fb2
commit 926580e58f
5 changed files with 569 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

515
Aviso/frmEssensbestellungen.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmEssensbestellungen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,13 +20,52 @@ Partial Class frmEssensbestellungen
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<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()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblWochenkarte = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnSave = New System.Windows.Forms.Button()
Me.lblDatum = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAltDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuDi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAltMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuMi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAltDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuDo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuFrAlt = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenuFr = 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)
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.SuspendLayout()
'
'MyComboBox1
@@ -35,7 +74,7 @@ Partial Class frmEssensbestellungen
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(15, 60)
Me.MyComboBox1.Location = New System.Drawing.Point(12, 30)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(95, 21)
Me.MyComboBox1.TabIndex = 0
@@ -43,32 +82,435 @@ Partial Class frmEssensbestellungen
'lblWochenkarte
'
Me.lblWochenkarte.AutoSize = True
Me.lblWochenkarte.Location = New System.Drawing.Point(12, 34)
Me.lblWochenkarte.Location = New System.Drawing.Point(12, 14)
Me.lblWochenkarte.Name = "lblWochenkarte"
Me.lblWochenkarte.Size = New System.Drawing.Size(39, 13)
Me.lblWochenkarte.Size = New System.Drawing.Size(34, 13)
Me.lblWochenkarte.TabIndex = 1
Me.lblWochenkarte.Text = "Label1"
Me.lblWochenkarte.Text = "Menü"
'
'MyDatagridview1
'dgvBestellungen
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(252, 31)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(485, 150)
Me.MyDatagridview1.TabIndex = 2
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBestellungen.AllowUserToAddRows = False
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
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
Me.dgvBestellungen.Location = New System.Drawing.Point(12, 298)
Me.dgvBestellungen.Name = "dgvBestellungen"
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
Me.dgvBestellungen.Size = New System.Drawing.Size(528, 150)
Me.dgvBestellungen.TabIndex = 2
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(565, 249)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 10
Me.btnSave.Text = "OK"
Me.btnSave.UseVisualStyleBackColor = True
'
'lblDatum
'
Me.lblDatum.AutoSize = True
Me.lblDatum.Location = New System.Drawing.Point(167, 14)
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Size = New System.Drawing.Size(41, 13)
Me.lblDatum.TabIndex = 11
Me.lblDatum.Text = "Datum:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtAltMo)
Me.GroupBox1.Controls.Add(Me.rbMenoAltMo)
Me.GroupBox1.Controls.Add(Me.rbMenuMo)
Me.GroupBox1.Location = New System.Drawing.Point(15, 67)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(200, 95)
Me.GroupBox1.TabIndex = 12
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Montag"
'
'rbMenuMo
'
Me.rbMenuMo.AutoSize = True
Me.rbMenuMo.GroupName = Nothing
Me.rbMenuMo.Location = New System.Drawing.Point(3, 19)
Me.rbMenuMo.Name = "rbMenuMo"
Me.rbMenuMo.Size = New System.Drawing.Size(52, 17)
Me.rbMenuMo.TabIndex = 0
Me.rbMenuMo.TabStop = True
Me.rbMenuMo.Text = "Menü"
Me.rbMenuMo.UseVisualStyleBackColor = True
'
'rbMenoAltMo
'
Me.rbMenoAltMo.AutoSize = True
Me.rbMenoAltMo.GroupName = Nothing
Me.rbMenoAltMo.Location = New System.Drawing.Point(3, 42)
Me.rbMenoAltMo.Name = "rbMenoAltMo"
Me.rbMenoAltMo.Size = New System.Drawing.Size(70, 17)
Me.rbMenoAltMo.TabIndex = 1
Me.rbMenoAltMo.TabStop = True
Me.rbMenoAltMo.Text = "A la carte"
Me.rbMenoAltMo.UseVisualStyleBackColor = True
'
'txtAltMo
'
Me.txtAltMo._DateTimeOnly = False
Me.txtAltMo._numbersOnly = False
Me.txtAltMo._numbersOnlyKommastellen = ""
Me.txtAltMo._numbersOnlyTrennzeichen = True
Me.txtAltMo._Prozent = False
Me.txtAltMo._ShortDateNew = False
Me.txtAltMo._ShortDateOnly = False
Me.txtAltMo._TimeOnly = False
Me.txtAltMo._TimeOnly_Seconds = False
Me.txtAltMo._value = ""
Me.txtAltMo._Waehrung = False
Me.txtAltMo._WaehrungZeichen = True
Me.txtAltMo.ForeColor = System.Drawing.Color.Black
Me.txtAltMo.Location = New System.Drawing.Point(0, 65)
Me.txtAltMo.MaxLineLength = -1
Me.txtAltMo.MaxLines_Warning = ""
Me.txtAltMo.MaxLines_Warning_Label = Nothing
Me.txtAltMo.Name = "txtAltMo"
Me.txtAltMo.Size = New System.Drawing.Size(177, 20)
Me.txtAltMo.TabIndex = 2
Me.txtAltMo.Visible = False
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.txtAltDi)
Me.GroupBox2.Controls.Add(Me.rbMenuAltDi)
Me.GroupBox2.Controls.Add(Me.rbMenuDi)
Me.GroupBox2.Location = New System.Drawing.Point(234, 67)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(200, 95)
Me.GroupBox2.TabIndex = 13
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dienstag"
'
'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
'
'rbMenuAltDi
'
Me.rbMenuAltDi.AutoSize = True
Me.rbMenuAltDi.GroupName = Nothing
Me.rbMenuAltDi.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAltDi.Name = "rbMenuAltDi"
Me.rbMenuAltDi.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAltDi.TabIndex = 1
Me.rbMenuAltDi.TabStop = True
Me.rbMenuAltDi.Text = "A la carte"
Me.rbMenuAltDi.UseVisualStyleBackColor = True
'
'rbMenuDi
'
Me.rbMenuDi.AutoSize = True
Me.rbMenuDi.GroupName = Nothing
Me.rbMenuDi.Location = New System.Drawing.Point(3, 19)
Me.rbMenuDi.Name = "rbMenuDi"
Me.rbMenuDi.Size = New System.Drawing.Size(52, 17)
Me.rbMenuDi.TabIndex = 0
Me.rbMenuDi.TabStop = True
Me.rbMenuDi.Text = "Menü"
Me.rbMenuDi.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.txtAltMi)
Me.GroupBox3.Controls.Add(Me.rbMenuAltMi)
Me.GroupBox3.Controls.Add(Me.rbMenuMi)
Me.GroupBox3.Location = New System.Drawing.Point(440, 67)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(200, 95)
Me.GroupBox3.TabIndex = 13
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Mittwoch"
'
'txtAltMi
'
Me.txtAltMi._DateTimeOnly = False
Me.txtAltMi._numbersOnly = False
Me.txtAltMi._numbersOnlyKommastellen = ""
Me.txtAltMi._numbersOnlyTrennzeichen = True
Me.txtAltMi._Prozent = False
Me.txtAltMi._ShortDateNew = False
Me.txtAltMi._ShortDateOnly = False
Me.txtAltMi._TimeOnly = False
Me.txtAltMi._TimeOnly_Seconds = False
Me.txtAltMi._value = ""
Me.txtAltMi._Waehrung = False
Me.txtAltMi._WaehrungZeichen = True
Me.txtAltMi.ForeColor = System.Drawing.Color.Black
Me.txtAltMi.Location = New System.Drawing.Point(0, 65)
Me.txtAltMi.MaxLineLength = -1
Me.txtAltMi.MaxLines_Warning = ""
Me.txtAltMi.MaxLines_Warning_Label = Nothing
Me.txtAltMi.Name = "txtAltMi"
Me.txtAltMi.Size = New System.Drawing.Size(177, 20)
Me.txtAltMi.TabIndex = 2
Me.txtAltMi.Visible = False
'
'rbMenuAltMi
'
Me.rbMenuAltMi.AutoSize = True
Me.rbMenuAltMi.GroupName = Nothing
Me.rbMenuAltMi.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAltMi.Name = "rbMenuAltMi"
Me.rbMenuAltMi.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAltMi.TabIndex = 1
Me.rbMenuAltMi.TabStop = True
Me.rbMenuAltMi.Text = "A la carte"
Me.rbMenuAltMi.UseVisualStyleBackColor = True
'
'rbMenuMi
'
Me.rbMenuMi.AutoSize = True
Me.rbMenuMi.GroupName = Nothing
Me.rbMenuMi.Location = New System.Drawing.Point(3, 19)
Me.rbMenuMi.Name = "rbMenuMi"
Me.rbMenuMi.Size = New System.Drawing.Size(52, 17)
Me.rbMenuMi.TabIndex = 0
Me.rbMenuMi.TabStop = True
Me.rbMenuMi.Text = "Menü"
Me.rbMenuMi.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.txtAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenuAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenuDo)
Me.GroupBox4.Location = New System.Drawing.Point(12, 168)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(200, 95)
Me.GroupBox4.TabIndex = 13
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Donnerstag"
'
'txtAltDo
'
Me.txtAltDo._DateTimeOnly = False
Me.txtAltDo._numbersOnly = False
Me.txtAltDo._numbersOnlyKommastellen = ""
Me.txtAltDo._numbersOnlyTrennzeichen = True
Me.txtAltDo._Prozent = False
Me.txtAltDo._ShortDateNew = False
Me.txtAltDo._ShortDateOnly = False
Me.txtAltDo._TimeOnly = False
Me.txtAltDo._TimeOnly_Seconds = False
Me.txtAltDo._value = ""
Me.txtAltDo._Waehrung = False
Me.txtAltDo._WaehrungZeichen = True
Me.txtAltDo.ForeColor = System.Drawing.Color.Black
Me.txtAltDo.Location = New System.Drawing.Point(0, 65)
Me.txtAltDo.MaxLineLength = -1
Me.txtAltDo.MaxLines_Warning = ""
Me.txtAltDo.MaxLines_Warning_Label = Nothing
Me.txtAltDo.Name = "txtAltDo"
Me.txtAltDo.Size = New System.Drawing.Size(177, 20)
Me.txtAltDo.TabIndex = 2
Me.txtAltDo.Visible = False
'
'rbMenuAltDo
'
Me.rbMenuAltDo.AutoSize = True
Me.rbMenuAltDo.GroupName = Nothing
Me.rbMenuAltDo.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAltDo.Name = "rbMenuAltDo"
Me.rbMenuAltDo.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAltDo.TabIndex = 1
Me.rbMenuAltDo.TabStop = True
Me.rbMenuAltDo.Text = "A la carte"
Me.rbMenuAltDo.UseVisualStyleBackColor = True
'
'rbMenuDo
'
Me.rbMenuDo.AutoSize = True
Me.rbMenuDo.GroupName = Nothing
Me.rbMenuDo.Location = New System.Drawing.Point(3, 19)
Me.rbMenuDo.Name = "rbMenuDo"
Me.rbMenuDo.Size = New System.Drawing.Size(52, 17)
Me.rbMenuDo.TabIndex = 0
Me.rbMenuDo.TabStop = True
Me.rbMenuDo.Text = "Menü"
Me.rbMenuDo.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenuFrAlt)
Me.GroupBox5.Controls.Add(Me.rbMenuFr)
Me.GroupBox5.Location = New System.Drawing.Point(234, 168)
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"
'
'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
'
'rbMenuFrAlt
'
Me.rbMenuFrAlt.AutoSize = True
Me.rbMenuFrAlt.GroupName = Nothing
Me.rbMenuFrAlt.Location = New System.Drawing.Point(3, 42)
Me.rbMenuFrAlt.Name = "rbMenuFrAlt"
Me.rbMenuFrAlt.Size = New System.Drawing.Size(70, 17)
Me.rbMenuFrAlt.TabIndex = 1
Me.rbMenuFrAlt.TabStop = True
Me.rbMenuFrAlt.Text = "A la carte"
Me.rbMenuFrAlt.UseVisualStyleBackColor = True
'
'rbMenuFr
'
Me.rbMenuFr.AutoSize = True
Me.rbMenuFr.GroupName = Nothing
Me.rbMenuFr.Location = New System.Drawing.Point(3, 19)
Me.rbMenuFr.Name = "rbMenuFr"
Me.rbMenuFr.Size = New System.Drawing.Size(52, 17)
Me.rbMenuFr.TabIndex = 0
Me.rbMenuFr.TabStop = True
Me.rbMenuFr.Text = "Menü"
Me.rbMenuFr.UseVisualStyleBackColor = True
'
'lbl1
'
Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(472, 187)
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(472, 214)
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
Me.txtAnzahlMenu.Location = New System.Drawing.Point(562, 189)
Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlMenu.TabIndex = 16
Me.txtAnzahlMenu.Text = "0"
'
'txtAnzahlLaCart
'
Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(562, 214)
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlLaCart.TabIndex = 17
Me.txtAnzahlLaCart.Text = "0"
'
'frmEssensbestellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.MyDatagridview1)
Me.ClientSize = New System.Drawing.Size(680, 476)
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.btnSave)
Me.Controls.Add(Me.dgvBestellungen)
Me.Controls.Add(Me.lblWochenkarte)
Me.Controls.Add(Me.MyComboBox1)
Me.Name = "frmEssensbestellungen"
Me.Text = "frmEssensbestellungen"
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Text = "Essensbestellung"
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -76,5 +518,36 @@ Partial Class frmEssensbestellungen
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWochenkarte As Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnSave As Button
Friend WithEvents lblDatum As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenoAltMo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuMo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAltDi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuDi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAltMi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuMi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAltDo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuDo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuFrAlt As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenuFr As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents lbl1 As Label
Friend WithEvents lbl2 As Label
Friend WithEvents txtAnzahlMenu As Label
Friend WithEvents txtAnzahlLaCart As Label
Friend WithEvents ToolTipInfoMo As ToolTip
Friend WithEvents ToolTipInfoDi As ToolTip
Friend WithEvents ToolTipInfoMi As ToolTip
Friend WithEvents ToolTipInfoDo As ToolTip
Friend WithEvents ToolTipInfoFr As ToolTip
End Class

15
Aviso/frmEssensbestellungen.resx
View File

@@ -117,4 +117,19 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTipInfoMo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolTipInfoDi.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>116, 17</value>
</metadata>
<metadata name="ToolTipInfoMi.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>215, 17</value>
</metadata>
<metadata name="ToolTipInfoDo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>314, 17</value>
</metadata>
<metadata name="ToolTipInfoFr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>413, 17</value>
</metadata>
</root>

43
Aviso/frmEssensbestellungen.vb
View File

@@ -1,8 +1,43 @@
Public Class frmEssensbestellungen
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]")

Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports Spire.Pdf.General.Paper
Imports VERAG_PROG_ALLGEMEIN
Public Class frmEssensbestellungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MyComboBox1.fillWithSQL("Select [MenuTitel] from [GMenu]",, "Gastro", True)
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
End Sub
Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged
Dim dt As New DataTable
dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True)
If dt.Rows.Count > 0 Then
btnSave.Enabled = True
Else
btnSave.Enabled = False
End If
End Sub
Private Sub rbMenoAltMo_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAltMo.CheckedChanged
IIf(rbMenoAltMo.Checked, txtAltMo.Visible = True, txtAltMo.Visible = False)
End Sub
End Class

24
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -92,11 +92,11 @@ Partial Class frmHauptfenster
Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TürkischToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KundenVonFremdenSpeditionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -363,6 +363,7 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
Me.EssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout()
@@ -774,6 +775,12 @@ Partial Class frmHauptfenster
Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.TürkischToolStripMenuItem.Text = "Türkisch"
'
'StandarddruckerWechselnToolStripMenuItem
'
Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem"
Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln"
'
'NacherfassungToolStripMenuItem
'
Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem"
@@ -800,15 +807,9 @@ Partial Class frmHauptfenster
Me.LogoutToolStripMenuItem.Text = "Logout"
Me.LogoutToolStripMenuItem.Visible = False
'
'StandarddruckerWechselnToolStripMenuItem
'
Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem"
Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln"
'
'FunktionenToolStripMenuItem
'
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem})
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem})
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -3464,6 +3465,12 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem21.Text = "GELB"
'
'EssensbestellungenToolStripMenuItem
'
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3866,4 +3873,5 @@ Partial Class frmHauptfenster
Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StandarddruckerWechselnToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EssensbestellungenToolStripMenuItem As ToolStripMenuItem
End Class

5
Aviso/frmHauptfenster.vb
View File

@@ -4210,6 +4210,11 @@ Public Class frmHauptfenster
Dim f As New frmWechselStandarddrucker()
f.ShowDialog(Me)
End Sub
Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
Dim f As New frmEssensbestellungen()
f.ShowDialog(Me)
End Sub
End Class
Public Class AvisoStatusFunctions