ITSM/Vertragsverwaltung/Lizenzverwaltung/frmLizenzverwaltung.vb

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Drawing
Imports System.Drawing.Color
Public Class frmLizenzverwaltung

#Region "Deklarationen"
    Dim Lizenz As New TKB.VV.Lizenz.clsLizenz
    Dim Lizenzinformationen As New TKB.VV.Lizenz.clsLizenzinformationen
    Dim Lizenztyp As New DataTable
    Dim clsLizenztyp As New TKB.VV.DB.clsLizenztyp
    Dim ve As New TKB.VV.vertrag.clsVertragselement
    Dim Applikationnr As Integer = 0
    Dim clizenzkauf As New TKB.VV.Lizenz.clsLizenzkauf
    Dim Lizenzschluessel As New TKB.VV.Lizenz.ClsLizenzschluessel
    Dim Functions_Disabled As Boolean = False

    Dim Treeviewdata_Lizenz As New TKB.VV.Lizenz.clsLizenzTree
    Dim Treeviewdata_Lizenz_Suche As New TKB.VV.Lizenz.clsLizenzTree
    ' Dim TreeSuche As New TreeView
    Dim Suchresultate As New DataTable
    Dim MaxSuchTreffer As Integer = 0
    Dim TreeParent As New TKB.VV.Lizenz.clsLizenzTree

    Dim sec As New TKB.VV.Utils.MySecurity

    Dim msg As New TKB.VV.Utils.MyMessage
    Dim FormReadonly As Boolean = False
    Dim FormDataChanged As Boolean = False
    Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
    Private Anzeige As Boolean = False

    Dim Aktuelle_Lizenz As Integer = 0
    Dim IsSturkturElement As Boolean = False
    Dim Multiline As New TabControlMultiLine
    Dim Aktueller_Vertragspartner As Integer = 0
    Dim From_Applikationnr As Integer = 0

    ''' <summary>
    ''' Generic Event-Handler
    ''' </summary>
    ''' <remarks></remarks>
    Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
    Dim OnLoad As Boolean = True
    Dim AktivNode As TreeNode

    Dim Applikation As New TKB.VV.Applikation.clsApplikation
    Dim Treeviewdata As New TKB.VV.Applikation.clsApplikationTree
    Dim treeviewdata_Suche As New TKB.VV.Applikation.clsApplikationTree
    Dim OnRefresh As Boolean = False

#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
        If Me.FormReadonly = True And Not Me.IsSturkturElement Then Exit Sub
        If Check_Changes() = False Then
            e.Cancel = True
        Else
            

            Lizenz.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 And Not Me.IsSturkturElement 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
                    Save_data()
                    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 "Applikation_Tree"
    Sub Applikation_Suchen()
        Select Case Me.TsBtnSuchArt.Text
            Case "Applikation-Filter"
                Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
                Try
                    Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
                Catch ex As Exception

                End Try
            Case "Applikation-Suche"
                If Me.tstxtSuche.Text = "" Then
                    treeviewdata_Suche.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked, False)
                    Try
                        Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
                    Catch ex As Exception

                    End Try

                Else
                    treeviewdata_Suche.Load_Tree(Me.TreeSuche, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked, True)
                    Me.MaxSuchTreffer = treeviewdata_Suche.MaxSuchTreffer
                    If Me.MaxSuchTreffer > -1 Then
                        Me.TSBtnFirst.Enabled = True
                        Me.TSBtnPrevious.Enabled = True
                        Me.TSBtnNext.Enabled = True
                        Me.TSBtnLast.Enabled = True
                        Search_Node(0)
                    Else
                        msg.show_standardmessage(873, MsgBoxStyle.Information)
                    End If

                End If

            Case "Architektur-Suche"
                If Me.tstxtSuche.Text = "" Then
                    treeviewdata_Suche.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, True, Me.rbsortalpha.Checked, True)
                    Try
                        Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
                    Catch ex As Exception

                    End Try
                Else
                    treeviewdata_Suche.Load_Tree(Me.TreeSuche, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, True, Me.rbsortalpha.Checked, True)
                    Me.MaxSuchTreffer = treeviewdata_Suche.MaxSuchTreffer
                    If Me.MaxSuchTreffer > -1 Then
                        Me.TSBtnFirst.Enabled = True
                        Me.TSBtnPrevious.Enabled = True
                        Me.TSBtnNext.Enabled = True
                        Me.TSBtnLast.Enabled = True
                        Search_Node(0)
                    Else
                        msg.show_standardmessage(873, MsgBoxStyle.Information)
                    End If
                End If

        End Select

    End Sub

    Private Sub ApplikationSucheToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplikationSucheToolStripMenuItem.Click
        Me.TsBtnSuchArt.Text = Me.ApplikationSucheToolStripMenuItem.Text
        Me.TSBtnFirst.Enabled = True
        Me.TSBtnPrevious.Enabled = True
        Me.TSBtnNext.Enabled = True
        Me.TSBtnLast.Enabled = True
        treeviewdata_Suche.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked, False)
        Me.TSBtnSuche_Click(sender, e)
    End Sub

  
    Private Sub ApplikationFilterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplikationFilterToolStripMenuItem.Click
        Me.TsBtnSuchArt.Text = Me.ApplikationFilterToolStripMenuItem.Text
        Me.TSBtnFirst.Enabled = False
        Me.TSBtnPrevious.Enabled = False
        Me.TSBtnNext.Enabled = False
        Me.TSBtnLast.Enabled = False
        Me.TSBtnSuche_Click(sender, e)
    End Sub

    Private Sub AlleApplToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AlleApplToolStripMenuItem.Click
        Me.TSDropDownApplikationen.Text = "Alle Applikationen"
    End Sub

    Private Sub DeinstallierteApplToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DeinstallierteApplToolStripMenuItem.Click
        Me.TSDropDownApplikationen.Text = "Deinstallierte Applikationen"
    End Sub

    Private Sub InstallierteApplToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles InstallierteApplToolStripMenuItem.Click
        Me.TSDropDownApplikationen.Text = "Installierte Applikationen"
    End Sub

#End Region

#Region "Formular"

    Sub New()
        InitializeComponent()
    End Sub

    Sub New(ByVal LizenzNr As Integer, Optional ByVal Anzeige As Boolean = False, Optional ByVal Applikationnr As Integer = 0)
        InitializeComponent()
        Me.Aktuelle_Lizenz = LizenzNr
        Me.FormReadonly = Anzeige
        Me.From_Applikationnr = Applikationnr
        If Me.Aktuelle_Lizenz <> 0 Then
            Dim Lic As New TKB.VV.DB.clsLizenz
            Lic.cpMainConnectionProvider = Globals.conn
            Lic.iLizenzNr = New SqlInt32(CType(Me.Aktuelle_Lizenz, Int32))
            Lic.SelectOne()
            Lic.Dispose()
        End If
    End Sub

    Sub New(ByVal CreateNew As Boolean)
        InitializeComponent()
        If CreateNew Then
            Me.Aktuelle_Lizenz = Me.Lizenz.Add_New
        End If
    End Sub

   
    Friend selectPoint As New System.Drawing.Point()


    Private Sub TreeApplikationen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeApplikationen.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.GetNodeAt(selectPoint)

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

    End Sub


    Private Sub TreeLizenzen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeLizenzen.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.GetNodeAt(selectPoint)

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

    End Sub


    Private Sub frmLizenzverwaltung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OnLoad = True
        cboxNurAktive.CheckState = CheckState.Checked
        Try
        Catch
        End Try
        'Try
        '    Treeviewdata.Load_Tree(Me.TreeApplikationen, Me.cbaktiv.CheckState, "", Me.cboxNurAktive.Checked)
        'Catch ex As Exception

        'End Try
        'Treeviewdata_Lizenz.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.Checked)
        If Anzeige = True Then
            Me.FormReadonly = True
            Me.TSBtnSuche.Enabled = False
        Else
            Me.TSBtnSuche.Enabled = True
        End If
        sec.Set_Form_Security(Me)
        Load_Securitylevel()

        If Anzeige = True Then
            Me.FormReadonly = True
            Me.TSBtnSuche.Enabled = False
        Else
            Me.TSBtnSuche.Enabled = True
        End If
        sec.Set_Form_Security(Me)
        If Me.TSBtnNew.Visible = False Then
            Me.FormReadonly = True
            Me.TSBtnNew.Enabled = False
            Me.TSBtnDelete.Enabled = False
        Else
            Me.FormReadonly = False
        End If

        Try
            TreeParent.Load_Tree(Me.cbboxParentTree.TreeView, True)
        Catch ex As Exception

        End Try

        AddChanges(Me)
        Try
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
            If Me.FormReadonly Then sec.Set_Form_Readonly(Me)
        Catch ex As Exception
            Disable_Functions()
        End Try
        If Me.FormReadonly Then sec.Set_Form_Readonly(Me)
        Me.OnLoad = False
        Try
            If From_Applikationnr > 0 Then
                Me.TreeApplikationen.SelectedNode = Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, From_Applikationnr, "")
                Me.TreeLizenzen.SelectedNode = Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, Me.Aktuelle_Lizenz, "")
            End If
        Catch EX As Exception
        End Try
        Me.OnLoad = False
    End Sub


    Sub Disable_Functions()
        'Me.TSBtnDelete.Enabled = False
        'Me.TSBtnSave.Enabled = False
        'Me.ToolStripButtonVEApplNew.Enabled = False
        'Me.ToolStripButtonVEApplDelete.Enabled = False
        'Me.TSBtnLizenzNew.Enabled = False
        'Me.NeuerDatensatzToolStripMenuItem1.Enabled = False
        'Me.NeuerDatensatzToolStripMenuItem.Enabled = False
        'Me.NeuerDatensatzToolStripMenuItem1.Enabled = False
        'Me.txtBezeichnung.Enabled = False
        'Me.txtbemerkung.Enabled = False
        'Me.cbaktiv.Enabled = False
        'Me.cbStrukturelement.Enabled = False
        'Me.cbboxParentTree.Enabled = False
        'Me.btnSearchLizenz.Enabled = False
        'Me.cboxSecurityLevel.Enabled = False
        'Functions_Disabled = True
    End Sub
    Sub Enable_Functions()
        'If Functions_Disabled Then
        '    Me.TSBtnDelete.Enabled = True
        '    Me.TSBtnSave.Enabled = True
        '    Me.ToolStripButtonVEApplNew.Enabled = True
        '    Me.ToolStripButtonVEApplDelete.Enabled = True
        '    Me.NeuerDatensatzToolStripMenuItem1.Enabled = True
        '    Me.NeuerDatensatzToolStripMenuItem.Enabled = True
        '    Me.NeuerDatensatzToolStripMenuItem1.Enabled = True
        '    Me.txtBezeichnung.Enabled = True
        '    Me.txtbemerkung.Enabled = True
        '    Me.cbaktiv.Enabled = True
        '    Me.cbStrukturelement.Enabled = True
        '    Me.cbboxParentTree.Enabled = True
        '    Me.btnSearchLizenz.Enabled = True
        '    Me.cboxSecurityLevel.Enabled = True
        '    Functions_Disabled = False

        'End If
    End Sub
    Private Sub Treelizenzen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeLizenzen.AfterSelect
        If Me.Check_Changes = False Then Exit Sub
        Me.AktivNode = Me.TreeLizenzen.SelectedNode
        Get_Data(Me.TreeLizenzen.SelectedNode.Tag)
        If Me.cbStrukturelement.Checked = True Then Me.ToolStripButtonVEApplNew.Visible = False Else Me.ToolStripButtonVEApplNew.Visible = True
    End Sub
#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>
    ''' Sicherungs-Button betätigt
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Cursor = Cursors.WaitCursor
        Try
            Me.TreeLizenzen.BeginUpdate()
            Me.Save_data()
            Me.txtMutiertam.Text = Me.Lizenz.daMutiert_am.ToString
            Me.FormDataChanged = False
            Dim savenr As Integer = Me.Lizenz.iLizenzNr.Value
            TreeParent.Load_Tree(Me.cbboxParentTree.TreeView, True)
            Me.Refresh_Lizenztree()
            Me.TreeLizenzen.SelectedNode = Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, savenr, "")
            Try
                Me.TreeLizenzen.SelectedNode.Text = Me.Lizenz.sBezeichnung.Value.ToString
            Catch ex As Exception

            End Try
            Me.TreeLizenzen.EndUpdate()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.Cursor = Cursors.Default
    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
        If Me.Check_Changes = False Then Exit Sub
        Dim f As New frm_Lizenz_VEAppl(0, True)
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            If f.cbStrukturelement.Checked = True Then
                NichtZugeordneteLizenzelementeToolStripMenuItem_Click(sender, e)
                Me.TreeLizenzen.SelectedNode = Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, f.Aktuelle_Lizenznr, "")
                Try
                    Me.TreeLizenzen.SelectedNode.Text = Me.Lizenz.sBezeichnung.Value.ToString
                Catch ex As Exception

                End Try
                Me.txtBezeichnung.Focus()
            Else
                Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
                Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, f.SelectedApplikation, "")
                Me.TreeLizenzen.SelectedNode = Me.Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, f.Aktuelle_Lizenznr, "")
            End If
        End If
    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
        If msg.Show_MessageYesNo(101) = MsgBoxResult.Yes Then
            Me.cbaktiv.Checked = False
            Me.TSBtnSave_Click(sender, e)
        End If
    End Sub

    ''' <summary>
    ''' Menu Beenden
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.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
        If Not Me.FormReadonly Then Check_Changes()
        Dim i As Integer
        Me.TSBtnFirst.Enabled = False
        Me.TSBtnPrevious.Enabled = False
        Me.TSBtnNext.Enabled = False
        Me.TSBtnLast.Enabled = False
        Applikation_Suchen()
        Exit Sub
    End Sub

    Sub Suchen()
        If Me.tstxtSuche.Text = "" Then
            Treeviewdata_Lizenz_Suche.Load_Tree(Me.TreeLizenzen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, Me.rbsortalpha.Checked, False)
            Try
                Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
            Catch ex As Exception
                Disable_Functions()
            End Try

        Else
            Treeviewdata_Lizenz_Suche.Load_Tree(Me.TreeSuche, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, Me.rbsortalpha.Checked, True)
            Me.MaxSuchTreffer = Treeviewdata_Lizenz_Suche.MaxSuchTreffer
            If Me.MaxSuchTreffer > -1 Then
                Me.TSBtnFirst.Enabled = True
                Me.TSBtnPrevious.Enabled = True
                Me.TSBtnNext.Enabled = True
                Me.TSBtnLast.Enabled = True
                Search_Node(0)
            Else
                msg.show_standardmessage(873, MsgBoxStyle.Information)
            End If

        End If


        'Select Case Me.TsBtnSuchArt.Text
        '    Case "Lizenz-Filter"
        '        Treeviewdata_Lizenz.Load_Tree(Me.TreeLizenzen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
        '        Try
        '            Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
        '        Catch ex As Exception

        '        End Try
        '    Case "Lizenz-Suche"
        'End Select

    End Sub

    Private Sub TSBtnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnFirst.Click
        Me.SearchRecID = 0
        Me.Search_Node(Me.SearchRecID)

    End Sub

    Private Sub TSBtnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnPrevious.Click
        Me.SearchRecID = Me.SearchRecID - 1
        If Me.SearchRecID < 0 Then Me.SearchRecID = Me.MaxSuchTreffer
        Me.Search_Node(Me.SearchRecID)

    End Sub

    Private Sub TSBtnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNext.Click
        Me.SearchRecID = Me.SearchRecID + 1
        If Me.SearchRecID > Me.MaxSuchTreffer Then Me.SearchRecID = 0
        Me.Search_Node(Me.SearchRecID)

    End Sub

    Private Sub TSBtnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLast.Click
        Me.SearchRecID = Me.MaxSuchTreffer
        Me.Search_Node(Me.SearchRecID)
    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)
        End If
    End Sub

 

    Private Sub cboxNurAktive_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboxNurAktive.CheckStateChanged
        If Me.Check_Changes Then
            If Me.cboxNurAktive.CheckState = CheckState.Checked Then Me.cboxNurAktive.Text = "Installierte"
            If Me.cboxNurAktive.CheckState = CheckState.Unchecked Then Me.cboxNurAktive.Text = "Deinstallierte"
            If Me.cboxNurAktive.CheckState = CheckState.Indeterminate Then Me.cboxNurAktive.Text = "Alle"
            '           MsgBox(Me.cboxNurAktive.CheckState.ToString)
            Try
                If Me.tstxtSuche.Text <> "" Then
                    Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
                    Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
                    Me.FormDataChanged = False
                Else
                    Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
                    Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
                    Me.FormDataChanged = False
                End If
            Catch ex As Exception
            End Try
        End If


    End Sub

    Private Sub NeuesLizenzelementToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesLizenzelementToolStripMenuItem.Click
        TSBtnNew_Click(sender, e)
    End Sub

    Private Sub TSBtnFilterAufheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnFilterAufheben.Click
        Me.tstxtSuche.Text = ""
        Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
        Me.TSBtnFirst.Enabled = False
        Me.TSBtnPrevious.Enabled = False
        Me.TSBtnNext.Enabled = False
        Me.TSBtnLast.Enabled = False
        Try
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
        Catch ex As Exception

        End Try
    End Sub

#End Region

#Region "Daten"
    ''' <summary>
    ''' Daten ab DB laden uns ins Form befüllen
    ''' </summary>
    ''' <param name="Vertragselementnr"></param>
    ''' <remarks></remarks>
    Private Sub Get_Data(ByVal Lizenznr As Integer)
        Try
            Me.Cursor = Cursors.WaitCursor
            Me.C1Lizenzkäufe.DataSource = Nothing
            Me.C1Lizenzschluessel.DataSource = Nothing
            Lizenz.Get_Lizenz(Lizenznr)
            Try
                Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
            Catch ex As Exception
            End Try

            Me.txtBezeichnung.Text = Lizenz.sBezeichnung.Value
            Me.txtbemerkung.Text = Lizenz.sBeschreibung.Value

            Dim i As Integer = Me.cbboxParentTree.TreeView.Height
            Me.cbboxParentTree.TreeView.Height = 0
            Me.cbboxParentTree.TreeView.Visible = True
            Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, Lizenz.iParentID.Value, "")
            Application.DoEvents()
            Me.cbboxParentTree.TreeView.Visible = False
            Me.cbboxParentTree.TreeView.Height = i
            Me.txtErstelltam.Text = Lizenz.daErstellt_am.ToString
            Me.txtMutiertam.Text = Lizenz.daMutiert_am.ToString
            Me.txtMutierer.Text = Lizenz.iMutierer.ToString
            Me.txtMutierer.Text = Lizenz.MutiererText
            Try
                Me.cbaktiv.Checked = Lizenz.bAktiv.Value = True

            Catch ex As Exception
                Me.cbaktiv.Checked = True
            End Try
            Me.cbStrukturelement.Checked = Lizenz.bStrukturelement.Value = True

            Me.cboxSecurityLevel.SelectedValue = Me.Lizenz.iSecurityLevelNr.Value

            'Me.cbboxVertragselement.SelectedValue = Me.Lizenz.ve.iVertragselementnr.Value

            'Me.txtVertragselement.Text = Me.Lizenz.ve.sBezeichnung.Value.ToString
            'Me.txtPartner.Text = Me.Lizenz.vp.sNameZ1.Value.ToString
            'Me.txtApplikation.Text = Me.Lizenz.ap.sBezeichnung.Value
            'Me.Applikationnr = Me.Lizenz.ap.iApplikationNr.Value
            'Me.txtvaerstelltam.Text = Me.Lizenz.va.daErstellt_am.ToString
            'Me.txtvamutiertam.Text = Me.Lizenz.va.daMutiert_am.ToString
            'Me.txtvamutierer.Text = Me.Lizenz.va.iMutierer.ToString
            'Me.cbvaaktiv.Checked = Me.Lizenz.va.bAktiv.Value = True


            If Not Anzeige And Not Me.FormReadonly Then
                For Each o As Object In Me.ToolStripMain.Items
                    If o.GetType.Name = "ToolStripButton" Then
                        o.Enabled = True
                    End If
                Next
            End If

            enable_disable_functions()
            sec.Set_Form_Security(Me)
            If Me.FormReadonly Then
                Me.TSBtnNew.Enabled = False
                Me.TSBtnDelete.Enabled = False
                Me.TSBtnEdit.Enabled = False
                Me.CtxMenuStruktur.Enabled = False
                Me.ToolStrip3.Enabled = False
                Me.ctxmenuVertragselementApplikatoin.Enabled = False
                Me.ToolStripLizenz.Enabled = False
                Me.ctxmenuLizenzkauf.Enabled = False
                Me.ToolStrip2.Enabled = False
                Me.ctxmenuLizenzschluessel.Enabled = False
                sec.Set_Form_Readonly(Me)
            End If
            Me.FormDataChanged = False
            Me.Cursor = Cursors.Default

        Catch ex As Exception
            'MsgBox(ex.Message)
            Me.Cursor = Cursors.Default
            Try
                For Each ctl As ToolStripButton In Me.ToolStripMain.Items
                    ctl.Enabled = False
                Next
            Catch
            End Try
            Me.TSBtnQuit.Enabled = True
            Me.TSBtnSuche.Enabled = True
        End Try
            Me.FormDataChanged = False
    End Sub

    Private Sub Set_Checkedlistbox(ByRef clb As CheckedListBox, ByRef data As DataTable)
        Dim i As Integer
        For i = 0 To clb.Items.Count - 1
            clb.SetItemCheckState(i, CheckState.Unchecked)
        Next

        Dim chk As Integer = 0
        Dim ii As Integer
        Dim oc As CheckedListBox.ObjectCollection = clb.Items
        For i = 0 To data.Rows.Count - 1
            For ii = 0 To oc.Count - 1
                If oc.Item(ii).item(0) = data.Rows(i).Item(2) Then
                    clb.SetItemCheckState(ii, CheckState.Checked)
                End If
            Next
        Next
    End Sub
    ''' <summary>
    ''' Daten ab Form speichern
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Save_data()
        Me.FormDataChanged = False
        Me.Lizenz.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
        Me.Lizenz.sBeschreibung = New SqlString(CType(Me.txtbemerkung.Text, String))
        Me.Lizenz.iParentID = New SqlInt32(CType(Me.cbboxParentTree.SelectedNode.Tag, Int32))
        Me.Lizenz.iSecurityLevelNr = New SqlInt32(CType(Me.cboxSecurityLevel.SelectedValue, Int32))
        Me.Lizenz.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
        Me.Lizenz.bStrukturelement = New SqlBoolean(CType(Me.cbStrukturelement.Checked, Boolean))
        Me.Lizenz.Save_Data()
        Me.AktivNode.Text = Me.txtBezeichnung.Text
    End Sub

#End Region

#Region "Security"
    ''' <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
#End Region

#Region "Suche"
    Dim SearchRecID As Integer = 0
    Dim Found As Boolean = False
    Dim Foundnode As TreeNode
    Private Function Search_Node(ByVal recid As Integer) As Boolean
        Dim suchtext As String = "*** " + Trim(Str(recid))
        Found = False
        Dim nodeX As TreeNode
        For Each nodeX In Me.TreeSuche.Nodes
            If Tranverse_Nodes1(Me.TreeSuche, nodeX, Suchtext) Then
                Exit For
            End If
        Next
        If Found = True Then
            Found = False
            SearchNode(Foundnode.Text)

            If Found Then
                Me.TreeApplikationen.SelectedNode = Foundnode
                Me.TreeApplikationen.Focus()
            End If
        End If

    End Function

    Private Function SearchNode(ByVal Suchtext As String) As Boolean
        Found = False
        Dim nodeX As TreeNode
        For Each nodeX In Me.TreeApplikationen.Nodes
            If TranverseNodes1(Me.TreeApplikationen, nodeX, Suchtext) Then
                Exit For
            End If
        Next
        If Found = True Then
            Me.TreeApplikationen.SelectedNode = Me.Foundnode
            Me.TreeApplikationen.Focus()
        End If
    End Function

    Private Function Tranverse_Nodes1(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As String) As Boolean
        Dim nodeX As TreeNode
        If selectedNode.Tag = SearchObject Then
            Me.Foundnode = selectedNode
            Found = True
            Tranverse_Nodes1 = True
            Exit Function
        End If
        For Each nodeX In selectedNode.Nodes
            Try
                If nodeX.Tag = SearchObject Then
                    nodeX.Expand()
                    Me.Foundnode = nodeX
                    Found = True
                    Tranverse_Nodes1 = True
                    Exit Function
                Else
                    Tranverse_Nodes1(tv, nodeX, SearchObject)
                End If
            Catch
                If nodeX.Text = Trim(Str(SearchObject)) Then
                    nodeX.Expand()
                    Me.Foundnode = nodeX
                    Found = True
                    Tranverse_Nodes1 = True
                    Exit Function
                Else
                    Tranverse_Nodes1(tv, nodeX, SearchObject)
                End If
            End Try

        Next
    End Function
    Private Function TranverseNodes1(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As String) As Boolean
        If selectedNode.Text = SearchObject Then
            Me.Foundnode = selectedNode
            Found = True
            TranverseNodes1 = True
            Exit Function
        End If
        Dim nodeX As TreeNode
        For Each nodeX In selectedNode.Nodes
            Try
                If nodeX.Text = SearchObject Then
                    nodeX.Expand()
                    Me.Foundnode = nodeX
                    Found = True
                    TranverseNodes1 = True
                    Exit Function
                Else
                    TranverseNodes1(tv, nodeX, SearchObject)
                End If
            Catch
                If nodeX.Text = Trim(Str(SearchObject)) Then
                    nodeX.Expand()
                    Me.Foundnode = nodeX
                    Found = True
                    TranverseNodes1 = True
                    Exit Function
                Else
                    TranverseNodes1(tv, nodeX, SearchObject)
                End If
            End Try

        Next
    End Function
#End Region

#Region "Vertragselement-Applikation"

    Private Sub Refresh_Vertragselemente(ByVal Vertragspartnernr As Integer)
        Me.C1VertragselementApplikation.BeginInit()
        Dim dt As New DataTable
        Try
            Me.C1VertragselementApplikation.DataSource = Nothing
            dt = Me.Lizenz.Get_Vertragselement_Applikation(Me.TreeLizenzen.SelectedNode.Tag)
            Me.C1VertragselementApplikation.DataSource = dt
            Me.C1VertragselementApplikation.DataMember = dt.TableName
            Me.OnRefresh = True
            Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1VertragselementApplikation, "VertragselementApplikation_Lizenz", dt)
            Me.OnRefresh = False
            Refresh_Vertragselement_Funktion()
        Catch ex As Exception

        End Try
        Me.C1VertragselementApplikation.EndInit()
        Refresh_Vertragselement_Funktion()
        Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)

    End Sub

    Sub Refresh_Vertragselement_Funktion()
        If Me.cbStrukturelement.Checked = True Then Me.ToolStripButtonVEApplNew.Enabled = False
        Dim i As Integer
        Try
            i = Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value
            Me.TSBtnLizenzNew.Enabled = True
            Me.ToolStripButtonVEApplDelete.Enabled = True
            Me.ToolStripButtonVEApplNew.Enabled = True
            Me.NeuerDatensatzToolStripMenuItem.Enabled = True

            If Me.C1VertragselementApplikation.Columns("aktiv").Value = True Then
                Me.DatensatzLöschenToolStripMenuItem.Enabled = True
                Me.DatensatzLöschenToolStripMenuItem1.Enabled = True
                Me.DatensatzAktivierenToolStripMenuItem1.Enabled = False
            Else
                Me.DatensatzLöschenToolStripMenuItem.Enabled = False
                Me.DatensatzLöschenToolStripMenuItem1.Enabled = False
                Me.DatensatzAktivierenToolStripMenuItem1.Enabled = True
            End If
            Me.ApplikationAnzeigenToolStripMenuItem.Enabled = True
            Try
                If Me.C1VertragselementApplikation.Columns("Vertragspartner").Value = "" Then
                    VertragselementAnzeigenToolStripMenuItem.Enabled = False
                End If
            Catch ex As Exception

            End Try
        Catch ex As Exception
            If Me.TreeLizenzen.Nodes.Count > 0 Then
                Me.ToolStripButtonVEApplNew.Enabled = True
            End If
            Me.ToolStripButtonVEApplDelete.Enabled = False
            Me.TSBtnLizenzNew.Enabled = False
            Me.NeuerDatensatzToolStripMenuItem.Enabled = False
            Me.DatensatzLöschenToolStripMenuItem.Enabled = False
            Me.DatensatzLöschenToolStripMenuItem1.Enabled = False
            Me.DatensatzAktivierenToolStripMenuItem1.Enabled = False
            Me.ApplikationAnzeigenToolStripMenuItem.Enabled = False
            Me.VertragselementAnzeigenToolStripMenuItem.Enabled = False
        End Try
    End Sub

    Private Sub ToolStripButtonVEApplNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonVEApplNew.Click
        Dim f As New frm_Lizenz_VEAppl(Me.TreeLizenzen.SelectedNode.Tag, False, True)
        f.ShowDialog()
        Me.Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
    End Sub

    Private Sub ToolStripButtonVEApplDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonVEApplDelete.Click
        If msg.Show_MessageYesNo(101) = MsgBoxResult.Yes Then
            Dim cliveap As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
            cliveap.Delete_LizenzVertragselementApplikation(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value)
            Me.Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
        End If
    End Sub

    Private Sub NeuerDatensatzToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerDatensatzToolStripMenuItem1.Click
        ToolStripButtonVEApplNew_click(sender, e)
    End Sub

    Private Sub DatensatzLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzLöschenToolStripMenuItem.Click
        ToolStripButtonVEApplDelete_click(sender, e)
    End Sub

    Private Sub ctxmenuVertragselementApplikatoin_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ctxmenuVertragselementApplikatoin.Opening
        If Me.C1VertragselementApplikation.Splits(0).Rows.Count < 1 Then
            For Each m As ToolStripItem In Me.ctxmenuVertragselementApplikatoin.Items
                m.Enabled = False
            Next
            If Me.TreeLizenzen.Nodes.Count > 0 Then Me.ctxmenuVertragselementApplikatoin.Items(0).Enabled = True
        Else
            For Each m As ToolStripItem In Me.ctxmenuVertragselementApplikatoin.Items
                m.Enabled = True
            Next
        End If
        Refresh_Vertragselement_Funktion()
    End Sub

    Private Sub C1VertragselementApplikation_FilterChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1VertragselementApplikation.FilterChange
        If Me.OnRefresh Then Exit Sub
        Refresh_Vertragselement_Funktion()
        Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)
    End Sub

    Private Sub C1VertragselementApplikation_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1VertragselementApplikation.MouseDown
        Me.C1VertragselementApplikation.Bookmark = Me.C1VertragselementApplikation.RowContaining(e.Y)
    End Sub

    Private Sub DatensatzAktivierenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzAktivierenToolStripMenuItem1.Click
        Dim vae As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
        vae.Get_Data(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value)
        vae.bAktiv = New SqlBoolean(CType(True, Boolean))
        vae.Save_Data()
        vae.Dispose()
        Me.Refresh_Vertragselemente(Me.Aktuelle_Lizenz)

    End Sub

    Private Sub VertragselementAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertragselementAnzeigenToolStripMenuItem.Click
        Me.Lizenz.va.Get_VertragselementApplikation(Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value)
        Dim ve As New frmVertragselement(Me.Lizenz.va.iVertragselementnr.Value, False, False, 0)
        ve.MdiParent = Me.MdiParent
        ve.Show()
    End Sub

    Private Sub ApplikationAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplikationAnzeigenToolStripMenuItem.Click
        Me.Lizenz.va.Get_VertragselementApplikation(Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value)
        Dim appl As New frmApplikation(Me.Lizenz.va.iApplikationnr.Value)
        appl.MdiParent = Me.MdiParent
        appl.Show()
    End Sub
#End Region

#Region "Lizenzkauf"
    Private Sub TSBtnLizenzNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLizenzNew.Click
        Dim f As New frmLizenzkauf(Me.TreeLizenzen.SelectedNode.Tag, Me.TreeLizenzen.SelectedNode.Text, 0, Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value)
        f.ShowDialog()
        Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)
        'If Me.C1Lizenzkäufe.Splits(0).DisplayColumns.Count < 1 Then Me.TSBtnLizenzDelete.Enabled = False Else Me.TSBtnLizenzDelete.Enabled = True
    End Sub

    Private Sub Refresh_Lizenzkauf(ByVal Lizenznr As Integer)
        If Me.OnRefresh = True Then Exit Sub
        Me.C1Lizenzkäufe.BeginInit()
        Dim dt As New DataTable
        Dim bm As Integer = 0
        bm = Me.C1Lizenzkäufe.Bookmark


        dt = clizenzkauf.Get_Lizenzkauf(Lizenznr)

        dt.Columns.Add("Verbunden")

        Me.C1Lizenzkäufe.DataSource = Nothing
        Me.C1Lizenzschluessel.DataSource = Nothing
        Try
            Dim i As Integer
            i = Me.C1VertragselementApplikation.Columns("VertragselementApplikationnr").Value
        Catch ex As Exception
            Exit Sub
        End Try
        Me.C1Lizenzkäufe.DataSource = dt
        Me.C1Lizenzkäufe.DataMember = dt.TableName

        Me.OnRefresh = True
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzkäufe, "Lizenzkauf", dt)
        Me.OnRefresh = False

        For Each dr As DataRow In dt.Rows
            If dr.Item("Vertragselementapplikationnr").ToString <> "" And dr.Item("Vertragselementapplikationnr").ToString <> "0" Then dr.Item("Verbunden") = "1" Else dr.Item("Verbunden") = ""
            If dr.Item("Kaufdatum").ToString = "01.01.1900 00:00:00" Then dr.Item("Kaufdatum") = System.DBNull.Value
            If dr.Item("Gueltigbis").ToString = "01.01.1900 00:00:00" Then dr.Item("Gueltigbis") = System.DBNull.Value
        Next


        Dim bmp1 As New Bitmap(Me.ImageList1.Images(4))
        Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
        v1.DisplayValue = bmp1
        v1.Value = 1
        Me.C1Lizenzkäufe.Columns("Verbunden").ValueItems.Values.Add(v1)
        Me.C1Lizenzkäufe.Columns("Verbunden").ValueItems.Translate = True

        Try
            Me.C1Lizenzkäufe.Bookmark = bm

        Catch ex As Exception

        End Try
        Refresh_Lizenzkauf_Funktionen()
        Me.C1Lizenzkäufe.EndInit()
        Try
            Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        Catch
        End Try

    End Sub

    Sub Refresh_Lizenzkauf_Funktionen()
        If Me.OnRefresh Then Exit Sub
        Try
            Dim i As Integer
            i = Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value
            Me.TSBtnLizenzDelete.Enabled = True
            Me.DatensatzÄndernToolStripMenuItem.Enabled = True
            If Me.C1Lizenzkäufe.Columns("aktiv").Value = "True" Then
                DatensatzAktivierenToolStripMenuItem.Enabled = False
                DatensatzInaktivierenToolStripMenuItem.Enabled = True
            Else
                DatensatzAktivierenToolStripMenuItem.Enabled = True
                DatensatzInaktivierenToolStripMenuItem.Enabled = False
            End If
            If Me.C1Lizenzkäufe.Columns("Vertragselementapplikationnr").Value.ToString = "" Or Me.C1Lizenzkäufe.Columns("Vertragselementapplikationnr").Value.ToString = "0" Then
                Me.MitAktuellemVertagselementApplikationVerbindenToolStripMenuItem.Enabled = True
                Me.VerbindungZuVertragselementApplikationLösenToolStripMenuItem.Enabled = False
            Else
                MitAktuellemVertagselementApplikationVerbindenToolStripMenuItem.Enabled = False
                Me.VerbindungZuVertragselementApplikationLösenToolStripMenuItem.Enabled = True
            End If
            Try
                i = Me.C1VertragselementApplikation.Columns("Vertragselementapplikationnr").Value
            Catch
                Me.MitAktuellemVertagselementApplikationVerbindenToolStripMenuItem.Enabled = False
                Me.VerbindungZuVertragselementApplikationLösenToolStripMenuItem.Enabled = False
            End Try
        Catch ex As Exception
            Me.TSBtnLizenzDelete.Enabled = False
            DatensatzÄndernToolStripMenuItem.Enabled = False
            DatensatzInaktivierenToolStripMenuItem.Enabled = False
            DatensatzAktivierenToolStripMenuItem.Enabled = False
            MitAktuellemVertagselementApplikationVerbindenToolStripMenuItem.Enabled = False
            Me.VerbindungZuVertragselementApplikationLösenToolStripMenuItem.Enabled = False
        End Try
        Refresh_Lizenzschluessel_Funktion()
    End Sub

    Private Sub C1Lizenzkäufe_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzkäufe.DataSourceChanged
        If Me.C1Lizenzkäufe.Splits(0).Rows.Count < 1 Then Me.TSBtnLizenzDelete.Enabled = False Else Me.TSBtnLizenzDelete.Enabled = True
    End Sub


    Private Sub C1Lizenzkäufe_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzkäufe.DoubleClick
        Try
            Dim f As New frmLizenzkauf(Me.TreeLizenzen.SelectedNode.Tag, Me.TreeLizenzen.SelectedNode.Text, Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value, Me.C1VertragselementApplikation.Columns("LizenzVEApplnr").Value)
            f.ShowDialog()
            Dim i As Integer = Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value
            Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)

        Catch ex As Exception

        End Try

    End Sub

    Private Sub TSBtnLizenzDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnLizenzDelete.Click
        If msg.Show_MessageYesNo(101) = MsgBoxResult.Yes Then
            Me.clizenzkauf.Delete_Lizenzkauf(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
            Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)
        End If

    End Sub

    Private Sub NeuerDatensatzToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerDatensatzToolStripMenuItem.Click
        Try
            Me.TSBtnLizenzNew_Click(sender, e)
        Catch
        End Try
    End Sub

    Private Sub DatensatzÄndernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzÄndernToolStripMenuItem.Click
        Try
            Me.C1Lizenzkäufe_DoubleClick(sender, e)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub DatensatzInaktivierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzInaktivierenToolStripMenuItem.Click
        Me.TSBtnLizenzDelete_Click(sender, e)
    End Sub


    Private Sub ctxmenuLizenzkauf_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ctxmenuLizenzkauf.Opening
        Refresh_Lizenzkauf_Funktionen()
    End Sub

    Private Sub MitAktuellemVertagselementApplikationVerbindenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MitAktuellemVertagselementApplikationVerbindenToolStripMenuItem.Click
        Me.clizenzkauf.Get_Data(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        Me.clizenzkauf.iVertragselementapplikationnr = New SqlInt32(CType(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value, Int32))
        Me.clizenzkauf.Save_Data()
        Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)
    End Sub

    Private Sub VerbindungZuVertragselementApplikationLösenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerbindungZuVertragselementApplikationLösenToolStripMenuItem.Click
        Me.clizenzkauf.Get_Data(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        Me.clizenzkauf.iVertragselementapplikationnr = New SqlInt32(CType(0, Int32))
        Me.clizenzkauf.Save_Data()
        Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)
    End Sub

    Private Sub DatensatzAktivierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzAktivierenToolStripMenuItem.Click
        Me.clizenzkauf.Get_Data(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        Me.clizenzkauf.bAktiv = New SqlBoolean(CType(True, Boolean))
        Me.clizenzkauf.Save_Data()
        Me.Refresh_Lizenzkauf(Me.TreeLizenzen.SelectedNode.Tag)
    End Sub

    Private Sub C1Lizenzkäufe_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Lizenzkäufe.FetchRowStyle
        Try
            If Me.C1Lizenzkäufe.Columns("VertragselementApplikationnr").CellValue(e.Row) = Me.C1VertragselementApplikation.Columns("LizenzVEApplnr").Value Then
                e.CellStyle.BackColor = Color.LightGreen
            End If
        Catch ex As Exception

        End Try
      
    End Sub

    Private Sub C1Lizenzkäufe_FetchScrollTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles C1Lizenzkäufe.FetchScrollTips

    End Sub

    Private Sub C1Lizenzkäufe_FilterChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzkäufe.FilterChange
        Refresh_Lizenzkauf_Funktionen()
        Try
            Me.Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)

        Catch ex As Exception
            Me.C1Lizenzschluessel.DataSource = Nothing
        End Try

    End Sub

    Private Sub C1Lizenzkäufe_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Lizenzkäufe.MouseDown
        Me.C1Lizenzkäufe.Bookmark = Me.C1Lizenzkäufe.RowContaining(e.Y)
        Try
            Me.Refresh_lizenzschluessel(Me.C1Lizenzschluessel.Columns("Lizenzkaufnr").Value)
        Catch
        End Try
    End Sub

    Private Sub C1Lizenzkäufe_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles C1Lizenzkäufe.Paint
        Refresh_Lizenzkauf_Funktionen()
    End Sub

    Private Sub C1Lizenzkäufe_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Lizenzkäufe.RowColChange
        Try
            Me.Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        Catch ex As Exception
        End Try
    End Sub
#End Region

#Region "Lizenzschluessel"
    Private Sub Refresh_lizenzschluessel(ByVal Lizenzkaufnr As Integer)
        If Me.OnRefresh Then Exit Sub
        Me.C1Lizenzschluessel.BeginInit()
        Dim dt As New DataTable
        Me.Lizenzschluessel.iLizenzkaufnr = New SqlInt32(CType(Lizenzkaufnr, Int32))

        Me.Lizenzschluessel.cpMainConnectionProvider = Globals.conn
        dt = Me.Lizenzschluessel.SelectAllWLizenzkaufnrLogic
        Me.C1Lizenzschluessel.DataSource = Nothing
        Me.C1Lizenzschluessel.DataSource = dt
        Me.C1Lizenzschluessel.DataMember = dt.TableName
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzschluessel, "Lizenzschluessel", dt)
        Me.C1Lizenzschluessel.EndInit()
        Me.Refresh_Lizenzschluessel_Funktion()
    End Sub

    Sub Refresh_Lizenzschluessel_Funktion()

        Try
            Dim i As Integer
            Try
                i = Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value
                Me.ToolStripButtonLizenzschluesselNew.Enabled = True
                Me.ToolStripMenuItemNeuerLizenzschluessel.Enabled = True
            Catch
                Me.ToolStripButtonLizenzschluesselNew.Enabled = False
                Me.ToolStripButtonLizenzschluesselDelete.Enabled = False
                Me.ToolStripMenuItemNeuerLizenzschluessel.Enabled = False
            End Try

            i = Me.C1Lizenzschluessel.Columns("Lizenzschluesselnr").Value
            Me.TSBtnLizenzschluesselDelete.Enabled = True
            ToolStripMenuItemLizenzschluesselaendern.Enabled = True
            Me.ToolStripMenuItemLizenzschluesselaendern.Enabled = True
            If Me.C1Lizenzschluessel.Columns("aktiv").Value = "True" Then
                ToolStripMenuItemLizenzschluesselinaktivieren.Enabled = True
                Me.TSBtnLizenzschluesselDelete.Enabled = True
                Me.ToolStripButtonLizenzschluesselDelete.Enabled = True
                ToolStripMenuItemLizenzschluesselaktivieren.Enabled = False
            Else
                ToolStripMenuItemLizenzschluesselinaktivieren.Enabled = False
                Me.ToolStripButtonLizenzschluesselDelete.Enabled = False
                Me.TSBtnLizenzschluesselDelete.Enabled = False
                ToolStripMenuItemLizenzschluesselaktivieren.Enabled = True

            End If
        Catch ex As Exception
            ToolStripMenuItemLizenzschluesselaendern.Enabled = False
            Me.TSBtnLizenzschluesselDelete.Enabled = False
            ToolStripButtonLizenzschluesselDelete.Enabled = False
            Me.ToolStripMenuItemLizenzschluesselaendern.Enabled = False
            ToolStripMenuItemLizenzschluesselinaktivieren.Enabled = False
            ToolStripMenuItemLizenzschluesselaktivieren.Enabled = False
        End Try

    End Sub

    Private Sub C1Lizenzschluessel_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzschluessel.DoubleClick
        Try
            Dim f As New frmLizenzschluessel(0, Me.C1Lizenzschluessel.Columns("Lizenzschluesselnr").Value)
            f.ShowDialog()
            Me.Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        Catch
        End Try

    End Sub

    Private Sub ToolStripButtonLizenzschluesselDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonLizenzschluesselDelete.Click
        If msg.Show_MessageYesNo(101) = MsgBoxResult.Yes Then
            Me.Lizenzschluessel.Delete_Lizenzschluessel(Me.C1Lizenzschluessel.Columns("Lizenzschluesselnr").Value)
            Me.Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
        End If

    End Sub

    Private Sub C1Lizenzschluessel_FilterChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Lizenzschluessel.FilterChange
        If Me.OnRefresh = True Then Exit Sub
        Me.Refresh_Lizenzschluessel_Funktion()
    End Sub

    Private Sub C1Lizenzschluessel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Lizenzschluessel.MouseDown
        Me.C1Lizenzschluessel.Bookmark = Me.C1Lizenzschluessel.RowContaining(e.Y)

    End Sub

    Private Sub ctxmenuLizenzschluessel_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ctxmenuLizenzschluessel.Opening
        Refresh_Lizenzschluessel_Funktion()
    End Sub

    Private Sub ToolStripButtonLizenzschuesselNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButtonLizenzschluesselNew.Click
        Dim f As New frmLizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value, 0)
        f.ShowDialog()
        Me.Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
    End Sub

    Private Sub ToolStripMenuItemNeuerLizenzschluessel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemNeuerLizenzschluessel.Click
        ToolStripButtonLizenzschuesselNew_Click(sender, e)
    End Sub

    Private Sub ToolStripMenuItemLizenzschluesselinaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemLizenzschluesselinaktivieren.Click
        ToolStripButtonLizenzschluesselDelete_Click(sender, e)
    End Sub

    Private Sub ToolStripMenuItemLizenzschluesselaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemLizenzschluesselaktivieren.Click
        Lizenzschluessel.Get_Data(Me.C1Lizenzschluessel.Columns("Lizenzschluesselnr").Value)
        Lizenzschluessel.bAktiv = New SqlBoolean(CType(True, Boolean))
        Lizenzschluessel.Save_Data()
        Refresh_lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
    End Sub
#End Region

 
  
    Private Sub ToolStripMenuItemLizenzschluesselaendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemLizenzschluesselaendern.Click
        Me.C1Lizenzschluessel_DoubleClick(sender, e)
    End Sub

    Private Sub btnSearchAppl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim f As New frmStrukturauswahl
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            If f.SelectedValue <> -1 Then
                TreeParent.Load_Tree(Me.cbboxParentTree.TreeView, True)
                Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, f.SelectedValue, "")
            End If
        End If
    End Sub

    Private Sub C1VertragselementApplikation_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1VertragselementApplikation.RowColChange
        Me.C1Lizenzkäufe.Refresh()
    End Sub

    Private Sub rbsortalpha_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsortalpha.CheckedChanged
        Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
        Me.TSBtnSuche_Click(sender, e)
        Exit Sub
        Try
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
        Catch
        End Try

    End Sub



    Private Sub TreeApplikationen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeApplikationen.AfterSelect
        Me.C1VertragselementApplikation.DataSource = Nothing
        Me.C1Lizenzkäufe.DataSource = Nothing
        Me.C1Lizenzschluessel.DataSource = Nothing
        AlleLizenzelementeStripMenuItem_Click(sender, e)
        Refresh_Lizenztree()

        'Treeviewdata_Lizenz.Load_Tree(Me.TreeLizenzen, False, "", True, False, False, Me.TreeApplikationen.SelectedNode.Tag)
        If Me.TreeLizenzen.Nodes.Count > 0 Then Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
    End Sub

    Private Sub DatensatzLöschenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzLöschenToolStripMenuItem1.Click
        If msg.Show_MessageYesNo(101) = MsgBoxResult.Yes Then
            Dim cveappl As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
            cveappl.cpMainConnectionProvider = Globals.conn
            cveappl.Get_Data(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value)
            cveappl.Delete()
            Try
                Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
            Catch ex As Exception

            End Try
        End If
    End Sub


    Private Sub AlleLizenzelementeStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleLizenzelementeStripMenuItem.Click
        Me.TSDropdownLizenzen.Text = "Alle LE"
    End Sub

    Private Sub AktiveLizenzelementeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AktiveLizenzelementeToolStripMenuItem.Click
        Me.TSDropdownLizenzen.Text = "Aktive LE"
    End Sub

    Private Sub InaktiveLizenzelementeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InaktiveLizenzelementeToolStripMenuItem.Click
        Me.TSDropdownLizenzen.Text = "Inaktive LE"
    End Sub

    Private Sub NichtZugeordneteLizenzelementeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NichtZugeordneteLizenzelementeToolStripMenuItem.Click
        Me.TSDropdownLizenzen.Text = "Nicht zugeteilte LE"
    End Sub

    Private Sub TSDropDownApplikationen_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSDropDownApplikationen.TextChanged
        If Me.TSDropDownApplikationen.Text = "Installierte Applikationen" Then Me.cboxNurAktive.CheckState = 1
        If Me.TSDropDownApplikationen.Text = "Alle Applikationen" Then Me.cboxNurAktive.CheckState = 2
        If Me.TSDropDownApplikationen.Text = "Deinstallierte Applikationen" Then Me.cboxNurAktive.CheckState = 0
    End Sub

    Private Sub TSDropDownLizenzen_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSDropdownLizenzen.TextChanged
        If Me.TSDropdownLizenzen.Text = "Alle LE" Then Me.TStxtLizenztyp.Text = "1"
        If Me.TSDropdownLizenzen.Text = "Aktive LE" Then Me.TStxtLizenztyp.Text = "2"
        If Me.TSDropdownLizenzen.Text = "Inaktive LE" Then Me.TStxtLizenztyp.Text = "3"
        If Me.TSDropdownLizenzen.Text = "Nicht zugeteilte LE" Then Me.TStxtLizenztyp.Text = "4"
    End Sub

    Private Sub TStxtLizenztyp_textchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TStxtLizenztyp.TextChanged
        refresh_Lizenztree()
    End Sub


    Sub Refresh_Lizenztree(Optional ByVal Lizenztyp As Integer = 0)
        If Me.Check_Changes Then
            If Lizenztyp > 0 Then
                Treeviewdata_Lizenz.Load_Tree(Me.TreeLizenzen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked, Me.TreeApplikationen.SelectedNode.Tag, Lizenztyp)
            Else
                Treeviewdata_Lizenz.Load_Tree(Me.TreeLizenzen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked, Me.TreeApplikationen.SelectedNode.Tag, Me.TStxtLizenztyp.Text)
            End If
            Try
                Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
            Catch
                enable_disable_functions()
                Me.C1VertragselementApplikation.DataSource = Nothing
                Me.C1Lizenzkäufe.DataSource = Nothing
                Me.C1Lizenzschluessel.DataSource = Nothing
            End Try
            Me.FormDataChanged = False
        End If

    End Sub

    'Enable_disable
    Sub enable_disable_functions()
      
        'Lizenzstruktur
        Me.TSBtnNew.Enabled = True
        Me.TSBtnDelete.Enabled = True
        Me.TSBtnEdit.Enabled = True
        Me.GrpAllgemein.Enabled = True
        If Me.TreeLizenzen.Nodes.Count < 1 Then
            Me.TSBtnDelete.Enabled = False
            Me.TSBtnEdit.Enabled = False
            Me.NeuerDatensatzToolStripMenuItem.Enabled = Me.TSBtnNew.Enabled
            Me.txtBezeichnung.Text = ""
            Me.txtbemerkung.Text = ""
            Me.GrpAllgemein.Enabled = False
        End If
        Try
            If Me.TreeLizenzen.SelectedNode.Nodes.Count > 0 Then
                Me.TSBtnDelete.Enabled = False
                'Me.TSBtnEdit.Enabled = False
            End If
        Catch
            Me.TSBtnDelete.Enabled = False
            Me.TSBtnEdit.Enabled = False
        End Try

        'C1Vertragselement
        If Me.TreeLizenzen.Nodes.Count = 0 Then
            Me.ToolStripButtonVEApplNew.Enabled = False
            Me.ToolStripButtonVEApplDelete.Enabled = False
            Me.NeuerDatensatzToolStripMenuItem1.Enabled = False
            Me.DatensatzLöschenToolStripMenuItem.Enabled = False
            Me.DatensatzLöschenToolStripMenuItem1.Enabled = False
            Me.DatensatzAktivierenToolStripMenuItem1.Enabled = False
            Me.VertragselementAnzeigenToolStripMenuItem.Enabled = False
            Me.ApplikationAnzeigenToolStripMenuItem.Enabled = False
            Me.TSBtnLizenzNew.Enabled = False
        End If
    End Sub

   
    Private Sub NeuesUnterelementToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim i As Integer = Me.TreeLizenzen.SelectedNode.Tag
        Me.Get_Data(Me.Lizenz.Add_New)
        Me.Lizenz.iParentID = i
        Me.Lizenz.Save_Data()
        i = Me.Lizenz.iLizenzNr.Value
        Me.Refresh_Lizenztree()
        Me.TreeLizenzen.SelectedNode = Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, i, "")
        Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, Lizenz.iParentID.Value, "")
        '        NichtZugeordneteLizenzelementeToolStripMenuItem_Click(sender, e)

        Try
            Me.TreeLizenzen.SelectedNode.Text = Me.Lizenz.sBezeichnung.Value.ToString
        Catch ex As Exception

        End Try
        Me.txtBezeichnung.Focus()
    End Sub

    Sub set_formreadonly()
        If Me.FormReadonly Then
            sec.Set_Form_Readonly(Me)
        End If
    End Sub

    Private Sub tsBtnLizenzsuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsBtnLizenzsuche.Click
        Dim f As New frmLizenzsuche
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            Me.TreeLizenzen.Nodes.Clear()
            Me.Treeviewdata_Lizenz.Load_Tree(Me.TreeLizenzen, , f.Treelizenzen.SelectedNode.Text, , , False, )
            Me.TreeLizenzen.SelectedNode = Me.Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, f.activenodetag, "")
        End If
    End Sub

    Private Sub frmLizenzverwaltung_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        pos_parent()
    End Sub

    Private Sub SplitContainer1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles SplitContainer1.Resize
        pos_parent()
    End Sub
    Sub Pos_Parent()
        Me.cbboxParentTree.Left = Me.GrpLizenzelement.Width + Me.SplitContainer1.Panel1.Width + Me.txtBezeichnung.Left + 3
    End Sub

    Private Sub SplitContainer1_SplitterMoved(ByVal sender As Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
        Pos_Parent()
    End Sub

    Private Sub LizenzelementPhysischLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzelementPhysischLöschenToolStripMenuItem.Click
        If msg.Show_MessageYesNo(101) = MsgBoxResult.Yes Then
            Me.Lizenz.Delete(Me.TreeLizenzen.SelectedNode.Tag)
            Try
                Me.Refresh_Lizenztree()
                Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
            Catch ex As Exception

            End Try
        End If

    End Sub

    Private Sub CtxMenuStruktur_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles CtxMenuStruktur.Opening
        Try
            If Me.TreeLizenzen.SelectedNode.Nodes.Count > 0 Then Me.CtxMenuStruktur.Items(2).Enabled = False Else Me.CtxMenuStruktur.Items(2).Enabled = True
        Catch
            e.Cancel = True
        End Try
    End Sub

    Private Sub LizenzelementBearbeitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzelementBearbeitenToolStripMenuItem.Click
        Try
            Dim f As New frm_Lizenz_VEAppl(Me.TreeLizenzen.SelectedNode.Tag, False)
            f.ShowDialog()
            If f.DialogResult = Windows.Forms.DialogResult.OK Then
                Me.TreeLizenzen.BeginUpdate()
                Dim i As Integer = Me.TreeLizenzen.SelectedNode.Tag
                Dim a As Integer = Me.TreeApplikationen.SelectedNode.Tag
                Me.Get_Data(Me.TreeLizenzen.SelectedNode.Tag)
                If Me.cbStrukturelement.Checked = False Then
                    Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
                    Try
                        Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.C1VertragselementApplikation.Columns("Applikationnr").Value, "")
                    Catch ex As Exception
                        Try
                            Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, a, "")
                        Catch ex1 As Exception
                            Try
                                Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)

                            Catch ex2 As Exception

                            End Try
                        End Try
                    End Try
                    Me.TreeLizenzen.SelectedNode = Me.Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, i, "")
                Else
                    If TreeApplikationen.SelectedNode.Tag <> 0 Then
                        Me.C1VertragselementApplikation.DataSource = Nothing
                        Me.C1Lizenzkäufe.DataSource = Nothing
                        Me.C1Lizenzschluessel.DataSource = Nothing
                        ' AlleLizenzelementeStripMenuItem_Click(sender, e)
                        Refresh_Lizenztree()
                        Me.TreeLizenzen.SelectedNode = Me.Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, i, "")
                    Else
                        'NichtZugeordneteLizenzelementeToolStripMenuItem_Click(sender, e)
                        Me.TreeLizenzen.SelectedNode = Treeviewdata_Lizenz.FindNode(Me.TreeLizenzen.Nodes, f.Aktuelle_Lizenznr, "")
                        Try
                            Me.TreeLizenzen.SelectedNode.Text = Me.Lizenz.sBezeichnung.Value.ToString
                        Catch ex As Exception

                        End Try
                    End If
                End If
                Me.TreeLizenzen.EndUpdate()
            End If
        Catch ex As Exception
        End Try

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnEdit.Click
        LizenzelementBearbeitenToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub DatensatzÄndernToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatensatzÄndernToolStripMenuItem1.Click
        Dim f As New frmLizenzbeziehung_Aendern(Me.Treeviewdata_Lizenz, Me.C1VertragselementApplikation.Columns("Bemerkung").Value, Me.TreeLizenzen.SelectedNode.Tag, Me.C1VertragselementApplikation.Columns("Vertragselement").Value)
        f.ShowDialog()
        If f.DialogResult = Windows.Forms.DialogResult.OK Then
            Dim cliveap As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
            cliveap.cpMainConnectionProvider = Globals.conn
            cliveap.iLizenzVEApplNr = New SqlInt32(CType(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value, Int32))
            cliveap.SelectOne()
            cliveap.iLizenznr = New SqlInt32(CType(f.TreeLizenzen.SelectedNode.Tag, Int32))
            cliveap.sBemerkung = New SqlString(CType(f.txtBemerkung.Text, String))
            cliveap.daMutiert_am = Now()
            cliveap.iMutierer = Globals.clsmitarbeiter.iMitarbeiternr.Value
            cliveap.sHyperlink_Vertrag = New SqlString(CType(f.txtHyperlink.Text, String))
            Globals.conn.OpenConnection()
            cliveap.Update()
            Globals.conn.CloseConnection(True)
            cliveap.Dispose()
            Me.Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
        End If

    End Sub

    Private Sub LEInaktivierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LEInaktivierenToolStripMenuItem.Click
        TSBtnDelete_Click(sender, e)
    End Sub

    Private Sub C1VertragselementApplikation_DoubleClick(sender As Object, e As EventArgs) Handles C1VertragselementApplikation.DoubleClick
        Globals.OpenLink(Me.C1VertragselementApplikation.Columns("Vertragselement").Value)
    End Sub



    Private Sub LinkÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkÖffnenToolStripMenuItem.Click
        Globals.OpenLink(Me.C1VertragselementApplikation.Columns("Vertragselement").Value)
    End Sub

    Private Sub LinkEinfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkEinfügenToolStripMenuItem.Click
        Dim s As String
        s = InputBox("Hyperlink eingeben:")
        If s <> "" Then
            Dim clsv As New clsValidator
            If clsv.VerifyString(s) = False Then
                MsgBox(clsv.Resultmessage, vbExclamation)
                clsv = Nothing
                Exit Sub
            End If
            clsv = Nothing
            Dim cliveap As New TKB.VV.Lizenz.clsLizenzVertragselementApplikation
            cliveap.cpMainConnectionProvider = Globals.conn
            cliveap.iLizenzVEApplNr = New SqlInt32(CType(Me.C1VertragselementApplikation.Columns("LizenzVEApplNr").Value, Int32))
            cliveap.SelectOne()
            cliveap.daMutiert_am = Now()
            cliveap.iMutierer = Globals.clsmitarbeiter.iMitarbeiternr.Value
            cliveap.sHyperlink_Vertrag = New SqlString(CType(s, String))
            Globals.conn.OpenConnection()
            cliveap.Update()
            Globals.conn.CloseConnection(True)
            cliveap.Dispose()
            Me.Refresh_Vertragselemente(Me.TreeLizenzen.SelectedNode.Tag)
        End If
    End Sub
End Class