Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Aviso/frmHauptfenster.vb

@@ -3203,6 +3203,7 @@ ELSE_ATILLA:
         DEAmbarToolStripMenuItem.Visible = False
         ATUnispedGmbHToolStripMenuItem.Visible = False
         ATAtillaToolStripMenuItem.Visible = False
+        ReferenzwerteToolStripMenuItem.Visible = False
 
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
@@ -3233,6 +3234,7 @@ ELSE_ATILLA:
             DEVeragGmbHToolStripMenuItem.Visible = True
             ATVeragAGToolStripMenuItem.Visible = True
             ATImexCSToolStripMenuItem.Visible = True
+            ReferenzwerteToolStripMenuItem.Visible = True
 
         End If
 
@@ -5425,7 +5427,6 @@ ELSE_ATILLA:
 
         'MsgBox(IIf(VERAG_PROG_ALLGEMEIN.cProgramFunctions.IsBase64(testBase64), "true", "false"))
 
-
         Dim errors = VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckAllReportImages()
 
         If errors.Count > 0 Then
@@ -5437,5 +5438,13 @@ ELSE_ATILLA:
 
 
 
+    End Sub
+
+    Private Sub ReferenzwerteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzwerteToolStripMenuItem.Click
+        Dim writepermissions As Boolean
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then writepermissions = True
+
+        Dim f As New frmReferenzenSicherheiten(writepermissions)
+        f.ShowDialog(Me)
     End Sub
 End Class