Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/SW/AssessmentMgmt/Pruefplan/frmPruefplanDetail.vb
+++ b/SW/AssessmentMgmt/Pruefplan/frmPruefplanDetail.vb
@@ -0,0 +1,548 @@
+Public Class frmPruefplanDetail
+
+#Region "Deklarationen"
+
+    Dim m_pruefplanhandler As Integer
+    Property PruefplanHandler As Integer
+        Get
+            Return m_pruefplanhandler
+        End Get
+        Set(value As Integer)
+            m_pruefplanhandler = value
+        End Set
+    End Property
+
+
+    Dim m_Pruefplannr As Integer
+    Property Pruefplannr As Integer
+        Get
+            Return m_Pruefplannr
+        End Get
+        Set(value As Integer)
+            m_Pruefplannr = value
+        End Set
+    End Property
+
+    Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
+    Dim sec As New Utils.MySecurity
+    Dim msg As New Utils.MyMessage
+    Dim FormReadonly As Boolean = False
+    Dim FormDataChanged As Boolean = False
+    Dim Pruefplan As New clspruefplan
+    Dim PruefPlanStruktur As New clsPlanTree
+
+
+#End Region
+
+
+#Region "Closing / Check_Changes"
+    ''' <summary>
+    ''' Schliessen des Formulars
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    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 Check_Changes() = False Then
+            e.Cancel = True
+        Else
+            Pruefplan.dispose()
+            evh.Pruefplandetail_close(Me.PruefplanHandler, Me.Pruefplannr)
+            Me.Dispose()
+        End If
+    End Sub
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.FormDataChanged Then
+            msgres = msg.Show_MessageYesNoCancel(3)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.FormDataChanged = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+#End Region
+
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.FormDataChanged = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.FormDataChanged = True
+    End Sub
+
+    Private Sub generalhandler()
+        Me.FormDataChanged = True
+    End Sub
+
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+
+#Region "Formular"
+
+    Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
+        Me.ImageList1 = Globals.GueltigImages
+        Me.TreeStruktur.ImageList = Globals.GueltigImages
+        Me.TreeZuordnung.ImageList = Globals.GueltigImages
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+
+    Private Sub frmPruefplanDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
+        Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Me.DokumenteAllgemein.Doktype = 3
+        Me.DokumenteAllgemein.ThemaNr = Me.Pruefplannr
+        Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+        Me.DokumenteAllgemein.Refresh()
+
+        Me.cbboxPrioritaet.DataSource = Pruefplan.Prioritaet
+        Me.cbboxPrioritaet.DisplayMember = "Bezeichnung"
+        Me.cbboxPrioritaet.ValueMember = "Prioritaetnr"
+
+        Me.cbboxPeriodizitaet.DataSource = Pruefplan.Periodizitaet
+        Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
+        Me.cbboxPeriodizitaet.ValueMember = "PeriodizitaetNr"
+
+        Me.cbboxZeitpunkt.DataSource = Pruefplan.Zeitpunkt
+        Me.cbboxZeitpunkt.DisplayMember = "Bezeichnung"
+        Me.cbboxZeitpunkt.ValueMember = "Zeitpunktnr"
+
+        Me.cbboxVerantwortungKontrolle.DataSource = Pruefplan.VerantwortungISI
+        Me.cbboxVerantwortungKontrolle.DisplayMember = "Bezeichnung"
+        Me.cbboxVerantwortungKontrolle.ValueMember = "VerantwortungISINr"
+
+        Me.cbboxVerantwortungPlan.DataSource = Pruefplan.VerantwortungPlan
+        Me.cbboxVerantwortungPlan.DisplayMember = "Bezeichnung"
+        Me.cbboxVerantwortungPlan.ValueMember = "VerantwortungISINr"
+
+        Me.cbboxVerantwortungDurchführung.DataSource = Pruefplan.Verantwortung
+        Me.cbboxVerantwortungDurchführung.DisplayMember = "Bezeichnung"
+        Me.cbboxVerantwortungDurchführung.ValueMember = "Verantwortungnr"
+
+        Me.cbboxTerminierung.DataSource = Pruefplan.Terminierung
+        Me.cbboxTerminierung.DisplayMember = "Bezeichnung"
+        Me.cbboxTerminierung.ValueMember = "id"
+        If Pruefplannr > 0 Then
+            Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
+
+            get_data()
+        Else
+            Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
+            Me.dtGueltigBis.Value = "31.12.2099"
+        End If
+        Me.txtBezeichnung.SelectAll()
+        Me.txtBezeichnung.Focus()
+        AddChanges(Me)
+
+
+    End Sub
+
+
+    Private Sub get_data()
+        Pruefplan.Get_Data(Me.Pruefplannr)
+        Me.cbboxPeriodizitaet.SelectedValue = Pruefplan.iPeriodizitaetNr.Value
+        Me.cbboxPrioritaet.SelectedValue = Pruefplan.iPrioritaetNr.Value
+        Me.cbboxZeitpunkt.SelectedValue = Pruefplan.iZeitpunktNr.Value
+        Me.dtErstmalsam.Value = Pruefplan.daErstmals_am.Value
+        Me.cbboxVerantwortungDurchführung.SelectedValue = Pruefplan.iVerantwortlichNr.Value
+        Me.cbboxVerantwortungKontrolle.SelectedValue = Pruefplan.iVerantwortungISINr.Value
+        Me.cbboxVerantwortungPlan.SelectedValue = Pruefplan.iverantwortungplannr.value
+        Me.txtBeschreibung.Text = Pruefplan.sBeschreibung.Value
+        Me.txtBezeichnung.Text = Pruefplan.sBezeichnung.Value
+        Me.txtHilfsmittel.Text = Pruefplan.sHilfsmittel.Value
+        'Me.txtBezeichnung.Text = Pruefplan.sBezeichnung.Value
+        'Me.txtBeschreibung.Text = Pruefplan.sBezeichnung.Value
+        Me.txtPruefgegenstand.Text = Pruefplan.sPruefgegenstand.Value
+        Me.txtEreignisse.Text = Pruefplan.sErgebnisse.Value
+        Me.txtMassnahmen.Text = Pruefplan.sMassnahmen.Value
+
+        Me.txtErstelltam.Text = Pruefplan.daErstellt_am.ToSqlString
+        Me.txtMutiertam.Text = Pruefplan.daMutiert_am
+        Me.txtMutierer.Text = Pruefplan.MutiererText
+        Me.cbAktiv.Checked = Pruefplan.bAktiv.Value
+        Me.dtGueltigBis.Value = Pruefplan.daGueltig_Bis.Value
+        Me.cbAktiv.Checked = Pruefplan.bAktiv.Value = True
+        Me.cbboxTerminierung.SelectedValue = Pruefplan.iTerminierungID.Value
+
+        Me.cbSelbstkontrolle.Checked = Pruefplan.bSelbstkontrolle.Value = True
+        Me.cbKeinEMail.Checked = Pruefplan.bKein_Mailversand.Value = True
+
+        Me.rbAssessmentTyp_Anzahl.Checked = False
+        Me.rbAssessmentTyp_Massen.Checked = False
+        Me.rbAssessmenttyp_Normal.Checked = False
+        Select Case Pruefplan.iAssessmentType.Value
+            Case 1
+                Me.rbAssessmenttyp_Normal.Checked = True
+            Case 2
+                Me.rbAssessmentTyp_Anzahl.Checked = True
+            Case 3
+                Me.rbAssessmentTyp_Massen.Checked = True
+        End Select
+        Me.cbDurchfuerhung_ISI.Checked = Pruefplan.bDurchfuehrung_ISI.Value = True
+
+
+    End Sub
+    Private Sub Update_Data()
+        Pruefplan.iPeriodizitaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
+        Pruefplan.iPrioritaetNr = New SqlTypes.SqlInt32(CType(Me.cbboxPrioritaet.SelectedValue, Int32))
+        Pruefplan.iZeitpunktNr = New SqlTypes.SqlInt32(CType(Me.cbboxZeitpunkt.SelectedValue, Int32))
+        Pruefplan.iVerantwortlichNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungDurchführung.SelectedValue, Int32))
+        Pruefplan.iVerantwortungISINr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortungKontrolle.SelectedValue, Int32))
+        Pruefplan.iverantwortungplannr = New SqlTypes.SqlInt64(CType(Me.cbboxVerantwortungPlan.SelectedValue, Int32))
+        Pruefplan.daErstmals_am = New SqlTypes.SqlDateTime(CType(Me.dtErstmalsam.Value, DateTime))
+
+        Pruefplan.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
+        Pruefplan.sPruefgegenstand = New SqlTypes.SqlString(CType(Me.txtPruefgegenstand.Text, String))
+        Pruefplan.sMassnahmen = New SqlTypes.SqlString(CType(Me.txtMassnahmen.Text, String))
+        Pruefplan.sErgebnisse = New SqlTypes.SqlString(CType(Me.txtEreignisse.Text, String))
+        Pruefplan.sHilfsmittel = New SqlTypes.SqlString(CType(Me.txtHilfsmittel.Text, String))
+        Pruefplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
+        Pruefplan.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
+        Pruefplan.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
+        Pruefplan.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigBis.Value, DateTime))
+        Pruefplan.iTerminierungID = New SqlTypes.SqlInt32(CType(Me.cbboxTerminierung.SelectedValue, Int32))
+        Pruefplan.bSelbstkontrolle = New SqlTypes.SqlBoolean(CType(Me.cbSelbstkontrolle.Checked, Boolean))
+        Pruefplan.bKein_Mailversand = New SqlTypes.SqlBoolean(CType(Me.cbKeinEMail.Checked, Boolean))
+        If rbAssessmenttyp_Normal.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(1, Int32))
+        If rbAssessmentTyp_Anzahl.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(2, Int32))
+        If rbAssessmentTyp_Massen.Checked Then Pruefplan.iAssessmentType = New SqlTypes.SqlInt32(CType(3, Int32))
+        Pruefplan.bDurchfuehrung_ISI = New SqlTypes.SqlBoolean(CType(Me.cbDurchfuerhung_ISI.Checked, Boolean))
+
+        Pruefplan.Save_Data()
+
+        Pruefplan.Save_Definition_Pruefplan(Me.TreeZuordnung)
+        Pruefplan.Get_Definition_Pruefplan(Me.Pruefplannr, Me.TreeZuordnung)
+    End Sub
+
+#End Region
+
+#Region "Toolbar"
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
+        Save_data()
+    End Sub
+
+    Sub Save_data()
+        DialogResult = Windows.Forms.DialogResult.OK
+        If Me.Pruefplannr = 0 Then
+            Dim newkey As Integer = Pruefplan.Add_New()
+            Me.Pruefplannr = newkey
+            Pruefplan.Get_Data(newkey)
+            Me.cbAktiv.Checked = True
+        Else
+            Pruefplan.Get_Data(Me.Pruefplannr)
+        End If
+        Update_Data()
+        evh.Pruefplandetails_save(Me.PruefplanHandler, Me.Pruefplannr)
+        FormDataChanged = False
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
+        PruefPlanStruktur.Load_Treeview(Me.TreeStruktur)
+        If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
+        Try
+            For Each n As DevComponents.AdvTree.Node In Me.TreeStruktur.Nodes
+                If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
+                    n.Remove()
+                End If
+            Next
+        Catch
+        End Try
+
+    End Sub
+
+
+
+
+#End Region
+
+#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.Pruefplannr = 0 Then Me.Save_data()
+
+        If Me.GrpStruktur.Visible = False Then
+            Me.GrpStruktur.Visible = True
+            Me.GrpStruktur.Dock = DockStyle.Fill
+            PruefPlanStruktur.Load_Treeview(TreeStruktur)
+            PruefPlanStruktur.Refresh_Filter(Me.tsCbxFilter)
+            Me.btnNeueZuordnung.Text = "Struktur verbergen"
+        Else
+            Me.GrpStruktur.Visible = False
+        End If
+
+    End Sub
+#End Region
+
+#Region "Tree"
+
+    Private Sub TreeStruktur_DoubleClick(sender As Object, e As EventArgs) Handles TreeStruktur.DoubleClick
+        Try
+            If TreeStruktur.SelectedNode.Nodes.Count > 0 Then
+                MsgBox("Für die Zuordnung können nur Elemente der untersten Stufe (Definitionen) verwendet werden.", vbExclamation)
+                Exit Sub
+            End If
+
+            Dim key As Integer = Me.TreeStruktur.SelectedNode.Tag / 1000000
+
+            ' Pruefplan.Add_new_Zuordnung(Me.Pruefplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.chklbDefinitionZuordnung)
+            Pruefplan.Add_new_Zuordnung(Me.Pruefplannr, key, Me.TreeStruktur.SelectedNode.Text, Me.TreeZuordnung)
+            Me.FormDataChanged = True
+        Catch
+        End Try
+
+    End Sub
+
+
+    Private Sub TreeZuordnung_DoubleClick(sender As Object, e As EventArgs) Handles TreeZuordnung.DoubleClick
+        If IsDate(Me.TreeZuordnung.SelectedNode.Text) Then
+            TreeZuordnung.SelectedNode = Me.TreeZuordnung.SelectedNode.Parent
+        End If
+        Dim f As New FrmDefinition_Pruefplan
+        f.Aktiv = TreeZuordnung.SelectedNode.Nodes(0).Tag
+        f.Gueltig_Bis = TreeZuordnung.SelectedNode.Nodes(0).Text
+        f.ShowDialog()
+        Dim save_date As String = TreeZuordnung.SelectedNode.Nodes(0).Text
+        Dim save_aktiv As String = TreeZuordnung.SelectedNode.Nodes(0).Tag
+        Dim TN As New DevComponents.AdvTree.Node
+        Dim DoSave As Boolean = True
+        TN = Me.TreeZuordnung.SelectedNode
+
+        TreeZuordnung.SelectedNode.Nodes(0).Tag = f.Aktiv
+        TreeZuordnung.SelectedNode.Nodes(0).Text = f.Gueltig_Bis
+        TreeZuordnung.SelectedNode.ImageIndex = 0
+
+
+        For Each n As DevComponents.AdvTree.Node In Me.TreeZuordnung.Nodes
+            If n.Tag <> Me.TreeZuordnung.SelectedNode.Tag Then
+                If n.Text = Me.TreeZuordnung.SelectedNode.Text Then
+                    If (TreeZuordnung.SelectedNode.ImageIndex = 0 Or TreeZuordnung.SelectedNode.ImageIndex = 3) And n.ImageIndex <> 2 And n.ImageIndex <> 1 Then
+                        MsgBox("Es können nicht 2 aktive Verbindungen hergestellt werden")
+                        TreeZuordnung.SelectedNode.Nodes(0).Text = save_date
+                        TreeZuordnung.SelectedNode.Nodes(0).Tag = save_aktiv
+                        DoSave = False
+                        Exit For
+                    End If
+                End If
+            End If
+        Next
+        If TreeZuordnung.SelectedNode.Nodes(0).Text < "31.12.2099" And TreeZuordnung.SelectedNode.Text > Now.ToString Then TreeZuordnung.SelectedNode.ImageIndex = 3
+        If TreeZuordnung.SelectedNode.Nodes(0).Text < Now Then TreeZuordnung.SelectedNode.ImageIndex = 2
+        If TreeZuordnung.SelectedNode.Nodes(0).Tag = False Then TreeZuordnung.SelectedNode.ImageIndex = 1
+        If DoSave Then
+            Pruefplan.Update_Zuordnung(Me.TreeZuordnung.SelectedNode.Tag, f.Aktiv, f.Gueltig_Bis)
+            Me.FormDataChanged = True
+        End If
+    End Sub
+
+    Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
+        Me.PruefPlanStruktur.Init_Search()
+        Me.TreeStruktur.SelectedNode = PruefPlanStruktur.SearchNode(Me.TreeStruktur, Trim(Me.tstxtSuche.Text))
+        Me.TreeStruktur.SelectedNode.EnsureVisible()
+    End Sub
+
+    Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
+        Me.tstxtSuche.Text = ""
+        Me.PruefPlanStruktur.Init_Search()
+    End Sub
+
+    Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
+        Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindFirst(Me.TreeStruktur)
+    End Sub
+
+    Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
+        Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindPrevNode(Me.TreeStruktur)
+    End Sub
+
+    Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
+        Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindNextNode(Me.TreeStruktur)
+    End Sub
+
+    Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
+        Me.TreeStruktur.SelectedNode = PruefPlanStruktur.FindLastNode(Me.TreeStruktur)
+    End Sub
+
+    Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
+        Try
+            Me.TreeZuordnung_DoubleClick(sender, e)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub NeuerEintragHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragHinzufügenToolStripMenuItem.Click
+        If btnNeueZuordnung.Text <> "Struktur verbergen" Then Me.btnNeueZuordnung_Click(sender, e)
+    End Sub
+
+    Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
+
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub cbSelbstkontrolle_CheckedChanged(sender As Object, e As EventArgs) Handles cbSelbstkontrolle.CheckedChanged
+        Dim SaveKontrolle As Integer
+        If Me.cbSelbstkontrolle.Checked Then
+            SaveKontrolle = Me.cbboxVerantwortungKontrolle.SelectedValue
+        End If
+        Select Case Me.cbSelbstkontrolle.CheckState
+            Case CheckState.Checked
+                Me.cbboxVerantwortungKontrolle.SelectedValue = Me.cbboxVerantwortungDurchführung.SelectedValue
+                Me.cbboxVerantwortungKontrolle.Enabled = False
+                Try
+                    If Me.cbboxVerantwortungKontrolle.SelectedValue Is Nothing Then
+                        MsgBox("Selbstkontrolle kann nur gewählt werden, sofern Verantworung-Durchführung ein ISI-Mitarbeiter ist.", vbExclamation)
+                        Me.cbboxVerantwortungKontrolle.SelectedValue = SaveKontrolle
+                        Me.cbSelbstkontrolle.Checked = False
+                    End If
+                Catch ex As Exception
+                End Try
+            Case CheckState.Unchecked
+                Me.cbboxVerantwortungKontrolle.Enabled = True
+        End Select
+
+    End Sub
+
+
+#End Region
+
+End Class