Update Version 1.2

SW/AssessmentMgmt/Vorgabe/frmVorgabe.vb

@@ -206,6 +206,13 @@
         VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
         Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
         AddChanges(Me)
+        sec.Set_Form_Security(Me)
+        If Me.ToolStripStruktur.Visible = False Then
+            Me.DokumenteAllgemein.Show_Toolbar = False
+            '  Me.DokumenteAllgemein.Set_ShowToolbar()
+            Me.DokumenteDefinition.Show_Toolbar = False
+            '   Me.DokumenteDefinition.Set_ShowToolbar()
+        End If
     End Sub
 
     Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
@@ -392,7 +399,7 @@
     End Sub
 
     Sub Refresh_Details()
-        Me.DokumenteAllgemein.Show_Toolbar = True
+        'Me.DokumenteAllgemein.Show_Toolbar = True
         Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
         Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
         Me.DokumenteAllgemein.Doktype = 1
@@ -425,6 +432,10 @@
             f.Parentnode = Me.TreeVorgabe.SelectedNode.Parent
             f.Tree = Me.TreeVorgabe
             f.Key = Me.C1Daten.Columns("Vorgabeid").Value
+            If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
+                f.btnSave.Enabled = False
+                f.TreeVorgabe.AllowDrop = False
+            End If
             f.ShowDialog()
             If f.DialogResult = Windows.Forms.DialogResult.OK Then
                 Me.TreeVorgabe.Nodes.Clear()
@@ -536,7 +547,7 @@
 
     Sub Refresh_DetailsDefinition()
         Try
-            Me.DokumenteDefinition.Show_Toolbar = True
+            'Me.DokumenteDefinition.Show_Toolbar = True
             Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
             Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
             Me.DokumenteDefinition.Doktype = 2
@@ -570,6 +581,10 @@
             Dim f As New frmVorgabeDefinition
             f.Key = Me.C2Daten.Columns("VorgabeDefinitionNr").Value
             f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
+            If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
+                f.btnSave.Enabled = False
+
+            End If
             f.ShowDialog()
             If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
         Catch
@@ -637,6 +652,14 @@
 
     End Sub
 
+    Private Sub EintragAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenToolStripMenuItem.Click
+        TsBtnEditStruktur_Click(sender, e)
+    End Sub
+
+    Private Sub EintragAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenToolStripMenuItem1.Click
+        TsBtnEditDefinition_Click(sender, e)
+    End Sub
+