Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/SW/AssessmentMgmt/Vorgabe/frmVorgabe.vb
+++ b/SW/AssessmentMgmt/Vorgabe/frmVorgabe.vb
@@ -0,0 +1,645 @@
+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)
+    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
+            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
+            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
+
+
+
+
+#End Region
+
+End Class