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

Essenbestellungen, Ueberstunden

Browse Source
This commit is contained in:
d.breimaier
2024-03-25 08:52:07 +01:00
parent 585f5cbf75
commit 826e83bf5d
3 changed files with 100 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/frmEssensbestellungenAdministration.vb
View File

@@ -68,7 +68,10 @@ Public Class frmEssensbestellungenAdministration
.Columns("eb_kw").HeaderText = "KW"
.Columns("eb_kw").Width = 80
.Columns("eb_mitid").HeaderText = "MID"
.Columns("eb_mitid").HeaderText = "MID"
.Columns("eb_mitid").Width = 40
.Columns("eb_mitid").HeaderText = "MID"
.Columns("eb_mitid").Visible = False
.Columns("eb_mitname").HeaderText = "Mitarbeiter"
.Columns("eb_mitname").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("eb_abteilung").Visible = False
@@ -636,7 +639,7 @@ Public Class frmEssensbestellungenAdministration
If cAllgemein.MITARBEITER.getFirma = "UNISPED" Then
sqlWhere &= " And eb_firma = '" & cAllgemein.MITARBEITER.getFirma & "' "
Else
sqlWhere &= " And eb_firma = 'VERAG' OR eb_firma = 'IMEX' OR eb_firma = 'FRONTOFFICE'"
sqlWhere &= " And (eb_firma = 'VERAG' OR eb_firma = 'IMEX' OR eb_firma = 'FRONTOFFICE')"
End If
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,
@@ -721,15 +724,15 @@ Public Class frmEssensbestellungenAdministration
Dim SQLStringMenues As String = "SELECT TOP (1) [MenuEssenMoDate] as Montag
,[MenuEssenDiDate] as Dienstag
,[MenuEssenMiDate] as Mittwoch
,[MenuEssenDoDate] as Donnerstag
,[MenuEssenFrDate] as Freitag
FROM
[tblEBMenu] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 " & sqlWhere & " Order by eb_datum"
'Dim SQLStringMenues As String = "SELECT TOP (1) [MenuEssenMoDate] as Montag
' ,[MenuEssenDiDate] as Dienstag
' ,[MenuEssenMiDate] as Mittwoch
' ,[MenuEssenDoDate] as Donnerstag
' ,[MenuEssenFrDate] as Freitag
' FROM
' [tblEBMenu] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 " & sqlWhere & " Order by eb_datum"
Dim dtMenu = SQL.loadDgvBySql(SQLStringMenues, "AVISO", 100, True)
'Dim dtMenu = SQL.loadDgvBySql(SQLStringMenues, "AVISO", 100, True)
@@ -947,6 +950,7 @@ Public Class frmEssensbestellungenAdministration
End Sub
'Private Sub cbxCurrenyear_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCurrenyear.CheckedChanged
' changeYear()
'End Sub