Initial commit

SW/AssessmentMgmt/ISI_Uebersicht/clsISIUebersicht.vb

@@ -0,0 +1,412 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports DevComponents
+Imports DropDownControls
+
+Public Class clsISIUebersicht
+    Dim SpaltenTitel As New Utils.Tabellenspalte
+    Dim daten As New DataTable
+
+    Public Sub Get_Data(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Typ As Integer)
+        Try
+            Dim ds As New DataSet
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim sqlcmd As New SqlCommand
+
+            sqlcmd.CommandText = "sp_get_isidata"
+            sqlcmd.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Typ))
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = sqlcmd
+                da.Fill(ds, "Datatable1")
+                Dim status As New clsStatus
+                c1daten.DataSource = Nothing
+                c1daten.DataSource = ds.Tables(0)
+                c1daten.DataMember = ds.Tables(0).TableName
+                SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschritt", ds.Tables(0))
+
+
+
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                sqlcmd.Dispose()
+            End Try
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+End Class
+
+Public Class IsiTree
+#Region "Deklarationen"
+
+    Dim treedata As New DataSet
+
+    Dim TreeaufbauSuche As Boolean = False
+    Dim TreeaufbauNr As Integer = 0
+    Dim FoundNode As Integer = 0
+    Dim Searchstring As String = ""
+    Public Treesearch As New AdvTree.AdvTree
+
+#End Region
+
+
+
+#Region "Tree"
+
+    Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
+        tree.Nodes.Clear()
+        TreeaufbauNr = -1
+        Load_Treedata("")
+        If Not (treedata Is Nothing) Then
+            Dim oView As DataView = treedata.Tables(0).DefaultView
+            Dim oTable As DataTable = oView.Table
+            Dim oDS As DataSet = New DataSet()
+            oDS.Tables.Add(oTable.Copy())
+
+            If oDS.Relations.Contains("SelfRefenceRelation") = False Then
+                oDS.Relations.Add("SelfRefenceRelation",
+                    oDS.Tables(0).Columns("id"),
+                    oDS.Tables(0).Columns("Parentid"))
+            End If
+            oTable.Dispose()
+            oTable = Nothing
+
+            LoadTreeView(oDS, tree)
+            oDS.Dispose()
+            oDS = Nothing
+            tree.ExpandAll()
+        End If
+
+    End Sub
+
+    Public Function Load_Treedata(ByVal datatype As String) As DataTable
+        treedata.Tables.Clear()
+        Dim selectcommand As New SqlCommand
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("", connection)
+
+        selectcommand.CommandText = "sp_get_Isi_Struktur"
+        selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
+        selectcommand.Parameters(0).Value = datatype
+        selectcommand.CommandType = CommandType.StoredProcedure
+        selectcommand.Connection = connection
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.SelectCommand = selectcommand
+            da.Fill(treedata, "Tree")
+            If treedata_for_search.Rows.Count < 1 Then
+                For Each c As DataColumn In treedata.Tables(0).Columns
+                    If c.ColumnName = "ErweiterteSuche" Then
+                        Dim dc As New DataColumn
+                        dc.ColumnName = "ErweiterteSuche"
+                        dc.DataType = System.Type.GetType("System.String")
+                        dc.DefaultValue = "                                                                                                                          "
+                        Try
+                            Globals.treedata_for_search.Columns.Add(dc)
+                        Catch
+                        End Try
+                    Else
+                        Try
+                            Globals.treedata_for_search.Columns.Add(c.ColumnName)
+                        Catch
+                        End Try
+                    End If
+                Next
+            End If
+            For Each row As DataRow In treedata.Tables(0).Rows
+                Globals.treedata_for_search.ImportRow(row)
+            Next
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        Finally
+            connection.Close()
+            da.Dispose()
+            selectcommand.Dispose()
+        End Try
+    End Function
+
+
+
+    Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
+
+        Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
+
+        ' start recursion for each root node of the treeview
+        For i As Integer = 0 To treestruktur.Nodes.Count - 1
+            GetAllNodes(treestruktur.Nodes(i), allNodes)
+        Next
+
+        Return allNodes
+
+    End Function
+
+    Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
+
+        ' check for null (this can be removed since within th
+        If (subRoot Is Nothing) Then
+            Exit Sub
+        End If
+
+        ' add subroot
+        Dim r As DataRow
+        r = treedata_for_search.NewRow
+        r.Item(0) = subRoot.Tag
+        Try
+            r.Item(1) = subRoot.Parent.Tag
+        Catch
+            r.Item(1) = 0
+        End Try
+
+        r.Item(2) = subRoot.Text
+        r.Item(3) = subRoot.ImageIndex
+        treedata_for_search.Rows.Add(r)
+        'allNodes.Add(subRoot)
+        ' add all it's children
+        For i As Integer = 0 To subRoot.Nodes.Count - 1
+            GetAllNodes(subRoot.Nodes(i), allNodes)
+        Next
+
+
+    End Sub
+
+
+    ''' <summary>
+    ''' Tree aufbauen
+    ''' </summary>
+    ''' <param name="oDS"></param>
+    ''' <param name="oTreeview"></param>
+    ''' <remarks></remarks>
+    Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
+        'Dim oTreeView As TreeView = New TreeView()
+        Dim oDataRow As DataRow
+        For Each oDataRow In oDS.Tables(0).Rows
+            If Not oDataRow.IsNull("Parentid") Then
+                If oDataRow.Item("Parentid") = 0 Then
+                    'If oDataRow.IsNull("Parentid") Then
+                    Dim oNode As New DevComponents.AdvTree.Node
+                    oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
+                    Try
+                        'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
+                    Catch
+                    End Try
+                    oNode.Tag = oDataRow("id").ToString
+                    oNode.ImageIndex = oDataRow("ImageIndex")
+                    oTreeview.Nodes.Add(oNode)
+                    RecursivelyLoadTree(oDataRow, oNode)
+                End If
+            End If
+        Next oDataRow
+        oDS.Dispose()
+        oDS = Nothing
+    End Sub
+    ''' <summary>
+    ''' Child-Nodes hinzufügen
+    ''' </summary>
+    ''' <param name="oDataRow"></param>
+    ''' <param name="oNode"></param>
+    ''' <remarks></remarks>
+    Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
+        Dim oChildRow As DataRow
+        For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
+            Dim oChildNode As New DevComponents.AdvTree.Node
+            oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
+            oChildNode.Tag = oChildRow("id").ToString()
+            oChildNode.ImageIndex = oChildRow("ImageIndex")
+
+            oNode.Nodes.Add(oChildNode)
+            RecursivelyLoadTree(oChildRow, oChildNode)
+        Next oChildRow
+    End Sub
+    Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
+        Dim tmpNode As AdvTree.Node
+        For Each _child As AdvTree.Node In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+    Public Function Init_Search()
+        FoundNode = 0
+        Searchstring = ""
+        Me.Treesearch.Nodes.Clear()
+    End Function
+
+    Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
+        'Return tree.FindNodeByCellText(SearchString)
+
+        Me.Treesearch.Nodes.Clear()
+        For Each dr As DataRow In treedata_for_search.Rows
+            'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
+            If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
+                Dim tn As New AdvTree.Node
+                tn.Text = dr.Item("Bezeichnung")
+                tn.Tag = dr.Item("id")
+                Treesearch.Nodes.Add(tn)
+            End If
+        Next
+        Return FindFirst(tree)
+    End Function
+
+    Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
+            Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch
+        End Try
+    End Function
+
+
+
+    Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindFirst(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+
+        End Try
+    End Function
+
+    Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
+            If Treesearch.SelectedNode Is Nothing Then
+                Return FindLastNode(tree)
+            End If
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+    End Function
+
+    Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
+        Try
+            Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
+            Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
+        Catch ex As Exception
+        End Try
+
+    End Function
+
+
+
+
+#End Region
+
+#Region "ComboboxTree"
+
+    Public Sub Load_ComboboxTree(ByRef tree As Object)
+        tree.Nodes.Clear()
+        TreeaufbauNr = -1
+        Load_Treedata("")
+        If Not (treedata Is Nothing) Then
+            Dim oView As DataView = treedata.Tables(0).DefaultView
+            Dim oTable As DataTable = oView.Table
+            Dim oDS As DataSet = New DataSet()
+            oDS.Tables.Add(oTable.Copy())
+
+            If oDS.Relations.Contains("SelfRefenceRelation") = False Then
+                oDS.Relations.Add("SelfRefenceRelation",
+                    oDS.Tables(0).Columns("id"),
+                    oDS.Tables(0).Columns("Parentid"))
+            End If
+            oTable.Dispose()
+            oTable = Nothing
+
+            LoadTreeView1(oDS, tree)
+            oDS.Dispose()
+            oDS = Nothing
+            tree.ExpandAll()
+        End If
+
+    End Sub
+
+    Private Sub LoadTreeView1(ByVal oDS As DataSet, ByRef oTreeview As Object)
+        'Dim oTreeView As TreeView = New TreeView()
+        Dim oDataRow As DataRow
+        For Each oDataRow In oDS.Tables(0).Rows
+            If Not oDataRow.IsNull("Parentid") Then
+                If oDataRow.Item("Parentid") = 0 Then
+                    'If oDataRow.IsNull("Parentid") Then
+                    Dim oNode As New ComboTreeNode
+                    oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
+                    Try
+                        'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
+                    Catch
+                    End Try
+                    oNode.Tag = oDataRow("id").ToString
+                    oNode.ImageIndex = oDataRow("ImageIndex")
+                    oTreeview.Nodes.Add(oNode)
+                    RecursivelyLoadTree1(oDataRow, oNode)
+                End If
+            End If
+        Next oDataRow
+        oDS.Dispose()
+        oDS = Nothing
+    End Sub
+    ''' <summary>
+    ''' Child-Nodes hinzufügen
+    ''' </summary>
+    ''' <param name="oDataRow"></param>
+    ''' <param name="oNode"></param>
+    ''' <remarks></remarks>
+    Private Sub RecursivelyLoadTree1(ByVal oDataRow As DataRow, ByRef oNode As ComboTreeNode)
+        Dim oChildRow As DataRow
+        For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
+            Dim oChildNode As New ComboTreeNode
+            oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
+            oChildNode.Tag = oChildRow("id").ToString()
+            oChildNode.ImageIndex = oChildRow("ImageIndex")
+
+            oNode.Nodes.Add(oChildNode)
+            RecursivelyLoadTree1(oChildRow, oChildNode)
+        Next oChildRow
+    End Sub
+
+    Public Function ComboboxTree_FindNode(ByVal _nodeCollection As ComboTreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As ComboTreeNode
+        Dim tmpNode As ComboTreeNode
+        For Each _child As ComboTreeNode In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = ComboboxTree_FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+
+#End Region
+End Class
+

SW/AssessmentMgmt/ISI_Uebersicht/frmISI.vb

@@ -0,0 +1,712 @@
+Imports DevComponents.AdvTree
+Imports System.ComponentModel
+Imports C1.Win.C1TrueDBGrid
+
+Public Class frmISI
+
+    Dim clsisiTree As New IsiTree
+    Dim clsisi As New clsISIUebersicht
+
+
+
+
+#Region "Deklarationen"
+
+
+    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 Pruefschritt As New clsPruefschritt
+    Dim Pruefschrittresultat As New clsPruefschrittResultat
+    Dim Pruefschrttmassnahme As New clsPruefschrittMassnahme
+    Dim Pruefschrittfinding As New clsFinding
+    Dim OnRefreshAll As Boolean = False
+
+
+#End Region
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.ImageList1 = Globals.StatusImages
+        Me.TreeUebersicht.ImageList = Me.ImageList1
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmPruefschrittUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Refresh_Tree()
+
+        '        Refresh_All()
+    End Sub
+
+    Sub Refresh_Tree()
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            Application.DoEvents()
+            clsisiTree.Load_Treeview(Me.TreeUebersicht)
+            Me.TreeUebersicht.ExpandAll()
+            Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
+        Catch ex As Exception
+        Finally
+            Me.Cursor = Cursors.Default
+            Application.DoEvents()
+        End Try
+
+    End Sub
+
+    Sub Load_Status()
+
+        Me.DokumenteAllgemein.Show_Toolbar = False
+        Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
+        Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        'Me.DokumenteAllgemein.Doktype = 1
+        'Me.DokumenteAllgemein.ThemaNr = 0
+        Me.DokumenteAllgemein.Refresh()
+        Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+
+        Me.DokumenteFindings.Show_Toolbar = False
+        Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
+        Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+
+        Me.DokumenteMassnahmen.Show_Toolbar = False
+        Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
+        Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+
+
+        Me.TreeUebersicht.Nodes.Clear()
+        Dim i As Integer = 0
+        For Each r As DataRow In Pruefschritt.Pruefschrittstatus.Rows
+            Dim tn As New DevComponents.AdvTree.Node
+            tn.Text = r("Bezeichnung")
+            tn.Tag = r(0)
+            tn.ImageIndex = i
+            i = i + 1
+            Me.TreeUebersicht.Nodes.Add(tn)
+        Next
+
+    End Sub
+
+    Private Sub TreeUebersicht_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeUebersicht.AfterNodeSelect
+        Try
+            Refresh_All()
+
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
+        refresh_all_Details()
+
+        Dim cps As New clsPruefschritt
+
+        Try
+            cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+            If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then
+                Me.tsbtnAssessmentAnzeigen.Visible = True
+                Me.tsbtnPruefschrittbearbeiten.Visible = False
+
+            Else
+                Me.tsbtnAssessmentAnzeigen.Visible = False
+                Me.tsbtnPruefschrittbearbeiten.Visible = True
+
+
+            End If
+            If cps.iStatusnr = 6 Then
+                Me.AssessmentZuteilenToolStripMenuItem.Visible = False
+            Else
+                Me.AssessmentZuteilenToolStripMenuItem.Visible = True
+            End If
+        Catch
+        Finally
+            cps.dispose()
+        End Try
+
+    End Sub
+    Sub refresh_all_Details()
+        If OnRefreshAll Then Exit Sub
+        Me.DokumenteAllgemein.Init()
+        Me.C1Findings.DataSource = Nothing
+        Me.C1Massnahmen.DataSource = Nothing
+        Me.C1Notiz.DataSource = Nothing
+        Me.DokumenteAllgemein.Pruefschrittnr = -1
+        Try
+            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
+            'refresh_all_Details()
+
+        Catch
+        End Try
+        Try
+            Refresh_Dokumente_Resultat()
+            Refresh_notizen()
+            Refresh_History()
+            Refresh_Resultat()
+            Refresh_Vorgaben()
+
+        Catch
+        End Try
+        Refresh_Details()
+
+    End Sub
+
+    Sub Refresh_Vorgaben()
+        Me.Pruefschritt.Get_Vorgaben(Me.C1Vorgaben, Me.C1Daten.Columns("Pruefplannr").Value)
+
+    End Sub
+
+    Sub Refresh_notizen()
+        Dim notizen As New clsPruefschrittNotiz
+        Try
+            notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Pruefschrittnr").Value)
+        Catch
+        End Try
+
+    End Sub
+
+    Sub Refresh_History()
+        Dim history As New clsHistory
+        Try
+            history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Pruefschrittnr").Value)
+        Catch
+        End Try
+
+    End Sub
+
+    Sub Refresh_Resultat()
+        Try
+            Pruefschrittresultat.Get_Data(Me.C1Daten.Columns("Pruefschrittnr").Value)
+            Me.txtKurzbeschreibungResultat.Text = Pruefschrittresultat.sKurzbeschreibung.Value
+            Me.txtBeschreibungResultat.Text = Pruefschrittresultat.sBeschreibung.Value
+        Catch
+        End Try
+        Refresh_Findings()
+        Refresh_All_Findings()
+
+    End Sub
+
+    Sub Refresh_Findings()
+        Try
+            Refresh_Finding_Dokumente()
+            Me.Pruefschrittfinding.Get_Eintraege(Me.C1Findings, Me.Pruefschrittresultat.iPruefSchrittResultatNr.Value, ImageListFindings)
+        Catch
+        End Try
+
+        Refresh_Massnahmen()
+    End Sub
+
+    Sub Refresh_Massnahmen()
+        Try
+            DokumenteMassnahmen.Init()
+            Me.Pruefschrttmassnahme.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittresultatnr").Value, Me.ImageListFindings)
+        Catch
+        End Try
+
+    End Sub
+    Sub Refresh_All(Optional key As Integer = 0)
+        Me.OnRefreshAll = True
+
+
+        clsisi.Get_Data(C1Daten, Me.TreeUebersicht.SelectedNode.Tag)
+        If C1Daten.Splits(0).Rows.Count = 0 Then
+            Me.tsbtnAssessmentAnzeigen.Visible = False
+            Me.tsbtnPruefschrittbearbeiten.Visible = False
+        End If
+        Me.OnRefreshAll = False
+        refresh_all_Details()
+
+    End Sub
+
+
+    Sub Refresh_Details()
+        Try
+            Me.txtBezeichnung.Text = ""
+            Me.txtBeschreibung.Text = ""
+            Me.txtPruefgegenstand.Text = ""
+            Me.txtMassnahmen.Text = ""
+            Me.txtEreignisse.Text = ""
+            Me.txtHilfsmittel.Text = ""
+            Me.txtVerantwortlich.Text = ""
+            Me.txtVerantwortungISI.Text = ""
+            Me.txtAktuellVerantwortlich.Text = ""
+            Me.txtTermin.Text = ""
+            Me.txtZugewiesen.Text = ""
+            Me.txtErstelltam.Text = ""
+            Me.txtMutiertam.Text = ""
+            Me.txtMutierer.Text = ""
+
+            Me.txtBezeichnung.Text = Me.C1Daten.Columns("Bezeichnung").Value
+            Me.txtBeschreibung.Text = Me.C1Daten.Columns("Beschreibung").Value
+            Me.txtPruefgegenstand.Text = Me.C1Daten.Columns("Pruefgegenstand").Value
+            Me.txtMassnahmen.Text = Me.C1Daten.Columns("Massnahmen").Value
+            Me.txtEreignisse.Text = Me.C1Daten.Columns("Ergebnisse").Value
+            Me.txtHilfsmittel.Text = Me.C1Daten.Columns("Hilfsmittel").Value
+
+            Me.txtVerantwortlich.Text = Me.C1Daten.Columns("Hauptverantwortung").Value
+            Me.txtVerantwortungPlan.Text = Me.C1Daten.Columns("VerantwortungPlan").Value
+            Me.txtAktuellVerantwortlich.Text = Me.C1Daten.Columns("aktuell_verantwortlich").Value
+            Me.txtVerantwortungISI.Text = Me.C1Daten.Columns("Verantwortung_isi").Value
+            Me.txtZugewiesen.Text = Me.C1Daten.Columns("Zugewiesen").Value
+            Me.txtErstelltam.Text = Me.C1Daten.Columns("erstellt_am").Value
+            Me.txtMutiertam.Text = Me.C1Daten.Columns("mutiert_am").Value
+            Me.txtMutierer.Text = Me.C1Daten.Columns("mutierer").Value
+
+            Me.txtTermin.Text = Me.C1Daten.Columns("Termin").Value
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        End Try
+
+    End Sub
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub WeiterleitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WeiterleitenToolStripMenuItem.Click
+        Try
+            Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value)
+            f.ShowDialog()
+            If f.DialogResult = DialogResult.OK Then
+                Dim clsnotiz As New clsPruefschrittNotiz
+                clsnotiz.Add_New()
+                clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
+                clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
+                clsnotiz.Save_Data()
+                clsnotiz = Nothing
+
+                Dim History As New clsHistory
+                History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
+                History.Dispose()
+
+                Dim save_verantworlich As Integer
+                Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+                save_verantworlich = Me.Pruefschritt.iAktueller_Verantwortlicher.Value
+                Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
+                Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
+                Me.Pruefschritt.Save_Data()
+                If save_verantworlich <> Me.Pruefschritt.iAktueller_Verantwortlicher.Value Then
+                    Pruefschritt.Insert_Message(1, Me.Pruefschritt.iPruefschrittNr.Value, Me.Pruefschritt.iAktueller_Verantwortlicher.Value, save_verantworlich, f.txtNotiz.Text)
+                End If
+
+                Refresh_All()
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles tsbtnAktualisieren.Click
+        Dim tn As New DevComponents.AdvTree.Node
+        tn = Me.TreeUebersicht.SelectedNode
+        Refresh_Tree()
+        Me.TreeUebersicht.SelectedNode = tn
+        tn.Dispose()
+        Refresh_All()
+    End Sub
+
+    Private Sub C1Notiz_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Notiz.RowColChange
+        Me.txtnotiz.Text = ""
+        Try
+            Me.txtnotiz.Text = Me.C1Notiz.Columns("Notiz").Value
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
+        Dim f As New PruefschrittDetailsBearbeitung
+        f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
+        f.MdiParent = Me.MdiParent
+        f.Handler = Me.Handle
+        Dim cps As New clsPruefschritt
+
+        cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+        If cps.bDurchfuehrung_ISI.Value = True Then
+            If cps.Is_IsiMitarbeiter(Globals.clsmitarbeiter.iMitarbeiternr) = True Then
+                If cps.iStatusnr = 6 Then f.IsReadonly = True
+            Else
+                If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
+            End If
+        Else
+            If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
+        End If
+        'If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
+        f.Show()
+
+    End Sub
+
+    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
+        Try
+            BearbeitenToolStripMenuItem_Click(sender, e)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnPruefschrittbearbeiten.Click
+        Try
+            Me.C1Daten_DoubleClick(sender, e)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub evh_pruefschrittresultat_closed(handler As Integer, key As Integer) Handles evh.pruefschrittresultat_closed
+        Try
+            If Me.Handle = handler Then
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                Refresh_All(key)
+            End If
+        Catch
+        End Try
+    End Sub
+
+    Private Sub evh_Pruefschrittresultat_saved(handler As Integer, key As Integer) Handles evh.Pruefschrittresultat_saved
+        Try
+            If Me.Handle = handler Then
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                Refresh_All(key)
+            End If
+        Catch
+        End Try
+    End Sub
+
+    Private Sub ctxMenuPruefschritt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuPruefschritt.Opening
+
+        If Me.C1Daten.Splits(0).Rows.Count < 1 Then
+            Me.ctxMenuPruefschritt.Visible = False
+        Else
+            Me.ctxMenuPruefschritt.Visible = True
+        End If
+
+        Me.BearbeitenToolStripMenuItem.Visible = False
+        Me.WeiterleitenToolStripMenuItem.Visible = False
+        Me.AbschliessenToolStripMenuItem.Visible = False
+        Me.ZurückweisenToolStripMenuItem.Visible = False
+
+        Select Case Me.TreeUebersicht.SelectedNode.Tag
+            Case 1, 2, 3
+                If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
+                    Me.BearbeitenToolStripMenuItem.Visible = True
+                    Me.WeiterleitenToolStripMenuItem.Visible = True
+                End If
+
+            Case 4
+
+            Case 5
+                If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
+                    Me.BearbeitenToolStripMenuItem.Visible = True
+                    Me.ZurückweisenToolStripMenuItem.Visible = True
+                End If
+
+            Case 6
+
+        End Select
+
+        'Me.BearbeitenToolStripMenuItem.Enabled = False
+        'Me.WeiterleitenToolStripMenuItem.Enabled = False
+        'Me.AbschliessenToolStripMenuItem.Enabled = False
+        'Me.WeiterleitenToolStripMenuItem.Visible = True
+
+
+        ''Prüfung abgeschlossen
+        'If Me.TreeUebersicht.SelectedNode.Tag < 4 Or Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
+        '    Me.BearbeitenToolStripMenuItem.Enabled = True
+        '    Me.WeiterleitenToolStripMenuItem.Enabled = True
+        '    Me.AbschliessenToolStripMenuItem.Enabled = True
+        'End If
+
+        'If Me.TreeUebersicht.SelectedNode.Tag = 5 Then
+        '    Me.ZurückweisenToolStripMenuItem.Visible = True
+        '    Me.WeiterleitenToolStripMenuItem.Visible = False
+        'End If
+
+    End Sub
+
+    Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
+        Dim f As New PruefschrittDetailsBearbeitung
+        f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
+        f.MdiParent = Me.MdiParent
+        f.Handler = Me.Handle
+        f.IsReadonly = True
+        f.Show()
+    End Sub
+
+    Private Sub AbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschliessenToolStripMenuItem.Click
+        If MsgBox("Ist das Assessment definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
+            Pruefschritt.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
+
+            Me.Pruefschritt.iStatusnr = 6
+            Me.Pruefschritt.Save_Data()
+            Dim History As New clsHistory
+            History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 2, Globals.clsmitarbeiter.iMitarbeiternr.Value, "")
+            History.Dispose()
+
+            Me.Refresh_All()
+        End If
+
+    End Sub
+
+    Private Sub C1Findings_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Findings.RowColChange
+        Refresh_All_Findings()
+    End Sub
+
+    Sub Refresh_All_Findings()
+        Refresh_Finding_Dokumente()
+        Me.txtfindingbezeichnung.Text = ""
+        Me.txtfindingbeschreibung.Text = ""
+        Try
+            Me.txtfindingbeschreibung.Text = Me.C1Findings.Columns("Beschreibung").Value
+            Me.txtfindingbezeichnung.Text = Me.C1Findings.Columns("Bezeichnung").Value
+        Catch
+        End Try
+        Refresh_MassnahmenFinding()
+    End Sub
+
+    Sub Refresh_Dokumente_Resultat()
+
+        Try
+            Me.DokumenteResultat.Show_Toolbar = False
+            Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
+            Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+            Me.DokumenteResultat.Init()
+
+            Me.DokumenteResultat.Doktype = 4
+            Me.DokumenteResultat.ThemaNr = Me.C1Daten.Columns("Pruefschrittnr").Value
+            Me.DokumenteResultat.Refresh_Dokumente()
+            Me.DokumenteResultat.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+        Catch ex As Exception
+            Me.DokumenteResultat.Init()
+            Me.DokumenteResultat.Show_Toolbar = False
+        End Try
+    End Sub
+    Sub Refresh_Finding_Dokumente()
+        If Me.C1Findings.Splits(0).Rows.Count < 1 Then
+            Me.DokumenteFindings.Init()
+
+
+            Exit Sub
+        End If
+        Try
+            Me.DokumenteFindings.Show_Toolbar = False
+            Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
+            Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+            Me.DokumenteFindings.Init()
+
+            Me.DokumenteFindings.Doktype = 5
+            Me.DokumenteFindings.ThemaNr = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
+            Me.DokumenteFindings.Refresh_Dokumente()
+            Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+        Catch ex As Exception
+            Me.DokumenteFindings.Init()
+            Me.DokumenteFindings.Show_Toolbar = False
+        End Try
+    End Sub
+
+    Sub Refresh_MassnahmenFinding()
+        Me.C1Massnahmen.DataSource = Nothing
+        If Me.C1Findings.Splits(0).Rows.Count > 0 Then
+            Try
+                Dim Massnahmen As New clsPruefschrittMassnahme
+                Massnahmen.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittfindingnr").Value, Me.ImageListeMassnahmen)
+                Refresh_Massnahmen_Dokument()
+            Catch
+            End Try
+
+        End If
+
+
+    End Sub
+
+    Sub Refresh_Massnahmen_Dokument()
+
+
+        If Me.C1Massnahmen.Splits(0).Rows.Count < 1 Then
+            Me.DokumenteMassnahmen.Init()
+
+            Exit Sub
+        End If
+        Try
+            Me.DokumenteMassnahmen.Show_Toolbar = False
+            Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
+            Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+            Me.DokumenteMassnahmen.Init()
+
+            Me.DokumenteMassnahmen.Doktype = 6
+            Me.DokumenteMassnahmen.ThemaNr = Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value
+            Me.DokumenteMassnahmen.Refresh_Dokumente()
+            Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+        Catch ex As Exception
+            Me.DokumenteMassnahmen.Init()
+            Me.DokumenteMassnahmen.Show_Toolbar = False
+        End Try
+    End Sub
+
+    Private Sub C1Massnahmen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Massnahmen.RowColChange
+        Me.txtmassnahmebezeichnung.Text = ""
+        Me.txtMassnahmebeschreibung.Text = ""
+        Me.txtMassnahmeResultat.Text = ""
+
+        Try
+            Me.txtmassnahmebezeichnung.Text = Me.C1Massnahmen.Columns("Kurzbeschreibung").Value
+            Me.txtMassnahmebeschreibung.Text = Me.C1Massnahmen.Columns("Beschreibung").Value
+            Me.txtMassnahmeResultat.Text = Me.C1Massnahmen.Columns("MassnahmeResultat").Value
+        Catch
+        End Try
+
+
+    End Sub
+
+    Private Sub C1Vorgaben_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Vorgaben.RowColChange
+        Try
+            Me.txtStruktur.Text = Me.C1Vorgaben.Columns("Struktur").Value
+            Me.txtDefinitionBezeichnung.Text = Me.C1Vorgaben.Columns("Bezeichnung").Value
+            Me.txtDefinitionBeschreibung.Text = Me.C1Vorgaben.Columns("Definition").Value
+            Me.txtDefinitionBemerkung.Text = Me.C1Vorgaben.Columns("Bemerkungen").Value
+        Catch
+        End Try
+
+        Try
+            Me.DokumenteDefinition.Show_Toolbar = True
+            Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
+            Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
+            Me.DokumenteDefinition.Doktype = 2
+            Try
+                Me.DokumenteDefinition.ThemaNr = C1Vorgaben.Columns("VorgabeDefinitionNr").Value
+            Catch
+                Me.DokumenteDefinition.ThemaNr = -1
+            End Try
+
+            Me.DokumenteDefinition.Refresh()
+            Me.DokumenteDefinition.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
+        Catch
+        End Try
+    End Sub
+
+    Private Sub ZurückweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZurückweisenToolStripMenuItem.Click
+        Try
+            Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value, Me.C1Daten.Columns("Verantwortungnr").Value, True)
+            f.Text = "Assessment zurückweisen"
+            f.btnok.Text = "Zurückweisen"
+            f.ShowDialog()
+            If f.DialogResult = DialogResult.OK Then
+                Dim clsnotiz As New clsPruefschrittNotiz
+                clsnotiz.Add_New()
+                clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
+                clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
+                clsnotiz.Save_Data()
+                clsnotiz = Nothing
+
+                Dim History As New clsHistory
+                History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
+                History.Dispose()
+
+                Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+                Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
+                Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
+                Me.Pruefschritt.Save_Data()
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                Refresh_All()
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub tsbtnAssessmentAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnAssessmentAnzeigen.Click
+        Try
+            Me.C1Daten_DoubleClick(sender, e)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub AssessmentZuteilenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AssessmentZuteilenToolStripMenuItem.Click
+        Try
+            Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value)
+            f.ShowDialog()
+            If f.DialogResult = DialogResult.OK Then
+                Dim clsnotiz As New clsPruefschrittNotiz
+                clsnotiz.Add_New()
+                clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
+                clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
+                clsnotiz.Save_Data()
+                clsnotiz = Nothing
+
+                Dim History As New clsHistory
+                History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
+                History.Dispose()
+
+                Dim save_verantworlich As Integer
+                Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+                save_verantworlich = Me.Pruefschritt.iAktueller_Verantwortlicher.Value
+                Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
+                Me.Pruefschritt.Save_Data()
+                If save_verantworlich <> Me.Pruefschritt.iAktueller_Verantwortlicher.Value Then
+                    Pruefschritt.Insert_Message(1, Me.Pruefschritt.iPruefschrittNr.Value, Me.Pruefschritt.iAktueller_Verantwortlicher.Value, save_verantworlich, f.txtNotiz.Text)
+                End If
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                'Refresh_All(key)
+                Refresh_All()
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
+        Try
+            refresh_all_Details()
+
+            Dim cps As New clsPruefschritt
+
+            Try
+                cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+                If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then
+                    Me.tsbtnAssessmentAnzeigen.Visible = True
+                    Me.tsbtnPruefschrittbearbeiten.Visible = False
+
+                Else
+                    Me.tsbtnAssessmentAnzeigen.Visible = False
+                    Me.tsbtnPruefschrittbearbeiten.Visible = True
+
+
+                End If
+                If cps.iStatusnr = 6 Then
+                    Me.AssessmentZuteilenToolStripMenuItem.Visible = False
+                Else
+                    Me.AssessmentZuteilenToolStripMenuItem.Visible = True
+                End If
+            Catch
+            Finally
+                cps.dispose()
+            End Try
+        Catch
+        End Try
+    End Sub
+End Class