From 17b8dae263c8a346b34f30d3be7d25d7a3e1c8d4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 24 Apr 2023 09:52:15 +0200 Subject: [PATCH] =?UTF-8?q?essensbestellungen=20Filter=C3=A4nderung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ...sensbestellungenAdministration.Designer.vb | 13 ++++++ Aviso/frmEssensbestellungenAdministration.vb | 45 ++++++++++++------- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 10 ++--- 3 files changed, 48 insertions(+), 20 deletions(-) diff --git a/Aviso/frmEssensbestellungenAdministration.Designer.vb b/Aviso/frmEssensbestellungenAdministration.Designer.vb index 44e53d2..91b64e5 100644 --- a/Aviso/frmEssensbestellungenAdministration.Designer.vb +++ b/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 diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb index f8e4e76..68a3a91 100644 --- a/Aviso/frmEssensbestellungenAdministration.vb +++ b/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'" - Else - SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'" + + 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 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 diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index dc4886b..3a83d1f 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/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 '