AssesmentMgmt/SW/AssessmentMgmt/ISI_Uebersicht/frmISI.vb

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()
        sec.Set_Form_Security(Me)
        If Me.AssessmentZuteilenToolStripMenuItem.Enabled = False Or Me.AssessmentZuteilenToolStripMenuItem.Visible = False Then
            Me.DokumenteAllgemein.Show_Toolbar = False
            Me.DokumenteDefinition.Show_Toolbar = False
            Me.DokumenteFindings.Show_Toolbar = False
            Me.DokumenteMassnahmen.Show_Toolbar = False
            Me.DokumenteResultat.Show_Toolbar = False
        End If
        '        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