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

essensbestellungen Filteränderung

Browse Source
This commit is contained in:
d.breimaier
2023-04-24 09:52:15 +02:00
parent 3d776cff84
commit 17b8dae263
3 changed files with 48 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Aviso/frmEssensbestellungenAdministration.vb
View File

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