Mailvorlagen und Essensbestellungen

2024-04-19 15:33:42 +02:00
parent 507866ebe8
commit 0e6a08cc02
4 changed files with 171 additions and 82 deletions
--- a/SDL/frmEssensbestellungenAdministration.Designer.vb
+++ b/SDL/frmEssensbestellungenAdministration.Designer.vb
@@ -28,6 +28,8 @@ Partial Class frmEssensbestellungenAdministration
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.txtarchivieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxCurrenyear = New System.Windows.Forms.CheckBox()
        Me.cbxAlleAnzeigen = New System.Windows.Forms.CheckBox()
        Me.lblBestellungBis = New System.Windows.Forms.Label()
@@ -73,16 +75,16 @@ Partial Class frmEssensbestellungenAdministration
        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.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.Label9 = New System.Windows.Forms.Label()
+        Me.cbxMailKW = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxMailGebäude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.pnlTop.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
@@ -123,6 +125,8 @@ Partial Class frmEssensbestellungenAdministration
        '
        'Panel1
        '
+        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.Controls.Add(Me.txtarchivieren)
        Me.Panel1.Controls.Add(Me.cbxCurrenyear)
        Me.Panel1.Controls.Add(Me.cbxAlleAnzeigen)
        Me.Panel1.Controls.Add(Me.lblBestellungBis)
@@ -163,6 +167,40 @@ Partial Class frmEssensbestellungenAdministration
        Me.Panel1.Size = New System.Drawing.Size(1242, 106)
        Me.Panel1.TabIndex = 2
        '
+        'Button3
+        '
+        Me.Button3.Enabled = False
+        Me.Button3.Location = New System.Drawing.Point(111, 77)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(91, 23)
+        Me.Button3.TabIndex = 75
+        Me.Button3.Text = "archivieren"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'txtarchivieren
+        '
+        Me.txtarchivieren._DateTimeOnly = False
+        Me.txtarchivieren._numbersOnly = True
+        Me.txtarchivieren._numbersOnlyKommastellen = ""
+        Me.txtarchivieren._numbersOnlyTrennzeichen = True
+        Me.txtarchivieren._Prozent = False
+        Me.txtarchivieren._ShortDateNew = False
+        Me.txtarchivieren._ShortDateOnly = False
+        Me.txtarchivieren._TimeOnly = False
+        Me.txtarchivieren._TimeOnly_Seconds = False
+        Me.txtarchivieren._value = ""
+        Me.txtarchivieren._Waehrung = False
+        Me.txtarchivieren._WaehrungZeichen = False
+        Me.txtarchivieren.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtarchivieren.ForeColor = System.Drawing.Color.Black
+        Me.txtarchivieren.Location = New System.Drawing.Point(40, 79)
+        Me.txtarchivieren.MaxLineLength = -1
+        Me.txtarchivieren.MaxLines_Warning = ""
+        Me.txtarchivieren.MaxLines_Warning_Label = Nothing
+        Me.txtarchivieren.Name = "txtarchivieren"
+        Me.txtarchivieren.Size = New System.Drawing.Size(63, 20)
+        Me.txtarchivieren.TabIndex = 74
+        '
        'cbxCurrenyear
        '
        Me.cbxCurrenyear.AutoSize = True
@@ -177,7 +215,7 @@ Partial Class frmEssensbestellungenAdministration
        'cbxAlleAnzeigen
        '
        Me.cbxAlleAnzeigen.AutoSize = True
-        Me.cbxAlleAnzeigen.Location = New System.Drawing.Point(668, 79)
+        Me.cbxAlleAnzeigen.Location = New System.Drawing.Point(669, 78)
        Me.cbxAlleAnzeigen.Name = "cbxAlleAnzeigen"
        Me.cbxAlleAnzeigen.Size = New System.Drawing.Size(42, 17)
        Me.cbxAlleAnzeigen.TabIndex = 72
@@ -312,7 +350,7 @@ Partial Class frmEssensbestellungenAdministration
        'cbxNichtAbgeschickt
        '
        Me.cbxNichtAbgeschickt.AutoSize = True
-        Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(668, 58)
+        Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(669, 57)
        Me.cbxNichtAbgeschickt.Name = "cbxNichtAbgeschickt"
        Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17)
        Me.cbxNichtAbgeschickt.TabIndex = 51
@@ -322,7 +360,7 @@ Partial Class frmEssensbestellungenAdministration
        'cbxAbgerechnet
        '
        Me.cbxAbgerechnet.AutoSize = True
-        Me.cbxAbgerechnet.Location = New System.Drawing.Point(668, 19)
+        Me.cbxAbgerechnet.Location = New System.Drawing.Point(669, 18)
        Me.cbxAbgerechnet.Name = "cbxAbgerechnet"
        Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17)
        Me.cbxAbgerechnet.TabIndex = 50
@@ -332,7 +370,7 @@ Partial Class frmEssensbestellungenAdministration
        'cbxStornos
        '
        Me.cbxStornos.AutoSize = True
-        Me.cbxStornos.Location = New System.Drawing.Point(668, 39)
+        Me.cbxStornos.Location = New System.Drawing.Point(669, 38)
        Me.cbxStornos.Name = "cbxStornos"
        Me.cbxStornos.Size = New System.Drawing.Size(63, 17)
        Me.cbxStornos.TabIndex = 49
@@ -707,56 +745,6 @@ Partial Class frmEssensbestellungenAdministration
        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(1130, 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
-        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        '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, 161)
-        Me.dgvBestellungen.Name = "dgvBestellungen"
-        Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 560)
-        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
@@ -767,19 +755,6 @@ Partial Class frmEssensbestellungenAdministration
        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
@@ -836,6 +811,69 @@ Partial Class frmEssensbestellungenAdministration
        Me.Label9.Text = "Gesamtbetrag"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
+        '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
+        '
+        '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
+        '
+        '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(1130, 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
+        Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '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, 161)
+        Me.dgvBestellungen.Name = "dgvBestellungen"
+        Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 560)
+        Me.dgvBestellungen.TabIndex = 43
+        '
        'frmEssensbestellungenAdministration
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -930,4 +968,6 @@ Partial Class frmEssensbestellungenAdministration
    Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ExcelToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents cbxCurrenyear As CheckBox
+    Friend WithEvents Button3 As Button
+    Friend WithEvents txtarchivieren As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class