Berechtigung für Essensbestellung

Aviso/frmHauptfenster.vb

@@ -536,6 +536,13 @@ Public Class frmHauptfenster
             btnKassenbuch.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "AVISO") Then
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                Case "FRONTOFFICE", "VERAG", "IMEX"
+                    EssensbestellungenToolStripMenuItem.Visible = True
+            End Select
+        End If
+
         Panel1.Height -= pnlSearch.Height
 
     End Sub