From 50b394058c7f785d6b664830001688340895fee7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Jan 2023 17:48:02 +0100 Subject: [PATCH] Essensbestellungen --- Aviso/Aviso.vbproj | 9 - Aviso/UsrCntlEssensbestellungen.vb | 133 ++++---- ...sensbestellungenAdministration.Designer.vb | 320 ++++++++---------- Aviso/frmEssensbestellungenAdministration.vb | 94 ++++- ...rmEssensbestellungenBearbeiten.Designer.vb | 140 -------- Aviso/frmEssensbestellungenBearbeiten.resx | 120 ------- Aviso/frmEssensbestellungenBearbeiten.vb | 3 - 7 files changed, 316 insertions(+), 503 deletions(-) delete mode 100644 Aviso/frmEssensbestellungenBearbeiten.Designer.vb delete mode 100644 Aviso/frmEssensbestellungenBearbeiten.resx delete mode 100644 Aviso/frmEssensbestellungenBearbeiten.vb diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 274e068..4b6aeae 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -549,12 +549,6 @@ Form - - frmEssensbestellungenBearbeiten.vb - - - Form - frmFrachtkostenBerechnen.vb @@ -1119,9 +1113,6 @@ frmEssensbestellungenAdministration.vb - - frmEssensbestellungenBearbeiten.vb - frmFrachtkostenBerechnen.vb diff --git a/Aviso/UsrCntlEssensbestellungen.vb b/Aviso/UsrCntlEssensbestellungen.vb index 9cfa4d8..7fde908 100644 --- a/Aviso/UsrCntlEssensbestellungen.vb +++ b/Aviso/UsrCntlEssensbestellungen.vb @@ -211,8 +211,10 @@ Public Class UsrCntlessensbestellungen 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 + txtGebäude.Enabled = False Else MyPanel1.Enabled = True + txtGebäude.Enabled = True End If End Sub @@ -318,6 +320,23 @@ Public Class UsrCntlessensbestellungen essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon")) essen.eb_gebaeude = txtGebäude.Text.ToString + + If CheckBox1.Checked = False Then + essen.eb_abgerechnet = False + essen.eb_abgerechnet_am = DBNull.Value + End If + + If CheckBox2.Checked = False Then + essen.eb_storniert = False + essen.eb_storniert_am = DBNull.Value + End If + + If CheckBox3.Checked = False Then + essen.eb_gesendet = False + essen.eb_gesendet_am = DBNull.Value + End If + + If essen.SAVE() Then End If @@ -390,70 +409,70 @@ Public Class UsrCntlessensbestellungen End Sub - 'Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 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_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_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_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_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 + 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 Sub End Class diff --git a/Aviso/frmEssensbestellungenAdministration.Designer.vb b/Aviso/frmEssensbestellungenAdministration.Designer.vb index 2b84b6e..f2f7092 100644 --- a/Aviso/frmEssensbestellungenAdministration.Designer.vb +++ b/Aviso/frmEssensbestellungenAdministration.Designer.vb @@ -27,24 +27,31 @@ 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.cbKW = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label6 = New System.Windows.Forms.Label() 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.cboGebaeude = New VERAG_PROG_ALLGEMEIN.MyComboBox() 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.txtBestellDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label23 = New System.Windows.Forms.Label() + Me.txtBestellDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.Label13 = New System.Windows.Forms.Label() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.txtMitarbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label1 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.StornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -56,14 +63,6 @@ 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.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() @@ -104,9 +103,8 @@ Partial Class frmEssensbestellungenAdministration ' 'Panel1 ' - Me.Panel1.Controls.Add(Me.btnKW) - Me.Panel1.Controls.Add(Me.btnBisKW) - Me.Panel1.Controls.Add(Me.btnVonKW) + Me.Panel1.Controls.Add(Me.cbKW) + Me.Panel1.Controls.Add(Me.Label6) Me.Panel1.Controls.Add(Me.cbxNichtAbgeschickt) Me.Panel1.Controls.Add(Me.cbxAbgerechnet) Me.Panel1.Controls.Add(Me.cbxStornos) @@ -136,10 +134,33 @@ Partial Class frmEssensbestellungenAdministration Me.Panel1.Size = New System.Drawing.Size(1242, 85) Me.Panel1.TabIndex = 2 ' + 'cbKW + ' + Me.cbKW._allowedValuesFreiText = Nothing + Me.cbKW._allowFreiText = False + Me.cbKW._value = "" + Me.cbKW.DropDownWidth = 250 + 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) + Me.cbKW.Name = "cbKW" + Me.cbKW.Size = New System.Drawing.Size(80, 22) + Me.cbKW.TabIndex = 53 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(308, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(94, 13) + Me.Label6.TabIndex = 52 + Me.Label6.Text = "Kalenderwoche" + ' 'cbxNichtAbgeschickt ' Me.cbxNichtAbgeschickt.AutoSize = True - Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(618, 48) + Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(668, 58) Me.cbxNichtAbgeschickt.Name = "cbxNichtAbgeschickt" Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17) Me.cbxNichtAbgeschickt.TabIndex = 51 @@ -149,7 +170,7 @@ Partial Class frmEssensbestellungenAdministration 'cbxAbgerechnet ' Me.cbxAbgerechnet.AutoSize = True - Me.cbxAbgerechnet.Location = New System.Drawing.Point(618, 9) + Me.cbxAbgerechnet.Location = New System.Drawing.Point(668, 19) Me.cbxAbgerechnet.Name = "cbxAbgerechnet" Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17) Me.cbxAbgerechnet.TabIndex = 50 @@ -159,7 +180,7 @@ Partial Class frmEssensbestellungenAdministration 'cbxStornos ' Me.cbxStornos.AutoSize = True - Me.cbxStornos.Location = New System.Drawing.Point(618, 29) + Me.cbxStornos.Location = New System.Drawing.Point(668, 39) Me.cbxStornos.Name = "cbxStornos" Me.cbxStornos.Size = New System.Drawing.Size(63, 17) Me.cbxStornos.TabIndex = 49 @@ -175,7 +196,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(1007, 25) Me.FlatButton7.Name = "FlatButton7" Me.FlatButton7.Size = New System.Drawing.Size(41, 34) Me.FlatButton7.TabIndex = 48 @@ -194,11 +215,24 @@ Partial Class frmEssensbestellungenAdministration Me.btnSuche.Text = "Suche starten" Me.btnSuche.UseVisualStyleBackColor = True ' + '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(814, 25) + Me.cboGebaeude.Name = "cboGebaeude" + Me.cboGebaeude.Size = New System.Drawing.Size(80, 22) + Me.cboGebaeude.TabIndex = 46 + ' '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.Location = New System.Drawing.Point(811, 12) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(58, 13) Me.Label3.TabIndex = 45 @@ -220,7 +254,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(176, 49) Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) Me.btnJahr.Name = "btnJahr" Me.btnJahr.Size = New System.Drawing.Size(87, 23) @@ -234,7 +268,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(262, 49) Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) Me.btnBisJahr.Name = "btnBisJahr" Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) @@ -249,7 +283,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(143, 49) Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) Me.btnVonJahr.Name = "btnVonJahr" Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) @@ -258,6 +292,31 @@ Partial Class frmEssensbestellungenAdministration Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnVonJahr.UseVisualStyleBackColor = True ' + '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 + ' 'Label23 ' Me.Label23.AutoSize = True @@ -267,6 +326,31 @@ Partial Class frmEssensbestellungenAdministration Me.Label23.TabIndex = 37 Me.Label23.Text = "bis:" ' + '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 + ' 'DateTimePicker2 ' Me.DateTimePicker2.CustomFormat = "''" @@ -298,11 +382,35 @@ Partial Class frmEssensbestellungenAdministration Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) Me.DateTimePicker1.TabIndex = 34 ' + '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(432, 27) + 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 + ' '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.Location = New System.Drawing.Point(429, 12) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(67, 13) Me.Label18.TabIndex = 31 @@ -314,7 +422,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(176, 29) Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) Me.btnMonat.Name = "btnMonat" Me.btnMonat.Size = New System.Drawing.Size(87, 23) @@ -328,7 +436,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(262, 29) Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) Me.btnBisMonat.Name = "btnBisMonat" Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) @@ -343,7 +451,7 @@ Partial Class frmEssensbestellungenAdministration 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.Location = New System.Drawing.Point(143, 29) Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) Me.btnVonMonat.Name = "btnVonMonat" Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) @@ -352,11 +460,24 @@ Partial Class frmEssensbestellungenAdministration Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnVonMonat.UseVisualStyleBackColor = True ' + '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(916, 25) + Me.cboAbteilung.Name = "cboAbteilung" + Me.cboAbteilung.Size = New System.Drawing.Size(80, 22) + Me.cboAbteilung.TabIndex = 22 + ' '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.Location = New System.Drawing.Point(913, 12) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(60, 13) Me.Label1.TabIndex = 21 @@ -366,7 +487,7 @@ 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, 114) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(203, 92) ' 'StornierenToolStripMenuItem ' @@ -456,150 +577,6 @@ Partial Class frmEssensbestellungenAdministration 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!) @@ -664,7 +641,6 @@ Partial Class frmEssensbestellungenAdministration 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 + Friend WithEvents cbKW As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label6 As Label End Class diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb index 356085e..7df9e9e 100644 --- a/Aviso/frmEssensbestellungenAdministration.vb +++ b/Aviso/frmEssensbestellungenAdministration.vb @@ -1,4 +1,5 @@ Imports System.Web.UI.HtmlControls +Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN Public Class frmEssensbestellungenAdministration @@ -28,6 +29,8 @@ Public Class frmEssensbestellungenAdministration cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True) cboAbteilung.changeItem("") + cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]", False, "AVISO", True) + loadBestellungen() End Sub @@ -151,7 +154,7 @@ Public Class frmEssensbestellungenAdministration 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) @@ -248,7 +251,9 @@ Public Class frmEssensbestellungenAdministration tmpForm.StartPosition = tmpForm.StartPosition.CenterParent tmpForm.Controls.Add(UserControl1) If tmpForm.ShowDialog() = DialogResult.OK Then - + dgvBestellungen.SetOrder() + loadBestellungen() + dgvBestellungen.GetOrder() End If End Using @@ -304,6 +309,7 @@ Public Class frmEssensbestellungenAdministration 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) + generateEMailforHighway() Else Exit Sub End If @@ -311,6 +317,7 @@ Public Class frmEssensbestellungenAdministration If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then bestellungenSenden(True) + generateEMailforHighway() Else Exit Sub End If @@ -392,5 +399,88 @@ Public Class frmEssensbestellungenAdministration End Sub + Private Sub generateEMailforHighway() + + Me.Cursor = Cursors.WaitCursor + Try + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + + + Mail = outl.CreateItem(0) + + Mail.Subject = "Essensbestellung: " + + Dim DETextHTML = "" + DETextHTML &= "Hallo,
" + DETextHTML &= "
" + DETextHTML &= "Anbei ist die Essensbestellung für .
" + + Dim TextHTMLtable = "" + + TextHTMLtable &= "" + TextHTMLtable &= "" + + + Dim cnt = 1 + For Each row In dgvBestellungen.SelectedRows + + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + Next + + TextHTMLtable &= "
KW MontagDienstagMittwochDonnerstagFreitagGebäude
" & row.Cells("eb_mitname").Value & "" & row.Cells("eb_montag").Value & "" & row.Cells("eb_dienstag").Value & "" & row.Cells("eb_mittwoch").Value & "" & row.Cells("eb_donnerstag").Value & "" & row.Cells("eb_freitag").Value & "" & row.Cells("eb_gebaeude").Value & "
" + + Dim EndTextHTML = "" + + EndTextHTML &= "
" + EndTextHTML &= "
" + EndTextHTML &= "Bitte um kurze Bestätigung nach Erhalt der Mail, danke.
" + EndTextHTML &= "
" + EndTextHTML &= "Mit freundlichen Grüßen/Best regards
" + EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + EndTextHTML &= "
" + + Mail.HTMLBody = "
" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "
" + Mail.Display() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + + + Me.Cursor = Cursors.Default + + + + + End Sub + + Private Sub cbKW_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbKW.SelectedValueChanged + + If cbKW._value Is Nothing Then Exit Sub + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & cbKW._value & "' order by MenuDateVon desc", "AVISO", 100, True) + + If dt.Rows.Count > 0 Then + + txtBestellDat.Text = CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") + txtBestellDatBis.Text = CDate(dt.Rows(0).Item("MenuDateBis")).ToString("dd.MM.yyyy") + btnSuche.PerformClick() + End If + + + + End Sub + End Class \ No newline at end of file diff --git a/Aviso/frmEssensbestellungenBearbeiten.Designer.vb b/Aviso/frmEssensbestellungenBearbeiten.Designer.vb deleted file mode 100644 index bd17e86..0000000 --- a/Aviso/frmEssensbestellungenBearbeiten.Designer.vb +++ /dev/null @@ -1,140 +0,0 @@ - _ -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 deleted file mode 100644 index 1af7de1..0000000 --- a/Aviso/frmEssensbestellungenBearbeiten.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 deleted file mode 100644 index 650278b..0000000 --- a/Aviso/frmEssensbestellungenBearbeiten.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class frmEssensbestellungenBearbeiten - -End Class \ No newline at end of file