edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-04 17:48:02 +01:00
parent 48b12b78f5
commit 50b394058c
7 changed files with 316 additions and 503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -549,12 +549,6 @@
<Compile Include="frmEssensbestellungenAdministration.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEssensbestellungenBearbeiten.Designer.vb">
<DependentUpon>frmEssensbestellungenBearbeiten.vb</DependentUpon>
</Compile>
<Compile Include="frmEssensbestellungenBearbeiten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFrachtkostenBerechnen.Designer.vb">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</Compile>
@@ -1119,9 +1113,6 @@
<EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEssensbestellungenBearbeiten.resx">
<DependentUpon>frmEssensbestellungenBearbeiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</EmbeddedResource>

133
Aviso/UsrCntlEssensbestellungen.vb
View File

@@ -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

320
Aviso/frmEssensbestellungenAdministration.Designer.vb generated
View File

@@ -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

94
Aviso/frmEssensbestellungenAdministration.vb
View File

@@ -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,<br>"
DETextHTML &= "<br>"
DETextHTML &= "Anbei ist die Essensbestellung für .<br>"
Dim TextHTMLtable = ""
TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>KW </td><td>Montag</td><td>Dienstag</td><td>Mittwoch</td><td>Donnerstag</td><td>Freitag</td><td>Gebäude</td></tr>"
Dim cnt = 1
For Each row In dgvBestellungen.SelectedRows
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_mitname").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_montag").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_dienstag").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_mittwoch").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_donnerstag").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_freitag").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_gebaeude").Value & "</b></td>"
TextHTMLtable &= "</tr>"
Next
TextHTMLtable &= "</table>"
Dim EndTextHTML = ""
EndTextHTML &= "<br>"
EndTextHTML &= "<br>"
EndTextHTML &= "Bitte um kurze Bestätigung nach Erhalt der Mail, danke. <br>"
EndTextHTML &= "<br>"
EndTextHTML &= "Mit freundlichen Grüßen/Best regards<br>"
EndTextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
EndTextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & DETextHTML & TextHTMLtable & EndTextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
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

140
Aviso/frmEssensbestellungenBearbeiten.Designer.vb generated
View File

@@ -1,140 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmEssensbestellungenBearbeiten
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
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

120
Aviso/frmEssensbestellungenBearbeiten.resx
View File

@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

3
Aviso/frmEssensbestellungenBearbeiten.vb
View File

@@ -1,3 +0,0 @@
Public Class frmEssensbestellungenBearbeiten
End Class