Parkzeit, Essensbestellungen

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