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

ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

Browse Source
This commit is contained in:
d.breimaier
2024-03-12 14:32:03 +01:00
parent d7d6d6fd02
commit 3433caa2e8
26 changed files with 940 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
SDL/frmEssensbestellungenAdministration.vb
View File

@@ -1,4 +1,5 @@

Imports System.Data.SqlTypes
Imports System.Timers
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
@@ -26,7 +27,9 @@ Public Class frmEssensbestellungenAdministration
cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE()ORDER BY eb_kw desc", False, "AVISO", True)
'changeYear()
cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE() ORDER BY eb_kw desc", False, "AVISO", True)
cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
cbxMailKW.changeItem("")
@@ -49,14 +52,14 @@ Public Class frmEssensbestellungenAdministration
FROM
[tblEssensbestellungen] WHERE 1=1"
IIf(cAllgemein.MITARBEITER.getFirma = SQLString & "UNISPED", "And essen.eb_firma = " & cAllgemein.MITARBEITER.getFirma, "") 'UNISPED-Bestellungen!
SQLString &= IIf(cAllgemein.MITARBEITER.getFirma = "UNISPED", " And eb_firma = '" & cAllgemein.MITARBEITER.getFirma & "'", "") 'UNISPED-Bestellungen!
dgvBestellungen.SET_SQL(SQLString & bestellungenWhereClause() & " Order by eb_datum, eb_mitid", "AVISO", ,)
dgvBestellungen.LOAD()
With dgvBestellungen
'If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
.RowHeadersVisible = False
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
@@ -628,12 +631,18 @@ Public Class frmEssensbestellungenAdministration
Dim dtBestellungen As DataTable
''LEFT([eb_kw],5)
Dim sqlWhere = ""
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'"
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,
[eb_donnerstag] As Donnerstag , [eb_freitag] As Freitag, [eb_anmerkung] As Anmerkung , [eb_datum] As Datum , [eb_storniert] as Storniert, [eb_firma] as Firma
FROM
[tblEssensbestellungen] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum"
[tblEssensbestellungen] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 " & sqlWhere & " Order by eb_datum"
dtBestellungen = SQL.loadDgvBySql(SQLStringBEstellungen, "AVISO", 100, True)
@@ -913,6 +922,7 @@ Public Class frmEssensbestellungenAdministration
cbxMailGebäude.Enabled = False
Else
cboAbteilung.changeItem("")
cboAbteilung.Enabled = True
@@ -923,4 +933,22 @@ Public Class frmEssensbestellungenAdministration
End Sub
'Private Sub cbxCurrenyear_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCurrenyear.CheckedChanged
' changeYear()
'End Sub
'Private Sub changeYear()
' Dim sqlwhere = "WHERE "
' sqlwhere &= IIf(cbxCurrenyear.Checked, "Year(MenuDateVon) = Year(getdate()) and MenuDateVon > GETDATE()", "MenuDateVon > GETDATE()")
' cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] " & sqlwhere & " ORDER BY eb_kw desc", False, "AVISO", True)
' Dim sqlwhere2 = "WHERE "
' sqlwhere2 &= IIf(cbxCurrenyear.Checked, "Year([eb_datum]) = Year(getdate()) and [eb_datum] <= GETDATE()", "[eb_datum] <= GETDATE()")
' cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] " & sqlwhere2 & " ORDER BY eb_kw desc", False, "AVISO", True)
'End Sub
End Class