Public Class frmVorgabe

#Region "Deklarationen"
    Dim sec As New Utils.MySecurity
    Dim msg As New Utils.MyMessage
    Dim FormReadonly As Boolean = False
    Dim FormDataChanged As Boolean = False
    Private Anzeige As Boolean = False

    Dim Vorgabe As New clsVorgabe
    Dim VorgabeTree As New clsVorgabeTree
    Dim VorgabeDefinition As New clsVorgabeDefinition
    Dim OnGetData As Boolean

    Dim Pruefplannr As Integer = 0


#End Region


#Region "Closing / Check_Changes"
    ''' <summary>
    ''' Schliessen des Formulars
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.FormReadonly = True
        If Me.FormReadonly = True Then Exit Sub
        If Check_Changes() = False Then
            e.Cancel = True
        Else
            Vorgabe.dispose()
            Me.Dispose()
        End If
    End Sub

    ''' <summary>
    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
    ''' </summary>
    ''' <remarks></remarks>
    Private Function Check_Changes() As Boolean
        If Me.FormReadonly Then
            Return True
            Exit Function
        End If
        Dim msgres As MsgBoxResult
        If Me.FormDataChanged Then
            msgres = msg.Show_MessageYesNoCancel(3)
            Select Case msgres
                Case MsgBoxResult.Yes
                    Return True
                Case MsgBoxResult.Cancel
                    Return False
                Case MsgBoxResult.No
                    Me.FormDataChanged = False
                    Return True
            End Select
        Else
            Return True
        End If
    End Function

#End Region

#Region "Eventhandler ChangeEreignisse"
    ''' <summary>
    ''' Allg Eventhandler für Chanage-Ereignise festlegen
    ''' </summary>
    ''' <param name="Container"></param>
    ''' <remarks></remarks>
    Private Sub AddChanges(ByVal Container As Control)
        Dim l As New List(Of Control)
        Me.GetControl(Me, "*", l)
        Dim evh As EventHandler = AddressOf ChangesMade
        For Each c As Control In l
            If TypeOf c Is TextBox Then
                Dim ctl As TextBox = c
                AddHandler ctl.TextChanged, evh
            End If
            If TypeOf c Is MaskedTextBox Then
                Dim ctl As MaskedTextBox = c
                AddHandler ctl.TextChanged, evh
            End If
            If TypeOf c Is ComboBox Then
                Dim ctl As ComboBox = c
                AddHandler ctl.SelectedValueChanged, evh
            End If
            If TypeOf c Is RichTextBox Then
                Dim ctl As RichTextBox = c
                AddHandler ctl.TextChanged, evh
            End If
            If TypeOf c Is CheckBox Then
                If c.Name <> "cboxNurAktive" Then
                    Dim ctl As CheckBox = c
                    AddHandler ctl.CheckedChanged, evh
                End If
            End If
            If TypeOf c Is CheckedListBox Then
                Dim ctl As CheckedListBox = c
                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
            End If
        Next
    End Sub
    ''' <summary>
    ''' Envent-Handler für Change-Ereignisse
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.FormDataChanged = True
        Dim objtype As System.Type = sender.GetType
        If objtype.Name = "MaskedTextBox" Then
            Dim o As MaskedTextBox = sender
            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
        End If
    End Sub
    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
        Me.FormDataChanged = True
    End Sub


    ''' <summary>
    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
    ''' </summary>
    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
    ''' <param name="L">Liste der gefundenen Objekte</param>
    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
    ''' </returns>
    ''' <remarks></remarks>
    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
        If L Is Nothing Then L = New List(Of Control)
        Dim Gut As Boolean
        Dim ReturnFlag As Boolean = False
        If Key IsNot Nothing Then Key = Key.ToLower

        If BaseControl.HasChildren = True Then
            For Each ctl As Control In BaseControl.Controls
                Gut = False
                If Key Is Nothing Then
                    Gut = True
                Else
                    If ctl.Name.Length >= Key.Length Then
                        Key = Key.ToLower
                        If Key.StartsWith("*") Then
                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
                        ElseIf Key.EndsWith("*") Then
                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
                        Else
                            If Key = ctl.Name.ToLower Then Gut = True
                        End If
                    End If
                End If

                If Gut = True Then
                    L.Add(ctl)
                    If ReturnAtFirstElement = True Then ReturnFlag = True
                End If
                If ReturnFlag = False Then
                    Call GetControl(ctl, Key, L)
                End If
            Next
        End If

        If L.Count - 1 > -1 Then
            Return True
        Else
            Return False
        End If
    End Function
#End Region

#Region "Formular"

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.ImageList1 = Globals.GueltigImages
        Me.TreeVorgabe.ImageList = Me.ImageList1
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(ByVal Pruefplannr As Integer, Optional from_Massnahme As Boolean = False)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.ImageList1 = Globals.GueltigImages
        Me.Pruefplannr = Pruefplannr
        Me.VorgabeTree.Pruefplannr = Me.Pruefplannr
        Me.VorgabeTree.Tree_From_Pruefplan = True
        If from_Massnahme = True Then
            Me.VorgabeTree.Tree_from_Massnahmeplan = True
            Me.VorgabeTree.Tree_From_Pruefplan = False
        End If
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub frmVorgabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        VorgabeTree.Load_Treeview(Me.TreeVorgabe)
        VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
        Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
        AddChanges(Me)
        sec.Set_Form_Security(Me)
        If Me.ToolStripStruktur.Visible = False Then
            Me.DokumenteAllgemein.Show_Toolbar = False
            '  Me.DokumenteAllgemein.Set_ShowToolbar()
            Me.DokumenteDefinition.Show_Toolbar = False
            '   Me.DokumenteDefinition.Set_ShowToolbar()
        End If
    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

#End Region

#Region "Tree"
    Private Sub TreeVorgabe_AfterNodeSelect(sender As Object, e As DevComponents.AdvTree.AdvTreeNodeEventArgs) Handles TreeVorgabe.AfterNodeSelect
        Me.OnGetData = True
        Try
            VorgabeTree.Get_Eintraege(Me.C1Daten, Me.TreeVorgabe.SelectedNode.Tag)
            If Me.C1Daten.Splits(0).DisplayColumns.Count < 1 Then Me.ToolStripDefinition.Enabled = False Else Me.ToolStripDefinition.Enabled = True
            Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
            Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
            Dim bmp2 As New Bitmap(Me.ImageList1.Images(2))
            Dim bmp3 As New Bitmap(Me.ImageList1.Images(3))

            Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
            Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
            Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
            Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()

            v0.DisplayValue = bmp0
            v0.Value = 0

            v1.DisplayValue = bmp1
            v1.Value = 1

            v2.DisplayValue = bmp2
            v2.Value = 2

            v3.DisplayValue = bmp3
            v3.Value = 3

            Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v0)
            Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v1)
            Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v2)
            Me.C1Daten.Columns("Icon").ValueItems.Values.Add(v3)
            Me.C1Daten.Columns("Icon").ValueItems.Translate = True
            Me.C1Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
        Catch
        End Try
        Refresh_Details()
        Me.OnGetData = False
    End Sub


    Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
        Dim f As New frmNeuerVorgabeEintrag
        f.SelectedNode = Me.TreeVorgabe.SelectedNode
        f.Tree = Me.TreeVorgabe
        f.Key = -1
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            Me.TreeVorgabe.Nodes.Clear()
            VorgabeTree.Load_Treeview(Me.TreeVorgabe)
            If Me.tsCbxFilter.Text <> "" Then
                Me.tsCbxFilter_SelectedIndexChanged(sender, e)
            End If
            Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, f.Key, f.Key.ToString)
        End If
    End Sub


    Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
        Dim f As New frmNeuerVorgabeEintrag
        f.SelectedNode = Me.TreeVorgabe.SelectedNode
        f.Tree = Me.TreeVorgabe
        f.Key = Me.TreeVorgabe.SelectedNode.Tag
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            Me.TreeVorgabe.Nodes.Clear()
            VorgabeTree.Load_Treeview(Me.TreeVorgabe)
            If Me.tsCbxFilter.Text <> "" Then
                Me.tsCbxFilter_SelectedIndexChanged(sender, e)
            End If
            Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, f.Key, f.Key.ToString)
        End If
    End Sub

    Private Sub NeueVorgabeErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueVorgabeErstellenToolStripMenuItem.Click
        Dim s As String
        s = InputBox("Titel der neuen Vorgabe", "Titel der neuen Vorgabe")
        If s <> "" Then
            Vorgabe.Add_New()
            Dim key As Integer = Vorgabe.iVorgabeID.Value
            Vorgabe.iParentID = New SqlTypes.SqlInt32(CType(0, Int32))
            Vorgabe.sKapitelNr = New SqlTypes.SqlString(CType("", String))
            Vorgabe.sKapitel = New SqlTypes.SqlString(CType(s, String))
            Vorgabe.Save_Data()
            Me.TreeVorgabe.Nodes.Clear()
            VorgabeTree.Load_Treeview(Me.TreeVorgabe)
            VorgabeTree.Refresh_Filter(Me.tsCbxFilter)
            Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNode(Me.TreeVorgabe.Nodes, key, key.ToString)
        End If
    End Sub

    Private Sub tsCbxFilter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tsCbxFilter.SelectedIndexChanged
        VorgabeTree.Load_Treeview(Me.TreeVorgabe)
        If tsCbxFilter.Text = "-- Alle --" Then Exit Sub
        Try
            For Each n As DevComponents.AdvTree.Node In Me.TreeVorgabe.Nodes
                If Trim(n.Text) <> Trim(tsCbxFilter.Text) Then
                    n.Remove()
                End If
            Next
        Catch
        End Try

    End Sub

    Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
        Me.tstxtSuche.Text = ""
        Me.VorgabeTree.Init_Search()
    End Sub

    Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
        Me.VorgabeTree.Init_Search()
        Me.TreeVorgabe.SelectedNode = VorgabeTree.SearchNode(Me.TreeVorgabe, Trim(Me.tstxtSuche.Text))
        Try
            Me.TreeVorgabe.SelectedNode.EnsureVisible()
        Catch
            MsgBox("Der Suchbegriff wurde nicht gefunden.", vbInformation)
        End Try


    End Sub

    Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
        Me.TreeVorgabe.SelectedNode = VorgabeTree.FindFirst(Me.TreeVorgabe)
    End Sub

    Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
        Me.TreeVorgabe.SelectedNode = VorgabeTree.FindPrevNode(Me.TreeVorgabe)
    End Sub

    Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
        Me.TreeVorgabe.SelectedNode = VorgabeTree.FindNextNode(Me.TreeVorgabe)
    End Sub

    Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
        Me.TreeVorgabe.SelectedNode = VorgabeTree.FindLastNode(Me.TreeVorgabe)
    End Sub

    Private Sub tstxtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtSuche.KeyDown
        If e.KeyCode = Keys.Enter Then TSBtnSuche_Click(sender, e)
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        Try
            If C1Daten.Splits(0).Rows.Count > 0 Then
                If MsgBox("Struktureintragwirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
                    Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
                    Dim selnode As DevComponents.AdvTree.Node
                    selnode = Me.TreeVorgabe.SelectedNode.Parent
                    Me.Vorgabe.Get_Data(Me.TreeVorgabe.SelectedNode.Tag)
                    Me.Vorgabe.Delete_Data()

                    Me.TreeVorgabe.Nodes.Clear()
                    VorgabeTree.Load_Treeview(Me.TreeVorgabe)
                    Try
                        Me.TreeVorgabe.SelectedNode = selnode
                    Catch ex As Exception
                        Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
                    End Try

                End If
            End If

        Catch ex As Exception

        End Try
    End Sub

#End Region

#Region "C1Daten"
    Private Sub C1Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Daten.RowColChange
        If Me.OnGetData Then Exit Sub
        Refresh_Details()
        Refresh_C2Daten()
    End Sub

    Sub Refresh_Details()
        'Me.DokumenteAllgemein.Show_Toolbar = True
        Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
        Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
        Me.DokumenteAllgemein.Doktype = 1
        Me.DokumenteAllgemein.ThemaNr = C1Daten.Columns("vorgabeid").Value
        Me.DokumenteAllgemein.Refresh()
        Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value

        Refresh_C2Daten()


    End Sub

    Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
    End Sub


    Private Sub TsBtnAddNewStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnAddNewStruktur.Click
        NeuerEintragToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub TsBtnEditStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnEditStruktur.Click
        Try
            Dim bookamark
            Dim selnode As DevComponents.AdvTree.Node
            selnode = Me.TreeVorgabe.SelectedNode
            bookamark = C1Daten.Bookmark
            Dim f As New frmNeuerVorgabeEintrag
            f.SelectedNode = Me.TreeVorgabe.SelectedNode
            f.Parentnode = Me.TreeVorgabe.SelectedNode.Parent
            f.Tree = Me.TreeVorgabe
            f.Key = Me.C1Daten.Columns("Vorgabeid").Value
            If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
                f.btnSave.Enabled = False
                f.TreeVorgabe.AllowDrop = False
            End If
            f.ShowDialog()
            If f.DialogResult = Windows.Forms.DialogResult.OK Then
                Me.TreeVorgabe.Nodes.Clear()
                VorgabeTree.Load_Treeview(Me.TreeVorgabe)
                If Me.tsCbxFilter.Text <> "" Then
                    Me.tsCbxFilter_SelectedIndexChanged(sender, e)
                End If
                Me.TreeVorgabe.SelectedNode = selnode
                Me.C1Daten.Bookmark = bookamark
            End If
        Catch
        End Try

    End Sub

    Private Sub TsBtnDeleteStruktur_Click(sender As Object, e As EventArgs) Handles TsBtnDeleteStruktur.Click

        Try
            If C1Daten.Splits(0).Rows.Count > 0 Then
                If MsgBox("Struktureintragwirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
                    Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
                    Dim selnode As DevComponents.AdvTree.Node
                    selnode = Me.TreeVorgabe.SelectedNode
                    Me.Vorgabe.Get_Data(Me.C1Daten.Columns("Vorgabeid").Value)
                    Me.Vorgabe.Delete_Data()

                    Me.TreeVorgabe.Nodes.Clear()
                    VorgabeTree.Load_Treeview(Me.TreeVorgabe)
                    Try
                        Me.TreeVorgabe.SelectedNode = selnode
                    Catch ex As Exception
                        Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.Nodes(0)
                    End Try

                End If
            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub ToolStripMenuVorgabeNeu_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeNeu.Click
        TsBtnAddNewStruktur_Click(sender, e)
    End Sub

    Private Sub ToolStripMenuVorgabeEdit_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeEdit.Click
        TsBtnEditStruktur_Click(sender, e)
    End Sub

    Private Sub ToolStripMenuVorgabeDelete_Click(sender As Object, e As EventArgs) Handles ToolStripMenuVorgabeDelete.Click
        TsBtnDeleteStruktur_Click(sender, e)
    End Sub

    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
        Try
            ToolStripMenuVorgabeEdit_Click(sender, e)
        Catch
        End Try

    End Sub

#End Region

#Region "C2Daten"
    Private Sub C2Daten_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C2Daten.RowColChange
        If Me.OnGetData Then Exit Sub
        Refresh_DetailsDefinition()
    End Sub

    Sub Refresh_C2Daten()
        VorgabeDefinition.Get_Eintraege(Me.C2Daten, Me.C1Daten.Columns("vorgabeid").Value)
        Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
        Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))
        Dim bmp2 As New Bitmap(Me.ImageList1.Images(2))
        Dim bmp3 As New Bitmap(Me.ImageList1.Images(3))

        Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()

        v0.DisplayValue = bmp0
        v0.Value = 0

        v1.DisplayValue = bmp1
        v1.Value = 1

        v2.DisplayValue = bmp2
        v2.Value = 2

        v3.DisplayValue = bmp3
        v3.Value = 3

        Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v0)
        Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v1)
        Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v2)
        Me.C2Daten.Columns("Icon").ValueItems.Values.Add(v3)
        Me.C2Daten.Columns("Icon").ValueItems.Translate = True
        Me.C2Daten.Splits(0).DisplayColumns("icon").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
        Refresh_DetailsDefinition()
    End Sub


    Private Sub C2Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C2Daten.MouseDown
        Me.C2Daten.Bookmark = Me.C2Daten.RowContaining(e.Y)
    End Sub

    Sub Refresh_DetailsDefinition()
        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 = C2Daten.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 TSBtnAddNewDefinition_Click(sender As Object, e As EventArgs) Handles TSBtnAddNewDefinition.Click
        Try
            Dim f As New frmVorgabeDefinition
            f.Key = -1
            f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
            f.ShowDialog()
            If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
        Catch
        End Try

    End Sub

    Private Sub TsBtnEditDefinition_Click(sender As Object, e As EventArgs) Handles TsBtnEditDefinition.Click
        Try
            Dim f As New frmVorgabeDefinition
            f.Key = Me.C2Daten.Columns("VorgabeDefinitionNr").Value
            f.VorgabeID = Me.C1Daten.Columns("VorgabeID").Value
            If Me.EintragBearbeitenToolStripMenuItem.Enabled = False Then
                f.btnSave.Enabled = False

            End If
            f.ShowDialog()
            If f.DialogResult = DialogResult.OK Then Refresh_C2Daten()
        Catch
        End Try

    End Sub

    Private Sub TsBtnDeleteDefinition_Click(sender As Object, e As EventArgs) Handles TsBtnDeleteDefinition.Click
        Try
            If C2Daten.Splits(0).Rows.Count > 0 Then
                If MsgBox("Definition wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
                    Dim vorgabedefinition As New clsVorgabeDefinition
                    vorgabedefinition.Get_Data(Me.C2Daten.Columns("VorgabeDefinitionNr").Value)
                    vorgabedefinition.Delete_Data()
                    Me.Refresh_C2Daten()
                    vorgabedefinition = Nothing
                End If
            End If

        Catch ex As Exception

        End Try
    End Sub

    Private Sub NeuerEintragToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem1.Click
        Me.TSBtnAddNewDefinition_Click(sender, e)
    End Sub

    Private Sub EintragBearbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem1.Click
        TsBtnEditDefinition_Click(sender, e)
    End Sub

    Private Sub EintragLöschenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem1.Click
        TsBtnDeleteDefinition_Click(sender, e)
    End Sub

    Private Sub C2Daten_DoubleClick(sender As Object, e As EventArgs) Handles C2Daten.DoubleClick
        Try
            TsBtnEditDefinition_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub




#End Region

#Region "Toolbar Form"
    Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
        VorgabeTree.search_Eintraege(Me.TreeVorgabe, Me.tsTxtSearchStruktur_Definition.Text)
    End Sub

    Private Sub tsTxtSearchStruktur_Definition_KeyDown(sender As Object, e As KeyEventArgs) Handles tsTxtSearchStruktur_Definition.KeyDown
        If e.KeyCode = Keys.Enter Then tsBtnSearchStruktur_Definition_Click(sender, e)
    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        tsTxtSearchStruktur_Definition.Text = ""
        tsBtnSearchStruktur_Definition_Click(sender, e)
    End Sub

    Private Sub TreeVorgabe_Click(sender As Object, e As EventArgs) Handles TreeVorgabe.Click

    End Sub

    Private Sub EintragAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenToolStripMenuItem.Click
        TsBtnEditStruktur_Click(sender, e)
    End Sub

    Private Sub EintragAnzeigenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenToolStripMenuItem1.Click
        TsBtnEditDefinition_Click(sender, e)
    End Sub




#End Region

End Class