From 926580e58fedbe48234dc3f957feaaf786a41baf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 28 Nov 2022 16:50:52 +0100 Subject: [PATCH] Essensbestellung --- Aviso/frmEssensbestellungen.Designer.vb | 515 +++++++++++++++++++++++- Aviso/frmEssensbestellungen.resx | 15 + Aviso/frmEssensbestellungen.vb | 43 +- Aviso/frmHauptfenster.Designer.vb | 24 +- Aviso/frmHauptfenster.vb | 5 + 5 files changed, 569 insertions(+), 33 deletions(-) diff --git a/Aviso/frmEssensbestellungen.Designer.vb b/Aviso/frmEssensbestellungen.Designer.vb index 553e7b4..b41ab1c 100644 --- a/Aviso/frmEssensbestellungen.Designer.vb +++ b/Aviso/frmEssensbestellungen.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmEssensbestellungen Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + 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. - _ + 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 diff --git a/Aviso/frmEssensbestellungen.resx b/Aviso/frmEssensbestellungen.resx index 1af7de1..56b734e 100644 --- a/Aviso/frmEssensbestellungen.resx +++ b/Aviso/frmEssensbestellungen.resx @@ -117,4 +117,19 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + + + 116, 17 + + + 215, 17 + + + 314, 17 + + + 413, 17 + \ No newline at end of file diff --git a/Aviso/frmEssensbestellungen.vb b/Aviso/frmEssensbestellungen.vb index ba8b925..93e0055 100644 --- a/Aviso/frmEssensbestellungen.vb +++ b/Aviso/frmEssensbestellungen.vb @@ -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 \ No newline at end of file diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 2382b31..912b0c0 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -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 diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index d666848..8545bc6 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -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