Warenorte-ReadOnly eingebaut

Aviso/frmHauptfenster.vb

@@ -575,12 +575,6 @@ Public Class frmHauptfenster
             DatevBuchungsexportToolStripMenuItem.Visible = True
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then
-            WarenorteToolStripMenuItem.Visible = True
-        End If
-
-
-
 
         Panel1.Height -= pnlSearch.Height
 
@@ -4494,7 +4488,10 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
-        Dim f As New frmWarenorte()
+        Dim enableWritepermissions As Boolean
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then enableWritepermissions = True
+
+        Dim f As New frmWarenorte(enableWritepermissions)
         f.ShowDialog(Me)
     End Sub