Update Version 1.2

SW/AssessmentMgmt/Pruefplan/frmPPlan.vb

@@ -193,6 +193,7 @@ Public Class frmPPlan
 
     Private Sub frmPPlan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Refresh_List()
+        sec.Set_Form_Security(Me)
     End Sub
 
     Sub Refresh_List(Optional searchstring As String = "")
@@ -225,6 +226,7 @@ Public Class frmPPlan
         Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v3)
         Me.C1Daten.Columns("Icon").ValueItems.Translate = True
         Me.C1Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
+
     End Sub
 #End Region
 
@@ -295,8 +297,11 @@ Public Class frmPPlan
             f.Pruefplannr = Me.C1Daten.Columns("pruefplannr").Value
             f.MdiParent = Me.MdiParent
             f.PruefplanHandler = Me.Handle
-            f.Show()
+            'If Me.ToolStripPruefplan.Visible = False Or Me.ToolStripPruefplan.Enabled = False Then
+            '    f.IsReadonly = True
+            'End If
 
+            f.Show()
         Catch ex As Exception
 
         End Try