diff --git a/Aviso/frmEssensbestellungen.Designer.vb b/Aviso/frmEssensbestellungen.Designer.vb index b41ab1c..43b1b1e 100644 --- a/Aviso/frmEssensbestellungen.Designer.vb +++ b/Aviso/frmEssensbestellungen.Designer.vb @@ -26,28 +26,31 @@ Partial Class frmEssensbestellungen 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.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.cbMontag = New System.Windows.Forms.CheckBox() Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenoAltMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenuMo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.cbDienstag = New System.Windows.Forms.CheckBox() 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.cbMittwoch = New System.Windows.Forms.CheckBox() 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.cbDonnerstag = New System.Windows.Forms.CheckBox() 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.cbFreitag = New System.Windows.Forms.CheckBox() 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) @@ -60,25 +63,18 @@ Partial Class frmEssensbestellungen 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.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblAbteilung = New System.Windows.Forms.Label() + Me.lblGebaeude = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.GroupBox5.SuspendLayout() + CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - 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 - ' 'lblWochenkarte ' Me.lblWochenkarte.AutoSize = True @@ -88,43 +84,6 @@ Partial Class frmEssensbestellungen Me.lblWochenkarte.TabIndex = 1 Me.lblWochenkarte.Text = "Menü" ' - 'dgvBestellungen - ' - 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) @@ -145,6 +104,7 @@ Partial Class frmEssensbestellungen ' 'GroupBox1 ' + Me.GroupBox1.Controls.Add(Me.cbMontag) Me.GroupBox1.Controls.Add(Me.txtAltMo) Me.GroupBox1.Controls.Add(Me.rbMenoAltMo) Me.GroupBox1.Controls.Add(Me.rbMenuMo) @@ -155,29 +115,15 @@ Partial Class frmEssensbestellungen Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Montag" ' - 'rbMenuMo + 'cbMontag ' - 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 + Me.cbMontag.AutoSize = True + Me.cbMontag.Location = New System.Drawing.Point(3, 0) + Me.cbMontag.Name = "cbMontag" + Me.cbMontag.Size = New System.Drawing.Size(62, 17) + Me.cbMontag.TabIndex = 3 + Me.cbMontag.Text = "Montag" + Me.cbMontag.UseVisualStyleBackColor = True ' 'txtAltMo ' @@ -203,8 +149,33 @@ Partial Class frmEssensbestellungen Me.txtAltMo.TabIndex = 2 Me.txtAltMo.Visible = False ' + 'rbMenoAltMo + ' + Me.rbMenoAltMo.AutoSize = True + Me.rbMenoAltMo.GroupName = "GroupBox1" + 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 + ' + 'rbMenuMo + ' + Me.rbMenuMo.AutoSize = True + Me.rbMenuMo.GroupName = "GroupBox1" + 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 + ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.cbDienstag) Me.GroupBox2.Controls.Add(Me.txtAltDi) Me.GroupBox2.Controls.Add(Me.rbMenuAltDi) Me.GroupBox2.Controls.Add(Me.rbMenuDi) @@ -215,6 +186,16 @@ Partial Class frmEssensbestellungen Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Dienstag" ' + '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 @@ -265,6 +246,7 @@ Partial Class frmEssensbestellungen ' 'GroupBox3 ' + Me.GroupBox3.Controls.Add(Me.cbMittwoch) Me.GroupBox3.Controls.Add(Me.txtAltMi) Me.GroupBox3.Controls.Add(Me.rbMenuAltMi) Me.GroupBox3.Controls.Add(Me.rbMenuMi) @@ -275,6 +257,16 @@ Partial Class frmEssensbestellungen Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Mittwoch" ' + 'cbMittwoch + ' + Me.cbMittwoch.AutoSize = True + Me.cbMittwoch.Location = New System.Drawing.Point(0, 0) + Me.cbMittwoch.Name = "cbMittwoch" + Me.cbMittwoch.Size = New System.Drawing.Size(69, 17) + Me.cbMittwoch.TabIndex = 5 + Me.cbMittwoch.Text = "Mittwoch" + Me.cbMittwoch.UseVisualStyleBackColor = True + ' 'txtAltMi ' Me.txtAltMi._DateTimeOnly = False @@ -325,6 +317,7 @@ Partial Class frmEssensbestellungen ' 'GroupBox4 ' + Me.GroupBox4.Controls.Add(Me.cbDonnerstag) Me.GroupBox4.Controls.Add(Me.txtAltDo) Me.GroupBox4.Controls.Add(Me.rbMenuAltDo) Me.GroupBox4.Controls.Add(Me.rbMenuDo) @@ -335,6 +328,16 @@ Partial Class frmEssensbestellungen Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Donnerstag" ' + 'cbDonnerstag + ' + Me.cbDonnerstag.AutoSize = True + Me.cbDonnerstag.Location = New System.Drawing.Point(3, 0) + Me.cbDonnerstag.Name = "cbDonnerstag" + Me.cbDonnerstag.Size = New System.Drawing.Size(81, 17) + Me.cbDonnerstag.TabIndex = 7 + Me.cbDonnerstag.Text = "Donnerstag" + Me.cbDonnerstag.UseVisualStyleBackColor = True + ' 'txtAltDo ' Me.txtAltDo._DateTimeOnly = False @@ -385,6 +388,7 @@ Partial Class frmEssensbestellungen ' 'GroupBox5 ' + Me.GroupBox5.Controls.Add(Me.cbFreitag) Me.GroupBox5.Controls.Add(Me.txtAltFr) Me.GroupBox5.Controls.Add(Me.rbMenuFrAlt) Me.GroupBox5.Controls.Add(Me.rbMenuFr) @@ -395,6 +399,16 @@ Partial Class frmEssensbestellungen Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Freitag" ' + '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 @@ -479,11 +493,79 @@ Partial Class frmEssensbestellungen Me.txtAnzahlLaCart.TabIndex = 17 Me.txtAnzahlLaCart.Text = "0" ' + 'dgvBestellungen + ' + 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 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + 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 + ' + 'lblAbteilung + ' + Me.lblAbteilung.AutoSize = True + Me.lblAbteilung.Location = New System.Drawing.Point(472, 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(472, 30) + Me.lblGebaeude.Name = "lblGebaeude" + Me.lblGebaeude.Size = New System.Drawing.Size(54, 13) + Me.lblGebaeude.TabIndex = 19 + Me.lblGebaeude.Text = "Gebäude:" + ' 'frmEssensbestellungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(680, 476) + Me.Controls.Add(Me.lblGebaeude) + Me.Controls.Add(Me.lblAbteilung) Me.Controls.Add(Me.txtAnzahlLaCart) Me.Controls.Add(Me.txtAnzahlMenu) Me.Controls.Add(Me.lbl2) @@ -500,7 +582,6 @@ Partial Class frmEssensbestellungen Me.Controls.Add(Me.MyComboBox1) Me.Name = "frmEssensbestellungen" Me.Text = "Essensbestellung" - CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) @@ -511,6 +592,7 @@ Partial Class frmEssensbestellungen Me.GroupBox4.PerformLayout() Me.GroupBox5.ResumeLayout(False) Me.GroupBox5.PerformLayout() + CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -550,4 +632,11 @@ Partial Class frmEssensbestellungen Friend WithEvents ToolTipInfoMi As ToolTip Friend WithEvents ToolTipInfoDo As ToolTip Friend WithEvents ToolTipInfoFr As ToolTip + Friend WithEvents cbMontag As CheckBox + Friend WithEvents cbDienstag As CheckBox + Friend WithEvents cbMittwoch As CheckBox + Friend WithEvents cbDonnerstag As CheckBox + Friend WithEvents cbFreitag As CheckBox + Friend WithEvents lblAbteilung As Label + Friend WithEvents lblGebaeude As Label End Class diff --git a/Aviso/frmEssensbestellungen.vb b/Aviso/frmEssensbestellungen.vb index 93e0055..4f6dfa6 100644 --- a/Aviso/frmEssensbestellungen.vb +++ b/Aviso/frmEssensbestellungen.vb @@ -1,5 +1,6 @@  +Imports System.Web.UI.WebControls Imports GrapeCity.ActiveReports.ReportsCore.Tools Imports Spire.Pdf.General.Paper Imports VERAG_PROG_ALLGEMEIN @@ -7,21 +8,62 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmEssensbestellungen Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - + Dim essen As New cEssensbestellung() Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + MyComboBox1.fillWithSQL("SELECT MenuTitel from tblEBMenu", False, "AVISO", True) + + lblGebaeude.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO + lblAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG + + End Sub Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click + If cbMontag.Checked Then + IIf(rbMenuMo.Checked, essen.eb_montag = "Menu", essen.eb_montag = txtAltMo.ToString) + Else + essen.eb_montag = Nothing + End If + + If cbDienstag.Checked Then + IIf(rbMenuDi.Checked, essen.eb_dienstag = "Menu", essen.eb_dienstag = txtAltMo.ToString) + Else + essen.eb_dienstag = Nothing + End If + + If cbMittwoch.Checked Then + IIf(rbMenuMi.Checked, essen.eb_mittwoch = "Menu", essen.eb_mittwoch = txtAltMo.ToString) + Else + essen.eb_mittwoch = Nothing + End If + + + If cbDonnerstag.Checked Then + IIf(rbMenuDo.Checked, essen.eb_donnerstag = "Menu", essen.eb_donnerstag = txtAltMo.ToString) + Else + essen.eb_donnerstag = Nothing + End If + + If cbFreitag.Checked Then + IIf(rbMenuFr.Checked, essen.eb_freitag = "Menu", essen.eb_freitag = txtAltMo.ToString) + Else + essen.eb_freitag = Nothing + End If + + essen.SAVE() + End Sub Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged + essen = New cEssensbestellung(MyComboBox1._value, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID, VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) + Dim dt As New DataTable dt = SQL.loadDgvBySql("SELECT * FROM tblEBMenu where [MenuTitel] = '" & MyComboBox1._value & "'", "AVISO", 100, True) @@ -36,8 +78,51 @@ Public Class frmEssensbestellungen 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 + Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cbMontag.CheckedChanged, cbDienstag.CheckedChanged, cbMittwoch.CheckedChanged, cbDonnerstag.CheckedChanged, cbFreitag.CheckedChanged + If cbMontag.Checked Then + rbMenoAltMo.Enabled = True + rbMenuMo.Enabled = True + Else + rbMenoAltMo.Enabled = False + rbMenoAltMo.Enabled = False + End If + If cbDienstag.Checked Then + rbMenuAltDi.Enabled = True + rbMenuDi.Enabled = True + Else + rbMenuDi.Enabled = False + rbMenuAltDi.Enabled = False + End If + + If cbMittwoch.Checked Then + rbMenuAltMi.Enabled = True + rbMenuMi.Enabled = True + Else + rbMenuMi.Enabled = False + rbMenuAltMi.Enabled = False + End If + + + If cbDonnerstag.Checked Then + rbMenuAltDo.Enabled = True + rbMenuDo.Enabled = True + Else + rbMenuDo.Enabled = False + rbMenuAltDo.Enabled = False + End If + + If cbFreitag.Checked Then + rbMenuFrAlt.Enabled = True + rbMenuFr.Enabled = True + Else + rbMenuFr.Enabled = False + rbMenuFrAlt.Enabled = False + End If + + + End Sub End Class \ No newline at end of file