Essensbestellungen GUI Verbesserung, Control für Warenorte

Aviso/frmHauptfenster.vb

@@ -558,6 +558,11 @@ Public Class frmHauptfenster
             AdministrationEssensbestellungenToolStripMenuItem.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then
+            WarenorteToolStripMenuItem.Visible = True
+        End If
+
+
 
 
         Panel1.Height -= pnlSearch.Height
@@ -4333,6 +4338,11 @@ Public Class frmHauptfenster
         Dim f As New frmEssensbestellungenAdministration()
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
+        Dim f As New frmWarenorte()
+        f.ShowDialog(Me)
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions