Imports System.ComponentModel
Imports C1.Win.C1TrueDBGrid
Imports DevComponents.AdvTree

<Runtime.InteropServices.Guid("B7BE2DB2-11FB-4D05-A213-6416AD82BE79")>
Public Class frmPruefschrittUebersicht

#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
    Dim TreeMassnahmenUsed 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
        Try
            Me.Cursor = Cursors.WaitCursor
            Application.DoEvents()
            Me.TreeMassnahmen.Nodes.Clear()
            'Dim tn As New DevComponents.AdvTree.Node
            'tn.Text = "Erledigte Massnahmen"
            'tn.Tag = 0
            'tn.ImageIndex = 0

            'Me.TreeMassnahmen.Nodes.Add(tn)
            'Dim tn1 As New DevComponents.AdvTree.Node
            'tn1.Tag = 1
            'tn1.ImageIndex = 1

            'tn1.Text = "Pendente Massnahmen"
            'Me.TreeMassnahmen.Nodes.Add(tn1)

            'Dim tn2 As New DevComponents.AdvTree.Node
            'tn2.Text = "Überfällige Massnahmen"
            'tn2.Tag = 2
            'tn2.ImageIndex = 2

            'Me.TreeMassnahmen.Nodes.Add(tn2)

            Refresh_All()

        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 = 4
        '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.DokumenteResultat.Show_Toolbar = False
        Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
        Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
        Me.DokumenteResultat.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
        Me.C1Daten.Columns("Pruefschrittstatusnr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
        Catch
        End Try
        Me.DokumenteAllgemein.Pruefschrittnr = -1
        Try
            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
            refresh_all_Details()

        Catch
        End Try
        Me.C1Findings.Enabled = True

    End Sub

    Dim Treeclciked As Boolean = False
    Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
        If Treeclciked Then Exit Sub
        refresh_all_Details()


    End Sub
    Sub refresh_all_Details()

        If OnRefreshAll Then Exit Sub

        Refresh_Toolbar()
        Me.DokumenteAllgemein.Init()
        Me.C1Findings.DataSource = Nothing
        Me.C1Massnahmen.DataSource = Nothing
        Me.C1Notiz.DataSource = Nothing
        Try
            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
            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()
        If Me.Treeclciked Then Exit Sub
        Try
            Refresh_Finding_Dokumente()
            Me.Pruefschrittfinding.Get_Eintraege(Me.C1Findings, Me.Pruefschrittresultat.iPruefSchrittResultatNr.Value, ImageListFindings)
            Try
                Dim findingnr As Integer = Me.C1Daten.Columns("Pruefschrittfindingnr").Value
                For i = 0 To Me.C1Findings.Splits(0).Rows.Count - 1
                    If C1Findings.Columns("Pruefschrittfindingnr").CellText(i) = findingnr Then Me.C1Findings.Bookmark = i
                Next
            Catch ex As Exception

            End Try
        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)
            Try
                Dim Massnahmenr As Integer = Me.C1Daten.Columns("PruefschrittmassnahmeNr").Value
                For i = 0 To Me.C1Massnahmen.Splits(0).Rows.Count - 1
                    If C1Massnahmen.Columns("PruefschrittmassnahmeNr").CellText(i) = Massnahmenr Then Me.C1Massnahmen.Bookmark = i
                Next
            Catch ex As Exception

            End Try
        Catch
        End Try

    End Sub
    Sub Refresh_All(Optional key As Integer = 0)
        'Me.OnRefreshAll = True
        If TreeMassnahmenUsed = True Then
            Dim mtn As New DevComponents.AdvTree.Node
            mtn = Me.TreeMassnahmen.SelectedNode
            Pruefschritt.Get_Massnahmen(Me.TreeMassnahmen)
            Me.TreeMassnahmen.SelectedNode = mtn
            Me.OnRefreshAll = False
            Me.TreeMassnahmen.Focus()
            Exit Sub
        Else
            Pruefschritt.Get_Massnahmen(Me.TreeMassnahmen)

        End If

        Load_Status()
        Pruefschritt.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
        Dim dt As New DataTable
        dt = C1Daten.DataSource
        Dim ds As New DataSet
        ds.Tables.Add(dt.Copy)
        ds.WriteXml("K:\gaga.xml")

        Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
        If key = 0 Then
            For Each tn As DevComponents.AdvTree.Node In Me.TreeUebersicht.Nodes
                If Microsoft.VisualBasic.Right(tn.Text, 3) <> "(0)" Then Me.TreeUebersicht.SelectedNode = tn
            Next
        Else
            For Each tn As DevComponents.AdvTree.Node In Me.TreeUebersicht.Nodes
                If Microsoft.VisualBasic.Right(tn.Text, 3) <> "(0)" Then
                    Me.TreeUebersicht.SelectedNode = tn
                    Exit For
                End If
            Next
            Try
                Dim i As Integer = 0
                For i = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
                    If C1Daten.Columns("Pruefschrittnr").CellText(i) = key Then Me.C1Daten.Bookmark = i
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
        'MsgBox("Hallo")
        Me.OnRefreshAll = False




        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
        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
        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 Refresh_All(key)
        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 Refresh_All(key)
        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
                Me.BearbeitenToolStripMenuItem.Visible = True
                Me.WeiterleitenToolStripMenuItem.Visible = True
            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()
                Try
                    Dim Massnahmenr As Integer = Me.C1Daten.Columns("PruefschrittmassnahmeNr").Value
                    For i = 0 To Me.C1Massnahmen.Splits(0).Rows.Count - 1
                        If C1Massnahmen.Columns("PruefschrittmassnahmeNr").CellText(i) = Massnahmenr Then Me.C1Massnahmen.Bookmark = i
                    Next
                Catch
                End Try

            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.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()
                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 AdvTree1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TreeMassnahmen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeMassnahmen.AfterNodeSelect
        TreeMassnahmenUsed = True
        Me.Treeclciked = True
        Try

            Me.C1Daten.Columns("Pruefschrittstatusnr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
        Catch
        End Try
        Me.DokumenteAllgemein.Pruefschrittnr = -1
        Try
            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value


        Catch
        End Try

        Me.Pruefschritt.Get_Massnahmen_Data(Me.C1Daten, Me.TreeMassnahmen.SelectedNode.Tag)
        Me.Treeclciked = False
        refresh_all_Details()


        Me.DokumenteAllgemein.Pruefschrittnr = -1
        Try
            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
            refresh_all_Details()

        Catch
        End Try

    End Sub

    Private Sub TreeMassnahmen_Click(sender As Object, e As EventArgs) Handles TreeMassnahmen.Click

    End Sub

    Private Sub TreeUebersicht_NodeClick(sender As Object, e As TreeNodeMouseEventArgs) Handles TreeUebersicht.NodeClick
        If TreeMassnahmenUsed = True Then
            Dim tn As New DevComponents.AdvTree.Node
            tn = Me.TreeUebersicht.SelectedNode

            Load_Status()
            Pruefschritt.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
            Me.TreeUebersicht.SelectedNode = tn
            TreeMassnahmenUsed = False
        End If
    End Sub

    Sub Refresh_Toolbar()
        Try
            Select Case Me.TreeUebersicht.SelectedNode.Tag
                Case 1, 2, 3
                    If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
                        Me.tsbtnPruefschrittbearbeiten.Visible = True
                        Me.tsbtnAssessmentAnzeigen.Visible = False
                    Else
                        Me.tsbtnPruefschrittbearbeiten.Visible = False
                        Me.tsbtnAssessmentAnzeigen.Visible = True
                    End If

                Case 4

                Case 5
                    If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
                        Me.tsbtnPruefschrittbearbeiten.Visible = True
                        Me.tsbtnAssessmentAnzeigen.Visible = False
                    Else
                        Me.tsbtnPruefschrittbearbeiten.Visible = False
                        Me.tsbtnAssessmentAnzeigen.Visible = True
                    End If


                Case 6
                    Me.tsbtnPruefschrittbearbeiten.Visible = False
                    Me.tsbtnAssessmentAnzeigen.Visible = True
            End Select

        Catch
        End Try


    End Sub

    Private Sub tsbtnAssessmentAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnAssessmentAnzeigen.Click
        tsbtnFindingBearbeiten_Click(sender, e)
    End Sub

    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
        Try
            If Treeclciked Then Exit Sub
            refresh_all_Details()
        Catch
        End Try

    End Sub
End Class