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

Essensbestellungen im SDL implementiert!

Browse Source
This commit is contained in:
d.breimaier
2023-11-07 16:04:08 +01:00
parent 230dce63c4
commit c93e7405e9
11 changed files with 9787 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/SDL.vbproj
View File

@@ -644,6 +644,12 @@
<Compile Include="frmEssensbestellungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEssensbestellungenAdministration.Designer.vb">
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
</Compile>
<Compile Include="frmEssensbestellungenAdministration.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kassenbuch\frmPOSTerminal.Designer.vb">
<DependentUpon>frmPOSTerminal.vb</DependentUpon>
</Compile>
@@ -805,6 +811,12 @@
<Compile Include="Speditionsbuch\rptSpeditionsberichtRg.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="UsrCntlEssensbestellungen.Designer.vb">
<DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
</Compile>
<Compile Include="UsrCntlEssensbestellungen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlGestellungsgarantien.Designer.vb">
<DependentUpon>usrcntlGestellungsgarantien.vb</DependentUpon>
</Compile>
@@ -3078,6 +3090,9 @@
<EmbeddedResource Include="frmEssensbestellungen.resx">
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
<DependentUpon>frmPOSTerminal.vb</DependentUpon>
</EmbeddedResource>
@@ -3157,6 +3172,9 @@
<EmbeddedResource Include="Speditionsbuch\rptSpeditionsberichtRg.resx">
<DependentUpon>rptSpeditionsberichtRg.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="UsrCntlEssensbestellungen.resx">
<DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlGestellungsgarantien.resx">
<DependentUpon>usrcntlGestellungsgarantien.vb</DependentUpon>
</EmbeddedResource>

813
SDL/UsrCntlEssensbestellungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,813 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class UsrCntlessensbestellungen
Inherits System.Windows.Forms.UserControl
'UserControl ü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.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.lblWarning = New System.Windows.Forms.Label()
Me.txtPreis = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox()
Me.txtMenu_dienstag = New System.Windows.Forms.Label()
Me.cb_dienstag = New System.Windows.Forms.CheckBox()
Me.txtAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.lbl1 = New System.Windows.Forms.Label()
Me.GroupBoxMontag = New System.Windows.Forms.GroupBox()
Me.txtMenu_montag = New System.Windows.Forms.Label()
Me.cb_montag = New System.Windows.Forms.CheckBox()
Me.txtAlt_montag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox()
Me.txtMenu_freitag = New System.Windows.Forms.Label()
Me.cb_freitag = New System.Windows.Forms.CheckBox()
Me.txtAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu__freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
Me.lbl2 = New System.Windows.Forms.Label()
Me.Mittwoch = New System.Windows.Forms.GroupBox()
Me.txtMenu_mittwoch = New System.Windows.Forms.Label()
Me.cb_mittwoch = New System.Windows.Forms.CheckBox()
Me.txtAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox()
Me.txtMenu_donnerstag = New System.Windows.Forms.Label()
Me.cbdonnerstag = New System.Windows.Forms.CheckBox()
Me.txtAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.txtAnzahlMenu = New System.Windows.Forms.Label()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAnmerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxMitarbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxGebäude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblWochenkarte = New System.Windows.Forms.Label()
Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.MyPanel1.SuspendLayout()
Me.GroupBoxDienstag.SuspendLayout()
Me.GroupBoxMontag.SuspendLayout()
Me.GroupBoxFreitag.SuspendLayout()
Me.Mittwoch.SuspendLayout()
Me.GroupBoxDonnerstag.SuspendLayout()
Me.SuspendLayout()
'
'MyPanel1
'
Me.MyPanel1.Controls.Add(Me.lblWarning)
Me.MyPanel1.Controls.Add(Me.txtPreis)
Me.MyPanel1.Controls.Add(Me.Label2)
Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag)
Me.MyPanel1.Controls.Add(Me.lbl1)
Me.MyPanel1.Controls.Add(Me.GroupBoxMontag)
Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag)
Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart)
Me.MyPanel1.Controls.Add(Me.lbl2)
Me.MyPanel1.Controls.Add(Me.Mittwoch)
Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag)
Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
Me.MyPanel1.Location = New System.Drawing.Point(3, 77)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(667, 266)
Me.MyPanel1.TabIndex = 19
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(465, 217)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(0, 13)
Me.lblWarning.TabIndex = 31
'
'txtPreis
'
Me.txtPreis.AutoSize = True
Me.txtPreis.Location = New System.Drawing.Point(553, 188)
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Size = New System.Drawing.Size(13, 13)
Me.txtPreis.TabIndex = 19
Me.txtPreis.Text = "0"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(463, 188)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 13)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Gesamtpreis:"
'
'GroupBoxDienstag
'
Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag)
Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag)
Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag)
Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag)
Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag)
Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8)
Me.GroupBoxDienstag.Name = "GroupBoxDienstag"
Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121)
Me.GroupBoxDienstag.TabIndex = 13
Me.GroupBoxDienstag.TabStop = False
Me.GroupBoxDienstag.Text = "Dienstag"
'
'txtMenu_dienstag
'
Me.txtMenu_dienstag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_dienstag.Name = "txtMenu_dienstag"
Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32)
Me.txtMenu_dienstag.TabIndex = 30
Me.txtMenu_dienstag.Text = "Menutext"
'
'cb_dienstag
'
Me.cb_dienstag.AutoSize = True
Me.cb_dienstag.Location = New System.Drawing.Point(0, 0)
Me.cb_dienstag.Name = "cb_dienstag"
Me.cb_dienstag.Size = New System.Drawing.Size(68, 17)
Me.cb_dienstag.TabIndex = 4
Me.cb_dienstag.Text = "Dienstag"
Me.cb_dienstag.UseVisualStyleBackColor = True
'
'txtAlt_dienstag
'
Me.txtAlt_dienstag._DateTimeOnly = False
Me.txtAlt_dienstag._numbersOnly = False
Me.txtAlt_dienstag._numbersOnlyKommastellen = ""
Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True
Me.txtAlt_dienstag._Prozent = False
Me.txtAlt_dienstag._ShortDateNew = False
Me.txtAlt_dienstag._ShortDateOnly = False
Me.txtAlt_dienstag._TimeOnly = False
Me.txtAlt_dienstag._TimeOnly_Seconds = False
Me.txtAlt_dienstag._value = ""
Me.txtAlt_dienstag._Waehrung = False
Me.txtAlt_dienstag._WaehrungZeichen = True
Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_dienstag.Location = New System.Drawing.Point(3, 93)
Me.txtAlt_dienstag.MaxLineLength = -1
Me.txtAlt_dienstag.MaxLines_Warning = ""
Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing
Me.txtAlt_dienstag.Name = "txtAlt_dienstag"
Me.txtAlt_dienstag.Size = New System.Drawing.Size(177, 20)
Me.txtAlt_dienstag.TabIndex = 2
Me.txtAlt_dienstag.Visible = False
'
'rbMenuAlt_dienstag
'
Me.rbMenuAlt_dienstag.AutoSize = True
Me.rbMenuAlt_dienstag.GroupName = "Dienstag"
Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 74)
Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag"
Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_dienstag.TabIndex = 1
Me.rbMenuAlt_dienstag.TabStop = True
Me.rbMenuAlt_dienstag.Text = "A la carte"
Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True
'
'rbMenu_dienstag
'
Me.rbMenu_dienstag.AutoSize = True
Me.rbMenu_dienstag.GroupName = "Dienstag"
Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_dienstag.Name = "rbMenu_dienstag"
Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_dienstag.TabIndex = 0
Me.rbMenu_dienstag.TabStop = True
Me.rbMenu_dienstag.Text = "Menü"
Me.rbMenu_dienstag.UseVisualStyleBackColor = True
'
'lbl1
'
Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(463, 135)
Me.lbl1.Name = "lbl1"
Me.lbl1.Size = New System.Drawing.Size(72, 13)
Me.lbl1.TabIndex = 14
Me.lbl1.Text = "Anzahl Menü:"
'
'GroupBoxMontag
'
Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag)
Me.GroupBoxMontag.Controls.Add(Me.cb_montag)
Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag)
Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag)
Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag)
Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8)
Me.GroupBoxMontag.Name = "GroupBoxMontag"
Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121)
Me.GroupBoxMontag.TabIndex = 12
Me.GroupBoxMontag.TabStop = False
Me.GroupBoxMontag.Text = "Montag"
'
'txtMenu_montag
'
Me.txtMenu_montag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_montag.Name = "txtMenu_montag"
Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32)
Me.txtMenu_montag.TabIndex = 29
Me.txtMenu_montag.Text = "Menutext"
'
'cb_montag
'
Me.cb_montag.AutoSize = True
Me.cb_montag.Location = New System.Drawing.Point(3, 0)
Me.cb_montag.Name = "cb_montag"
Me.cb_montag.Size = New System.Drawing.Size(62, 17)
Me.cb_montag.TabIndex = 3
Me.cb_montag.Text = "Montag"
Me.cb_montag.UseVisualStyleBackColor = True
'
'txtAlt_montag
'
Me.txtAlt_montag._DateTimeOnly = False
Me.txtAlt_montag._numbersOnly = False
Me.txtAlt_montag._numbersOnlyKommastellen = ""
Me.txtAlt_montag._numbersOnlyTrennzeichen = True
Me.txtAlt_montag._Prozent = False
Me.txtAlt_montag._ShortDateNew = False
Me.txtAlt_montag._ShortDateOnly = False
Me.txtAlt_montag._TimeOnly = False
Me.txtAlt_montag._TimeOnly_Seconds = False
Me.txtAlt_montag._value = ""
Me.txtAlt_montag._Waehrung = False
Me.txtAlt_montag._WaehrungZeichen = True
Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_montag.Location = New System.Drawing.Point(3, 92)
Me.txtAlt_montag.MaxLineLength = -1
Me.txtAlt_montag.MaxLines_Warning = ""
Me.txtAlt_montag.MaxLines_Warning_Label = Nothing
Me.txtAlt_montag.Name = "txtAlt_montag"
Me.txtAlt_montag.Size = New System.Drawing.Size(177, 20)
Me.txtAlt_montag.TabIndex = 2
Me.txtAlt_montag.Visible = False
'
'rbMenuAlt_montag
'
Me.rbMenuAlt_montag.AutoSize = True
Me.rbMenuAlt_montag.GroupName = "GroupBox1"
Me.rbMenuAlt_montag.Location = New System.Drawing.Point(3, 74)
Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag"
Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_montag.TabIndex = 1
Me.rbMenuAlt_montag.TabStop = True
Me.rbMenuAlt_montag.Text = "A la carte"
Me.rbMenuAlt_montag.UseVisualStyleBackColor = True
'
'rbMenu_montag
'
Me.rbMenu_montag.AutoSize = True
Me.rbMenu_montag.GroupName = "GroupBox1"
Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_montag.Name = "rbMenu_montag"
Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_montag.TabIndex = 0
Me.rbMenu_montag.TabStop = True
Me.rbMenu_montag.Text = "Menü"
Me.rbMenu_montag.UseVisualStyleBackColor = True
'
'GroupBoxFreitag
'
Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag)
Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag)
Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag)
Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag)
Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag)
Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135)
Me.GroupBoxFreitag.Name = "GroupBoxFreitag"
Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121)
Me.GroupBoxFreitag.TabIndex = 13
Me.GroupBoxFreitag.TabStop = False
Me.GroupBoxFreitag.Text = "Freitag"
'
'txtMenu_freitag
'
Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_freitag.Name = "txtMenu_freitag"
Me.txtMenu_freitag.Size = New System.Drawing.Size(188, 32)
Me.txtMenu_freitag.TabIndex = 32
Me.txtMenu_freitag.Text = "Menutext"
'
'cb_freitag
'
Me.cb_freitag.AutoSize = True
Me.cb_freitag.Location = New System.Drawing.Point(3, 0)
Me.cb_freitag.Name = "cb_freitag"
Me.cb_freitag.Size = New System.Drawing.Size(58, 17)
Me.cb_freitag.TabIndex = 6
Me.cb_freitag.Text = "Freitag"
Me.cb_freitag.UseVisualStyleBackColor = True
'
'txtAlt_freitag
'
Me.txtAlt_freitag._DateTimeOnly = False
Me.txtAlt_freitag._numbersOnly = False
Me.txtAlt_freitag._numbersOnlyKommastellen = ""
Me.txtAlt_freitag._numbersOnlyTrennzeichen = True
Me.txtAlt_freitag._Prozent = False
Me.txtAlt_freitag._ShortDateNew = False
Me.txtAlt_freitag._ShortDateOnly = False
Me.txtAlt_freitag._TimeOnly = False
Me.txtAlt_freitag._TimeOnly_Seconds = False
Me.txtAlt_freitag._value = ""
Me.txtAlt_freitag._Waehrung = False
Me.txtAlt_freitag._WaehrungZeichen = True
Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_freitag.Location = New System.Drawing.Point(3, 97)
Me.txtAlt_freitag.MaxLineLength = -1
Me.txtAlt_freitag.MaxLines_Warning = ""
Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing
Me.txtAlt_freitag.Name = "txtAlt_freitag"
Me.txtAlt_freitag.Size = New System.Drawing.Size(177, 20)
Me.txtAlt_freitag.TabIndex = 2
Me.txtAlt_freitag.Visible = False
'
'rbMenuAlt_freitag
'
Me.rbMenuAlt_freitag.AutoSize = True
Me.rbMenuAlt_freitag.GroupName = "Freitag"
Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(3, 78)
Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag"
Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_freitag.TabIndex = 1
Me.rbMenuAlt_freitag.TabStop = True
Me.rbMenuAlt_freitag.Text = "A la carte"
Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True
'
'rbMenu__freitag
'
Me.rbMenu__freitag.AutoSize = True
Me.rbMenu__freitag.GroupName = "Freitag"
Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19)
Me.rbMenu__freitag.Name = "rbMenu__freitag"
Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17)
Me.rbMenu__freitag.TabIndex = 0
Me.rbMenu__freitag.TabStop = True
Me.rbMenu__freitag.Text = "Menü"
Me.rbMenu__freitag.UseVisualStyleBackColor = True
'
'txtAnzahlLaCart
'
Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162)
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlLaCart.TabIndex = 17
Me.txtAnzahlLaCart.Text = "0"
'
'lbl2
'
Me.lbl2.AutoSize = True
Me.lbl2.Location = New System.Drawing.Point(463, 162)
Me.lbl2.Name = "lbl2"
Me.lbl2.Size = New System.Drawing.Size(90, 13)
Me.lbl2.TabIndex = 15
Me.lbl2.Text = "Anzahl a la Carte:"
'
'Mittwoch
'
Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch)
Me.Mittwoch.Controls.Add(Me.cb_mittwoch)
Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch)
Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch)
Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch)
Me.Mittwoch.Location = New System.Drawing.Point(431, 8)
Me.Mittwoch.Name = "Mittwoch"
Me.Mittwoch.Size = New System.Drawing.Size(200, 121)
Me.Mittwoch.TabIndex = 13
Me.Mittwoch.TabStop = False
Me.Mittwoch.Text = "Mittwoch"
'
'txtMenu_mittwoch
'
Me.txtMenu_mittwoch.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch"
Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32)
Me.txtMenu_mittwoch.TabIndex = 31
Me.txtMenu_mittwoch.Text = "Menutext"
'
'cb_mittwoch
'
Me.cb_mittwoch.AutoSize = True
Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0)
Me.cb_mittwoch.Name = "cb_mittwoch"
Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17)
Me.cb_mittwoch.TabIndex = 5
Me.cb_mittwoch.Text = "Mittwoch"
Me.cb_mittwoch.UseVisualStyleBackColor = True
'
'txtAlt_mittwoch
'
Me.txtAlt_mittwoch._DateTimeOnly = False
Me.txtAlt_mittwoch._numbersOnly = False
Me.txtAlt_mittwoch._numbersOnlyKommastellen = ""
Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True
Me.txtAlt_mittwoch._Prozent = False
Me.txtAlt_mittwoch._ShortDateNew = False
Me.txtAlt_mittwoch._ShortDateOnly = False
Me.txtAlt_mittwoch._TimeOnly = False
Me.txtAlt_mittwoch._TimeOnly_Seconds = False
Me.txtAlt_mittwoch._value = ""
Me.txtAlt_mittwoch._Waehrung = False
Me.txtAlt_mittwoch._WaehrungZeichen = True
Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black
Me.txtAlt_mittwoch.Location = New System.Drawing.Point(3, 93)
Me.txtAlt_mittwoch.MaxLineLength = -1
Me.txtAlt_mittwoch.MaxLines_Warning = ""
Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing
Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch"
Me.txtAlt_mittwoch.Size = New System.Drawing.Size(177, 20)
Me.txtAlt_mittwoch.TabIndex = 2
Me.txtAlt_mittwoch.Visible = False
'
'rbMenuAlt_mittwoch
'
Me.rbMenuAlt_mittwoch.AutoSize = True
Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch"
Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 74)
Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch"
Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_mittwoch.TabIndex = 1
Me.rbMenuAlt_mittwoch.TabStop = True
Me.rbMenuAlt_mittwoch.Text = "A la carte"
Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True
'
'rbMenu_mittwoch
'
Me.rbMenu_mittwoch.AutoSize = True
Me.rbMenu_mittwoch.GroupName = "Mittwoch"
Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch"
Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_mittwoch.TabIndex = 0
Me.rbMenu_mittwoch.TabStop = True
Me.rbMenu_mittwoch.Text = "Menü"
Me.rbMenu_mittwoch.UseVisualStyleBackColor = True
'
'GroupBoxDonnerstag
'
Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag)
Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag)
Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag)
Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag)
Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag)
Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135)
Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag"
Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121)
Me.GroupBoxDonnerstag.TabIndex = 13
Me.GroupBoxDonnerstag.TabStop = False
Me.GroupBoxDonnerstag.Text = "Donnerstag"
'
'txtMenu_donnerstag
'
Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag"
Me.txtMenu_donnerstag.Size = New System.Drawing.Size(188, 32)
Me.txtMenu_donnerstag.TabIndex = 33
Me.txtMenu_donnerstag.Text = "Menutext"
'
'cbdonnerstag
'
Me.cbdonnerstag.AutoSize = True
Me.cbdonnerstag.Location = New System.Drawing.Point(3, 0)
Me.cbdonnerstag.Name = "cbdonnerstag"
Me.cbdonnerstag.Size = New System.Drawing.Size(81, 17)
Me.cbdonnerstag.TabIndex = 7
Me.cbdonnerstag.Text = "Donnerstag"
Me.cbdonnerstag.UseVisualStyleBackColor = True
'
'txtAlt_donnerstag
'
Me.txtAlt_donnerstag._DateTimeOnly = False
Me.txtAlt_donnerstag._numbersOnly = False
Me.txtAlt_donnerstag._numbersOnlyKommastellen = ""
Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True
Me.txtAlt_donnerstag._Prozent = False
Me.txtAlt_donnerstag._ShortDateNew = False
Me.txtAlt_donnerstag._ShortDateOnly = False
Me.txtAlt_donnerstag._TimeOnly = False
Me.txtAlt_donnerstag._TimeOnly_Seconds = False
Me.txtAlt_donnerstag._value = ""
Me.txtAlt_donnerstag._Waehrung = False
Me.txtAlt_donnerstag._WaehrungZeichen = True
Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_donnerstag.Location = New System.Drawing.Point(3, 97)
Me.txtAlt_donnerstag.MaxLineLength = -1
Me.txtAlt_donnerstag.MaxLines_Warning = ""
Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing
Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag"
Me.txtAlt_donnerstag.Size = New System.Drawing.Size(177, 20)
Me.txtAlt_donnerstag.TabIndex = 2
Me.txtAlt_donnerstag.Visible = False
'
'rbMenuAlt_donnerstag
'
Me.rbMenuAlt_donnerstag.AutoSize = True
Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag"
Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(3, 78)
Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag"
Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_donnerstag.TabIndex = 1
Me.rbMenuAlt_donnerstag.TabStop = True
Me.rbMenuAlt_donnerstag.Text = "A la carte"
Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True
'
'rbMenu_donnerstag
'
Me.rbMenu_donnerstag.AutoSize = True
Me.rbMenu_donnerstag.GroupName = "Donnerstag"
Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag"
Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_donnerstag.TabIndex = 0
Me.rbMenu_donnerstag.TabStop = True
Me.rbMenu_donnerstag.Text = "Menü"
Me.rbMenu_donnerstag.UseVisualStyleBackColor = True
'
'txtAnzahlMenu
'
Me.txtAnzahlMenu.AutoSize = True
Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137)
Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlMenu.TabIndex = 16
Me.txtAnzahlMenu.Text = "0"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(12, 26)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(63, 17)
Me.CheckBox1.TabIndex = 20
Me.CheckBox1.Text = "storniert"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(12, 4)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(86, 17)
Me.CheckBox2.TabIndex = 21
Me.CheckBox2.Text = "abgerechnet"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(595, 349)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 22
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(443, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(54, 13)
Me.Label1.TabIndex = 30
Me.Label1.Text = "Gebäude:"
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Location = New System.Drawing.Point(12, 49)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(70, 17)
Me.CheckBox3.TabIndex = 31
Me.CheckBox3.Text = "gesendet"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(444, 50)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(64, 13)
Me.Label3.TabIndex = 32
Me.Label3.Text = "Anmerkung:"
'
'txtAnmerkung
'
Me.txtAnmerkung._DateTimeOnly = False
Me.txtAnmerkung._numbersOnly = False
Me.txtAnmerkung._numbersOnlyKommastellen = ""
Me.txtAnmerkung._numbersOnlyTrennzeichen = True
Me.txtAnmerkung._Prozent = False
Me.txtAnmerkung._ShortDateNew = False
Me.txtAnmerkung._ShortDateOnly = False
Me.txtAnmerkung._TimeOnly = False
Me.txtAnmerkung._TimeOnly_Seconds = False
Me.txtAnmerkung._value = ""
Me.txtAnmerkung._Waehrung = False
Me.txtAnmerkung._WaehrungZeichen = True
Me.txtAnmerkung.ForeColor = System.Drawing.Color.Black
Me.txtAnmerkung.Location = New System.Drawing.Point(514, 46)
Me.txtAnmerkung.MaxLineLength = -1
Me.txtAnmerkung.MaxLines_Warning = ""
Me.txtAnmerkung.MaxLines_Warning_Label = Nothing
Me.txtAnmerkung.Name = "txtAnmerkung"
Me.txtAnmerkung.Size = New System.Drawing.Size(142, 20)
Me.txtAnmerkung.TabIndex = 33
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(210, 5)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(59, 13)
Me.Label4.TabIndex = 34
Me.Label4.Text = "Mitarbeiter:"
'
'cbxMitarbeiter
'
Me.cbxMitarbeiter._allowedValuesFreiText = Nothing
Me.cbxMitarbeiter._allowFreiText = False
Me.cbxMitarbeiter._value = ""
Me.cbxMitarbeiter.FormattingEnabled = True
Me.cbxMitarbeiter.Location = New System.Drawing.Point(275, 0)
Me.cbxMitarbeiter.Name = "cbxMitarbeiter"
Me.cbxMitarbeiter.Size = New System.Drawing.Size(138, 21)
Me.cbxMitarbeiter.TabIndex = 35
'
'cbxGebäude
'
Me.cbxGebäude._allowedValuesFreiText = Nothing
Me.cbxGebäude._allowFreiText = False
Me.cbxGebäude._value = ""
Me.cbxGebäude.FormattingEnabled = True
Me.cbxGebäude.Location = New System.Drawing.Point(514, 24)
Me.cbxGebäude.Name = "cbxGebäude"
Me.cbxGebäude.Size = New System.Drawing.Size(142, 21)
Me.cbxGebäude.TabIndex = 36
'
'lblWochenkarte
'
Me.lblWochenkarte.AutoSize = True
Me.lblWochenkarte.Location = New System.Drawing.Point(210, 26)
Me.lblWochenkarte.Name = "lblWochenkarte"
Me.lblWochenkarte.Size = New System.Drawing.Size(34, 13)
Me.lblWochenkarte.TabIndex = 38
Me.lblWochenkarte.Text = "Menü"
'
'cbxMenu
'
Me.cbxMenu._allowedValuesFreiText = Nothing
Me.cbxMenu._allowFreiText = False
Me.cbxMenu._value = ""
Me.cbxMenu.DropDownWidth = 200
Me.cbxMenu.FormattingEnabled = True
Me.cbxMenu.IntegralHeight = False
Me.cbxMenu.Location = New System.Drawing.Point(275, 27)
Me.cbxMenu.Name = "cbxMenu"
Me.cbxMenu.Size = New System.Drawing.Size(138, 21)
Me.cbxMenu.TabIndex = 37
'
'cbxAbteilung
'
Me.cbxAbteilung._allowedValuesFreiText = Nothing
Me.cbxAbteilung._allowFreiText = False
Me.cbxAbteilung._value = ""
Me.cbxAbteilung.FormattingEnabled = True
Me.cbxAbteilung.Location = New System.Drawing.Point(514, 0)
Me.cbxAbteilung.Name = "cbxAbteilung"
Me.cbxAbteilung.Size = New System.Drawing.Size(142, 21)
Me.cbxAbteilung.TabIndex = 40
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(444, 5)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(54, 13)
Me.Label5.TabIndex = 39
Me.Label5.Text = "Abteilung:"
'
'UsrCntlessensbestellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.cbxAbteilung)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lblWochenkarte)
Me.Controls.Add(Me.cbxMenu)
Me.Controls.Add(Me.cbxGebäude)
Me.Controls.Add(Me.cbxMitarbeiter)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtAnmerkung)
Me.Controls.Add(Me.CheckBox3)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.MyPanel1)
Me.Name = "UsrCntlessensbestellungen"
Me.Size = New System.Drawing.Size(700, 412)
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.GroupBoxDienstag.ResumeLayout(False)
Me.GroupBoxDienstag.PerformLayout()
Me.GroupBoxMontag.ResumeLayout(False)
Me.GroupBoxMontag.PerformLayout()
Me.GroupBoxFreitag.ResumeLayout(False)
Me.GroupBoxFreitag.PerformLayout()
Me.Mittwoch.ResumeLayout(False)
Me.Mittwoch.PerformLayout()
Me.GroupBoxDonnerstag.ResumeLayout(False)
Me.GroupBoxDonnerstag.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents lblWarning As Label
Friend WithEvents txtPreis As Label
Friend WithEvents Label2 As Label
Friend WithEvents GroupBoxDienstag As GroupBox
Friend WithEvents txtMenu_dienstag As Label
Friend WithEvents cb_dienstag As CheckBox
Friend WithEvents txtAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents lbl1 As Label
Friend WithEvents GroupBoxMontag As GroupBox
Friend WithEvents txtMenu_montag As Label
Friend WithEvents cb_montag As CheckBox
Friend WithEvents txtAlt_montag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBoxFreitag As GroupBox
Friend WithEvents txtMenu_freitag As Label
Friend WithEvents cb_freitag As CheckBox
Friend WithEvents txtAlt_freitag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu__freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents txtAnzahlLaCart As Label
Friend WithEvents lbl2 As Label
Friend WithEvents Mittwoch As GroupBox
Friend WithEvents txtMenu_mittwoch As Label
Friend WithEvents cb_mittwoch As CheckBox
Friend WithEvents txtAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBoxDonnerstag As GroupBox
Friend WithEvents txtMenu_donnerstag As Label
Friend WithEvents cbdonnerstag As CheckBox
Friend WithEvents txtAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents txtAnzahlMenu As Label
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents btnSave As Button
Friend WithEvents Label1 As Label
Friend WithEvents CheckBox3 As CheckBox
Friend WithEvents Label3 As Label
Friend WithEvents txtAnmerkung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents cbxMitarbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxGebäude As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWochenkarte As Label
Friend WithEvents cbxMenu As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbteilung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
End Class

123
SDL/UsrCntlEssensbestellungen.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

600
SDL/UsrCntlEssensbestellungen.vb Normal file
View File

@@ -0,0 +1,600 @@

Imports VERAG_PROG_ALLGEMEIN
Public Class UsrCntlessensbestellungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim essen As cEssensbestellung
Dim dt As New DataTable
'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
Private ToolTipFont As New Font("Courier New", 12)
Dim preisProMahlzeit As Double = 3
Dim menu As String = "Menü"
Dim alacarte As String = "A La Carte"
Dim outdated As Boolean = True
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
initCBOFields()
initFields()
cbxGebäude.changeItem("")
essen = New cEssensbestellung()
btnSave.Enabled = False
End Sub
Sub New(storniert As Boolean, abgerechnet As Boolean, menutitle As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.CheckBox1.Checked = storniert
Me.CheckBox2.Checked = abgerechnet
Me.CheckBox3.Checked = essen.eb_gesendet
dt = SQL.loadDgvBySql("Select Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
loadMenuInfo(dt)
essen = New cEssensbestellung()
cbxGebäude.Text = essen.eb_gebaeude.ToString
txtAnmerkung.Text = If(essen.eb_anmerkung IsNot Nothing, essen.eb_anmerkung.ToString, "")
End Sub
Sub New(bestellung As cEssensbestellung)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
initCBOFields()
essen = bestellung
Dim menutitle = bestellung.eb_kw.ToString()
Me.CheckBox1.Checked = essen.eb_storniert
Me.CheckBox2.Checked = essen.eb_abgerechnet
Me.CheckBox3.Checked = essen.eb_gesendet
dt = SQL.loadDgvBySql("Select Top 1 * from (Select (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & menutitle & "'", "AVISO", 100, True)
loadMenuInfo(dt)
cbxGebäude.changeItem(essen.eb_gebaeude)
cbxMitarbeiter.changeItem(essen.eb_mitid)
cbxAbteilung.changeItem(essen.eb_abteilung)
cbxMenu.changeItem(essen.eb_kw)
cbxMitarbeiter.Enabled = False
cbxMenu.Enabled = False
cbxAbteilung.Enabled = False
txtAnmerkung.Text = If(essen.eb_anmerkung IsNot Nothing, essen.eb_anmerkung.ToString, "")
End Sub
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
If rbMenuAlt_montag.Checked Then
txtAlt_montag.Visible = True
Else
txtAlt_montag.Visible = False
End If
If rbMenuAlt_dienstag.Checked Then
txtAlt_dienstag.Visible = True
Else
txtAlt_dienstag.Visible = False
End If
If rbMenuAlt_mittwoch.Checked Then
txtAlt_mittwoch.Visible = True
Else
txtAlt_mittwoch.Visible = False
End If
If rbMenuAlt_donnerstag.Checked Then
txtAlt_donnerstag.Visible = True
Else
txtAlt_donnerstag.Visible = False
End If
If rbMenuAlt_freitag.Checked Then
txtAlt_freitag.Visible = True
Else
txtAlt_freitag.Visible = False
End If
countChecks()
End Sub
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged
If cb_montag.Checked Then
rbMenuAlt_montag.Enabled = True
rbMenu_montag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
rbMenu_montag.Checked = True
End If
Else
rbMenuAlt_montag.Enabled = False
rbMenu_montag.Enabled = False
txtAlt_montag.Text = ""
End If
If cb_dienstag.Checked Then
rbMenuAlt_dienstag.Enabled = True
rbMenu_dienstag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
rbMenu_dienstag.Checked = True
End If
Else
rbMenu_dienstag.Enabled = False
rbMenuAlt_dienstag.Enabled = False
txtAlt_dienstag.Text = ""
End If
If cb_mittwoch.Checked Then
rbMenuAlt_mittwoch.Enabled = True
rbMenu_mittwoch.Enabled = True
If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
rbMenu_mittwoch.Checked = True
End If
Else
rbMenu_mittwoch.Enabled = False
rbMenuAlt_mittwoch.Enabled = False
txtAlt_mittwoch.Text = ""
End If
If cbdonnerstag.Checked Then
rbMenuAlt_donnerstag.Enabled = True
rbMenu_donnerstag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
rbMenu_donnerstag.Checked = True
End If
Else
rbMenu_donnerstag.Enabled = False
rbMenuAlt_donnerstag.Enabled = False
txtAlt_donnerstag.Text = ""
End If
If cb_freitag.Checked Then
rbMenuAlt_freitag.Enabled = True
rbMenu__freitag.Enabled = True
If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
rbMenu__freitag.Checked = True
End If
Else
rbMenu__freitag.Enabled = False
rbMenuAlt_freitag.Enabled = False
txtAlt_freitag.Text = ""
End If
countChecks()
End Sub
Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)
For Each gb As Control In MyPanel1.Controls
If TypeOf gb Is GroupBox Then
For Each c As Control In gb.Controls
If TypeOf c Is CheckBox Then
Dim checkbox As CheckBox = c
checkbox.Checked = False
End If
If TypeOf c Is RadioButton Then
Dim radiobutton As RadioButton = c
radiobutton.Checked = False
End If
Next
End If
Next
cbFields_CheckedChanged(sender, e)
End Sub
Private Sub countChecks()
Dim countMenus As Integer
Dim countlaCarte As Integer
countMenus = 0
countlaCarte = 0
For Each gb As Control In MyPanel1.Controls
If TypeOf gb Is GroupBox Then
For Each c As Control In gb.Controls
If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
If rb.Checked Then countMenus = countMenus + 1
End If
If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
If rb.Checked Then countlaCarte = countlaCarte + 1
End If
Next
End If
Next
txtAnzahlMenu.Text = countMenus.ToString()
txtAnzahlLaCart.Text = countlaCarte.ToString
txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
MyPanel1.Enabled = False
cbxGebäude.Enabled = False
cbxMenu.Enabled = False
cbxAbteilung.Enabled = False
cbxMitarbeiter.Enabled = False
txtAnmerkung.Enabled = False
Else
MyPanel1.Enabled = True
cbxGebäude.Enabled = True
'cbxMenu.Enabled = True
'cbxAbteilung.Enabled = True
'cbxMitarbeiter.Enabled = True
'txtAnmerkung.Enabled = True
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If cbxGebäude._value = "" Then
MsgBox("Bitte Gebäude für die Essensbestellung angeben!")
Exit Sub
End If
Dim mitarbeiter As New cMitarbeiter(cbxMitarbeiter._value)
essen = New cEssensbestellung(cbxMenu._value, cbxMitarbeiter._value, cbxGebäude._value, cbxAbteilung._value, cbxMitarbeiter.Text, txtAnmerkung.Text)
If cb_montag.Checked Then
If rbMenu_montag.Checked Then
essen.eb_montag = menu
setWarning(False)
Else
If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_montag = txtAlt_montag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_montag = Nothing
End If
If cb_dienstag.Checked Then
If rbMenu_dienstag.Checked Then
essen.eb_dienstag = menu
setWarning(False)
Else
If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_dienstag = txtAlt_dienstag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_dienstag = Nothing
End If
If cb_mittwoch.Checked Then
If rbMenu_mittwoch.Checked Then
essen.eb_mittwoch = menu
setWarning(False)
Else
If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_mittwoch = Nothing
End If
If cbdonnerstag.Checked Then
If rbMenu_donnerstag.Checked Then
essen.eb_donnerstag = menu
setWarning(False)
Else
If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_donnerstag = Nothing
End If
If cb_freitag.Checked Then
If rbMenu__freitag.Checked Then
essen.eb_freitag = menu
setWarning(False)
Else
If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
essen.eb_freitag = txtAlt_freitag.Text.ToString
setWarning(False)
Else
setWarning(True)
Exit Sub
End If
End If
setWarning(False)
Else
essen.eb_freitag = Nothing
End If
If txtPreis.Text IsNot "" Then
essen.eb_preis = CDbl(txtPreis.Text)
End If
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
essen.eb_gebaeude = cbxGebäude._value
essen.eb_firma = mitarbeiter.getFirma
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
btnSave.DialogResult = DialogResult.OK
End If
End Sub
Private Sub loadMenuInfo(dt As DataTable)
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
rbMenu_montag.Text = menu
txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
End If
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
rbMenu_dienstag.Text = menu
txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
End If
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
rbMenu_mittwoch.Text = menu
txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
End If
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
rbMenu_donnerstag.Text = menu
txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
End If
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
rbMenu__freitag.Text = menu
txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
End If
End Sub
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click
countChecks()
End Sub
Private Function checkIfGroupBoxIsSetFirstTime(gb As GroupBox)
For Each c As Control In gb.Controls
If TypeOf c Is RadioButton Then
Dim radioButton As RadioButton = c
If radioButton.Checked = True Then
Return False
End If
End If
Next
Return True
End Function
Private Sub setWarning(warning As Boolean)
If warning Then
lblWarning.Text = "Bezeichnung für A la carte fehlt"
'btnSave.DialogResult = DialogResult.None
Else
lblWarning.Text = ""
End If
End Sub
Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
initPanelFields()
End Sub
Private Sub initFields()
cbxMitarbeiter.Enabled = True
cbxMenu.Enabled = True
cbxAbteilung.Enabled = True
End Sub
Private Sub cbxMenu_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMenu.SelectedValueChanged
If cbxMenu._value Is Nothing Or cbxMenu._value = "" Then
'Button1.Visible = False
btnSave.Enabled = False
For Each comp As System.ComponentModel.Component In Me.components.Components
If TypeOf comp Is ToolTip Then
Dim tip = DirectCast(comp, ToolTip)
tip.RemoveAll()
End If
Next
Exit Sub
End If
btnSave.Enabled = True
'Button1.Visible = True
dt.Clear()
dt = SQL.loadDgvBySql("SELECT Top 1 * from (SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, * FROM tblEBMenu) kwDate where kwDate = '" & cbxMenu._value & "'", "AVISO", 100, True)
If dt.Rows.Count > 0 Then
loadMenuInfo(dt)
btnSave.Enabled = True
Else
btnSave.Enabled = False
End If
uncheckGroupBoxesAndRadioButtons(sender, e)
End Sub
Private Sub cbxMitarbeiter_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMitarbeiter.SelectedValueChanged
If cbxMitarbeiter._value Is "" Then
cbxAbteilung.changeItem("")
cbxGebäude.changeItem("")
cbxMenu.changeItem("")
txtAnmerkung.Text = ""
Else
cbxAbteilung.changeItem(New cMitarbeiter(cbxMitarbeiter._value).mit_abteilung)
uncheckGroupBoxesAndRadioButtons(sender, e)
End If
End Sub
Private Sub initPanelFields()
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_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
cbdonnerstag.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_freitag.Text = essen.eb_freitag.ToString
End If
Else
cb_freitag.Checked = False
End If
End Sub
Private Sub initCBOFields()
cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
cbxMitarbeiter.fillWithSQL("SELECT [mit_id], ([mit_vname] + ' ' + [mit_nname]) as name FROM [tblMitarbeiter] where [mit_ChatBenutzer] = 1 AND [mit_pseudoUser] = 0 AND [mit_gekuendigt] = 0 AND mit_niederlassung = 'SUB' AND ((CAse when mit_firma = 'ALL' Then mit_FirmaHaupt else mit_firma END ) = 'VERAG' Or mit_firma = 'UNISPED' OR mit_firma = 'IMEX' OR mit_firma = 'FRONTOFFICE') order by name ", False, "ADMIN", True)
cbxAbteilung.fillWithSQL("SELECT [abt_kuerzel], [abt_bezeichnung] from [tblAbteilungen] ", False, "ADMIN", True,, "")
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice"))
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag Verrechnung"))
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
End Sub
End Class

1
SDL/frmEssensbestellungen.vb
View File

@@ -29,6 +29,7 @@ Public Class frmEssensbestellungen
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag Verrechnung"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Suben West", "Suben West"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxGebauede.changeItem("")
btnSave.Enabled = False

919
SDL/frmEssensbestellungenAdministration.Designer.vb generated Normal file
View File

@@ -0,0 +1,919 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmEssensbestellungenAdministration
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEssensbestellungenAdministration))
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbxAlleAnzeigen = New System.Windows.Forms.CheckBox()
Me.lblBestellungBis = New System.Windows.Forms.Label()
Me.btnBestelllimit = New System.Windows.Forms.Button()
Me.lblDaysToOrder = New System.Windows.Forms.Label()
Me.txtBestelllimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtMarkierteDS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.btnNew = New System.Windows.Forms.Button()
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()
Me.AbgerechnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnHigway118SchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.txtAnzahlDS = New System.Windows.Forms.TextBox()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxMailKW = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbxMailGebäude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblWarning = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label()
Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlTop.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlTop
'
Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlTop.Controls.Add(Me.Label4)
Me.pnlTop.Controls.Add(Me.Label22)
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1242, 48)
Me.pnlTop.TabIndex = 1
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(10, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(386, 26)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Administration-Essensbestellungen"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.ForeColor = System.Drawing.Color.White
Me.Label22.Location = New System.Drawing.Point(505, 22)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(221, 13)
Me.Label22.TabIndex = 1
Me.Label22.Text = "(Erweiterte suche: * vor oder nach dem Text )"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cbxAlleAnzeigen)
Me.Panel1.Controls.Add(Me.lblBestellungBis)
Me.Panel1.Controls.Add(Me.btnBestelllimit)
Me.Panel1.Controls.Add(Me.lblDaysToOrder)
Me.Panel1.Controls.Add(Me.txtBestelllimit)
Me.Panel1.Controls.Add(Me.txtMarkierteDS)
Me.Panel1.Controls.Add(Me.Label11)
Me.Panel1.Controls.Add(Me.btnNew)
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)
Me.Panel1.Controls.Add(Me.FlatButton7)
Me.Panel1.Controls.Add(Me.btnSuche)
Me.Panel1.Controls.Add(Me.cboGebaeude)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.btnJahr)
Me.Panel1.Controls.Add(Me.btnBisJahr)
Me.Panel1.Controls.Add(Me.btnVonJahr)
Me.Panel1.Controls.Add(Me.txtBestellDat)
Me.Panel1.Controls.Add(Me.Label23)
Me.Panel1.Controls.Add(Me.txtBestellDatBis)
Me.Panel1.Controls.Add(Me.DateTimePicker2)
Me.Panel1.Controls.Add(Me.Label13)
Me.Panel1.Controls.Add(Me.DateTimePicker1)
Me.Panel1.Controls.Add(Me.txtMitarbeiter)
Me.Panel1.Controls.Add(Me.Label18)
Me.Panel1.Controls.Add(Me.btnMonat)
Me.Panel1.Controls.Add(Me.btnBisMonat)
Me.Panel1.Controls.Add(Me.btnVonMonat)
Me.Panel1.Controls.Add(Me.cboAbteilung)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Location = New System.Drawing.Point(0, 49)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1242, 106)
Me.Panel1.TabIndex = 2
'
'cbxAlleAnzeigen
'
Me.cbxAlleAnzeigen.AutoSize = True
Me.cbxAlleAnzeigen.Location = New System.Drawing.Point(668, 79)
Me.cbxAlleAnzeigen.Name = "cbxAlleAnzeigen"
Me.cbxAlleAnzeigen.Size = New System.Drawing.Size(42, 17)
Me.cbxAlleAnzeigen.TabIndex = 72
Me.cbxAlleAnzeigen.Text = "alle"
Me.cbxAlleAnzeigen.UseVisualStyleBackColor = True
'
'lblBestellungBis
'
Me.lblBestellungBis.AutoSize = True
Me.lblBestellungBis.Location = New System.Drawing.Point(429, 60)
Me.lblBestellungBis.Name = "lblBestellungBis"
Me.lblBestellungBis.Size = New System.Drawing.Size(114, 13)
Me.lblBestellungBis.TabIndex = 71
Me.lblBestellungBis.Text = "Bestellung möglich bis:"
'
'btnBestelllimit
'
Me.btnBestelllimit.Enabled = False
Me.btnBestelllimit.Location = New System.Drawing.Point(313, 79)
Me.btnBestelllimit.Name = "btnBestelllimit"
Me.btnBestelllimit.Size = New System.Drawing.Size(97, 27)
Me.btnBestelllimit.TabIndex = 70
Me.btnBestelllimit.Text = "aktualisieren"
Me.btnBestelllimit.UseVisualStyleBackColor = True
'
'lblDaysToOrder
'
Me.lblDaysToOrder.AutoSize = True
Me.lblDaysToOrder.Location = New System.Drawing.Point(310, 59)
Me.lblDaysToOrder.Name = "lblDaysToOrder"
Me.lblDaysToOrder.Size = New System.Drawing.Size(71, 13)
Me.lblDaysToOrder.TabIndex = 68
Me.lblDaysToOrder.Text = "BL (in Tagen)"
'
'txtBestelllimit
'
Me.txtBestelllimit._DateTimeOnly = False
Me.txtBestelllimit._numbersOnly = False
Me.txtBestelllimit._numbersOnlyKommastellen = ""
Me.txtBestelllimit._numbersOnlyTrennzeichen = True
Me.txtBestelllimit._Prozent = False
Me.txtBestelllimit._ShortDateNew = False
Me.txtBestelllimit._ShortDateOnly = False
Me.txtBestelllimit._TimeOnly = False
Me.txtBestelllimit._TimeOnly_Seconds = False
Me.txtBestelllimit._value = Nothing
Me.txtBestelllimit._Waehrung = False
Me.txtBestelllimit._WaehrungZeichen = False
Me.txtBestelllimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBestelllimit.ForeColor = System.Drawing.Color.Black
Me.txtBestelllimit.Location = New System.Drawing.Point(380, 56)
Me.txtBestelllimit.MaxLineLength = -1
Me.txtBestelllimit.MaxLines_Warning = ""
Me.txtBestelllimit.MaxLines_Warning_Label = Nothing
Me.txtBestelllimit.Name = "txtBestelllimit"
Me.txtBestelllimit.Size = New System.Drawing.Size(30, 20)
Me.txtBestelllimit.TabIndex = 67
'
'txtMarkierteDS
'
Me.txtMarkierteDS._DateTimeOnly = False
Me.txtMarkierteDS._numbersOnly = False
Me.txtMarkierteDS._numbersOnlyKommastellen = ""
Me.txtMarkierteDS._numbersOnlyTrennzeichen = False
Me.txtMarkierteDS._Prozent = False
Me.txtMarkierteDS._ShortDateNew = False
Me.txtMarkierteDS._ShortDateOnly = False
Me.txtMarkierteDS._TimeOnly = False
Me.txtMarkierteDS._TimeOnly_Seconds = False
Me.txtMarkierteDS._value = ""
Me.txtMarkierteDS._Waehrung = True
Me.txtMarkierteDS._WaehrungZeichen = True
Me.txtMarkierteDS.ForeColor = System.Drawing.Color.Black
Me.txtMarkierteDS.Location = New System.Drawing.Point(1035, 62)
Me.txtMarkierteDS.MaxLineLength = -1
Me.txtMarkierteDS.MaxLines_Warning = ""
Me.txtMarkierteDS.MaxLines_Warning_Label = Nothing
Me.txtMarkierteDS.Name = "txtMarkierteDS"
Me.txtMarkierteDS.ReadOnly = True
Me.txtMarkierteDS.Size = New System.Drawing.Size(68, 20)
Me.txtMarkierteDS.TabIndex = 65
Me.txtMarkierteDS.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(1032, 46)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(125, 13)
Me.Label11.TabIndex = 66
Me.Label11.Text = "Betrag markierte DS:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btnNew
'
Me.btnNew.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
'Me.btnNew.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
Me.btnNew.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.Location = New System.Drawing.Point(1180, 46)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(50, 29)
Me.btnNew.TabIndex = 54
Me.btnNew.UseVisualStyleBackColor = True
'
'cbKW
'
Me.cbKW._allowedValuesFreiText = Nothing
Me.cbKW._allowFreiText = False
Me.cbKW._value = ""
Me.cbKW.DropDownWidth = 100
Me.cbKW.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbKW.FormattingEnabled = True
Me.cbKW.Location = New System.Drawing.Point(311, 29)
Me.cbKW.Name = "cbKW"
Me.cbKW.Size = New System.Drawing.Size(99, 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(668, 58)
Me.cbxNichtAbgeschickt.Name = "cbxNichtAbgeschickt"
Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17)
Me.cbxNichtAbgeschickt.TabIndex = 51
Me.cbxNichtAbgeschickt.Text = "noch nicht abgeschickt"
Me.cbxNichtAbgeschickt.UseVisualStyleBackColor = True
'
'cbxAbgerechnet
'
Me.cbxAbgerechnet.AutoSize = True
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
Me.cbxAbgerechnet.Text = "abgerechnet"
Me.cbxAbgerechnet.UseVisualStyleBackColor = True
'
'cbxStornos
'
Me.cbxStornos.AutoSize = True
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
Me.cbxStornos.Text = "storniert"
Me.cbxStornos.UseVisualStyleBackColor = True
'
'FlatButton7
'
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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(1035, 7)
Me.FlatButton7.Name = "FlatButton7"
Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
Me.FlatButton7.TabIndex = 48
Me.FlatButton7.UseVisualStyleBackColor = True
'
'btnSuche
'
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(1098, 3)
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(132, 38)
Me.btnSuche.TabIndex = 47
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(811, 12)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(58, 13)
Me.Label3.TabIndex = 45
Me.Label3.Text = "Gebäude"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(11, 13)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(56, 13)
Me.Label2.TabIndex = 42
Me.Label2.Text = "Zeitraum"
'
'btnJahr
'
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(176, 49)
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
Me.btnJahr.TabIndex = 40
Me.btnJahr.Text = "2023"
Me.btnJahr.UseVisualStyleBackColor = True
'
'btnBisJahr
'
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(262, 49)
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
Me.btnBisJahr.TabIndex = 41
Me.btnBisJahr.Text = ">>"
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.UseVisualStyleBackColor = True
'
'btnVonJahr
'
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(143, 49)
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
Me.btnVonJahr.TabIndex = 39
Me.btnVonJahr.Text = "<<"
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
Me.Label23.Location = New System.Drawing.Point(11, 56)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
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 = "''"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(40, 53)
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
Me.DateTimePicker2.TabIndex = 36
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(11, 32)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(28, 13)
Me.Label13.TabIndex = 38
Me.Label13.Text = "von:"
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "''"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(40, 28)
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
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(429, 12)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(67, 13)
Me.Label18.TabIndex = 31
Me.Label18.Text = "Mitarbeiter"
'
'btnMonat
'
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(176, 29)
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
Me.btnMonat.TabIndex = 24
Me.btnMonat.Text = "September"
Me.btnMonat.UseVisualStyleBackColor = True
'
'btnBisMonat
'
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(262, 29)
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
Me.btnBisMonat.TabIndex = 25
Me.btnBisMonat.Text = ">>"
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.UseVisualStyleBackColor = True
'
'btnVonMonat
'
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(143, 29)
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
Me.btnVonMonat.TabIndex = 23
Me.btnVonMonat.Text = "<<"
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(913, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 21
Me.Label1.Text = "Abteilung"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StornierenToolStripMenuItem, Me.AbgerechnetToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.AnHigway118SchickenToolStripMenuItem, Me.ExportToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(283, 136)
'
'StornierenToolStripMenuItem
'
Me.StornierenToolStripMenuItem.Name = "StornierenToolStripMenuItem"
Me.StornierenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
Me.StornierenToolStripMenuItem.Text = "stornieren"
'
'AbgerechnetToolStripMenuItem
'
Me.AbgerechnetToolStripMenuItem.Name = "AbgerechnetToolStripMenuItem"
Me.AbgerechnetToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
Me.AbgerechnetToolStripMenuItem.Text = "abrechnen"
'
'BearbeitenToolStripMenuItem
'
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
Me.BearbeitenToolStripMenuItem.Text = "bearbeiten"
'
'AnHigway118SchickenToolStripMenuItem
'
Me.AnHigway118SchickenToolStripMenuItem.Name = "AnHigway118SchickenToolStripMenuItem"
Me.AnHigway118SchickenToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
Me.AnHigway118SchickenToolStripMenuItem.Text = "markierte Bestellungen per Mail senden"
'
'txtAnzahlDS
'
Me.txtAnzahlDS.Location = New System.Drawing.Point(1032, 745)
Me.txtAnzahlDS.Name = "txtAnzahlDS"
Me.txtAnzahlDS.ReadOnly = True
Me.txtAnzahlDS.Size = New System.Drawing.Size(42, 20)
Me.txtAnzahlDS.TabIndex = 45
Me.txtAnzahlDS.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(1080, 748)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(45, 13)
Me.Label27.TabIndex = 46
Me.Label27.Text = "Summe:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(925, 748)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(99, 13)
Me.Label5.TabIndex = 44
Me.Label5.Text = "Anzahl Datensätze:"
'
'txtSumme
'
Me.txtSumme._DateTimeOnly = False
Me.txtSumme._numbersOnly = False
Me.txtSumme._numbersOnlyKommastellen = ""
Me.txtSumme._numbersOnlyTrennzeichen = False
Me.txtSumme._Prozent = False
Me.txtSumme._ShortDateNew = False
Me.txtSumme._ShortDateOnly = False
Me.txtSumme._TimeOnly = False
Me.txtSumme._TimeOnly_Seconds = False
Me.txtSumme._value = ""
Me.txtSumme._Waehrung = True
Me.txtSumme._WaehrungZeichen = True
Me.txtSumme.ForeColor = System.Drawing.Color.Black
Me.txtSumme.Location = New System.Drawing.Point(1130, 744)
Me.txtSumme.MaxLineLength = -1
Me.txtSumme.MaxLines_Warning = ""
Me.txtSumme.MaxLines_Warning_Label = Nothing
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.ReadOnly = True
Me.txtSumme.Size = New System.Drawing.Size(100, 20)
Me.txtSumme.TabIndex = 47
Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'dgvBestellungen
'
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBestellungen.AllowUserToAddRows = False
Me.dgvBestellungen.AllowUserToDeleteRows = False
Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvBestellungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.dgvBestellungen.Location = New System.Drawing.Point(0, 161)
Me.dgvBestellungen.Name = "dgvBestellungen"
Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 560)
Me.dgvBestellungen.TabIndex = 43
'
'cbxMailKW
'
Me.cbxMailKW._allowedValuesFreiText = Nothing
Me.cbxMailKW._allowFreiText = False
Me.cbxMailKW._value = ""
Me.cbxMailKW.DropDownWidth = 100
Me.cbxMailKW.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMailKW.FormattingEnabled = True
Me.cbxMailKW.Location = New System.Drawing.Point(14, 741)
Me.cbxMailKW.Name = "cbxMailKW"
Me.cbxMailKW.Size = New System.Drawing.Size(91, 22)
Me.cbxMailKW.TabIndex = 57
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(11, 724)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(94, 13)
Me.Label7.TabIndex = 56
Me.Label7.Text = "Kalenderwoche"
'
'cbxMailGebäude
'
Me.cbxMailGebäude._allowedValuesFreiText = Nothing
Me.cbxMailGebäude._allowFreiText = True
Me.cbxMailGebäude._value = ""
Me.cbxMailGebäude.DropDownWidth = 250
Me.cbxMailGebäude.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxMailGebäude.FormattingEnabled = True
Me.cbxMailGebäude.Location = New System.Drawing.Point(122, 741)
Me.cbxMailGebäude.Name = "cbxMailGebäude"
Me.cbxMailGebäude.Size = New System.Drawing.Size(80, 22)
Me.cbxMailGebäude.TabIndex = 55
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(119, 724)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(58, 13)
Me.Label8.TabIndex = 54
Me.Label8.Text = "Gebäude"
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(228, 734)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(113, 29)
Me.Button1.TabIndex = 54
Me.Button1.Text = "Email"
Me.Button1.UseVisualStyleBackColor = True
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(496, 744)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(0, 13)
Me.lblWarning.TabIndex = 58
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(361, 734)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(113, 29)
Me.Button2.TabIndex = 59
Me.Button2.Text = "Excel"
Me.Button2.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(1145, 728)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(85, 13)
Me.Label9.TabIndex = 60
Me.Label9.Text = "Gesamtbetrag"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'ExportToolStripMenuItem
'
Me.ExportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExcelToolStripMenuItem})
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(282, 22)
Me.ExportToolStripMenuItem.Text = "Export"
'
'ExcelToolStripMenuItem
'
Me.ExcelToolStripMenuItem.Name = "ExcelToolStripMenuItem"
Me.ExcelToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ExcelToolStripMenuItem.Text = "Excel"
'
'frmEssensbestellungenAdministration
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1242, 767)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.lblWarning)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.cbxMailKW)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.cbxMailGebäude)
Me.Controls.Add(Me.txtSumme)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtAnzahlDS)
Me.Controls.Add(Me.Label27)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.dgvBestellungen)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnlTop)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmEssensbestellungenAdministration"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Essensbestellungen Administration"
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pnlTop As Panel
Friend WithEvents Label4 As Label
Friend WithEvents Label22 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents StornierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AbgerechnetToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cboAbteilung As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label
Friend WithEvents btnMonat As Button
Friend WithEvents btnBisMonat As Button
Friend WithEvents btnVonMonat As Button
Friend WithEvents txtMitarbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label18 As Label
Friend WithEvents txtBestellDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label23 As Label
Friend WithEvents txtBestellDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents Label13 As Label
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents btnJahr As Button
Friend WithEvents btnBisJahr As Button
Friend WithEvents btnVonJahr As Button
Friend WithEvents Label2 As Label
Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cboGebaeude As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label3 As Label
Friend WithEvents btnSuche As Button
Friend WithEvents FlatButton7 As Button
Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAnzahlDS As TextBox
Friend WithEvents Label27 As Label
Friend WithEvents Label5 As Label
Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cbxAbgerechnet As CheckBox
Friend WithEvents cbxStornos As CheckBox
Friend WithEvents AnHigway118SchickenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cbxNichtAbgeschickt As CheckBox
Friend WithEvents cbKW As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label6 As Label
Friend WithEvents cbxMailKW As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label7 As Label
Friend WithEvents cbxMailGebäude As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label8 As Label
Friend WithEvents Button1 As Button
Friend WithEvents lblWarning As Label
Friend WithEvents Button2 As Button
Friend WithEvents Label9 As Label
Friend WithEvents btnNew As Button
Friend WithEvents Label11 As Label
Friend WithEvents txtMarkierteDS As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDaysToOrder As Label
Friend WithEvents txtBestelllimit As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnBestelllimit As Button
Friend WithEvents lblBestellungBis As Label
Friend WithEvents cbxAlleAnzeigen As CheckBox
Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ExcelToolStripMenuItem As ToolStripMenuItem
End Class

6337
SDL/frmEssensbestellungenAdministration.resx Normal file
View File

File diff suppressed because it is too large Load Diff

909
SDL/frmEssensbestellungenAdministration.vb Normal file
View File

@@ -0,0 +1,909 @@

Imports System.Timers
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class frmEssensbestellungenAdministration
Dim dt As DataTable
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmEssensbestellungenAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblWarning.Text = ""
txtBestellDat.Text = Date.Parse("01.01.2001")
txtBestellDatBis.Text = Today.AddDays(7).ToShortDateString
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
txtMitarbeiter.Text = ""
'cboGebaeude.changeItem("")
'cboAbteilung.changeItem("")
cbxStornos.Checked = False
cbxAbgerechnet.Checked = False
cboGebaeude.fillWithSQL("SELECT DISTINCT(eb_gebaeude) FROM [tblEssensbestellungen]", False, "AVISO", True)
cboGebaeude.changeItem("")
cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
If cAllgemein.MITARBEITER.mit_abteilung = "MDM" Then 'Verag360 darf nur seine Bestellungen sehen!
cboAbteilung.changeItem("MDM")
cboAbteilung.Enabled = False
cboGebaeude.changeItem("Maut")
cbxMailGebäude.changeItem("Maut")
cboGebaeude.Enabled = False
cbxMailGebäude.Enabled = False
Else
cboAbteilung.changeItem("")
cboAbteilung.Enabled = True
cboGebaeude.changeItem("")
cboGebaeude.Enabled = True
cbxMailGebäude.Enabled = True
End If
cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE()ORDER BY eb_kw desc", False, "AVISO", True)
cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
cbxMailKW.changeItem("")
cbxMailGebäude.changeItem("")
cbxMailGebäude.Items.AddRange(cboGebaeude.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
loadBestellungen()
End Sub
Private Sub loadBestellungen()
Dim SQLString As String = "SELECT [eb_mitid] , [eb_mitname] ,[eb_firma] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],
[eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am]
FROM
[tblEssensbestellungen] WHERE 1=1"
IIf(cAllgemein.MITARBEITER.getFirma = SQLString & "UNISPED", "And essen.eb_firma = " & cAllgemein.MITARBEITER.getFirma, "") 'UNISPED-Bestellungen!
dgvBestellungen.SET_SQL(SQLString & bestellungenWhereClause() & " Order by eb_datum, eb_mitid", "AVISO", ,)
dgvBestellungen.LOAD()
With dgvBestellungen
'If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
.RowHeadersVisible = False
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.RowHeadersWidth = 10
.Columns("eb_kw").HeaderText = "KW"
.Columns("eb_kw").Width = 80
.Columns("eb_mitid").HeaderText = "MID"
.Columns("eb_mitid").Width = 40
.Columns("eb_mitname").HeaderText = "Mitarbeiter"
.Columns("eb_mitname").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("eb_abteilung").Visible = False
.Columns("eb_firma").Width = 80
.Columns("eb_firma").HeaderText = "Firma"
.Columns("eb_datum").Width = 80
.Columns("eb_datum").HeaderText = "Datum"
.Columns("eb_montag").Width = 80
.Columns("eb_montag").HeaderText = "Montag"
.Columns("eb_montag").Width = 80
.Columns("eb_dienstag").HeaderText = "Dienstag"
.Columns("eb_dienstag").Width = 80
.Columns("eb_mittwoch").HeaderText = "Mittwoch"
.Columns("eb_mittwoch").Width = 80
.Columns("eb_donnerstag").HeaderText = "Donnerstag"
.Columns("eb_donnerstag").Width = 80
.Columns("eb_freitag").HeaderText = "Freitag"
.Columns("eb_freitag").Width = 80
.Columns("eb_gebaeude").HeaderText = "Gebäude"
.Columns("eb_gebaeude").Width = 100
.Columns("eb_preis").HeaderText = "Preis"
.Columns("eb_preis").Width = 40
.Columns("eb_preis").DefaultCellStyle.Format = "N"
.Columns("eb_storniert_am").HeaderText = "Storniert am"
.Columns("eb_storniert_am").Width = 80
.Columns("eb_abgerechnet_am").HeaderText = "Abgerechnet am"
.Columns("eb_abgerechnet_am").Width = 80
.Columns("eb_gesendet_am").HeaderText = "Gesendet am"
.Columns("eb_gesendet_am").Width = 80
.Columns("eb_storniert").Visible = False
.Columns("eb_abgerechnet").Visible = False
.Columns("eb_gesendet").Visible = False
.Columns("eb_anmerkung").HeaderText = "Anmerkung"
End With
For Each row As DataGridViewRow In dgvBestellungen.Rows
If Not IsDBNull(row.Cells("eb_gesendet").Value) Then
If row.Cells("eb_gesendet").Value Then row.DefaultCellStyle.BackColor = Color.LightYellow
End If
If Not IsDBNull(row.Cells("eb_storniert").Value) Then
If row.Cells("eb_storniert").Value Then
row.DefaultCellStyle.BackColor = Color.IndianRed
End If
End If
If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
End If
Next
txtAnzahlDS.Text = dgvBestellungen.Rows.Count
calcSumme()
End Sub
Private Function bestellungenWhereClause() As String
Dim SQLwhere = ""
If cboGebaeude._value IsNot "" Then SQLwhere &= " AND [eb_gebaeude] = '" & cboGebaeude._value.ToString & "'"
If cboAbteilung._value IsNot "" Then SQLwhere &= " AND [eb_abteilung] = '" & cboAbteilung._value.ToString & "'"
If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'"
If cbxAlleAnzeigen.Checked = False Then
If cbxStornos.Checked Then
SQLwhere &= " AND [eb_storniert] = '1'"
Else
SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'"
End If
If cbxAbgerechnet.Checked Then
SQLwhere &= " AND [eb_abgerechnet] = '1'"
Else
SQLwhere &= " AND ISNULL([eb_abgerechnet],0) = '0'"
End If
If cbxNichtAbgeschickt.Checked Then
SQLwhere &= " AND ISNULL([eb_gesendet],0) = '0'"
Else
'SQLwhere &= " AND [eb_gesendet] = '1'"
End If
End If
If txtBestellDat._value <> Nothing AndAlso txtBestellDatBis._value <> Nothing Then
SQLwhere &= " AND [eb_datum] BETWEEN '" & txtBestellDat._value & "' AND '" & txtBestellDatBis._value & "'"
End If
Return SQLwhere
End Function
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
txtBestellDat._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
txtBestellDatBis._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
initBtns("Monat")
End Sub
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year)
Dim JAHR As Date = CDate("01.01." & Now.Year)
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Select Case MonatJahr
Case "Monat"
DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr"
DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
Case ""
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
DateTimePicker2.Value = Now
End Select
End Sub
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
initBtns("Jahr")
End Sub
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1)
initBtns("Monat")
End Sub
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
End Sub
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
JAHR = JAHR.AddYears(-1)
initBtns("Jahr")
End Sub
Private Sub txtMitarbeiter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMitarbeiter.KeyDown
If e.KeyCode = Keys.Enter Then
Me.loadBestellungen()
e.Handled = True
End If
End Sub
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged, cbxAlleAnzeigen.CheckedChanged
If cbxAlleAnzeigen.Checked Then
cbxAbgerechnet.Checked = Not cbxAlleAnzeigen.Checked
cbxNichtAbgeschickt.Checked = Not cbxAlleAnzeigen.Checked
cbxStornos.Checked = Not cbxAlleAnzeigen.Checked
End If
loadBestellungen()
End Sub
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
cbKW.changeItem("")
txtMitarbeiter.Text = ""
cboGebaeude.changeItem("")
cboAbteilung.changeItem("")
cbxStornos.Checked = False
cbxAbgerechnet.Checked = False
txtBestellDat.Text = Date.Parse("01.01.2001")
txtBestellDatBis.Text = Now.AddDays(7).ToShortDateString 'Um die aktuellen EB für nächste Woche zu sehen
Me.btnSuche.PerformClick()
End Sub
Private Sub calcSumme()
Dim countSumme As Double = 0
For i As Integer = 0 To dgvBestellungen.Rows.Count - 1
countSumme += CDbl(dgvBestellungen.Rows(i).Cells("eb_preis").Value)
Next
txtSumme._value = countSumme.ToString
End Sub
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
If dgvBestellungen.SelectedRows.Count < 1 Then Exit Sub
Dim bestellung As New cEssensbestellung(dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value, dgvBestellungen.SelectedRows(0).Cells("eb_mitid").Value)
Using UserControl1 As SDL.UsrCntlessensbestellungen = New SDL.UsrCntlessensbestellungen(bestellung)
Using tmpForm As Form = New Form()
tmpForm.Width = UserControl1.Width
tmpForm.Height = UserControl1.Height + 40
tmpForm.Text = bestellung.eb_kw.ToString & " - " & bestellung.eb_mitname.ToString
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then
dgvBestellungen.GetOrder()
loadBestellungen()
dgvBestellungen.SetOrder()
End If
End Using
End Using
End Sub
Private Sub AbgerechnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbgerechnetToolStripMenuItem.Click, StornierenToolStripMenuItem.Click, AnHigway118SchickenToolStripMenuItem.Click
If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
Select Case sender.Text
Case "abrechnen"
Select Case dgvBestellungen.SelectedRows.Count
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 & " abrechnen", vbYesNoCancel) Then
bestellungenAbrechnen(True)
Else
Exit Sub
End If
Case Else
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abrechnen", vbYesNoCancel) Then
bestellungenAbrechnen(True)
Else
Exit Sub
End If
End Select
Case "stornieren"
Select Case dgvBestellungen.SelectedRows.Count
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 & " wirklich stornieren", vbYesNoCancel) Then
bestellungenStornieren(True)
Else
Exit Sub
End If
Case Else
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen wirklich stornieren", vbYesNoCancel) Then
bestellungenStornieren(True)
Else
Exit Sub
End If
End Select
Case "markierte Bestellungen per Mail senden"
Select Case dgvBestellungen.SelectedRows.Count
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(sender, e)
Else
Exit Sub
End If
Case Else
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
bestellungenSenden(True)
generateEMailforHighway(sender, e)
Else
Exit Sub
End If
End Select
End Select
loadBestellungen()
End Sub
Private Sub bestellungenStornieren(stornieren As Boolean)
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
Dim bestellung As New cEssensbestellung(row.Cells("eb_kw").Value, row.Cells("eb_mitid").Value)
bestellung.eb_storniert = True
If stornieren Then
bestellung.eb_storniert_am = Now
Else
bestellung.eb_storniert_am = DBNull.Value
End If
bestellung.eb_preis = 0
bestellung.SAVE()
Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub
Private Sub bestellungenAbrechnen(abrechnen As Boolean)
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
Dim bestellung As New cEssensbestellung(row.Cells("eb_kw").Value, row.Cells("eb_mitid").Value)
bestellung.eb_abgerechnet = abrechnen
If abrechnen Then
bestellung.eb_abgerechnet_am = Now
Else
bestellung.eb_abgerechnet_am = DBNull.Value
End If
bestellung.SAVE()
Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub
Private Sub bestellungenSenden(senden As Boolean)
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
Dim bestellung As New cEssensbestellung(row.Cells("eb_kw").Value, row.Cells("eb_mitid").Value)
bestellung.eb_gesendet = senden
If senden Then
bestellung.eb_gesendet_am = Now
Else
bestellung.eb_gesendet_am = DBNull.Value
End If
bestellung.SAVE()
Next
dgvBestellungen.GetOrder()
dgvBestellungen.LOAD()
dgvBestellungen.SetOrder()
End Sub
Private Sub generateEMailforHighway(sender As Object, e As EventArgs)
Me.Cursor = Cursors.WaitCursor
Try
Dim kw As String = ""
Dim gebaeude As String = ""
Dim TextHTMLtable = ""
TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>Mitarbeiter</td><td>Montag</td><td>Dienstag</td><td>Mittwoch</td><td>Donnerstag</td><td>Freitag</td><td>Gebäude</td><td>Anmerkung</td><td>Firma</td></tr>"
If sender.Text = "Email" Then
Dim dtBestellungenMail = generateDTBestellungen()
kw = cbxMailKW._value
gebaeude = cbxMailGebäude._value
If dtBestellungenMail.Rows.Count = 0 Then
Me.Cursor = Cursors.Default
Exit Sub
End If
For Each row As DataRow In dtBestellungenMail.Rows
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & row("Name") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Montag") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Dienstag") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Mittwoch") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Donnerstag") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Freitag") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Gebaeude") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Anmerkung") & "</b></td>"
TextHTMLtable &= "<td><b>" & row("Firma") & "</b></td>"
TextHTMLtable &= "</tr>"
If row("ID") <> 0 Then
Dim bestellung As New cEssensbestellung(row("KW"), row("ID"))
bestellung.eb_gesendet = True
bestellung.eb_gesendet_am = Now
bestellung.SAVE()
End If
Next
dgvBestellungen.LOAD()
Else
If dgvBestellungen.SelectedRows.Count = 0 Then
lblWarning.Text = "keine Bestellungen markiert!"
Me.Cursor = Cursors.Default
Exit Sub
End If
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 &= "<td><b>" & row.Cells("eb_anmerkung").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("eb_firma").Value & "</b></td>"
TextHTMLtable &= "</tr>"
Next
End If
lblWarning.Text = ""
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.To = "info@highway-118.de; service@highway-118.de"
Mail.Subject = "Essensbestellung: " & IIf(kw <> "", kw, "") & " " & IIf(gebaeude <> "", gebaeude, "")
Dim DETextHTML = ""
DETextHTML &= "Hallo,<br>"
DETextHTML &= "<br>"
DETextHTML &= "Anbei ist die Essensbestellung " & IIf(kw <> "", "für " & kw, "") & ".<br>"
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", cAllgemein.FIRMA_ID, True, True) & "</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 Or cbKW._value = "" Then
txtBestelllimit.Text = ""
Exit Sub
End If
btnBestelllimit.Enabled = True
If dt IsNot Nothing Then
dt.Clear()
End If
dt = SQL.loadDgvBySql("SELECT Top 1 * from (SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDate, MenuDateVon, MenuDateBis, MenuBestellungBisTageVorher FROM tblEBMenu) kwDate where kwDate = '" & cbKW._value & "'", "AVISO", 100, True)
txtBestelllimit.Text = ""
If dt.Rows.Count > 0 Then
txtBestelllimit.Text = dt.Rows(0).Item("MenuBestellungBisTageVorher").ToString
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
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
lblWarning.Text = ""
If cbxMailKW._value = "" Then
lblWarning.Text = "Kalenderwoche auswählen!"
Exit Sub
End If
If cbxMailGebäude._value = "" Then
lblWarning.Text = "Gebäude auswählen!"
Exit Sub
End If
Select Case sender.Text
Case "Email"
generateEMailforHighway(sender, e)
Case "Excel"
SDL.cProgramFunctions.genExcelFromDT_NEW(generateDTBestellungen(True))
End Select
End Sub
Private Function generateDTBestellungen(Optional exportToExcel As Boolean = False) As DataTable
Dim dtBestellungen As DataTable
''LEFT([eb_kw],5)
Dim SQLStringBEstellungen As String = "SELECT [eb_mitname] as Name ,[eb_mitid] as ID , [eb_kw] as KW , [eb_gebaeude] as Gebaeude ,[eb_abteilung] as Abteilung ,[eb_montag] As Montag ,[eb_dienstag] As Dienstag,[eb_mittwoch] As Mittwoch,
[eb_donnerstag] As Donnerstag , [eb_freitag] As Freitag, [eb_anmerkung] As Anmerkung , [eb_datum] As Datum , [eb_storniert] as Storniert, [eb_firma] as Firma
FROM
[tblEssensbestellungen] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum"
dtBestellungen = SQL.loadDgvBySql(SQLStringBEstellungen, "AVISO", 100, True)
If dtBestellungen.Rows.Count = 0 Then
lblWarning.Text = "Keine Bestellungen vorhanden!"
Me.Cursor = Cursors.Default
Return dtBestellungen
End If
Dim uniqueMenusMontag = dtBestellungen.AsEnumerable() _
.GroupBy(Function(row) _
New With
{
Key .Montag = row.Field(Of String)("Montag")
}
)
Dim uniqueMenusDienstag = dtBestellungen.AsEnumerable() _
.GroupBy(Function(row) _
New With
{
Key .Dienstag = row.Field(Of String)("Dienstag")
}
)
Dim uniqueMenusMittwoch = dtBestellungen.AsEnumerable() _
.GroupBy(Function(row) _
New With
{
Key .Mittwoch = row.Field(Of String)("Mittwoch")
}
)
Dim uniqueMenusDonnerstag = dtBestellungen.AsEnumerable() _
.GroupBy(Function(row) _
New With
{
Key .Donnerstag = row.Field(Of String)("Donnerstag")
}
)
Dim uniqueMenusFreitag = dtBestellungen.AsEnumerable() _
.GroupBy(Function(row) _
New With
{
Key .Freitag = row.Field(Of String)("Freitag")
}
)
Dim resultMontag, resultDienstag, resultMittwoch, resultDonnerstag, resultFreitag As String
For Each el In uniqueMenusMontag
resultMontag &= IIf(el.Key.Montag <> "", String.Format("{1}x {0}, " & vbNewLine, el.Key.Montag, el.Count()), "")
Next
For Each el In uniqueMenusDienstag
resultDienstag &= IIf(el.Key.Dienstag <> "", String.Format("{1}x {0}, " & vbNewLine, el.Key.Dienstag, el.Count()), "")
Next
For Each el In uniqueMenusMittwoch
resultMittwoch &= IIf(el.Key.Mittwoch <> "", String.Format("{1}x {0}, " & vbNewLine, el.Key.Mittwoch, el.Count()), "")
Next
For Each el In uniqueMenusDonnerstag
resultDonnerstag &= IIf(el.Key.Donnerstag <> "", String.Format("{1}x {0}, " & vbNewLine, el.Key.Donnerstag, el.Count()), "")
Next
For Each el In uniqueMenusFreitag
resultFreitag &= IIf(el.Key.Freitag <> "", String.Format("{1}x {0}, " & vbNewLine, el.Key.Freitag, el.Count()), "")
Next
Dim R As DataRow = dtBestellungen.NewRow
R("ID") = "0"
R("KW") = "-"
R("Name") = "SUMME"
R("Gebaeude") = "-"
R("Name") = DBNull.Value
R("Abteilung") = "-"
R("Anmerkung") = DBNull.Value
R("Datum") = DBNull.Value
R("Storniert") = DBNull.Value
R("Firma") = DBNull.Value
R("Montag") = String.Join(" ", resultMontag)
R("Dienstag") = String.Join(" ", resultDienstag)
R("Mittwoch") = String.Join(" ", resultMittwoch)
R("Donnerstag") = String.Join(" ", resultDonnerstag)
R("Freitag") = String.Join(" ", resultFreitag)
dtBestellungen.Rows.Add(R)
' MessageBox.Show(String.Join(Environment.NewLine, result))
If exportToExcel Then
dtBestellungen.Columns.Remove("ID")
dtBestellungen.Columns.Remove("Datum")
dtBestellungen.Columns.Remove("Storniert")
dtBestellungen.Columns.Remove("Gebaeude")
dtBestellungen.Columns.Remove("Abteilung")
End If
Return dtBestellungen
End Function
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
Using UserControl1 As UsrCntlessensbestellungen = New UsrCntlessensbestellungen()
Using tmpForm As Form = New Form()
tmpForm.Width = UserControl1.Width
tmpForm.Height = UserControl1.Height + 60
tmpForm.Text = "NEUE BESTELLUNG"
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
tmpForm.Controls.Add(UserControl1)
If tmpForm.ShowDialog() = DialogResult.OK Then
dgvBestellungen.GetOrder()
loadBestellungen()
dgvBestellungen.SetOrder()
End If
End Using
End Using
End Sub
Private Sub dgvBestellungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBestellungen.SelectionChanged
lblWarning.Text = ""
Dim countSumme As Double = 0
If dgvBestellungen.SelectedRows.Count > 0 Then
For i As Integer = 0 To dgvBestellungen.SelectedRows.Count - 1
countSumme += CDbl(dgvBestellungen.SelectedRows(i).Cells("eb_preis").Value)
Next
End If
txtMarkierteDS._value = countSumme.ToString
End Sub
'Private Sub txtBestelllimit_KeyDown(sender As Object, e As KeyEventArgs) Handles txtBestelllimit.KeyDown
' If e.KeyCode = Keys.Enter Then
' If IsNumeric(txtBestelllimit.Text) And txtBestelllimit.Text > 0 Then
' SQL.doSQL("UPDATE tblEBMenu SET MenuBestellungBisTageVorher='" & txtBestelllimit.Text & "' WHERE MenuDateVon = '" & dt.Rows(0).Item("MenuDateVon").ToString() & "'", "AVISO")
' e.Handled = True
' End If
' End If
'End Sub
Private Sub txtBestelllimit_ValueChanged() Handles txtBestelllimit.TextChanged
If cbKW._value Is Nothing Or cbKW._value = "" Then
txtBestelllimit.Enabled = False
btnBestelllimit.Enabled = False
Exit Sub
End If
If txtBestelllimit.Text = "" Then
btnBestelllimit.Enabled = False
Exit Sub
End If
If dt.Rows.Count > 0 AndAlso IsNumeric(txtBestelllimit.Text) Then
calcBestellLimit()
If CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") < Today Then
txtBestelllimit.Enabled = False
btnBestelllimit.Enabled = False
Else
txtBestelllimit.Enabled = True
btnBestelllimit.Enabled = True
End If
End If
End Sub
Private Sub btnBestelllimit_Click(sender As Object, e As EventArgs) Handles btnBestelllimit.Click
If IsNumeric(txtBestelllimit.Text) And txtBestelllimit.Text > 0 Then
SQL.doSQL("UPDATE tblEBMenu SET MenuBestellungBisTageVorher='" & txtBestelllimit.Text & "' WHERE MenuDateVon = '" & dt.Rows(0).Item("MenuDateVon").ToString() & "'", "AVISO")
btnBestelllimit.Enabled = False
calcBestellLimit()
End If
End Sub
Private Sub calcBestellLimit()
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
Dim newTime As New TimeSpan(14, 30, 0)
Dim tageBisBestellende = txtBestelllimit.Text * -1
Dim timeToOrderLimit = startMenu.AddDays(tageBisBestellende) + newTime
lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString
End Sub
Private Sub ExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExcelToolStripMenuItem.Click
Me.Cursor =
Cursors.WaitCursor
Try
If dgvBestellungen.SelectedRows.Count = 0 Then
lblWarning.Text = "keine Bestellungen markiert!"
Me.Cursor = Cursors.Default
Exit Sub
End If
Dim dtSource As DataTable
dtSource = CType(dgvBestellungen.DataSource, DataTable)
Dim dt = dtSource.Clone()
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
dt.ImportRow(dtSource.Rows(row.Index))
Next
dt.DefaultView.Sort = "eb_mitid ASC, eb_kw ASC"
dt = dt.DefaultView.ToTable
Dim drFirst = dt.NewRow
drFirst.Item("eb_mitname") = "Bestellungen von " & txtBestellDat.Text & " bis " & txtBestellDatBis.Text
drFirst.Item("eb_mitId") = 0
drFirst.Item("eb_kw") = " "
drFirst.Item("eb_gebaeude") = " "
drFirst.Item("eb_abteilung") = " "
drFirst.Item("eb_preis") = 0
drFirst.Item("eb_firma") = " "
dt.Rows.InsertAt(drFirst, 0)
Dim drLast = dt.NewRow
drLast.Item("eb_mitname") = "Gesamtsumme: "
drLast.Item("eb_mitId") = 0
drLast.Item("eb_kw") = " "
drLast.Item("eb_gebaeude") = " "
drLast.Item("eb_abteilung") = " "
drLast.Item("eb_preis") = txtMarkierteDS.Text.Replace("€", "")
drLast.Item("eb_firma") = " "
dt.Rows.InsertAt(drLast, dt.Rows.Count)
dt.Columns.Remove("eb_mitid")
SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
Me.Cursor = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

45
SDL/frmMain.Designer.vb generated
View File

@@ -49,6 +49,8 @@ Partial Class frmMain
Me.RechnungsdatenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueBuchhaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueEssensbestellung = New System.Windows.Forms.ToolStripMenuItem()
Me.AdministrationToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.EssensbestellungToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueKassenbuch = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueAdministration = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueSchnittstellen = New System.Windows.Forms.ToolStripMenuItem()
@@ -109,6 +111,9 @@ Partial Class frmMain
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxEssen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EssensbestellungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlLeft.SuspendLayout()
Me.MenuStripSDL.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -122,6 +127,7 @@ Partial Class frmMain
Me.Panel2.SuspendLayout()
Me.pnlJumpKunde.SuspendLayout()
Me.cntxtZOLL.SuspendLayout()
Me.cntxEssen.SuspendLayout()
Me.SuspendLayout()
'
'pnlLeft
@@ -340,6 +346,7 @@ Partial Class frmMain
'mnueEssensbestellung
'
Me.mnueEssensbestellung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.mnueEssensbestellung.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem1, Me.EssensbestellungToolStripMenuItem1})
Me.mnueEssensbestellung.ForeColor = System.Drawing.Color.White
Me.mnueEssensbestellung.Image = Global.SDL.My.Resources.Resources.house1
Me.mnueEssensbestellung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
@@ -352,6 +359,20 @@ Partial Class frmMain
Me.mnueEssensbestellung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueEssensbestellung.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'AdministrationToolStripMenuItem1
'
Me.AdministrationToolStripMenuItem1.Name = "AdministrationToolStripMenuItem1"
Me.AdministrationToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.AdministrationToolStripMenuItem1.Text = "Administration"
Me.AdministrationToolStripMenuItem1.Visible = False
'
'EssensbestellungToolStripMenuItem1
'
Me.EssensbestellungToolStripMenuItem1.Name = "EssensbestellungToolStripMenuItem1"
Me.EssensbestellungToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.EssensbestellungToolStripMenuItem1.Text = "Essensbestellung"
Me.EssensbestellungToolStripMenuItem1.Visible = False
'
'mnueKassenbuch
'
Me.mnueKassenbuch.ForeColor = System.Drawing.Color.White
@@ -1003,6 +1024,24 @@ Partial Class frmMain
Me.Timer_REFRESH.Enabled = True
Me.Timer_REFRESH.Interval = 5000
'
'cntxEssen
'
Me.cntxEssen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.EssensbestellungToolStripMenuItem})
Me.cntxEssen.Name = "cntxEssen"
Me.cntxEssen.Size = New System.Drawing.Size(164, 48)
'
'AdministrationToolStripMenuItem
'
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
Me.AdministrationToolStripMenuItem.Text = "Administration"
'
'EssensbestellungToolStripMenuItem
'
Me.EssensbestellungToolStripMenuItem.Name = "EssensbestellungToolStripMenuItem"
Me.EssensbestellungToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
Me.EssensbestellungToolStripMenuItem.Text = "Essensbestellung"
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1035,6 +1074,7 @@ Partial Class frmMain
Me.pnlJumpKunde.ResumeLayout(False)
Me.pnlJumpKunde.PerformLayout()
Me.cntxtZOLL.ResumeLayout(False)
Me.cntxEssen.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -1123,4 +1163,9 @@ Partial Class frmMain
Friend WithEvents mneFakturierung As ToolStripMenuItem
Friend WithEvents FakturierungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RechnungsdatenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cntxEssen As ContextMenuStrip
Friend WithEvents AdministrationToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EssensbestellungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AdministrationToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EssensbestellungToolStripMenuItem1 As ToolStripMenuItem
End Class

3
SDL/frmMain.resx
View File

@@ -164,6 +164,9 @@
<metadata name="Timer_REFRESH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1557, 17</value>
</metadata>
<metadata name="cntxEssen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>514, 14</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

21
SDL/frmMain.vb
View File

@@ -962,8 +962,15 @@ Public Class frmMain
End Sub
Private Sub mnueEssensbestellung_Click(sender As Object, e As EventArgs) Handles mnueEssensbestellung.Click
Dim f As New frmEssensbestellungen()
f.Show()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN_ESSENSBESTELLUNGEN", Me) = 0 Then
EssensbestellungToolStripMenuItem1.Visible = True
AdministrationToolStripMenuItem1.Visible = True
Else
Dim f As New frmEssensbestellungen()
f.Show()
End If
End Sub
Private Sub btnMitarbeiterKonto_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
@@ -1042,6 +1049,16 @@ Public Class frmMain
setInfo("err", "Daten sind noch nicht freigegeben!", 3)
End If
End Sub
Private Sub EssensbestellungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EssensbestellungToolStripMenuItem1.Click
Dim f As New frmEssensbestellungen()
f.Show()
End Sub
Private Sub AdministrationToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem1.Click
Dim f As New frmEssensbestellungenAdministration()
f.Show()
End Sub
End Class
Public Class MyRenderer