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