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"> <Compile Include="frmEssensbestellungenAdministration.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmEssensbestellungenBearbeiten.Designer.vb">
<DependentUpon>frmEssensbestellungenBearbeiten.vb</DependentUpon>
</Compile>
<Compile Include="frmEssensbestellungenBearbeiten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFrachtkostenBerechnen.Designer.vb"> <Compile Include="frmFrachtkostenBerechnen.Designer.vb">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon> <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</Compile> </Compile>
@@ -1119,9 +1113,6 @@
<EmbeddedResource Include="frmEssensbestellungenAdministration.resx"> <EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon> <DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmEssensbestellungenBearbeiten.resx">
<DependentUpon>frmEssensbestellungenBearbeiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFrachtkostenBerechnen.resx"> <EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon> <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</EmbeddedResource> </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 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 If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
MyPanel1.Enabled = False MyPanel1.Enabled = False
txtGebäude.Enabled = False
Else Else
MyPanel1.Enabled = True MyPanel1.Enabled = True
txtGebäude.Enabled = True
End If End If
End Sub End Sub
@@ -318,6 +320,23 @@ Public Class UsrCntlessensbestellungen
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon")) essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
essen.eb_gebaeude = txtGebäude.Text.ToString 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 If essen.SAVE() Then
End If End If
@@ -390,70 +409,70 @@ Public Class UsrCntlessensbestellungen
End Sub 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 If essen.eb_montag IsNot Nothing Then
' cb_montag.Checked = True cb_montag.Checked = True
' If essen.eb_montag.ToString = menu Then If essen.eb_montag.ToString = menu Then
' rbMenu_montag.Checked = True rbMenu_montag.Checked = True
' Else Else
' rbMenuAlt_montag.Checked = True rbMenuAlt_montag.Checked = True
' If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString
' End If End If
' Else Else
' cb_montag.Checked = False cb_montag.Checked = False
' End If End If
' If essen.eb_dienstag IsNot Nothing Then If essen.eb_dienstag IsNot Nothing Then
' cb_dienstag.Checked = True cb_dienstag.Checked = True
' If essen.eb_dienstag.ToString = menu Then If essen.eb_dienstag.ToString = menu Then
' rbMenu_dienstag.Checked = True rbMenu_dienstag.Checked = True
' Else Else
' rbMenuAlt_dienstag.Checked = True rbMenuAlt_dienstag.Checked = True
' If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString
' End If End If
' Else Else
' cb_dienstag.Checked = False cb_dienstag.Checked = False
' End If End If
' If essen.eb_mittwoch IsNot Nothing Then If essen.eb_mittwoch IsNot Nothing Then
' cb_mittwoch.Checked = True cb_mittwoch.Checked = True
' If essen.eb_mittwoch.ToString = menu Then If essen.eb_mittwoch.ToString = menu Then
' rbMenu_mittwoch.Checked = True rbMenu_mittwoch.Checked = True
' Else Else
' rbMenuAlt_mittwoch.Checked = True rbMenuAlt_mittwoch.Checked = True
' If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString
' End If End If
' Else Else
' cb_mittwoch.Checked = False cb_mittwoch.Checked = False
' End If End If
' If essen.eb_donnerstag IsNot Nothing Then If essen.eb_donnerstag IsNot Nothing Then
' cbdonnerstag.Checked = True cbdonnerstag.Checked = True
' If essen.eb_donnerstag.ToString = menu Then If essen.eb_donnerstag.ToString = menu Then
' rbMenu_donnerstag.Checked = True rbMenu_donnerstag.Checked = True
' Else Else
' rbMenuAlt_donnerstag.Checked = True rbMenuAlt_donnerstag.Checked = True
' If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString
' End If End If
' Else Else
' cb_mittwoch.Checked = False cb_mittwoch.Checked = False
' End If End If
' If essen.eb_freitag IsNot Nothing Then If essen.eb_freitag IsNot Nothing Then
' cb_freitag.Checked = True cb_freitag.Checked = True
' If essen.eb_freitag.ToString = menu Then If essen.eb_freitag.ToString = menu Then
' rbMenu__freitag.Checked = True rbMenu__freitag.Checked = True
' Else Else
' rbMenuAlt_freitag.Checked = True rbMenuAlt_freitag.Checked = True
' If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString
' End If End If
' Else Else
' cb_freitag.Checked = False cb_freitag.Checked = False
' End If End If
'End Sub End Sub
End Class 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.Label4 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() 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.cbxNichtAbgeschickt = New System.Windows.Forms.CheckBox()
Me.cbxAbgerechnet = New System.Windows.Forms.CheckBox() Me.cbxAbgerechnet = New System.Windows.Forms.CheckBox()
Me.cbxStornos = New System.Windows.Forms.CheckBox() Me.cbxStornos = New System.Windows.Forms.CheckBox()
Me.FlatButton7 = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button()
Me.btnSuche = 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.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button() Me.btnJahr = New System.Windows.Forms.Button()
Me.btnBisJahr = New System.Windows.Forms.Button() Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnVonJahr = 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.Label23 = New System.Windows.Forms.Label()
Me.txtBestellDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.txtMitarbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label()
Me.btnMonat = New System.Windows.Forms.Button() Me.btnMonat = New System.Windows.Forms.Button()
Me.btnBisMonat = New System.Windows.Forms.Button() Me.btnBisMonat = New System.Windows.Forms.Button()
Me.btnVonMonat = 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.Label1 = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.StornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -56,14 +63,6 @@ Partial Class frmEssensbestellungenAdministration
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) 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.pnlTop.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
@@ -104,9 +103,8 @@ Partial Class frmEssensbestellungenAdministration
' '
'Panel1 'Panel1
' '
Me.Panel1.Controls.Add(Me.btnKW) Me.Panel1.Controls.Add(Me.cbKW)
Me.Panel1.Controls.Add(Me.btnBisKW) Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.btnVonKW)
Me.Panel1.Controls.Add(Me.cbxNichtAbgeschickt) Me.Panel1.Controls.Add(Me.cbxNichtAbgeschickt)
Me.Panel1.Controls.Add(Me.cbxAbgerechnet) Me.Panel1.Controls.Add(Me.cbxAbgerechnet)
Me.Panel1.Controls.Add(Me.cbxStornos) Me.Panel1.Controls.Add(Me.cbxStornos)
@@ -136,10 +134,33 @@ Partial Class frmEssensbestellungenAdministration
Me.Panel1.Size = New System.Drawing.Size(1242, 85) Me.Panel1.Size = New System.Drawing.Size(1242, 85)
Me.Panel1.TabIndex = 2 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 'cbxNichtAbgeschickt
' '
Me.cbxNichtAbgeschickt.AutoSize = True 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.Name = "cbxNichtAbgeschickt"
Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17) Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17)
Me.cbxNichtAbgeschickt.TabIndex = 51 Me.cbxNichtAbgeschickt.TabIndex = 51
@@ -149,7 +170,7 @@ Partial Class frmEssensbestellungenAdministration
'cbxAbgerechnet 'cbxAbgerechnet
' '
Me.cbxAbgerechnet.AutoSize = True 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.Name = "cbxAbgerechnet"
Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17) Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17)
Me.cbxAbgerechnet.TabIndex = 50 Me.cbxAbgerechnet.TabIndex = 50
@@ -159,7 +180,7 @@ Partial Class frmEssensbestellungenAdministration
'cbxStornos 'cbxStornos
' '
Me.cbxStornos.AutoSize = True 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.Name = "cbxStornos"
Me.cbxStornos.Size = New System.Drawing.Size(63, 17) Me.cbxStornos.Size = New System.Drawing.Size(63, 17)
Me.cbxStornos.TabIndex = 49 Me.cbxStornos.TabIndex = 49
@@ -175,7 +196,7 @@ Partial Class frmEssensbestellungenAdministration
Me.FlatButton7.ForeColor = System.Drawing.Color.Black Me.FlatButton7.ForeColor = System.Drawing.Color.Black
Me.FlatButton7.Image = Global.AVISO.My.Resources.Resources.refresh Me.FlatButton7.Image = Global.AVISO.My.Resources.Resources.refresh
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Name = "FlatButton7"
Me.FlatButton7.Size = New System.Drawing.Size(41, 34) Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
Me.FlatButton7.TabIndex = 48 Me.FlatButton7.TabIndex = 48
@@ -194,11 +215,24 @@ Partial Class frmEssensbestellungenAdministration
Me.btnSuche.Text = "Suche starten" Me.btnSuche.Text = "Suche starten"
Me.btnSuche.UseVisualStyleBackColor = True 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 'Label3
' '
Me.Label3.AutoSize = True 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.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.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(58, 13) Me.Label3.Size = New System.Drawing.Size(58, 13)
Me.Label3.TabIndex = 45 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnJahr.ForeColor = System.Drawing.Color.Black Me.btnJahr.ForeColor = System.Drawing.Color.Black
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr" Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23) 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr" Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr" Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) 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.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.UseVisualStyleBackColor = True 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 'Label23
' '
Me.Label23.AutoSize = True Me.Label23.AutoSize = True
@@ -267,6 +326,31 @@ Partial Class frmEssensbestellungenAdministration
Me.Label23.TabIndex = 37 Me.Label23.TabIndex = 37
Me.Label23.Text = "bis:" 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 'DateTimePicker2
' '
Me.DateTimePicker2.CustomFormat = "''" Me.DateTimePicker2.CustomFormat = "''"
@@ -298,11 +382,35 @@ Partial Class frmEssensbestellungenAdministration
Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker1.TabIndex = 34 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 'Label18
' '
Me.Label18.AutoSize = True 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.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.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(67, 13) Me.Label18.Size = New System.Drawing.Size(67, 13)
Me.Label18.TabIndex = 31 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnMonat.ForeColor = System.Drawing.Color.Black Me.btnMonat.ForeColor = System.Drawing.Color.Black
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat" Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23) 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat" Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat" Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) 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.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.UseVisualStyleBackColor = True 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 'Label1
' '
Me.Label1.AutoSize = True 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.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.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13) Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 21 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StornierenToolStripMenuItem, Me.AbgerechnetToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.AnHigway118SchickenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(203, 114) Me.ContextMenuStrip1.Size = New System.Drawing.Size(203, 92)
' '
'StornierenToolStripMenuItem 'StornierenToolStripMenuItem
' '
@@ -456,150 +577,6 @@ Partial Class frmEssensbestellungenAdministration
Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 598) Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 598)
Me.dgvBestellungen.TabIndex = 43 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 'frmEssensbestellungenAdministration
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -664,7 +641,6 @@ Partial Class frmEssensbestellungenAdministration
Friend WithEvents cbxStornos As CheckBox Friend WithEvents cbxStornos As CheckBox
Friend WithEvents AnHigway118SchickenToolStripMenuItem As ToolStripMenuItem Friend WithEvents AnHigway118SchickenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cbxNichtAbgeschickt As CheckBox Friend WithEvents cbxNichtAbgeschickt As CheckBox
Friend WithEvents btnKW As Button Friend WithEvents cbKW As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnBisKW As Button Friend WithEvents Label6 As Label
Friend WithEvents btnVonKW As Button
End Class End Class

94
Aviso/frmEssensbestellungenAdministration.vb
View File

@@ -1,4 +1,5 @@
Imports System.Web.UI.HtmlControls Imports System.Web.UI.HtmlControls
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmEssensbestellungenAdministration Public Class frmEssensbestellungenAdministration
@@ -28,6 +29,8 @@ Public Class frmEssensbestellungenAdministration
cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True) cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
cboAbteilung.changeItem("") cboAbteilung.changeItem("")
cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]", False, "AVISO", True)
loadBestellungen() loadBestellungen()
End Sub End Sub
@@ -151,7 +154,7 @@ Public Class frmEssensbestellungenAdministration
End Sub End Sub
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) 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) Dim JAHR As Date = CDate("01.01." & Now.Year)
@@ -248,7 +251,9 @@ Public Class frmEssensbestellungenAdministration
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1) tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then If tmpForm.ShowDialog() = DialogResult.OK Then
dgvBestellungen.SetOrder()
loadBestellungen()
dgvBestellungen.GetOrder()
End If End If
End Using End Using
@@ -304,6 +309,7 @@ Public Class frmEssensbestellungenAdministration
Case 1 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 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) bestellungenSenden(True)
generateEMailforHighway()
Else Else
Exit Sub Exit Sub
End If End If
@@ -311,6 +317,7 @@ Public Class frmEssensbestellungenAdministration
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
bestellungenSenden(True) bestellungenSenden(True)
generateEMailforHighway()
Else Else
Exit Sub Exit Sub
End If End If
@@ -392,5 +399,88 @@ Public Class frmEssensbestellungenAdministration
End Sub 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 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