diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index e3f36fa..274e068 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -543,6 +543,18 @@ Form + + frmEssensbestellungenAdministration.vb + + + Form + + + frmEssensbestellungenBearbeiten.vb + + + Form + frmFrachtkostenBerechnen.vb @@ -962,6 +974,12 @@ UserControl + + UsrCntlEssensbestellungen.vb + + + UserControl + usrcntlSendungDetailsAbrechnung.vb @@ -1098,6 +1116,12 @@ frmEssensbestellungen.vb + + frmEssensbestellungenAdministration.vb + + + frmEssensbestellungenBearbeiten.vb + frmFrachtkostenBerechnen.vb @@ -1308,6 +1332,9 @@ usrCntlEintragAvisoAtilla.vb + + UsrCntlEssensbestellungen.vb + usrcntlSendungDetailsAbrechnung.vb diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index c99dd12..4cd41f2 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/UsrCntlEssensbestellungen.Designer.vb b/Aviso/UsrCntlEssensbestellungen.Designer.vb new file mode 100644 index 0000000..a230dd2 --- /dev/null +++ b/Aviso/UsrCntlEssensbestellungen.Designer.vb @@ -0,0 +1,708 @@ + _ +Partial Class UsrCntlessensbestellungen + Inherits System.Windows.Forms.UserControl + + 'UserControl ü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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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() + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.lblWarning = New System.Windows.Forms.Label() + Me.txtPreis = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox() + Me.txtMenu_dienstag = New System.Windows.Forms.Label() + Me.cb_dienstag = New System.Windows.Forms.CheckBox() + Me.txtAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.lbl1 = New System.Windows.Forms.Label() + Me.GroupBoxMontag = New System.Windows.Forms.GroupBox() + Me.txtMenu_montag = New System.Windows.Forms.Label() + Me.cb_montag = New System.Windows.Forms.CheckBox() + Me.txtAlt_montag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox() + Me.txtMenu_freitag = New System.Windows.Forms.Label() + Me.cb_freitag = New System.Windows.Forms.CheckBox() + Me.txtAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu__freitag = 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.txtMenu_mittwoch = New System.Windows.Forms.Label() + Me.cb_mittwoch = New System.Windows.Forms.CheckBox() + Me.txtAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox() + Me.txtMenu_donnerstag = New System.Windows.Forms.Label() + Me.cbdonnerstag = New System.Windows.Forms.CheckBox() + Me.txtAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.txtAnzahlMenu = New System.Windows.Forms.Label() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.CheckBox2 = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtGebäude = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.CheckBox3 = New System.Windows.Forms.CheckBox() + Me.MyPanel1.SuspendLayout() + Me.GroupBoxDienstag.SuspendLayout() + Me.GroupBoxMontag.SuspendLayout() + Me.GroupBoxFreitag.SuspendLayout() + Me.Mittwoch.SuspendLayout() + Me.GroupBoxDonnerstag.SuspendLayout() + Me.SuspendLayout() + ' + 'MyPanel1 + ' + Me.MyPanel1.Controls.Add(Me.lblWarning) + Me.MyPanel1.Controls.Add(Me.txtPreis) + Me.MyPanel1.Controls.Add(Me.Label2) + Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag) + Me.MyPanel1.Controls.Add(Me.lbl1) + Me.MyPanel1.Controls.Add(Me.GroupBoxMontag) + Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag) + Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart) + Me.MyPanel1.Controls.Add(Me.lbl2) + Me.MyPanel1.Controls.Add(Me.Mittwoch) + Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag) + Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) + Me.MyPanel1.Location = New System.Drawing.Point(3, 40) + Me.MyPanel1.Name = "MyPanel1" + Me.MyPanel1.Size = New System.Drawing.Size(667, 266) + Me.MyPanel1.TabIndex = 19 + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(465, 217) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 13) + Me.lblWarning.TabIndex = 31 + ' + 'txtPreis + ' + Me.txtPreis.AutoSize = True + Me.txtPreis.Location = New System.Drawing.Point(553, 188) + 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, 188) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(68, 13) + Me.Label2.TabIndex = 18 + Me.Label2.Text = "Gesamtpreis:" + ' + 'GroupBoxDienstag + ' + Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag) + Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8) + Me.GroupBoxDienstag.Name = "GroupBoxDienstag" + Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121) + Me.GroupBoxDienstag.TabIndex = 13 + Me.GroupBoxDienstag.TabStop = False + Me.GroupBoxDienstag.Text = "Dienstag" + ' + 'txtMenu_dienstag + ' + Me.txtMenu_dienstag.Location = New System.Drawing.Point(0, 39) + Me.txtMenu_dienstag.Name = "txtMenu_dienstag" + Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_dienstag.TabIndex = 30 + Me.txtMenu_dienstag.Text = "Menutext" + ' + 'cb_dienstag + ' + Me.cb_dienstag.AutoSize = True + Me.cb_dienstag.Location = New System.Drawing.Point(0, 0) + Me.cb_dienstag.Name = "cb_dienstag" + Me.cb_dienstag.Size = New System.Drawing.Size(68, 17) + Me.cb_dienstag.TabIndex = 4 + Me.cb_dienstag.Text = "Dienstag" + Me.cb_dienstag.UseVisualStyleBackColor = True + ' + 'txtAlt_dienstag + ' + Me.txtAlt_dienstag._DateTimeOnly = False + Me.txtAlt_dienstag._numbersOnly = False + Me.txtAlt_dienstag._numbersOnlyKommastellen = "" + Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True + Me.txtAlt_dienstag._Prozent = False + Me.txtAlt_dienstag._ShortDateNew = False + Me.txtAlt_dienstag._ShortDateOnly = False + Me.txtAlt_dienstag._TimeOnly = False + Me.txtAlt_dienstag._TimeOnly_Seconds = False + Me.txtAlt_dienstag._value = "" + Me.txtAlt_dienstag._Waehrung = False + Me.txtAlt_dienstag._WaehrungZeichen = True + Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_dienstag.Location = New System.Drawing.Point(0, 93) + Me.txtAlt_dienstag.MaxLineLength = -1 + Me.txtAlt_dienstag.MaxLines_Warning = "" + Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing + Me.txtAlt_dienstag.Name = "txtAlt_dienstag" + Me.txtAlt_dienstag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_dienstag.TabIndex = 2 + Me.txtAlt_dienstag.Visible = False + ' + 'rbMenuAlt_dienstag + ' + Me.rbMenuAlt_dienstag.AutoSize = True + Me.rbMenuAlt_dienstag.GroupName = "Dienstag" + Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 74) + Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag" + Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_dienstag.TabIndex = 1 + Me.rbMenuAlt_dienstag.TabStop = True + Me.rbMenuAlt_dienstag.Text = "A la carte" + Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True + ' + 'rbMenu_dienstag + ' + Me.rbMenu_dienstag.AutoSize = True + Me.rbMenu_dienstag.GroupName = "Dienstag" + Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_dienstag.Name = "rbMenu_dienstag" + Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_dienstag.TabIndex = 0 + Me.rbMenu_dienstag.TabStop = True + Me.rbMenu_dienstag.Text = "Menü" + Me.rbMenu_dienstag.UseVisualStyleBackColor = True + ' + 'lbl1 + ' + Me.lbl1.AutoSize = True + Me.lbl1.Location = New System.Drawing.Point(463, 135) + Me.lbl1.Name = "lbl1" + Me.lbl1.Size = New System.Drawing.Size(72, 13) + Me.lbl1.TabIndex = 14 + Me.lbl1.Text = "Anzahl Menü:" + ' + 'GroupBoxMontag + ' + Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag) + Me.GroupBoxMontag.Controls.Add(Me.cb_montag) + Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag) + Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8) + Me.GroupBoxMontag.Name = "GroupBoxMontag" + Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121) + Me.GroupBoxMontag.TabIndex = 12 + Me.GroupBoxMontag.TabStop = False + Me.GroupBoxMontag.Text = "Montag" + ' + 'txtMenu_montag + ' + Me.txtMenu_montag.Location = New System.Drawing.Point(6, 39) + Me.txtMenu_montag.Name = "txtMenu_montag" + Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_montag.TabIndex = 29 + Me.txtMenu_montag.Text = "Menutext" + ' + 'cb_montag + ' + Me.cb_montag.AutoSize = True + Me.cb_montag.Location = New System.Drawing.Point(3, 0) + Me.cb_montag.Name = "cb_montag" + Me.cb_montag.Size = New System.Drawing.Size(62, 17) + Me.cb_montag.TabIndex = 3 + Me.cb_montag.Text = "Montag" + Me.cb_montag.UseVisualStyleBackColor = True + ' + 'txtAlt_montag + ' + Me.txtAlt_montag._DateTimeOnly = False + Me.txtAlt_montag._numbersOnly = False + Me.txtAlt_montag._numbersOnlyKommastellen = "" + Me.txtAlt_montag._numbersOnlyTrennzeichen = True + Me.txtAlt_montag._Prozent = False + Me.txtAlt_montag._ShortDateNew = False + Me.txtAlt_montag._ShortDateOnly = False + Me.txtAlt_montag._TimeOnly = False + Me.txtAlt_montag._TimeOnly_Seconds = False + Me.txtAlt_montag._value = "" + Me.txtAlt_montag._Waehrung = False + Me.txtAlt_montag._WaehrungZeichen = True + Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_montag.Location = New System.Drawing.Point(3, 92) + Me.txtAlt_montag.MaxLineLength = -1 + Me.txtAlt_montag.MaxLines_Warning = "" + Me.txtAlt_montag.MaxLines_Warning_Label = Nothing + Me.txtAlt_montag.Name = "txtAlt_montag" + Me.txtAlt_montag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_montag.TabIndex = 2 + Me.txtAlt_montag.Visible = False + ' + 'rbMenuAlt_montag + ' + Me.rbMenuAlt_montag.AutoSize = True + Me.rbMenuAlt_montag.GroupName = "GroupBox1" + Me.rbMenuAlt_montag.Location = New System.Drawing.Point(6, 74) + Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag" + Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_montag.TabIndex = 1 + Me.rbMenuAlt_montag.TabStop = True + Me.rbMenuAlt_montag.Text = "A la carte" + Me.rbMenuAlt_montag.UseVisualStyleBackColor = True + ' + 'rbMenu_montag + ' + Me.rbMenu_montag.AutoSize = True + Me.rbMenu_montag.GroupName = "GroupBox1" + Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_montag.Name = "rbMenu_montag" + Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_montag.TabIndex = 0 + Me.rbMenu_montag.TabStop = True + Me.rbMenu_montag.Text = "Menü" + Me.rbMenu_montag.UseVisualStyleBackColor = True + ' + 'GroupBoxFreitag + ' + Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag) + Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135) + Me.GroupBoxFreitag.Name = "GroupBoxFreitag" + Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121) + Me.GroupBoxFreitag.TabIndex = 13 + Me.GroupBoxFreitag.TabStop = False + Me.GroupBoxFreitag.Text = "Freitag" + ' + 'txtMenu_freitag + ' + Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_freitag.Name = "txtMenu_freitag" + Me.txtMenu_freitag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_freitag.TabIndex = 32 + Me.txtMenu_freitag.Text = "Menutext" + ' + 'cb_freitag + ' + Me.cb_freitag.AutoSize = True + Me.cb_freitag.Location = New System.Drawing.Point(3, 0) + Me.cb_freitag.Name = "cb_freitag" + Me.cb_freitag.Size = New System.Drawing.Size(58, 17) + Me.cb_freitag.TabIndex = 6 + Me.cb_freitag.Text = "Freitag" + Me.cb_freitag.UseVisualStyleBackColor = True + ' + 'txtAlt_freitag + ' + Me.txtAlt_freitag._DateTimeOnly = False + Me.txtAlt_freitag._numbersOnly = False + Me.txtAlt_freitag._numbersOnlyKommastellen = "" + Me.txtAlt_freitag._numbersOnlyTrennzeichen = True + Me.txtAlt_freitag._Prozent = False + Me.txtAlt_freitag._ShortDateNew = False + Me.txtAlt_freitag._ShortDateOnly = False + Me.txtAlt_freitag._TimeOnly = False + Me.txtAlt_freitag._TimeOnly_Seconds = False + Me.txtAlt_freitag._value = "" + Me.txtAlt_freitag._Waehrung = False + Me.txtAlt_freitag._WaehrungZeichen = True + Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_freitag.Location = New System.Drawing.Point(-3, 97) + Me.txtAlt_freitag.MaxLineLength = -1 + Me.txtAlt_freitag.MaxLines_Warning = "" + Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing + Me.txtAlt_freitag.Name = "txtAlt_freitag" + Me.txtAlt_freitag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_freitag.TabIndex = 2 + Me.txtAlt_freitag.Visible = False + ' + 'rbMenuAlt_freitag + ' + Me.rbMenuAlt_freitag.AutoSize = True + Me.rbMenuAlt_freitag.GroupName = "Freitag" + Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(0, 78) + Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag" + Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_freitag.TabIndex = 1 + Me.rbMenuAlt_freitag.TabStop = True + Me.rbMenuAlt_freitag.Text = "A la carte" + Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True + ' + 'rbMenu__freitag + ' + Me.rbMenu__freitag.AutoSize = True + Me.rbMenu__freitag.GroupName = "Freitag" + Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu__freitag.Name = "rbMenu__freitag" + Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu__freitag.TabIndex = 0 + Me.rbMenu__freitag.TabStop = True + Me.rbMenu__freitag.Text = "Menü" + Me.rbMenu__freitag.UseVisualStyleBackColor = True + ' + 'txtAnzahlLaCart + ' + Me.txtAnzahlLaCart.AutoSize = True + Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162) + 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, 162) + 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 + ' + Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch) + Me.Mittwoch.Controls.Add(Me.cb_mittwoch) + Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch) + Me.Mittwoch.Location = New System.Drawing.Point(431, 8) + Me.Mittwoch.Name = "Mittwoch" + Me.Mittwoch.Size = New System.Drawing.Size(200, 121) + Me.Mittwoch.TabIndex = 13 + Me.Mittwoch.TabStop = False + Me.Mittwoch.Text = "Mittwoch" + ' + 'txtMenu_mittwoch + ' + Me.txtMenu_mittwoch.Location = New System.Drawing.Point(0, 39) + Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch" + Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_mittwoch.TabIndex = 31 + Me.txtMenu_mittwoch.Text = "Menutext" + ' + 'cb_mittwoch + ' + Me.cb_mittwoch.AutoSize = True + Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0) + Me.cb_mittwoch.Name = "cb_mittwoch" + Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17) + Me.cb_mittwoch.TabIndex = 5 + Me.cb_mittwoch.Text = "Mittwoch" + Me.cb_mittwoch.UseVisualStyleBackColor = True + ' + 'txtAlt_mittwoch + ' + Me.txtAlt_mittwoch._DateTimeOnly = False + Me.txtAlt_mittwoch._numbersOnly = False + Me.txtAlt_mittwoch._numbersOnlyKommastellen = "" + Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True + Me.txtAlt_mittwoch._Prozent = False + Me.txtAlt_mittwoch._ShortDateNew = False + Me.txtAlt_mittwoch._ShortDateOnly = False + Me.txtAlt_mittwoch._TimeOnly = False + Me.txtAlt_mittwoch._TimeOnly_Seconds = False + Me.txtAlt_mittwoch._value = "" + Me.txtAlt_mittwoch._Waehrung = False + Me.txtAlt_mittwoch._WaehrungZeichen = True + Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black + Me.txtAlt_mittwoch.Location = New System.Drawing.Point(0, 93) + Me.txtAlt_mittwoch.MaxLineLength = -1 + Me.txtAlt_mittwoch.MaxLines_Warning = "" + Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing + Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch" + Me.txtAlt_mittwoch.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_mittwoch.TabIndex = 2 + Me.txtAlt_mittwoch.Visible = False + ' + 'rbMenuAlt_mittwoch + ' + Me.rbMenuAlt_mittwoch.AutoSize = True + Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch" + Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 74) + Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch" + Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_mittwoch.TabIndex = 1 + Me.rbMenuAlt_mittwoch.TabStop = True + Me.rbMenuAlt_mittwoch.Text = "A la carte" + Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True + ' + 'rbMenu_mittwoch + ' + Me.rbMenu_mittwoch.AutoSize = True + Me.rbMenu_mittwoch.GroupName = "Mittwoch" + Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch" + Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_mittwoch.TabIndex = 0 + Me.rbMenu_mittwoch.TabStop = True + Me.rbMenu_mittwoch.Text = "Menü" + Me.rbMenu_mittwoch.UseVisualStyleBackColor = True + ' + 'GroupBoxDonnerstag + ' + Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag) + Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135) + Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag" + Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121) + Me.GroupBoxDonnerstag.TabIndex = 13 + Me.GroupBoxDonnerstag.TabStop = False + Me.GroupBoxDonnerstag.Text = "Donnerstag" + ' + 'txtMenu_donnerstag + ' + Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag" + Me.txtMenu_donnerstag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_donnerstag.TabIndex = 33 + Me.txtMenu_donnerstag.Text = "Menutext" + ' + '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 + ' + 'txtAlt_donnerstag + ' + Me.txtAlt_donnerstag._DateTimeOnly = False + Me.txtAlt_donnerstag._numbersOnly = False + Me.txtAlt_donnerstag._numbersOnlyKommastellen = "" + Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True + Me.txtAlt_donnerstag._Prozent = False + Me.txtAlt_donnerstag._ShortDateNew = False + Me.txtAlt_donnerstag._ShortDateOnly = False + Me.txtAlt_donnerstag._TimeOnly = False + Me.txtAlt_donnerstag._TimeOnly_Seconds = False + Me.txtAlt_donnerstag._value = "" + Me.txtAlt_donnerstag._Waehrung = False + Me.txtAlt_donnerstag._WaehrungZeichen = True + Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_donnerstag.Location = New System.Drawing.Point(1, 97) + Me.txtAlt_donnerstag.MaxLineLength = -1 + Me.txtAlt_donnerstag.MaxLines_Warning = "" + Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing + Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag" + Me.txtAlt_donnerstag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_donnerstag.TabIndex = 2 + Me.txtAlt_donnerstag.Visible = False + ' + 'rbMenuAlt_donnerstag + ' + Me.rbMenuAlt_donnerstag.AutoSize = True + Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag" + Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(4, 78) + Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag" + Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_donnerstag.TabIndex = 1 + Me.rbMenuAlt_donnerstag.TabStop = True + Me.rbMenuAlt_donnerstag.Text = "A la carte" + Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True + ' + 'rbMenu_donnerstag + ' + Me.rbMenu_donnerstag.AutoSize = True + Me.rbMenu_donnerstag.GroupName = "Donnerstag" + Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag" + Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_donnerstag.TabIndex = 0 + Me.rbMenu_donnerstag.TabStop = True + Me.rbMenu_donnerstag.Text = "Menü" + Me.rbMenu_donnerstag.UseVisualStyleBackColor = True + ' + 'txtAnzahlMenu + ' + Me.txtAnzahlMenu.AutoSize = True + Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137) + Me.txtAnzahlMenu.Name = "txtAnzahlMenu" + Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13) + Me.txtAnzahlMenu.TabIndex = 16 + Me.txtAnzahlMenu.Text = "0" + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(121, 9) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(63, 17) + Me.CheckBox1.TabIndex = 20 + Me.CheckBox1.Text = "storniert" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'CheckBox2 + ' + Me.CheckBox2.AutoSize = True + Me.CheckBox2.Location = New System.Drawing.Point(12, 9) + Me.CheckBox2.Name = "CheckBox2" + Me.CheckBox2.Size = New System.Drawing.Size(86, 17) + Me.CheckBox2.TabIndex = 21 + Me.CheckBox2.Text = "abgerechnet" + Me.CheckBox2.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Location = New System.Drawing.Point(285, 312) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 22 + Me.Button1.Text = "Speichern" + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtGebäude + ' + Me.txtGebäude._DateTimeOnly = False + Me.txtGebäude._numbersOnly = False + Me.txtGebäude._numbersOnlyKommastellen = "" + Me.txtGebäude._numbersOnlyTrennzeichen = True + Me.txtGebäude._Prozent = False + Me.txtGebäude._ShortDateNew = False + Me.txtGebäude._ShortDateOnly = False + Me.txtGebäude._TimeOnly = False + Me.txtGebäude._TimeOnly_Seconds = False + Me.txtGebäude._value = "" + Me.txtGebäude._Waehrung = False + Me.txtGebäude._WaehrungZeichen = True + Me.txtGebäude.ForeColor = System.Drawing.Color.Black + Me.txtGebäude.Location = New System.Drawing.Point(541, 9) + Me.txtGebäude.MaxLineLength = -1 + Me.txtGebäude.MaxLines_Warning = "" + Me.txtGebäude.MaxLines_Warning_Label = Nothing + Me.txtGebäude.Name = "txtGebäude" + Me.txtGebäude.Size = New System.Drawing.Size(120, 20) + Me.txtGebäude.TabIndex = 30 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(481, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(54, 13) + Me.Label1.TabIndex = 30 + Me.Label1.Text = "Gebäude:" + ' + 'CheckBox3 + ' + Me.CheckBox3.AutoSize = True + Me.CheckBox3.Location = New System.Drawing.Point(225, 9) + Me.CheckBox3.Name = "CheckBox3" + Me.CheckBox3.Size = New System.Drawing.Size(70, 17) + Me.CheckBox3.TabIndex = 31 + Me.CheckBox3.Text = "gesendet" + Me.CheckBox3.UseVisualStyleBackColor = True + ' + 'UsrCntlessensbestellungen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.CheckBox3) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtGebäude) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.CheckBox2) + Me.Controls.Add(Me.CheckBox1) + Me.Controls.Add(Me.MyPanel1) + Me.Name = "UsrCntlessensbestellungen" + Me.Size = New System.Drawing.Size(690, 348) + Me.MyPanel1.ResumeLayout(False) + Me.MyPanel1.PerformLayout() + Me.GroupBoxDienstag.ResumeLayout(False) + Me.GroupBoxDienstag.PerformLayout() + Me.GroupBoxMontag.ResumeLayout(False) + Me.GroupBoxMontag.PerformLayout() + Me.GroupBoxFreitag.ResumeLayout(False) + Me.GroupBoxFreitag.PerformLayout() + Me.Mittwoch.ResumeLayout(False) + Me.Mittwoch.PerformLayout() + Me.GroupBoxDonnerstag.ResumeLayout(False) + Me.GroupBoxDonnerstag.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel + Friend WithEvents lblWarning As Label + Friend WithEvents txtPreis As Label + Friend WithEvents Label2 As Label + Friend WithEvents GroupBoxDienstag As GroupBox + Friend WithEvents txtMenu_dienstag As Label + Friend WithEvents cb_dienstag As CheckBox + Friend WithEvents txtAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents lbl1 As Label + Friend WithEvents GroupBoxMontag As GroupBox + Friend WithEvents txtMenu_montag As Label + Friend WithEvents cb_montag As CheckBox + Friend WithEvents txtAlt_montag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents GroupBoxFreitag As GroupBox + Friend WithEvents txtMenu_freitag As Label + Friend WithEvents cb_freitag As CheckBox + Friend WithEvents txtAlt_freitag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu__freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAnzahlLaCart As Label + Friend WithEvents lbl2 As Label + Friend WithEvents Mittwoch As GroupBox + Friend WithEvents txtMenu_mittwoch As Label + Friend WithEvents cb_mittwoch As CheckBox + Friend WithEvents txtAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents GroupBoxDonnerstag As GroupBox + Friend WithEvents txtMenu_donnerstag As Label + Friend WithEvents cbdonnerstag As CheckBox + Friend WithEvents txtAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAnzahlMenu As Label + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker + Friend WithEvents CheckBox2 As CheckBox + Friend WithEvents Button1 As Button + Friend WithEvents txtGebäude As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents CheckBox3 As CheckBox +End Class diff --git a/Aviso/UsrCntlEssensbestellungen.resx b/Aviso/UsrCntlEssensbestellungen.resx new file mode 100644 index 0000000..71e4907 --- /dev/null +++ b/Aviso/UsrCntlEssensbestellungen.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Aviso/UsrCntlEssensbestellungen.vb b/Aviso/UsrCntlEssensbestellungen.vb new file mode 100644 index 0000000..9cfa4d8 --- /dev/null +++ b/Aviso/UsrCntlEssensbestellungen.vb @@ -0,0 +1,459 @@ + +Imports VERAG_PROG_ALLGEMEIN + +Public Class UsrCntlessensbestellungen + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim essen As cEssensbestellung + Dim dt As New DataTable + 'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"} + Private ToolTipFont As New Font("Courier New", 12) + Dim preisProMahlzeit As Double = 3 + Dim menu As String = "Menu" + + + + Sub New() + + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + + Sub New(storniert As Boolean, abgerechnet As Boolean, menu As String) + + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.CheckBox1.Checked = storniert + Me.CheckBox2.Checked = abgerechnet + dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menu & "' order by MenuDateVon desc", "AVISO", 100, True) + loadMenuInfo(dt) + essen = New cEssensbestellung() + txtGebäude.Text = essen.eb_gebaeude.ToString + + End Sub + + Sub New(bestellung As cEssensbestellung) + + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + essen = bestellung + Dim menutitle = bestellung.eb_kw.ToString() + Me.CheckBox1.Checked = essen.eb_storniert + Me.CheckBox2.Checked = essen.eb_abgerechnet + dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menutitle & "' order by MenuDateVon desc", "AVISO", 100, True) + loadMenuInfo(dt) + txtGebäude.Text = essen.eb_gebaeude.ToString + + End Sub + + + Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged + + If rbMenuAlt_montag.Checked Then + txtAlt_montag.Visible = True + Else + txtAlt_montag.Visible = False + End If + + If rbMenuAlt_dienstag.Checked Then + txtAlt_dienstag.Visible = True + Else + + txtAlt_dienstag.Visible = False + End If + + If rbMenuAlt_mittwoch.Checked Then + txtAlt_mittwoch.Visible = True + Else + txtAlt_mittwoch.Visible = False + End If + + + If rbMenuAlt_donnerstag.Checked Then + txtAlt_donnerstag.Visible = True + Else + txtAlt_donnerstag.Visible = False + End If + + If rbMenuAlt_freitag.Checked Then + txtAlt_freitag.Visible = True + Else + txtAlt_freitag.Visible = False + End If + countChecks() + End Sub + + Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged + If cb_montag.Checked Then + rbMenuAlt_montag.Enabled = True + rbMenu_montag.Enabled = True + If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then + rbMenu_montag.Checked = True + End If + Else + rbMenuAlt_montag.Enabled = False + rbMenu_montag.Enabled = False + txtAlt_montag.Text = "" + End If + + If cb_dienstag.Checked Then + rbMenuAlt_dienstag.Enabled = True + rbMenu_dienstag.Enabled = True + If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then + rbMenu_dienstag.Checked = True + End If + Else + rbMenu_dienstag.Enabled = False + rbMenuAlt_dienstag.Enabled = False + txtAlt_dienstag.Text = "" + End If + + If cb_mittwoch.Checked Then + rbMenuAlt_mittwoch.Enabled = True + rbMenu_mittwoch.Enabled = True + If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then + rbMenu_mittwoch.Checked = True + End If + Else + rbMenu_mittwoch.Enabled = False + rbMenuAlt_mittwoch.Enabled = False + txtAlt_mittwoch.Text = "" + End If + + + If cbdonnerstag.Checked Then + rbMenuAlt_donnerstag.Enabled = True + rbMenu_donnerstag.Enabled = True + If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then + rbMenu_donnerstag.Checked = True + End If + Else + rbMenu_donnerstag.Enabled = False + rbMenuAlt_donnerstag.Enabled = False + txtAlt_donnerstag.Text = "" + End If + + If cb_freitag.Checked Then + rbMenuAlt_freitag.Enabled = True + rbMenu__freitag.Enabled = True + If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then + rbMenu__freitag.Checked = True + End If + Else + rbMenu__freitag.Enabled = False + rbMenuAlt_freitag.Enabled = False + txtAlt_freitag.Text = "" + End If + countChecks() + End Sub + + Private Sub uncheckGroupBoxesAndRadioButtons(sender, e) + For Each gb As Control In MyPanel1.Controls + If TypeOf gb Is GroupBox Then + For Each c As Control In gb.Controls + If TypeOf c Is CheckBox Then + Dim checkbox As CheckBox = c + checkbox.Checked = False + End If + If TypeOf c Is RadioButton Then + Dim radiobutton As RadioButton = c + radiobutton.Checked = False + End If + + Next + End If + Next + cbFields_CheckedChanged(sender, e) + End Sub + + Private Sub countChecks() + + Dim countMenus As Integer + Dim countlaCarte As Integer + countMenus = 0 + countlaCarte = 0 + For Each gb As Control In MyPanel1.Controls + If TypeOf gb Is GroupBox Then + For Each c As Control In gb.Controls + + If c.Text.ToLower.StartsWith("menü") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then + Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c + If rb.Checked Then countMenus = countMenus + 1 + End If + + If c.Text.ToLower.StartsWith("a la carte") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then + Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c + If rb.Checked Then countlaCarte = countlaCarte + 1 + End If + Next + End If + Next + + txtAnzahlMenu.Text = countMenus.ToString() + txtAnzahlLaCart.Text = countlaCarte.ToString + txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit + + + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged + If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then + MyPanel1.Enabled = False + Else + MyPanel1.Enabled = True + + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + + If cb_montag.Checked Then + If rbMenu_montag.Checked Then + essen.eb_montag = menu + setWarning(False) + Else + If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_montag = txtAlt_montag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If + + End If + setWarning(False) + Else + essen.eb_montag = Nothing + End If + + + If cb_dienstag.Checked Then + If rbMenu_dienstag.Checked Then + essen.eb_dienstag = menu + setWarning(False) + Else + If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_dienstag = txtAlt_dienstag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If + End If + setWarning(False) + Else + essen.eb_dienstag = Nothing + End If + + If cb_mittwoch.Checked Then + If rbMenu_mittwoch.Checked Then + essen.eb_mittwoch = menu + setWarning(False) + Else + If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If + End If + setWarning(False) + Else + essen.eb_mittwoch = Nothing + End If + + If cbdonnerstag.Checked Then + If rbMenu_donnerstag.Checked Then + essen.eb_donnerstag = menu + setWarning(False) + Else + If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If + End If + setWarning(False) + Else + essen.eb_donnerstag = Nothing + End If + + If cb_freitag.Checked Then + If rbMenu__freitag.Checked Then + essen.eb_freitag = menu + setWarning(False) + Else + If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_freitag = txtAlt_freitag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If + End If + setWarning(False) + Else + essen.eb_freitag = Nothing + End If + + If txtPreis.Text IsNot "" Then + essen.eb_preis = CDbl(txtPreis.Text) + End If + + essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon")) + essen.eb_gebaeude = txtGebäude.Text.ToString + If essen.SAVE() Then + + End If + + End Sub + + Private Sub loadMenuInfo(dt As DataTable) + + If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then + rbMenu_montag.Text = menu + txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString + + End If + + + If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then + rbMenu_dienstag.Text = menu + txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString() + + End If + + + If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then + rbMenu_mittwoch.Text = menu + txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString() + + End If + + If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then + rbMenu_donnerstag.Text = menu + txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString() + + End If + + If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then + rbMenu__freitag.Text = menu + txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString() + + End If + + End Sub + + Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click + countChecks() + End Sub + + Private Function checkIfGroupBoxIsSetFirstTime(gb As GroupBox) + + For Each c As Control In gb.Controls + If TypeOf c Is RadioButton Then + Dim radioButton As RadioButton = c + If radioButton.Checked = True Then + Return False + End If + End If + Next + Return True + + End Function + + Private Sub setWarning(warning As Boolean) + + If warning Then + lblWarning.Text = "Bezeichnung für A la carte fehlt" + Else + + lblWarning.Text = "" + + End If + + End Sub + + 'Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + + ' If essen.eb_montag IsNot Nothing Then + ' cb_montag.Checked = True + ' If essen.eb_montag.ToString = menu Then + ' rbMenu_montag.Checked = True + ' Else + ' rbMenuAlt_montag.Checked = True + ' If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString + ' End If + ' Else + ' cb_montag.Checked = False + ' End If + + ' If essen.eb_dienstag IsNot Nothing Then + ' cb_dienstag.Checked = True + ' If essen.eb_dienstag.ToString = menu Then + ' rbMenu_dienstag.Checked = True + ' Else + ' rbMenuAlt_dienstag.Checked = True + ' If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString + ' End If + ' Else + ' cb_dienstag.Checked = False + ' End If + + + ' If essen.eb_mittwoch IsNot Nothing Then + ' cb_mittwoch.Checked = True + ' If essen.eb_mittwoch.ToString = menu Then + ' rbMenu_mittwoch.Checked = True + ' Else + ' rbMenuAlt_mittwoch.Checked = True + ' If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString + ' End If + ' Else + ' cb_mittwoch.Checked = False + ' End If + + ' If essen.eb_donnerstag IsNot Nothing Then + ' cbdonnerstag.Checked = True + ' If essen.eb_donnerstag.ToString = menu Then + ' rbMenu_donnerstag.Checked = True + ' Else + ' rbMenuAlt_donnerstag.Checked = True + ' If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString + ' End If + ' Else + ' cb_mittwoch.Checked = False + ' End If + + + ' If essen.eb_freitag IsNot Nothing Then + ' cb_freitag.Checked = True + ' If essen.eb_freitag.ToString = menu Then + ' rbMenu__freitag.Checked = True + ' Else + ' rbMenuAlt_freitag.Checked = True + ' If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString + ' End If + ' Else + ' cb_freitag.Checked = False + ' End If + + 'End Sub +End Class diff --git a/Aviso/frmEssensbestellungen.Designer.vb b/Aviso/frmEssensbestellungen.Designer.vb index 8796e4f..58816e3 100644 --- a/Aviso/frmEssensbestellungen.Designer.vb +++ b/Aviso/frmEssensbestellungen.Designer.vb @@ -41,47 +41,48 @@ Partial Class frmEssensbestellungen Me.lblBestellungBis = New System.Windows.Forms.Label() Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.lblWarning = New System.Windows.Forms.Label() Me.txtPreis = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox() - Me.txtMenuDi = New System.Windows.Forms.Label() - 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.txtMenu_dienstag = New System.Windows.Forms.Label() + Me.pb_dienstag = New System.Windows.Forms.PictureBox() + Me.cb_dienstag = New System.Windows.Forms.CheckBox() + Me.txtAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.lbl1 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.GroupBoxMontag = New System.Windows.Forms.GroupBox() - Me.txtMenuMo = New System.Windows.Forms.Label() - Me.pbMontag = New System.Windows.Forms.PictureBox() - Me.cbMontag = New System.Windows.Forms.CheckBox() - Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rbMenuAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) - Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.txtMenu_montag = New System.Windows.Forms.Label() + Me.pb_montag = New System.Windows.Forms.PictureBox() + Me.cb_montag = New System.Windows.Forms.CheckBox() + Me.txtAlt_montag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox() - Me.txtMenuFr = New System.Windows.Forms.Label() - 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.txtMenu_freitag = New System.Windows.Forms.Label() + Me.pb_freitag = New System.Windows.Forms.PictureBox() + Me.cb_freitag = New System.Windows.Forms.CheckBox() + Me.txtAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu__freitag = 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.txtMenuMi = New System.Windows.Forms.Label() - Me.pbMittwoch = New System.Windows.Forms.PictureBox() - Me.cbMittwoch = New System.Windows.Forms.CheckBox() - Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.rbMenuAlt_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) - Me.rbMenu_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.txtMenu_mittwoch = New System.Windows.Forms.Label() + Me.pb_mittwoch = New System.Windows.Forms.PictureBox() + Me.cb_mittwoch = New System.Windows.Forms.CheckBox() + Me.txtAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox() - Me.txtMenuDo = New System.Windows.Forms.Label() - Me.pbDonnerstag = New System.Windows.Forms.PictureBox() - Me.cbDonnerstag = New System.Windows.Forms.CheckBox() - 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.txtMenu_donnerstag = New System.Windows.Forms.Label() + Me.pb_donnerstag = New System.Windows.Forms.PictureBox() + Me.cbdonnerstag = New System.Windows.Forms.CheckBox() + Me.txtAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rbMenuAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) + Me.rbMenu_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.txtAnzahlMenu = New System.Windows.Forms.Label() Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -92,25 +93,28 @@ Partial Class frmEssensbestellungen Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() Me.lblTest = New System.Windows.Forms.Label() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() Me.MyPanel1.SuspendLayout() Me.GroupBoxDienstag.SuspendLayout() - CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pb_dienstag, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBoxMontag.SuspendLayout() - CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pb_montag, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBoxFreitag.SuspendLayout() - CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pb_freitag, System.ComponentModel.ISupportInitialize).BeginInit() Me.Mittwoch.SuspendLayout() - CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pb_mittwoch, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBoxDonnerstag.SuspendLayout() - CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pb_donnerstag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlTop.SuspendLayout() Me.SuspendLayout() ' 'lblWochenkarte ' Me.lblWochenkarte.AutoSize = True - Me.lblWochenkarte.Location = New System.Drawing.Point(18, 14) + Me.lblWochenkarte.Location = New System.Drawing.Point(18, 65) Me.lblWochenkarte.Name = "lblWochenkarte" Me.lblWochenkarte.Size = New System.Drawing.Size(34, 13) Me.lblWochenkarte.TabIndex = 1 @@ -119,7 +123,7 @@ Partial Class frmEssensbestellungen 'btnSave ' Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Bottom - Me.btnSave.Location = New System.Drawing.Point(305, 531) + Me.btnSave.Location = New System.Drawing.Point(319, 599) Me.btnSave.Name = "btnSave" Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.TabIndex = 10 @@ -129,7 +133,7 @@ Partial Class frmEssensbestellungen 'lblDatum ' Me.lblDatum.AutoSize = True - Me.lblDatum.Location = New System.Drawing.Point(167, 14) + Me.lblDatum.Location = New System.Drawing.Point(167, 65) Me.lblDatum.Name = "lblDatum" Me.lblDatum.Size = New System.Drawing.Size(41, 13) Me.lblDatum.TabIndex = 11 @@ -154,7 +158,7 @@ Partial Class frmEssensbestellungen 'lblAbteilung ' Me.lblAbteilung.AutoSize = True - Me.lblAbteilung.Location = New System.Drawing.Point(511, 23) + Me.lblAbteilung.Location = New System.Drawing.Point(511, 74) Me.lblAbteilung.Name = "lblAbteilung" Me.lblAbteilung.Size = New System.Drawing.Size(54, 13) Me.lblAbteilung.TabIndex = 18 @@ -163,7 +167,7 @@ Partial Class frmEssensbestellungen 'lblGebaeude ' Me.lblGebaeude.AutoSize = True - Me.lblGebaeude.Location = New System.Drawing.Point(511, 41) + Me.lblGebaeude.Location = New System.Drawing.Point(511, 92) Me.lblGebaeude.Name = "lblGebaeude" Me.lblGebaeude.Size = New System.Drawing.Size(54, 13) Me.lblGebaeude.TabIndex = 19 @@ -172,7 +176,7 @@ Partial Class frmEssensbestellungen 'lblBestellungen ' Me.lblBestellungen.AutoSize = True - Me.lblBestellungen.Location = New System.Drawing.Point(15, 334) + Me.lblBestellungen.Location = New System.Drawing.Point(15, 385) Me.lblBestellungen.Name = "lblBestellungen" Me.lblBestellungen.Size = New System.Drawing.Size(100, 13) Me.lblBestellungen.TabIndex = 20 @@ -181,7 +185,7 @@ Partial Class frmEssensbestellungen 'lblBestellungBis ' Me.lblBestellungBis.AutoSize = True - Me.lblBestellungBis.Location = New System.Drawing.Point(167, 38) + Me.lblBestellungBis.Location = New System.Drawing.Point(167, 89) Me.lblBestellungBis.Name = "lblBestellungBis" Me.lblBestellungBis.Size = New System.Drawing.Size(114, 13) Me.lblBestellungBis.TabIndex = 22 @@ -194,13 +198,14 @@ Partial Class frmEssensbestellungen Me.cbxGebauede._value = "" Me.cbxGebauede.DropDownWidth = 150 Me.cbxGebauede.FormattingEnabled = True - Me.cbxGebauede.Location = New System.Drawing.Point(584, 38) + Me.cbxGebauede.Location = New System.Drawing.Point(584, 89) Me.cbxGebauede.Name = "cbxGebauede" Me.cbxGebauede.Size = New System.Drawing.Size(95, 21) Me.cbxGebauede.TabIndex = 21 ' 'MyPanel1 ' + Me.MyPanel1.Controls.Add(Me.lblWarning) Me.MyPanel1.Controls.Add(Me.txtPreis) Me.MyPanel1.Controls.Add(Me.Label2) Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag) @@ -213,11 +218,20 @@ Partial Class frmEssensbestellungen Me.MyPanel1.Controls.Add(Me.Mittwoch) Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag) Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) - Me.MyPanel1.Location = New System.Drawing.Point(12, 65) + Me.MyPanel1.Location = New System.Drawing.Point(12, 116) Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(667, 259) + Me.MyPanel1.Size = New System.Drawing.Size(667, 266) Me.MyPanel1.TabIndex = 18 ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(465, 217) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 13) + Me.lblWarning.TabIndex = 31 + ' 'txtPreis ' Me.txtPreis.AutoSize = True @@ -238,12 +252,12 @@ Partial Class frmEssensbestellungen ' 'GroupBoxDienstag ' - Me.GroupBoxDienstag.Controls.Add(Me.txtMenuDi) - Me.GroupBoxDienstag.Controls.Add(Me.pbDienstag) - Me.GroupBoxDienstag.Controls.Add(Me.cbDienstag) - Me.GroupBoxDienstag.Controls.Add(Me.txtAltDi) - Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_Di) - Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_Di) + Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.pb_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag) Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8) Me.GroupBoxDienstag.Name = "GroupBoxDienstag" Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121) @@ -251,82 +265,82 @@ Partial Class frmEssensbestellungen Me.GroupBoxDienstag.TabStop = False Me.GroupBoxDienstag.Text = "Dienstag" ' - 'txtMenuDi + 'txtMenu_dienstag ' - Me.txtMenuDi.Location = New System.Drawing.Point(0, 39) - Me.txtMenuDi.Name = "txtMenuDi" - Me.txtMenuDi.Size = New System.Drawing.Size(188, 32) - Me.txtMenuDi.TabIndex = 30 - Me.txtMenuDi.Text = "Menutext" + Me.txtMenu_dienstag.Location = New System.Drawing.Point(0, 39) + Me.txtMenu_dienstag.Name = "txtMenu_dienstag" + Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_dienstag.TabIndex = 30 + Me.txtMenu_dienstag.Text = "Menutext" ' - 'pbDienstag + 'pb_dienstag ' - Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbDienstag.Location = New System.Drawing.Point(168, 19) - Me.pbDienstag.Name = "pbDienstag" - Me.pbDienstag.Size = New System.Drawing.Size(26, 26) - Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbDienstag.TabIndex = 5 - Me.pbDienstag.TabStop = False - Me.pbDienstag.Visible = False + Me.pb_dienstag.Image = Global.AVISO.My.Resources.Resources.documents + Me.pb_dienstag.Location = New System.Drawing.Point(168, 19) + Me.pb_dienstag.Name = "pb_dienstag" + Me.pb_dienstag.Size = New System.Drawing.Size(26, 26) + Me.pb_dienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_dienstag.TabIndex = 5 + Me.pb_dienstag.TabStop = False + Me.pb_dienstag.Visible = False ' - 'cbDienstag + 'cb_dienstag ' - 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.cb_dienstag.AutoSize = True + Me.cb_dienstag.Location = New System.Drawing.Point(0, 0) + Me.cb_dienstag.Name = "cb_dienstag" + Me.cb_dienstag.Size = New System.Drawing.Size(68, 17) + Me.cb_dienstag.TabIndex = 4 + Me.cb_dienstag.Text = "Dienstag" + Me.cb_dienstag.UseVisualStyleBackColor = True ' - 'txtAltDi + 'txtAlt_dienstag ' - 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, 93) - 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.txtAlt_dienstag._DateTimeOnly = False + Me.txtAlt_dienstag._numbersOnly = False + Me.txtAlt_dienstag._numbersOnlyKommastellen = "" + Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True + Me.txtAlt_dienstag._Prozent = False + Me.txtAlt_dienstag._ShortDateNew = False + Me.txtAlt_dienstag._ShortDateOnly = False + Me.txtAlt_dienstag._TimeOnly = False + Me.txtAlt_dienstag._TimeOnly_Seconds = False + Me.txtAlt_dienstag._value = "" + Me.txtAlt_dienstag._Waehrung = False + Me.txtAlt_dienstag._WaehrungZeichen = True + Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_dienstag.Location = New System.Drawing.Point(0, 93) + Me.txtAlt_dienstag.MaxLineLength = -1 + Me.txtAlt_dienstag.MaxLines_Warning = "" + Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing + Me.txtAlt_dienstag.Name = "txtAlt_dienstag" + Me.txtAlt_dienstag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_dienstag.TabIndex = 2 + Me.txtAlt_dienstag.Visible = False ' - 'rbMenuAlt_Di + 'rbMenuAlt_dienstag ' - Me.rbMenuAlt_Di.AutoSize = True - Me.rbMenuAlt_Di.GroupName = "Dienstag" - Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 74) - 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_dienstag.AutoSize = True + Me.rbMenuAlt_dienstag.GroupName = "Dienstag" + Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 74) + Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag" + Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_dienstag.TabIndex = 1 + Me.rbMenuAlt_dienstag.TabStop = True + Me.rbMenuAlt_dienstag.Text = "A la carte" + Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True ' - 'rbMenu_Di + 'rbMenu_dienstag ' - 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_dienstag.AutoSize = True + Me.rbMenu_dienstag.GroupName = "Dienstag" + Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_dienstag.Name = "rbMenu_dienstag" + Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_dienstag.TabIndex = 0 + Me.rbMenu_dienstag.TabStop = True + Me.rbMenu_dienstag.Text = "Menü" + Me.rbMenu_dienstag.UseVisualStyleBackColor = True ' 'lbl1 ' @@ -349,12 +363,12 @@ Partial Class frmEssensbestellungen ' 'GroupBoxMontag ' - Me.GroupBoxMontag.Controls.Add(Me.txtMenuMo) - Me.GroupBoxMontag.Controls.Add(Me.pbMontag) - Me.GroupBoxMontag.Controls.Add(Me.cbMontag) - Me.GroupBoxMontag.Controls.Add(Me.txtAltMo) - Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_Mo) - Me.GroupBoxMontag.Controls.Add(Me.rbMenu_Mo) + Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag) + Me.GroupBoxMontag.Controls.Add(Me.pb_montag) + Me.GroupBoxMontag.Controls.Add(Me.cb_montag) + Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag) Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8) Me.GroupBoxMontag.Name = "GroupBoxMontag" Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121) @@ -362,91 +376,91 @@ Partial Class frmEssensbestellungen Me.GroupBoxMontag.TabStop = False Me.GroupBoxMontag.Text = "Montag" ' - 'txtMenuMo + 'txtMenu_montag ' - Me.txtMenuMo.Location = New System.Drawing.Point(6, 39) - Me.txtMenuMo.Name = "txtMenuMo" - Me.txtMenuMo.Size = New System.Drawing.Size(188, 32) - Me.txtMenuMo.TabIndex = 29 - Me.txtMenuMo.Text = "Menutext" + Me.txtMenu_montag.Location = New System.Drawing.Point(6, 39) + Me.txtMenu_montag.Name = "txtMenu_montag" + Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_montag.TabIndex = 29 + Me.txtMenu_montag.Text = "Menutext" ' - 'pbMontag + 'pb_montag ' - Me.pbMontag.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbMontag.Location = New System.Drawing.Point(168, 19) - Me.pbMontag.Name = "pbMontag" - Me.pbMontag.Size = New System.Drawing.Size(26, 26) - Me.pbMontag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbMontag.TabIndex = 4 - Me.pbMontag.TabStop = False - Me.pbMontag.Visible = False + Me.pb_montag.Image = Global.AVISO.My.Resources.Resources.documents + Me.pb_montag.Location = New System.Drawing.Point(168, 19) + Me.pb_montag.Name = "pb_montag" + Me.pb_montag.Size = New System.Drawing.Size(26, 26) + Me.pb_montag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_montag.TabIndex = 4 + Me.pb_montag.TabStop = False + Me.pb_montag.Visible = False ' - 'cbMontag + 'cb_montag ' - 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 + Me.cb_montag.AutoSize = True + Me.cb_montag.Location = New System.Drawing.Point(3, 0) + Me.cb_montag.Name = "cb_montag" + Me.cb_montag.Size = New System.Drawing.Size(62, 17) + Me.cb_montag.TabIndex = 3 + Me.cb_montag.Text = "Montag" + Me.cb_montag.UseVisualStyleBackColor = True ' - 'txtAltMo + 'txtAlt_montag ' - 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(3, 92) - 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 + Me.txtAlt_montag._DateTimeOnly = False + Me.txtAlt_montag._numbersOnly = False + Me.txtAlt_montag._numbersOnlyKommastellen = "" + Me.txtAlt_montag._numbersOnlyTrennzeichen = True + Me.txtAlt_montag._Prozent = False + Me.txtAlt_montag._ShortDateNew = False + Me.txtAlt_montag._ShortDateOnly = False + Me.txtAlt_montag._TimeOnly = False + Me.txtAlt_montag._TimeOnly_Seconds = False + Me.txtAlt_montag._value = "" + Me.txtAlt_montag._Waehrung = False + Me.txtAlt_montag._WaehrungZeichen = True + Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_montag.Location = New System.Drawing.Point(3, 92) + Me.txtAlt_montag.MaxLineLength = -1 + Me.txtAlt_montag.MaxLines_Warning = "" + Me.txtAlt_montag.MaxLines_Warning_Label = Nothing + Me.txtAlt_montag.Name = "txtAlt_montag" + Me.txtAlt_montag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_montag.TabIndex = 2 + Me.txtAlt_montag.Visible = False ' - 'rbMenuAlt_Mo + 'rbMenuAlt_montag ' - Me.rbMenuAlt_Mo.AutoSize = True - Me.rbMenuAlt_Mo.GroupName = "GroupBox1" - Me.rbMenuAlt_Mo.Location = New System.Drawing.Point(6, 74) - Me.rbMenuAlt_Mo.Name = "rbMenuAlt_Mo" - Me.rbMenuAlt_Mo.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_Mo.TabIndex = 1 - Me.rbMenuAlt_Mo.TabStop = True - Me.rbMenuAlt_Mo.Text = "A la carte" - Me.rbMenuAlt_Mo.UseVisualStyleBackColor = True + Me.rbMenuAlt_montag.AutoSize = True + Me.rbMenuAlt_montag.GroupName = "GroupBox1" + Me.rbMenuAlt_montag.Location = New System.Drawing.Point(6, 74) + Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag" + Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_montag.TabIndex = 1 + Me.rbMenuAlt_montag.TabStop = True + Me.rbMenuAlt_montag.Text = "A la carte" + Me.rbMenuAlt_montag.UseVisualStyleBackColor = True ' - 'rbMenu_Mo + 'rbMenu_montag ' - Me.rbMenu_Mo.AutoSize = True - Me.rbMenu_Mo.GroupName = "GroupBox1" - Me.rbMenu_Mo.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_Mo.Name = "rbMenu_Mo" - Me.rbMenu_Mo.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_Mo.TabIndex = 0 - Me.rbMenu_Mo.TabStop = True - Me.rbMenu_Mo.Text = "Menü" - Me.rbMenu_Mo.UseVisualStyleBackColor = True + Me.rbMenu_montag.AutoSize = True + Me.rbMenu_montag.GroupName = "GroupBox1" + Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_montag.Name = "rbMenu_montag" + Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_montag.TabIndex = 0 + Me.rbMenu_montag.TabStop = True + Me.rbMenu_montag.Text = "Menü" + Me.rbMenu_montag.UseVisualStyleBackColor = True ' 'GroupBoxFreitag ' - Me.GroupBoxFreitag.Controls.Add(Me.txtMenuFr) - Me.GroupBoxFreitag.Controls.Add(Me.pbFreitag) - Me.GroupBoxFreitag.Controls.Add(Me.cbFreitag) - Me.GroupBoxFreitag.Controls.Add(Me.txtAltFr) - Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_Fr) - Me.GroupBoxFreitag.Controls.Add(Me.rbMenu_Fr) + Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.pb_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag) Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135) Me.GroupBoxFreitag.Name = "GroupBoxFreitag" Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121) @@ -454,82 +468,82 @@ Partial Class frmEssensbestellungen Me.GroupBoxFreitag.TabStop = False Me.GroupBoxFreitag.Text = "Freitag" ' - 'txtMenuFr + 'txtMenu_freitag ' - Me.txtMenuFr.Location = New System.Drawing.Point(3, 39) - Me.txtMenuFr.Name = "txtMenuFr" - Me.txtMenuFr.Size = New System.Drawing.Size(188, 32) - Me.txtMenuFr.TabIndex = 32 - Me.txtMenuFr.Text = "Menutext" + Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_freitag.Name = "txtMenu_freitag" + Me.txtMenu_freitag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_freitag.TabIndex = 32 + Me.txtMenu_freitag.Text = "Menutext" ' - 'pbFreitag + 'pb_freitag ' - Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbFreitag.Location = New System.Drawing.Point(168, 19) - Me.pbFreitag.Name = "pbFreitag" - Me.pbFreitag.Size = New System.Drawing.Size(26, 26) - Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbFreitag.TabIndex = 8 - Me.pbFreitag.TabStop = False - Me.pbFreitag.Visible = False + Me.pb_freitag.Image = Global.AVISO.My.Resources.Resources.documents + Me.pb_freitag.Location = New System.Drawing.Point(168, 19) + Me.pb_freitag.Name = "pb_freitag" + Me.pb_freitag.Size = New System.Drawing.Size(26, 26) + Me.pb_freitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_freitag.TabIndex = 8 + Me.pb_freitag.TabStop = False + Me.pb_freitag.Visible = False ' - 'cbFreitag + 'cb_freitag ' - 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 + Me.cb_freitag.AutoSize = True + Me.cb_freitag.Location = New System.Drawing.Point(3, 0) + Me.cb_freitag.Name = "cb_freitag" + Me.cb_freitag.Size = New System.Drawing.Size(58, 17) + Me.cb_freitag.TabIndex = 6 + Me.cb_freitag.Text = "Freitag" + Me.cb_freitag.UseVisualStyleBackColor = True ' - 'txtAltFr + 'txtAlt_freitag ' - 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(-3, 97) - 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 + Me.txtAlt_freitag._DateTimeOnly = False + Me.txtAlt_freitag._numbersOnly = False + Me.txtAlt_freitag._numbersOnlyKommastellen = "" + Me.txtAlt_freitag._numbersOnlyTrennzeichen = True + Me.txtAlt_freitag._Prozent = False + Me.txtAlt_freitag._ShortDateNew = False + Me.txtAlt_freitag._ShortDateOnly = False + Me.txtAlt_freitag._TimeOnly = False + Me.txtAlt_freitag._TimeOnly_Seconds = False + Me.txtAlt_freitag._value = "" + Me.txtAlt_freitag._Waehrung = False + Me.txtAlt_freitag._WaehrungZeichen = True + Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_freitag.Location = New System.Drawing.Point(-3, 97) + Me.txtAlt_freitag.MaxLineLength = -1 + Me.txtAlt_freitag.MaxLines_Warning = "" + Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing + Me.txtAlt_freitag.Name = "txtAlt_freitag" + Me.txtAlt_freitag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_freitag.TabIndex = 2 + Me.txtAlt_freitag.Visible = False ' - 'rbMenuAlt_Fr + 'rbMenuAlt_freitag ' - Me.rbMenuAlt_Fr.AutoSize = True - Me.rbMenuAlt_Fr.GroupName = "Freitag" - Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(0, 78) - 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 + Me.rbMenuAlt_freitag.AutoSize = True + Me.rbMenuAlt_freitag.GroupName = "Freitag" + Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(0, 78) + Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag" + Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_freitag.TabIndex = 1 + Me.rbMenuAlt_freitag.TabStop = True + Me.rbMenuAlt_freitag.Text = "A la carte" + Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True ' - 'rbMenu_Fr + 'rbMenu__freitag ' - 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 + Me.rbMenu__freitag.AutoSize = True + Me.rbMenu__freitag.GroupName = "Freitag" + Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu__freitag.Name = "rbMenu__freitag" + Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu__freitag.TabIndex = 0 + Me.rbMenu__freitag.TabStop = True + Me.rbMenu__freitag.Text = "Menü" + Me.rbMenu__freitag.UseVisualStyleBackColor = True ' 'txtAnzahlLaCart ' @@ -551,12 +565,12 @@ Partial Class frmEssensbestellungen ' 'Mittwoch ' - Me.Mittwoch.Controls.Add(Me.txtMenuMi) - Me.Mittwoch.Controls.Add(Me.pbMittwoch) - Me.Mittwoch.Controls.Add(Me.cbMittwoch) - Me.Mittwoch.Controls.Add(Me.txtAltMi) - Me.Mittwoch.Controls.Add(Me.rbMenuAlt_Mi) - Me.Mittwoch.Controls.Add(Me.rbMenu_Mi) + Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch) + Me.Mittwoch.Controls.Add(Me.pb_mittwoch) + Me.Mittwoch.Controls.Add(Me.cb_mittwoch) + Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch) Me.Mittwoch.Location = New System.Drawing.Point(431, 8) Me.Mittwoch.Name = "Mittwoch" Me.Mittwoch.Size = New System.Drawing.Size(200, 121) @@ -564,91 +578,91 @@ Partial Class frmEssensbestellungen Me.Mittwoch.TabStop = False Me.Mittwoch.Text = "Mittwoch" ' - 'txtMenuMi + 'txtMenu_mittwoch ' - Me.txtMenuMi.Location = New System.Drawing.Point(0, 39) - Me.txtMenuMi.Name = "txtMenuMi" - Me.txtMenuMi.Size = New System.Drawing.Size(188, 32) - Me.txtMenuMi.TabIndex = 31 - Me.txtMenuMi.Text = "Menutext" + Me.txtMenu_mittwoch.Location = New System.Drawing.Point(0, 39) + Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch" + Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_mittwoch.TabIndex = 31 + Me.txtMenu_mittwoch.Text = "Menutext" ' - 'pbMittwoch + 'pb_mittwoch ' - Me.pbMittwoch.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbMittwoch.Location = New System.Drawing.Point(168, 19) - Me.pbMittwoch.Name = "pbMittwoch" - Me.pbMittwoch.Size = New System.Drawing.Size(26, 26) - Me.pbMittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbMittwoch.TabIndex = 6 - Me.pbMittwoch.TabStop = False - Me.pbMittwoch.Visible = False + Me.pb_mittwoch.Image = Global.AVISO.My.Resources.Resources.documents + Me.pb_mittwoch.Location = New System.Drawing.Point(168, 19) + Me.pb_mittwoch.Name = "pb_mittwoch" + Me.pb_mittwoch.Size = New System.Drawing.Size(26, 26) + Me.pb_mittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_mittwoch.TabIndex = 6 + Me.pb_mittwoch.TabStop = False + Me.pb_mittwoch.Visible = False ' - 'cbMittwoch + 'cb_mittwoch ' - 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 + Me.cb_mittwoch.AutoSize = True + Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0) + Me.cb_mittwoch.Name = "cb_mittwoch" + Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17) + Me.cb_mittwoch.TabIndex = 5 + Me.cb_mittwoch.Text = "Mittwoch" + Me.cb_mittwoch.UseVisualStyleBackColor = True ' - 'txtAltMi + 'txtAlt_mittwoch ' - 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, 93) - 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 + Me.txtAlt_mittwoch._DateTimeOnly = False + Me.txtAlt_mittwoch._numbersOnly = False + Me.txtAlt_mittwoch._numbersOnlyKommastellen = "" + Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True + Me.txtAlt_mittwoch._Prozent = False + Me.txtAlt_mittwoch._ShortDateNew = False + Me.txtAlt_mittwoch._ShortDateOnly = False + Me.txtAlt_mittwoch._TimeOnly = False + Me.txtAlt_mittwoch._TimeOnly_Seconds = False + Me.txtAlt_mittwoch._value = "" + Me.txtAlt_mittwoch._Waehrung = False + Me.txtAlt_mittwoch._WaehrungZeichen = True + Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black + Me.txtAlt_mittwoch.Location = New System.Drawing.Point(0, 93) + Me.txtAlt_mittwoch.MaxLineLength = -1 + Me.txtAlt_mittwoch.MaxLines_Warning = "" + Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing + Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch" + Me.txtAlt_mittwoch.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_mittwoch.TabIndex = 2 + Me.txtAlt_mittwoch.Visible = False ' - 'rbMenuAlt_Mi + 'rbMenuAlt_mittwoch ' - Me.rbMenuAlt_Mi.AutoSize = True - Me.rbMenuAlt_Mi.GroupName = "Mittwoch" - Me.rbMenuAlt_Mi.Location = New System.Drawing.Point(3, 74) - Me.rbMenuAlt_Mi.Name = "rbMenuAlt_Mi" - Me.rbMenuAlt_Mi.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_Mi.TabIndex = 1 - Me.rbMenuAlt_Mi.TabStop = True - Me.rbMenuAlt_Mi.Text = "A la carte" - Me.rbMenuAlt_Mi.UseVisualStyleBackColor = True + Me.rbMenuAlt_mittwoch.AutoSize = True + Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch" + Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 74) + Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch" + Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_mittwoch.TabIndex = 1 + Me.rbMenuAlt_mittwoch.TabStop = True + Me.rbMenuAlt_mittwoch.Text = "A la carte" + Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True ' - 'rbMenu_Mi + 'rbMenu_mittwoch ' - Me.rbMenu_Mi.AutoSize = True - Me.rbMenu_Mi.GroupName = "Mittwoch" - Me.rbMenu_Mi.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_Mi.Name = "rbMenu_Mi" - Me.rbMenu_Mi.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_Mi.TabIndex = 0 - Me.rbMenu_Mi.TabStop = True - Me.rbMenu_Mi.Text = "Menü" - Me.rbMenu_Mi.UseVisualStyleBackColor = True + Me.rbMenu_mittwoch.AutoSize = True + Me.rbMenu_mittwoch.GroupName = "Mittwoch" + Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch" + Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_mittwoch.TabIndex = 0 + Me.rbMenu_mittwoch.TabStop = True + Me.rbMenu_mittwoch.Text = "Menü" + Me.rbMenu_mittwoch.UseVisualStyleBackColor = True ' 'GroupBoxDonnerstag ' - Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenuDo) - Me.GroupBoxDonnerstag.Controls.Add(Me.pbDonnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.cbDonnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.txtAltDo) - Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_Do) - Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_Do) + Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.pb_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag) Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135) Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag" Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121) @@ -656,82 +670,82 @@ Partial Class frmEssensbestellungen Me.GroupBoxDonnerstag.TabStop = False Me.GroupBoxDonnerstag.Text = "Donnerstag" ' - 'txtMenuDo + 'txtMenu_donnerstag ' - Me.txtMenuDo.Location = New System.Drawing.Point(3, 39) - Me.txtMenuDo.Name = "txtMenuDo" - Me.txtMenuDo.Size = New System.Drawing.Size(188, 32) - Me.txtMenuDo.TabIndex = 33 - Me.txtMenuDo.Text = "Menutext" + Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag" + Me.txtMenu_donnerstag.Size = New System.Drawing.Size(188, 32) + Me.txtMenu_donnerstag.TabIndex = 33 + Me.txtMenu_donnerstag.Text = "Menutext" ' - 'pbDonnerstag + 'pb_donnerstag ' - Me.pbDonnerstag.Image = Global.AVISO.My.Resources.Resources.documents - Me.pbDonnerstag.Location = New System.Drawing.Point(171, 19) - Me.pbDonnerstag.Name = "pbDonnerstag" - Me.pbDonnerstag.Size = New System.Drawing.Size(26, 26) - Me.pbDonnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pbDonnerstag.TabIndex = 7 - Me.pbDonnerstag.TabStop = False - Me.pbDonnerstag.Visible = False + Me.pb_donnerstag.Image = Global.AVISO.My.Resources.Resources.documents + Me.pb_donnerstag.Location = New System.Drawing.Point(171, 19) + Me.pb_donnerstag.Name = "pb_donnerstag" + Me.pb_donnerstag.Size = New System.Drawing.Size(26, 26) + Me.pb_donnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_donnerstag.TabIndex = 7 + Me.pb_donnerstag.TabStop = False + Me.pb_donnerstag.Visible = False ' - 'cbDonnerstag + '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 + 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 + 'txtAlt_donnerstag ' - 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(1, 97) - 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 + Me.txtAlt_donnerstag._DateTimeOnly = False + Me.txtAlt_donnerstag._numbersOnly = False + Me.txtAlt_donnerstag._numbersOnlyKommastellen = "" + Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True + Me.txtAlt_donnerstag._Prozent = False + Me.txtAlt_donnerstag._ShortDateNew = False + Me.txtAlt_donnerstag._ShortDateOnly = False + Me.txtAlt_donnerstag._TimeOnly = False + Me.txtAlt_donnerstag._TimeOnly_Seconds = False + Me.txtAlt_donnerstag._value = "" + Me.txtAlt_donnerstag._Waehrung = False + Me.txtAlt_donnerstag._WaehrungZeichen = True + Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_donnerstag.Location = New System.Drawing.Point(1, 97) + Me.txtAlt_donnerstag.MaxLineLength = -1 + Me.txtAlt_donnerstag.MaxLines_Warning = "" + Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing + Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag" + Me.txtAlt_donnerstag.Size = New System.Drawing.Size(177, 20) + Me.txtAlt_donnerstag.TabIndex = 2 + Me.txtAlt_donnerstag.Visible = False ' - 'rbMenuAlt_Do + 'rbMenuAlt_donnerstag ' - Me.rbMenuAlt_Do.AutoSize = True - Me.rbMenuAlt_Do.GroupName = "Donnerstag" - Me.rbMenuAlt_Do.Location = New System.Drawing.Point(4, 78) - Me.rbMenuAlt_Do.Name = "rbMenuAlt_Do" - Me.rbMenuAlt_Do.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_Do.TabIndex = 1 - Me.rbMenuAlt_Do.TabStop = True - Me.rbMenuAlt_Do.Text = "A la carte" - Me.rbMenuAlt_Do.UseVisualStyleBackColor = True + Me.rbMenuAlt_donnerstag.AutoSize = True + Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag" + Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(4, 78) + Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag" + Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_donnerstag.TabIndex = 1 + Me.rbMenuAlt_donnerstag.TabStop = True + Me.rbMenuAlt_donnerstag.Text = "A la carte" + Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True ' - 'rbMenu_Do + 'rbMenu_donnerstag ' - Me.rbMenu_Do.AutoSize = True - Me.rbMenu_Do.GroupName = "Donnerstag" - Me.rbMenu_Do.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_Do.Name = "rbMenu_Do" - Me.rbMenu_Do.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_Do.TabIndex = 0 - Me.rbMenu_Do.TabStop = True - Me.rbMenu_Do.Text = "Menü" - Me.rbMenu_Do.UseVisualStyleBackColor = True + Me.rbMenu_donnerstag.AutoSize = True + Me.rbMenu_donnerstag.GroupName = "Donnerstag" + Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag" + Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_donnerstag.TabIndex = 0 + Me.rbMenu_donnerstag.TabStop = True + Me.rbMenu_donnerstag.Text = "Menü" + Me.rbMenu_donnerstag.UseVisualStyleBackColor = True ' 'txtAnzahlMenu ' @@ -768,7 +782,7 @@ Partial Class frmEssensbestellungen DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2 - Me.dgvBestellungen.Location = New System.Drawing.Point(16, 360) + Me.dgvBestellungen.Location = New System.Drawing.Point(19, 418) Me.dgvBestellungen.Name = "dgvBestellungen" Me.dgvBestellungen.ReadOnly = True DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft @@ -781,7 +795,7 @@ Partial Class frmEssensbestellungen Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvBestellungen.ShowEditingIcon = False - Me.dgvBestellungen.Size = New System.Drawing.Size(663, 165) + Me.dgvBestellungen.Size = New System.Drawing.Size(660, 165) Me.dgvBestellungen.TabIndex = 2 ' 'cbxMenu @@ -791,7 +805,7 @@ Partial Class frmEssensbestellungen Me.cbxMenu._value = "" Me.cbxMenu.DropDownWidth = 200 Me.cbxMenu.FormattingEnabled = True - Me.cbxMenu.Location = New System.Drawing.Point(15, 30) + Me.cbxMenu.Location = New System.Drawing.Point(15, 81) Me.cbxMenu.Name = "cbxMenu" Me.cbxMenu.Size = New System.Drawing.Size(136, 21) Me.cbxMenu.TabIndex = 0 @@ -799,7 +813,7 @@ Partial Class frmEssensbestellungen 'txtAbteilung ' Me.txtAbteilung.AutoSize = True - Me.txtAbteilung.Location = New System.Drawing.Point(581, 23) + Me.txtAbteilung.Location = New System.Drawing.Point(581, 74) Me.txtAbteilung.Name = "txtAbteilung" Me.txtAbteilung.Size = New System.Drawing.Size(29, 13) Me.txtAbteilung.TabIndex = 23 @@ -807,7 +821,7 @@ Partial Class frmEssensbestellungen ' 'Button2 ' - Me.Button2.Location = New System.Drawing.Point(499, 323) + Me.Button2.Location = New System.Drawing.Point(499, 385) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(180, 21) Me.Button2.TabIndex = 25 @@ -817,7 +831,7 @@ Partial Class frmEssensbestellungen 'txtMA ' Me.txtMA.AutoSize = True - Me.txtMA.Location = New System.Drawing.Point(581, 4) + Me.txtMA.Location = New System.Drawing.Point(581, 55) Me.txtMA.Name = "txtMA" Me.txtMA.Size = New System.Drawing.Size(0, 13) Me.txtMA.TabIndex = 27 @@ -825,7 +839,7 @@ Partial Class frmEssensbestellungen 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(511, 4) + Me.Label3.Location = New System.Drawing.Point(511, 55) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(59, 13) Me.Label3.TabIndex = 26 @@ -834,7 +848,7 @@ Partial Class frmEssensbestellungen 'PictureBox1 ' Me.PictureBox1.Image = Global.AVISO.My.Resources.Resources.documents - Me.PictureBox1.Location = New System.Drawing.Point(446, 22) + Me.PictureBox1.Location = New System.Drawing.Point(446, 73) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(42, 37) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage @@ -844,7 +858,7 @@ Partial Class frmEssensbestellungen 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(450, 6) + Me.Label1.Location = New System.Drawing.Point(450, 57) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(34, 13) Me.Label1.TabIndex = 28 @@ -854,16 +868,38 @@ Partial Class frmEssensbestellungen ' Me.lblTest.AutoSize = True Me.lblTest.ForeColor = System.Drawing.Color.Red - Me.lblTest.Location = New System.Drawing.Point(16, 1) + Me.lblTest.Location = New System.Drawing.Point(16, 52) Me.lblTest.Name = "lblTest" Me.lblTest.Size = New System.Drawing.Size(0, 13) Me.lblTest.TabIndex = 29 ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlTop.Controls.Add(Me.Label4) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(712, 48) + Me.pnlTop.TabIndex = 30 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(13, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(199, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Essensbestellung" + ' 'frmEssensbestellungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(687, 565) + Me.ClientSize = New System.Drawing.Size(712, 632) + Me.Controls.Add(Me.pnlTop) Me.Controls.Add(Me.lblTest) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.PictureBox1) @@ -890,21 +926,23 @@ Partial Class frmEssensbestellungen Me.MyPanel1.PerformLayout() Me.GroupBoxDienstag.ResumeLayout(False) Me.GroupBoxDienstag.PerformLayout() - CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pb_dienstag, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBoxMontag.ResumeLayout(False) Me.GroupBoxMontag.PerformLayout() - CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pb_montag, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBoxFreitag.ResumeLayout(False) Me.GroupBoxFreitag.PerformLayout() - CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pb_freitag, System.ComponentModel.ISupportInitialize).EndInit() Me.Mittwoch.ResumeLayout(False) Me.Mittwoch.PerformLayout() - CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pb_mittwoch, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBoxDonnerstag.ResumeLayout(False) Me.GroupBoxDonnerstag.PerformLayout() - CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pb_donnerstag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -916,25 +954,25 @@ Partial Class frmEssensbestellungen Friend WithEvents btnSave As Button Friend WithEvents lblDatum As Label Friend WithEvents GroupBoxMontag As GroupBox - Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents rbMenuAlt_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton - Friend WithEvents rbMenu_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAlt_montag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents GroupBoxDienstag As GroupBox - Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents rbMenuAlt_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton - Friend WithEvents rbMenu_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents Mittwoch As GroupBox - Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents rbMenuAlt_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton - Friend WithEvents rbMenu_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents GroupBoxDonnerstag As GroupBox - Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents rbMenuAlt_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton - Friend WithEvents rbMenu_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents GroupBoxFreitag As GroupBox - Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents rbMenuAlt_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton - Friend WithEvents rbMenu_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents txtAlt_freitag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents rbMenuAlt_freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton + Friend WithEvents rbMenu__freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton Friend WithEvents lbl1 As Label Friend WithEvents lbl2 As Label Friend WithEvents txtAnzahlMenu As Label @@ -944,20 +982,20 @@ 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 cb_montag As CheckBox + Friend WithEvents cb_dienstag As CheckBox + Friend WithEvents cb_mittwoch As CheckBox + Friend WithEvents cbdonnerstag As CheckBox + Friend WithEvents cb_freitag As CheckBox Friend WithEvents lblAbteilung As Label Friend WithEvents lblGebaeude As Label Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel Friend WithEvents lblBestellungen As Label - Friend WithEvents pbMontag As PictureBox - Friend WithEvents pbDienstag As PictureBox - Friend WithEvents pbMittwoch As PictureBox - Friend WithEvents pbDonnerstag As PictureBox - Friend WithEvents pbFreitag As PictureBox + Friend WithEvents pb_montag As PictureBox + Friend WithEvents pb_dienstag As PictureBox + Friend WithEvents pb_mittwoch As PictureBox + Friend WithEvents pb_donnerstag As PictureBox + Friend WithEvents pb_freitag As PictureBox Friend WithEvents txtPreis As Label Friend WithEvents Label2 As Label Friend WithEvents cbxGebauede As VERAG_PROG_ALLGEMEIN.MyComboBox @@ -969,10 +1007,13 @@ Partial Class frmEssensbestellungen Friend WithEvents Label3 As Label Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Label1 As Label - Friend WithEvents txtMenuDi As Label - Friend WithEvents txtMenuMo As Label - Friend WithEvents txtMenuFr As Label - Friend WithEvents txtMenuMi As Label - Friend WithEvents txtMenuDo As Label + Friend WithEvents txtMenu_dienstag As Label + Friend WithEvents txtMenu_montag As Label + Friend WithEvents txtMenu_freitag As Label + Friend WithEvents txtMenu_mittwoch As Label + Friend WithEvents txtMenu_donnerstag As Label Friend WithEvents lblTest As Label + Friend WithEvents pnlTop As Panel + Friend WithEvents Label4 As Label + Friend WithEvents lblWarning As Label End Class diff --git a/Aviso/frmEssensbestellungen.vb b/Aviso/frmEssensbestellungen.vb index 3692811..0c2ae38 100644 --- a/Aviso/frmEssensbestellungen.vb +++ b/Aviso/frmEssensbestellungen.vb @@ -7,14 +7,17 @@ Public Class frmEssensbestellungen Dim essen As New cEssensbestellung() Dim dt As New DataTable Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip() + 'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"} Private ToolTipFont As New Font("Courier New", 12) Dim preisProMahlzeit As Double = 3 - Dim menu As String = "Menü:" + Dim menu As String = "Menü" Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + cbxMenu.fillWithSQL("SELECT Distinct Top 10 (MenuTitel), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME @@ -38,60 +41,96 @@ Public Class frmEssensbestellungen Exit Sub End If - essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG) + essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname) - If cbMontag.Checked Then - If rbMenu_Mo.Checked Then - essen.eb_montag = "Menu" + If cb_montag.Checked Then + If rbMenu_montag.Checked Then + essen.eb_montag = menu + setWarning(False) Else - essen.eb_montag = txtAltMo.Text.ToString - End If + If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_montag = txtAlt_montag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If + End If + setWarning(False) Else essen.eb_montag = Nothing End If - If cbDienstag.Checked Then - If rbMenu_Di.Checked Then - essen.eb_dienstag = "Menu" + If cb_dienstag.Checked Then + If rbMenu_dienstag.Checked Then + essen.eb_dienstag = menu + setWarning(False) Else - essen.eb_dienstag = txtAltDi.Text.ToString + If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_dienstag = txtAlt_dienstag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If End If - + setWarning(False) Else essen.eb_dienstag = Nothing End If - If cbMittwoch.Checked Then - If rbMenu_Mi.Checked Then - essen.eb_mittwoch = "Menu" + If cb_mittwoch.Checked Then + If rbMenu_mittwoch.Checked Then + essen.eb_mittwoch = menu + setWarning(False) Else - essen.eb_mittwoch = txtAltMi.Text.ToString + If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If End If - + setWarning(False) Else essen.eb_mittwoch = Nothing End If - If cbDonnerstag.Checked Then - If rbMenu_Do.Checked Then - essen.eb_donnerstag = "Menu" + If cbdonnerstag.Checked Then + If rbMenu_donnerstag.Checked Then + essen.eb_donnerstag = menu + setWarning(False) Else - essen.eb_donnerstag = txtAltDo.Text.ToString + If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If End If - + setWarning(False) Else essen.eb_donnerstag = Nothing End If - If cbFreitag.Checked Then - If rbMenu_Fr.Checked Then - essen.eb_freitag = "Menu" + If cb_freitag.Checked Then + If rbMenu__freitag.Checked Then + essen.eb_freitag = menu + setWarning(False) Else - essen.eb_freitag = txtAltFr.Text.ToString + If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then + essen.eb_freitag = txtAlt_freitag.Text.ToString + setWarning(False) + Else + setWarning(True) + Exit Sub + End If End If - + setWarning(False) Else essen.eb_freitag = Nothing End If @@ -151,102 +190,102 @@ Public Class frmEssensbestellungen End Sub - Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged + Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged - If rbMenuAlt_Mo.Checked Then - txtAltMo.Visible = True + If rbMenuAlt_montag.Checked Then + txtAlt_montag.Visible = True Else - txtAltMo.Visible = False + txtAlt_montag.Visible = False End If - If rbMenuAlt_Di.Checked Then - txtAltDi.Visible = True + If rbMenuAlt_dienstag.Checked Then + txtAlt_dienstag.Visible = True Else - txtAltDi.Visible = False + txtAlt_dienstag.Visible = False End If - If rbMenuAlt_Mi.Checked Then - txtAltMi.Visible = True + If rbMenuAlt_mittwoch.Checked Then + txtAlt_mittwoch.Visible = True Else - txtAltMi.Visible = False + txtAlt_mittwoch.Visible = False End If - If rbMenuAlt_Do.Checked Then - txtAltDo.Visible = True + If rbMenuAlt_donnerstag.Checked Then + txtAlt_donnerstag.Visible = True Else - txtAltDo.Visible = False + txtAlt_donnerstag.Visible = False End If - If rbMenuAlt_Fr.Checked Then - txtAltFr.Visible = True + If rbMenuAlt_freitag.Checked Then + txtAlt_freitag.Visible = True Else - txtAltFr.Visible = False + txtAlt_freitag.Visible = False End If countChecks() 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 - rbMenuAlt_Mo.Enabled = True - rbMenu_Mo.Enabled = True + Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged + If cb_montag.Checked Then + rbMenuAlt_montag.Enabled = True + rbMenu_montag.Enabled = True If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then - rbMenu_Mo.Checked = True + rbMenu_montag.Checked = True End If Else - rbMenuAlt_Mo.Enabled = False - rbMenu_Mo.Enabled = False - txtAltMo.Text = "" + rbMenuAlt_montag.Enabled = False + rbMenu_montag.Enabled = False + txtAlt_montag.Text = "" End If - If cbDienstag.Checked Then - rbMenuAlt_Di.Enabled = True - rbMenu_Di.Enabled = True + If cb_dienstag.Checked Then + rbMenuAlt_dienstag.Enabled = True + rbMenu_dienstag.Enabled = True If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then - rbMenu_Di.Checked = True + rbMenu_dienstag.Checked = True End If Else - rbMenu_Di.Enabled = False - rbMenuAlt_Di.Enabled = False - txtAltDi.Text = "" + rbMenu_dienstag.Enabled = False + rbMenuAlt_dienstag.Enabled = False + txtAlt_dienstag.Text = "" End If - If cbMittwoch.Checked Then - rbMenuAlt_Mi.Enabled = True - rbMenu_Mi.Enabled = True + If cb_mittwoch.Checked Then + rbMenuAlt_mittwoch.Enabled = True + rbMenu_mittwoch.Enabled = True If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then - rbMenu_Mi.Checked = True + rbMenu_mittwoch.Checked = True End If Else - rbMenu_Mi.Enabled = False - rbMenuAlt_Mi.Enabled = False - txtAltMi.Text = "" + rbMenu_mittwoch.Enabled = False + rbMenuAlt_mittwoch.Enabled = False + txtAlt_mittwoch.Text = "" End If - If cbDonnerstag.Checked Then - rbMenuAlt_Do.Enabled = True - rbMenu_Do.Enabled = True + If cbdonnerstag.Checked Then + rbMenuAlt_donnerstag.Enabled = True + rbMenu_donnerstag.Enabled = True If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then - rbMenu_Do.Checked = True + rbMenu_donnerstag.Checked = True End If Else - rbMenu_Do.Enabled = False - rbMenuAlt_Do.Enabled = False - txtAltDo.Text = "" + rbMenu_donnerstag.Enabled = False + rbMenuAlt_donnerstag.Enabled = False + txtAlt_donnerstag.Text = "" End If - If cbFreitag.Checked Then - rbMenuAlt_Fr.Enabled = True - rbMenu_Fr.Enabled = True + If cb_freitag.Checked Then + rbMenuAlt_freitag.Enabled = True + rbMenu__freitag.Enabled = True If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then - rbMenu_Fr.Checked = True + rbMenu__freitag.Checked = True End If Else - rbMenu_Fr.Enabled = False - rbMenuAlt_Fr.Enabled = False - txtAltFr.Text = "" + rbMenu__freitag.Enabled = False + rbMenuAlt_freitag.Enabled = False + txtAlt_freitag.Text = "" End If countChecks() End Sub @@ -257,7 +296,7 @@ Public Class frmEssensbestellungen Dim SQLWhere As String = "" If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'" - Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]" + Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]" dgvBestellungen.SET_SQL(SQLString, "AVISO", ,) dgvBestellungen.LOAD() @@ -270,7 +309,8 @@ Public Class frmEssensbestellungen .Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("eb_kw").HeaderText = "KW" .Columns("eb_mitid").Visible = False - + .Columns("eb_mitname").Visible = False + .Columns("eb_datum").Visible = False .Columns("eb_abteilung").Visible = False .Columns("eb_montag").Width = 80 .Columns("eb_montag").HeaderText = "Montag" @@ -345,52 +385,52 @@ Public Class frmEssensbestellungen If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then 'pbMontag.Visible = True - rbMenu_Mo.Text = menu - txtMenuMo.Text = dt.Rows(0).Item("MenuEssenMo").ToString + rbMenu_montag.Text = menu + txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString - ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString) + ttMontag.SetToolTip(pb_montag, dt.Rows(0).Item("MenuEssenMo").ToString) Else - pbMontag.Visible = False - txtMenuMo.Text = "" + pb_montag.Visible = False + txtMenu_montag.Text = "" End If If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then 'pbDienstag.Visible = True - rbMenu_Di.Text = menu - txtMenuDi.Text = dt.Rows(0).Item("MenuEssenDi").ToString() - ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString) + rbMenu_dienstag.Text = menu + txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString() + ttDienstag.SetToolTip(pb_dienstag, dt.Rows(0).Item("MenuEssenDi").ToString) Else - pbDienstag.Visible = False + pb_dienstag.Visible = False End If If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then 'pbMittwoch.Visible = True - rbMenu_Mi.Text = menu - txtMenuMi.Text = dt.Rows(0).Item("MenuEssenMi").ToString() - ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString) + rbMenu_mittwoch.Text = menu + txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString() + ttMittwoch.SetToolTip(pb_mittwoch, dt.Rows(0).Item("MenuEssenMi").ToString) Else - pbMittwoch.Visible = False + pb_mittwoch.Visible = False End If If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then 'pbDonnerstag.Visible = True - rbMenu_Do.Text = menu - txtMenuDo.Text = dt.Rows(0).Item("MenuEssenDo").ToString() - ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString) + rbMenu_donnerstag.Text = menu + txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString() + ttDonnerstag.SetToolTip(pb_donnerstag, dt.Rows(0).Item("MenuEssenDo").ToString) Else - pbDonnerstag.Visible = False + pb_donnerstag.Visible = False End If If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then 'pbFreitag.Visible = True - rbMenu_Fr.Text = menu - txtMenuFr.Text = dt.Rows(0).Item("MenuEssenFr").ToString() - ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString) + rbMenu__freitag.Text = menu + txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString() + ttFreitag.SetToolTip(pb_freitag, dt.Rows(0).Item("MenuEssenFr").ToString) Else - pbFreitag.Visible = False + pb_freitag.Visible = False End If End Sub @@ -399,70 +439,70 @@ Public Class frmEssensbestellungen If dgvBestellungen.Rows.Count = 0 Then Exit Sub - Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value) + Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value, dgvBestellungen.CurrentRow.Cells("eb_mitname").Value) cbxMenu.changeItem(currentEssen.eb_kw) If currentEssen.eb_montag IsNot Nothing Then - cbMontag.Checked = True + cb_montag.Checked = True If currentEssen.eb_montag.ToString = "Menu" Then - rbMenu_Mo.Checked = True + rbMenu_montag.Checked = True Else - rbMenuAlt_Mo.Checked = True - If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString + rbMenuAlt_montag.Checked = True + If currentEssen.eb_montag IsNot Nothing Then txtAlt_montag.Text = currentEssen.eb_montag.ToString End If Else - cbMontag.Checked = False + cb_montag.Checked = False End If If currentEssen.eb_dienstag IsNot Nothing Then - cbDienstag.Checked = True + cb_dienstag.Checked = True If currentEssen.eb_dienstag.ToString = "Menu" Then - rbMenu_Di.Checked = True + rbMenu_dienstag.Checked = True Else - rbMenuAlt_Di.Checked = True - If currentEssen.eb_dienstag IsNot Nothing Then txtAltDi.Text = currentEssen.eb_dienstag.ToString + rbMenuAlt_dienstag.Checked = True + If currentEssen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = currentEssen.eb_dienstag.ToString End If Else - cbDienstag.Checked = False + cb_dienstag.Checked = False End If If currentEssen.eb_mittwoch IsNot Nothing Then - cbMittwoch.Checked = True + cb_mittwoch.Checked = True If currentEssen.eb_mittwoch.ToString = "Menu" Then - rbMenu_Mi.Checked = True + rbMenu_mittwoch.Checked = True Else - rbMenuAlt_Mi.Checked = True - If currentEssen.eb_mittwoch IsNot Nothing Then txtAltMi.Text = currentEssen.eb_mittwoch.ToString + rbMenuAlt_mittwoch.Checked = True + If currentEssen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString End If Else - cbMittwoch.Checked = False + cb_mittwoch.Checked = False End If If currentEssen.eb_donnerstag IsNot Nothing Then - cbDonnerstag.Checked = True + cbdonnerstag.Checked = True If currentEssen.eb_donnerstag.ToString = "Menu" Then - rbMenu_Do.Checked = True + rbMenu_donnerstag.Checked = True Else - rbMenuAlt_Do.Checked = True - If currentEssen.eb_donnerstag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_donnerstag.ToString + rbMenuAlt_donnerstag.Checked = True + If currentEssen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString End If Else - cbMittwoch.Checked = False + cb_mittwoch.Checked = False End If If currentEssen.eb_freitag IsNot Nothing Then - cbFreitag.Checked = True + cb_freitag.Checked = True If currentEssen.eb_freitag.ToString = "Menu" Then - rbMenu_Fr.Checked = True + rbMenu__freitag.Checked = True Else - rbMenuAlt_Fr.Checked = True - If currentEssen.eb_freitag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_freitag.ToString + rbMenuAlt_freitag.Checked = True + If currentEssen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_freitag.ToString End If Else - cbFreitag.Checked = False + cb_freitag.Checked = False End If @@ -501,7 +541,7 @@ Public Class frmEssensbestellungen Try Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon")) - Dim tageBisBestellende = 50 '-5 + Dim tageBisBestellende = 10000 '-5 If tageBisBestellende > 0 Then lblTest.Text = "Zu Testzwecken darf aktuell " & tageBisBestellende & " Tage im Nachhinein bestellt werden!" @@ -528,7 +568,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 + Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click countChecks() End Sub @@ -557,4 +597,16 @@ Public Class frmEssensbestellungen End Function + Private Sub setWarning(warning As Boolean) + + If warning Then + lblWarning.Text = "Bezeichnung für A la carte fehlt" + Else + + lblWarning.Text = "" + + End If + + End Sub + End Class \ No newline at end of file diff --git a/Aviso/frmEssensbestellungenAdministration.Designer.vb b/Aviso/frmEssensbestellungenAdministration.Designer.vb new file mode 100644 index 0000000..2b84b6e --- /dev/null +++ b/Aviso/frmEssensbestellungenAdministration.Designer.vb @@ -0,0 +1,670 @@ + _ +Partial Class frmEssensbestellungenAdministration + 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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxNichtAbgeschickt = New System.Windows.Forms.CheckBox() + Me.cbxAbgerechnet = New System.Windows.Forms.CheckBox() + Me.cbxStornos = New System.Windows.Forms.CheckBox() + Me.FlatButton7 = New System.Windows.Forms.Button() + Me.btnSuche = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnJahr = New System.Windows.Forms.Button() + Me.btnBisJahr = New System.Windows.Forms.Button() + Me.btnVonJahr = New System.Windows.Forms.Button() + Me.Label23 = New System.Windows.Forms.Label() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label13 = New System.Windows.Forms.Label() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.Label18 = New System.Windows.Forms.Label() + Me.btnMonat = New System.Windows.Forms.Button() + Me.btnBisMonat = New System.Windows.Forms.Button() + Me.btnVonMonat = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AbgerechnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AnHigway118SchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtAnzahlDS = New System.Windows.Forms.TextBox() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.cboGebaeude = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBestellDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBestellDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMitarbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnKW = New System.Windows.Forms.Button() + Me.btnBisKW = New System.Windows.Forms.Button() + Me.btnVonKW = New System.Windows.Forms.Button() + Me.pnlTop.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlTop.Controls.Add(Me.Label4) + Me.pnlTop.Controls.Add(Me.Label22) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(1242, 48) + Me.pnlTop.TabIndex = 1 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(10, 13) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(386, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Administration-Essensbestellungen" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.ForeColor = System.Drawing.Color.White + Me.Label22.Location = New System.Drawing.Point(505, 22) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(221, 13) + Me.Label22.TabIndex = 1 + Me.Label22.Text = "(Erweiterte suche: * vor oder nach dem Text )" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.btnKW) + Me.Panel1.Controls.Add(Me.btnBisKW) + Me.Panel1.Controls.Add(Me.btnVonKW) + Me.Panel1.Controls.Add(Me.cbxNichtAbgeschickt) + Me.Panel1.Controls.Add(Me.cbxAbgerechnet) + Me.Panel1.Controls.Add(Me.cbxStornos) + Me.Panel1.Controls.Add(Me.FlatButton7) + Me.Panel1.Controls.Add(Me.btnSuche) + Me.Panel1.Controls.Add(Me.cboGebaeude) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.btnJahr) + Me.Panel1.Controls.Add(Me.btnBisJahr) + Me.Panel1.Controls.Add(Me.btnVonJahr) + Me.Panel1.Controls.Add(Me.txtBestellDat) + Me.Panel1.Controls.Add(Me.Label23) + Me.Panel1.Controls.Add(Me.txtBestellDatBis) + Me.Panel1.Controls.Add(Me.DateTimePicker2) + Me.Panel1.Controls.Add(Me.Label13) + Me.Panel1.Controls.Add(Me.DateTimePicker1) + Me.Panel1.Controls.Add(Me.txtMitarbeiter) + Me.Panel1.Controls.Add(Me.Label18) + Me.Panel1.Controls.Add(Me.btnMonat) + Me.Panel1.Controls.Add(Me.btnBisMonat) + Me.Panel1.Controls.Add(Me.btnVonMonat) + Me.Panel1.Controls.Add(Me.cboAbteilung) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Location = New System.Drawing.Point(0, 49) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1242, 85) + Me.Panel1.TabIndex = 2 + ' + 'cbxNichtAbgeschickt + ' + Me.cbxNichtAbgeschickt.AutoSize = True + Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(618, 48) + Me.cbxNichtAbgeschickt.Name = "cbxNichtAbgeschickt" + Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17) + Me.cbxNichtAbgeschickt.TabIndex = 51 + Me.cbxNichtAbgeschickt.Text = "noch nicht abgeschickt" + Me.cbxNichtAbgeschickt.UseVisualStyleBackColor = True + ' + 'cbxAbgerechnet + ' + Me.cbxAbgerechnet.AutoSize = True + Me.cbxAbgerechnet.Location = New System.Drawing.Point(618, 9) + Me.cbxAbgerechnet.Name = "cbxAbgerechnet" + Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17) + Me.cbxAbgerechnet.TabIndex = 50 + Me.cbxAbgerechnet.Text = "abgerechnet" + Me.cbxAbgerechnet.UseVisualStyleBackColor = True + ' + 'cbxStornos + ' + Me.cbxStornos.AutoSize = True + Me.cbxStornos.Location = New System.Drawing.Point(618, 29) + Me.cbxStornos.Name = "cbxStornos" + Me.cbxStornos.Size = New System.Drawing.Size(63, 17) + Me.cbxStornos.TabIndex = 49 + Me.cbxStornos.Text = "storniert" + Me.cbxStornos.UseVisualStyleBackColor = True + ' + 'FlatButton7 + ' + Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FlatButton7.ForeColor = System.Drawing.Color.Black + Me.FlatButton7.Image = Global.AVISO.My.Resources.Resources.refresh + Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.FlatButton7.Location = New System.Drawing.Point(990, 18) + Me.FlatButton7.Name = "FlatButton7" + Me.FlatButton7.Size = New System.Drawing.Size(41, 34) + Me.FlatButton7.TabIndex = 48 + Me.FlatButton7.UseVisualStyleBackColor = True + ' + 'btnSuche + ' + Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSuche.Location = New System.Drawing.Point(1068, 13) + Me.btnSuche.Name = "btnSuche" + Me.btnSuche.Size = New System.Drawing.Size(162, 52) + Me.btnSuche.TabIndex = 47 + Me.btnSuche.Text = "Suche starten" + Me.btnSuche.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(758, 13) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(58, 13) + Me.Label3.TabIndex = 45 + Me.Label3.Text = "Gebäude" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(11, 13) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(56, 13) + Me.Label2.TabIndex = 42 + Me.Label2.Text = "Zeitraum" + ' + 'btnJahr + ' + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(186, 29) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 40 + Me.btnJahr.Text = "2023" + Me.btnJahr.UseVisualStyleBackColor = True + ' + 'btnBisJahr + ' + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(272, 29) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 41 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = True + ' + 'btnVonJahr + ' + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(153, 29) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 39 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(11, 56) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 37 + Me.Label23.Text = "bis:" + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(40, 53) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker2.TabIndex = 36 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(11, 32) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 38 + Me.Label13.Text = "von:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(40, 28) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker1.TabIndex = 34 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(360, 13) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(67, 13) + Me.Label18.TabIndex = 31 + Me.Label18.Text = "Mitarbeiter" + ' + 'btnMonat + ' + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(186, 9) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 24 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = True + ' + 'btnBisMonat + ' + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(272, 9) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 25 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = True + ' + 'btnVonMonat + ' + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(153, 9) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 23 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(860, 13) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(60, 13) + Me.Label1.TabIndex = 21 + Me.Label1.Text = "Abteilung" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StornierenToolStripMenuItem, Me.AbgerechnetToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.AnHigway118SchickenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(203, 114) + ' + 'StornierenToolStripMenuItem + ' + Me.StornierenToolStripMenuItem.Name = "StornierenToolStripMenuItem" + Me.StornierenToolStripMenuItem.Size = New System.Drawing.Size(202, 22) + Me.StornierenToolStripMenuItem.Text = "stornieren" + ' + 'AbgerechnetToolStripMenuItem + ' + Me.AbgerechnetToolStripMenuItem.Name = "AbgerechnetToolStripMenuItem" + Me.AbgerechnetToolStripMenuItem.Size = New System.Drawing.Size(202, 22) + Me.AbgerechnetToolStripMenuItem.Text = "abgerechnet" + ' + 'BearbeitenToolStripMenuItem + ' + Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem" + Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(202, 22) + Me.BearbeitenToolStripMenuItem.Text = "bearbeiten" + ' + 'AnHigway118SchickenToolStripMenuItem + ' + Me.AnHigway118SchickenToolStripMenuItem.Name = "AnHigway118SchickenToolStripMenuItem" + Me.AnHigway118SchickenToolStripMenuItem.Size = New System.Drawing.Size(202, 22) + Me.AnHigway118SchickenToolStripMenuItem.Text = "An Higway 118 schicken" + ' + 'txtAnzahlDS + ' + Me.txtAnzahlDS.Location = New System.Drawing.Point(1170, 744) + Me.txtAnzahlDS.Name = "txtAnzahlDS" + Me.txtAnzahlDS.ReadOnly = True + Me.txtAnzahlDS.Size = New System.Drawing.Size(60, 20) + Me.txtAnzahlDS.TabIndex = 45 + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(860, 747) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(45, 13) + Me.Label27.TabIndex = 46 + Me.Label27.Text = "Summe:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(1065, 748) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(99, 13) + Me.Label5.TabIndex = 44 + Me.Label5.Text = "Anzahl Datensätze:" + ' + 'txtSumme + ' + Me.txtSumme._DateTimeOnly = False + Me.txtSumme._numbersOnly = False + Me.txtSumme._numbersOnlyKommastellen = "" + Me.txtSumme._numbersOnlyTrennzeichen = False + Me.txtSumme._Prozent = False + Me.txtSumme._ShortDateNew = False + Me.txtSumme._ShortDateOnly = False + Me.txtSumme._TimeOnly = False + Me.txtSumme._TimeOnly_Seconds = False + Me.txtSumme._value = "" + Me.txtSumme._Waehrung = True + Me.txtSumme._WaehrungZeichen = True + Me.txtSumme.ForeColor = System.Drawing.Color.Black + Me.txtSumme.Location = New System.Drawing.Point(931, 744) + Me.txtSumme.MaxLineLength = -1 + Me.txtSumme.MaxLines_Warning = "" + Me.txtSumme.MaxLines_Warning_Label = Nothing + Me.txtSumme.Name = "txtSumme" + Me.txtSumme.ReadOnly = True + Me.txtSumme.Size = New System.Drawing.Size(100, 20) + Me.txtSumme.TabIndex = 47 + ' + 'dgvBestellungen + ' + Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvBestellungen.AllowUserToAddRows = False + Me.dgvBestellungen.AllowUserToDeleteRows = False + Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvBestellungen.ContextMenuStrip = Me.ContextMenuStrip1 + Me.dgvBestellungen.Location = New System.Drawing.Point(0, 140) + Me.dgvBestellungen.Name = "dgvBestellungen" + Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 598) + Me.dgvBestellungen.TabIndex = 43 + ' + 'cboGebaeude + ' + Me.cboGebaeude._allowedValuesFreiText = Nothing + Me.cboGebaeude._allowFreiText = True + Me.cboGebaeude._value = "" + Me.cboGebaeude.DropDownWidth = 250 + Me.cboGebaeude.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboGebaeude.FormattingEnabled = True + Me.cboGebaeude.Location = New System.Drawing.Point(761, 26) + Me.cboGebaeude.Name = "cboGebaeude" + Me.cboGebaeude.Size = New System.Drawing.Size(80, 22) + Me.cboGebaeude.TabIndex = 46 + ' + 'txtBestellDat + ' + Me.txtBestellDat._DateTimeOnly = False + Me.txtBestellDat._numbersOnly = False + Me.txtBestellDat._numbersOnlyKommastellen = "" + Me.txtBestellDat._numbersOnlyTrennzeichen = True + Me.txtBestellDat._Prozent = False + Me.txtBestellDat._ShortDateNew = False + Me.txtBestellDat._ShortDateOnly = True + Me.txtBestellDat._TimeOnly = False + Me.txtBestellDat._TimeOnly_Seconds = False + Me.txtBestellDat._value = "" + Me.txtBestellDat._Waehrung = False + Me.txtBestellDat._WaehrungZeichen = True + Me.txtBestellDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBestellDat.ForeColor = System.Drawing.Color.Black + Me.txtBestellDat.Location = New System.Drawing.Point(40, 28) + Me.txtBestellDat.MaxLength = 10 + Me.txtBestellDat.MaxLineLength = -1 + Me.txtBestellDat.MaxLines_Warning = "" + Me.txtBestellDat.MaxLines_Warning_Label = Nothing + Me.txtBestellDat.Name = "txtBestellDat" + Me.txtBestellDat.Size = New System.Drawing.Size(63, 20) + Me.txtBestellDat.TabIndex = 33 + ' + 'txtBestellDatBis + ' + Me.txtBestellDatBis._DateTimeOnly = False + Me.txtBestellDatBis._numbersOnly = False + Me.txtBestellDatBis._numbersOnlyKommastellen = "" + Me.txtBestellDatBis._numbersOnlyTrennzeichen = True + Me.txtBestellDatBis._Prozent = False + Me.txtBestellDatBis._ShortDateNew = False + Me.txtBestellDatBis._ShortDateOnly = True + Me.txtBestellDatBis._TimeOnly = False + Me.txtBestellDatBis._TimeOnly_Seconds = False + Me.txtBestellDatBis._value = "" + Me.txtBestellDatBis._Waehrung = False + Me.txtBestellDatBis._WaehrungZeichen = True + Me.txtBestellDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBestellDatBis.ForeColor = System.Drawing.Color.Black + Me.txtBestellDatBis.Location = New System.Drawing.Point(40, 53) + Me.txtBestellDatBis.MaxLength = 10 + Me.txtBestellDatBis.MaxLineLength = -1 + Me.txtBestellDatBis.MaxLines_Warning = "" + Me.txtBestellDatBis.MaxLines_Warning_Label = Nothing + Me.txtBestellDatBis.Name = "txtBestellDatBis" + Me.txtBestellDatBis.Size = New System.Drawing.Size(63, 20) + Me.txtBestellDatBis.TabIndex = 35 + ' + 'txtMitarbeiter + ' + Me.txtMitarbeiter._DateTimeOnly = False + Me.txtMitarbeiter._numbersOnly = False + Me.txtMitarbeiter._numbersOnlyKommastellen = "" + Me.txtMitarbeiter._numbersOnlyTrennzeichen = True + Me.txtMitarbeiter._Prozent = False + Me.txtMitarbeiter._ShortDateNew = False + Me.txtMitarbeiter._ShortDateOnly = False + Me.txtMitarbeiter._TimeOnly = False + Me.txtMitarbeiter._TimeOnly_Seconds = False + Me.txtMitarbeiter._value = Nothing + Me.txtMitarbeiter._Waehrung = False + Me.txtMitarbeiter._WaehrungZeichen = False + Me.txtMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMitarbeiter.ForeColor = System.Drawing.Color.Black + Me.txtMitarbeiter.Location = New System.Drawing.Point(363, 28) + Me.txtMitarbeiter.MaxLineLength = -1 + Me.txtMitarbeiter.MaxLines_Warning = "" + Me.txtMitarbeiter.MaxLines_Warning_Label = Nothing + Me.txtMitarbeiter.Name = "txtMitarbeiter" + Me.txtMitarbeiter.Size = New System.Drawing.Size(218, 20) + Me.txtMitarbeiter.TabIndex = 32 + ' + 'cboAbteilung + ' + Me.cboAbteilung._allowedValuesFreiText = Nothing + Me.cboAbteilung._allowFreiText = False + Me.cboAbteilung._value = "" + Me.cboAbteilung.DropDownWidth = 250 + Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAbteilung.FormattingEnabled = True + Me.cboAbteilung.Location = New System.Drawing.Point(863, 26) + Me.cboAbteilung.Name = "cboAbteilung" + Me.cboAbteilung.Size = New System.Drawing.Size(80, 22) + Me.cboAbteilung.TabIndex = 22 + ' + 'btnKW + ' + Me.btnKW.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnKW.ForeColor = System.Drawing.Color.Black + Me.btnKW.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnKW.Location = New System.Drawing.Point(186, 51) + Me.btnKW.Margin = New System.Windows.Forms.Padding(0) + Me.btnKW.Name = "btnKW" + Me.btnKW.Size = New System.Drawing.Size(87, 23) + Me.btnKW.TabIndex = 53 + Me.btnKW.Text = "KW 1" + Me.btnKW.UseVisualStyleBackColor = True + ' + 'btnBisKW + ' + Me.btnBisKW.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisKW.ForeColor = System.Drawing.Color.Black + Me.btnBisKW.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisKW.Location = New System.Drawing.Point(272, 51) + Me.btnBisKW.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisKW.Name = "btnBisKW" + Me.btnBisKW.Size = New System.Drawing.Size(34, 23) + Me.btnBisKW.TabIndex = 54 + Me.btnBisKW.Text = ">>" + Me.btnBisKW.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisKW.UseVisualStyleBackColor = True + ' + 'btnVonKW + ' + Me.btnVonKW.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonKW.ForeColor = System.Drawing.Color.Black + Me.btnVonKW.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonKW.Location = New System.Drawing.Point(153, 51) + Me.btnVonKW.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonKW.Name = "btnVonKW" + Me.btnVonKW.Size = New System.Drawing.Size(34, 23) + Me.btnVonKW.TabIndex = 52 + Me.btnVonKW.Text = "<<" + Me.btnVonKW.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonKW.UseVisualStyleBackColor = True + ' + 'frmEssensbestellungenAdministration + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1242, 767) + Me.Controls.Add(Me.txtSumme) + Me.Controls.Add(Me.txtAnzahlDS) + Me.Controls.Add(Me.Label27) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.dgvBestellungen) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnlTop) + Me.Name = "frmEssensbestellungenAdministration" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Essensbestellungen Administration" + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents pnlTop As Panel + Friend WithEvents Label4 As Label + Friend WithEvents Label22 As Label + Friend WithEvents Panel1 As Panel + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents StornierenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents AbgerechnetToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cboAbteilung As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label1 As Label + Friend WithEvents btnMonat As Button + Friend WithEvents btnBisMonat As Button + Friend WithEvents btnVonMonat As Button + Friend WithEvents txtMitarbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label18 As Label + Friend WithEvents txtBestellDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label23 As Label + Friend WithEvents txtBestellDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents DateTimePicker2 As DateTimePicker + Friend WithEvents Label13 As Label + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents btnJahr As Button + Friend WithEvents btnBisJahr As Button + Friend WithEvents btnVonJahr As Button + Friend WithEvents Label2 As Label + Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents cboGebaeude As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label3 As Label + Friend WithEvents btnSuche As Button + Friend WithEvents FlatButton7 As Button + Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAnzahlDS As TextBox + Friend WithEvents Label27 As Label + Friend WithEvents Label5 As Label + Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cbxAbgerechnet As CheckBox + Friend WithEvents cbxStornos As CheckBox + Friend WithEvents AnHigway118SchickenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cbxNichtAbgeschickt As CheckBox + Friend WithEvents btnKW As Button + Friend WithEvents btnBisKW As Button + Friend WithEvents btnVonKW As Button +End Class diff --git a/Aviso/frmEssensbestellungenAdministration.resx b/Aviso/frmEssensbestellungenAdministration.resx new file mode 100644 index 0000000..279a447 --- /dev/null +++ b/Aviso/frmEssensbestellungenAdministration.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb new file mode 100644 index 0000000..356085e --- /dev/null +++ b/Aviso/frmEssensbestellungenAdministration.vb @@ -0,0 +1,396 @@ +Imports System.Web.UI.HtmlControls +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmEssensbestellungenAdministration + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Private Sub frmEssensbestellungenAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + txtBestellDat.Text = Date.Parse("01.01.2001") + txtBestellDatBis.Text = Now.ToShortDateString + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + txtMitarbeiter.Text = "" + cboGebaeude.changeItem("") + cboAbteilung.changeItem("") + cbxStornos.Checked = False + cbxAbgerechnet.Checked = False + + cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice")) + cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag")) + cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag Verrechnung", "Verag Verrechnung")) + cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut")) + cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboGebaeude.changeItem("") + + cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True) + cboAbteilung.changeItem("") + + loadBestellungen() + + End Sub + + + Private Sub loadBestellungen() + + + Dim SQLString As String = "SELECT [eb_mitid] , [eb_mitname] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch], + [eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am] + FROM + [tblEssensbestellungen] WHERE 1=1" + + dgvBestellungen.SET_SQL(SQLString & bestellungenWhereClause() & " Order by eb_datum, eb_mitid", "AVISO", ,) + dgvBestellungen.LOAD() + + + If dgvBestellungen.Columns.Count < 1 Then Exit Sub + + With dgvBestellungen + If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + + .RowHeadersWidth = 10 + .Columns("eb_kw").HeaderText = "KW" + .Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("eb_mitid").HeaderText = "MID" + .Columns("eb_mitid").Width = 40 + .Columns("eb_mitname").HeaderText = "Mitarbeiter" + .Columns("eb_abteilung").Visible = False + .Columns("eb_datum").Width = 80 + .Columns("eb_datum").HeaderText = "Datum" + .Columns("eb_montag").Width = 80 + .Columns("eb_montag").HeaderText = "Montag" + .Columns("eb_montag").Width = 80 + .Columns("eb_dienstag").HeaderText = "Dienstag" + .Columns("eb_dienstag").Width = 80 + .Columns("eb_mittwoch").HeaderText = "Mittwoch" + .Columns("eb_mittwoch").Width = 80 + .Columns("eb_donnerstag").HeaderText = "Donnerstag" + .Columns("eb_donnerstag").Width = 80 + .Columns("eb_freitag").HeaderText = "Freitag" + .Columns("eb_freitag").Width = 80 + .Columns("eb_gebaeude").HeaderText = "Gebäude" + .Columns("eb_gebaeude").Width = 80 + .Columns("eb_preis").HeaderText = "Preis" + .Columns("eb_preis").Width = 40 + .Columns("eb_preis").DefaultCellStyle.Format = "N" + .Columns("eb_storniert_am").HeaderText = "Storniert am" + .Columns("eb_abgerechnet_am").HeaderText = "Abgerechnet am" + .Columns("eb_gesendet_am").HeaderText = "Gesendet am" + .Columns("eb_storniert").Visible = False + .Columns("eb_abgerechnet").Visible = False + .Columns("eb_gesendet").Visible = False + .Columns("eb_anmerkung").HeaderText = "Anmerkung" + End With + + + For Each row As DataGridViewRow In dgvBestellungen.Rows + If Not IsDBNull(row.Cells("eb_storniert").Value) Then + If row.Cells("eb_storniert").Value Then + row.DefaultCellStyle.BackColor = Color.IndianRed + End If + End If + If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then + If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen + End If + + Next + + txtAnzahlDS.Text = dgvBestellungen.Rows.Count + calcSumme() + + End Sub + + Private Function bestellungenWhereClause() As String + + Dim SQLwhere = "" + + If cboGebaeude._value IsNot "" Then SQLwhere &= " AND [eb_gebaeude] = '" & cboGebaeude._value.ToString & "'" + If cboAbteilung._value IsNot "" Then SQLwhere &= " AND [eb_abteilung] = '" & cboAbteilung._value.ToString & "'" + If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'" + If cbxStornos.Checked Then + SQLwhere &= " AND [eb_storniert] = '1'" + Else + SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'" + End If + + If cbxAbgerechnet.Checked Then + SQLwhere &= " AND [eb_abgerechnet] = '1'" + Else + SQLwhere &= " AND ISNULL([eb_abgerechnet],0) = '0'" + End If + + If cbxNichtAbgeschickt.Checked Then + SQLwhere &= " AND ISNULL([eb_gesendet],0) = '0'" + Else + 'SQLwhere &= " AND [eb_gesendet] = '1'" + End If + + If txtBestellDat._value <> Nothing AndAlso txtBestellDatBis._value <> Nothing Then + SQLwhere &= " AND [eb_datum] BETWEEN '" & txtBestellDat._value & "' AND '" & txtBestellDatBis._value & "'" + End If + + Return SQLwhere + + End Function + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtBestellDat._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtBestellDatBis._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) + Dim srcTAG As Date = CDate(Now.ToShortDateString) + + Dim JAHR As Date = CDate("01.01." & Now.Year) + + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + + End Sub + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub + + Private Sub txtMitarbeiter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMitarbeiter.KeyDown + If e.KeyCode = Keys.Enter Then + + Me.loadBestellungen() + e.Handled = True + + End If + End Sub + + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged + loadBestellungen() + End Sub + + Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click + + txtMitarbeiter.Text = "" + cboGebaeude.changeItem("") + cboAbteilung.changeItem("") + cbxStornos.Checked = False + cbxAbgerechnet.Checked = False + txtBestellDat.Text = Date.Parse("01.01.2001") + txtBestellDatBis.Text = Now.ToShortDateString + Me.btnSuche.PerformClick() + + End Sub + + Private Sub calcSumme() + + Dim countSumme As Double = 0 + + + For i As Integer = 0 To dgvBestellungen.Rows.Count - 1 + countSumme += CDbl(dgvBestellungen.Rows(i).Cells("eb_preis").Value) + + Next + + txtSumme._value = countSumme.ToString + + End Sub + + Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click + + Dim bestellung As New cEssensbestellung(dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value, dgvBestellungen.SelectedRows(0).Cells("eb_mitid").Value) + + Using UserControl1 As UsrCntlessensbestellungen = New UsrCntlessensbestellungen(bestellung) + Using tmpForm As Form = New Form() + tmpForm.Width = UserControl1.Width + tmpForm.Height = UserControl1.Height + tmpForm.Text = bestellung.eb_kw.ToString & " - " & bestellung.eb_mitname.ToString + tmpForm.StartPosition = tmpForm.StartPosition.CenterParent + tmpForm.Controls.Add(UserControl1) + If tmpForm.ShowDialog() = DialogResult.OK Then + + End If + + End Using + End Using + End Sub + + Private Sub AbgerechnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbgerechnetToolStripMenuItem.Click, StornierenToolStripMenuItem.Click, AnHigway118SchickenToolStripMenuItem.Click + If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub + + Select Case sender.Text + Case "abgerechnet" + Select Case dgvBestellungen.SelectedRows.Count + Case 1 + If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then + bestellungenAbrechnen(True) + Else + Exit Sub + End If + Case Else + If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abrechnen", vbYesNoCancel) Then + bestellungenAbrechnen(True) + Else + Exit Sub + + End If + + + End Select + + + Case "stornieren" + Select Case dgvBestellungen.SelectedRows.Count + Case 1 + If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " wirklich stornieren", vbYesNoCancel) Then + bestellungenStornieren(True) + Else + Exit Sub + End If + Case Else + + If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen wirklich stornieren", vbYesNoCancel) Then + bestellungenStornieren(True) + Else + Exit Sub + End If + + + End Select + + + Case "An Higway 118 schicken" + Select Case dgvBestellungen.SelectedRows.Count + Case 1 + If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abschicken?", vbYesNoCancel) Then + bestellungenSenden(True) + Else + Exit Sub + End If + Case Else + + If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then + bestellungenSenden(True) + Else + Exit Sub + End If + + + End Select + + + End Select + + + End Sub + Private Sub bestellungenStornieren(stornieren As Boolean) + + + For Each row As DataGridViewRow In dgvBestellungen.SelectedRows + + Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value) + + bestellung.eb_storniert = True + If stornieren Then + bestellung.eb_storniert_am = Now + Else + bestellung.eb_storniert_am = DBNull.Value + + End If + + bestellung.SAVE() + + + Next + + + End Sub + + Private Sub bestellungenAbrechnen(abrechnen As Boolean) + + + For Each row As DataGridViewRow In dgvBestellungen.SelectedRows + + Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value) + + bestellung.eb_abgerechnet = abrechnen + If abrechnen Then + bestellung.eb_abgerechnet_am = Now + Else + bestellung.eb_abgerechnet_am = DBNull.Value + + End If + + dgvBestellungen.SetOrder() + bestellung.SAVE() + dgvBestellungen.GetOrder() + Next + + + End Sub + + Private Sub bestellungenSenden(senden As Boolean) + + + For Each row As DataGridViewRow In dgvBestellungen.SelectedRows + + Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value) + + bestellung.eb_gesendet = senden + If senden Then + bestellung.eb_gesendet_am = Now + Else + bestellung.eb_gesendet_am = DBNull.Value + + End If + + dgvBestellungen.SetOrder() + bestellung.SAVE() + dgvBestellungen.GetOrder() + Next + + + End Sub + + +End Class \ No newline at end of file diff --git a/Aviso/frmEssensbestellungenBearbeiten.Designer.vb b/Aviso/frmEssensbestellungenBearbeiten.Designer.vb new file mode 100644 index 0000000..bd17e86 --- /dev/null +++ b/Aviso/frmEssensbestellungenBearbeiten.Designer.vb @@ -0,0 +1,140 @@ + _ +Partial Class frmEssensbestellungenBearbeiten + 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 + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + '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() + Me.CheckBox3 = New System.Windows.Forms.CheckBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtGebäude = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.CheckBox2 = New System.Windows.Forms.CheckBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() + Me.SuspendLayout() + ' + 'CheckBox3 + ' + Me.CheckBox3.AutoSize = True + Me.CheckBox3.Location = New System.Drawing.Point(231, 12) + Me.CheckBox3.Name = "CheckBox3" + Me.CheckBox3.Size = New System.Drawing.Size(70, 17) + Me.CheckBox3.TabIndex = 36 + Me.CheckBox3.Text = "gesendet" + Me.CheckBox3.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(487, 15) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(54, 13) + Me.Label1.TabIndex = 34 + Me.Label1.Text = "Gebäude:" + ' + 'txtGebäude + ' + Me.txtGebäude._DateTimeOnly = False + Me.txtGebäude._numbersOnly = False + Me.txtGebäude._numbersOnlyKommastellen = "" + Me.txtGebäude._numbersOnlyTrennzeichen = True + Me.txtGebäude._Prozent = False + Me.txtGebäude._ShortDateNew = False + Me.txtGebäude._ShortDateOnly = False + Me.txtGebäude._TimeOnly = False + Me.txtGebäude._TimeOnly_Seconds = False + Me.txtGebäude._value = "" + Me.txtGebäude._Waehrung = False + Me.txtGebäude._WaehrungZeichen = True + Me.txtGebäude.ForeColor = System.Drawing.Color.Black + Me.txtGebäude.Location = New System.Drawing.Point(547, 12) + Me.txtGebäude.MaxLineLength = -1 + Me.txtGebäude.MaxLines_Warning = "" + Me.txtGebäude.MaxLines_Warning_Label = Nothing + Me.txtGebäude.Name = "txtGebäude" + Me.txtGebäude.Size = New System.Drawing.Size(120, 20) + Me.txtGebäude.TabIndex = 35 + ' + 'CheckBox2 + ' + Me.CheckBox2.AutoSize = True + Me.CheckBox2.Location = New System.Drawing.Point(18, 12) + Me.CheckBox2.Name = "CheckBox2" + Me.CheckBox2.Size = New System.Drawing.Size(86, 17) + Me.CheckBox2.TabIndex = 33 + Me.CheckBox2.Text = "abgerechnet" + Me.CheckBox2.UseVisualStyleBackColor = True + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(127, 12) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(63, 17) + Me.CheckBox1.TabIndex = 32 + Me.CheckBox1.Text = "storniert" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Location = New System.Drawing.Point(344, 415) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 37 + Me.Button1.Text = "Speichern" + Me.Button1.UseVisualStyleBackColor = True + ' + 'UsrCntlBenachrichtigungen1 + ' + Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(428, 125) + Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" + Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(284, 203) + Me.UsrCntlBenachrichtigungen1.TabIndex = 38 + ' + 'frmEssensbestellungenBearbeiten + ' + 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.UsrCntlBenachrichtigungen1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.CheckBox3) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtGebäude) + Me.Controls.Add(Me.CheckBox2) + Me.Controls.Add(Me.CheckBox1) + Me.Name = "frmEssensbestellungenBearbeiten" + Me.Text = "frmEssensbestellungenBearbeiten" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents CheckBox3 As CheckBox + Friend WithEvents Label1 As Label + Friend WithEvents txtGebäude As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents CheckBox2 As CheckBox + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents Button1 As Button + Friend WithEvents UsrCntlBenachrichtigungen1 As usrCntlBenachrichtigungen +End Class diff --git a/Aviso/frmEssensbestellungenBearbeiten.resx b/Aviso/frmEssensbestellungenBearbeiten.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Aviso/frmEssensbestellungenBearbeiten.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Aviso/frmEssensbestellungenBearbeiten.vb b/Aviso/frmEssensbestellungenBearbeiten.vb new file mode 100644 index 0000000..650278b --- /dev/null +++ b/Aviso/frmEssensbestellungenBearbeiten.vb @@ -0,0 +1,3 @@ +Public Class frmEssensbestellungenBearbeiten + +End Class \ No newline at end of file diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index c43e15e..1f8d1b0 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -12,7 +12,9 @@ Public Class frmGesamtsicherheitenMenuNEU Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + 'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) + cbxWarenort.DropDownWidth = 150 Me.Text = "Gesamtsicherheiten " & Standort frmHauptfenster.EnableDoubleBuffered(dgvListe) @@ -116,18 +118,9 @@ Public Class frmGesamtsicherheitenMenuNEU If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True) - Else - dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False) - End If - End If - Next - - - For Each row As DataGridViewRow In dgvListe.Rows - If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then - If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then row.DefaultCellStyle.BackColor = Color.IndianRed Else + dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False) row.DefaultCellStyle.BackColor = Color.Green End If End If diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index c166ee8..7697a79 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -33,6 +33,8 @@ Partial Class frmGesamtsicherheitenNEU Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlChangeATCNr = New System.Windows.Forms.Panel() + Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() Me.txtWarenwertContext = New System.Windows.Forms.TextBox() Me.lblWarenwertContext = New System.Windows.Forms.Label() Me.txtUhrzeitaendern = New System.Windows.Forms.TextBox() @@ -142,8 +144,6 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox() - Me.Label30 = New System.Windows.Forms.Label() Me.ContextMenuStripGesSicherh.SuspendLayout() Me.Panel2.SuspendLayout() Me.pnlChangeATCNr.SuspendLayout() @@ -205,6 +205,27 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATCNr.TabIndex = 13 Me.pnlChangeATCNr.Visible = False ' + 'txtSicherheitsbetragContext + ' + Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSicherheitsbetragContext.Location = New System.Drawing.Point(147, 133) + Me.txtSicherheitsbetragContext.Margin = New System.Windows.Forms.Padding(0) + Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext" + Me.txtSicherheitsbetragContext.ReadOnly = True + Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24) + Me.txtSicherheitsbetragContext.TabIndex = 14 + Me.txtSicherheitsbetragContext.TabStop = False + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label30.Location = New System.Drawing.Point(10, 133) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(134, 20) + Me.Label30.TabIndex = 15 + Me.Label30.Text = "Sicherheitsbetrag" + ' 'txtWarenwertContext ' Me.txtWarenwertContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1634,27 +1655,6 @@ Partial Class frmGesamtsicherheitenNEU Me.btnAddSicherheit.TabIndex = 36 Me.btnAddSicherheit.UseVisualStyleBackColor = False ' - 'txtSicherheitsbetragContext - ' - Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSicherheitsbetragContext.Location = New System.Drawing.Point(147, 133) - Me.txtSicherheitsbetragContext.Margin = New System.Windows.Forms.Padding(0) - Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext" - Me.txtSicherheitsbetragContext.ReadOnly = True - Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24) - Me.txtSicherheitsbetragContext.TabIndex = 14 - Me.txtSicherheitsbetragContext.TabStop = False - ' - 'Label30 - ' - Me.Label30.AutoSize = True - Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.Location = New System.Drawing.Point(10, 133) - Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(134, 20) - Me.Label30.TabIndex = 15 - Me.Label30.Text = "Sicherheitsbetrag" - ' 'frmGesamtsicherheitenNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index bad1466..26110e1 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -79,7 +79,7 @@ Public Class frmGesamtsicherheitenNEU cbx_offene.Checked = True initPrevNextButtons() - + changeLabel() Me.Text = "Gesamtsicherheit " & Standort frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos) @@ -116,20 +116,33 @@ Public Class frmGesamtsicherheitenNEU .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gs_saldo").DefaultCellStyle.Format = "c" .Columns("gs_saldo").Visible = True + Select Case currentGesSichRef.brgakto_gs_ATR Case True - .Columns("gs_ATBNr").HeaderText = "ATB" + + If Standort = "Verag GmbH" Then + .Columns("gs_ATBNr").HeaderText = "ATB" + Else + .Columns("gs_ATBNr").HeaderText = "T1 MRN" + End If + .Columns("gs_ATBNr").Width = 130 .Columns("gs_atr").HeaderText = "ATR" .Columns("gs_atr").Visible = True .Columns("gs_atr").Width = 35 .Columns("gs_ust").Width = 70 .Columns("gs_ust").HeaderText = "Ust" + Case Else - .Columns("gs_ATBNr").HeaderText = "ATB" + + If Standort = "Verag GmbH" Then + .Columns("gs_ATBNr").HeaderText = "ATB" + Else + .Columns("gs_ATBNr").HeaderText = "T1 MRN" + End If .Columns("gs_ATBNr").Width = 150 End Select - + changeLabel(currentGesSichRef.brgakto_gs_ATR) .Columns("gs_posNr").Width = 35 .Columns("gs_posNr").HeaderText = "Pos#" @@ -268,9 +281,23 @@ Public Class frmGesamtsicherheitenNEU .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c" Select Case currentGesSichRef.brgakto_gs_ATR Case True - .Columns("gsp_ATCNr").HeaderText = "ATC / MRN" + If Standort = "Verag GmbH" Then + .Columns("gsp_ATCNr").HeaderText = "ATC / MRN" + ElseIf Standort = "VERAG AG" Then + .Columns("gsp_ATCNr").HeaderText = "T1 CRN" + Else + .Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN" + End If + Case Else - .Columns("gsp_ATCNr").HeaderText = "CRN / MRN" + If Standort = "Verag GmbH" Then + .Columns("gsp_ATCNr").HeaderText = "CRN / MRN" + ElseIf Standort = "VERAG AG" Then + .Columns("gsp_ATCNr").HeaderText = "T1 CRN" + Else + .Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN" + End If + End Select .Columns("gsp_ATCNr").Width = 140 .Columns("gsp_datum").Width = 100 @@ -1593,4 +1620,26 @@ Public Class frmGesamtsicherheitenNEU End Sub + Private Sub changeLabel(Optional isATR As Boolean = True) + + If Standort = "Verag GmbH" Then + Label1.Text = "ATB Nummer" + + If isATR Then + Label12.Text = "ATC / MRN" + Else + + Label12.Text = "CRN / MRN" + End If + + + ElseIf Standort = "VERAG AG" Then + Label12.Text = "T1 CRN" + Label1.Text = "T1 MRN" + Else + Label12.Text = "EZA / T1 CRN" + Label1.Text = "T1 MRN" + End If + + End Sub End Class diff --git a/Aviso/frmHauptfenster.Designer.vb b/Aviso/frmHauptfenster.Designer.vb index 821a6c4..7be06b1 100644 --- a/Aviso/frmHauptfenster.Designer.vb +++ b/Aviso/frmHauptfenster.Designer.vb @@ -24,15 +24,15 @@ Partial Class frmHauptfenster Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster)) - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 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() + 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 DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -116,6 +116,10 @@ Partial Class frmHauptfenster Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() + Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem() Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() @@ -125,10 +129,6 @@ Partial Class frmHauptfenster Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem() Me.VorauskassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -268,6 +268,7 @@ Partial Class frmHauptfenster Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem() Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() + Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() Me.pnl = New System.Windows.Forms.Panel() Me.Button10 = New System.Windows.Forms.Button() Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) @@ -368,7 +369,7 @@ Partial Class frmHauptfenster Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() - Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen() + Me.AdministrationEssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.conMenuAviso.SuspendLayout() Me.MenuStrip1.SuspendLayout() Me.Top.SuspendLayout() @@ -831,7 +832,7 @@ Partial Class frmHauptfenster ' '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.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem}) + 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.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem}) Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20) Me.FunktionenToolStripMenuItem.Text = "Funktionen" @@ -931,6 +932,34 @@ Partial Class frmHauptfenster Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel" Me.ToolStripMenuItem6.Visible = False ' + 'DEGesamtsicherheitVeragGmbHToolStripMenuItem + ' + Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem" + Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH" + Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False + ' + 'ATGesamtsicherheitVeragAGToolStripMenuItem + ' + Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem" + Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG" + Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False + ' + 'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem + ' + Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem" + Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH" + Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False + ' + 'ATGesamtsicherheitVeragCSToolStripMenuItem + ' + Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem" + Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS" + Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False + ' 'ToolStripMenuItem10 ' Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" @@ -984,34 +1013,6 @@ Partial Class frmHauptfenster Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen" ' - 'DEGesamtsicherheitVeragGmbHToolStripMenuItem - ' - Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem" - Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) - Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH" - Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False - ' - 'ATGesamtsicherheitVeragAGToolStripMenuItem - ' - Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem" - Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22) - Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG" - Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False - ' - 'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem - ' - Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem" - Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22) - Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH" - Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False - ' - 'ATGesamtsicherheitVeragCSToolStripMenuItem - ' - Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem" - Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22) - Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS" - Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False - ' 'EssensbestellungenToolStripMenuItem ' Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem" @@ -2276,6 +2277,15 @@ Partial Class frmHauptfenster Me.SplitContainer3.SplitterDistance = 158 Me.SplitContainer3.TabIndex = 3 ' + 'UsrCntlBenachrichtigungen1 + ' + Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" + Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300) + Me.UsrCntlBenachrichtigungen1.TabIndex = 0 + ' 'pnl ' Me.pnl.Controls.Add(Me.Button10) @@ -2308,38 +2318,38 @@ Partial Class frmHauptfenster Me.gridMyAviso.AllowUserToDeleteRows = False Me.gridMyAviso.AllowUserToOrderColumns = True Me.gridMyAviso.AllowUserToResizeRows = False - DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure - Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure + Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) - DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3 Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill Me.gridMyAviso.Location = New System.Drawing.Point(0, 21) Me.gridMyAviso.Name = "gridMyAviso" Me.gridMyAviso.ReadOnly = True - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.gridMyAviso.RowHeadersVisible = False Me.gridMyAviso.RowHeadersWidth = 62 Me.gridMyAviso.Size = New System.Drawing.Size(488, 279) @@ -2737,47 +2747,47 @@ Partial Class frmHauptfenster Me.gridAviso.AllowUserToAddRows = False Me.gridAviso.AllowUserToDeleteRows = False Me.gridAviso.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue - DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue + DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 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.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.gridAviso.ColumnHeadersHeight = 25 Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7 Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill Me.gridAviso.Location = New System.Drawing.Point(0, 220) Me.gridAviso.MultiSelect = False Me.gridAviso.Name = "gridAviso" Me.gridAviso.ReadOnly = True - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.gridAviso.RowHeadersVisible = False Me.gridAviso.RowHeadersWidth = 62 Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9 Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect @@ -3505,14 +3515,11 @@ Partial Class frmHauptfenster Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) Me.UsrCntlTestsystem1.TabIndex = 8 ' - 'UsrCntlBenachrichtigungen1 + 'AdministrationEssensbestellungenToolStripMenuItem ' - Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1" - Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300) - Me.UsrCntlBenachrichtigungen1.TabIndex = 0 + Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem" + Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22) + Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen" ' 'frmHauptfenster ' @@ -3922,4 +3929,5 @@ Partial Class frmHauptfenster Friend WithEvents tabINDONESIEN As TabPage Friend WithEvents conAnVerimex As ToolStripMenuItem Friend WithEvents conAnIndonesien As ToolStripMenuItem + Friend WithEvents AdministrationEssensbestellungenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmHauptfenster.resx b/Aviso/frmHauptfenster.resx index 0a40422..1b1c7ab 100644 --- a/Aviso/frmHauptfenster.resx +++ b/Aviso/frmHauptfenster.resx @@ -228,9 +228,6 @@ pOTzPwAAAABJRU5ErkJggg== - - 598, 17 - 697, 17 diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 601479e..dec4b2c 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -4323,7 +4323,10 @@ Public Class frmHauptfenster f.ShowDialog(Me) End Sub - + Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click + Dim f As New frmEssensbestellungenAdministration() + f.ShowDialog(Me) + End Sub End Class Public Class AvisoStatusFunctions diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 9e7a98e..ef6097a 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5461,15 +5461,18 @@ Public Class frmSendungsdetailsNEU Dim olSess = outl.Session + Dim accounts = olSess.Accounts + Dim account As Outlook.Account + Dim PathTmpANH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.CurrentRow.Cells("anh_docId").Value) Mail = CType(olSess.OpenSharedItem(PathTmpANH), Outlook.MailItem) - Dim accounts = olSess.Accounts - Dim account As Outlook.Account - For Each account In accounts - If account.UserName.ToString = "brexit" Then Mail.SendUsingAccount = account + If account.UserName.ToString = "brexit" Then + Mail.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString + + End If Next Mail = Mail.ReplyAll