Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient

''' <summary>
''' Vertragsübersicht: Beachten: TabControl wird von TKB.VV.Utils.clsMyTabControl
''' überschrieben
''' </summary>
''' <includesource>yes</includesource>
''' <seealso
''' cref="T:Vertragsverwaltung.TKB.VV.Vertrag.clsVertragsuebersicht_Strukturen"></seealso>
''' <seealso
''' cref="T:Vertragsverwaltung.TKB.VV.Vertrag.Treenode_Descriptor"></seealso>
''' <seealso
''' cref="T:Vertragsverwaltung.TKB.VV.Vertrag.clsVertragselement"></seealso>
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyDocMgmt"></seealso>
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MySecurity"></seealso>
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyMessage"></seealso>
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.clsProfile"></seealso>
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.Tabellenspalte"></seealso>
''' <seealso cref="T:Vertragsverwaltung.MyGenericEventHandler"></seealso>
Public Class frmVertragsuebersicht
#Region "Deklarationen"
    ''' <summary>
    ''' Klasse für die Bewirtschaftung der Tree-Strukturen
    ''' </summary>
    ''' <remarks></remarks>
    Dim Strukturen As New TKB.VV.Vertrag.clsVertragsuebersicht_Strukturen

    ''' <summary>
    ''' Klasse für die Beschreibung der Tree-Tags
    ''' </summary>
    ''' <remarks></remarks>
    Dim Tag_Descriptor As TKB.VV.Vertrag.Treenode_Descriptor

    ''' <summary>
    ''' Vertragselement
    ''' </summary>
    ''' <remarks></remarks>
    Dim Vertragselement As TKB.VV.Vertrag.clsVertragselement

    ''' <summary>
    ''' Dokument-Management-Klasse
    ''' </summary>
    ''' <remarks></remarks>
    Dim Docs As New TKB.VV.Utils.MyDocMgmt
    Dim Services As New TKB.VV.Vertrag.clsVertragsleistung
    ''' <summary>
    ''' Security-Klasse
    ''' </summary>
    ''' <remarks></remarks>
    Dim sec As New TKB.VV.Utils.MySecurity
    ''' <summary>
    ''' Message-Klasse
    ''' </summary>
    ''' <remarks></remarks>
    Dim msg As New TKB.VV.Utils.MyMessage
    Dim Profil As New TKB.VV.Utils.clsProfile


    Dim FormReadonly As Boolean = False
    Dim FormDataChanged As Boolean = False
    Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
    Friend selectPoint As New System.Drawing.Point()
    Dim c1data As New DataTable
    Dim Save_LizenzTabPage As TabPage
    Dim PartnerToSelect As Integer = 0
    Dim IsOnLoad As Boolean = False

    ''' <summary>
    ''' Generic Event-Handler
    ''' </summary>
    ''' <remarks></remarks>
    Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
#End Region

#Region "Buttons/Menu"

    ''' <summary>
    ''' Formular schliessen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    ''' <summary>
    ''' Datensatz kopieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnCopy.Click
    End Sub
    ''' <summary>
    ''' Neuer Datensatz erstellen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNew.Click
    End Sub
    ''' <summary>
    ''' Aktueller Datensatz inaktivieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnDelete.Click
    End Sub

    ''' <summary>
    ''' Menu Beenden
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub BeendenToolStipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStipMenuItem.Click
        Me.TSBtnQuit_Click(sender, e)
    End Sub

    ''' <summary>
    ''' Vertragspartner suchen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSuche.Click
        Me.C1Dokumente.DataSource = Nothing
        If Me.rbSortVertragspartner.Checked = True Then
            Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 1, Me.TStxtSuche.Text)
        Else
            Strukturen.Get_Struktur(Me.TreeStruktur, 1, Me.cbInaktiv.Checked, 1, Me.TStxtSuche.Text)
        End If
        Try
            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
            Me.TreeStruktur_Click(sender, e)
            If Me.TreeStruktur.GetNodeCount(False) = 1 Then
                Try
                    Update_Node(Me.TreeStruktur.SelectedNode, Me.Profil.bV_Struktur_Details.Value)
                Catch ex As Exception

                End Try
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub TSBtnSucheInhalt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSucheInhalt.Click
        Me.C1Dokumente.DataSource = Nothing
        If Me.rbSortVertragspartner.Checked = True Then
            Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 2, Me.TStxtSucheInhalt.Text)
        Else
            Strukturen.Get_Struktur(Me.TreeStruktur, 1, Me.cbInaktiv.Checked, 2, Me.TStxtSucheInhalt.Text)
        End If
        Try
            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
            Me.TreeStruktur_Click(sender, e)
            If Me.TreeStruktur.GetNodeCount(False) = 1 Then
                Try
                    Update_Node(Me.TreeStruktur.SelectedNode, Me.Profil.bV_Struktur_Details.Value)
                Catch ex As Exception

                End Try
            End If
        Catch ex As Exception
        End Try


    End Sub
    'Try
    '    Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
    '    Me.TreeStruktur_Click(sender, e)
    'Catch ex As Exception
    '    If F.DialogResult = Windows.Forms.DialogResult.OK Then
    '        Me.C1Vertragselemente.DataSource = Nothing
    '        If Me.rbSortVertragspartner.Checked = True Then
    '            If F.txtVertragspartner.Text <> "" Then
    '                Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 1, F.txtVertragspartner.Text)
    '            Else
    '                Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 2, F.txtVertragselement.Text)
    '            End If

    '        End If
    '        If Me.rbSortVertragstyp.Checked = True Then
    '            If F.txtVertragspartner.Text <> "" Then
    '                Strukturen.Get_Struktur(Me.TreeStruktur, 1, Me.cbInaktiv.Checked, 1, F.txtVertragspartner.Text)
    '            Else
    '                Strukturen.Get_Struktur(Me.TreeStruktur, 1, Me.cbInaktiv.Checked, 1, F.txtVertragselement.Text)
    '            End If

    '        End If
    '        Try
    '            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
    '            Me.TreeStruktur_Click(sender, e)
    '        Catch ex As Exception
    '        End Try

    '    End If





#End Region

#Region "Formular"
    Sub New()
        Me.IsOnLoad = True
        InitializeComponent()
    End Sub

    Sub New(ByVal Partnernr As Integer)
        Me.IsOnLoad = True
        InitializeComponent()
        Me.PartnerToSelect = Partnernr
    End Sub
    ''' <summary>
    ''' Formular-Load
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Wurde das Form mit einer Partnernr initialisiert, wird die Partnerstruktur geöffnet</remarks>
    Private Sub frmVertragsuebersicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Cursor = Cursors.WaitCursor
        Me.Save_LizenzTabPage = Me.TabControlDiverse.TabPages("TabLizenz")
        If Me.TSBtnSave.Enabled = False Then
            Me.FormReadonly = True
            Me.TSBtnCopy.Enabled = False
            Me.TSBtnNew.Enabled = False
            Me.TSBtnDelete.Enabled = False
        Else
            Me.FormReadonly = False
        End If
        Profile_Aktualisieren()
        Try
            Me.TSComboboxProfil.SelectedIndex = 0
        Catch
        End Try
        If PartnerToSelect <> 0 Then
            Load_Struktur(PartnerToSelect)
            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
            Me.TreeStruktur_Click(sender, e)
            If Me.TreeStruktur.GetNodeCount(False) = 1 Then
                Me.TreeStruktur.ExpandAll()
                Try
                    Update_Node(Me.TreeStruktur.SelectedNode, Me.Profil.bV_Struktur_Details.Value)
                    Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
                Catch ex As Exception

                End Try
            End If
        Else
            Load_Struktur()
        End If
        Me.Order_Tabcontrol()
        PartnerToSelect = 0
        Me.IsOnLoad = False
        Load_Securitylevel()
        sec.Set_Form_Security(Me)

        Me.Cursor = Cursors.Default
    End Sub


    ''' <summary>
    ''' Laden der Treestruktur
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Load_Struktur(Optional ByVal Partnernr As Integer = 0)
        Me.Cursor = Cursors.WaitCursor
        If Me.rbSortVertragspartner.Checked = True Then
            If Me.TStxtSuche.Text <> "" Then
                Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 1, Me.TStxtSuche.Text, Partnernr)
            Else
                If Me.TStxtSucheInhalt.Text <> "" Then
                    Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 2, Me.TStxtSucheInhalt.Text, Partnernr)
                Else
                    Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, , , Partnernr)
                End If
            End If
        End If
        If Me.rbSortVertragstyp.Checked = True Then
            Strukturen.Get_Struktur(Me.TreeStruktur, 1, Me.cbInaktiv.Checked, , , Partnernr)
        End If
        Try
            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
        Catch
        End Try
        Me.Cursor = Cursors.Default
        'Me.Refresh_Details()
    End Sub
    ''' <summary>
    ''' Bei Änderung der Inaktiv-Checkbox werden die Hauptstrukturen neu geladen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub cbocInaktiv_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbInaktiv.CheckedChanged
        Try
            Me.Load_Struktur()
        Catch ex As Exception
        End Try
    End Sub
#End Region

#Region "Tree"

    ''' <summary>
    ''' Aktueller Tag des gewählten Nodes auslesen und Aktualisierung aufrufen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>Me.Profil.bV_Struktur_Details.Value
    Private Sub treeStruktur_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeStruktur.BeforeExpand

        If Me.TreeStruktur.SelectedNode.GetNodeCount(True) = 1 And Me.TreeStruktur.SelectedNode.Level = 0 Then
            Dim xx As TKB.VV.Vertrag.Treenode_Descriptor = Me.TreeStruktur.SelectedNode.Nodes(0).Tag
            If xx.Keyvalue = -99 Then
                Try
                    Update_Node(Me.TreeStruktur.SelectedNode, Me.Profil.bV_Struktur_Details.Value)
                Catch ex As Exception
                End Try
            End If
        End If
    End Sub
    Private Sub Update_Node(ByRef tn As TreeNode, ByVal Details As Integer)
        Dim x As TKB.VV.Vertrag.Treenode_Descriptor = tn.Tag
        Select Case x.Type
            Case "Vertragspartner"
                tn.Nodes.Clear()
                Me.Strukturen.Load_SubStruktur(tn, Details, Me.TStxtSucheInhalt.Text)
                tn.ExpandAll()
            Case "Vertragstyp"
                tn.Nodes.Clear()
                If Me.TStxtSuche.Text <> "" Then
                    Me.Strukturen.Load_SubStruktur(tn, Details, "V:" + Me.TStxtSuche.Text)
                Else
                    If Me.TStxtSucheInhalt.Text <> "" Then
                        Me.Strukturen.Load_SubStruktur(tn, Details, "I:" + Me.TStxtSucheInhalt.Text)
                    Else
                        Me.Strukturen.Load_SubStruktur(tn, Details, "")
                    End If
                End If
                tn.ExpandAll()
        End Select
    End Sub


    ''' <summary>
    ''' Treeview-Click
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Ist die Sortierung nach Vertragstyp und der Click auf dem Root-Entry, wird das Datenauslesen speziell behandelt, sodass sämtliche Vertragspartner berücksichtigt werden</remarks>
    Private Sub TreeStruktur_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeStruktur.Click
        Refresh_Details()
    End Sub
    ''' <summary>
    ''' Toplevel-Treenode suchen
    ''' </summary>
    ''' <param name="tn"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function RootTreeNode(ByVal tn As TreeNode) As TreeNode
        While Not tn.Parent Is Nothing
            tn = tn.Parent
            RootTreeNode(tn)
        End While
        Return tn
    End Function
    ''' <summary>
    ''' Mousedown-Ereignis auf dem Tree
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeStruktur_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeStruktur.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.GetNodeAt(selectPoint)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    ''' <summary>
    ''' Handling RB_Changed für den Aufbau der Struktur
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub RB_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbSortVertragspartner.CheckedChanged, rbSortVertragstyp.CheckedChanged
        If Me.IsOnLoad Then Exit Sub
        If Me.rbSortVertragspartner.Checked = False And Me.rbSortVertragstyp.Checked = False Then Exit Sub
        Me.Load_Struktur()
    End Sub

    ''' <summary>
    ''' Suchen eines Knoten Treeview
    ''' </summary>
    ''' <param name="_nodeCollection">Nodes des TreeView</param>
    ''' <param name="SearchVal">Tag.Keyvalue</param>
    ''' <param name="SearchString">Node.Text als Suchbegriff</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
        Dim tmpNode As TreeNode
        For Each _child As TreeNode In _nodeCollection
            Dim xtag As TKB.VV.Vertrag.Treenode_Descriptor = _child.Tag
            If xtag.Keyvalue = SearchVal And SearchString = _child.Text Then
                Return _child
            End If
            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
            If Not tmpNode Is Nothing Then
                Return tmpNode
            End If
        Next
        Return Nothing
    End Function


#End Region

#Region "TreeStruktur-Menu"
    ''' <summary>
    ''' Aktualisierung des aktuellen Knotens
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeStrukturAktualisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeStrukturAktualisierenToolStripMenuItem.Click

        Cursor = Cursors.WaitCursor
        Dim SaveTn As TreeNode = Me.TreeStruktur.SelectedNode

        Me.TreeStruktur.Enabled = False
        Me.TreeStruktur.BeginUpdate()
        Dim tmptn As TreeNode = Me.RootTreeNode(Me.TreeStruktur.SelectedNode)
        tmptn.Nodes.Clear()
        tmptn.Nodes.Add("")
        Me.Update_Node(tmptn, Me.Profil.bV_Struktur_Details.Value)
        tmptn.ExpandAll()
        Dim kvalue As TKB.VV.Vertrag.Treenode_Descriptor = SaveTn.Tag

        Me.TreeStruktur.Enabled = True
        Me.TreeStruktur.EndUpdate()

        Me.TreeStruktur.SelectedNode = FindNode(Me.TreeStruktur.Nodes, kvalue.Keyvalue, SaveTn.Text)
        TreeStruktur_Click(sender, e)
        Cursor = Cursors.Default
    End Sub

    ''' <summary>
    ''' Vollständiger Treeview aktualisieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeStrukturTreeAktualisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeStrukturTreeAktualisierenToolStripMenuItem.Click
        Refresh_All()
    End Sub
    ''' <summary>
    ''' Treeview Struktur aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_All()
        Cursor = Cursors.WaitCursor

        Me.TreeStruktur.Enabled = False
        Me.TreeStruktur.BeginUpdate()

        Dim SaveTn As TreeNode = Me.TreeStruktur.SelectedNode
        Dim tmptn As TreeNode = Me.RootTreeNode(Me.TreeStruktur.SelectedNode)
        Me.TreeStruktur.Nodes.Clear()
        Me.Load_Struktur()

        Dim keyvalue As TKB.VV.Vertrag.Treenode_Descriptor = tmptn.Tag

        Me.TreeStruktur.Enabled = True
        Me.TreeStruktur.EndUpdate()
        Me.TreeStruktur.SelectedNode = FindNode(Me.TreeStruktur.Nodes, keyvalue.Keyvalue, tmptn.Text)

        Me.TreeStruktur.Enabled = False
        Me.TreeStruktur.BeginUpdate()
        Me.Update_Node(tmptn, Me.Profil.bV_Struktur_Details.Value)
        Me.TreeStruktur.SelectedNode.ExpandAll()

        Me.TreeStruktur.Enabled = True
        Me.TreeStruktur.EndUpdate()

        keyvalue = SaveTn.Tag
        Me.TreeStruktur.SelectedNode = FindNode(Me.TreeStruktur.Nodes, keyvalue.Keyvalue, SaveTn.Text)

        Refresh_Details()
        Cursor = Cursors.Default

    End Sub
    ''' <summary>
    '''Details aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Dim xxx() As String
    Private Sub Refresh_Details()

        Try
            Dim bm As Integer = 0
            bm = Me.C1Vertragselemente.Bookmark

            If Me.rbSortVertragstyp.Checked And Me.TreeStruktur.SelectedNode.Level = 0 Then
                c1data = Me.Strukturen.Update_Vertragsuebersicht(Me.TreeStruktur.SelectedNode.Tag, True, Me.TStxtSucheInhalt.Text)
            Else
                c1data = Me.Strukturen.Update_Vertragsuebersicht(Me.TreeStruktur.SelectedNode.Tag, , Me.TStxtSucheInhalt.Text)
            End If
            If Me.Profil.sV_Sort.ToString <> "" Then
                c1data.DefaultView.Sort = Me.Profil.sV_Sort.ToString
            End If

            Dim gv As C1.Win.C1TrueDBGrid.DataViewEnum
            Dim s As New Collection
            Dim i As Integer = -1
            For Each g As C1.Win.C1TrueDBGrid.C1DataColumn In Me.C1Vertragselemente.GroupedColumns
                s.Add(g.Caption)
                i = i + 1
                '                xxx(i) = g.Caption
            Next
            i = Me.C1Vertragselemente.DataView
            Me.C1Vertragselemente.Enabled = False
            Me.C1Vertragselemente.DataSource = c1data
            Me.C1Vertragselemente.DataMember = c1data.TableName
            Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Vertragselemente, "Vertragsuebersicht", Me.c1data, Me.Profil.sV_Aktiv_Vertragselemente.Value)
            Update_Details()
            Docs.Get_Layout(Me.C1Vertragselemente, 1, Me.Profil.iProfilnr.Value)
            Me.C1Vertragselemente.FetchRowStyles = True
            If i <> 0 Then
                Try
                    Me.C1Vertragselemente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Normal
                    Me.C1Vertragselemente.DataView = i
                    For Each ss As String In s
                        Me.C1Vertragselemente.GroupedColumns.Add(Me.C1Vertragselemente.Columns(ss))
                    Next

                Catch ex As Exception

                End Try
            End If
            s = Nothing

            Try
                Me.C1Vertragselemente.Bookmark = bm
            Catch ex As Exception

            End Try
            Me.C1Vertragselemente.Enabled = True
        Catch ex As Exception
        End Try
    End Sub


    ''' <summary>
    ''' Vertragspartner anzeigen / bearbeiten
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeStrukturVertragspartnerAnzeigenToolStipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeStrukturVertragspartnerAnzeigenToolStipMenuItem.Click
        Dim tmptag As TKB.VV.Vertrag.Treenode_Descriptor = Me.TreeStruktur.SelectedNode.Tag
        If tmptag.Type = "Vertragspartner" Then
            Dim f As New frmVertragspartner(tmptag.Vertragspartnernr, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
        End If
    End Sub

    ''' <summary>
    ''' TreeStrukturContetmenu anzeigen und allfällige MenuItems disablen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeStrukturContextMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TreeStrukturContextMenuStrip.Opening
        Try
            Me.TreeStrukturVertragspartnerAnzeigenToolStipMenuItem.Enabled = False
            Tag_Descriptor = Me.TreeStruktur.SelectedNode.Tag
            Select Case Tag_Descriptor.Type
                Case "Vertragspartner"
                    Me.TreeStrukturVertragspartnerAnzeigenToolStipMenuItem.Enabled = True
            End Select
        Catch ex As Exception

        End Try
    End Sub
#End Region

#Region "VertragselementMenu"
    ''' <summary>
    ''' Neuer Vertragspartner eröffnen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub NeuerVertragspartnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerVertragspartnerToolStripMenuItem.Click
        Dim f As New frmVertragspartner(0, Me.FormReadonly, True)
        f.ShowDialog()
    End Sub
    ''' <summary>
    ''' Spaltenlayout C1Vertragselemente speichern
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub SpaltendarstellungSichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabellendarstellungSichernToolStripMenuItem.Click
        Docs.Save_LayoutFile(Me.C1Vertragselemente, 1, Me.Profil.iProfilnr.Value)
    End Sub
    ''' <summary>
    ''' Vertragselement anzeigen / bearbeiten
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VertragselementAnzeigenBearbeitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertragselementAnzeigenBearbeitenToolStripMenuItem.Click
        Me.C1Vertragselemente_DoubleClick(sender, e)
    End Sub
    ''' <summary>
    ''' Neues Vertragselement laden
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Sind keine Elemente in der Vertragselement-Liste, Vertragspartner über Struktureintrag auslesen. 
    ''' Geht dies aufgrund der Datenkonstellation nicht, Vertragspartner 0 übergaben, damit ein Partner ausgesucht werden muss</remarks>
    Private Sub NeuesVertragselementErstellenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesVertragselementErstellenToolStripMenuItem.Click
        Try
            If Me.C1Vertragselemente.Splits(0).Rows.Count = 0 Then
                Dim x As TKB.VV.Vertrag.Treenode_Descriptor = Me.TreeStruktur.SelectedNode.Tag
                Dim f As New frmVertragselement(-1, False, True, x.Vertragspartnernr)
                f.MdiParent = Me.MdiParent
                f.Show()
            Else
                Dim f As New frmVertragselement(-1, False, True, Me.C1Vertragselemente.Columns("Vertragspartnernr").Value)
                f.MdiParent = Me.MdiParent
                f.Show()
            End If
        Catch ex As Exception
            Dim f As New frmVertragselement(-1, False, True, 0)
            f.MdiParent = Me.MdiParent
            f.Show()
        End Try
    End Sub

#End Region

#Region "C1Vertragselemente"

    ''' <summary>
    ''' Doubleklick auf C1Vertragselemente
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Steht der MenuEintrag VertragselementAnzeigenBearbeitenToolStripMenuItem nicht 
    ''' zur Verfügung, muss der Doppelclick ignoriert werden</remarks>
    Private Sub C1Vertragselemente_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Vertragselemente.DoubleClick
        If VertragselementAnzeigenBearbeitenToolStripMenuItem.Enabled = False Then
            Exit Sub
        End If
        Try
            Dim f As New frmVertragselement(Me.C1Vertragselemente.Columns("Vertragselementnr").Value, Me.FormReadonly, False)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try
    End Sub

    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Vertragselemente_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Vertragselemente.FetchRowStyle
        Try
            If Me.C1Vertragselemente.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub
    'gaga
    Private Sub C1Vertragselemente_FormatText(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FormatTextEventArgs) Handles C1Vertragselemente.FormatText
        If e.Column.DataType.Name = "DateTime" And e.Value = "01.01.1900 00:00:00" Then e.Value = ""
    End Sub


    ''' <summary>
    ''' Mousedown-Ereignis auf C1Certragselemente, damit die Details aktualisiert werden können
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Vertragselemente_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Vertragselemente.MouseDown
        Me.C1Vertragselemente.Bookmark = Me.C1Vertragselemente.RowContaining(e.Y)
        Me.C1Vertragselemente.Bookmark = Me.C1Vertragselemente.RowBookmark(Me.C1Vertragselemente.RowContaining(e.Y))
        Update_Details()
    End Sub

#End Region

#Region "Detailinformationen"

    ''' <summary>
    ''' Detailelemente und die allfällig ausgewählte TabPage aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Update_Details()
        If Me.C1Vertragselemente.Splits(0).Rows.Count < 1 Then
            Me.TabControlDiverse.Enabled = False
            Exit Sub
        End If
        Me.TabControlDiverse.Enabled = True
        Update_DetailInformationen()
        Select Case Me.TabControlDiverse.SelectedTab.Text
            Case "Vertragsinhalt", "Suchbegriffe"
            Case "Kündigungsfristen"
                Refresh_Kuendigungsfrist()
            Case "Kontakte"
                Refresh_Kontakte()
            Case "Dokumente"
                Refresh_Dokumente()
            Case "Services"
                Refresh_services()
            Case "Ereignisse"
                Refresh_Ereignisse()
            Case "Aktivitäten"
                Refresh_Aktivitaeten()
            Case "Pendenzen"
                Refresh_Pendenzen()
            Case "Referenzverträge"
                Refresh_Referenzvertraege()
            Case "History"
                Refresh_History()
            Case "Applikationen"
                Refresh_Applikationen()
        End Select
    End Sub
#End Region

#Region "TabControl"
    ''' <summary>
    ''' Index-Wechsel auf TabControlDiverse. Abhängig der gewählten Registerlasche, werden deren Daten aktualisiert.
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TabControlDiverse_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControlDiverse.SelectedIndexChanged
        Update_Details()
    End Sub
    ''' <summary>
    ''' Detail-Informationen der ersten 2 TabPages aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Update_DetailInformationen()
        Try
            Me.txtBeschreibung.Text = Me.C1Vertragselemente.Columns("Beschreibung").Value
            Me.txtVertragstyp.Text = Me.C1Vertragselemente.Columns("Vertragstyp").Value
            Me.txtBezeichnung.Text = Me.C1Vertragselemente.Columns("Bezeichnung").Value
            Me.txtSuchbegriffe.Text = Me.C1Vertragselemente.Columns("Suchbegriffe").Value
            Me.txtVersion.Text = Me.C1Vertragselemente.Columns("Version").Value
            Me.txtVertragsnummer.Text = Me.C1Vertragselemente.Columns("Nummer").Value
            If Not Me.C1Vertragselemente.Columns("Versionsdatum").Value Is System.DBNull.Value Then
                Me.txtVersionsdatum.Text = Me.C1Vertragselemente.Columns("Versionsdatum").Value
            Else
                Me.txtVersionsdatum.Text = ""
            End If
            If Not Me.C1Vertragselemente.Columns("Vertragsbeginn").Value Is System.DBNull.Value Then
                Me.txtVertragsbegin.Text = Me.C1Vertragselemente.Columns("Vertragsbeginn").Value
            Else
                Me.txtVertragsbegin.Text = ""
            End If
            If Not Me.C1Vertragselemente.Columns("Vertragsablauf").Value Is System.DBNull.Value Then
                Me.txtVertragsende.Text = Me.C1Vertragselemente.Columns("Vertragsablauf").Value
            Else
                Me.txtVertragsende.Text = ""
            End If
            If Not Me.C1Vertragselemente.Columns("Mindestvertragsdauer_bis").Value Is System.DBNull.Value Then
                Me.txtMindestvertragsdauerbis.Text = Me.C1Vertragselemente.Columns("Mindestvertragsdauer_bis").Value
            Else
                Me.txtMindestvertragsdauerbis.Text = ""
            End If
            If Not Me.C1Vertragselemente.Columns("Unterzeichnet_am").Value Is System.DBNull.Value Then
                Me.txtUnterzeichnetam.Text = Me.C1Vertragselemente.Columns("Unterzeichnet_am").Value
            Else
                Me.txtUnterzeichnetam.Text = ""
            End If
            If Not Me.C1Vertragselemente.Columns("Gekuendigt_am").Value Is System.DBNull.Value Then
                Me.txtGekuendigtam.Text = Me.C1Vertragselemente.Columns("Gekuendigt_am").Value
            Else
                Me.txtGekuendigtam.Text = ""
            End If
            If Not Me.C1Vertragselemente.Columns("Gekuendigt_per").Value Is System.DBNull.Value Then
                Me.txtGekuendigtper.Text = Me.C1Vertragselemente.Columns("Gekuendigt_per").Value
            Else
                Me.txtGekuendigtper.Text = ""
            End If
            Me.cboxSecurityLevel.SelectedValue = Me.C1Vertragselemente.Columns("SecurityLevelNr").Value
            Try
                Me.rbbefristet.Checked = Me.C1Vertragselemente.Columns("befristet_unbefristet").Value
                If Me.rbbefristet.Checked = False Then Me.rbUnbefristet.Checked = True
            Catch
                Me.rbbefristet.Checked = False
                Me.rbUnbefristet.Checked = True
            End Try
            Me.txtErstelltam.Text = Me.C1Vertragselemente.Columns("Erstellt_am").Value
            Me.txtMutiertam.Text = Me.C1Vertragselemente.Columns("Mutiert_am").Value
            Me.txtMutierer.Text = Me.C1Vertragselemente.Columns("Mutierername").Value
            Try
                Me.cbaktiv.Checked = Me.C1Vertragselemente.Columns("aktiv").Value = True
            Catch ex As Exception
                Me.cbaktiv.Checked = True
            End Try
        Catch ex As Exception
        End Try
    End Sub

    Private Function update_details(ByRef s As String, ByVal c1element As String)
        Try
            If Not Me.C1Vertragselemente.Columns(c1element).Value Is System.DBNull.Value Then
                s = Me.C1Vertragselemente.Columns(c1element).Value
            Else
                s = ""
            End If
        Catch ex As Exception
            s = ""
        End Try
    End Function
    ''' <summary>
    ''' Reihenfolge der Register im Tabcontrol anpassen
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Order_Tabcontrol()
        Try
            If Me.Profil.sV_Register.Value = "" Then Exit Sub
            Dim tabs() As String
            Dim i As Integer = 0
            tabs = Me.Profil.sV_Register.Value.Split(";")
            For Each tb As String In tabs
                If tb = "" Then Exit For
                For Each tbp As TabPage In Me.TabControlDiverse.TabPages
                    If tbp.Text = tb Then
                        Try
                            Me.TabControlDiverse.TabPages.Remove(tbp)
                        Catch
                        End Try
                        Try
                            Me.TabControlDiverse.TabPages.Insert(i, tbp)
                        Catch
                        End Try
                        i = i + 1
                    End If
                Next
            Next
        Catch
        End Try
    End Sub
    ''' <summary>
    ''' Kündigungsfristen aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Kuendigungsfrist()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Kuendigungsfristen.Enabled = False
        Me.Vertragselement.Get_Kuendigungsfristen(Me.C1Kuendigungsfristen, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        '        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Kuendigungsfristen, "Kuendigungsfrist", Me.Vertragselement.Kuendigungsfristen.Tabledata)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Kuendigungsfristen, "Kuendigungsfrist", Me.Vertragselement.Kuendigungsfristen.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)

        Me.C1Kuendigungsfristen.Enabled = True
        Me.Vertragselement.dispose()
    End Sub
    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Kuendigungsfristen_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Kuendigungsfristen.FetchRowStyle
        Try
            If Me.C1Kuendigungsfristen.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub

    ''' <summary>
    ''' Kontakte aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Kontakte()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Kontakte.Enabled = False
        Me.Vertragselement.Get_Vertragskontakte(Me.C1Kontakte, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        '        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Kontakte, "Vertragskontakt", Me.Vertragselement.Vertragskontakte.Tabledata)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Kontakte, "Vertragskontakt", Me.Vertragselement.Vertragskontakte.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Me.C1Kontakte.Enabled = True
        Me.Vertragselement.dispose()
    End Sub
    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Kontakte_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Kontakte.FetchRowStyle
        Try
            If Me.C1Kontakte.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub
    ''' <summary>
    ''' Dokumente aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Dokumente()
        Try
            Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
            Me.C1Dokumente.Enabled = False
            Me.Vertragselement.Get_Dokumente(Me.C1Dokumente, Me.C1Vertragselemente.Columns("Vertragselementnr").Value, Me.ImageListeDocIcon)
            '        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Dokumente, "Dokument", Me.Vertragselement.dokumente.Tabledata.Tables(0), False)
            Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Dokumente, "dokument", Me.Vertragselement.dokumente, Me.Profil.sV_Aktiv_Vertragselemente.Value)
            Me.C1Dokumente.Enabled = True
            Me.Vertragselement.dispose()
        Catch ex As Exception
        End Try
    End Sub
    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Dokumente_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Dokumente.FetchRowStyle
        Try
            If Me.C1Dokumente.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub
    ''' <summary>
    ''' Ereignisse aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Ereignisse()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Ereignisse.Enabled = False
        Me.Vertragselement.Get_Vertragsereignisse(Me.C1Ereignisse, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Ereignisse, "Vertragsereignis", Me.Vertragselement.Vertragsereignisse.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Me.C1Ereignisse.Enabled = True
        Me.Vertragselement.dispose()
    End Sub

    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Ereignisse_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Ereignisse.FetchRowStyle
        Try
            If Me.C1Ereignisse.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub

    ''' <summary>
    ''' Pendenzen aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Pendenzen()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Ereignisse.Enabled = False
        Me.Vertragselement.Get_Pendenzen(Me.C1Pendenzen, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Pendenzen, "Pendenz", Me.Vertragselement.Pendenzen.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Me.C1Pendenzen.Enabled = True
        Me.Vertragselement.dispose()
    End Sub

    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Pendenzen_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Pendenzen.FetchRowStyle
        Try
            If Me.C1Pendenzen.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
            If Me.C1Pendenzen.Columns("PendenzStatusNr").CellValue(e.Row) < 3 Then
                If Me.C1Pendenzen.Columns("Termin").Value < Now Then
                    Dim fnt As Font = e.CellStyle.Font
                    e.CellStyle.ForeColor = Color.Red
                End If
            End If
        Catch
        End Try
    End Sub

    ''' <summary>
    ''' Referenzverträge aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Referenzvertraege()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1ReferenzVertraege.Enabled = False
        Me.Vertragselement.Get_Vertragselement_Referenzen(Me.C1ReferenzVertraege, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1ReferenzVertraege, "Vertragselement_Referenz", Me.Vertragselement.Vertragselement_Referenzen.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Try
            Dim bmp0 As New Bitmap(Me.ImageListeReferenzVertrasege.Images(1))
            Dim bmp1 As New Bitmap(Me.ImageListeReferenzVertrasege.Images(0))
            Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
            Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()

            v0.DisplayValue = bmp0
            v0.Value = 0

            v1.DisplayValue = bmp1
            v1.Value = 1
            Me.C1ReferenzVertraege.Columns("Owner").ValueItems.Values.Add(v0)
            Me.C1ReferenzVertraege.Columns("Owner").ValueItems.Values.Add(v1)
            Me.C1ReferenzVertraege.Columns("Owner").ValueItems.Translate = True
            Me.C1ReferenzVertraege.Enabled = True
        Catch ex As Exception
        End Try
        Me.Vertragselement.dispose()

    End Sub

    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1ReferenzVertraege_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1ReferenzVertraege.FetchRowStyle
        Try
            If Me.C1ReferenzVertraege.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
        'Try
        '    If Me.C1ReferenzVertraege.Columns("Owner").CellValue(e.Row) = 0 Then
        '        e.CellStyle.BackColor = Color.CadetBlue
        '    End If
        'Catch ex As Exception

        'End Try
    End Sub

    ''' <summary>
    ''' Services aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_services()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Services.Enabled = False
        Me.Vertragselement.Get_Services(Me.C1Services, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Services, "Vertragsleistung", Me.Vertragselement.Services.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Me.C1Services.Enabled = True
        Me.Vertragselement.dispose()
    End Sub

    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Services_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Services.FetchRowStyle
        Try
            If Me.C1Services.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub

    ''' <summary>
    ''' History aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_History()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1History.Enabled = False
        Me.Vertragselement.Get_History(Me.C1History, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1History, "History", Me.Vertragselement.History.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)

        Me.C1History.Enabled = True
        Me.Vertragselement.dispose()
    End Sub

    ''' <summary>
    ''' Applikationen aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Applikationen()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Applikationen.Enabled = False
        Me.Vertragselement.Get_Applikationen(Me.C1Applikationen, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Applikationen, "Vertragselementapplikation", Me.Vertragselement.VertragselementApplikationen.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Me.C1Applikationen.Enabled = True
        Me.Vertragselement.dispose()
    End Sub

    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Applikationen_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Applikationen.FetchRowStyle
        Try
            If Me.C1Applikationen.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub

    ''' <summary>
    ''' Aktivitäten aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Aktivitaeten()
        Me.Vertragselement = New TKB.VV.Vertrag.clsVertragselement
        Me.C1Aktivitaeten.Enabled = False
        Me.Vertragselement.Get_Aktivitaeten(Me.C1Aktivitaeten, Me.C1Vertragselemente.Columns("Vertragselementnr").Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Aktivitaeten, "Aktivitaet", Me.Vertragselement.Aktivitaeten.Tabledata.Tables(0), Me.Profil.sV_Aktiv_Vertragselemente.Value)
        sec.Set_Form_Security(Me)
        Me.C1Aktivitaeten.Enabled = True
        Me.Vertragselement.dispose()
    End Sub
    ''' <summary>
    ''' Bei inaktiven Einträgen Schrift "grau" setzen und durchstreichen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Aktivitaeten_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Aktivitaeten.FetchRowStyle
        Try
            If Me.C1Aktivitaeten.Columns("aktiv").CellValue(e.Row) = False Then
                Dim FNT As Font = e.CellStyle.Font
                e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
                e.CellStyle.ForeColor = Color.Gray
            End If
        Catch
        End Try
    End Sub

#End Region

#Region "Generic Event-Handler-Ereignisse"

    Private Sub evh_FormularVertragelement_Closed(ByVal Vertragspartnernr As Integer, ByVal Vertragselementnr As Integer) Handles evh.FormularVertragelement_Closed
        Try
            Refresh_All()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub evh_FormularVertragspartner_Closed(ByVal Vertragspartnernr As Integer) Handles evh.FormularVertragspartner_Closed
        Try
            Refresh_All()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Refresh_Register() Handles evh.Update_Uebersicht
        Me.Update_Details()
    End Sub
#End Region

#Region "Dokumente"
    ''' <summary>
    ''' Dokument ab Datenbank anzeigen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub DokumentAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
        Try
            Dim tmpdok As New TKB.VV.DMS.clsDok
            tmpdok.Show_Doc(Me.C1Dokumente.Columns("Dokumentnr").Value)
            tmpdok.Dispose()
        Catch ex As Exception
        End Try
    End Sub
    ''' <summary>
    ''' Dokument ab Datenbank anzeigen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Steht der MenuEintrag DokumentAnzeigenToolStripMenuIte nicht 
    ''' zur Verfügung, muss der Doppelclick ignoriert werden</remarks>
    Private Sub C1Dokumente_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Dokumente.DoubleClick
        If Me.DokumentAnzeigenToolStripMenuItem.Enabled = False Then
            Exit Sub
        End If
        Try
            Me.DokumentAnzeigenToolStripMenuItem_Click(sender, e)
        Catch
        End Try
    End Sub
#End Region

#Region "Profile"
    ''' <summary>
    ''' Profilliste des Mitarbeiters aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Profile_Aktualisieren(Optional ByVal Aktuelles_Profil As String = "")
        Me.Profil.Get_Profil_By_Mitarbeiter()
        Me.TSComboboxProfil.Items.Clear()
        Dim i As Integer = 0
        Dim SelIndex As Integer = -1
        For Each dr As DataRow In Me.Profil.Profildata.Rows
            Me.TSComboboxProfil.Items.Add(dr.Item("Bezeichnung"))
            If Aktuelles_Profil = dr.Item("Bezeichnung") Then SelIndex = i
            i = i + 1
        Next
        If SelIndex > -1 Then Me.TSComboboxProfil.SelectedIndex = SelIndex
    End Sub
    ''' <summary>
    ''' Bestehendes Profl auswählen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSComboboxProfil_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSComboboxProfil.SelectedIndexChanged
        Me.C1Vertragselemente.DataSource = Nothing
        Me.Profil.Set_Aktuelles_Profil(Me.TSComboboxProfil.Text)
        Me.cbInaktiv.Checked = Me.Profil.bV_Aktiv_Vertragspartner = True
        Me.rbSortVertragspartner.Checked = False
        Me.rbSortVertragstyp.Checked = False
        If Me.Profil.bSelektionsart.Value = True Then
            Me.rbSortVertragspartner.Checked = True
        Else
            Me.rbSortVertragstyp.Checked = True
        End If
        Me.TreeStruktur_Click(sender, e)
        Me.Order_Tabcontrol()
    End Sub
    ''' <summary>
    ''' Neues Profil erstellen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBrnNeuesProfil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim a As String = InputBox(msg.Get_Meldungstext(503))
        If a <> "" Then
            If UCase(a) = "STANDARD" Then
                msg.show_standardmessage(504, MsgBoxStyle.Information)
                Exit Sub
            End If
            Me.Profil.Set_Aktuelles_Profil(Me.Profil.Add_New(a))
            Me.ProfilspeichernToolStripMenuItem_Click(sender, e)
            Me.Profile_Aktualisieren(a)
        End If
    End Sub


#End Region



    Private Sub GruppieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GruppieToolStripMenuItem.Click
        If Me.C1Vertragselemente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Normal Then
            Me.C1Vertragselemente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.GroupBy
        Else
            Me.C1Vertragselemente.DataView = C1.Win.C1TrueDBGrid.DataViewEnum.Normal
        End If
    End Sub


    Private Sub RegisterSpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegisterSpeichernToolStripMenuItem.Click
        Dim s As String = ""
        For Each tbp As TabPage In Me.TabControlDiverse.TabPages
            s = s + tbp.Text + ";"
        Next
        Me.Profil.sV_Register = New SqlString(CType(s, String))
        Me.Profil.Save_Data()
        Me.Docs.Save_LayoutFile(Me.C1Vertragselemente, 1, Me.Profil.iProfilnr.Value)
        msg.show_standardmessage_ReplaceText(505, MsgBoxStyle.Information, Me.Profil.sBezeichnung.Value, "")

    End Sub
    ''' <summary>
    ''' Neues Profil erstellen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>

    Private Sub NeuesProfilToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesProfilToolStripMenuItem.Click
        Dim a As String = InputBox(msg.Get_Meldungstext(503))
        If a <> "" Then
            If UCase(a) = "STANDARD" Then
                msg.show_standardmessage(504, MsgBoxStyle.Information)
                Exit Sub
            End If
            Me.Profil.Set_Aktuelles_Profil(Me.Profil.Add_New(a))
            Me.ProfilspeichernToolStripMenuItem_Click(sender, e)
            Me.Profile_Aktualisieren(a)
        End If
    End Sub
    ''' <summary>
    ''' Profil löschen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ProfilLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilLöschenToolStripMenuItem.Click
        If msg.Show_MessageYesNo(500) = MsgBoxResult.Yes Then
            Me.Profil.Delete_Profil(Me.Profil.iProfilnr.Value)
            Profile_Aktualisieren()
        End If
    End Sub

    ''' <summary>
    ''' Profil speichern
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ProfilspeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilspeichernToolStripMenuItem.Click
        Me.Profil.bSelektionsart = New SqlBoolean(CType(Me.rbSortVertragspartner.Checked, Boolean))
        Me.Profil.bV_Aktiv_Vertragspartner = New SqlBoolean(CType(Me.cbInaktiv.Checked, Boolean))
        Me.Profil.sV_Aktiv_Vertragselemente = New SqlString(CType(Me.C1Vertragselemente.Columns("aktiv").FilterText, String))
        Me.Profil.Save_Data()
        Me.Docs.Save_LayoutFile(Me.C1Vertragselemente, 1, Me.Profil.iProfilnr.Value)
        msg.show_standardmessage(502, MsgBoxStyle.Information)
    End Sub

    ''' <summary>
    ''' Profil Editieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ProfilBearbeitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfilBearbeitenToolStripMenuItem.Click
        Dim f As New frmProfilVerwaltung(Me.C1Vertragselemente, Me.Profil.iProfilnr.Value, Me.TabControlDiverse)
        f.ShowDialog()
        Me.Profile_Aktualisieren(f.txtBezeichnung.Text)
        Me.Profil.Get_Profil(Me.Profil.iProfilnr.Value)
        Me.Order_Tabcontrol()
    End Sub
    ''' <summary>
    ''' Alle Knoten im Tree schliessen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub AlleKnotenSchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleKnotenSchliessenToolStripMenuItem.Click
        Me.TreeStruktur.CollapseAll()
    End Sub
    ''' <summary>
    ''' Alle Knoten im Tree öffnen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub AlleKnotenÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleKnotenÖffnenToolStripMenuItem.Click
        Me.TreeStruktur.ExpandAll()

    End Sub

    Private Sub TStxtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TStxtSuche.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.TSBtnSuche_Click(sender, e)
        Else
            Me.TStxtSucheInhalt.Text = ""
        End If
    End Sub

    Private Sub TStxtSucheInhalt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TStxtSucheInhalt.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.TSBtnSucheInhalt_Click(sender, e)
        Else
            Me.TStxtSuche.Text = ""
        End If
    End Sub

    Private Sub TSBtnFilterAufheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnFilterAufheben.Click
        Me.TStxtSucheInhalt.Text = ""
        Me.TStxtSuche.Text = ""
        Strukturen.Get_Struktur(Me.TreeStruktur, 0, Me.cbInaktiv.Checked, 1, "")
        Try
            Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
            Me.TreeStruktur_Click(sender, e)
        Catch ex As Exception
        End Try

    End Sub

    Private Sub EinzelnerVertragsparterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EinzelnerVertragsparterToolStripMenuItem.Click
        Dim t As TKB.VV.Vertrag.Treenode_Descriptor = Me.TreeStruktur.SelectedNode.Tag
        Dim f As New frmVertragsuebersicht(t.Vertragspartnernr)
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

 
    Private Sub txtVertragsende_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtVertragsende.TextChanged, txtVertragsbegin.TextChanged, _
    txtVersionsdatum.TextChanged, txtGekuendigtam.TextChanged, txtGekuendigtper.TextChanged, txtMindestvertragsdauerbis.TextChanged, txtUnterzeichnetam.TextChanged
        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

    ''' <summary>
    ''' Laden der Securitylevel-Daten in die Combobox
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Load_Securitylevel()
        Dim seclevel As New TKB.VV.DB.clsSecurityLevel
        Dim secleveldata As New DataTable

        seclevel.cpMainConnectionProvider = Globals.conn
        Globals.conn.OpenConnection()
        secleveldata = seclevel.SelectAll
        Globals.conn.CloseConnection(True)

        Me.cboxSecurityLevel.DataSource = secleveldata
        Me.cboxSecurityLevel.DisplayMember = "Bezeichnung"
        Me.cboxSecurityLevel.ValueMember = "SecurityLevelNr"

        seclevel.Dispose()
    End Sub

    Private Sub RegisterSpeichernDokumentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegisterSpeichernDokumentToolStripMenuItem.Click
        RegisterSpeichernToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub TreeStruktur_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeStruktur.AfterSelect

        Refresh_Details()
    End Sub
End Class