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

Essensbestellungen -> Verag360 für kan nfür GF Bestellungen einsehen!

Browse Source
This commit is contained in:
d.breimaier
2023-11-27 09:30:49 +01:00
parent 418e2703ca
commit ebf43c0366
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.6.6")> <Assembly: AssemblyVersion("1.2.6.7")>
<Assembly: AssemblyFileVersion("1.2.6.6")> <Assembly: AssemblyFileVersion("1.2.6.7")>

9
SDL/frmEssensbestellungenAdministration.vb
View File

@@ -130,7 +130,14 @@ Public Class frmEssensbestellungenAdministration
Dim SQLwhere = "" Dim SQLwhere = ""
If cboGebaeude._value IsNot "" Then SQLwhere &= " AND [eb_gebaeude] = '" & cboGebaeude._value.ToString & "'" 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 cboAbteilung._value IsNot "" Then
SQLwhere &= " AND ([eb_abteilung] = '" & cboAbteilung._value.ToString & "'"
If cboAbteilung._value = "MDM" Then
SQLwhere &= " Or [eb_abteilung] = 'GF')"
Else
SQLwhere &= ")"
End If
End If
If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'" If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'"
If cbxAlleAnzeigen.Checked = False Then If cbxAlleAnzeigen.Checked = False Then