ITSM/.svn/pristine/1e/1e3e22dfabb4888f7f47252c3935a10c009d2fcd.svn-base

Imports C1.Win.C1TrueDBGrid
Imports System.IO.File
Imports System.IO
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmApplikation

#Region "Deklarationen"
    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 TreeSuche As New TreeView
    Dim Suchresultate As New DataTable

    Dim TreeParent As New TKB.VV.Applikation.clsApplikationTree

    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_Applikation As Integer = 0
    Dim IsSturkturElement As Boolean = False
    Dim Multiline As New TabControlMultiLine


    ''' <summary>
    ''' Generic Event-Handler
    ''' </summary>
    ''' <remarks></remarks>
    Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
    Dim OnLoad As Boolean = True
#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
            Applikation.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
        Me.DiagramControl1.Check_Changes()
        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 "Formular"

    Sub New()
        InitializeComponent()
    End Sub

    Sub New(ByVal Applikationsnr As Integer, Optional ByVal Anzeige As Boolean = False)
        InitializeComponent()
        Me.Aktuelle_Applikation = Applikationsnr
        Me.FormReadonly = Anzeige
        If Me.Aktuelle_Applikation <> 0 Then
            Dim app As New TKB.VV.DB.clsApplikation
            app.cpMainConnectionProvider = Globals.conn
            app.iApplikationNr = New SqlInt32(CType(Me.Aktuelle_Applikation, Int32))
            app.SelectOne()
            If app.bAktiv.Value = False Then
                Me.cboxNurAktive.CheckState = CheckState.Unchecked
            Else
                Me.cboxNurAktive.CheckState = CheckState.Checked
            End If
            app.Dispose()
        End If
    End Sub

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

    Private Sub frmApplikation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Multiline.Set_Multiline(Me.TabControlApplikation)
        Catch
        End Try

        Me.cboxNurAktive.Text = "Installierte"
        'Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.Checked)
        If Anzeige = True Then
            Me.FormReadonly = True
            Me.TSBtnSuche.Enabled = False
            Me.TSBtnSave.Enabled = False
        Else
            Me.TSBtnSuche.Enabled = True
        End If
        sec.Set_Form_Security(Me)
        If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then
            Me.FormReadonly = True
            Me.TSBtnCopy.Enabled = False
            Me.TSBtnNew.Enabled = False
            Me.TSBtnDelete.Enabled = False
        Else
            Me.FormReadonly = False
        End If


        Load_Securitylevel()

        Me.cboxRFCBoard.DataSource = Applikation.RFCBoards
        Me.cboxRFCBoard.DisplayMember = "Bezeichnung"
        Me.cboxRFCBoard.ValueMember = "Keyvalue"

        Me.cbboxVerantwortung.DataSource = Applikation.Verantwortungen
        Me.cbboxVerantwortung.DisplayMember = "Bezeichnung"
        Me.cbboxVerantwortung.ValueMember = "Keyvalue"

        Me.cbboxFachlicheOE.DataSource = Applikation.FachlicheOE
        Me.cbboxFachlicheOE.DisplayMember = "Bezeichnung"
        Me.cbboxFachlicheOE.ValueMember = "Keyvalue"

        Me.cbboxKategorie.DataSource = Applikation.kategorien
        Me.cbboxKategorie.DisplayMember = "Bezeichnung"
        Me.cbboxKategorie.ValueMember = "ApplikationKategorieNr"

        Me.cbboxMarktbereich.DataSource = Applikation.Marktbereiche
        Me.cbboxMarktbereich.DisplayMember = "Bezeichnung"
        Me.cbboxMarktbereich.ValueMember = "Keyvalue"

        Me.cbboxKritikalität.DataSource = Applikation.Kritikalitaeten
        Me.cbboxKritikalität.DisplayMember = "Bezeichnung"
        Me.cbboxKritikalität.ValueMember = "ApplikationKritikalitaetTypNr"

        Me.cbboxSLM.DataSource = Applikation.SLMs
        Me.cbboxSLM.DisplayMember = "Bezeichnung"
        Me.cbboxSLM.ValueMember = "ApplikationSLMTypNr"

        Me.lboxInstalliertals.DataSource = Applikation.Installiertals
        Me.lboxInstalliertals.DisplayMember = "Bezeichnung"
        Me.lboxInstalliertals.ValueMember = "InstallationAlsTypNr"

        Me.lboxInstalliertauf.DataSource = Applikation.Installiertauf
        Me.lboxInstalliertauf.DisplayMember = "Bezeichnung"
        Me.lboxInstalliertauf.ValueMember = "InstallationTypNr"

        Me.lboxabhaengigkeit.DataSource = Applikation.AbhaengigkeitsTyp
        Me.lboxabhaengigkeit.DisplayMember = "Bezeichnung"
        Me.lboxabhaengigkeit.ValueMember = "ApplikationAbhaengigkeitTypNr"

        'Me.lboxStandardFuer.DataSource = Applikation.InstallationStandard
        'Me.lboxStandardFuer.DisplayMember = "Bezeichnung"
        'Me.lboxStandardFuer.ValueMember = "ApplikationStandardTypNr"

        Me.cbboxTestaufwand.DataSource = Applikation.TestAufwendungen
        Me.cbboxTestaufwand.DisplayMember = "Bezeichnung"
        Me.cbboxTestaufwand.ValueMember = "ApplikationTestAZNr"

        Me.cbboxPeriodizitaet.DataSource = Me.Applikation.Periodizitäten
        Me.cbboxPeriodizitaet.DisplayMember = "Bezeichnung"
        Me.cbboxPeriodizitaet.ValueMember = "Periodizitaetnr"

        Me.cbboxAdministriertdurch.DataSource = Me.Applikation.SDAdministratoren
        Me.cbboxAdministriertdurch.DisplayMember = "Bezeichnung"
        Me.cbboxAdministriertdurch.ValueMember = "SDAdministratorNr"

        '20110213 - IKV
        Me.cbboxGeschaeftsrelevanz.DataSource = Me.Applikation.IKVGeschaeftsrelevanz
        Me.cbboxGeschaeftsrelevanz.DisplayMember = "Bezeichnung"
        Me.cbboxGeschaeftsrelevanz.ValueMember = "IKVRelevanztypnr"

        Me.cbboxMaxAusfalldauer.DataSource = Me.Applikation.IKVMaximaleAusfalldauer
        Me.cbboxMaxAusfalldauer.DisplayMember = "Bezeichnung"
        Me.cbboxMaxAusfalldauer.ValueMember = "IKVAusfalldauernr"

        Me.cbboxVereinbarteAusfalldauer.DataSource = Me.Applikation.IKVVereinbarteAusfalldauer
        Me.cbboxVereinbarteAusfalldauer.DisplayMember = "Bezeichnung"
        Me.cbboxVereinbarteAusfalldauer.ValueMember = "IKVVereinbarteAusfalldauernr"

        Me.cbboxIKVLoesungsart.DataSource = Me.Applikation.IKVArt
        Me.cbboxIKVLoesungsart.DisplayMember = "Bezeichnung"
        Me.cbboxIKVLoesungsart.ValueMember = "IKVLoesungTypnr"

        '2012-04-11 - Erweiterung ITSP-Produktmapping
        Me.cbboxITSPProdukt.DataSource = Me.Applikation.ITSPPordukte
        Me.cbboxITSPProdukt.DisplayMember = "Bezeichnung"
        Me.cbboxITSPProdukt.ValueMember = "ITSPProduktNr"

        cbboxVerantwortung_SelectedIndexChanged(sender, e)

        TreeParent.Load_Tree(Me.cbboxParentTree.TreeView, True)

        AddChanges(Me)
        If Me.Aktuelle_Applikation <> 0 Then
            Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.Aktuelle_Applikation, "")
        End If
        '        Get_Data(Me.Aktuelle_Applikation)
        If Me.FormReadonly Then sec.Set_Form_Readonly(Me)
        If Me.Aktuelle_Applikation <> 0 Then
            Me.TreeApplikationen.SelectedNode = Me.Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.Aktuelle_Applikation, Me.Aktuelle_Applikation)
        Else
            Me.TreeApplikationen.SelectedNode = Me.TreeApplikationen.Nodes(0)
        End If
        Me.DiagramControl1.FormReadOnly = Me.FormReadonly
        'Me.DiagramControl1.FormReadOnly = True
        Me.TscbboxTyp.SelectedIndex = 2
        Me.OnLoad = False

    End Sub


    Private Sub TreeApplikationen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeApplikationen.AfterSelect
        If Me.Check_Changes = False Then Exit Sub

        Me.TSBtnApplReport.Enabled = True
        If Me.TreeApplikationen.SelectedNode.Tag < 1 Then
            Me.TabControlApplikation.Enabled = False
            Me.TSBtnApplReport.Enabled = False
            Exit Sub
        End If

        Me.TabControlApplikation.Enabled = True
        Me.Aktuelle_Applikation = Me.TreeApplikationen.SelectedNode.Tag
        Me.Get_Data(Me.Aktuelle_Applikation)
        If Me.cbstrukturelement.Checked = True Then
            Me.TSBtnApplReport.Enabled = False
        End If
        Me.Refresh_Registerlasche()

    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) Handles TSBtnSave.Click
        Me.Save_data()
        Me.txtmutiert_am.Text = Me.Applikation.daMutiert_am.ToString
        Me.FormDataChanged = False
        Dim savenr As Integer = Me.Applikation.iApplikationNr.Value
        Me.Suchen()
        Me.TreeApplikationen.SelectedNode = Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, savenr, "")
        Try
            Me.TreeApplikationen.SelectedNode.Text = Me.Applikation.sBezeichnung.Value.ToString
        Catch ex As Exception

        End Try
        '        If Me.tstxtSuche.Text <> "" Then
        'Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
        ' Else
        'Treeviewdata.Load_Tree(Me.TreeApplikationen, False, "", Me.cboxNurAktive.CheckState, , Me.rbsortalpha.Checked)
        'End If
        'Me.TreeApplikationen.SelectedNode = Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, Me.Applikation.iApplikationNr.Value, "")
    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
        If Me.Check_Changes = False Then Exit Sub
        Me.Get_Data(Applikation.Create_Copy(Me.Applikation.iApplikationNr.Value))
        Dim savenr As Integer = Me.Applikation.iApplikationNr.Value
        Me.Suchen()
        Me.TreeApplikationen.SelectedNode = Treeviewdata.FindNode(Me.TreeApplikationen.Nodes, savenr, "")

    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
        Me.Get_Data(Me.Applikation.Add_New)
    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(295) = MsgBoxResult.Yes Then
            Me.Applikation.Delete_Applikation(Me.Applikation.iApplikationNr.Value)
            Me.Close()
        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
        Suchen()
        Exit Sub

        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 "Architektur-Filter"
                Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.Checked, True, 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

    Sub 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 "Architektur-Filter"
                Treeviewdata.Load_Tree(Me.TreeApplikationen, False, Me.tstxtSuche.Text, Me.cboxNurAktive.Checked, True, 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
#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 Applikationnr As Integer)
        Try
            Applikation.Get_Applikation(Applikationnr)
            Me.txtBezeichnung.Text = Applikation.sBezeichnung.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, Applikation.iParentID.Value, "")
            Application.DoEvents()
            Me.cbboxParentTree.TreeView.Visible = False
            Me.cbboxParentTree.TreeView.Height = i
            Me.cbboxVerantwortung.SelectedValue = Applikation.iApplikationVerantwortungNr.Value
            If Applikation.iFachlicheOe.IsNull Then
                Me.cbboxFachlicheOE.SelectedValue = 0
            Else
                Me.cbboxFachlicheOE.SelectedValue = Applikation.iFachlicheOe.Value.ToString
            End If
            'Me.cbboxFachlicheOE.SelectedValue = Applikation.iFachlicheOe.Value.ToString
            Me.cbboxTeam.SelectedValue = Applikation.iApplikationTeamnr.Value
            Me.cbboxKategorie.SelectedValue = Applikation.iApplikationKategorieNr.Value
            Me.cbboxMarktbereich.SelectedValue = Applikation.iMarktbereichnr.Value
            Me.txtInaktivseit.Text = Applikation.daInaktivseit.ToString
            Me.txtVersion.Text = Applikation.sVersion.Value
            'Me.cbalsProdukt.Checked = Applikation.bAlsProdukt.Value = True
            Me.cbLizenzerfassung.Checked = Applikation.bNurLizenz.Value = True
            Me.txtPrioWiederanlauf.Text = Applikation.sPrioWiederanlauf.Value
            Me.cboxSecurityLevel.SelectedValue = Applikation.iSecurityLevelNr.Value
            Me.cboxRFCBoard.SelectedValue = Applikation.iRfcBoardNr.Value
            Me.txterstellt_am.Text = Applikation.daErstellt_am.ToString
            Me.txtmutiert_am.Text = Applikation.daMutiert_am.ToString
            Me.txtmutierer.Text = Applikation.iMutierer.ToString
            Me.cbAktiv.Checked = Applikation.bAktiv.Value = True
            Me.cbRAS.Checked = Applikation.bRAS.Value = True
            Me.txtDBName.Text = Applikation.sDatenbankname.Value
            Me.txtAnzInstallationen.Text = Applikation.sAnzahl_Installationen.Value

            Me.txtKurzbeschreibung.Text = Applikation.sKurzbeschreibung.Value
            If Microsoft.VisualBasic.Left(Me.txtKurzbeschreibung.Text, 7) = "- Modul" Then
                Dim fnt As New Font("Courier New", 8.25)
                Me.txtKurzbeschreibung.Font = fnt
            Else
                Me.txtKurzbeschreibung.Font = Me.txtBemerkung.Font
            End If


            Me.cbTicketXPertVerwendung.Checked = Applikation.bTicketXPertVerwendung.Value = True
            If Me.cbTicketXPertVerwendung.Checked = False Then
                Me.grpTicketXpert.Enabled = False
            Else
                Me.grpTicketXpert.Enabled = True
            End If

            Try
                Me.cbboxTestaufwand.SelectedValue = Applikation.sTest_Aufwand.Value.ToString
            Catch ex As Exception
                Me.cbboxTestaufwand.SelectedValue = 1
            End Try
            Me.txtTestArbeitsplaetze.Text = Applikation.sTest_Arbeitsplaetze.Value
            Me.txtAbhaengigkeiten.Text = Applikation.sTest_Abhaengigkeiten.Value
            Me.txtBemerkung.Text = Applikation.sTest_Bemerkung.Value

            Me.cbWPIAnzeigen.Checked = Applikation.bTicketXPert_WPIAnzeigen.Value = True
            Me.txtWPIPreis.Text = Applikation.sTicketXPert_Preis.Value
            Me.txtPreisEinmalig.Text = Applikation.sTicketXPert_Preis_Einmalig.Value

            Me.cbAMAnzeigen.Checked = Applikation.bTicketXPert_AMAnzeigen.Value = True
            Me.cbboxKritikalität.SelectedValue = Applikation.iTicketXPert_ApplikationKritikalitaetTypNr.Value
            Me.cbboxSLM.SelectedValue = Applikation.iTicketXPert_ApplikationSMLTypNr.Value

            Set_Checkedlistbox(Me.lboxInstalliertauf, Me.Applikation.ApplikationInstallationTyp)
            Set_Checkedlistbox(Me.lboxInstalliertals, Me.Applikation.ApplikationInstallationals)
            'Set_Checkedlistbox(Me.lboxStandardFuer, Me.Applikation.ApplikationInstallationFuer)
            Set_Checkedlistbox(Me.lboxabhaengigkeit, Me.Applikation.ApplikationApplikationAbhaengigkeit)


            Me.cbSensitiveDaten.Checked = Me.Applikation.bSensitiveDaten.Value = True
            Me.txtSensitiveDaten.Text = Me.Applikation.sSensitiveDatenBemerkung.Value
            Me.cbboxAdministriertdurch.SelectedValue = Me.Applikation.iSensitiveDatenAdministriertdurch.Value
            Me.TxtUeberwachung.Text = Me.Applikation.sSensitiveDatenUeberwachungBemerkung.Value
            Me.cbboxPeriodizitaet.SelectedValue = Me.Applikation.iSensitiveDatenUeberwachungPeriodizitaet.Value
            Me.TxtUser.Text = Me.Applikation.sSensitiveDatenUserBemerkung.Value
            Me.TxtAnzComit.Text = Me.Applikation.iSensitiveDatenAnzahlComit.Value
            Me.txtAnzExterne.Text = Me.Applikation.iSensitiveDatenAnzahlExterne.Value

            Me.cbstrukturelement.Checked = Me.Applikation.bStrukturelement.Value = True

            Try
                Me.cbAktiv.Checked = Applikation.bAktiv.Value = True

            Catch ex As Exception
                Me.cbAktiv.Checked = True
            End Try
            If Not Anzeige And Not Me.FormReadonly Then
                For Each o As Object In Me.ToolStrip1.Items
                    If o.GetType.Name = "ToolStripButton" Then
                        o.Enabled = True
                    End If
                Next
                'For Each ctl As ToolStripButton In Me.ToolStrip1.Items
                '    Try
                '        ctl.Enabled = True
                '    Catch
                '    End Try
                'Next
            End If

            If Me.Applikation.iIKVBizRelevanzNr.IsNull Then
                Me.cbboxGeschaeftsrelevanz.SelectedValue = -1
            Else
                Me.cbboxGeschaeftsrelevanz.SelectedValue = Me.Applikation.iIKVBizRelevanzNr.Value
            End If
            If Me.Applikation.iIKVBizAusfalldauerNr.IsNull Then
                Me.cbboxMaxAusfalldauer.SelectedValue = -1
            Else
                Me.cbboxMaxAusfalldauer.SelectedValue = Me.Applikation.iIKVBizAusfalldauerNr.Value
            End If
            If Me.Applikation.iIKVProviderAussfalldauerNr.IsNull Then
                Me.cbboxVereinbarteAusfalldauer.SelectedValue = -1
            Else
                Me.cbboxVereinbarteAusfalldauer.SelectedValue = Me.Applikation.iIKVProviderAussfalldauerNr.Value
            End If
            If Me.Applikation.iIKVLoesungNr.IsNull Then
                Me.cbboxIKVLoesungsart.SelectedValue = -1
            Else
                Me.cbboxIKVLoesungsart.SelectedValue = Me.Applikation.iIKVLoesungNr.Value
            End If
            If Me.Applikation.sIKVBIZBemerkung.IsNull Then
                Me.txtIKVBizBemerkung.Text = ""
            Else
                Me.txtIKVBizBemerkung.Text = Me.Applikation.sIKVBIZBemerkung.ToString
            End If
            If Me.Applikation.sIKVProviderBemerkung.IsNull Then
                Me.txtIKVProviderBemerkung.Text = ""
            Else
                Me.txtIKVProviderBemerkung.Text = Me.Applikation.sIKVProviderBemerkung.ToString
            End If
            If Me.Applikation.sIKVLoesungBemerkung.IsNull Then
                Me.txtIKVLoesungBemerkung.Text = ""
            Else
                Me.txtIKVLoesungBemerkung.Text = Me.Applikation.sIKVLoesungBemerkung.ToString
            End If
            If Me.Applikation.bIKVProviderVereinbart.IsNull Then
                Me.cbIKVVereinbart.Checked = False
            Else
                Me.cbIKVVereinbart.Checked = Me.Applikation.bIKVProviderVereinbart.Value = True
            End If

            '2012-04-11 Erweiterung ITSP-Produktmapping
            Try
                Me.cbboxITSPProdukt.SelectedValue = Me.Applikation.iTicketXPert_ITSPProduktnr.Value
            Catch ex As Exception
                Me.cbboxITSPProdukt.SelectedValue = -1
            End Try

            Me.txtmutierer.Text = Me.Applikation.MutiererText

            If Me.Applikation.sIntranetBezeichnung.IsNull Then
                Me.txtIntranetbezeichnung.Text = ""
            Else
                Me.txtIntranetbezeichnung.Text = Me.Applikation.sIntranetBezeichnung.Value
            End If

            If Me.Applikation.bVerwendungIntragnet.IsNull Then
                Me.cbIntrant.Checked = False
            Else
                Me.cbIntrant.Checked = Me.Applikation.bVerwendungIntragnet.Value = True
            End If

            If Me.Applikation.bIntranetObligatorisch.IsNull Then
                Me.cbPflichtAbo.Checked = False
            Else
                Me.cbPflichtAbo.Checked = Me.Applikation.bIntranetObligatorisch.Value = True
            End If

            sec.Set_Form_Security(Me)



            Me.FormDataChanged = False

        Catch ex As Exception
            MsgBox(ex.Message)
            Try
                For Each ctl As ToolStripButton In Me.ToolStrip1.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()
        Applikation.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
        Applikation.iParentID = New SqlInt32(CType(Me.cbboxParentTree.SelectedNode.Tag, Int32))
        Applikation.iApplikationVerantwortungNr = New SqlInt32(CType(Me.cbboxVerantwortung.SelectedValue, Int32))
        Applikation.ifachlicheoe = New SqlInt32(CType(Me.cbboxFachlicheOE.SelectedValue, Int32))
        Applikation.iApplikationTeamnr = New SqlInt32(CType(Me.cbboxTeam.SelectedValue, Int32))
        Applikation.iApplikationKategorieNr = New SqlInt32(CType(Me.cbboxKategorie.SelectedValue, Int32))
        Applikation.iMarktbereichnr = New SqlInt32(CType(Me.cbboxMarktbereich.SelectedValue, Int32))
        If IsDate(Me.txtInaktivseit.Text) Then
            Applikation.daInaktivseit = New SqlDateTime(CType(Me.txtInaktivseit.Text, DateTime))
        Else
            Applikation.daInaktivseit = New SqlDateTime(CType(SqlDateTime.Null, DateTime))
        End If
        Applikation.sVersion = New SqlString(CType(Me.txtVersion.Text, String))
        'Applikation.bAlsProdukt = New SqlBoolean(CType(Me.cbalsProdukt.Checked = True, Boolean))
        Applikation.bNurLizenz = New SqlBoolean(CType(Me.cbLizenzerfassung.Checked = True, Boolean))
        Applikation.sPrioWiederanlauf = New SqlString(CType(Me.txtPrioWiederanlauf.Text, String))
        Applikation.iSecurityLevelNr = New SqlInt32(CType(Me.cboxSecurityLevel.SelectedValue, Int32))
        Applikation.iRfcBoardNr = New SqlInt32(CType(Me.cboxRFCBoard.SelectedValue, Int32))
        Applikation.bAktiv = New SqlBoolean(CType(Me.cbAktiv.Checked = True, Boolean))
        Applikation.bRAS = New SqlBoolean(CType(Me.cbRAS.Checked = True, Boolean))
        Applikation.sDatenbankname = New SqlString(CType(Me.txtDBName.Text, String))
        Applikation.sAnzahl_Installationen = New SqlString(CType(Me.txtAnzInstallationen.Text, String))
        Applikation.sKurzbeschreibung = New SqlString(CType(Me.txtKurzbeschreibung.Text, String))
        If Me.cbboxTestaufwand.SelectedText = "" Then Me.cbboxTestaufwand.SelectedValue = 1
        Applikation.sTest_Aufwand = New SqlString(CType(Me.cbboxTestaufwand.SelectedValue, String))
        Applikation.sTest_Arbeitsplaetze = New SqlString(CType(Me.txtTestArbeitsplaetze.Text, String))
        Applikation.sTest_Abhaengigkeiten = New SqlString(CType(Me.txtAbhaengigkeiten.Text, String))
        Applikation.sTest_Bemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
        Applikation.bTicketXPertVerwendung = New SqlBoolean(CType(Me.cbTicketXPertVerwendung.Checked = True, Boolean))
        Applikation.bTicketXPert_WPIAnzeigen = New SqlBoolean(CType(Me.cbWPIAnzeigen.Checked = True, Boolean))
        Applikation.sTicketXPert_Preis = New SqlString(CType(Me.txtWPIPreis.Text, String))
        Applikation.sTicketXPert_Preis_Einmalig = New SqlString(CType(Me.txtPreisEinmalig.Text, String))
        Applikation.bTicketXPert_AMAnzeigen = New SqlBoolean(CType(Me.cbAMAnzeigen.Checked = True, Boolean))
        Applikation.iTicketXPert_ApplikationKritikalitaetTypNr = New SqlInt32(CType(Me.cbboxKritikalität.SelectedValue, Int32))
        Applikation.iTicketXPert_ApplikationSMLTypNr = New SqlInt32(CType(Me.cbboxSLM.SelectedValue, Int32))

        Me.Applikation.bSensitiveDaten = New SqlBoolean(CType(Me.cbSensitiveDaten.Checked, Boolean))
        Me.Applikation.sSensitiveDatenBemerkung = New SqlString(CType(Me.txtSensitiveDaten.Text, String))
        Me.Applikation.iSensitiveDatenAdministriertdurch = New SqlInt32(CType(Me.cbboxAdministriertdurch.SelectedValue, Int32))

        Me.Applikation.sSensitiveDatenUeberwachungBemerkung = New SqlString(CType(Me.TxtUeberwachung.Text, String))
        Me.Applikation.iSensitiveDatenUeberwachungPeriodizitaet = New SqlInt32(CType(Me.cbboxPeriodizitaet.SelectedValue, Int32))
        Me.Applikation.sSensitiveDatenUserBemerkung = New SqlString(CType(Me.TxtUser.Text, String))
        Me.Applikation.iSensitiveDatenAnzahlComit = New SqlInt32(CType(Me.TxtAnzComit.Text, Int32))
        Me.Applikation.iSensitiveDatenAnzahlExterne = New SqlInt32(CType(Me.txtAnzExterne.Text, Int32))

        Me.Applikation.bStrukturelement = New SqlBoolean(CType(Me.cbstrukturelement.Checked = True, Boolean))






        Applikation.Save_CheckedData(Me.lboxInstalliertauf, 1)
        Applikation.Save_CheckedData(Me.lboxInstalliertals, 2)
        'Applikation.Save_CheckedData(Me.lboxStandardFuer, 3)
        Applikation.Save_CheckedData(Me.lboxabhaengigkeit, 4)


        Me.Applikation.iIKVBizRelevanzNr = New SqlInt32(CType(Me.cbboxGeschaeftsrelevanz.SelectedValue, Int32))
        Me.Applikation.iIKVBizAusfalldauerNr = New SqlInt32(CType(Me.cbboxMaxAusfalldauer.SelectedValue, Int32))
        Me.Applikation.iIKVProviderAussfalldauerNr = New SqlInt32(CType(cbboxVereinbarteAusfalldauer.SelectedValue, Int32))
        Me.Applikation.iIKVLoesungNr = New SqlInt32(CType(cbboxIKVLoesungsart.SelectedValue, Int32))
        Me.Applikation.sIKVBIZBemerkung = New SqlString(CType(Me.txtIKVBizBemerkung.Text, String))
        Me.Applikation.sIKVProviderBemerkung = New SqlString(CType(Me.txtIKVProviderBemerkung.Text, String))
        Me.Applikation.sIKVLoesungBemerkung = New SqlString(CType(Me.txtIKVLoesungBemerkung.Text, String))
        Me.Applikation.bIKVProviderVereinbart = New SqlBoolean(CType(Me.cbIKVVereinbart.Checked = True, Boolean))

        '2012-04-11 Erweiterung ITSP-Produktmapping
        If Me.cbboxITSPProdukt.SelectedValue < 0 Then
            Me.Applikation.iTicketXPert_ITSPProduktnr = New SqlInt32(CType(0, Int32))
        Else
            Me.Applikation.iTicketXPert_ITSPProduktnr = New SqlInt32(CType(Me.cbboxITSPProdukt.SelectedValue, Int32))
        End If
        Me.Applikation.sIntranetBezeichnung = New SqlString(CType(Me.txtIntranetbezeichnung.Text, String))
        Me.Applikation.bVerwendungIntragnet = New SqlBoolean(CType(Me.cbIntrant.Checked, Boolean))
        Me.Applikation.bIntranetObligatorisch = New SqlBoolean(CType(Me.cbPflichtAbo.Checked, Boolean))


        Applikation.Save_Data()
        Me.FormDataChanged = False
    End Sub

    Private Function Get_CheckedItems(ByRef clb As CheckedListBox) As String
        Dim i As Integer = 0
        Dim s As String = ""
        For i = 1 To clb.CheckedItems.Count
            s = s + clb.CheckedItems(i).ToString

        Next
        Return s
    End Function
#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 "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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Display in a message box all the items that are checked.
        Dim indexChecked As Integer
        Dim itemChecked As Object
        Const quote As String = """"


        ' First show the index and check state of all selected items.
        For Each indexChecked In lboxInstalliertals.CheckedIndices
            ' The indexChecked variable contains the index of the item.
            MessageBox.Show("Index#: " + indexChecked.ToString() + ", is checked. Checked state is:" + _
                            lboxInstalliertals.GetItemCheckState(indexChecked).ToString() + ".")
        Next

        ' Next show the object title and check state for each item selected.
        For Each itemChecked In lboxInstalliertals.CheckedItems

            ' Use the IndexOf method to get the index of an item.
            MessageBox.Show("Item with title: " + quote + itemChecked.ToString() + quote + _
                            ", is checked. Checked state is: " + _
                            lboxInstalliertals.GetItemCheckState(lboxInstalliertals.Items.IndexOf(itemChecked)).ToString() + ".")
        Next

        For Each GG As System.Data.DataRowView In Me.lboxInstalliertals.CheckedItems
            MsgBox("hALLO")

        Next

    End Sub

    Private Sub cbTicketXPertVerwendung_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbTicketXPertVerwendung.CheckedChanged
        If Me.cbTicketXPertVerwendung.Checked = False Then
            Me.grpTicketXpert.Enabled = False
        Else
            Me.grpTicketXpert.Enabled = True
        End If
    End Sub
    ''' <summary>
    ''' Index-Wechsel auf TabControlApplikation
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>

    Private Sub TabControlApplikation_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControlApplikation.SelectedIndexChanged
        Refresh_Registerlasche()
    End Sub

    ''' <summary>
    ''' Aktuelle Registerlasche aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Registerlasche()
        'Me.DiagramControl1.Check_Changes()
        Select Case Me.TabControlApplikation.SelectedTab.Text
            Case "Vertragsinhalt", "Suchbegriffe"
            Case "Lizenzen"
                Refresh_Lizenzen()
            Case "Dokumente"
                Refresh_Dokumente()
            Case "Kontakte"
                Refresh_Kontakte()
            Case "Ereignisse"
                'Refresh_Ereignisse()
            Case "Vertragsbeziehungen"
                Refresh_Vertragsbeziehungen()
            Case "Testing"
                Refresh_Drehbuecher()
                Refresh_Abhaengigkeiten()
            Case "Architektur"
                Me.Check_Changes()
                Me.DiagramControl1.Init_Diagram()
                Me.DiagramControl1.Refresh()
                Me.DiagramControl1.TempFilePath = Globals.clsapplication.sTmp_filepath
                Me.DiagramControl1.ConnectionString = Globals.sConnectionString
                Me.DiagramControl1.ApplikationNr = Me.Applikation.iApplikationNr.Value
                Me.DiagramControl1.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
                Me.FormDataChanged = False
            Case "Release-Logbuch"
                Refresh_ReleaseLogbuch()
            Case "Versionen"
                Refresh_Versionen()
            Case "IKV"
                Refresh_IKV_Tests()
        End Select
    End Sub

#Region "Lizenzen"

    Private Function Refresh_Lizenzen()
        Lizenzkauf_Aktualisieren()
        Exit Function
        'Try
        '    Me.C1Lizenzkäufe.DataSource = Nothing
        '    Me.C1Lizenzschluessel.DataSource = Nothing
        'Catch ex As Exception

        'End Try
        'Me.Applikation.Get_Vertragslizenzen(Me.C1Lizenzvertraege, Me.Aktuelle_Applikation)
        'Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzvertraege, "ApplikationLizenzvertragselement", Me.Applikation.Lizenzen)
        ''Me.Lizenzkauf_Aktualisieren()

    End Function

    ''' <summary>
    ''' Rowstyle von inaktiven Kündigungsfristen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Lizenzvertraege_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs)
        'Try
        '    If Me.C1Lizenzvertraege.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

#Region "Lizenzkauf"
    ''' <summary>
    ''' Aktualiserung der Grids Lizenzkauf und Lizenzschluessel
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Lizenzkauf_Aktualisieren()
        Try
            Me.Applikation.Get_Lizenzen(0, Me.Aktuelle_Applikation)
            For Each dr As DataRow In Me.Applikation.Lizenzkauf.Rows
                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
            Me.C1Lizenzkäufe.DataSource = Nothing
            Me.C1Lizenzkäufe.DataSource = Me.Applikation.Lizenzkauf
            Me.C1Lizenzkäufe.DataMember = Me.Applikation.Lizenzkauf.TableName
            Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzkäufe, "Lizenzkauf_Uebersicht", Me.Applikation.Lizenzkauf)

            'Me.Applikation.Get_Lizenzkauf(Me.C1Lizenzvertraege.Columns("Vertragselementapplikationnr").Value, Me.Aktuelle_Applikation)
            'Me.C1Lizenzkäufe.DataSource = Me.Applikation.Lizenzkauf
            'Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzkäufe, "Lizenzkauf", Me.Applikation.Lizenzkauf)

            Me.Lizenzschluessel_Aktualisieren()
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

 
    ''' <summary>
    ''' Rowstyle von inaktiven Kündigungsfristen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    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("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>
    ''' Mousedown-Ereignis auf Lizenzkauf
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Lizenzkäufe_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Lizenzkäufe.MouseDown
        Me.Lizenzschluessel_Aktualisieren()
    End Sub

    Private Sub C1Lizenzkäufe_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Lizenzkäufe.RowColChange
        Me.Lizenzschluessel_Aktualisieren()

    End Sub
#End Region


#Region "Lizenzschluessel"
    ''' <summary>
    ''' Aktualiserung der Grids Lizenzkauf und Lizenzschluessel
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Lizenzschluessel_Aktualisieren()
        Try
            Try
                Me.C1Lizenzschluessel.DataSource = Nothing
            Catch ex As Exception

            End Try
            Me.Applikation.Get_Lizenzschluessel(Me.C1Lizenzkäufe.Columns("Lizenzkaufnr").Value)
            Me.C1Lizenzschluessel.DataSource = Me.Applikation.Lizenzschluessel
            Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Lizenzschluessel, "Lizenzschluessel", Me.Applikation.Lizenzschluessel)
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

 


    ''' <summary>
    ''' Anzeige allfälliger Cellen-Tips
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Lizenzschluessel_FetchCellTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles C1Lizenzschluessel.FetchCellTips
        Dim ts As New TKB.VV.Utils.Tabellenspalte
        ts.Tabelle = "DokumentAblageOrt"
        Try
            ts.Feld = Me.C1Lizenzschluessel.Columns(e.ColIndex).DataField
            ts.getspalte()
            e.CellTip = ts.TipText
        Catch
        End Try
        ts = Nothing

    End Sub

    ''' <summary>
    ''' Rowstyle von inaktiven Kündigungsfristen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Lizenzschluessel_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Lizenzschluessel.FetchRowStyle
        Try
            If Me.C1Lizenzschluessel.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

#End Region

    Private Sub C1Lizenzvertraege_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Me.Lizenzkauf_Aktualisieren()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrehbuchspeichern.Click
        Dim f As frmDokument
        Dim i As Integer = 0
        i = Me.Applikation.Dokument.Exists_Testdrehbuch(Me.Applikation.iApplikationNr.Value)
        If i < 1 Then
            f = New frmDokument(0, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
        Else
            f = New frmDokument(i, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, False)
        End If
        f.Show()
    End Sub

    Private Sub btnDrehbuchanzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrehbuchanzeigen.Click
        Dim i As Integer = 0
        i = Me.Applikation.Dokument.Exists_Testdrehbuch(Me.Applikation.iApplikationNr.Value)
        If i > 0 Then
            Me.Applikation.Dokument.Show_Doc(i)
        End If
    End Sub


#Region "Dokumente"
    ''' <summary>
    ''' Dokumetne_Aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Dokumente()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1Dokumente.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1Dokumente.Bookmark

        Me.C1Dokumente.Enabled = False

        Me.Applikation.Get_Dokumente(Me.C1Dokumente, Me.ImageListeDocIcon)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Dokumente, "Dokument", Me.Applikation.dokumente)
        If filtertext <> "none" Then Me.C1Dokumente.Columns("Aktiv").FilterText = filtertext
        sec.Set_Form_Security(Me)

        Try
            Me.C1Dokumente.Bookmark = bm
        Catch ex As Exception
        End Try
        Me.C1Dokumente.Enabled = True
    End Sub

    ''' <summary>
    ''' Dokument anzeigen (Dialog)
    ''' </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 f As New frmDokument(Me.C1Dokumente.Columns("Dokumentnr").Value, 1, Me.Applikation.iApplikationNr.Value, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try
    End Sub

    ''' <summary>
    ''' Neues Dokument generieren und anzeigen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub DokumentNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentNeuToolStripMenuItem.Click
        Try
            Dim f As New frmDokument(0, 3, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try

    End Sub

    ''' <summary>
    ''' Dokument inaktivieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub DokumentLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
        Try
            If msg.Show_MessageYesNo(275) = MsgBoxResult.Yes Then
                Me.Applikation.Dokument.Delete_Dokument(Me.C1Dokumente.Columns("Dokumentnr").Value)
                evh.Dokumente_Geloscht()
            End If
        Catch
        End Try

    End Sub
    ''' <summary>
    ''' Doppelklick eines Eintrages - Dokument-Anzeige (Dialog)
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Ist der Button DokumentAnzeigenToolStripMenuItem disabled, Doppelklick ignorieren</remarks>

    Private Sub DokumentAnzeigen_Dokument_ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokumentAnzeigen_Dokument_ToolStripMenuItem.Click
        Try
            Me.Applikation.Dokument.Show_Doc(Me.C1Dokumente.Columns("Dokumentnr").Value)
        Catch
        End Try

    End Sub
    ''' <summary>
    ''' Doppelklick eines Eintrages - Dokument-Anzeige (Dialog)
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Ist der Button DokumentAnzeigenToolStripMenuItem disabled, Doppelklick ignorieren</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
        Me.DokumentAnzeigenToolStripMenuItem_Click(sender, e)
    End Sub
    ''' <summary>
    ''' Rowstyle von inaktiven Dokumenten
    ''' </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>
    ''' Positionierung im Grid
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Dokumente_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Dokumente.MouseDown
        Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
    End Sub
#End Region

#Region "Context-Menu-Handling"

    ''' <summary>
    ''' Enabling bzw. Disabling der Menu-Einträge aufgrund der angezeigten Rows im Truedbgrind
    ''' </summary>
    ''' <param name="menu">Zu bearbeitendes Menu</param>
    ''' <param name="c1data">Betroffenes Grid</param>
    ''' <returns></returns>
    ''' <remarks>Nach dem Setzen der Submenus wird sec.form_Security durchlaufen, damit allfällig standardmössig aktivierte Menueinträge
    ''' aufgrund der Security-Einstellung wieder deaktiviert werden</remarks>
    Private Function Disable_Enable_Menu(ByRef menu As ContextMenuStrip, ByRef c1data As C1TrueDBGrid)
        If Me.FormReadonly Then
            For Each obj As Object In menu.Items
                Dim objtype As System.Type = obj.GetType
                If LCase(objtype.Name) = "toolstripmenuitem" Then
                    Dim mnu As ToolStripMenuItem = obj
                    If (mnu.Text.IndexOf("Anzeigen") > 0 Or mnu.Text.IndexOf("anzeigen") > 0) And c1data.Splits(0).Rows.Count > 0 Then
                        mnu.Enabled = True
                    Else
                        mnu.Enabled = False
                    End If
                End If
            Next
            sec.Set_Form_Security(Me)
            Exit Function
        End If

        If c1data.Splits(0).Rows.Count = 0 Then
            For Each obj As Object In menu.Items
                Dim objtype As System.Type = obj.GetType
                If LCase(objtype.Name) = "toolstripmenuitem" Then
                    Dim mnu As ToolStripMenuItem = obj
                    If mnu.Text.IndexOf("Neu") > 0 Then
                        mnu.Enabled = True
                    Else
                        mnu.Enabled = False
                    End If
                End If
            Next
        Else
            For Each obj As Object In menu.Items
                Dim objtype As System.Type = obj.GetType
                If LCase(objtype.Name) = "toolstripmenuitem" Then
                    Dim mnu As ToolStripMenuItem = obj
                    mnu.Enabled = True
                End If
            Next
        End If
        sec.Set_Form_Security(Me)

    End Function
    ''' <summary>
    ''' Handelt das Opending-Ereignis des Context-Menus
    ''' </summary>
    ''' <remarks>
    ''' Überi Disable_Enable_Menu werden die Menueinträge aktiviert bzw. deaktiviert
    ''' </remarks>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <seealso
    ''' cref="M:Vertragsverwaltung.frmVertragselement.Disable_Enable_Menu(System.Windows.Forms.ContextMenuStrip@,C1.Win.C1TrueDBGrid.C1TrueDBGrid@)"></seealso>
    Private Sub DokumenteMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DokumenteMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1Dokumente)
    End Sub
#End Region

#Region "Kontakte"
    ''' <summary>
    ''' Kontakte aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    ''' 

    Private Sub Refresh_Kontakte()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1Kontakte.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1Kontakte.Bookmark

        Me.C1Kontakte.Enabled = False
        Me.Applikation.Get_Applikationskontakte(Me.C1Kontakte)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Kontakte, "Vertragskontakt", Me.Applikation.Applikationskontakte.Tabledata)
        If filtertext <> "none" Then Me.C1Kontakte.Columns("Aktiv").FilterText = filtertext
        sec.Set_Form_Security(Me)

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

        End Try
        Me.C1Kontakte.Enabled = True

    End Sub

    ''' <summary>
    ''' Anzeigen bzw. bearbeitnen eines Kontaktes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub KontaktAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktAnzeigenToolStripMenuItem.Click
        Try
            Dim f As New frmApplikationskontakt(Me.C1Kontakte.Columns("Applikationkontaktnr").Value, 1, Me.Aktuelle_Applikation, False, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try
    End Sub
    ''' <summary>
    ''' Disable bzw. Enable der Menueinträge
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub KontakteMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles KontakteMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1Kontakte)
    End Sub

    ''' <summary>
    ''' Rowstyle von inaktiven Kontakten
    ''' </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>
    ''' Mousedown Kontakte
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Kontakte_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Kontakte.MouseDown
        Me.C1Kontakte.Bookmark = Me.C1Kontakte.RowContaining(e.Y)
    End Sub

    ''' <summary>
    ''' Doppelklick auf einem Kontakt
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Ist der MenuEintrag KontaktAnzeigenToolStripMenuItem disabled, 
    ''' wird der Doppelklick ignoriert</remarks>
    Private Sub C1Kontakte_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Kontakte.DoubleClick

        If Me.KontaktAnzeigenToolStripMenuItem.Enabled = False Then
            Exit Sub
        End If
        Try
            Me.KontaktAnzeigenToolStripMenuItem_Click(sender, e)

        Catch ex As Exception

        End Try
    End Sub

    ''' <summary>
    ''' Neuer Vertragskontakt erstellen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub KontaktNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktNeuToolStripMenuItem.Click
        Try
            'Dim i As Integer = Me.Vertragselement.Vertragskontakt.Add_New(Me.Vertragselement.iVertragselementnr.Value)
            Dim f As New frmApplikationskontakt(0, 1, Me.Aktuelle_Applikation, True)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try

    End Sub
    ''' <summary>
    ''' Vertragskontakt inaktivieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub KontaktLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktLöschenToolStripMenuItem.Click
        Try
            If msg.Show_MessageYesNo(265) = MsgBoxResult.Yes Then
                Me.Applikation.Applikationskontakt.Delete_Applikationskontakt(Me.C1Kontakte.Columns("Applikationkontaktnr").Value)
                evh.Kontakte_Geloescht()
            End If
        Catch
        End Try
    End Sub
#End Region

#Region "Vertragselemente"
    ''' <summary>
    ''' Applikationen aktualiseren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Vertragsbeziehungen()
        Try

            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1Vertragselemente.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

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

        Me.C1Vertragselemente.Enabled = False
        Dim datac1vertragselemente As New DataTable
        datac1vertragselemente = Me.Applikation.Get_Vertragselemente(Me.Applikation.iApplikationNr.Value)
        Me.C1Vertragselemente.DataSource = datac1vertragselemente
        Me.C1Vertragselemente.DataMember = datac1vertragselemente.TableName
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Vertragselemente, "VertragselementApplikation", datac1vertragselemente)
        sec.Set_Form_Security(Me)
        If filtertext <> "none" Then Me.C1Vertragselemente.Columns("Aktiv").FilterText = filtertext

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

        Me.C1Vertragselemente.Enabled = True
    End Sub

    ''' <summary>
    ''' Rowstyle von inaktiven Pendenzen
    ''' </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
    ''' <summary>
    ''' Positionierung im Grid
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Applikationen_Mousedown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Vertragselemente.MouseDown
        Me.C1Vertragselemente.Bookmark = Me.C1Vertragselemente.RowContaining(e.Y)
    End Sub

    Private Sub evh_FormularReleaseLogbuchClosed() Handles evh.FormularReleaseLogbuchClosed
        Me.Refresh_ReleaseLogbuch()
    End Sub

    Private Sub evh_FormularVertragselementApplikation_Closed() Handles evh.Update_Uebersicht
        Try
            Me.Refresh_Registerlasche()
        Catch ex As Exception
        End Try
    End Sub

    ''' <summary>
    ''' VertragsbeziehungMenuStrip Opening
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VertragsbeziehungMenuStrip_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles VertragsbeziehungMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1Vertragselemente)
    End Sub

    ''' <summary>
    ''' Anzeige Vertragselement
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VertragselementAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertragselementAnzeigenToolStripMenuItem.Click
        Dim f As New frmVertragselement(Me.C1Vertragselemente.Columns(1).Value, Me.FormReadonly, False)
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub
#End Region



    Private Sub dtPickerInaktivSeit_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtPickerInaktivSeit.ValueChanged
        Dim s As String
        Dim obj As DateTimePicker = sender
        s = obj.Name
        s = "txt" + s.Substring(8, s.Length - 8)
        Dim l As New List(Of Control)
        Dim txtb As MaskedTextBox
        GetControl(Me, s, l)
        For Each ctl As Control In l
            txtb = CType(ctl, MaskedTextBox)
            txtb.Text = obj.Value
        Next
        Me.txtInaktivseit_Leave(sender, e)

    End Sub

    Private Sub txtInaktivseit_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInaktivseit.Leave
        If Trim(Me.txtInaktivseit.Text) <> ".  ." Then
            Me.cbAktiv.Checked = False
        Else
            Me.cbAktiv.Checked = True
        End If
    End Sub

    Private Sub btnSearchAppl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchAppl.Click
        Try
            Dim f As New frmVertragselementApplikation(0, False)
            f.ShowDialog()
            If f.SelectedApplication <> 0 Then
                Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, f.SelectedApplication, "")
            End If
        Catch ex As Exception
        End Try
    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

    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 cbboxVerantwortung_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbboxVerantwortung.SelectedIndexChanged
        Try
            Me.Applikation.Refresh_Teams(Me.cbboxVerantwortung.SelectedValue)
            If Me.Applikation.Teams.Rows.Count = 0 Then
                Me.cbboxTeam.Enabled = False
                Me.cbboxTeam.SelectedValue = -1
            Else
                Me.cbboxTeam.Enabled = True
                Me.cbboxTeam.DataSource = Me.Applikation.Teams
                Me.cbboxTeam.DisplayMember = "Bezeichnung"
                Me.cbboxTeam.ValueMember = "Keyvalue"
            End If
        Catch
        End Try
    End Sub


#Region "Testing"
    ''' <summary>
    ''' Dokumetne_Aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Drehbuecher()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1Drehbuch.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1Drehbuch.Bookmark

        Me.C1Drehbuch.Enabled = False

        Me.Applikation.Get_Drehbuecker(Me.C1Drehbuch, Me.ImageListeDocIcon)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Drehbuch, "Dokument", Me.Applikation.dokumente)
        If filtertext <> "none" Then Me.C1Drehbuch.Columns("Aktiv").FilterText = filtertext
        sec.Set_Form_Security(Me)
        Try
            Me.C1Drehbuch.Bookmark = bm
        Catch ex As Exception
        End Try
        Me.C1Drehbuch.Enabled = True
    End Sub

    Private Sub DrehbuchAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrehbuchAnzeigenToolStripMenuItem.Click
        Try
            Dim f As New frmDokument(Me.C1Drehbuch.Columns("Dokumentnr").Value, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try

    End Sub

    Private Sub DrehbuchNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrehbuchNeuToolStripMenuItem.Click
        Try
            Dim f As New frmDokument(0, 2, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try

    End Sub

    Private Sub DrehbuchLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DrehbuchLöschenToolStripMenuItem.Click
        Try
            If msg.Show_MessageYesNo(275) = MsgBoxResult.Yes Then
                Me.Applikation.Dokument.Delete_Dokument(Me.C1Drehbuch.Columns("Dokumentnr").Value)
                evh.Dokumente_Geloscht()
            End If
        Catch
        End Try

    End Sub

    Private Sub Drehbuch_Anzeigen_Dokument_ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Drehbuch_Anzeigen_Dokument_ToolStripMenuItem.Click
        Try
            Me.Applikation.Dokument.Show_Doc(Me.C1Drehbuch.Columns("Dokumentnr").Value)
        Catch
        End Try
    End Sub

    Private Sub C1Drehbuch_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Drehbuch_Anzeigen_Dokument_ToolStripMenuItem_Click(sender, e)
        Catch ex As Exception
        End Try
    End Sub


    ''' <summary>
    ''' Dokumetne_Aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Refresh_Abhaengigkeiten()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1Abhaengigkeiten.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1Abhaengigkeiten.Bookmark

        Me.C1Abhaengigkeiten.Enabled = False

        Me.Applikation.Get_Applikationsabhaengigkeiten(Me.C1Abhaengigkeiten, Me.Applikation.iApplikationNr.Value)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Abhaengigkeiten, "ApplikationAbhaengigkeit", Me.Applikation.Applikationabhaengigkeiten.Tabledata)
        If filtertext <> "none" Then Me.C1Abhaengigkeiten.Columns("Aktiv").FilterText = filtertext
        sec.Set_Form_Security(Me)
        Try
            Me.C1Abhaengigkeiten.Bookmark = bm
        Catch ex As Exception
        End Try
        Me.C1Abhaengigkeiten.Enabled = True
    End Sub

    ''' <summary>
    ''' Neue Applikationsabhaengigkeit
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub AbhaengigkeitNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbhaengigkeitNeuToolStripMenuItem.Click
        Try
            Dim f As New frmApplikationAbhaengigkeit(0, Me.Applikation.iApplikationNr.Value, Me.FormReadonly, True)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub AbhaengigkeitAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbhaengigkeitAnzeigenToolStripMenuItem.Click
        Try
            Dim f As New frmApplikationAbhaengigkeit(Me.C1Abhaengigkeiten.Columns("Applikationabhaengigkeitnr").Value, 0, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try

    End Sub

    Private Sub AbhaengigkeitLoeschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbhaengigkeitLoeschenToolStripMenuItem.Click
        Try
            If msg.Show_MessageYesNo(852) = MsgBoxResult.Yes Then
                Me.Applikation.Applikationabhaengigkeit.Delete_Referenz(Me.C1Abhaengigkeiten.Columns("ApplikationAbhaengigkeitnr").Value)
                Me.Refresh_Abhaengigkeiten()
            End If
        Catch
        End Try

    End Sub
#End Region

    Private Sub DrehbuchMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles DrehbuchMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1Drehbuch)
    End Sub

    Private Sub C1Drehbuch_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Drehbuch.DoubleClick
        Try
            Me.Applikation.Dokument.Show_Doc(Me.C1Drehbuch.Columns("Dokumentnr").Value)
        Catch
        End Try

    End Sub
    Private Sub C1Drehbuch_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Drehbuch.FetchRowStyle
        Try
            If Me.C1Drehbuch.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

    Private Sub AbhaengigkeitMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles AbhaengigkeitMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1Abhaengigkeiten)
    End Sub

    Private Sub C1Abhaengigkeiten_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Abhaengigkeiten.DoubleClick
        Try
            Dim f As New frmApplikationAbhaengigkeit(Me.C1Abhaengigkeiten.Columns("Applikationabhaengigkeitnr").Value, 0, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
        Catch ex As Exception
        End Try

    End Sub

    Private Sub C1Abhaengigkeiten_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Abhaengigkeiten.FetchRowStyle
        Try
            If Me.C1Abhaengigkeiten.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


    Private Sub cboxNurAktive_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboxNurAktive.CheckedChanged
    End Sub


    Private Sub MassenUpdatesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MassenUpdatesToolStripMenuItem.Click
        Dim f As New frmKontaktMassenupdate
        f.ShowDialog()
    End Sub

    Private Sub TreeApplikationenAlleKnotenSchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeApplikationenAlleKnotenSchliessenToolStripMenuItem.Click
        Me.TreeApplikationen.CollapseAll()
    End Sub
    ''' <summary>
    ''' Alle Knoten öffnen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TreeApplikationenAlleKnotenÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeApplikationenAlleKnotenÖffnenToolStripMenuItem.Click
        Me.TreeApplikationen.ExpandAll()
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnApplReport.Click
        Me.DiagramControl1.Check_Changes()
        Dim rep As New Reporting20.VV_ABA_Reporting(Globals.clsapplication.iApplikationsnr.Value, _
                                               Globals.clsmitarbeiter.iMitarbeiternr.Value, Globals.sConnectionString, _
                                               Globals.SecurityDaten, Globals.Spaltendaten, Globals.ToolTipDaten)
        rep.ShowApplikationsReport(999, Me.Applikation.iApplikationNr.Value, Me.MdiParent)

        'Dim auswertungen As New TKB.Auswertung.clsAuswertung
        'Dim SQLWhere As String = ""
        'Dim Auswertungsdaten As New DataTable

        'auswertungen.Get_Auswertung(999)
        'Auswertungsdaten = auswertungen.Get_Auswertungsdaten(auswertungen.Auswertung.sSQL.Value, Me.Applikation.iApplikationNr.Value)
        'Dim f As New frmcrreporting(Auswertungsdaten, auswertungen.Auswertung.iAuswertungNr.Value, auswertungen, False)
        'f.MdiParent = Me.MdiParent
        'Me.Cursor = Cursors.Default
        'f.Show()
    End Sub


    Private Sub C1Lizenzvertraege_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs)
        Me.Lizenzkauf_Aktualisieren()
    End Sub





#Region "Release"
    ''' <summary>
    ''' Release aktualisieren
    ''' </summary>
    ''' <remarks></remarks>
    ''' 

    Private Sub Refresh_ReleaseLogbuch()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1ReleaseLogbuch.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1ReleaseLogbuch.Bookmark
        'Me.C1ReleaseLogbuch.Columns("Releasedatum").NumberFormat = "FormatText Event"
        Me.C1ReleaseLogbuch.Enabled = False
        Me.Applikation.Get_ReleaseLogbuch(Me.C1ReleaseLogbuch, Me.Aktuelle_Applikation)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1ReleaseLogbuch, "ApplikationLogbuch", Me.Applikation.ReleaseLogbooks.Tabledata)
        If filtertext <> "none" Then Me.C1ReleaseLogbuch.Columns("Aktiv").FilterText = filtertext
        sec.Set_Form_Security(Me)

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

        End Try
        Me.C1ReleaseLogbuch.Enabled = True

    End Sub

    ''' <summary>
    ''' Anzeigen bzw. bearbeitnen eines Kontaktes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ReleaseLogbuchAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReleaseLogbuchAnzeigenToolStripMenuItem.Click
        Dim f As New FrmReleaseLogbuch(Me.C1ReleaseLogbuch.Columns(0).Value, Me.Aktuelle_Applikation, False, Me.FormReadonly)
        f.MdiParent = Me.MdiParent
        f.Show()
        'f.ShowDialog()
        'Me.Refresh_ReleaseLogbuch()
    End Sub
    ''' <summary>
    ''' Disable bzw. Enable der Menueinträge
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ReleaseLogbuchMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ReleaseLogbuchMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1ReleaseLogbuch)
    End Sub

    ''' <summary>
    ''' Rowstyle von inaktiven Kontakten
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1ReleaseLogbuch_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1ReleaseLogbuch.FetchRowStyle
        Try
            If Me.C1ReleaseLogbuch.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>
    ''' Mousedown Kontakte
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ReleaseLogbuch_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1ReleaseLogbuch.MouseDown
        Me.C1ReleaseLogbuch.Bookmark = Me.C1ReleaseLogbuch.RowContaining(e.Y)
    End Sub

    ''' <summary>
    ''' Doppelklick auf einem Kontakt
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Ist der MenuEintrag KontaktAnzeigenToolStripMenuItem disabled, 
    ''' wird der Doppelklick ignoriert</remarks>
    Private Sub ReleaseLogbuch_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1ReleaseLogbuch.DoubleClick

        If Me.ReleaseLogbuchAnzeigenToolStripMenuItem.Enabled = False Then
            Exit Sub
        End If
        Try
            Me.ReleaseLogbuchAnzeigenToolStripMenuItem_Click(sender, e)

        Catch ex As Exception

        End Try
    End Sub

    ''' <summary>
    ''' Neuer Vertragskontakt erstellen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ReleaseLogbuchNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReleaseLogbuchNeuToolStripMenuItem.Click
        Try
            'Dim i As Integer = Me.Vertragselement.Vertragskontakt.Add_New(Me.Vertragselement.iVertragselementnr.Value)
            Dim f As New FrmReleaseLogbuch(0, Me.Aktuelle_Applikation, True, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
            'f.ShowDialog()
            'Me.Refresh_ReleaseLogbuch()
        Catch ex As Exception
        End Try

    End Sub
    ''' <summary>
    ''' Vertragskontakt inaktivieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ReleaseLogbuchLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReleaseLogbuchInaktivierenToolStripMenuItem.Click
        Try
            If msg.Show_MessageYesNo(855) = MsgBoxResult.Yes Then
                Dim al As New TKB.VV.Applikation.clsApplikationLogbuch
                al.Delete_ApplikationLogubuch(Me.C1ReleaseLogbuch.Columns("ApplikationLogbuchNr").Value)
                al.dispose()
                Me.Refresh_ReleaseLogbuch()
            End If
        Catch ex As Exception

        End Try
    End Sub
#End Region

#Region "Versionen"
    Private Sub Refresh_Versionen()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1Versionen.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1Versionen.Bookmark
        'Me.C1Versionen.Columns("Releasedatum").NumberFormat = "FormatText Event"
        Me.C1Versionen.Enabled = False
        Me.Applikation.Get_ApplikationVersionen(Me.C1Versionen, Me.Aktuelle_Applikation)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Versionen, "ApplikationVersion", Me.Applikation.Versionen.Tabledata)
        Try
            If filtertext <> "none" Then Me.C1Versionen.Columns("Aktiv").FilterText = filtertext

        Catch ex As Exception

        End Try
        sec.Set_Form_Security(Me)

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

        End Try
        Me.C1Versionen.Enabled = True

    End Sub

    ''' <summary>
    ''' Anzeigen bzw. bearbeitnen eines Kontaktes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VersionenAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionAnzeigenToolStripMenuItem.Click
        Dim f As New frmVersion(Me.C1Versionen.Columns(0).Value, Me.Aktuelle_Applikation, False, Me.FormReadonly)
        f.MdiParent = Me.MdiParent
        f.Show()
        'f.ShowDialog()
        'Me.Refresh_ReleaseLogbuch()
    End Sub
    ''' <summary>
    ''' Disable bzw. Enable der Menueinträge
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VersionMenuStrip_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles VersionenContextMenuStrip.Opening
        Me.Disable_Enable_Menu(sender, Me.C1Versionen)
    End Sub

    ''' <summary>
    ''' Rowstyle von inaktiven Kontakten
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub C1Versionen_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Versionen.FetchRowStyle
        Try
            If Me.C1Versionen.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>
    ''' Mousedown Kontakte
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Versionen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Versionen.MouseDown
        Me.C1Versionen.Bookmark = Me.C1Versionen.RowContaining(e.Y)
    End Sub

    ''' <summary>
    ''' Doppelklick auf einem Kontakt
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Ist der MenuEintrag KontaktAnzeigenToolStripMenuItem disabled, 
    ''' wird der Doppelklick ignoriert</remarks>
    Private Sub Versionen_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Versionen.DoubleClick

        If Me.VersionAnzeigenToolStripMenuItem.Enabled = False Then
            Exit Sub
        End If
        Try
            Me.VersionenAnzeigenToolStripMenuItem_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub

    ''' <summary>
    ''' Neuer Vertragskontakt erstellen
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VersionNeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionNeuToolStripMenuItem.Click
        Try
            'Dim i As Integer = Me.Vertragselement.Vertragskontakt.Add_New(Me.Vertragselement.iVertragselementnr.Value)
            Dim f As New FrmVersion(0, Me.Aktuelle_Applikation, True, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
            'f.ShowDialog()
            'Me.Refresh_ReleaseLogbuch()
        Catch ex As Exception
        End Try

    End Sub
    ''' <summary>
    ''' Vertragskontakt inaktivieren
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub VersionLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionInaktivierenToolStripMenuItem.Click
        Try
            Dim al As New TKB.VV.Applikation.clsApplikationVersion
            If al.Check_Version(Me.C1Versionen.Columns("ApplikationVersionNr").Value) = False Then
                msg.show_standardmessage(859, MsgBoxStyle.Critical)
                al.dispose()
                Exit Sub
            End If
            If msg.Show_MessageYesNo(857) = MsgBoxResult.Yes Then
                al.Delete_ApplikationVersion(Me.C1Versionen.Columns("ApplikationVersionNr").Value)
                al.dispose()
                Me.Refresh_Versionen()
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub evh_FormularApplikationVersionClosed() Handles evh.FormularApplikationVersionClosed
        Me.Refresh_Versionen()
    End Sub

#End Region

    Private Sub lblInaktivseit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblInaktivseit.Click

    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 cbboxParentTree_AfterSelect(ByVal sender As System.Object) Handles cbboxParentTree.AfterSelect
    End Sub

    Private Sub Struktur2XMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Struktur2XMLToolStripMenuItem.Click
        TVToExcel.Export_Applikationen(Me.TreeApplikationen, "")
        'Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xls")
        'Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xls|Alle Dateien|*.*"
        'Me.SaveFileDialog1.ShowDialog()
        'If Me.SaveFileDialog1.FileName <> "" Then
        'TVToExcel.Export_Applikationen(Me.TreeApplikationen, Me.SaveFileDialog1.FileName)
        'End If
    End Sub

    Private Sub SortierungAlphabetischToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rbsortalpha_CheckedChanged(sender, e)
    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 cbstrukturelement_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstrukturelement.CheckedChanged
        If Me.cbstrukturelement.Checked = True Then
            sec.Set_Form_Readonly(Me)
            If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then Exit Sub
            Me.txtBezeichnung.Enabled = True
            Me.txtBezeichnung.ReadOnly = False
            Me.txtBezeichnung.BackColor = Color.White
            Me.txtKurzbeschreibung.Enabled = True
            Me.txtKurzbeschreibung.ReadOnly = False
            Me.txtKurzbeschreibung.BackColor = Color.White
            Me.cbboxKategorie.Enabled = True
            Me.cbboxKategorie.BackColor = Color.White

            Me.TSBtnSave.Enabled = True
            Me.TSBtnCopy.Enabled = True
            Me.TSBtnNew.Enabled = True
            Me.TSBtnDelete.Enabled = True
            Me.cbstrukturelement.Enabled = True
            Me.FormReadonly = True
            Me.IsSturkturElement = True
            Me.cboxNurAktive.Enabled = True
            Me.rbsortalpha.Enabled = True
            Me.rbsortstruktur.Enabled = True
        Else
            sec.Set_Form_Default(Me)
            sec.Set_Form_Security(Me)
            If Me.TSBtnSave.Enabled = False Then Me.FormReadonly = True Else Me.FormReadonly = False
            Me.IsSturkturElement = False
        End If


    End Sub

    Private Sub StrukturAnzeigeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        rbsortalpha_CheckedChanged(sender, e)
    End Sub

    Private Sub rbsortstruktur_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsortstruktur.CheckedChanged

    End Sub

    Private Sub AktualisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AktualisierenToolStripMenuItem.Click
        TreeParent.Load_Tree(Me.cbboxParentTree.TreeView, True)
        Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, Applikation.iParentID.Value, "")
    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 ArchitekturSucheToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArchitekturSucheToolStripMenuItem.Click
        Me.TsBtnSuchArt.Text = Me.ArchitekturSucheToolStripMenuItem.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 ArchitekturFilterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArchitekturFilterToolStripMenuItem.Click
        Me.TsBtnSuchArt.Text = Me.ArchitekturFilterToolStripMenuItem.Text
        Me.TSBtnFirst.Enabled = False
        Me.TSBtnPrevious.Enabled = False
        Me.TSBtnNext.Enabled = False
        Me.TSBtnLast.Enabled = False
        Me.TSBtnSuche_Click(sender, e)
    End Sub

    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
    Dim MaxSuchTreffer As Integer = 0
    Private Sub ToolStripButton3_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 ToolStripButton2_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 ToolStripButton1_Click_1(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 ToolStripButton4_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 TreeApplikationen_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TreeApplikationen.KeyDown
        If e.KeyCode = Keys.Enter Then
            If Me.TSBtnNext.Enabled = True Then
                Me.ToolStripButton3_Click(sender, e)
            End If
        End If
    End Sub

    Private Sub btnAbhaengigkeitsliste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbhaengigkeitsliste.Click
        Dim ll As New TKB.VV.DB.clsLinkList
        ll.cpMainConnectionProvider = Globals.conn
        ll.iLinkNr = New SqlInt32(CType(1, Int32))
        ll.SelectOne()
        System.Diagnostics.Process.Start(ll.sBezeichnung.Value.ToString)
    End Sub

    Private Sub lboxabhaengigkeit_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles lboxabhaengigkeit.ItemCheck

    End Sub


    Private Sub tsbtnAlphasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnAlphasort.Click
 
    End Sub

    Private Sub tsbtnStruktursort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnAlphasort.Click
        Me.rbsortalpha.Checked = True
    End Sub

    Private Sub tsbtnStruktursort_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnStruktursort.Click
        Me.rbsortalpha.Checked = False
    End Sub

    Private Sub TscbboxTyp_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TscbboxTyp.SelectedIndexChanged
        If Me.OnLoad = True Then Exit Sub
        If Me.TscbboxTyp.SelectedIndex = 2 Then Me.cboxNurAktive.CheckState = CheckState.Checked
        If Me.TscbboxTyp.SelectedIndex = 0 Then Me.cboxNurAktive.CheckState = CheckState.Indeterminate
        If Me.TscbboxTyp.SelectedIndex = 1 Then Me.cboxNurAktive.CheckState = CheckState.Unchecked

    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 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
#Region "IKV"
    Private Sub btnIKVInit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIKVInit.Click
        If msg.Show_MessageYesNo(880) = MsgBoxResult.Yes Then
            Me.cbboxGeschaeftsrelevanz.SelectedValue = -1
            Me.cbboxMaxAusfalldauer.SelectedValue = -1
            Me.txtIKVBizBemerkung.Text = ""
            Me.cbIKVVereinbart.Checked = False
            Me.cbboxVereinbarteAusfalldauer.SelectedValue = -1
            Me.txtIKVProviderBemerkung.Text = ""
            Me.cbboxIKVLoesungsart.SelectedValue = -1
            Me.txtIKVLoesungBemerkung.Text = ""
        End If
    End Sub

    Private Sub Refresh_IKV_Tests()
        Try
            If Check_Changes() = False Then Exit Sub
        Catch ex As Exception
        End Try
        Dim filtertext As String = "none"
        Try
            filtertext = Me.C1IKVTests.Columns("Aktiv").FilterText
        Catch ex As Exception
        End Try

        Dim bm As Integer = 0
        bm = Me.C1IKVTests.Bookmark
        Me.C1IKVTests.Enabled = False
        Me.Applikation.Get_IKVTests(Me.C1IKVTests, Me.Aktuelle_Applikation)
        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1IKVTests, "Applikation_IKV_Test", Me.Applikation.IKVTests.Tabledata)
        If filtertext <> "none" Then Me.C1IKVTests.Columns("Aktiv").FilterText = filtertext
        sec.Set_Form_Security(Me)

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

        End Try
        Me.C1IKVTests.Enabled = True

    End Sub

#End Region

    Private Sub IKVToolStripMenuAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IKVToolStripMenuAnzeigen.Click
        Dim f As New frmIKVTest(Me.C1IKVTests.Columns(0).Value, Me.Aktuelle_Applikation, False, Me.FormReadonly)
        f.MdiParent = Me.MdiParent
        f.Show()

    End Sub

    Private Sub IKVToolStripMenuNeu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IKVToolStripMenuNeu.Click
        Try
            'Dim i As Integer = Me.Vertragselement.Vertragskontakt.Add_New(Me.Vertragselement.iVertragselementnr.Value)
            Dim f As New frmIKVTest(0, Me.Aktuelle_Applikation, True, Me.FormReadonly)
            f.MdiParent = Me.MdiParent
            f.Show()
            'f.ShowDialog()
            'Me.Refresh_ReleaseLogbuch()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub IKVToolStripMenuInaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IKVToolStripMenuInaktivieren.Click
        Try
            If msg.Show_MessageYesNo(881) = MsgBoxResult.Yes Then
                Dim al As New TKB.VV.Applikation.clsApplikationIKVTest
                al.Delete_ApplikationIKVTest(Me.C1IKVTests.Columns("Applikation_IKV_TestNr").Value)
                al.dispose()
                Me.Refresh_IKV_Tests()
            End If
        Catch ex As Exception

        End Try

    End Sub

    Private Sub C1IKVTests_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1IKVTests.DoubleClick

        If Me.IKVToolStripMenuAnzeigen.Enabled = False Then
            Exit Sub
        End If
        Try
            Me.IKVToolStripMenuAnzeigen_Click(sender, e)

        Catch ex As Exception

        End Try

    End Sub

    Private Sub C1IKVTests_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1IKVTests.FetchRowStyle
        Try
            If Me.C1IKVTests.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

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

    End Sub

    Private Sub evh_FormularIKVTtestclosed() Handles evh.FormualrIKVTestClosed
        Me.Refresh_IKV_Tests()
    End Sub


    Private Sub LizenzelementAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzelementAnzeigenToolStripMenuItem.Click
        Dim f As New frmLizenzverwaltung(Me.C1Lizenzkäufe.Columns("Lizenznr").Value, Me.FormReadonly, Me.TreeApplikationen.SelectedNode.Tag)
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    Private Sub ctxMenuLizenzen_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ctxMenuLizenzen.Opening
        Try
            Dim i As Integer
            i = Me.C1Lizenzkäufe.Columns("Lizenznr").Value
            Me.ctxMenuLizenzen.Items(0).Enabled = True
        Catch ex As Exception
            Me.ctxMenuLizenzen.Items(0).Enabled = False

        End Try
    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 cbPflichtAbo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbPflichtAbo.CheckedChanged
        If cbPflichtAbo.Checked = True Then Me.cbIntrant.Checked = True
    End Sub

    Private Sub btnInitIntranet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInitIntranet.Click
        Me.cbIntrant.Checked = False
        Me.cbPflichtAbo.Checked = False
        Me.txtIntranetbezeichnung.Text = ""
    End Sub

    Private Sub btnInitTXP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInitTXP.Click
        Me.cbWPIAnzeigen.Checked = False
        Me.txtWPIPreis.Text = ""
        Me.txtPreisEinmalig.Text = ""
        Me.cbAMAnzeigen.Checked = False
        Me.cbboxKritikalität.Text = ""
        Me.cbboxSLM.Text = ""
        Me.cbboxSLM.SelectedValue = -1
        Me.cbboxKritikalität.SelectedValue = -1
        Me.cbboxITSPProdukt.SelectedValue = -1
        Me.cbboxITSPProdukt.Text = ""
    End Sub
End Class