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

Public Class frmMassnahmenuebersicht

#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 Massnahme As New clsMassnahme


#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_All()
    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 = 7
        'Me.DokumenteAllgemein.ThemaNr = 0
        'Me.DokumenteAllgemein.Refresh()
        Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value


        Me.TreeUebersicht.Nodes.Clear()
        Dim i As Integer = 0
        For Each r As DataRow In Massnahme.Status.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("StatusNr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
        Catch
        End Try
        Me.DokumenteAllgemein.Pruefschrittnr = -1
        Try
            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value

        Catch
        End Try


    End Sub

    Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
        Me.DokumenteAllgemein.Init()
        Me.C1Notiz.DataSource = Nothing
        Try
            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
            Refresh_notizen()
            Refresh_History()
        Catch
        End Try
        Refresh_Details()

    End Sub

    Sub Refresh_notizen()
        Dim notizen As New clsPruefschrittNotiz
        Try
            notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Massnahmenr").Value)
        Catch
        End Try

    End Sub

    Sub Refresh_History()
        Dim history As New clsHistory
        Try
            history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Massnahmenr").Value)
        Catch
        End Try

    End Sub

    Sub Refresh_All()
        Load_Status()
        Massnahme.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
        Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
    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.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("MassnahmeNr").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("MassnahmeNr").Value, Int32))
                clsnotiz.Save_Data()
                clsnotiz = Nothing

                Dim History As New clsHistory
                History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
                History.Dispose()

                Me.Massnahme.Get_Data(C1Daten.Columns("MassnahmeNr").Value)
                Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
                Me.Massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(2, Int32))
                Me.Massnahme.Save_Data()
                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 ToolStripButton2.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 MassnahmeDetailBearbeitung
        f.Massnahmenr = C1Daten.Columns("massnahmenr").Value
        f.MdiParent = Me.MdiParent
        f.Handler = Me.Handle
        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()
        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()
        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.Enabled = False
        Me.WeiterleitenToolStripMenuItem.Enabled = False
        Me.AbschliessenToolStripMenuItem.Enabled = False



        'Prüfung abgeschlossen
        If Me.TreeUebersicht.SelectedNode.Tag < 4 Then
            Me.BearbeitenToolStripMenuItem.Enabled = True
            Me.WeiterleitenToolStripMenuItem.Enabled = True
            Me.AbschliessenToolStripMenuItem.Enabled = True
        End If
    End Sub

    Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
        Dim f As New MassnahmeDetailBearbeitung
        f.Massnahmenr = C1Daten.Columns("massnahmenr").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 die Massnahme definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
            Massnahme.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
            Dim f As New frmWeitergabe(Me.Massnahme.iMassnahmeNr, Me.Massnahme.iVerantwortungIsINr)
            f.ShowDialog()
            If f.DialogResult = DialogResult.OK Then

                Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
                Me.Massnahme.iStatusNr = 5
                Me.Massnahme.Save_Data()

                Dim History As New clsHistory
                History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
                History.Dispose()


                Me.Refresh_All()
            End If
        End If

    End Sub

    Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click

    End Sub
End Class