Essensbestellungen im SDL implementiert!

SDL/frmMain.vb

@@ -962,8 +962,15 @@ Public Class frmMain
     End Sub
 
     Private Sub mnueEssensbestellung_Click(sender As Object, e As EventArgs) Handles mnueEssensbestellung.Click
-        Dim f As New frmEssensbestellungen()
-        f.Show()
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN_ESSENSBESTELLUNGEN", Me) = 0 Then
+            EssensbestellungToolStripMenuItem1.Visible = True
+            AdministrationToolStripMenuItem1.Visible = True
+        Else
+            Dim f As New frmEssensbestellungen()
+            f.Show()
+        End If
+
     End Sub
 
     Private Sub btnMitarbeiterKonto_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
@@ -1042,6 +1049,16 @@ Public Class frmMain
             setInfo("err", "Daten sind noch nicht freigegeben!", 3)
         End If
     End Sub
+
+    Private Sub EssensbestellungToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EssensbestellungToolStripMenuItem1.Click
+        Dim f As New frmEssensbestellungen()
+        f.Show()
+    End Sub
+
+    Private Sub AdministrationToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem1.Click
+        Dim f As New frmEssensbestellungenAdministration()
+        f.Show()
+    End Sub
 End Class
 
 Public Class MyRenderer