Update Version 1.2

SW/AssessmentMgmt/Pruefplan/frmPruefplanDetail.vb

@@ -23,6 +23,16 @@
         End Set
     End Property
 
+    Dim m_readonly As Boolean
+    Property IsReadonly As Boolean
+        Get
+            Return m_readonly
+        End Get
+        Set(value As Boolean)
+            m_readonly = value
+        End Set
+    End Property
+
     Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
     Dim sec As New Utils.MySecurity
     Dim msg As New Utils.MyMessage
@@ -45,6 +55,7 @@
     Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
         If Me.FormReadonly = True Then Exit Sub
+        If Me.TSBtnSave.Visible = False Or Me.TSBtnSave.Enabled = False Then Exit Sub
         If Check_Changes() = False Then
             e.Cancel = True
         Else
@@ -218,8 +229,12 @@
     End Sub
 
 
-
     Private Sub frmPruefplanDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Me.IsReadonly Then
+            Me.TSBtnSave.Visible = False
+            Me.DokumenteAllgemein.Show_Toolbar = False
+            Me.FormReadonly = True
+        End If
         Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
         Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
         Me.DokumenteAllgemein.Doktype = 3
@@ -265,7 +280,12 @@
         Me.txtBezeichnung.SelectAll()
         Me.txtBezeichnung.Focus()
         AddChanges(Me)
+        sec.Set_Form_Security(Me)
+        If Me.TSBtnSave.Visible = False Or Me.TSBtnSave.Enabled = False Then
+            Me.DokumenteAllgemein.Show_Toolbar = False
+            Me.FormReadonly = True
 
+        End If
 
     End Sub
 
@@ -395,7 +415,7 @@
 #Region "Zuordnung"
 
     Private Sub btnNeueZuordnung_Click(sender As Object, e As EventArgs) Handles btnNeueZuordnung.Click
-        If Me.FormDataChanged = True Then Me.Save_data()
+        If Me.FormDataChanged = True And Me.TSBtnSave.Visible = True And Me.TSBtnSave.Enabled = True Then Me.Save_data()
         If Me.Pruefplannr = 0 Then Me.Save_data()
 
         If Me.GrpStruktur.Visible = False Then
@@ -414,6 +434,7 @@
 #Region "Tree"
 
     Private Sub TreeStruktur_DoubleClick(sender As Object, e As EventArgs) Handles TreeStruktur.DoubleClick
+        If Me.TSBtnSave.Visible = False Or Me.TSBtnSave.Enabled = False Then Exit Sub
         Try
             If TreeStruktur.SelectedNode.Nodes.Count > 0 Then
                 MsgBox("Für die Zuordnung können nur Elemente der untersten Stufe (Definitionen) verwendet werden.", vbExclamation)
@@ -432,6 +453,7 @@
 
 
     Private Sub TreeZuordnung_DoubleClick(sender As Object, e As EventArgs) Handles TreeZuordnung.DoubleClick
+        If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then Exit Sub
         If IsDate(Me.TreeZuordnung.SelectedNode.Text) Then
             TreeZuordnung.SelectedNode = Me.TreeZuordnung.SelectedNode.Parent
         End If