Merge branch 'essensbestellungen'

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
@@ -4228,6 +4235,11 @@ Public Class frmHauptfenster
         Dim f As New frmWechselStandarddrucker()
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
+        Dim f As New frmEssensbestellungen()
+        f.ShowDialog(Me)
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions