gesamtsicherheiten, Ref, Mail, etc.

Aviso/frmHauptfenster.vb

@@ -3196,6 +3196,7 @@ ELSE_ATILLA:
         DEAmbarToolStripMenuItem.Visible = False
         ATUnispedGmbHToolStripMenuItem.Visible = False
         ATAtillaToolStripMenuItem.Visible = False
+        ReferenzwerteToolStripMenuItem.Visible = False
 
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
@@ -3226,6 +3227,7 @@ ELSE_ATILLA:
             DEVeragGmbHToolStripMenuItem.Visible = True
             ATVeragAGToolStripMenuItem.Visible = True
             ATImexCSToolStripMenuItem.Visible = True
+            ReferenzwerteToolStripMenuItem.Visible = True
 
         End If
 
@@ -5418,7 +5420,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
@@ -5430,5 +5431,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