diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index ca3e47d1..e2874721 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -269,16 +269,6 @@ True - - True - - - False - C:\Windows\assembly\GAC_MSIL\Microsoft.ReportViewer.ProcessingObjectModel\11.0.0.0__89845dcd8080cc91\Microsoft.ReportViewer.ProcessingObjectModel.dll - - - True - ..\..\..\dll\NumericBox.dll @@ -286,9 +276,6 @@ False ..\..\..\dll\SharpSSH\Org.Mentalis.Security.dll - - ..\..\..\Parkzeit\Parkzeit\Parkzeit\bin\Debug\Parkzeit.exe - @@ -486,12 +473,6 @@ Form - - frmPrintView.vb - - - Form - frmUidLink.vb @@ -3023,9 +3004,6 @@ frmEoriLink.vb - - frmPrintView.vb - frmUidLink.vb @@ -4970,6 +4948,10 @@ {110c923b-cb02-4fd0-af24-95e0f0eeeff5} Gemeinsames + + {e4190547-b222-4ae3-a0be-a44eaee70335} + Parkzeit + {a3b497bd-842c-4a2b-b398-ed1976849df1} VERAG_PROG_ALLGEMEIN diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb index 0bfc9c0b..b6e0259b 100644 --- a/SDL/frmEssensbestellungenAdministration.vb +++ b/SDL/frmEssensbestellungenAdministration.vb @@ -26,24 +26,8 @@ Public Class frmEssensbestellungenAdministration cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True) - If cAllgemein.MITARBEITER.mit_abteilung = "MDM" Then 'Verag360 darf nur seine Bestellungen sehen! - cboAbteilung.changeItem("MDM") + setMDM() - cboAbteilung.Enabled = False - - cboGebaeude.changeItem("Maut") - cbxMailGebäude.changeItem("Maut") - cboGebaeude.Enabled = False - cbxMailGebäude.Enabled = False - - Else - cboAbteilung.changeItem("") - cboAbteilung.Enabled = True - - cboGebaeude.changeItem("") - cboGebaeude.Enabled = True - cbxMailGebäude.Enabled = True - End If 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) @@ -269,6 +253,9 @@ Public Class frmEssensbestellungenAdministration cbxAbgerechnet.Checked = False txtBestellDat.Text = Date.Parse("01.01.2001") txtBestellDatBis.Text = Now.AddDays(7).ToShortDateString 'Um die aktuellen EB für nächste Woche zu sehen + + setMDM() + Me.btnSuche.PerformClick() End Sub @@ -901,9 +888,33 @@ Public Class frmEssensbestellungenAdministration SDL.cProgramFunctions.genExcelFromDT_NEW(dt) - Me.Cursor = Cursors.Default + Me.Cursor = Cursors.Default Catch ex As Exception MsgBox(ex.Message) End Try End Sub + + Private Sub setMDM() + + If cAllgemein.MITARBEITER.mit_abteilung = "MDM" Then 'Verag360 darf nur seine Bestellungen sehen! + cboAbteilung.changeItem("MDM") + + cboAbteilung.Enabled = False + + cboGebaeude.changeItem("Maut") + cbxMailGebäude.changeItem("Maut") + cboGebaeude.Enabled = False + cbxMailGebäude.Enabled = False + + Else + cboAbteilung.changeItem("") + cboAbteilung.Enabled = True + + cboGebaeude.changeItem("") + cboGebaeude.Enabled = True + cbxMailGebäude.Enabled = True + End If + + + End Sub End Class \ No newline at end of file