essensbestellungen Filteränderung

Aviso/frmEssensbestellungenAdministration.Designer.vb

@@ -79,6 +79,7 @@ Partial Class frmEssensbestellungenAdministration
         Me.lblWarning = New System.Windows.Forms.Label()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Label9 = New System.Windows.Forms.Label()
+        Me.cbxAlleAnzeigen = New System.Windows.Forms.CheckBox()
         Me.pnlTop.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -119,6 +120,7 @@ Partial Class frmEssensbestellungenAdministration
         '
         '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)
@@ -796,6 +798,16 @@ Partial Class frmEssensbestellungenAdministration
         Me.Label9.Text = "Gesamtbetrag"
         Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        '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
+        '
         'frmEssensbestellungenAdministration
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -886,4 +898,5 @@ Partial Class frmEssensbestellungenAdministration
     Friend WithEvents txtBestelllimit As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents btnBestelllimit As Button
     Friend WithEvents lblBestellungBis As Label
+    Friend WithEvents cbxAlleAnzeigen As CheckBox
 End Class

Aviso/frmEssensbestellungenAdministration.vb

@@ -126,23 +126,30 @@ Public Class frmEssensbestellungenAdministration
         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 cbxStornos.Checked Then
+
-            SQLwhere &= " AND [eb_storniert] = '1'"
+        If cbxAlleAnzeigen.Checked = False Then
-        Else
+
-            SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'"
+            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 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
 
         If txtBestellDat._value <> Nothing AndAlso txtBestellDatBis._value <> Nothing Then
             SQLwhere &= " AND [eb_datum] BETWEEN '" & txtBestellDat._value & "' AND '" & txtBestellDatBis._value & "'"
@@ -219,7 +226,15 @@ Public Class frmEssensbestellungenAdministration
         End If
     End Sub
 
-    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged
+    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
 

Aviso/frmGesamtsicherheitenNEU.Designer.vb

@@ -231,7 +231,7 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtDatumaendern.Multiline = True
         Me.txtDatumaendern.Name = "txtDatumaendern"
         Me.txtDatumaendern.Size = New System.Drawing.Size(112, 24)
-        Me.txtDatumaendern.TabIndex = 55
+        Me.txtDatumaendern.TabIndex = 61
         '
         'txtSicherheitsbetragContext
         '
@@ -241,7 +241,7 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext"
         Me.txtSicherheitsbetragContext.ReadOnly = True
         Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24)
-        Me.txtSicherheitsbetragContext.TabIndex = 14
+        Me.txtSicherheitsbetragContext.TabIndex = 64
         Me.txtSicherheitsbetragContext.TabStop = False
         '
         'Label30
@@ -261,7 +261,7 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtWarenwertContext.Margin = New System.Windows.Forms.Padding(0)
         Me.txtWarenwertContext.Name = "txtWarenwertContext"
         Me.txtWarenwertContext.Size = New System.Drawing.Size(186, 24)
-        Me.txtWarenwertContext.TabIndex = 9
+        Me.txtWarenwertContext.TabIndex = 63
         '
         'lblWarenwertContext
         '
@@ -280,7 +280,7 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtUhrzeitaendern.Margin = New System.Windows.Forms.Padding(0)
         Me.txtUhrzeitaendern.Name = "txtUhrzeitaendern"
         Me.txtUhrzeitaendern.Size = New System.Drawing.Size(71, 24)
-        Me.txtUhrzeitaendern.TabIndex = 8
+        Me.txtUhrzeitaendern.TabIndex = 62
         '
         'Label26
         '
@@ -323,7 +323,7 @@ Partial Class frmGesamtsicherheitenNEU
         Me.txtATCaendern.Margin = New System.Windows.Forms.Padding(0)
         Me.txtATCaendern.Name = "txtATCaendern"
         Me.txtATCaendern.Size = New System.Drawing.Size(186, 24)
-        Me.txtATCaendern.TabIndex = 6
+        Me.txtATCaendern.TabIndex = 60
         '
         'Label34
         '