Essensbestellungen

2023-01-09 16:23:32 +01:00
parent aae58351a7
commit ebafee916f
8 changed files with 459 additions and 89 deletions
--- a/Aviso/frmEssensbestellungenAdministration.Designer.vb
+++ b/Aviso/frmEssensbestellungenAdministration.Designer.vb
@@ -63,6 +63,13 @@ Partial Class frmEssensbestellungenAdministration
        Me.Label5 = New System.Windows.Forms.Label()
        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.cbxMailKW = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cbxMailGebäude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
        Me.pnlTop.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
@@ -139,7 +146,7 @@ Partial Class frmEssensbestellungenAdministration
        Me.cbKW._allowedValuesFreiText = Nothing
        Me.cbKW._allowFreiText = False
        Me.cbKW._value = ""
-        Me.cbKW.DropDownWidth = 250
+        Me.cbKW.DropDownWidth = 100
        Me.cbKW.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cbKW.FormattingEnabled = True
        Me.cbKW.Location = New System.Drawing.Point(311, 29)
@@ -487,35 +494,35 @@ Partial Class frmEssensbestellungenAdministration
        '
        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, 92)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(283, 92)
        '
        'StornierenToolStripMenuItem
        '
        Me.StornierenToolStripMenuItem.Name = "StornierenToolStripMenuItem"
-        Me.StornierenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.StornierenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
        Me.StornierenToolStripMenuItem.Text = "stornieren"
        '
        'AbgerechnetToolStripMenuItem
        '
        Me.AbgerechnetToolStripMenuItem.Name = "AbgerechnetToolStripMenuItem"
-        Me.AbgerechnetToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.AbgerechnetToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
        Me.AbgerechnetToolStripMenuItem.Text = "abgerechnet"
        '
        'BearbeitenToolStripMenuItem
        '
        Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
-        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
+        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(282, 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"
+        Me.AnHigway118SchickenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
+        Me.AnHigway118SchickenToolStripMenuItem.Text = "markierte Bestellungen per Mail senden"
        '
        'txtAnzahlDS
        '
-        Me.txtAnzahlDS.Location = New System.Drawing.Point(1170, 744)
+        Me.txtAnzahlDS.Location = New System.Drawing.Point(1170, 741)
        Me.txtAnzahlDS.Name = "txtAnzahlDS"
        Me.txtAnzahlDS.ReadOnly = True
        Me.txtAnzahlDS.Size = New System.Drawing.Size(60, 20)
@@ -525,7 +532,7 @@ Partial Class frmEssensbestellungenAdministration
        '
        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.Location = New System.Drawing.Point(860, 744)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(45, 13)
        Me.Label27.TabIndex = 46
@@ -535,7 +542,7 @@ Partial Class frmEssensbestellungenAdministration
        '
        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.Location = New System.Drawing.Point(1065, 745)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(99, 13)
        Me.Label5.TabIndex = 44
@@ -556,7 +563,7 @@ Partial Class frmEssensbestellungenAdministration
        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.Location = New System.Drawing.Point(931, 741)
        Me.txtSumme.MaxLineLength = -1
        Me.txtSumme.MaxLines_Warning = ""
        Me.txtSumme.MaxLines_Warning_Label = Nothing
@@ -574,15 +581,103 @@ Partial Class frmEssensbestellungenAdministration
        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.Size = New System.Drawing.Size(1242, 581)
        Me.dgvBestellungen.TabIndex = 43
        '
+        'cbxMailKW
+        '
+        Me.cbxMailKW._allowedValuesFreiText = Nothing
+        Me.cbxMailKW._allowFreiText = False
+        Me.cbxMailKW._value = ""
+        Me.cbxMailKW.DropDownWidth = 100
+        Me.cbxMailKW.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxMailKW.FormattingEnabled = True
+        Me.cbxMailKW.Location = New System.Drawing.Point(14, 741)
+        Me.cbxMailKW.Name = "cbxMailKW"
+        Me.cbxMailKW.Size = New System.Drawing.Size(91, 22)
+        Me.cbxMailKW.TabIndex = 57
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(11, 724)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(94, 13)
+        Me.Label7.TabIndex = 56
+        Me.Label7.Text = "Kalenderwoche"
+        '
+        'cbxMailGebäude
+        '
+        Me.cbxMailGebäude._allowedValuesFreiText = Nothing
+        Me.cbxMailGebäude._allowFreiText = True
+        Me.cbxMailGebäude._value = ""
+        Me.cbxMailGebäude.DropDownWidth = 250
+        Me.cbxMailGebäude.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxMailGebäude.FormattingEnabled = True
+        Me.cbxMailGebäude.Location = New System.Drawing.Point(122, 741)
+        Me.cbxMailGebäude.Name = "cbxMailGebäude"
+        Me.cbxMailGebäude.Size = New System.Drawing.Size(80, 22)
+        Me.cbxMailGebäude.TabIndex = 55
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(119, 724)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(58, 13)
+        Me.Label8.TabIndex = 54
+        Me.Label8.Text = "Gebäude"
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(228, 734)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(113, 29)
+        Me.Button1.TabIndex = 54
+        Me.Button1.Text = "Email"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(496, 744)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarning.TabIndex = 58
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(361, 734)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(113, 29)
+        Me.Button2.TabIndex = 59
+        Me.Button2.Text = "Excel"
+        Me.Button2.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.Button2)
+        Me.Controls.Add(Me.lblWarning)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.cbxMailKW)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.cbxMailGebäude)
        Me.Controls.Add(Me.txtSumme)
+        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.txtAnzahlDS)
        Me.Controls.Add(Me.Label27)
        Me.Controls.Add(Me.Label5)
@@ -643,4 +738,11 @@ Partial Class frmEssensbestellungenAdministration
    Friend WithEvents cbxNichtAbgeschickt As CheckBox
    Friend WithEvents cbKW As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents Label6 As Label
+    Friend WithEvents cbxMailKW As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents cbxMailGebäude As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents Button2 As Button
 End Class