EDOKA_Client/EDOKA/Backup/Profile/Profil.vb

Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Color

Public Class frmProfil
    Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
    Friend WithEvents btnClose As System.Windows.Forms.ToolBarButton
    Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents btnOpen As System.Windows.Forms.ToolBarButton
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents MnuListe As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents ComboBox10 As System.Windows.Forms.ComboBox
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents ComboBox9 As System.Windows.Forms.ComboBox
    Friend WithEvents Profile As System.Windows.Forms.TreeView
    Friend WithEvents CTMenuErsteller As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
    Friend WithEvents CTMenuVerantwortlicher As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
    Friend WithEvents CTMenuMutierer As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem
    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet1 As System.Data.DataSet
    Friend WithEvents ctmenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
    Friend WithEvents MnuDel As System.Windows.Forms.MenuItem
    Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MnuSelectDokumentart As System.Windows.Forms.MenuItem
    Friend WithEvents MnuDeleteDokumentart As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
    Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents pnlhostdiv As System.Windows.Forms.Panel
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Button10 As System.Windows.Forms.Button
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Button9 As System.Windows.Forms.Button
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents hostinklmavip As System.Windows.Forms.CheckBox
    Friend WithEvents HostDatum1 As System.Windows.Forms.TextBox
    Friend WithEvents Label29 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker7 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker9 As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents lblhostdatum31 As System.Windows.Forms.Label
    Friend WithEvents ComboBox6 As System.Windows.Forms.ComboBox
    Friend WithEvents Label27 As System.Windows.Forms.Label
    Friend WithEvents lblhostdatum3 As System.Windows.Forms.Label
    Friend WithEvents HostDatum3 As System.Windows.Forms.TextBox
    Friend WithEvents HostTag3 As System.Windows.Forms.ComboBox
    Friend WithEvents HostDatum2 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker8 As System.Windows.Forms.DateTimePicker
    Friend WithEvents lblhostdatum2 As System.Windows.Forms.Label
    Friend WithEvents Label32 As System.Windows.Forms.Label
    Friend WithEvents Label33 As System.Windows.Forms.Label
    Friend WithEvents Label34 As System.Windows.Forms.Label
    Friend WithEvents Label35 As System.Windows.Forms.Label
    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
    Friend WithEvents Label36 As System.Windows.Forms.Label
    Friend WithEvents Label37 As System.Windows.Forms.Label
    Friend WithEvents Label38 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker10 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker11 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker12 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents PnlDokumentDaten As System.Windows.Forms.Panel
    Friend WithEvents cinklalt As System.Windows.Forms.CheckBox
    Friend WithEvents cbmavip As System.Windows.Forms.CheckBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents cbd6 As System.Windows.Forms.CheckBox
    Friend WithEvents cbd4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbd2 As System.Windows.Forms.CheckBox
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents Button17 As System.Windows.Forms.Button
    Friend WithEvents Button16 As System.Windows.Forms.Button
    Friend WithEvents Button15 As System.Windows.Forms.Button
    Friend WithEvents Button14 As System.Windows.Forms.Button
    Friend WithEvents Button13 As System.Windows.Forms.Button
    Friend WithEvents Button12 As System.Windows.Forms.Button
    Friend WithEvents cbrollend6 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend5 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend3 As System.Windows.Forms.CheckBox
    Friend WithEvents Label39 As System.Windows.Forms.Label
    Friend WithEvents Label40 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents cbrollend2 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend1 As System.Windows.Forms.CheckBox
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents txtdatum1 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
    Friend WithEvents txtdatum2 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
    Friend WithEvents txtdatum3 As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum4 As System.Windows.Forms.TextBox
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents txtdatum5 As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum6 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker6 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker
    Friend WithEvents datumtext5 As System.Windows.Forms.Label
    Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents PnlPartner As System.Windows.Forms.Panel
    Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents btnPartnersuche As System.Windows.Forms.Button
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Panel4 As System.Windows.Forms.Panel
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents LBSelectHost As System.Windows.Forms.ListBox
    Friend WithEvents Button11 As System.Windows.Forms.Button
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents lbselect As System.Windows.Forms.ListBox
    Friend WithEvents LBSort As System.Windows.Forms.ListBox
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents lbSortfields As System.Windows.Forms.ListBox
    Friend WithEvents PnlDokumentart As System.Windows.Forms.Panel
    Friend WithEvents TVDokart As System.Windows.Forms.TreeView
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
    Friend WithEvents TVHostDok As System.Windows.Forms.TreeView
    Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents cbteam As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents colbtn6 As System.Windows.Forms.Button
    Friend WithEvents colbtn5 As System.Windows.Forms.Button
    Friend WithEvents colbtn4 As System.Windows.Forms.Button
    Friend WithEvents colbtn3 As System.Windows.Forms.Button
    Friend WithEvents colbtn2 As System.Windows.Forms.Button
    Friend WithEvents colbtn1 As System.Windows.Forms.Button
    Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
    Friend WithEvents cb5 As System.Windows.Forms.CheckBox
    Friend WithEvents cb4 As System.Windows.Forms.CheckBox
    Friend WithEvents cb2 As System.Windows.Forms.CheckBox
    Friend WithEvents cb1 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents Label31 As System.Windows.Forms.Label
    Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox
    Friend WithEvents Label30 As System.Windows.Forms.Label
    Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents cbrollend8 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend9 As System.Windows.Forms.CheckBox
    Friend WithEvents DatumHostText1 As System.Windows.Forms.Label
    Friend WithEvents DatumHostText2 As System.Windows.Forms.Label
    Friend WithEvents Button18 As System.Windows.Forms.Button
    Friend WithEvents Button19 As System.Windows.Forms.Button
    Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents Button20 As System.Windows.Forms.Button
    Friend WithEvents btnini As System.Windows.Forms.ToolBarButton
    Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox
    Friend WithEvents cb3 As System.Windows.Forms.CheckBox
    Friend WithEvents cb3_1 As System.Windows.Forms.CheckBox
    Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
    Friend WithEvents datumtext1 As System.Windows.Forms.Label
    Friend WithEvents datumtext2 As System.Windows.Forms.Label
    Friend WithEvents datumtext3 As System.Windows.Forms.Label
    Friend WithEvents datumtext4 As System.Windows.Forms.Label
    Friend WithEvents datumtext6 As System.Windows.Forms.Label
    Friend WithEvents Label26 As System.Windows.Forms.Label
    Friend WithEvents Button21 As System.Windows.Forms.Button
    Friend WithEvents DateTimePicker13 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button22 As System.Windows.Forms.Button
    Friend WithEvents Label28 As System.Windows.Forms.Label
    Friend WithEvents Label41 As System.Windows.Forms.Label
    Friend WithEvents Button23 As System.Windows.Forms.Button
    Friend WithEvents Button24 As System.Windows.Forms.Button
    Friend WithEvents Label42 As System.Windows.Forms.Label
    Friend WithEvents Label43 As System.Windows.Forms.Label
    Friend WithEvents Label44 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker14 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker15 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker16 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label49 As System.Windows.Forms.Label
    Friend WithEvents Button25 As System.Windows.Forms.Button
    Friend WithEvents DateTimePicker17 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button26 As System.Windows.Forms.Button
    Friend WithEvents Label50 As System.Windows.Forms.Label
    Friend WithEvents Label51 As System.Windows.Forms.Label
    Friend WithEvents Button27 As System.Windows.Forms.Button
    Friend WithEvents Button28 As System.Windows.Forms.Button
    Friend WithEvents Label52 As System.Windows.Forms.Label
    Friend WithEvents Label53 As System.Windows.Forms.Label
    Friend WithEvents Label54 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker18 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker19 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker20 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Groupbox3 As System.Windows.Forms.GroupBox
    Friend WithEvents txtdatum2zv As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum1zv As System.Windows.Forms.TextBox
    Friend WithEvents textdatum1zv As System.Windows.Forms.Label
    Friend WithEvents textdatum2zv As System.Windows.Forms.Label
    Friend WithEvents textdatum3zv As System.Windows.Forms.Label
    Friend WithEvents textdatum4zv As System.Windows.Forms.Label
    Friend WithEvents txtdatum3uvm As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum4uvm As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum2uvm As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum1uvm As System.Windows.Forms.TextBox
    Friend WithEvents textdatum1uvm As System.Windows.Forms.Label
    Friend WithEvents textdatum2uvm As System.Windows.Forms.Label
    Friend WithEvents textdatum3uvm As System.Windows.Forms.Label
    Friend WithEvents textdatum4uvm As System.Windows.Forms.Label
    Friend WithEvents txtdatum3zv As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum4zv As System.Windows.Forms.TextBox
    Friend WithEvents cbuvmrollend4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbuvmrollend2 As System.Windows.Forms.CheckBox
    Friend WithEvents cbuvmrollend3 As System.Windows.Forms.CheckBox
    Friend WithEvents cbuvmrollend1 As System.Windows.Forms.CheckBox
    Friend WithEvents Label45 As System.Windows.Forms.Label
    Friend WithEvents txtuvmauftragnr As System.Windows.Forms.TextBox
    Friend WithEvents Button29 As System.Windows.Forms.Button
    Friend WithEvents pnluvm As System.Windows.Forms.Panel
    Friend WithEvents pnlzv As System.Windows.Forms.Panel
    Friend WithEvents btnzvzahlungsart As System.Windows.Forms.Button
    Friend WithEvents Label62 As System.Windows.Forms.Label
    Friend WithEvents txtzvzahlungsart As System.Windows.Forms.TextBox
    Friend WithEvents btnzvverarbeitungsart As System.Windows.Forms.Button
    Friend WithEvents Label61 As System.Windows.Forms.Label
    Friend WithEvents txtzvverarbeitungsart As System.Windows.Forms.TextBox
    Friend WithEvents btnzvswift As System.Windows.Forms.Button
    Friend WithEvents Label60 As System.Windows.Forms.Label
    Friend WithEvents txtzvswift As System.Windows.Forms.TextBox
    Friend WithEvents btnzvreferenz As System.Windows.Forms.Button
    Friend WithEvents Label59 As System.Windows.Forms.Label
    Friend WithEvents txtzvreferenznr As System.Windows.Forms.TextBox
    Friend WithEvents btnzvposten As System.Windows.Forms.Button
    Friend WithEvents Label58 As System.Windows.Forms.Label
    Friend WithEvents txtzvpostennr As System.Windows.Forms.TextBox
    Friend WithEvents btnzvpcnr As System.Windows.Forms.Button
    Friend WithEvents Label57 As System.Windows.Forms.Label
    Friend WithEvents txtzvpcnr As System.Windows.Forms.TextBox
    Friend WithEvents btnzvbeguenstiger As System.Windows.Forms.Button
    Friend WithEvents Label56 As System.Windows.Forms.Label
    Friend WithEvents txtzvbeguenstigter As System.Windows.Forms.TextBox
    Friend WithEvents btnzviso As System.Windows.Forms.Button
    Friend WithEvents Label55 As System.Windows.Forms.Label
    Friend WithEvents txtzviso As System.Windows.Forms.TextBox
    Friend WithEvents btnzvclearing As System.Windows.Forms.Button
    Friend WithEvents Label48 As System.Windows.Forms.Label
    Friend WithEvents txtzvclearingnr As System.Windows.Forms.TextBox
    Friend WithEvents btnzvbetrag As System.Windows.Forms.Button
    Friend WithEvents Label47 As System.Windows.Forms.Label
    Friend WithEvents txtzvbetrag As System.Windows.Forms.TextBox
    Friend WithEvents btnzvauftraggeber As System.Windows.Forms.Button
    Friend WithEvents Label46 As System.Windows.Forms.Label
    Friend WithEvents txtzvauftraggeber As System.Windows.Forms.TextBox
    Friend WithEvents btnzvauftragsnr As System.Windows.Forms.Button
    Friend WithEvents Label63 As System.Windows.Forms.Label
    Friend WithEvents txtzvauftragsnr As System.Windows.Forms.TextBox
    Friend WithEvents cbzvrollend1 As System.Windows.Forms.CheckBox
    Friend WithEvents cbzvrollend4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbzvrollend2 As System.Windows.Forms.CheckBox
    Friend WithEvents cbzvrollend3 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents Label64 As System.Windows.Forms.Label
    Friend WithEvents Label65 As System.Windows.Forms.Label
    Friend WithEvents Label66 As System.Windows.Forms.Label
    Friend WithEvents BtnHelp As System.Windows.Forms.Button
    Friend WithEvents TreeView2 As System.Windows.Forms.TreeView
    Friend WithEvents cinklaltversant As System.Windows.Forms.CheckBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmProfil))
        Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.btnClose = New System.Windows.Forms.ToolBarButton()
        Me.btnOpen = New System.Windows.Forms.ToolBarButton()
        Me.btnSave = New System.Windows.Forms.ToolBarButton()
        Me.btnini = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.MnuListe = New System.Windows.Forms.ContextMenu()
        Me.MenuItem12 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.MenuItem9 = New System.Windows.Forms.MenuItem()
        Me.MenuItem11 = New System.Windows.Forms.MenuItem()
        Me.MenuItem13 = New System.Windows.Forms.MenuItem()
        Me.MenuItem8 = New System.Windows.Forms.MenuItem()
        Me.MenuItem10 = New System.Windows.Forms.MenuItem()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.Profile = New System.Windows.Forms.TreeView()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Label25 = New System.Windows.Forms.Label()
        Me.ComboBox10 = New System.Windows.Forms.ComboBox()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.ComboBox9 = New System.Windows.Forms.ComboBox()
        Me.ctmenu1 = New System.Windows.Forms.ContextMenu()
        Me.MnuDel = New System.Windows.Forms.MenuItem()
        Me.MenuItem14 = New System.Windows.Forms.MenuItem()
        Me.CTMenuErsteller = New System.Windows.Forms.ContextMenu()
        Me.MenuItem15 = New System.Windows.Forms.MenuItem()
        Me.MenuItem16 = New System.Windows.Forms.MenuItem()
        Me.CTMenuVerantwortlicher = New System.Windows.Forms.ContextMenu()
        Me.MenuItem20 = New System.Windows.Forms.MenuItem()
        Me.CTMenuMutierer = New System.Windows.Forms.ContextMenu()
        Me.MenuItem24 = New System.Windows.Forms.MenuItem()
        Me.MenuItem25 = New System.Windows.Forms.MenuItem()
        Me.MenuItem26 = New System.Windows.Forms.MenuItem()
        Me.MenuItem27 = New System.Windows.Forms.MenuItem()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
        Me.DataSet1 = New System.Data.DataSet()
        Me.Splitter1 = New System.Windows.Forms.Splitter()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem17 = New System.Windows.Forms.MenuItem()
        Me.MenuItem18 = New System.Windows.Forms.MenuItem()
        Me.MenuItem21 = New System.Windows.Forms.MenuItem()
        Me.MenuItem22 = New System.Windows.Forms.MenuItem()
        Me.MenuItem19 = New System.Windows.Forms.MenuItem()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MnuSelectDokumentart = New System.Windows.Forms.MenuItem()
        Me.MnuDeleteDokumentart = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
        Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.TreeView2 = New System.Windows.Forms.TreeView()
        Me.PnlDokumentDaten = New System.Windows.Forms.Panel()
        Me.cinklaltversant = New System.Windows.Forms.CheckBox()
        Me.TabControl2 = New System.Windows.Forms.TabControl()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.Label40 = New System.Windows.Forms.Label()
        Me.txtdatum3 = New System.Windows.Forms.TextBox()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.txtdatum4 = New System.Windows.Forms.TextBox()
        Me.txtdatum6 = New System.Windows.Forms.TextBox()
        Me.txtdatum2 = New System.Windows.Forms.TextBox()
        Me.Button16 = New System.Windows.Forms.Button()
        Me.cbrollend1 = New System.Windows.Forms.CheckBox()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Button17 = New System.Windows.Forms.Button()
        Me.Button15 = New System.Windows.Forms.Button()
        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
        Me.Button13 = New System.Windows.Forms.Button()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.Button14 = New System.Windows.Forms.Button()
        Me.Button12 = New System.Windows.Forms.Button()
        Me.cbrollend5 = New System.Windows.Forms.CheckBox()
        Me.cbrollend4 = New System.Windows.Forms.CheckBox()
        Me.cbrollend2 = New System.Windows.Forms.CheckBox()
        Me.datumtext5 = New System.Windows.Forms.Label()
        Me.Label39 = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.txtdatum1 = New System.Windows.Forms.TextBox()
        Me.cbrollend6 = New System.Windows.Forms.CheckBox()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.cbrollend3 = New System.Windows.Forms.CheckBox()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.txtdatum5 = New System.Windows.Forms.TextBox()
        Me.datumtext1 = New System.Windows.Forms.Label()
        Me.datumtext2 = New System.Windows.Forms.Label()
        Me.datumtext3 = New System.Windows.Forms.Label()
        Me.datumtext4 = New System.Windows.Forms.Label()
        Me.datumtext6 = New System.Windows.Forms.Label()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker6 = New System.Windows.Forms.DateTimePicker()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.txtdatum3zv = New System.Windows.Forms.TextBox()
        Me.txtdatum4zv = New System.Windows.Forms.TextBox()
        Me.txtdatum2zv = New System.Windows.Forms.TextBox()
        Me.cbzvrollend1 = New System.Windows.Forms.CheckBox()
        Me.Label26 = New System.Windows.Forms.Label()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.DateTimePicker13 = New System.Windows.Forms.DateTimePicker()
        Me.Button22 = New System.Windows.Forms.Button()
        Me.Label28 = New System.Windows.Forms.Label()
        Me.Label41 = New System.Windows.Forms.Label()
        Me.Button23 = New System.Windows.Forms.Button()
        Me.Button24 = New System.Windows.Forms.Button()
        Me.cbzvrollend4 = New System.Windows.Forms.CheckBox()
        Me.cbzvrollend2 = New System.Windows.Forms.CheckBox()
        Me.Label42 = New System.Windows.Forms.Label()
        Me.txtdatum1zv = New System.Windows.Forms.TextBox()
        Me.Label43 = New System.Windows.Forms.Label()
        Me.cbzvrollend3 = New System.Windows.Forms.CheckBox()
        Me.Label44 = New System.Windows.Forms.Label()
        Me.textdatum1zv = New System.Windows.Forms.Label()
        Me.textdatum2zv = New System.Windows.Forms.Label()
        Me.textdatum3zv = New System.Windows.Forms.Label()
        Me.textdatum4zv = New System.Windows.Forms.Label()
        Me.DateTimePicker14 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker15 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker16 = New System.Windows.Forms.DateTimePicker()
        Me.TabPage5 = New System.Windows.Forms.TabPage()
        Me.txtdatum4uvm = New System.Windows.Forms.TextBox()
        Me.txtdatum3uvm = New System.Windows.Forms.TextBox()
        Me.txtdatum2uvm = New System.Windows.Forms.TextBox()
        Me.cbuvmrollend1 = New System.Windows.Forms.CheckBox()
        Me.Label49 = New System.Windows.Forms.Label()
        Me.Button25 = New System.Windows.Forms.Button()
        Me.DateTimePicker17 = New System.Windows.Forms.DateTimePicker()
        Me.Button26 = New System.Windows.Forms.Button()
        Me.Label50 = New System.Windows.Forms.Label()
        Me.Label51 = New System.Windows.Forms.Label()
        Me.Button27 = New System.Windows.Forms.Button()
        Me.Button28 = New System.Windows.Forms.Button()
        Me.cbuvmrollend4 = New System.Windows.Forms.CheckBox()
        Me.cbuvmrollend2 = New System.Windows.Forms.CheckBox()
        Me.Label52 = New System.Windows.Forms.Label()
        Me.txtdatum1uvm = New System.Windows.Forms.TextBox()
        Me.Label53 = New System.Windows.Forms.Label()
        Me.cbuvmrollend3 = New System.Windows.Forms.CheckBox()
        Me.Label54 = New System.Windows.Forms.Label()
        Me.textdatum1uvm = New System.Windows.Forms.Label()
        Me.textdatum2uvm = New System.Windows.Forms.Label()
        Me.textdatum3uvm = New System.Windows.Forms.Label()
        Me.textdatum4uvm = New System.Windows.Forms.Label()
        Me.DateTimePicker18 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker19 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker20 = New System.Windows.Forms.DateTimePicker()
        Me.cinklalt = New System.Windows.Forms.CheckBox()
        Me.cbmavip = New System.Windows.Forms.CheckBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.cbd6 = New System.Windows.Forms.CheckBox()
        Me.cbd4 = New System.Windows.Forms.CheckBox()
        Me.cbd2 = New System.Windows.Forms.CheckBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Groupbox3 = New System.Windows.Forms.GroupBox()
        Me.pnlzv = New System.Windows.Forms.Panel()
        Me.btnzvzahlungsart = New System.Windows.Forms.Button()
        Me.Label62 = New System.Windows.Forms.Label()
        Me.txtzvzahlungsart = New System.Windows.Forms.TextBox()
        Me.btnzvverarbeitungsart = New System.Windows.Forms.Button()
        Me.Label61 = New System.Windows.Forms.Label()
        Me.txtzvverarbeitungsart = New System.Windows.Forms.TextBox()
        Me.btnzvswift = New System.Windows.Forms.Button()
        Me.Label60 = New System.Windows.Forms.Label()
        Me.txtzvswift = New System.Windows.Forms.TextBox()
        Me.btnzvreferenz = New System.Windows.Forms.Button()
        Me.Label59 = New System.Windows.Forms.Label()
        Me.txtzvreferenznr = New System.Windows.Forms.TextBox()
        Me.btnzvposten = New System.Windows.Forms.Button()
        Me.Label58 = New System.Windows.Forms.Label()
        Me.txtzvpostennr = New System.Windows.Forms.TextBox()
        Me.btnzvpcnr = New System.Windows.Forms.Button()
        Me.Label57 = New System.Windows.Forms.Label()
        Me.txtzvpcnr = New System.Windows.Forms.TextBox()
        Me.btnzvbeguenstiger = New System.Windows.Forms.Button()
        Me.Label56 = New System.Windows.Forms.Label()
        Me.txtzvbeguenstigter = New System.Windows.Forms.TextBox()
        Me.btnzviso = New System.Windows.Forms.Button()
        Me.Label55 = New System.Windows.Forms.Label()
        Me.txtzviso = New System.Windows.Forms.TextBox()
        Me.btnzvclearing = New System.Windows.Forms.Button()
        Me.Label48 = New System.Windows.Forms.Label()
        Me.txtzvclearingnr = New System.Windows.Forms.TextBox()
        Me.btnzvbetrag = New System.Windows.Forms.Button()
        Me.Label47 = New System.Windows.Forms.Label()
        Me.txtzvbetrag = New System.Windows.Forms.TextBox()
        Me.btnzvauftraggeber = New System.Windows.Forms.Button()
        Me.Label46 = New System.Windows.Forms.Label()
        Me.txtzvauftraggeber = New System.Windows.Forms.TextBox()
        Me.btnzvauftragsnr = New System.Windows.Forms.Button()
        Me.Label63 = New System.Windows.Forms.Label()
        Me.txtzvauftragsnr = New System.Windows.Forms.TextBox()
        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
        Me.pnlhostdiv = New System.Windows.Forms.Panel()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.Label66 = New System.Windows.Forms.Label()
        Me.Label65 = New System.Windows.Forms.Label()
        Me.Label64 = New System.Windows.Forms.Label()
        Me.Button20 = New System.Windows.Forms.Button()
        Me.TextBox6 = New System.Windows.Forms.TextBox()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.Button10 = New System.Windows.Forms.Button()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.hostinklmavip = New System.Windows.Forms.CheckBox()
        Me.Label29 = New System.Windows.Forms.Label()
        Me.DateTimePicker7 = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.Button19 = New System.Windows.Forms.Button()
        Me.DatumHostText2 = New System.Windows.Forms.Label()
        Me.DatumHostText1 = New System.Windows.Forms.Label()
        Me.cbrollend9 = New System.Windows.Forms.CheckBox()
        Me.cbrollend8 = New System.Windows.Forms.CheckBox()
        Me.HostDatum1 = New System.Windows.Forms.TextBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.lblhostdatum31 = New System.Windows.Forms.Label()
        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
        Me.Label27 = New System.Windows.Forms.Label()
        Me.lblhostdatum3 = New System.Windows.Forms.Label()
        Me.HostDatum3 = New System.Windows.Forms.TextBox()
        Me.HostTag3 = New System.Windows.Forms.ComboBox()
        Me.HostDatum2 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker8 = New System.Windows.Forms.DateTimePicker()
        Me.lblhostdatum2 = New System.Windows.Forms.Label()
        Me.DateTimePicker9 = New System.Windows.Forms.DateTimePicker()
        Me.Label32 = New System.Windows.Forms.Label()
        Me.Label33 = New System.Windows.Forms.Label()
        Me.Label34 = New System.Windows.Forms.Label()
        Me.Label35 = New System.Windows.Forms.Label()
        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
        Me.TextBox7 = New System.Windows.Forms.TextBox()
        Me.TextBox8 = New System.Windows.Forms.TextBox()
        Me.TextBox9 = New System.Windows.Forms.TextBox()
        Me.Label36 = New System.Windows.Forms.Label()
        Me.Label37 = New System.Windows.Forms.Label()
        Me.Label38 = New System.Windows.Forms.Label()
        Me.DateTimePicker10 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker11 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker12 = New System.Windows.Forms.DateTimePicker()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.pnluvm = New System.Windows.Forms.Panel()
        Me.Button29 = New System.Windows.Forms.Button()
        Me.txtuvmauftragnr = New System.Windows.Forms.TextBox()
        Me.Label45 = New System.Windows.Forms.Label()
        Me.GroupBox14 = New System.Windows.Forms.GroupBox()
        Me.PnlDokumentart = New System.Windows.Forms.Panel()
        Me.TVDokart = New System.Windows.Forms.TreeView()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.TreeView1 = New System.Windows.Forms.TreeView()
        Me.TVHostDok = New System.Windows.Forms.TreeView()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.LBSelectHost = New System.Windows.Forms.ListBox()
        Me.Button11 = New System.Windows.Forms.Button()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.lbselect = New System.Windows.Forms.ListBox()
        Me.LBSort = New System.Windows.Forms.ListBox()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.lbSortfields = New System.Windows.Forms.ListBox()
        Me.GroupBox12 = New System.Windows.Forms.GroupBox()
        Me.PnlPartner = New System.Windows.Forms.Panel()
        Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.btnPartnersuche = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.cbteam = New System.Windows.Forms.ComboBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.colbtn6 = New System.Windows.Forms.Button()
        Me.colbtn5 = New System.Windows.Forms.Button()
        Me.colbtn4 = New System.Windows.Forms.Button()
        Me.colbtn3 = New System.Windows.Forms.Button()
        Me.colbtn2 = New System.Windows.Forms.Button()
        Me.colbtn1 = New System.Windows.Forms.Button()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
        Me.cb3_1 = New System.Windows.Forms.CheckBox()
        Me.cb5 = New System.Windows.Forms.CheckBox()
        Me.cb4 = New System.Windows.Forms.CheckBox()
        Me.cb3 = New System.Windows.Forms.CheckBox()
        Me.cb2 = New System.Windows.Forms.CheckBox()
        Me.cb1 = New System.Windows.Forms.CheckBox()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.Label31 = New System.Windows.Forms.Label()
        Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox()
        Me.Label30 = New System.Windows.Forms.Label()
        Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.BtnHelp = New System.Windows.Forms.Button()
        Me.Panel2.SuspendLayout()
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage1.SuspendLayout()
        Me.PnlDokumentDaten.SuspendLayout()
        Me.TabControl2.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.TabPage5.SuspendLayout()
        Me.pnlzv.SuspendLayout()
        Me.pnlhostdiv.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
        Me.pnluvm.SuspendLayout()
        Me.PnlDokumentart.SuspendLayout()
        Me.Panel3.SuspendLayout()
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel4.SuspendLayout()
        Me.PnlPartner.SuspendLayout()
        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage4.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox9.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.SuspendLayout()
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = -1
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5})
        Me.MenuItem1.Text = "&Datei"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 0
        Me.MenuItem5.Text = "&Schliessen"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnClose, Me.btnOpen, Me.btnSave, Me.btnini})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(792, 25)
        Me.ToolBar1.TabIndex = 0
        '
        'btnClose
        '
        Me.btnClose.ImageIndex = 0
        Me.btnClose.ToolTipText = "Fenster schliessen"
        '
        'btnOpen
        '
        Me.btnOpen.ImageIndex = 7
        Me.btnOpen.Visible = False
        '
        'btnSave
        '
        Me.btnSave.ImageIndex = 1
        '
        'btnini
        '
        Me.btnini.ImageIndex = 12
        Me.btnini.ToolTipText = "Profil initialisieren"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'Panel1
        '
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 25)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(792, 8)
        Me.Panel1.TabIndex = 4
        '
        'MnuListe
        '
        Me.MnuListe.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12, Me.MenuItem6, Me.MenuItem7, Me.MenuItem9, Me.MenuItem11, Me.MenuItem13, Me.MenuItem8, Me.MenuItem10})
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 0
        Me.MenuItem12.Text = "Übernehmen"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 1
        Me.MenuItem6.Text = "Auswählen"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 2
        Me.MenuItem7.Text = "Als Standard"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 3
        Me.MenuItem9.Text = "-"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 4
        Me.MenuItem11.Text = "Neues Profil"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 5
        Me.MenuItem13.Text = "Profil kopieren"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 6
        Me.MenuItem8.Text = "Umbenennen"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 7
        Me.MenuItem10.Text = "Löschen"
        '
        'Panel2
        '
        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Profile})
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel2.Location = New System.Drawing.Point(0, 33)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(176, 544)
        Me.Panel2.TabIndex = 11
        '
        'Profile
        '
        Me.Profile.ContextMenu = Me.MnuListe
        Me.Profile.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Profile.FullRowSelect = True
        Me.Profile.ImageIndex = -1
        Me.Profile.Name = "Profile"
        Me.Profile.SelectedImageIndex = -1
        Me.Profile.ShowLines = False
        Me.Profile.ShowPlusMinus = False
        Me.Profile.Size = New System.Drawing.Size(174, 542)
        Me.Profile.Sorted = True
        Me.Profile.TabIndex = 0
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(200, 552)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(112, 24)
        Me.Button4.TabIndex = 14
        Me.Button4.Text = "Übernehmen"
        '
        'Label25
        '
        Me.Label25.Location = New System.Drawing.Point(16, 64)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(48, 23)
        Me.Label25.TabIndex = 3
        '
        'ComboBox10
        '
        Me.ComboBox10.Location = New System.Drawing.Point(64, 64)
        Me.ComboBox10.Name = "ComboBox10"
        Me.ComboBox10.Size = New System.Drawing.Size(216, 21)
        Me.ComboBox10.TabIndex = 2
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(16, 32)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(48, 23)
        Me.Label24.TabIndex = 1
        '
        'ComboBox9
        '
        Me.ComboBox9.Location = New System.Drawing.Point(64, 32)
        Me.ComboBox9.Name = "ComboBox9"
        Me.ComboBox9.Size = New System.Drawing.Size(216, 21)
        Me.ComboBox9.TabIndex = 0
        '
        'ctmenu1
        '
        Me.ctmenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDel, Me.MenuItem14})
        '
        'MnuDel
        '
        Me.MnuDel.Index = 0
        Me.MnuDel.Text = "Eintrag löschen"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 1
        Me.MenuItem14.Text = "Einträge löschen"
        '
        'CTMenuErsteller
        '
        Me.CTMenuErsteller.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem15, Me.MenuItem16})
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 0
        Me.MenuItem15.Text = "Partner übernehmen"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 1
        Me.MenuItem16.Text = "Detailinformationen"
        '
        'CTMenuVerantwortlicher
        '
        Me.CTMenuVerantwortlicher.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20})
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 0
        Me.MenuItem20.Text = "Eintrag übernehmen"
        '
        'CTMenuMutierer
        '
        Me.CTMenuMutierer.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem24, Me.MenuItem25, Me.MenuItem26, Me.MenuItem27})
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 0
        Me.MenuItem24.Text = "&Eintrag selektieren"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 1
        Me.MenuItem25.Text = "&Selektion aufheben"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 2
        Me.MenuItem26.Text = "-"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 3
        Me.MenuItem27.Text = "&Alle aufheben"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "profil", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("profilnr", "profilnr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("standard", "standard"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("color1", "color1"), New System.Data.Common.DataColumnMapping("color2", "color2"), New System.Data.Common.DataColumnMapping("color3", "color3"), New System.Data.Common.DataColumnMapping("color4", "color4"), New System.Data.Common.DataColumnMapping("color5", "color5"), New System.Data.Common.DataColumnMapping("color6", "color6"), New System.Data.Common.DataColumnMapping("color7", "color7"), New System.Data.Common.DataColumnMapping("color8", "color8"), New System.Data.Common.DataColumnMapping("unterschriftlinks", "unterschriftlinks"), New System.Data.Common.DataColumnMapping("unterschriftrechts", "unterschriftrechts"), New System.Data.Common.DataColumnMapping("hw1", "hw1"), New System.Data.Common.DataColumnMapping("hw2", "hw2"), New System.Data.Common.DataColumnMapping("hw3", "hw3"), New System.Data.Common.DataColumnMapping("hw4", "hw4"), New System.Data.Common.DataColumnMapping("hw5", "hw5"), New System.Data.Common.DataColumnMapping("hw6", "hw6"), New System.Data.Common.DataColumnMapping("hw7", "hw7"), New System.Data.Common.DataColumnMapping("hw8", "hw8"), New System.Data.Common.DataColumnMapping("hw9", "hw9"), New System.Data.Common.DataColumnMapping("hw10", "hw10"), New System.Data.Common.DataColumnMapping("hw11", "hw11"), New System.Data.Common.DataColumnMapping("vmb", "vmb"), New System.Data.Common.DataColumnMapping("vnl", "vnl"), New System.Data.Common.DataColumnMapping("vkost", "vkost"), New System.Data.Common.DataColumnMapping("vteam", "vteam"), New System.Data.Common.DataColumnMapping("vma", "vma"), New System.Data.Common.DataColumnMapping("mmb", "mmb"), New System.Data.Common.DataColumnMapping("mnl", "mnl"), New System.Data.Common.DataColumnMapping("mkost", "mkost"), New System.Data.Common.DataColumnMapping("mteam", "mteam"), New System.Data.Common.DataColumnMapping("mma", "mma"), New System.Data.Common.DataColumnMapping("emb", "emb"), New System.Data.Common.DataColumnMapping("enl", "enl"), New System.Data.Common.DataColumnMapping("ekost", "ekost"), New System.Data.Common.DataColumnMapping("eteam", "eteam"), New System.Data.Common.DataColumnMapping("ema", "ema"), New System.Data.Common.DataColumnMapping("dpartner", "dpartner"), New System.Data.Common.DataColumnMapping("ddokart", "ddokart"), New System.Data.Common.DataColumnMapping("ddokstatus", "ddokstatus"), New System.Data.Common.DataColumnMapping("datum1", "datum1"), New System.Data.Common.DataColumnMapping("datum2", "datum2"), New System.Data.Common.DataColumnMapping("datum3", "datum3"), New System.Data.Common.DataColumnMapping("datum4", "datum4"), New System.Data.Common.DataColumnMapping("datum5", "datum5"), New System.Data.Common.DataColumnMapping("datum6", "datum6"), New System.Data.Common.DataColumnMapping("datum7", "datum7"), New System.Data.Common.DataColumnMapping("datum8", "datum8"), New System.Data.Common.DataColumnMapping("erstaelterals", "erstaelterals"), New System.Data.Common.DataColumnMapping("mutaelterasl", "mutaelterasl"), New System.Data.Common.DataColumnMapping("team", "team"), New System.Data.Common.DataColumnMapping("sort", "sort"), New System.Data.Common.DataColumnMapping("aktive", "aktive"), New System.Data.Common.DataColumnMapping("profiltyp", "profiltyp"), New System.Data.Common.DataColumnMapping("doktyp", "doktyp"), New System.Data.Common.DataColumnMapping("inklmavip", "inklmavip"), New System.Data.Common.DataColumnMapping("inklalt", "inklalt"), New System.Data.Common.DataColumnMapping("hostpartner", "hostpartner"), New System.Data.Common.DataColumnMapping("hostdokart", "hostdokart"), New System.Data.Common.DataColumnMapping("hostdoktyp", "hostdoktyp"), New System.Data.Common.DataColumnMapping("hosttag1", "hosttag1"), New System.Data.Common.DataColumnMapping("hostdatum1", "hostdatum1"), New System.Data.Common.DataColumnMapping("hosttag2", "hosttag2"), New System.Data.Common.DataColumnMapping("hostdatum2", "hostdatum2"), New System.Data.Common.DataColumnMapping("hosttag3", "hosttag3"), New System.Data.Common.DataColumnMapping("hostdatum3", "hostdatum3"), New System.Data.Common.DataColumnMapping("inklhostmavip", "inklhostmavip")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[pv_profil_delete]"
        Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
        "station id=SHU;packet size=4096"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "[pv_profil_insert]"
        Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 50, "hosttag1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 50, "hostdatum1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 50, "hosttag2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 50, "hostdatum2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 50, "hosttag3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 50, "hostdatum3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[pv_profil_select]"
        Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "[pv_profil_update]"
        Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 50, "hosttag1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 50, "hostdatum1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 50, "hosttag2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 50, "hostdatum2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 50, "hosttag3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 50, "hostdatum3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection2
        '
        Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & _
        "ty info=False;workstation id=SHU;packet size=4096"
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(176, 33)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 544)
        Me.Splitter1.TabIndex = 15
        Me.Splitter1.TabStop = False
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem17, Me.MenuItem18, Me.MenuItem21, Me.MenuItem22, Me.MenuItem19})
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 0
        Me.MenuItem17.Text = "&Aufwärts"
        '
        'MenuItem18
        '
        Me.MenuItem18.Index = 1
        Me.MenuItem18.Text = "A&bwärts"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 2
        Me.MenuItem21.Text = "Sortierung ändern"
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 3
        Me.MenuItem22.Text = "-"
        '
        'MenuItem19
        '
        Me.MenuItem19.Index = 4
        Me.MenuItem19.Text = "&Löschen"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSelectDokumentart, Me.MnuDeleteDokumentart, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
        '
        'MnuSelectDokumentart
        '
        Me.MnuSelectDokumentart.Index = 0
        Me.MnuSelectDokumentart.Text = "Eintrag auswählen"
        '
        'MnuDeleteDokumentart
        '
        Me.MnuDeleteDokumentart.Index = 1
        Me.MnuDeleteDokumentart.Text = "Eintrag abwählen"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 2
        Me.MenuItem2.Text = "-"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 3
        Me.MenuItem3.Text = "Knoten öffnen"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 4
        Me.MenuItem4.Text = "Knoten schliessen"
        '
        'ImageList2
        '
        Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'ImageList3
        '
        Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
        '
        'TabPage1
        '
        Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeView2, Me.PnlDokumentDaten, Me.pnlzv, Me.pnlhostdiv, Me.pnluvm, Me.PnlDokumentart, Me.Panel3, Me.TreeView1, Me.TVHostDok, Me.Panel4, Me.PnlPartner})
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(605, 518)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Selektion / Sortierung"
        '
        'TreeView2
        '
        Me.TreeView2.ImageIndex = -1
        Me.TreeView2.Location = New System.Drawing.Point(24, 104)
        Me.TreeView2.Name = "TreeView2"
        Me.TreeView2.SelectedImageIndex = -1
        Me.TreeView2.TabIndex = 12
        '
        'PnlDokumentDaten
        '
        Me.PnlDokumentDaten.Controls.AddRange(New System.Windows.Forms.Control() {Me.cinklaltversant, Me.TabControl2, Me.cinklalt, Me.cbmavip, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.cbd6, Me.cbd4, Me.cbd2, Me.Label18, Me.Label16, Me.Label14, Me.GroupBox10, Me.Button1, Me.Button2, Me.Button3, Me.Groupbox3})
        Me.PnlDokumentDaten.Location = New System.Drawing.Point(224, 8)
        Me.PnlDokumentDaten.Name = "PnlDokumentDaten"
        Me.PnlDokumentDaten.Size = New System.Drawing.Size(376, 496)
        Me.PnlDokumentDaten.TabIndex = 1
        Me.PnlDokumentDaten.Visible = False
        '
        'cinklaltversant
        '
        Me.cinklaltversant.Location = New System.Drawing.Point(16, 286)
        Me.cinklaltversant.Name = "cinklaltversant"
        Me.cinklaltversant.Size = New System.Drawing.Size(336, 24)
        Me.cinklaltversant.TabIndex = 89
        Me.cinklaltversant.Text = "versandte, vor Abschluss gelöschte Dokumente"
        '
        'TabControl2
        '
        Me.TabControl2.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
        Me.TabControl2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage2, Me.TabPage3, Me.TabPage5})
        Me.TabControl2.Location = New System.Drawing.Point(16, 24)
        Me.TabControl2.Name = "TabControl2"
        Me.TabControl2.SelectedIndex = 0
        Me.TabControl2.Size = New System.Drawing.Size(344, 208)
        Me.TabControl2.TabIndex = 86
        '
        'TabPage2
        '
        Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label40, Me.txtdatum3, Me.Label17, Me.txtdatum4, Me.txtdatum6, Me.txtdatum2, Me.Button16, Me.cbrollend1, Me.Label15, Me.Button17, Me.Button15, Me.DateTimePicker3, Me.Button13, Me.Label23, Me.Label12, Me.Button14, Me.Button12, Me.cbrollend5, Me.cbrollend4, Me.cbrollend2, Me.datumtext5, Me.Label39, Me.Label13, Me.txtdatum1, Me.cbrollend6, Me.Label11, Me.cbrollend3, Me.Label10, Me.txtdatum5, Me.datumtext1, Me.datumtext2, Me.datumtext3, Me.datumtext4, Me.datumtext6, Me.DateTimePicker1, Me.DateTimePicker2, Me.DateTimePicker4, Me.DateTimePicker5, Me.DateTimePicker6})
        Me.TabPage2.Location = New System.Drawing.Point(4, 25)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(336, 179)
        Me.TabPage2.TabIndex = 0
        Me.TabPage2.Text = "EDOKA-Dokumente"
        '
        'Label40
        '
        Me.Label40.Location = New System.Drawing.Point(72, 120)
        Me.Label40.Name = "Label40"
        Me.Label40.Size = New System.Drawing.Size(32, 23)
        Me.Label40.TabIndex = 63
        Me.Label40.Text = "von"
        '
        'txtdatum3
        '
        Me.txtdatum3.BackColor = System.Drawing.Color.White
        Me.txtdatum3.Enabled = False
        Me.txtdatum3.ForeColor = System.Drawing.Color.Black
        Me.txtdatum3.Location = New System.Drawing.Point(112, 64)
        Me.txtdatum3.Name = "txtdatum3"
        Me.txtdatum3.ReadOnly = True
        Me.txtdatum3.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum3.TabIndex = 56
        Me.txtdatum3.Text = ""
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(8, 120)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(72, 23)
        Me.Label17.TabIndex = 52
        Me.Label17.Text = "Archivierung"
        '
        'txtdatum4
        '
        Me.txtdatum4.BackColor = System.Drawing.Color.White
        Me.txtdatum4.Enabled = False
        Me.txtdatum4.ForeColor = System.Drawing.Color.Black
        Me.txtdatum4.Location = New System.Drawing.Point(112, 88)
        Me.txtdatum4.Name = "txtdatum4"
        Me.txtdatum4.ReadOnly = True
        Me.txtdatum4.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum4.TabIndex = 57
        Me.txtdatum4.Text = ""
        '
        'txtdatum6
        '
        Me.txtdatum6.BackColor = System.Drawing.Color.White
        Me.txtdatum6.Enabled = False
        Me.txtdatum6.ForeColor = System.Drawing.Color.Black
        Me.txtdatum6.Location = New System.Drawing.Point(112, 144)
        Me.txtdatum6.Name = "txtdatum6"
        Me.txtdatum6.ReadOnly = True
        Me.txtdatum6.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum6.TabIndex = 59
        Me.txtdatum6.Text = ""
        '
        'txtdatum2
        '
        Me.txtdatum2.BackColor = System.Drawing.Color.White
        Me.txtdatum2.Enabled = False
        Me.txtdatum2.ForeColor = System.Drawing.Color.Black
        Me.txtdatum2.Location = New System.Drawing.Point(112, 32)
        Me.txtdatum2.Name = "txtdatum2"
        Me.txtdatum2.ReadOnly = True
        Me.txtdatum2.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum2.TabIndex = 55
        Me.txtdatum2.Text = ""
        '
        'Button16
        '
        Me.Button16.Image = CType(resources.GetObject("Button16.Image"), System.Drawing.Bitmap)
        Me.Button16.Location = New System.Drawing.Point(288, 120)
        Me.Button16.Name = "Button16"
        Me.Button16.Size = New System.Drawing.Size(32, 24)
        Me.Button16.TabIndex = 77
        '
        'cbrollend1
        '
        Me.cbrollend1.Location = New System.Drawing.Point(216, 8)
        Me.cbrollend1.Name = "cbrollend1"
        Me.cbrollend1.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend1.TabIndex = 57
        Me.cbrollend1.Text = "(rollend)"
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(8, 64)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(64, 23)
        Me.Label15.TabIndex = 50
        Me.Label15.Text = "Mutation"
        '
        'Button17
        '
        Me.Button17.Image = CType(resources.GetObject("Button17.Image"), System.Drawing.Bitmap)
        Me.Button17.Location = New System.Drawing.Point(288, 144)
        Me.Button17.Name = "Button17"
        Me.Button17.Size = New System.Drawing.Size(32, 24)
        Me.Button17.TabIndex = 78
        '
        'Button15
        '
        Me.Button15.Image = CType(resources.GetObject("Button15.Image"), System.Drawing.Bitmap)
        Me.Button15.Location = New System.Drawing.Point(288, 88)
        Me.Button15.Name = "Button15"
        Me.Button15.Size = New System.Drawing.Size(32, 24)
        Me.Button15.TabIndex = 76
        '
        'DateTimePicker3
        '
        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker3.Location = New System.Drawing.Point(112, 64)
        Me.DateTimePicker3.Name = "DateTimePicker3"
        Me.DateTimePicker3.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker3.TabIndex = 44
        Me.DateTimePicker3.TabStop = False
        Me.DateTimePicker3.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Button13
        '
        Me.Button13.Image = CType(resources.GetObject("Button13.Image"), System.Drawing.Bitmap)
        Me.Button13.Location = New System.Drawing.Point(288, 32)
        Me.Button13.Name = "Button13"
        Me.Button13.Size = New System.Drawing.Size(32, 24)
        Me.Button13.TabIndex = 74
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(72, 64)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(32, 23)
        Me.Label23.TabIndex = 61
        Me.Label23.Text = "von"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(72, 88)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(32, 23)
        Me.Label12.TabIndex = 62
        Me.Label12.Text = "bis"
        '
        'Button14
        '
        Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Bitmap)
        Me.Button14.Location = New System.Drawing.Point(288, 64)
        Me.Button14.Name = "Button14"
        Me.Button14.Size = New System.Drawing.Size(32, 24)
        Me.Button14.TabIndex = 75
        '
        'Button12
        '
        Me.Button12.Image = CType(resources.GetObject("Button12.Image"), System.Drawing.Bitmap)
        Me.Button12.Location = New System.Drawing.Point(288, 8)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(32, 24)
        Me.Button12.TabIndex = 73
        '
        'cbrollend5
        '
        Me.cbrollend5.Location = New System.Drawing.Point(216, 120)
        Me.cbrollend5.Name = "cbrollend5"
        Me.cbrollend5.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend5.TabIndex = 67
        Me.cbrollend5.Text = "(rollend)"
        '
        'cbrollend4
        '
        Me.cbrollend4.Location = New System.Drawing.Point(216, 88)
        Me.cbrollend4.Name = "cbrollend4"
        Me.cbrollend4.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend4.TabIndex = 66
        Me.cbrollend4.Text = "(rollend)"
        '
        'cbrollend2
        '
        Me.cbrollend2.Location = New System.Drawing.Point(216, 32)
        Me.cbrollend2.Name = "cbrollend2"
        Me.cbrollend2.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend2.TabIndex = 58
        Me.cbrollend2.Text = "(rollend)"
        '
        'datumtext5
        '
        Me.datumtext5.Location = New System.Drawing.Point(224, 120)
        Me.datumtext5.Name = "datumtext5"
        Me.datumtext5.TabIndex = 71
        Me.datumtext5.Visible = False
        '
        'Label39
        '
        Me.Label39.Location = New System.Drawing.Point(72, 144)
        Me.Label39.Name = "Label39"
        Me.Label39.Size = New System.Drawing.Size(32, 23)
        Me.Label39.TabIndex = 64
        Me.Label39.Text = "bis"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(8, 8)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 23)
        Me.Label13.TabIndex = 48
        Me.Label13.Text = "Erstellung"
        '
        'txtdatum1
        '
        Me.txtdatum1.BackColor = System.Drawing.Color.White
        Me.txtdatum1.Enabled = False
        Me.txtdatum1.ForeColor = System.Drawing.Color.Black
        Me.txtdatum1.Location = New System.Drawing.Point(112, 8)
        Me.txtdatum1.Name = "txtdatum1"
        Me.txtdatum1.ReadOnly = True
        Me.txtdatum1.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum1.TabIndex = 54
        Me.txtdatum1.Text = ""
        '
        'cbrollend6
        '
        Me.cbrollend6.Location = New System.Drawing.Point(216, 144)
        Me.cbrollend6.Name = "cbrollend6"
        Me.cbrollend6.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend6.TabIndex = 68
        Me.cbrollend6.Text = "(rollend)"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(72, 32)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(32, 23)
        Me.Label11.TabIndex = 56
        Me.Label11.Text = "bis"
        '
        'cbrollend3
        '
        Me.cbrollend3.Location = New System.Drawing.Point(216, 64)
        Me.cbrollend3.Name = "cbrollend3"
        Me.cbrollend3.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend3.TabIndex = 65
        Me.cbrollend3.Text = "(rollend)"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(72, 8)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(32, 23)
        Me.Label10.TabIndex = 0
        Me.Label10.Text = "von"
        '
        'txtdatum5
        '
        Me.txtdatum5.BackColor = System.Drawing.Color.White
        Me.txtdatum5.Enabled = False
        Me.txtdatum5.ForeColor = System.Drawing.Color.Black
        Me.txtdatum5.Location = New System.Drawing.Point(112, 120)
        Me.txtdatum5.Name = "txtdatum5"
        Me.txtdatum5.ReadOnly = True
        Me.txtdatum5.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum5.TabIndex = 58
        Me.txtdatum5.Text = ""
        '
        'datumtext1
        '
        Me.datumtext1.Location = New System.Drawing.Point(224, 8)
        Me.datumtext1.Name = "datumtext1"
        Me.datumtext1.TabIndex = 59
        Me.datumtext1.Visible = False
        '
        'datumtext2
        '
        Me.datumtext2.Location = New System.Drawing.Point(224, 32)
        Me.datumtext2.Name = "datumtext2"
        Me.datumtext2.TabIndex = 60
        Me.datumtext2.Visible = False
        '
        'datumtext3
        '
        Me.datumtext3.Location = New System.Drawing.Point(224, 64)
        Me.datumtext3.Name = "datumtext3"
        Me.datumtext3.TabIndex = 69
        Me.datumtext3.Visible = False
        '
        'datumtext4
        '
        Me.datumtext4.Location = New System.Drawing.Point(224, 88)
        Me.datumtext4.Name = "datumtext4"
        Me.datumtext4.TabIndex = 70
        Me.datumtext4.Visible = False
        '
        'datumtext6
        '
        Me.datumtext6.Location = New System.Drawing.Point(224, 144)
        Me.datumtext6.Name = "datumtext6"
        Me.datumtext6.TabIndex = 72
        Me.datumtext6.Visible = False
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.DateTimePicker1.Location = New System.Drawing.Point(112, 8)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker1.TabIndex = 42
        Me.DateTimePicker1.TabStop = False
        Me.DateTimePicker1.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker2
        '
        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker2.Location = New System.Drawing.Point(112, 32)
        Me.DateTimePicker2.Name = "DateTimePicker2"
        Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker2.TabIndex = 43
        Me.DateTimePicker2.TabStop = False
        Me.DateTimePicker2.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker4
        '
        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker4.Location = New System.Drawing.Point(112, 88)
        Me.DateTimePicker4.Name = "DateTimePicker4"
        Me.DateTimePicker4.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker4.TabIndex = 45
        Me.DateTimePicker4.TabStop = False
        Me.DateTimePicker4.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'DateTimePicker5
        '
        Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker5.Location = New System.Drawing.Point(112, 120)
        Me.DateTimePicker5.Name = "DateTimePicker5"
        Me.DateTimePicker5.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker5.TabIndex = 46
        Me.DateTimePicker5.TabStop = False
        Me.DateTimePicker5.Value = New Date(2004, 1, 14, 18, 49, 58, 703)
        '
        'DateTimePicker6
        '
        Me.DateTimePicker6.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker6.Location = New System.Drawing.Point(112, 144)
        Me.DateTimePicker6.Name = "DateTimePicker6"
        Me.DateTimePicker6.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker6.TabIndex = 47
        Me.DateTimePicker6.TabStop = False
        Me.DateTimePicker6.Value = New Date(2004, 1, 14, 18, 49, 58, 703)
        '
        'TabPage3
        '
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtdatum3zv, Me.txtdatum4zv, Me.txtdatum2zv, Me.cbzvrollend1, Me.Label26, Me.Button21, Me.DateTimePicker13, Me.Button22, Me.Label28, Me.Label41, Me.Button23, Me.Button24, Me.cbzvrollend4, Me.cbzvrollend2, Me.Label42, Me.txtdatum1zv, Me.Label43, Me.cbzvrollend3, Me.Label44, Me.textdatum1zv, Me.textdatum2zv, Me.textdatum3zv, Me.textdatum4zv, Me.DateTimePicker14, Me.DateTimePicker15, Me.DateTimePicker16})
        Me.TabPage3.Location = New System.Drawing.Point(4, 25)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(336, 179)
        Me.TabPage3.TabIndex = 1
        Me.TabPage3.Text = "ZV-Belege"
        '
        'txtdatum3zv
        '
        Me.txtdatum3zv.BackColor = System.Drawing.Color.White
        Me.txtdatum3zv.Enabled = False
        Me.txtdatum3zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum3zv.Location = New System.Drawing.Point(112, 64)
        Me.txtdatum3zv.Name = "txtdatum3zv"
        Me.txtdatum3zv.ReadOnly = True
        Me.txtdatum3zv.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum3zv.TabIndex = 86
        Me.txtdatum3zv.Text = ""
        '
        'txtdatum4zv
        '
        Me.txtdatum4zv.BackColor = System.Drawing.Color.White
        Me.txtdatum4zv.Enabled = False
        Me.txtdatum4zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum4zv.Location = New System.Drawing.Point(112, 88)
        Me.txtdatum4zv.Name = "txtdatum4zv"
        Me.txtdatum4zv.ReadOnly = True
        Me.txtdatum4zv.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum4zv.TabIndex = 88
        Me.txtdatum4zv.Text = ""
        '
        'txtdatum2zv
        '
        Me.txtdatum2zv.BackColor = System.Drawing.Color.White
        Me.txtdatum2zv.Enabled = False
        Me.txtdatum2zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum2zv.Location = New System.Drawing.Point(112, 32)
        Me.txtdatum2zv.Name = "txtdatum2zv"
        Me.txtdatum2zv.ReadOnly = True
        Me.txtdatum2zv.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum2zv.TabIndex = 85
        Me.txtdatum2zv.Text = ""
        '
        'cbzvrollend1
        '
        Me.cbzvrollend1.Location = New System.Drawing.Point(216, 8)
        Me.cbzvrollend1.Name = "cbzvrollend1"
        Me.cbzvrollend1.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend1.TabIndex = 89
        Me.cbzvrollend1.Text = "(rollend)"
        '
        'Label26
        '
        Me.Label26.Location = New System.Drawing.Point(8, 64)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(64, 48)
        Me.Label26.TabIndex = 83
        Me.Label26.Text = "Archivie-rung"
        '
        'Button21
        '
        Me.Button21.Image = CType(resources.GetObject("Button21.Image"), System.Drawing.Bitmap)
        Me.Button21.Location = New System.Drawing.Point(288, 88)
        Me.Button21.Name = "Button21"
        Me.Button21.Size = New System.Drawing.Size(32, 24)
        Me.Button21.TabIndex = 102
        '
        'DateTimePicker13
        '
        Me.DateTimePicker13.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker13.Location = New System.Drawing.Point(112, 64)
        Me.DateTimePicker13.Name = "DateTimePicker13"
        Me.DateTimePicker13.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker13.TabIndex = 80
        Me.DateTimePicker13.TabStop = False
        Me.DateTimePicker13.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Button22
        '
        Me.Button22.Image = CType(resources.GetObject("Button22.Image"), System.Drawing.Bitmap)
        Me.Button22.Location = New System.Drawing.Point(288, 32)
        Me.Button22.Name = "Button22"
        Me.Button22.Size = New System.Drawing.Size(32, 24)
        Me.Button22.TabIndex = 100
        '
        'Label28
        '
        Me.Label28.Location = New System.Drawing.Point(72, 64)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(32, 23)
        Me.Label28.TabIndex = 93
        Me.Label28.Text = "von"
        '
        'Label41
        '
        Me.Label41.Location = New System.Drawing.Point(72, 88)
        Me.Label41.Name = "Label41"
        Me.Label41.Size = New System.Drawing.Size(32, 23)
        Me.Label41.TabIndex = 94
        Me.Label41.Text = "bis"
        '
        'Button23
        '
        Me.Button23.Image = CType(resources.GetObject("Button23.Image"), System.Drawing.Bitmap)
        Me.Button23.Location = New System.Drawing.Point(288, 64)
        Me.Button23.Name = "Button23"
        Me.Button23.Size = New System.Drawing.Size(32, 24)
        Me.Button23.TabIndex = 101
        '
        'Button24
        '
        Me.Button24.Image = CType(resources.GetObject("Button24.Image"), System.Drawing.Bitmap)
        Me.Button24.Location = New System.Drawing.Point(288, 8)
        Me.Button24.Name = "Button24"
        Me.Button24.Size = New System.Drawing.Size(32, 24)
        Me.Button24.TabIndex = 99
        '
        'cbzvrollend4
        '
        Me.cbzvrollend4.Location = New System.Drawing.Point(216, 88)
        Me.cbzvrollend4.Name = "cbzvrollend4"
        Me.cbzvrollend4.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend4.TabIndex = 96
        Me.cbzvrollend4.Text = "(rollend)"
        '
        'cbzvrollend2
        '
        Me.cbzvrollend2.Location = New System.Drawing.Point(216, 32)
        Me.cbzvrollend2.Name = "cbzvrollend2"
        Me.cbzvrollend2.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend2.TabIndex = 90
        Me.cbzvrollend2.Text = "(rollend)"
        '
        'Label42
        '
        Me.Label42.Location = New System.Drawing.Point(8, 8)
        Me.Label42.Name = "Label42"
        Me.Label42.Size = New System.Drawing.Size(56, 23)
        Me.Label42.TabIndex = 82
        Me.Label42.Text = "Valuta"
        '
        'txtdatum1zv
        '
        Me.txtdatum1zv.BackColor = System.Drawing.Color.White
        Me.txtdatum1zv.Enabled = False
        Me.txtdatum1zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum1zv.Location = New System.Drawing.Point(112, 8)
        Me.txtdatum1zv.Name = "txtdatum1zv"
        Me.txtdatum1zv.ReadOnly = True
        Me.txtdatum1zv.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum1zv.TabIndex = 84
        Me.txtdatum1zv.Text = ""
        '
        'Label43
        '
        Me.Label43.Location = New System.Drawing.Point(72, 32)
        Me.Label43.Name = "Label43"
        Me.Label43.Size = New System.Drawing.Size(32, 23)
        Me.Label43.TabIndex = 87
        Me.Label43.Text = "bis"
        '
        'cbzvrollend3
        '
        Me.cbzvrollend3.Location = New System.Drawing.Point(216, 64)
        Me.cbzvrollend3.Name = "cbzvrollend3"
        Me.cbzvrollend3.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend3.TabIndex = 95
        Me.cbzvrollend3.Text = "(rollend)"
        '
        'Label44
        '
        Me.Label44.Location = New System.Drawing.Point(72, 8)
        Me.Label44.Name = "Label44"
        Me.Label44.Size = New System.Drawing.Size(32, 23)
        Me.Label44.TabIndex = 77
        Me.Label44.Text = "von"
        '
        'textdatum1zv
        '
        Me.textdatum1zv.Location = New System.Drawing.Point(224, 8)
        Me.textdatum1zv.Name = "textdatum1zv"
        Me.textdatum1zv.TabIndex = 91
        Me.textdatum1zv.Visible = False
        '
        'textdatum2zv
        '
        Me.textdatum2zv.Location = New System.Drawing.Point(224, 32)
        Me.textdatum2zv.Name = "textdatum2zv"
        Me.textdatum2zv.TabIndex = 92
        Me.textdatum2zv.Visible = False
        '
        'textdatum3zv
        '
        Me.textdatum3zv.Location = New System.Drawing.Point(224, 64)
        Me.textdatum3zv.Name = "textdatum3zv"
        Me.textdatum3zv.TabIndex = 97
        Me.textdatum3zv.Visible = False
        '
        'textdatum4zv
        '
        Me.textdatum4zv.Location = New System.Drawing.Point(224, 88)
        Me.textdatum4zv.Name = "textdatum4zv"
        Me.textdatum4zv.TabIndex = 98
        Me.textdatum4zv.Visible = False
        '
        'DateTimePicker14
        '
        Me.DateTimePicker14.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.DateTimePicker14.Location = New System.Drawing.Point(112, 8)
        Me.DateTimePicker14.Name = "DateTimePicker14"
        Me.DateTimePicker14.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker14.TabIndex = 78
        Me.DateTimePicker14.TabStop = False
        Me.DateTimePicker14.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker15
        '
        Me.DateTimePicker15.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker15.Location = New System.Drawing.Point(112, 32)
        Me.DateTimePicker15.Name = "DateTimePicker15"
        Me.DateTimePicker15.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker15.TabIndex = 79
        Me.DateTimePicker15.TabStop = False
        Me.DateTimePicker15.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker16
        '
        Me.DateTimePicker16.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker16.Location = New System.Drawing.Point(112, 88)
        Me.DateTimePicker16.Name = "DateTimePicker16"
        Me.DateTimePicker16.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker16.TabIndex = 81
        Me.DateTimePicker16.TabStop = False
        Me.DateTimePicker16.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'TabPage5
        '
        Me.TabPage5.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtdatum4uvm, Me.txtdatum3uvm, Me.txtdatum2uvm, Me.cbuvmrollend1, Me.Label49, Me.Button25, Me.DateTimePicker17, Me.Button26, Me.Label50, Me.Label51, Me.Button27, Me.Button28, Me.cbuvmrollend4, Me.cbuvmrollend2, Me.Label52, Me.txtdatum1uvm, Me.Label53, Me.cbuvmrollend3, Me.Label54, Me.textdatum1uvm, Me.textdatum2uvm, Me.textdatum3uvm, Me.textdatum4uvm, Me.DateTimePicker18, Me.DateTimePicker19, Me.DateTimePicker20})
        Me.TabPage5.Location = New System.Drawing.Point(4, 25)
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.Size = New System.Drawing.Size(336, 179)
        Me.TabPage5.TabIndex = 2
        Me.TabPage5.Text = "Basis-Verträge"
        '
        'txtdatum4uvm
        '
        Me.txtdatum4uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum4uvm.Enabled = False
        Me.txtdatum4uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum4uvm.Location = New System.Drawing.Point(112, 88)
        Me.txtdatum4uvm.Name = "txtdatum4uvm"
        Me.txtdatum4uvm.ReadOnly = True
        Me.txtdatum4uvm.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum4uvm.TabIndex = 88
        Me.txtdatum4uvm.Text = ""
        '
        'txtdatum3uvm
        '
        Me.txtdatum3uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum3uvm.Enabled = False
        Me.txtdatum3uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum3uvm.Location = New System.Drawing.Point(112, 64)
        Me.txtdatum3uvm.Name = "txtdatum3uvm"
        Me.txtdatum3uvm.ReadOnly = True
        Me.txtdatum3uvm.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum3uvm.TabIndex = 86
        Me.txtdatum3uvm.Text = ""
        '
        'txtdatum2uvm
        '
        Me.txtdatum2uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum2uvm.Enabled = False
        Me.txtdatum2uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum2uvm.Location = New System.Drawing.Point(112, 32)
        Me.txtdatum2uvm.Name = "txtdatum2uvm"
        Me.txtdatum2uvm.ReadOnly = True
        Me.txtdatum2uvm.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum2uvm.TabIndex = 85
        Me.txtdatum2uvm.Text = ""
        '
        'cbuvmrollend1
        '
        Me.cbuvmrollend1.Location = New System.Drawing.Point(216, 8)
        Me.cbuvmrollend1.Name = "cbuvmrollend1"
        Me.cbuvmrollend1.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend1.TabIndex = 89
        Me.cbuvmrollend1.Text = "(rollend)"
        '
        'Label49
        '
        Me.Label49.Location = New System.Drawing.Point(8, 64)
        Me.Label49.Name = "Label49"
        Me.Label49.Size = New System.Drawing.Size(64, 32)
        Me.Label49.TabIndex = 83
        Me.Label49.Text = "Archivie-rung"
        '
        'Button25
        '
        Me.Button25.Image = CType(resources.GetObject("Button25.Image"), System.Drawing.Bitmap)
        Me.Button25.Location = New System.Drawing.Point(288, 88)
        Me.Button25.Name = "Button25"
        Me.Button25.Size = New System.Drawing.Size(32, 24)
        Me.Button25.TabIndex = 102
        '
        'DateTimePicker17
        '
        Me.DateTimePicker17.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker17.Location = New System.Drawing.Point(112, 64)
        Me.DateTimePicker17.Name = "DateTimePicker17"
        Me.DateTimePicker17.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker17.TabIndex = 80
        Me.DateTimePicker17.TabStop = False
        Me.DateTimePicker17.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Button26
        '
        Me.Button26.Image = CType(resources.GetObject("Button26.Image"), System.Drawing.Bitmap)
        Me.Button26.Location = New System.Drawing.Point(288, 32)
        Me.Button26.Name = "Button26"
        Me.Button26.Size = New System.Drawing.Size(32, 24)
        Me.Button26.TabIndex = 100
        '
        'Label50
        '
        Me.Label50.Location = New System.Drawing.Point(72, 64)
        Me.Label50.Name = "Label50"
        Me.Label50.Size = New System.Drawing.Size(32, 23)
        Me.Label50.TabIndex = 93
        Me.Label50.Text = "von"
        '
        'Label51
        '
        Me.Label51.Location = New System.Drawing.Point(72, 88)
        Me.Label51.Name = "Label51"
        Me.Label51.Size = New System.Drawing.Size(32, 23)
        Me.Label51.TabIndex = 94
        Me.Label51.Text = "bis"
        '
        'Button27
        '
        Me.Button27.Image = CType(resources.GetObject("Button27.Image"), System.Drawing.Bitmap)
        Me.Button27.Location = New System.Drawing.Point(288, 64)
        Me.Button27.Name = "Button27"
        Me.Button27.Size = New System.Drawing.Size(32, 24)
        Me.Button27.TabIndex = 101
        '
        'Button28
        '
        Me.Button28.Image = CType(resources.GetObject("Button28.Image"), System.Drawing.Bitmap)
        Me.Button28.Location = New System.Drawing.Point(288, 8)
        Me.Button28.Name = "Button28"
        Me.Button28.Size = New System.Drawing.Size(32, 24)
        Me.Button28.TabIndex = 99
        '
        'cbuvmrollend4
        '
        Me.cbuvmrollend4.Location = New System.Drawing.Point(216, 88)
        Me.cbuvmrollend4.Name = "cbuvmrollend4"
        Me.cbuvmrollend4.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend4.TabIndex = 96
        Me.cbuvmrollend4.Text = "(rollend)"
        '
        'cbuvmrollend2
        '
        Me.cbuvmrollend2.Location = New System.Drawing.Point(216, 32)
        Me.cbuvmrollend2.Name = "cbuvmrollend2"
        Me.cbuvmrollend2.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend2.TabIndex = 90
        Me.cbuvmrollend2.Text = "(rollend)"
        '
        'Label52
        '
        Me.Label52.Location = New System.Drawing.Point(8, 8)
        Me.Label52.Name = "Label52"
        Me.Label52.Size = New System.Drawing.Size(56, 23)
        Me.Label52.TabIndex = 82
        Me.Label52.Text = "Erstellung"
        '
        'txtdatum1uvm
        '
        Me.txtdatum1uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum1uvm.Enabled = False
        Me.txtdatum1uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum1uvm.Location = New System.Drawing.Point(112, 8)
        Me.txtdatum1uvm.Name = "txtdatum1uvm"
        Me.txtdatum1uvm.ReadOnly = True
        Me.txtdatum1uvm.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum1uvm.TabIndex = 84
        Me.txtdatum1uvm.Text = ""
        '
        'Label53
        '
        Me.Label53.Location = New System.Drawing.Point(72, 32)
        Me.Label53.Name = "Label53"
        Me.Label53.Size = New System.Drawing.Size(32, 23)
        Me.Label53.TabIndex = 87
        Me.Label53.Text = "bis"
        '
        'cbuvmrollend3
        '
        Me.cbuvmrollend3.Location = New System.Drawing.Point(216, 64)
        Me.cbuvmrollend3.Name = "cbuvmrollend3"
        Me.cbuvmrollend3.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend3.TabIndex = 95
        Me.cbuvmrollend3.Text = "(rollend)"
        '
        'Label54
        '
        Me.Label54.Location = New System.Drawing.Point(72, 8)
        Me.Label54.Name = "Label54"
        Me.Label54.Size = New System.Drawing.Size(32, 23)
        Me.Label54.TabIndex = 77
        Me.Label54.Text = "von"
        '
        'textdatum1uvm
        '
        Me.textdatum1uvm.Location = New System.Drawing.Point(224, 8)
        Me.textdatum1uvm.Name = "textdatum1uvm"
        Me.textdatum1uvm.TabIndex = 91
        Me.textdatum1uvm.Visible = False
        '
        'textdatum2uvm
        '
        Me.textdatum2uvm.Location = New System.Drawing.Point(224, 32)
        Me.textdatum2uvm.Name = "textdatum2uvm"
        Me.textdatum2uvm.TabIndex = 92
        Me.textdatum2uvm.Visible = False
        '
        'textdatum3uvm
        '
        Me.textdatum3uvm.Location = New System.Drawing.Point(224, 64)
        Me.textdatum3uvm.Name = "textdatum3uvm"
        Me.textdatum3uvm.TabIndex = 97
        Me.textdatum3uvm.Visible = False
        '
        'textdatum4uvm
        '
        Me.textdatum4uvm.Location = New System.Drawing.Point(224, 88)
        Me.textdatum4uvm.Name = "textdatum4uvm"
        Me.textdatum4uvm.TabIndex = 98
        Me.textdatum4uvm.Visible = False
        '
        'DateTimePicker18
        '
        Me.DateTimePicker18.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.DateTimePicker18.Location = New System.Drawing.Point(112, 8)
        Me.DateTimePicker18.Name = "DateTimePicker18"
        Me.DateTimePicker18.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker18.TabIndex = 78
        Me.DateTimePicker18.TabStop = False
        Me.DateTimePicker18.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker19
        '
        Me.DateTimePicker19.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker19.Location = New System.Drawing.Point(112, 32)
        Me.DateTimePicker19.Name = "DateTimePicker19"
        Me.DateTimePicker19.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker19.TabIndex = 79
        Me.DateTimePicker19.TabStop = False
        Me.DateTimePicker19.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker20
        '
        Me.DateTimePicker20.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker20.Location = New System.Drawing.Point(112, 88)
        Me.DateTimePicker20.Name = "DateTimePicker20"
        Me.DateTimePicker20.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker20.TabIndex = 81
        Me.DateTimePicker20.TabStop = False
        Me.DateTimePicker20.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'cinklalt
        '
        Me.cinklalt.Location = New System.Drawing.Point(16, 264)
        Me.cinklalt.Name = "cinklalt"
        Me.cinklalt.Size = New System.Drawing.Size(336, 24)
        Me.cinklalt.TabIndex = 84
        Me.cinklalt.Text = "nach Abschluss gelöschte oder aufgehobene Dokumente"
        '
        'cbmavip
        '
        Me.cbmavip.Location = New System.Drawing.Point(16, 248)
        Me.cbmavip.Name = "cbmavip"
        Me.cbmavip.Size = New System.Drawing.Size(264, 24)
        Me.cbmavip.TabIndex = 82
        Me.cbmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
        Me.cbmavip.Visible = False
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(256, 344)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(40, 23)
        Me.Label8.TabIndex = 70
        Me.Label8.Text = "Tagen"
        Me.Label8.Visible = False
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(256, 320)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(40, 23)
        Me.Label7.TabIndex = 69
        Me.Label7.Text = "Tagen"
        Me.Label7.Visible = False
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(32, 344)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(160, 23)
        Me.Label6.TabIndex = 67
        Me.Label6.Text = "Mutationsdatum in den letzen "
        Me.Label6.Visible = False
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(32, 320)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(160, 23)
        Me.Label5.TabIndex = 66
        Me.Label5.Text = "Erstellungsdatum in den letzen"
        Me.Label5.Visible = False
        '
        'cbd6
        '
        Me.cbd6.Location = New System.Drawing.Point(16, 464)
        Me.cbd6.Name = "cbd6"
        Me.cbd6.Size = New System.Drawing.Size(16, 24)
        Me.cbd6.TabIndex = 64
        Me.cbd6.Visible = False
        '
        'cbd4
        '
        Me.cbd4.Location = New System.Drawing.Point(16, 440)
        Me.cbd4.Name = "cbd4"
        Me.cbd4.Size = New System.Drawing.Size(16, 24)
        Me.cbd4.TabIndex = 62
        Me.cbd4.Visible = False
        '
        'cbd2
        '
        Me.cbd2.Location = New System.Drawing.Point(16, 416)
        Me.cbd2.Name = "cbd2"
        Me.cbd2.Size = New System.Drawing.Size(16, 24)
        Me.cbd2.TabIndex = 60
        Me.cbd2.Visible = False
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(48, 464)
        Me.Label18.Name = "Label18"
        Me.Label18.TabIndex = 53
        Me.Label18.Text = "Archivierung bis"
        Me.Label18.Visible = False
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(48, 440)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(96, 23)
        Me.Label16.TabIndex = 51
        Me.Label16.Text = "Mutation bis"
        Me.Label16.Visible = False
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(48, 416)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(96, 23)
        Me.Label14.TabIndex = 49
        Me.Label14.Text = "Erstellung bis"
        Me.Label14.Visible = False
        '
        'GroupBox10
        '
        Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox10.Location = New System.Drawing.Point(8, 248)
        Me.GroupBox10.Name = "GroupBox10"
        Me.GroupBox10.Size = New System.Drawing.Size(360, 64)
        Me.GroupBox10.TabIndex = 85
        Me.GroupBox10.TabStop = False
        Me.GroupBox10.Text = "Datenselektion"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(344, 48)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(16, 16)
        Me.Button1.TabIndex = 74
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(344, 88)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(16, 16)
        Me.Button2.TabIndex = 75
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(344, 136)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(16, 16)
        Me.Button3.TabIndex = 76
        '
        'Groupbox3
        '
        Me.Groupbox3.Location = New System.Drawing.Point(8, 8)
        Me.Groupbox3.Name = "Groupbox3"
        Me.Groupbox3.Size = New System.Drawing.Size(360, 232)
        Me.Groupbox3.TabIndex = 87
        Me.Groupbox3.TabStop = False
        Me.Groupbox3.Text = "Datum-Selektion"
        '
        'pnlzv
        '
        Me.pnlzv.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnzvzahlungsart, Me.Label62, Me.txtzvzahlungsart, Me.btnzvverarbeitungsart, Me.Label61, Me.txtzvverarbeitungsart, Me.btnzvswift, Me.Label60, Me.txtzvswift, Me.btnzvreferenz, Me.Label59, Me.txtzvreferenznr, Me.btnzvposten, Me.Label58, Me.txtzvpostennr, Me.btnzvpcnr, Me.Label57, Me.txtzvpcnr, Me.btnzvbeguenstiger, Me.Label56, Me.txtzvbeguenstigter, Me.btnzviso, Me.Label55, Me.txtzviso, Me.btnzvclearing, Me.Label48, Me.txtzvclearingnr, Me.btnzvbetrag, Me.Label47, Me.txtzvbetrag, Me.btnzvauftraggeber, Me.Label46, Me.txtzvauftraggeber, Me.btnzvauftragsnr, Me.Label63, Me.txtzvauftragsnr, Me.GroupBox13})
        Me.pnlzv.Location = New System.Drawing.Point(224, 8)
        Me.pnlzv.Name = "pnlzv"
        Me.pnlzv.Size = New System.Drawing.Size(376, 504)
        Me.pnlzv.TabIndex = 11
        '
        'btnzvzahlungsart
        '
        Me.btnzvzahlungsart.Location = New System.Drawing.Point(320, 384)
        Me.btnzvzahlungsart.Name = "btnzvzahlungsart"
        Me.btnzvzahlungsart.Size = New System.Drawing.Size(32, 24)
        Me.btnzvzahlungsart.TabIndex = 35
        Me.btnzvzahlungsart.Text = "OK"
        '
        'Label62
        '
        Me.Label62.Location = New System.Drawing.Point(16, 384)
        Me.Label62.Name = "Label62"
        Me.Label62.TabIndex = 34
        Me.Label62.Text = "Zahlungsart"
        '
        'txtzvzahlungsart
        '
        Me.txtzvzahlungsart.Location = New System.Drawing.Point(120, 384)
        Me.txtzvzahlungsart.Name = "txtzvzahlungsart"
        Me.txtzvzahlungsart.Size = New System.Drawing.Size(192, 20)
        Me.txtzvzahlungsart.TabIndex = 33
        Me.txtzvzahlungsart.Text = ""
        '
        'btnzvverarbeitungsart
        '
        Me.btnzvverarbeitungsart.Location = New System.Drawing.Point(320, 352)
        Me.btnzvverarbeitungsart.Name = "btnzvverarbeitungsart"
        Me.btnzvverarbeitungsart.Size = New System.Drawing.Size(32, 24)
        Me.btnzvverarbeitungsart.TabIndex = 32
        Me.btnzvverarbeitungsart.Text = "OK"
        '
        'Label61
        '
        Me.Label61.Location = New System.Drawing.Point(16, 352)
        Me.Label61.Name = "Label61"
        Me.Label61.TabIndex = 31
        Me.Label61.Text = "Verarbeitungsart"
        '
        'txtzvverarbeitungsart
        '
        Me.txtzvverarbeitungsart.Location = New System.Drawing.Point(120, 352)
        Me.txtzvverarbeitungsart.Name = "txtzvverarbeitungsart"
        Me.txtzvverarbeitungsart.Size = New System.Drawing.Size(192, 20)
        Me.txtzvverarbeitungsart.TabIndex = 30
        Me.txtzvverarbeitungsart.Text = ""
        '
        'btnzvswift
        '
        Me.btnzvswift.Location = New System.Drawing.Point(320, 320)
        Me.btnzvswift.Name = "btnzvswift"
        Me.btnzvswift.Size = New System.Drawing.Size(32, 24)
        Me.btnzvswift.TabIndex = 29
        Me.btnzvswift.Text = "OK"
        '
        'Label60
        '
        Me.Label60.Location = New System.Drawing.Point(16, 320)
        Me.Label60.Name = "Label60"
        Me.Label60.TabIndex = 28
        Me.Label60.Text = "SWIFT-Adresse"
        '
        'txtzvswift
        '
        Me.txtzvswift.Location = New System.Drawing.Point(120, 320)
        Me.txtzvswift.Name = "txtzvswift"
        Me.txtzvswift.Size = New System.Drawing.Size(192, 20)
        Me.txtzvswift.TabIndex = 27
        Me.txtzvswift.Text = ""
        '
        'btnzvreferenz
        '
        Me.btnzvreferenz.Location = New System.Drawing.Point(320, 288)
        Me.btnzvreferenz.Name = "btnzvreferenz"
        Me.btnzvreferenz.Size = New System.Drawing.Size(32, 24)
        Me.btnzvreferenz.TabIndex = 26
        Me.btnzvreferenz.Text = "OK"
        '
        'Label59
        '
        Me.Label59.Location = New System.Drawing.Point(16, 288)
        Me.Label59.Name = "Label59"
        Me.Label59.TabIndex = 25
        Me.Label59.Text = "Referenz-Nr"
        '
        'txtzvreferenznr
        '
        Me.txtzvreferenznr.Location = New System.Drawing.Point(120, 288)
        Me.txtzvreferenznr.Name = "txtzvreferenznr"
        Me.txtzvreferenznr.Size = New System.Drawing.Size(192, 20)
        Me.txtzvreferenznr.TabIndex = 24
        Me.txtzvreferenznr.Text = ""
        '
        'btnzvposten
        '
        Me.btnzvposten.Location = New System.Drawing.Point(320, 256)
        Me.btnzvposten.Name = "btnzvposten"
        Me.btnzvposten.Size = New System.Drawing.Size(32, 24)
        Me.btnzvposten.TabIndex = 23
        Me.btnzvposten.Text = "OK"
        '
        'Label58
        '
        Me.Label58.Location = New System.Drawing.Point(16, 256)
        Me.Label58.Name = "Label58"
        Me.Label58.TabIndex = 22
        Me.Label58.Text = "Posten-Nr"
        '
        'txtzvpostennr
        '
        Me.txtzvpostennr.Location = New System.Drawing.Point(120, 256)
        Me.txtzvpostennr.Name = "txtzvpostennr"
        Me.txtzvpostennr.Size = New System.Drawing.Size(192, 20)
        Me.txtzvpostennr.TabIndex = 21
        Me.txtzvpostennr.Text = ""
        '
        'btnzvpcnr
        '
        Me.btnzvpcnr.Location = New System.Drawing.Point(320, 224)
        Me.btnzvpcnr.Name = "btnzvpcnr"
        Me.btnzvpcnr.Size = New System.Drawing.Size(32, 24)
        Me.btnzvpcnr.TabIndex = 20
        Me.btnzvpcnr.Text = "OK"
        '
        'Label57
        '
        Me.Label57.Location = New System.Drawing.Point(16, 224)
        Me.Label57.Name = "Label57"
        Me.Label57.TabIndex = 19
        Me.Label57.Text = "PC-Nr"
        '
        'txtzvpcnr
        '
        Me.txtzvpcnr.Location = New System.Drawing.Point(120, 224)
        Me.txtzvpcnr.Name = "txtzvpcnr"
        Me.txtzvpcnr.Size = New System.Drawing.Size(192, 20)
        Me.txtzvpcnr.TabIndex = 18
        Me.txtzvpcnr.Text = ""
        '
        'btnzvbeguenstiger
        '
        Me.btnzvbeguenstiger.Location = New System.Drawing.Point(320, 192)
        Me.btnzvbeguenstiger.Name = "btnzvbeguenstiger"
        Me.btnzvbeguenstiger.Size = New System.Drawing.Size(32, 24)
        Me.btnzvbeguenstiger.TabIndex = 17
        Me.btnzvbeguenstiger.Text = "OK"
        '
        'Label56
        '
        Me.Label56.Location = New System.Drawing.Point(16, 192)
        Me.Label56.Name = "Label56"
        Me.Label56.TabIndex = 16
        Me.Label56.Text = "Kto. Begünstiger"
        '
        'txtzvbeguenstigter
        '
        Me.txtzvbeguenstigter.Location = New System.Drawing.Point(120, 192)
        Me.txtzvbeguenstigter.Name = "txtzvbeguenstigter"
        Me.txtzvbeguenstigter.Size = New System.Drawing.Size(192, 20)
        Me.txtzvbeguenstigter.TabIndex = 15
        Me.txtzvbeguenstigter.Text = ""
        '
        'btnzviso
        '
        Me.btnzviso.Location = New System.Drawing.Point(320, 160)
        Me.btnzviso.Name = "btnzviso"
        Me.btnzviso.Size = New System.Drawing.Size(32, 24)
        Me.btnzviso.TabIndex = 14
        Me.btnzviso.Text = "OK"
        '
        'Label55
        '
        Me.Label55.Location = New System.Drawing.Point(16, 160)
        Me.Label55.Name = "Label55"
        Me.Label55.TabIndex = 13
        Me.Label55.Text = "ISO-Währung"
        '
        'txtzviso
        '
        Me.txtzviso.Location = New System.Drawing.Point(120, 160)
        Me.txtzviso.Name = "txtzviso"
        Me.txtzviso.Size = New System.Drawing.Size(192, 20)
        Me.txtzviso.TabIndex = 12
        Me.txtzviso.Text = ""
        '
        'btnzvclearing
        '
        Me.btnzvclearing.Location = New System.Drawing.Point(320, 128)
        Me.btnzvclearing.Name = "btnzvclearing"
        Me.btnzvclearing.Size = New System.Drawing.Size(32, 24)
        Me.btnzvclearing.TabIndex = 11
        Me.btnzvclearing.Text = "OK"
        '
        'Label48
        '
        Me.Label48.Location = New System.Drawing.Point(16, 128)
        Me.Label48.Name = "Label48"
        Me.Label48.TabIndex = 10
        Me.Label48.Text = "Clearingnr"
        '
        'txtzvclearingnr
        '
        Me.txtzvclearingnr.Location = New System.Drawing.Point(120, 128)
        Me.txtzvclearingnr.Name = "txtzvclearingnr"
        Me.txtzvclearingnr.Size = New System.Drawing.Size(192, 20)
        Me.txtzvclearingnr.TabIndex = 9
        Me.txtzvclearingnr.Text = ""
        '
        'btnzvbetrag
        '
        Me.btnzvbetrag.Location = New System.Drawing.Point(320, 96)
        Me.btnzvbetrag.Name = "btnzvbetrag"
        Me.btnzvbetrag.Size = New System.Drawing.Size(32, 24)
        Me.btnzvbetrag.TabIndex = 8
        Me.btnzvbetrag.Text = "OK"
        '
        'Label47
        '
        Me.Label47.Location = New System.Drawing.Point(16, 96)
        Me.Label47.Name = "Label47"
        Me.Label47.TabIndex = 7
        Me.Label47.Text = "Betrag"
        '
        'txtzvbetrag
        '
        Me.txtzvbetrag.Location = New System.Drawing.Point(120, 96)
        Me.txtzvbetrag.Name = "txtzvbetrag"
        Me.txtzvbetrag.Size = New System.Drawing.Size(192, 20)
        Me.txtzvbetrag.TabIndex = 6
        Me.txtzvbetrag.Text = ""
        '
        'btnzvauftraggeber
        '
        Me.btnzvauftraggeber.Location = New System.Drawing.Point(320, 64)
        Me.btnzvauftraggeber.Name = "btnzvauftraggeber"
        Me.btnzvauftraggeber.Size = New System.Drawing.Size(32, 24)
        Me.btnzvauftraggeber.TabIndex = 5
        Me.btnzvauftraggeber.Text = "OK"
        '
        'Label46
        '
        Me.Label46.Location = New System.Drawing.Point(16, 64)
        Me.Label46.Name = "Label46"
        Me.Label46.TabIndex = 4
        Me.Label46.Text = "Auftraggeber"
        '
        'txtzvauftraggeber
        '
        Me.txtzvauftraggeber.Location = New System.Drawing.Point(120, 64)
        Me.txtzvauftraggeber.Name = "txtzvauftraggeber"
        Me.txtzvauftraggeber.Size = New System.Drawing.Size(192, 20)
        Me.txtzvauftraggeber.TabIndex = 3
        Me.txtzvauftraggeber.Text = ""
        '
        'btnzvauftragsnr
        '
        Me.btnzvauftragsnr.Location = New System.Drawing.Point(320, 32)
        Me.btnzvauftragsnr.Name = "btnzvauftragsnr"
        Me.btnzvauftragsnr.Size = New System.Drawing.Size(32, 24)
        Me.btnzvauftragsnr.TabIndex = 2
        Me.btnzvauftragsnr.Text = "OK"
        '
        'Label63
        '
        Me.Label63.Location = New System.Drawing.Point(16, 32)
        Me.Label63.Name = "Label63"
        Me.Label63.TabIndex = 1
        Me.Label63.Text = "Auftragsnummer"
        '
        'txtzvauftragsnr
        '
        Me.txtzvauftragsnr.Location = New System.Drawing.Point(120, 32)
        Me.txtzvauftragsnr.Name = "txtzvauftragsnr"
        Me.txtzvauftragsnr.Size = New System.Drawing.Size(192, 20)
        Me.txtzvauftragsnr.TabIndex = 0
        Me.txtzvauftragsnr.Text = ""
        '
        'GroupBox13
        '
        Me.GroupBox13.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox13.Name = "GroupBox13"
        Me.GroupBox13.Size = New System.Drawing.Size(360, 408)
        Me.GroupBox13.TabIndex = 36
        Me.GroupBox13.TabStop = False
        Me.GroupBox13.Text = "Diverse Selektionskriterien"
        '
        'pnlhostdiv
        '
        Me.pnlhostdiv.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox4, Me.Label20, Me.hostinklmavip, Me.Label29, Me.DateTimePicker7, Me.GroupBox6, Me.Label32, Me.Label33, Me.Label34, Me.Label35, Me.CheckBox3, Me.CheckBox4, Me.CheckBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.Label36, Me.Label37, Me.Label38, Me.DateTimePicker10, Me.DateTimePicker11, Me.DateTimePicker12, Me.Button8, Me.Button7, Me.Button6})
        Me.pnlhostdiv.Location = New System.Drawing.Point(224, 8)
        Me.pnlhostdiv.Name = "pnlhostdiv"
        Me.pnlhostdiv.Size = New System.Drawing.Size(376, 496)
        Me.pnlhostdiv.TabIndex = 7
        Me.pnlhostdiv.Visible = False
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label66, Me.Label65, Me.Label64, Me.Button20, Me.TextBox6, Me.Button9, Me.TextBox4, Me.Button10, Me.TextBox5})
        Me.GroupBox4.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(360, 128)
        Me.GroupBox4.TabIndex = 91
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Diverse Selektionskriterien"
        '
        'Label66
        '
        Me.Label66.Location = New System.Drawing.Point(16, 88)
        Me.Label66.Name = "Label66"
        Me.Label66.Size = New System.Drawing.Size(104, 23)
        Me.Label66.TabIndex = 91
        Me.Label66.Text = "ISIN-Nummer"
        '
        'Label65
        '
        Me.Label65.Location = New System.Drawing.Point(16, 56)
        Me.Label65.Name = "Label65"
        Me.Label65.Size = New System.Drawing.Size(104, 23)
        Me.Label65.TabIndex = 90
        Me.Label65.Text = "Valoren-Nummer"
        '
        'Label64
        '
        Me.Label64.Location = New System.Drawing.Point(16, 24)
        Me.Label64.Name = "Label64"
        Me.Label64.Size = New System.Drawing.Size(104, 23)
        Me.Label64.TabIndex = 89
        Me.Label64.Text = "VV-Nummer extern"
        '
        'Button20
        '
        Me.Button20.Location = New System.Drawing.Point(248, 24)
        Me.Button20.Name = "Button20"
        Me.Button20.Size = New System.Drawing.Size(40, 23)
        Me.Button20.TabIndex = 88
        Me.Button20.Text = "&OK"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(128, 24)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(112, 20)
        Me.TextBox6.TabIndex = 87
        Me.TextBox6.Text = ""
        '
        'Button9
        '
        Me.Button9.Location = New System.Drawing.Point(248, 56)
        Me.Button9.Name = "Button9"
        Me.Button9.Size = New System.Drawing.Size(40, 23)
        Me.Button9.TabIndex = 88
        Me.Button9.Text = "&OK"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(128, 56)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(112, 20)
        Me.TextBox4.TabIndex = 87
        Me.TextBox4.Text = ""
        '
        'Button10
        '
        Me.Button10.Location = New System.Drawing.Point(248, 88)
        Me.Button10.Name = "Button10"
        Me.Button10.Size = New System.Drawing.Size(40, 23)
        Me.Button10.TabIndex = 89
        Me.Button10.Text = "&OK"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(128, 88)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(112, 20)
        Me.TextBox5.TabIndex = 88
        Me.TextBox5.Text = ""
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(184, 336)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(80, 23)
        Me.Label20.TabIndex = 86
        Me.Label20.Text = "ISIN-Nummer"
        Me.Label20.Visible = False
        '
        'hostinklmavip
        '
        Me.hostinklmavip.Location = New System.Drawing.Point(16, 376)
        Me.hostinklmavip.Name = "hostinklmavip"
        Me.hostinklmavip.Size = New System.Drawing.Size(264, 24)
        Me.hostinklmavip.TabIndex = 82
        Me.hostinklmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
        Me.hostinklmavip.Visible = False
        '
        'Label29
        '
        Me.Label29.Location = New System.Drawing.Point(16, 32)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(80, 23)
        Me.Label29.TabIndex = 48
        Me.Label29.Text = "Valuta-Datum"
        '
        'DateTimePicker7
        '
        Me.DateTimePicker7.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker7.Location = New System.Drawing.Point(264, 328)
        Me.DateTimePicker7.Name = "DateTimePicker7"
        Me.DateTimePicker7.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker7.TabIndex = 46
        Me.DateTimePicker7.TabStop = False
        Me.DateTimePicker7.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        Me.DateTimePicker7.Visible = False
        '
        'GroupBox6
        '
        Me.GroupBox6.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button18, Me.Button19, Me.DatumHostText2, Me.DatumHostText1, Me.cbrollend9, Me.cbrollend8, Me.HostDatum1, Me.Label9, Me.Label4, Me.lblhostdatum31, Me.ComboBox6, Me.Label27, Me.lblhostdatum3, Me.HostDatum3, Me.HostTag3, Me.HostDatum2, Me.DateTimePicker8, Me.lblhostdatum2, Me.DateTimePicker9})
        Me.GroupBox6.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(360, 88)
        Me.GroupBox6.TabIndex = 83
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Datumsselektion"
        '
        'Button18
        '
        Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Bitmap)
        Me.Button18.Location = New System.Drawing.Point(308, 49)
        Me.Button18.Name = "Button18"
        Me.Button18.Size = New System.Drawing.Size(32, 24)
        Me.Button18.TabIndex = 97
        '
        'Button19
        '
        Me.Button19.Image = CType(resources.GetObject("Button19.Image"), System.Drawing.Bitmap)
        Me.Button19.Location = New System.Drawing.Point(308, 25)
        Me.Button19.Name = "Button19"
        Me.Button19.Size = New System.Drawing.Size(32, 24)
        Me.Button19.TabIndex = 96
        '
        'DatumHostText2
        '
        Me.DatumHostText2.Location = New System.Drawing.Point(216, 80)
        Me.DatumHostText2.Name = "DatumHostText2"
        Me.DatumHostText2.TabIndex = 95
        Me.DatumHostText2.Text = "Label26"
        Me.DatumHostText2.Visible = False
        '
        'DatumHostText1
        '
        Me.DatumHostText1.Location = New System.Drawing.Point(88, 80)
        Me.DatumHostText1.Name = "DatumHostText1"
        Me.DatumHostText1.TabIndex = 94
        Me.DatumHostText1.Text = "Label26"
        Me.DatumHostText1.Visible = False
        '
        'cbrollend9
        '
        Me.cbrollend9.Location = New System.Drawing.Point(232, 48)
        Me.cbrollend9.Name = "cbrollend9"
        Me.cbrollend9.TabIndex = 93
        Me.cbrollend9.Text = "(rollend)"
        '
        'cbrollend8
        '
        Me.cbrollend8.Location = New System.Drawing.Point(232, 24)
        Me.cbrollend8.Name = "cbrollend8"
        Me.cbrollend8.Size = New System.Drawing.Size(96, 24)
        Me.cbrollend8.TabIndex = 92
        Me.cbrollend8.Text = "(rollend)"
        '
        'HostDatum1
        '
        Me.HostDatum1.BackColor = System.Drawing.Color.White
        Me.HostDatum1.Enabled = False
        Me.HostDatum1.ForeColor = System.Drawing.Color.Black
        Me.HostDatum1.Location = New System.Drawing.Point(128, 24)
        Me.HostDatum1.Name = "HostDatum1"
        Me.HostDatum1.ReadOnly = True
        Me.HostDatum1.Size = New System.Drawing.Size(79, 20)
        Me.HostDatum1.TabIndex = 54
        Me.HostDatum1.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(88, 48)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(40, 23)
        Me.Label9.TabIndex = 91
        Me.Label9.Text = "bis"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(88, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(40, 23)
        Me.Label4.TabIndex = 90
        Me.Label4.Text = "von"
        '
        'lblhostdatum31
        '
        Me.lblhostdatum31.Location = New System.Drawing.Point(240, 152)
        Me.lblhostdatum31.Name = "lblhostdatum31"
        Me.lblhostdatum31.Size = New System.Drawing.Size(96, 16)
        Me.lblhostdatum31.TabIndex = 89
        Me.lblhostdatum31.Text = "(19.12.2003)"
        Me.lblhostdatum31.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblhostdatum31.Visible = False
        '
        'ComboBox6
        '
        Me.ComboBox6.ItemHeight = 13
        Me.ComboBox6.Items.AddRange(New Object() {"(heute)", "(heute-1)", "(heute-2)", "(heute-3)", "(heute-4)", "(heute-5)", "(heute-6)", "(heute-7)", "(heute-8)", "(heute-9)", "(heute-10)", "(heute-11)", "(heute-12)", "(heute-13)", "(heute-14)", "(heute-15)", "(heute-16)", "(heute-17)", "(heute-18)", "(heute-19)", "(heute-20)", "(heute-21)", "(heute-22)", "(heute-23)", "(heute-24)", "(heute-25)", "(heute-26)", "(heute-27)", "(heute-28)", "(heute-29)", "(heute-30)"})
        Me.ComboBox6.Location = New System.Drawing.Point(240, 128)
        Me.ComboBox6.Name = "ComboBox6"
        Me.ComboBox6.Size = New System.Drawing.Size(115, 21)
        Me.ComboBox6.TabIndex = 3
        Me.ComboBox6.Text = "ComboBox6"
        Me.ComboBox6.Visible = False
        '
        'Label27
        '
        Me.Label27.Location = New System.Drawing.Point(8, 128)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(72, 23)
        Me.Label27.TabIndex = 52
        Me.Label27.Text = "Archivierung"
        Me.Label27.Visible = False
        '
        'lblhostdatum3
        '
        Me.lblhostdatum3.Location = New System.Drawing.Point(160, 128)
        Me.lblhostdatum3.Name = "lblhostdatum3"
        Me.lblhostdatum3.Size = New System.Drawing.Size(72, 21)
        Me.lblhostdatum3.TabIndex = 79
        Me.lblhostdatum3.Visible = False
        '
        'HostDatum3
        '
        Me.HostDatum3.BackColor = System.Drawing.Color.White
        Me.HostDatum3.Enabled = False
        Me.HostDatum3.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.HostDatum3.Location = New System.Drawing.Point(240, 128)
        Me.HostDatum3.Name = "HostDatum3"
        Me.HostDatum3.ReadOnly = True
        Me.HostDatum3.Size = New System.Drawing.Size(79, 20)
        Me.HostDatum3.TabIndex = 58
        Me.HostDatum3.Text = "TextBox4"
        Me.HostDatum3.Visible = False
        '
        'HostTag3
        '
        Me.HostTag3.ItemHeight = 13
        Me.HostTag3.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
        Me.HostTag3.Location = New System.Drawing.Point(80, 128)
        Me.HostTag3.Name = "HostTag3"
        Me.HostTag3.Size = New System.Drawing.Size(56, 21)
        Me.HostTag3.TabIndex = 71
        Me.HostTag3.Text = "HostTag3"
        Me.HostTag3.Visible = False
        '
        'HostDatum2
        '
        Me.HostDatum2.BackColor = System.Drawing.Color.White
        Me.HostDatum2.Enabled = False
        Me.HostDatum2.ForeColor = System.Drawing.Color.Black
        Me.HostDatum2.Location = New System.Drawing.Point(128, 48)
        Me.HostDatum2.Name = "HostDatum2"
        Me.HostDatum2.ReadOnly = True
        Me.HostDatum2.Size = New System.Drawing.Size(79, 20)
        Me.HostDatum2.TabIndex = 56
        Me.HostDatum2.Text = ""
        '
        'DateTimePicker8
        '
        Me.DateTimePicker8.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker8.Location = New System.Drawing.Point(128, 48)
        Me.DateTimePicker8.Name = "DateTimePicker8"
        Me.DateTimePicker8.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker8.TabIndex = 44
        Me.DateTimePicker8.TabStop = False
        Me.DateTimePicker8.Value = New Date(2004, 1, 14, 18, 49, 59, 203)
        '
        'lblhostdatum2
        '
        Me.lblhostdatum2.Location = New System.Drawing.Point(160, 72)
        Me.lblhostdatum2.Name = "lblhostdatum2"
        Me.lblhostdatum2.Size = New System.Drawing.Size(72, 21)
        Me.lblhostdatum2.TabIndex = 78
        Me.lblhostdatum2.Visible = False
        '
        'DateTimePicker9
        '
        Me.DateTimePicker9.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker9.Location = New System.Drawing.Point(128, 24)
        Me.DateTimePicker9.Name = "DateTimePicker9"
        Me.DateTimePicker9.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker9.TabIndex = 42
        Me.DateTimePicker9.TabStop = False
        Me.DateTimePicker9.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        '
        'Label32
        '
        Me.Label32.Location = New System.Drawing.Point(304, 456)
        Me.Label32.Name = "Label32"
        Me.Label32.Size = New System.Drawing.Size(40, 23)
        Me.Label32.TabIndex = 70
        Me.Label32.Text = "Tagen"
        Me.Label32.Visible = False
        '
        'Label33
        '
        Me.Label33.Location = New System.Drawing.Point(304, 432)
        Me.Label33.Name = "Label33"
        Me.Label33.Size = New System.Drawing.Size(40, 23)
        Me.Label33.TabIndex = 69
        Me.Label33.Text = "Tagen"
        Me.Label33.Visible = False
        '
        'Label34
        '
        Me.Label34.Location = New System.Drawing.Point(80, 456)
        Me.Label34.Name = "Label34"
        Me.Label34.Size = New System.Drawing.Size(160, 23)
        Me.Label34.TabIndex = 67
        Me.Label34.Text = "Mutationsdatum in den letzen "
        Me.Label34.Visible = False
        '
        'Label35
        '
        Me.Label35.Location = New System.Drawing.Point(80, 432)
        Me.Label35.Name = "Label35"
        Me.Label35.Size = New System.Drawing.Size(160, 23)
        Me.Label35.TabIndex = 66
        Me.Label35.Text = "Erstellungsdatum in den letzen"
        Me.Label35.Visible = False
        '
        'CheckBox3
        '
        Me.CheckBox3.Location = New System.Drawing.Point(16, 464)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox3.TabIndex = 64
        Me.CheckBox3.Visible = False
        '
        'CheckBox4
        '
        Me.CheckBox4.Location = New System.Drawing.Point(16, 440)
        Me.CheckBox4.Name = "CheckBox4"
        Me.CheckBox4.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox4.TabIndex = 62
        Me.CheckBox4.Visible = False
        '
        'CheckBox5
        '
        Me.CheckBox5.Location = New System.Drawing.Point(16, 416)
        Me.CheckBox5.Name = "CheckBox5"
        Me.CheckBox5.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox5.TabIndex = 60
        Me.CheckBox5.Visible = False
        '
        'TextBox7
        '
        Me.TextBox7.BackColor = System.Drawing.Color.White
        Me.TextBox7.Enabled = False
        Me.TextBox7.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox7.Location = New System.Drawing.Point(160, 464)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(80, 20)
        Me.TextBox7.TabIndex = 59
        Me.TextBox7.Text = "TextBox4"
        Me.TextBox7.Visible = False
        '
        'TextBox8
        '
        Me.TextBox8.BackColor = System.Drawing.Color.White
        Me.TextBox8.Enabled = False
        Me.TextBox8.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox8.Location = New System.Drawing.Point(160, 440)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.ReadOnly = True
        Me.TextBox8.Size = New System.Drawing.Size(80, 20)
        Me.TextBox8.TabIndex = 57
        Me.TextBox8.Text = "TextBox4"
        Me.TextBox8.Visible = False
        '
        'TextBox9
        '
        Me.TextBox9.BackColor = System.Drawing.Color.White
        Me.TextBox9.Enabled = False
        Me.TextBox9.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox9.Location = New System.Drawing.Point(160, 416)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ReadOnly = True
        Me.TextBox9.Size = New System.Drawing.Size(80, 20)
        Me.TextBox9.TabIndex = 55
        Me.TextBox9.Text = "TextBox4"
        Me.TextBox9.Visible = False
        '
        'Label36
        '
        Me.Label36.Location = New System.Drawing.Point(48, 464)
        Me.Label36.Name = "Label36"
        Me.Label36.TabIndex = 53
        Me.Label36.Text = "Archivierung bis"
        Me.Label36.Visible = False
        '
        'Label37
        '
        Me.Label37.Location = New System.Drawing.Point(48, 440)
        Me.Label37.Name = "Label37"
        Me.Label37.Size = New System.Drawing.Size(96, 23)
        Me.Label37.TabIndex = 51
        Me.Label37.Text = "Mutation bis"
        Me.Label37.Visible = False
        '
        'Label38
        '
        Me.Label38.Location = New System.Drawing.Point(48, 416)
        Me.Label38.Name = "Label38"
        Me.Label38.Size = New System.Drawing.Size(96, 23)
        Me.Label38.TabIndex = 49
        Me.Label38.Text = "Erstellung bis"
        Me.Label38.Visible = False
        '
        'DateTimePicker10
        '
        Me.DateTimePicker10.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker10.Location = New System.Drawing.Point(160, 464)
        Me.DateTimePicker10.Name = "DateTimePicker10"
        Me.DateTimePicker10.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker10.TabIndex = 47
        Me.DateTimePicker10.TabStop = False
        Me.DateTimePicker10.Value = New Date(2004, 1, 14, 18, 49, 59, 312)
        Me.DateTimePicker10.Visible = False
        '
        'DateTimePicker11
        '
        Me.DateTimePicker11.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker11.Location = New System.Drawing.Point(160, 440)
        Me.DateTimePicker11.Name = "DateTimePicker11"
        Me.DateTimePicker11.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker11.TabIndex = 45
        Me.DateTimePicker11.TabStop = False
        Me.DateTimePicker11.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker11.Visible = False
        '
        'DateTimePicker12
        '
        Me.DateTimePicker12.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker12.Location = New System.Drawing.Point(160, 416)
        Me.DateTimePicker12.Name = "DateTimePicker12"
        Me.DateTimePicker12.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker12.TabIndex = 43
        Me.DateTimePicker12.TabStop = False
        Me.DateTimePicker12.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker12.Visible = False
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(344, 48)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(16, 16)
        Me.Button8.TabIndex = 74
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(344, 80)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(16, 16)
        Me.Button7.TabIndex = 75
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(360, 336)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(16, 16)
        Me.Button6.TabIndex = 76
        Me.Button6.Visible = False
        '
        'pnluvm
        '
        Me.pnluvm.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button29, Me.txtuvmauftragnr, Me.Label45, Me.GroupBox14})
        Me.pnluvm.Location = New System.Drawing.Point(224, 8)
        Me.pnluvm.Name = "pnluvm"
        Me.pnluvm.Size = New System.Drawing.Size(376, 504)
        Me.pnluvm.TabIndex = 9
        '
        'Button29
        '
        Me.Button29.Location = New System.Drawing.Point(256, 32)
        Me.Button29.Name = "Button29"
        Me.Button29.Size = New System.Drawing.Size(40, 24)
        Me.Button29.TabIndex = 2
        Me.Button29.Text = "&OK"
        '
        'txtuvmauftragnr
        '
        Me.txtuvmauftragnr.Location = New System.Drawing.Point(104, 32)
        Me.txtuvmauftragnr.Name = "txtuvmauftragnr"
        Me.txtuvmauftragnr.Size = New System.Drawing.Size(152, 20)
        Me.txtuvmauftragnr.TabIndex = 1
        Me.txtuvmauftragnr.Text = ""
        '
        'Label45
        '
        Me.Label45.Location = New System.Drawing.Point(16, 32)
        Me.Label45.Name = "Label45"
        Me.Label45.TabIndex = 0
        Me.Label45.Text = "Auftragnummer"
        '
        'GroupBox14
        '
        Me.GroupBox14.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox14.Name = "GroupBox14"
        Me.GroupBox14.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox14.TabIndex = 3
        Me.GroupBox14.TabStop = False
        Me.GroupBox14.Text = "Diverse Selektionskriterien"
        '
        'PnlDokumentart
        '
        Me.PnlDokumentart.Controls.AddRange(New System.Windows.Forms.Control() {Me.TVDokart})
        Me.PnlDokumentart.Location = New System.Drawing.Point(224, 8)
        Me.PnlDokumentart.Name = "PnlDokumentart"
        Me.PnlDokumentart.Size = New System.Drawing.Size(376, 504)
        Me.PnlDokumentart.TabIndex = 4
        Me.PnlDokumentart.Visible = False
        '
        'TVDokart
        '
        Me.TVDokart.ContextMenu = Me.ContextMenu1
        Me.TVDokart.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TVDokart.ImageIndex = -1
        Me.TVDokart.Name = "TVDokart"
        Me.TVDokart.SelectedImageIndex = -1
        Me.TVDokart.Size = New System.Drawing.Size(376, 504)
        Me.TVDokart.TabIndex = 0
        '
        'Panel3
        '
        Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBGrid1})
        Me.Panel3.Location = New System.Drawing.Point(224, 8)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(368, 496)
        Me.Panel3.TabIndex = 2
        Me.Panel3.Visible = False
        '
        'C1TrueDBGrid1
        '
        Me.C1TrueDBGrid1.AllowFilter = True
        Me.C1TrueDBGrid1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBGrid1.AllowSort = True
        Me.C1TrueDBGrid1.AlternatingRows = True
        Me.C1TrueDBGrid1.CaptionHeight = 17
        Me.C1TrueDBGrid1.CollapseColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid1.ContextMenu = Me.CTMenuVerantwortlicher
        Me.C1TrueDBGrid1.DataChanged = False
        Me.C1TrueDBGrid1.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.C1TrueDBGrid1.ExpandColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid1.FilterBar = True
        Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
        Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
        Me.C1TrueDBGrid1.PrintInfo.ShowOptionsDialog = False
        Me.C1TrueDBGrid1.RecordSelectorWidth = 17
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.C1TrueDBGrid1.RowDivider = GridLines1
        Me.C1TrueDBGrid1.RowHeight = 15
        Me.C1TrueDBGrid1.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBGrid1.ScrollTips = False
        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(368, 496)
        Me.C1TrueDBGrid1.TabIndex = 0
        Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
        "lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
        ":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
        ":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
        "}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
        " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
        "oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorW" & _
        "idth=""17"" DefRecSelWidth=""17"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1"">" & _
        "<ClientRect>0, 0, 364, 492</ClientRect><BorderSide>0</BorderSide><CaptionStyle p" & _
        "arent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRo" & _
        "wStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Sty" & _
        "le13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me" & _
        "=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle par" & _
        "ent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" />" & _
        "<OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSe" & _
        "lector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style par" & _
        "ent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles" & _
        "><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style par" & _
        "ent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent" & _
        "=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=" & _
        """Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=" & _
        """Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Head" & _
        "ing"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent" & _
        "=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</h" & _
        "orzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><Clien" & _
        "tArea>0, 0, 364, 492</ClientArea></Blob>"
        '
        'TreeView1
        '
        Me.TreeView1.ContextMenu = Me.ctmenu1
        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
        Me.TreeView1.FullRowSelect = True
        Me.TreeView1.ImageList = Me.ImageList2
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Dokument", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Daten"), New System.Windows.Forms.TreeNode("Dokumentart"), New System.Windows.Forms.TreeNode("Dokumentstatus"), New System.Windows.Forms.TreeNode("Partner")}), New System.Windows.Forms.TreeNode("Ersteller", 8, 8, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")}), New System.Windows.Forms.TreeNode("Mutierer", 9, 9, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")}), New System.Windows.Forms.TreeNode("Verantwortlich", 7, 7, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")})})
        Me.TreeView1.Size = New System.Drawing.Size(216, 518)
        Me.TreeView1.TabIndex = 0
        '
        'TVHostDok
        '
        Me.TVHostDok.ContextMenu = Me.ContextMenu1
        Me.TVHostDok.ImageIndex = -1
        Me.TVHostDok.Location = New System.Drawing.Point(224, 8)
        Me.TVHostDok.Name = "TVHostDok"
        Me.TVHostDok.SelectedImageIndex = -1
        Me.TVHostDok.Size = New System.Drawing.Size(376, 504)
        Me.TVHostDok.TabIndex = 6
        Me.TVHostDok.Visible = False
        '
        'Panel4
        '
        Me.Panel4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label19, Me.LBSelectHost, Me.Button11, Me.Label22, Me.lbselect, Me.LBSort, Me.Label21, Me.lbSortfields, Me.GroupBox12})
        Me.Panel4.Location = New System.Drawing.Point(224, 8)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(376, 504)
        Me.Panel4.TabIndex = 8
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(200, 32)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(100, 16)
        Me.Label19.TabIndex = 19
        Me.Label19.Text = "Sortierungsart"
        '
        'LBSelectHost
        '
        Me.LBSelectHost.ContextMenu = Me.ContextMenu2
        Me.LBSelectHost.Location = New System.Drawing.Point(40, 312)
        Me.LBSelectHost.Name = "LBSelectHost"
        Me.LBSelectHost.Size = New System.Drawing.Size(296, 134)
        Me.LBSelectHost.TabIndex = 18
        '
        'Button11
        '
        Me.Button11.Location = New System.Drawing.Point(152, 264)
        Me.Button11.Name = "Button11"
        Me.Button11.Size = New System.Drawing.Size(80, 24)
        Me.Button11.TabIndex = 17
        Me.Button11.Text = "Einfügen"
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(40, 296)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(112, 16)
        Me.Label22.TabIndex = 16
        Me.Label22.Text = "Sortierungs-Kriterien"
        '
        'lbselect
        '
        Me.lbselect.ContextMenu = Me.ContextMenu2
        Me.lbselect.Location = New System.Drawing.Point(40, 312)
        Me.lbselect.Name = "lbselect"
        Me.lbselect.Size = New System.Drawing.Size(296, 134)
        Me.lbselect.TabIndex = 15
        '
        'LBSort
        '
        Me.LBSort.Items.AddRange(New Object() {"Absteigend", "Aufsteigend"})
        Me.LBSort.Location = New System.Drawing.Point(200, 48)
        Me.LBSort.Name = "LBSort"
        Me.LBSort.Size = New System.Drawing.Size(136, 199)
        Me.LBSort.Sorted = True
        Me.LBSort.TabIndex = 14
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(40, 32)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(100, 16)
        Me.Label21.TabIndex = 13
        Me.Label21.Text = "Sortierkriterien"
        '
        'lbSortfields
        '
        Me.lbSortfields.Items.AddRange(New Object() {"Bemerkung", "Bezeichnung", "Dokument-ID", "Dokumentart", "Ersteller", "Erstellungsdatum", "Mutationsdatum", "Mutierer", "Status", "Termin", "Verantwortlicher", "Zuständiger"})
        Me.lbSortfields.Location = New System.Drawing.Point(40, 48)
        Me.lbSortfields.Name = "lbSortfields"
        Me.lbSortfields.Size = New System.Drawing.Size(136, 199)
        Me.lbSortfields.Sorted = True
        Me.lbSortfields.TabIndex = 12
        '
        'GroupBox12
        '
        Me.GroupBox12.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox12.Name = "GroupBox12"
        Me.GroupBox12.Size = New System.Drawing.Size(360, 448)
        Me.GroupBox12.TabIndex = 20
        Me.GroupBox12.TabStop = False
        Me.GroupBox12.Text = "Sortierung"
        '
        'PnlPartner
        '
        Me.PnlPartner.Controls.AddRange(New System.Windows.Forms.Control() {Me.PartnerList, Me.btnPartnersuche, Me.Label3, Me.TextBox3, Me.Label2, Me.TextBox2, Me.Label1, Me.TextBox1})
        Me.PnlPartner.Location = New System.Drawing.Point(224, 8)
        Me.PnlPartner.Name = "PnlPartner"
        Me.PnlPartner.Size = New System.Drawing.Size(376, 504)
        Me.PnlPartner.TabIndex = 3
        Me.PnlPartner.Visible = False
        '
        'PartnerList
        '
        Me.PartnerList.AllowFilter = True
        Me.PartnerList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.PartnerList.AllowSort = True
        Me.PartnerList.AllowUpdate = False
        Me.PartnerList.AllowUpdateOnBlur = False
        Me.PartnerList.AlternatingRows = True
        Me.PartnerList.CaptionHeight = 17
        Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.PartnerList.CollapseColor = System.Drawing.Color.Black
        Me.PartnerList.ContextMenu = Me.CTMenuErsteller
        Me.PartnerList.DataChanged = False
        Me.PartnerList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.PartnerList.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.PartnerList.ExpandColor = System.Drawing.Color.Black
        Me.PartnerList.FetchRowStyles = True
        Me.PartnerList.FilterBar = True
        Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
        Me.PartnerList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
        Me.PartnerList.Location = New System.Drawing.Point(0, 104)
        Me.PartnerList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.PartnerList.Name = "PartnerList"
        Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.PartnerList.PreviewInfo.ZoomFactor = 75
        Me.PartnerList.PrintInfo.ShowOptionsDialog = False
        Me.PartnerList.RecordSelectorWidth = 17
        GridLines2.Color = System.Drawing.Color.DarkGray
        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.PartnerList.RowDivider = GridLines2
        Me.PartnerList.RowHeight = 15
        Me.PartnerList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.PartnerList.ScrollTips = False
        Me.PartnerList.Size = New System.Drawing.Size(376, 400)
        Me.PartnerList.TabIndex = 17
        Me.PartnerList.Text = "C1TrueDBGrid1"
        Me.PartnerList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
        "lor:Highlight;}Style1{}OddRow{BackColor:Silver;}RecordSelector{AlignImage:Center" & _
        ";}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:Contro" & _
        "lText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style1" & _
        "3{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" Altern" & _
        "atingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHei" & _
        "ght=""17"" FetchRowStyles=""True"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" " & _
        "RecordSelectorWidth=""17"" DefRecSelWidth=""17"" VerticalScrollGroup=""1"" HorizontalS" & _
        "crollGroup=""1""><ClientRect>0, 0, 372, 396</ClientRect><BorderSide>0</BorderSide>" & _
        "<CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""St" & _
        "yle5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""Fil" & _
        "terBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle pa" & _
        "rent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLi" & _
        "ghtRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive""" & _
        " me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle p" & _
        "arent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style" & _
        "6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Spli" & _
        "ts><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Headin" & _
        "g"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" " & _
        "/><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /" & _
        "><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /" & _
        "><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Sty" & _
        "le parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" " & _
        "/><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><" & _
        "horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRec" & _
        "SelWidth><ClientArea>0, 0, 372, 396</ClientArea></Blob>"
        '
        'btnPartnersuche
        '
        Me.btnPartnersuche.Image = CType(resources.GetObject("btnPartnersuche.Image"), System.Drawing.Bitmap)
        Me.btnPartnersuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnPartnersuche.Location = New System.Drawing.Point(288, 32)
        Me.btnPartnersuche.Name = "btnPartnersuche"
        Me.btnPartnersuche.Size = New System.Drawing.Size(72, 40)
        Me.btnPartnersuche.TabIndex = 16
        Me.btnPartnersuche.Text = "&Suchen"
        Me.btnPartnersuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 64)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 23)
        Me.Label3.TabIndex = 15
        Me.Label3.Text = "Freitext"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(88, 64)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(160, 20)
        Me.TextBox3.TabIndex = 14
        Me.TextBox3.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 23)
        Me.Label2.TabIndex = 13
        Me.Label2.Text = "Kurzname"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(88, 40)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(160, 20)
        Me.TextBox2.TabIndex = 12
        Me.TextBox2.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 23)
        Me.Label1.TabIndex = 11
        Me.Label1.Text = "Partner-Nr."
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(88, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(160, 20)
        Me.TextBox1.TabIndex = 10
        Me.TextBox1.Text = ""
        '
        'TabPage4
        '
        Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox2, Me.GroupBox1, Me.GroupBox9, Me.GroupBox5})
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(605, 518)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Unterschriften / Hinweise / Darstellung"
        Me.TabPage4.Visible = False
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbteam})
        Me.GroupBox2.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox2.TabIndex = 10
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Team"
        '
        'cbteam
        '
        Me.cbteam.Location = New System.Drawing.Point(112, 21)
        Me.cbteam.Name = "cbteam"
        Me.cbteam.Size = New System.Drawing.Size(240, 21)
        Me.cbteam.TabIndex = 8
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button5, Me.colbtn6, Me.colbtn5, Me.colbtn4, Me.colbtn3, Me.colbtn2, Me.colbtn1})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(360, 72)
        Me.GroupBox1.TabIndex = 8
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Farbgebung der Dokumentliste"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(288, 19)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(64, 40)
        Me.Button5.TabIndex = 44
        Me.Button5.Text = "Standard herstellen"
        '
        'colbtn6
        '
        Me.colbtn6.Location = New System.Drawing.Point(96, 40)
        Me.colbtn6.Name = "colbtn6"
        Me.colbtn6.Size = New System.Drawing.Size(88, 20)
        Me.colbtn6.TabIndex = 43
        Me.colbtn6.Text = "Pendent"
        '
        'colbtn5
        '
        Me.colbtn5.Location = New System.Drawing.Point(184, 40)
        Me.colbtn5.Name = "colbtn5"
        Me.colbtn5.Size = New System.Drawing.Size(88, 20)
        Me.colbtn5.TabIndex = 42
        Me.colbtn5.Text = "Überfällig"
        '
        'colbtn4
        '
        Me.colbtn4.Location = New System.Drawing.Point(184, 16)
        Me.colbtn4.Name = "colbtn4"
        Me.colbtn4.Size = New System.Drawing.Size(88, 20)
        Me.colbtn4.TabIndex = 41
        Me.colbtn4.Text = "Terminiert"
        '
        'colbtn3
        '
        Me.colbtn3.Location = New System.Drawing.Point(8, 40)
        Me.colbtn3.Name = "colbtn3"
        Me.colbtn3.Size = New System.Drawing.Size(88, 20)
        Me.colbtn3.TabIndex = 40
        Me.colbtn3.Text = "In Bearbeitung"
        '
        'colbtn2
        '
        Me.colbtn2.Location = New System.Drawing.Point(96, 16)
        Me.colbtn2.Name = "colbtn2"
        Me.colbtn2.Size = New System.Drawing.Size(88, 20)
        Me.colbtn2.TabIndex = 39
        Me.colbtn2.Text = "Verantwortlich"
        '
        'colbtn1
        '
        Me.colbtn1.Location = New System.Drawing.Point(8, 16)
        Me.colbtn1.Name = "colbtn1"
        Me.colbtn1.Size = New System.Drawing.Size(88, 20)
        Me.colbtn1.TabIndex = 38
        Me.colbtn1.Text = "Standard"
        '
        'GroupBox9
        '
        Me.GroupBox9.Controls.AddRange(New System.Windows.Forms.Control() {Me.cb3_1, Me.cb5, Me.cb4, Me.cb3, Me.cb2, Me.cb1})
        Me.GroupBox9.Location = New System.Drawing.Point(376, 8)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(216, 232)
        Me.GroupBox9.TabIndex = 7
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Text = "Hinweismeldungen"
        '
        'cb3_1
        '
        Me.cb3_1.Location = New System.Drawing.Point(8, 120)
        Me.cb3_1.Name = "cb3_1"
        Me.cb3_1.Size = New System.Drawing.Size(192, 32)
        Me.cb3_1.TabIndex = 10
        Me.cb3_1.Text = "Bedingte Retournierung"
        '
        'cb5
        '
        Me.cb5.Location = New System.Drawing.Point(16, 176)
        Me.cb5.Name = "cb5"
        Me.cb5.Size = New System.Drawing.Size(144, 32)
        Me.cb5.TabIndex = 9
        Me.cb5.Text = "Meldung XY5 anzeigen"
        Me.cb5.Visible = False
        '
        'cb4
        '
        Me.cb4.Location = New System.Drawing.Point(16, 152)
        Me.cb4.Name = "cb4"
        Me.cb4.Size = New System.Drawing.Size(144, 32)
        Me.cb4.TabIndex = 8
        Me.cb4.Text = "Meldung XY4 anzeigen"
        Me.cb4.Visible = False
        '
        'cb3
        '
        Me.cb3.Location = New System.Drawing.Point(8, 88)
        Me.cb3.Name = "cb3"
        Me.cb3.Size = New System.Drawing.Size(192, 32)
        Me.cb3.TabIndex = 7
        Me.cb3.Text = "Einzeldokument"
        '
        'cb2
        '
        Me.cb2.Location = New System.Drawing.Point(8, 56)
        Me.cb2.Name = "cb2"
        Me.cb2.Size = New System.Drawing.Size(200, 32)
        Me.cb2.TabIndex = 6
        Me.cb2.Text = "Dokumentbearbeitung - Statuswechsel"
        '
        'cb1
        '
        Me.cb1.Location = New System.Drawing.Point(8, 24)
        Me.cb1.Name = "cb1"
        Me.cb1.Size = New System.Drawing.Size(200, 32)
        Me.cb1.TabIndex = 5
        Me.cb1.Text = "Partnererfassung"
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label31, Me.cbUnterschriftrechts, Me.Label30, Me.cbUnterschriftlinks})
        Me.GroupBox5.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(360, 88)
        Me.GroupBox5.TabIndex = 2
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Unterschriften"
        '
        'Label31
        '
        Me.Label31.Location = New System.Drawing.Point(24, 56)
        Me.Label31.Name = "Label31"
        Me.Label31.Size = New System.Drawing.Size(72, 23)
        Me.Label31.TabIndex = 8
        Me.Label31.Text = "Rechts"
        '
        'cbUnterschriftrechts
        '
        Me.cbUnterschriftrechts.Location = New System.Drawing.Point(112, 56)
        Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts"
        Me.cbUnterschriftrechts.Size = New System.Drawing.Size(240, 21)
        Me.cbUnterschriftrechts.TabIndex = 7
        '
        'Label30
        '
        Me.Label30.Location = New System.Drawing.Point(24, 24)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(72, 23)
        Me.Label30.TabIndex = 6
        Me.Label30.Text = "Links"
        '
        'cbUnterschriftlinks
        '
        Me.cbUnterschriftlinks.Location = New System.Drawing.Point(112, 24)
        Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks"
        Me.cbUnterschriftlinks.Size = New System.Drawing.Size(240, 21)
        Me.cbUnterschriftlinks.TabIndex = 5
        '
        'TabControl1
        '
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage4})
        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TabControl1.ItemSize = New System.Drawing.Size(112, 18)
        Me.TabControl1.Location = New System.Drawing.Point(179, 33)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(613, 544)
        Me.TabControl1.TabIndex = 16
        '
        'BtnHelp
        '
        Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Bitmap)
        Me.BtnHelp.Location = New System.Drawing.Point(768, 2)
        Me.BtnHelp.Name = "BtnHelp"
        Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
        Me.BtnHelp.TabIndex = 33
        '
        'frmProfil
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(792, 577)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnHelp, Me.TabControl1, Me.Splitter1, Me.Button4, Me.Panel2, Me.Panel1, Me.ToolBar1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.MainMenu1
        Me.Name = "frmProfil"
        Me.Text = "Profile verwalten"
        Me.Panel2.ResumeLayout(False)
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage1.ResumeLayout(False)
        Me.PnlDokumentDaten.ResumeLayout(False)
        Me.TabControl2.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.TabPage5.ResumeLayout(False)
        Me.pnlzv.ResumeLayout(False)
        Me.pnlhostdiv.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.pnluvm.ResumeLayout(False)
        Me.PnlDokumentart.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel4.ResumeLayout(False)
        Me.PnlPartner.ResumeLayout(False)
        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox9.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "Deklarationen"

    Dim oninit As Boolean = False
    Dim WithEvents Partnerdialog As New FrmPartnersuche()
    Dim Profil_Ungueltig As Boolean
    Dim savenode As TreeNode
    Dim lbentry(1) As Object
    Dim i As Integer
    Dim m_profilnr As Integer
    Dim changes As Boolean
    Dim expandzv As Boolean = False
    'Rel 3.7 / BUD
    'Dim expanduvm As Boolean = False
    Dim ifirst As Integer = 0

    Dim m_profile_geaendert As Boolean
    Property Profile_Geaendert() As Boolean
        Get
            Return m_profile_geaendert
        End Get
        Set(ByVal Value As Boolean)
            m_profile_geaendert = Value
        End Set
    End Property
    Property ProfilNr() As Integer
        Get
            Return m_profilnr
        End Get
        Set(ByVal Value As Integer)
            m_profilnr = Value
        End Set
    End Property
    Dim On_Load As Boolean
    Dim checkchanges As Boolean
    Dim Profname As String

    Dim NodeText As String
    Dim colconv As New ColorConverter()

    Dim WithEvents mcbunterschriftlinks As New MultiComboBox()
    Dim WithEvents mcbunterschriftrechts As New MultiComboBox()
    Dim WithEvents mcbTeam As New MultiComboBox()

    Dim li As ListViewItem
    Dim ActiveList As Integer
    Dim first As Boolean = True
    Dim tmb As DataTable
    Dim tnl As DataTable
    Dim tko As DataTable
    Dim tte As DataTable
    Dim tpe As DataTable
    Dim tst As DataTable
    Dim tda As DataTable
    Dim tdt As DataTable
    Dim tdh As DataTable
    Dim tku As DataTable
    Dim tdtzv As DataTable
    'Rel 3.7 / BUD
    'Dim tdtuvm As DataTable


    Dim mypartner As New edokadb.clsMyPartner()
    Dim partner As DataTable
    Dim dokumentart As New edokadb.clsMyDokumentart()
    Friend selectPoint As New System.Drawing.Point()
    Dim FirstNodeWithData As TreeNode
#End Region

#Region "Formularhandling"

    Private Sub frmProfil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On_Load = True

        'TabPage löschen aber nur das erste mal beim Laden des Formulars.
        If ifirst = 0 Then
            TabPagesClear()
            ifirst = ifirst + 1
        End If

        Me.TreeView2.Top = Me.TreeView1.Top
        Me.TreeView2.Left = Me.TreeView1.Left
        Me.TreeView2.Width = Me.TreeView1.Width
        Me.TreeView2.Height = Me.TreeView1.Height
        Me.TreeView2.Visible = False
        Me.Cursor = Cursors.WaitCursor
        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlConnection2.ConnectionString = Globals.sConnectionString

        Me.Profile.BeginUpdate()
        checkchanges = False
        changes = False
        Me.Profile.Nodes.Clear()
        Me.DataSet1.Clear()
        'Personendaten
        Dim tn, tn1 As TreeNode
        If first Then
            init_treeview1()
            tmb = Generic_Select(3)
            tnl = Generic_Select(4)
            tko = Generic_Select(5)
            tte = Generic_Select(6)
            tst = Generic_Select(2)
            tpe = Generic_Select(1)
            tdt = Generic_Select(7)
            tdh = Generic_Select(8)
            tku = Generic_Select(9)
            'Rel 3.7 / BUD
            'tdtuvm = Generic_Select(10)

            tdtzv = Generic_Select(11)

            mcbTeam = New MultiComboBox(Me.cbteam)
            Me.mcbTeam.DisplayColumnName = "Bezeichnung"
            Me.mcbTeam.ValueColumnName = "teamnr"
            Me.mcbTeam.Fill_Data(tte, True)
            Me.mcbTeam.Visible = True
            Me.mcbTeam.CheckNullValue = False

            mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks)
            Me.mcbunterschriftlinks.CheckNullValue = False
            Me.mcbunterschriftlinks.DisplayColumnName = "name"
            Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr"
            Me.mcbunterschriftlinks.Fill_Data(tpe, True)
            Me.mcbunterschriftlinks.Visible = True

            mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
            Me.mcbunterschriftrechts.CheckNullValue = False
            Me.mcbunterschriftrechts.DisplayColumnName = "name"
            Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
            Me.mcbunterschriftrechts.Fill_Data(tpe, True)
            Me.mcbunterschriftrechts.Visible = True
        End If

        Dim hdata As New edokadb.clsMyDokumentart()
        hdata.cpMainConnectionProvider = conn
        tda = hdata.SelectHierarchy_Parametrisierung_By_Root(1)
        hdata.Dispose()

        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlDataAdapter1.SelectCommand.Parameters("@mitarbeiternr").Value = Globals.MitarbeiterNr
        Me.SqlDataAdapter1.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
        Me.SqlDataAdapter1.Fill(Me.DataSet1)
        For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1
            tn = Me.Profile.Nodes.Add(Me.DataSet1.Tables(0).Rows(i).Item("bezeichnung"))
            tn.Tag = Me.DataSet1.Tables(0).Rows(i).Item("profilnr")
            If Me.DataSet1.Tables(0).Rows(i).Item("standard") Then
                tn.BackColor = System.Drawing.Color.LightBlue
                If Me.ProfilNr = 0 Then Me.ProfilNr = tn.Tag
            Else
                tn.BackColor = System.Drawing.Color.White
            End If
        Next
        first = False
        Load_Profil(Me.ProfilNr)
        checkchanges = False
        tn = Me.Profile.Nodes(0)
        Do Until tn Is Nothing
            If tn.Tag = Me.ProfilNr Then Me.Profile.SelectedNode = tn
            tn = tn.NextNode
        Loop
        On_Load = False
        first = False
        Me.TreeView1.ExpandAll()
        Profil_Colors()
        Me.LBSort.SelectedIndex = 0
        Me.lbSortfields.SelectedIndex = 0
        checkchanges = True
        Me.Profile.EndUpdate()
        Profname = ""
        Activate_Details()
        Me.Cursor = Cursors.Default
        'hutter 20041014
        'Me.TreeView1.BeginUpdate()
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        'Rel 3.7 / BUD
        'nodeswithdata(90)
        nodeswithdata(72)
        'Rel 3.7 / BUD
        'nodeswithdata(92)
        'hutter 20041014
        'Me.TreeView1.EndUpdate()
        set_tips()
        Me.showhidetv(False)
    End Sub

    Private Sub TabPagesClear()
        'Rel 3.7 / BUD -- UVM TabPage löschen
        Dim tbp0 As New TabPage()
        Dim tbp1 As New TabPage()
        Dim tbp2 As New TabPage()
        tbp0 = Me.TabControl2.TabPages(0)
        tbp1 = Me.TabControl2.TabPages(1)
        tbp2 = Me.TabControl2.TabPages(2)
        Me.TabControl2.TabPages.Clear()
        Me.TabControl2.TabPages.Add(tbp0)
        Me.TabControl2.TabPages.Add(tbp1)
    End Sub

    Private Sub showhidetv(ByVal showit As Boolean)
        Me.TreeView2.Top = Me.TreeView1.Top
        Me.TreeView2.Left = Me.TreeView1.Left
        Me.TreeView2.Height = Me.TreeView1.Height
        Me.TreeView2.Width = Me.TreeView1.Width
        If showit Then
            Me.TreeView2.Visible = True
            Me.TreeView1.Visible = False
        Else
            Me.TreeView2.Visible = False
            Me.TreeView1.Visible = True
            Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
        End If
    End Sub

    Private Sub Activate_Details()
        Me.TreeView1.SelectedNode = Nothing
        If Me.FirstNodeWithData Is Nothing Then
            DivFnkt.Searchnode1(Me.TreeView1, 41, 99)
            If DivFnkt.found Then
                'If colconv.ConvertToString(DivFnkt.FoundNode.ForeColor) = colconv.ConvertToString(System.Drawing.Color.Blue) Then
                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                'Me.PnlDokumentart.Visible = True
                'End If
            End If
        Else
            Me.TreeView1.SelectedNode = Me.FirstNodeWithData
        End If

    End Sub

    Private Function init_treeview1()
        Me.TreeView1.Nodes.Clear()
        Dim t0, tn, tn1 As TreeNode
        'hutter 20041014
        'TreeView1.BeginUpdate()
        Me.TreeView1.Nodes.Clear()
        t0 = Me.TreeView1.Nodes.Add("Partner")
        t0.ImageIndex = 10
        t0.SelectedImageIndex = 10
        t0.Tag = 999
        tn1 = t0.Nodes.Add("Partner")
        tn1.Tag = 41
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = t0.Nodes.Add("Kundenbetreuer")
        tn1.Tag = 51
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4


        t0 = Me.TreeView1.Nodes.Add("EDOKA-Dokumente")
        t0.ImageIndex = 6
        t0.SelectedImageIndex = 6
        t0.Tag = 998
        tn = t0.Nodes.Add("Verantwortlich")
        tn.ImageIndex = 7
        tn.SelectedImageIndex = 7
        tn.Tag = 1
        tn1 = tn.Nodes.Add("Marktbereich")
        tn1.Tag = 11
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Niederlassung")
        tn1.Tag = 12
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Kostenstelle")
        tn1.Tag = 13
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Team")
        tn1.Tag = 14
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Mitarbeiter")
        tn1.Tag = 15
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        'tn = Me.TreeView1.Nodes.Add("Ersteller")
        tn = t0.Nodes.Add("Ersteller")
        tn.ImageIndex = 8
        tn.SelectedImageIndex = 8
        tn.Tag = 2
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Marktbereich")
        tn1.Tag = 21
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Niederlassung")
        tn1.Tag = 22
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Kostenstelle")
        tn1.Tag = 23
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Team")
        tn1.Tag = 24
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Mitarbeiter")
        tn1.Tag = 25
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn = t0.Nodes.Add("Mutierer")
        'tn = Me.TreeView1.Nodes.Add("Mutierer")
        tn.ImageIndex = 9
        tn.SelectedImageIndex = 9
        tn.Tag = 3
        tn1 = tn.Nodes.Add("Marktbereich")
        tn1.SelectedImageIndex = 4
        tn1.Tag = 31
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Niederlassung")
        tn1.SelectedImageIndex = 4
        tn1.Tag = 32
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Kostenstelle")
        tn1.Tag = 33
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Team")
        tn1.Tag = 34
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Mitarbeiter")
        tn1.Tag = 35
        tn1.ImageIndex = 4

        'tn = t0.Nodes.Add("Diverses")
        '        tn = Me.TreeView1.Nodes.Add("Diverses")
        'tn.ImageIndex = 6
        'tn.SelectedImageIndex = 6
        'tn.Tag = 4

        'tn1 = tn.Nodes.Add("Partner")
        'tn1.Tag = 41
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Dokumentart")
        tn1.Tag = 42
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Dokumenttyp")
        tn1.Tag = 43
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Dokumentstatus")
        tn1.Tag = 44
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Datum-Selektion")
        tn1.Tag = 45
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("inkl. gelöschte/aufgehobene")
        tn1.Tag = 62
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Sortierung")
        tn1.Tag = 60
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn = t0.Nodes.Add("ZV-Belege")
        tn.Tag = 70
        tn.ImageIndex = 12
        tn.SelectedImageIndex = 12

        tn1 = tn.Nodes.Add("Dokumenttyp")
        tn1.Tag = 71
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Datum-Selektion")
        tn1.Tag = 72
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Auftrags-Nr.")
        tn1.Tag = 73
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Auftraggeber")
        tn1.Tag = 74
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Betrag")
        tn1.Tag = 75
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Clearing-Nr.")
        tn1.Tag = 76
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("ISO-Währung")
        tn1.Tag = 77
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Konto Begünstigter")
        tn1.Tag = 78
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("PC-Nr")
        tn1.Tag = 79
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Posten-Nr.")
        tn1.Tag = 80
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Referenz-Nr.")
        tn1.Tag = 81
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("SWIFT-Adresse")
        tn1.Tag = 82
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Verarbeitungsart")
        tn1.Tag = 83
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Zahlungsart")
        tn1.Tag = 84
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn.Collapse()

        'Rel 3.7 / BUD
        'tn = t0.Nodes.Add("Basis-Verträge")
        'tn.Tag = 90
        'tn.ImageIndex = 13
        'tn.SelectedImageIndex = 13

        'tn1 = tn.Nodes.Add("Dokumenttyp")
        'tn1.Tag = 91
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4

        'tn1 = tn.Nodes.Add("Datum-Selektion")
        'tn1.Tag = 92
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4

        'tn1 = tn.Nodes.Add("Auftrags-Nr.")
        'tn1.Tag = 93
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4


        'tn = t0.Nodes.Add("HOST-Dokumente")
        tn = Me.TreeView1.Nodes.Add("Host-Dokumente")
        tn.ImageIndex = 11
        tn.SelectedImageIndex = 11
        tn.Tag = 5
        '        tn1 = tn.Nodes.Add("Partner")
        '       tn1.Tag = 51
        '      tn1.ImageIndex = 4
        '     tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Dokumentart")
        tn1.Tag = 52
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Dokumenttyp")
        tn1.Tag = 53
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        'tn1 = tn.Nodes.Add("Dokumentstatus")
        'tn1.Tag = 54
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("VV")
        tn1.Tag = 54
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Valorennr")
        tn1.Tag = 59
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("ISIN-Nr")
        tn1.Tag = 58
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Datum-Selektion")
        tn1.Tag = 55
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Sortierung")
        tn1.Tag = 61
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4


        Me.TVDokart.Nodes.Clear()
        dokumentart.LoadTreeMenu(Me.TVDokart, 2)
        Me.TVDokart.CollapseAll()

        Me.TVHostDok.Nodes.Clear()
        dokumentart.LoadTreeMenu(Me.TVHostDok, 3)
        Me.TVHostDok.ExpandAll()
        'hutter 20041014
        'Me.TreeView1.EndUpdate()
    End Function

    Private Function Profil_Colors()
        Dim tn As TreeNode
        Me.Profile.BeginUpdate()
        tn = Me.Profile.Nodes(0)
        Do Until tn Is Nothing
            If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then
                tn.BackColor = System.Drawing.Color.LightBlue
            Else
                tn.BackColor = System.Drawing.Color.White
            End If
            tn = tn.NextNode
        Loop
        Try
            Me.Profile.SelectedNode.BackColor = System.Drawing.Color.Silver
            Me.Profile.EndUpdate()
        Catch
        End Try
    End Function

#End Region

#Region "MenuHandling"

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Try
            If Me.TreeView1.SelectedNode.Tag = 42 Then
                Me.TVDokart.BeginUpdate()
                Me.TVDokart.SelectedNode.ExpandAll()
                Me.TVDokart.EndUpdate()
            Else
                Me.TVHostDok.BeginUpdate()
                Me.TVHostDok.SelectedNode.ExpandAll()
                Me.TVHostDok.EndUpdate()
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        If Me.TreeView1.SelectedNode.Tag = 42 Then
            Me.TVDokart.SelectedNode.Collapse()
        Else
            Me.TVHostDok.SelectedNode.Collapse()
        End If
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Me.MenuItem5_Click(sender, e)
            Case 1

            Case 2
                Me.showhidetv(True)
                Me.TreeView1.BeginUpdate()
                Me.Profile.BeginUpdate()
                Me.On_Load = True
                Me.oninit = True
                Save_Profile()
                Me.Profile.EndUpdate()
                If Me.Profil_Ungueltig = True Then MyMsg.show_standardmessage(104, MsgBoxStyle.Critical)
                Me.On_Load = False
                Me.oninit = False
                Me.TreeView1.EndUpdate()
                Me.TreeView2.Visible = False
                Me.showhidetv(False)
            Case 3
                Me.TreeView1.BeginUpdate()
                Me.showhidetv(True)
                oninit = True
                init_profile()
                Me.init_datumzvuvm()
                oninit = False
                Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
                Me.TreeView1.EndUpdate()
                Me.showhidetv(False)
            Case Else
        End Select
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Try
            Dim tn As TreeNode
            Dim p As New edokadb.clsProfil()
            p.cpMainConnectionProvider = conn
            Me.Profile.BeginUpdate()
            tn = Me.Profile.Nodes(0)
            Do Until tn Is Nothing
                If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then
                    conn.OpenConnection()
                    p.iProfilnr = New SqlInt32(CType(tn.Tag, Int32))
                    p.SelectOne()
                    p.bStandard = New SqlBoolean(CType(False, Boolean))
                    p.Update()
                    conn.CloseConnection(True)
                End If
                tn.BackColor = System.Drawing.Color.White
                tn = tn.NextNode
            Loop
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32))
            p.SelectOne()
            p.bStandard = New SqlBoolean(CType(True, Boolean))
            p.Update()
            conn.CloseConnection(True)
            p.Dispose()
            Me.Profile.SelectedNode.BackColor = System.Drawing.Color.LightBlue
            Me.Profile.EndUpdate()
        Catch
        End Try
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Try
            Dim a As String
            a = InputBox(MyTxt.gettext(501))
            If a <> "" Then
                Me.showhidetv(True)
                Me.Profile_Geaendert = True
                Me.Profile.SelectedNode.Text = a
                Me.Profname = a
                If checkchanges Then changes = True
                Me.showhidetv(False)
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        If MyMsg.Show_MessageYesNo(16) = MsgBoxResult.Yes Then
            Dim p As New edokadb.clsProfil()
            p.cpMainConnectionProvider = conn
            Me.Profile_Geaendert = True
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32))
            p.SelectOne()
            p.bAktiv = New SqlBoolean(CType(False, Boolean))
            p.Update()
            p.Dispose()
            conn.CloseConnection(True)
            Me.ProfilNr = 0
            Me.showhidetv(True)
            frmProfil_Load(sender, e)
            Me.showhidetv(False)
        End If
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Me.Close()
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        check_changes()
        Dim a As String
        a = InputBox(MyTxt.gettext(501))
        If a <> "" Then
            Me.Profile_Geaendert = True
            Dim p As New edokadb.clsProfil()
            Dim dbkey As New edokadb.clsMyKey_Tabelle()
            Dim key As Int32
            dbkey.cpMainConnectionProvider = conn
            p.cpMainConnectionProvider = conn
            key = dbkey.get_dbkey("profil")
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(0, Int32))
            p.SelectOne()
            p.bAktiv = New SqlBoolean(CType(True, Boolean))
            p.sBezeichnung = New SqlString(CType(a, String))
            p.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            p.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
            p.iProfilnr = New SqlInt32(CType(key, Int32))
            p.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            p.sVma = New SqlString(CType(Globals.MitarbeiterNr, String))

            p.Insert()
            conn.CloseConnection(True)
            p.Dispose()
            dbkey.Dispose()
            Me.ProfilNr = key
            Me.showhidetv(True)
            Me.frmProfil_Load(sender, e)
            Me.init_datumzvuvm()
            Me.showhidetv(False)
        End If
    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim a As String
        a = InputBox(MyTxt.gettext(501))
        If a <> "" Then
            Me.Profile_Geaendert = True
            Dim p As New edokadb.clsProfil()
            Dim dbkey As New edokadb.clsMyKey_Tabelle()
            Dim key As Int32
            dbkey.cpMainConnectionProvider = conn
            p.cpMainConnectionProvider = conn
            key = dbkey.get_dbkey("profil")
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
            p.SelectOne()
            p.sBezeichnung = New SqlString(CType(a, String))
            p.iProfilnr = New SqlInt32(CType(key, Int32))
            p.Insert()
            conn.CloseConnection(True)
            p.Dispose()
            dbkey.Dispose()
            Me.ProfilNr = key
            Me.showhidetv(True)
            Me.frmProfil_Load(sender, e)
            Me.showhidetv(False)
        End If
    End Sub

    Private Sub MnuSelectDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSelectDokumentart.Click
        If Me.TreeView1.SelectedNode.Tag = 42 Then
            Me.TVDokart.SelectedNode.ImageIndex = 1
            Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Red
        Else
            Me.TVHostDok.SelectedNode.ImageIndex = 1
            Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Red
        End If
        changes = True
    End Sub

    Private Sub MnuDeleteDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteDokumentart.Click
        If Me.TreeView1.SelectedNode.Tag = 42 Then
            Me.TVDokart.SelectedNode.ImageIndex = 2
            Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Black
        Else
            Me.TVHostDok.SelectedNode.ImageIndex = 2
            Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Black
        End If
        changes = True
    End Sub

    Private Sub MnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDel.Click
        Try
            Dim tn As TreeNode
            tn = TreeView1.SelectedNode
            tn.Remove()
            changes = True
        Catch
        End Try
    End Sub

    Private Sub CTmenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenu1.Popup
        Try
            Dim tn As TreeNode
            tn = Me.TreeView1.SelectedNode
            Try
                Dim I As Integer
                I = tn.Parent.Tag
            Catch
                Me.MnuDel.Enabled = False
                Me.MenuItem14.Enabled = False
                Exit Sub
            End Try

            Me.MnuDel.Enabled = False
            Me.MenuItem14.Enabled = False
            Select Case tn.Parent.Tag
                Case 11, 12, 13, 14, 15, 21, 22, 23, 24, 25, 31, 32, 33, 34, 35, 41, 42, 43, 44, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 91, 92, 93, 51, 52, 53, 54, 58, 59
                    Me.MnuDel.Enabled = True
                Case 999, 1, 2, 3, 70, 90, 5, 90, 30, 998
                    If tn.Tag <> 42 And tn.Tag <> 45 And tn.Tag <> 62 And tn.Tag <> 60 And tn.Tag <> 72 And tn.Tag <> 92 And tn.Tag <> 52 And tn.Tag <> 55 And tn.Tag <> 61 Then

                        Me.MenuItem14.Enabled = True
                    End If
            End Select
        Catch
        End Try
    End Sub

#End Region

#Region "Datenhandling"

    Private Sub mcb_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbunterschriftlinks.SelectedValueChanged, mcbunterschriftrechts.SelectedValueChanged, mcbTeam.SelectedValueChanged, cb5.CheckedChanged, cb4.CheckedChanged, cb2.CheckedChanged, cb1.CheckedChanged, cb3.CheckedChanged, cb3_1.CheckedChanged
        If checkchanges Then
            changes = True
        End If
    End Sub

    Private Function Generic_Select(ByVal typ As Integer) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Select Case typ
            Case 1
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter"
            Case 2
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Status"
            Case 3
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Marktbereich"
            Case 4
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Niederlassung"
            Case 5
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Kostenstelle"
            Case 6
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Team"
            Case 7
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp"
            Case 8
                scmCmdToExecute.CommandText = "dbo.SP_Profil_DokumenttypHost"
            Case 9
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter_kube"
            Case 10
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp_uvm"
            Case 11
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp_ZV"
            Case Else
        End Select
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            Select Case typ
                Case Else
            End Select
            If typ = 1 Then
            End If
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

#End Region

#Region "Load_Save"

    Private Sub Set_Values(ByVal data As String, ByVal ds As DataTable, ByVal node As Integer)
        If data = "" Then Exit Sub
        Dim splitter
        Dim i As Integer
        Dim s As String
        Dim tn As TreeNode
        Dim dv As New DataTable()
        Dim i1 As Integer
        Dim v As Double
        Select Case node
            Case 11, 21, 31
                dv = Me.tmb
            Case 12, 22, 32
                dv = Me.tnl
            Case 13, 23, 33
                dv = Me.tko
            Case 14, 24, 34
                dv = Me.tte
            Case 15, 25, 35
                dv = Me.tpe
            Case 51
                dv = Me.tku
            Case 43
                dv = Me.tdt
            Case 53
                dv = Me.tdh
            Case 44
                dv = Me.tst
            Case 71
                dv = Me.tdtzv
                'Rel 3.7 / BUD
                'Case 91
                '    dv = Me.tdtuvm
            Case Else
        End Select
        s = data
        splitter = Microsoft.VisualBasic.Split(s, ";")
        i = 0
        Try
            Do Until splitter(i) Is Nothing
                Select Case node
                    Case 41
                        Dim p As New edokadb.clsPartner()
                        Try
                            DivFnkt.Searchnode1(Me.TreeView1, node, 0)
                            If DivFnkt.found Then
                                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                                tn = Me.TreeView1.SelectedNode
                                p.cpMainConnectionProvider = conn
                                p.iNRPAR00 = New SqlInt32(CType(splitter(i), Int32))
                                p.SelectOne()
                                tn = tn.Nodes.Add(splitter(i) + " - " + p.sBKPAR00.Value)
                                tn.Tag = splitter(i)
                                Me.FirstNodeWithData = DivFnkt.FoundNode
                                tn.ImageIndex = 4
                                tn.SelectedImageIndex = 4
                                tn.ForeColor = System.Drawing.Color.Red
                            End If
                        Catch ex As Exception
                        Finally
                            p.Dispose()
                            'i = i + 1
                        End Try
                    Case 42, 52
                        DivFnkt.Searchnode(Me.TVDokart, splitter(i), 0)
                        If DivFnkt.found Then
                            DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
                            DivFnkt.FoundNode.ImageIndex = 1
                            If Not DivFnkt.FoundNode.Parent.IsExpanded Then DivFnkt.FoundNode.Parent.ExpandAll()
                        End If
                    Case 54, 58, 59, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 92, 93, 94
                        Try
                            DivFnkt.Searchnode1(Me.TreeView1, node, 0)
                            If DivFnkt.found And splitter(i) <> "" Then
                                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                                tn = Me.TreeView1.SelectedNode
                                tn = tn.Nodes.Add(splitter(i))
                                tn.Tag = splitter(i)
                                If Me.FirstNodeWithData Is Nothing Then
                                    Me.FirstNodeWithData = DivFnkt.FoundNode
                                End If
                                tn.ImageIndex = 4
                                tn.SelectedImageIndex = 4
                                tn.ForeColor = System.Drawing.Color.Red
                            End If
                        Catch
                        End Try
                    Case Else
                        For i1 = 0 To dv.Rows.Count - 1
                            v = Val(splitter(i))
                            If dv.Rows(i1).Item(0) = splitter(i) Then
                                DivFnkt.Searchnode1(Me.TreeView1, node, 99)
                                If DivFnkt.found Then
                                    If Me.FirstNodeWithData Is Nothing Then
                                        Me.FirstNodeWithData = DivFnkt.FoundNode
                                    End If
                                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                                    tn = Me.TreeView1.SelectedNode
                                    tn = tn.Nodes.Add(dv.Rows(i1).Item(1))
                                    tn.Tag = dv.Rows(i1).Item(0)
                                    tn.ImageIndex = 4
                                    tn.SelectedImageIndex = 4
                                    If dv.Rows(i1).Item(2) = False Then
                                        tn.ForeColor = System.Drawing.Color.Gray
                                    Else
                                        tn.ForeColor = System.Drawing.Color.Red
                                    End If
                                End If

                            End If
                        Next
                End Select
                i = i + 1
            Loop
        Catch ex As Exception
            '            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Load_Profil(ByVal profilnr As Long)
        Me.FirstNodeWithData = Nothing
        checkchanges = False
        'hutter 20041014
        'Me.TreeView1.BeginUpdate()
        Me.TVDokart.BeginUpdate()
        Dim p As New edokadb.clsProfil()
        Dim ma As New edokadb.clsMitarbeiter()
        Dim s As String
        Dim splitter
        Dim i As Integer
        p.cpMainConnectionProvider = conn
        conn.OpenConnection()
        p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
        p.SelectOne()
        init_treeview1()

        'Selektion
        Try
            Set_Values(p.sDpartner.Value, Me.tpe, 41)
            Set_Values(p.sHostpartner.Value, Me.tku, 51)
            Set_Values(p.sVmb.Value, Me.tmb, 11)
            Set_Values(p.sVnl.Value, Me.tnl, 12)
            Set_Values(p.sVkost.Value, Me.tko, 13)
            Set_Values(p.sVteam.Value, Me.tte, 14)
            Set_Values(p.sVma.Value, Me.tpe, 15)

            Set_Values(p.sEmb.Value, Me.tmb, 21)
            Set_Values(p.sEnl.Value, Me.tnl, 22)
            Set_Values(p.sEkost.Value, Me.tko, 23)
            Set_Values(p.sEteam.Value, Me.tte, 24)
            Set_Values(p.sEma.Value, Me.tpe, 25)

            Set_Values(p.sMmb.Value, Me.tmb, 31)
            Set_Values(p.sMnl.Value, Me.tnl, 32)
            Set_Values(p.sMkost.Value, Me.tko, 33)
            Set_Values(p.sMteam.Value, Me.tte, 34)
            Set_Values(p.sMma.Value, Me.tpe, 35)
            Set_Values(p.sDdokstatus.Value, Me.tst, 44)
            Set_Values(p.sDoktyp.Value, Me.tdt, 43)
            Set_Values(p.sDdokart.Value, Me.tst, 42)
            Set_Values(p.sHostdatum3.Value, Me.tpe, 58)
            Set_Values(p.sHosttag3.Value, Me.tpe, 59)
            Set_Values(p.sHosttag1.Value, Me.tpe, 54)

            Set_Values(p.sHostdokart.Value, Me.tpe, 52)
            Set_Values(p.sHostdoktyp.Value, Me.tdh, 53)

            'Set_Values(p.sHostdoktyp.Value, Me.tdh, 53)
            Set_Values(p.sZvauftraggeber.Value, Me.tdh, 74)
            Set_Values(p.sZvauftragnr.Value, Me.tdh, 73)
            Set_Values(p.sZvbetrag.Value, Me.tdh, 75)
            Set_Values(p.sZvclearingnr.Value, Me.tdh, 76)
            Set_Values(p.sZviso.Value, Me.tdh, 77)
            Set_Values(p.sZvkontobeg.Value, Me.tdh, 78)
            Set_Values(p.sZvpcnr.Value, Me.tdh, 79)
            Set_Values(p.sZvposten.Value, Me.tdh, 80)
            Set_Values(p.sZvreferenznr.Value, Me.tdh, 81)
            Set_Values(p.sZvswift.Value, Me.tdh, 82)
            Set_Values(p.sZvverarbeitungsart.Value, Me.tdh, 83)
            Set_Values(p.sZvzahlungsart.Value, Me.tdh, 84)
            Set_Values(p.sZvdokumenttyp.Value, Me.tdtzv, 71)

            'Rel 3.7 / BUD
            'Set_Values(p.sUvmauftragnr.Value, Me.tdh, 93)
            'Set_Values(p.sUvmdoktyp.Value, Me.tdtuvm, 91)

            DivFnkt.Searchnode1(Me.TreeView1, 51, 0)
            If DivFnkt.found Then
                If p.sHostpartner.Value <> "" Then
                    '                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If


            DivFnkt.Searchnode1(Me.TreeView1, 42, 0)
            If DivFnkt.found Then
                If p.sDdokart.Value <> "" Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If
            DivFnkt.Searchnode1(Me.TreeView1, 52, 0)
            If DivFnkt.found Then
                If p.sHostdokart.Value <> "" Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If
            DivFnkt.Searchnode1(Me.TreeView1, 58, 0)
            If DivFnkt.found Then
                If p.sHosttag3.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            DivFnkt.Searchnode1(Me.TreeView1, 59, 0)
            If DivFnkt.found Then
                If p.sHostdatum3.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            DivFnkt.Searchnode1(Me.TreeView1, 54, 0)
            If DivFnkt.found Then
                If p.sHosttag1.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            'Unterschriften/Hinweise

            Me.mcbunterschriftlinks.SelectedValue = p.iUnterschriftlinks.Value
            Me.mcbunterschriftrechts.SelectedValue = p.iUnterschriftrechts.Value
            Me.mcbTeam.SelectedValue = p.iTeam.Value
            If p.iHw1.IsNull Then Me.cb1.Checked = False Else Me.cb1.Checked = p.iHw1.Value
            If p.iHw2.IsNull Then Me.cb2.Checked = False Else Me.cb2.Checked = p.iHw2.Value
            If p.iHw3.IsNull Then Me.cb3.Checked = False Else Me.cb3.Checked = p.iHw3.Value
            If p.iHw4.IsNull Then Me.cb4.Checked = False Else Me.cb4.Checked = p.iHw4.Value
            If p.iHw5.IsNull Then Me.cb5.Checked = False Else Me.cb5.Checked = p.iHw5.Value
            If p.iHw6.IsNull Then Me.cb3_1.Checked = False Else Me.cb3_1.Checked = p.iHw6.Value


            'Darstellung/Sortierung
            Try
                Me.colbtn1.BackColor = colconv.ConvertFromString(p.sColor1.Value)
                Me.colbtn2.BackColor = colconv.ConvertFromString(p.sColor2.Value)
                Me.colbtn3.BackColor = colconv.ConvertFromString(p.sColor3.Value)
                Me.colbtn4.BackColor = colconv.ConvertFromString(p.sColor4.Value)
                Me.colbtn5.BackColor = colconv.ConvertFromString(p.sColor5.Value)
                Me.colbtn6.BackColor = colconv.ConvertFromString(p.sColor6.Value)
            Catch
            End Try

            Me.lbselect.Items.Clear()
            s = p.sSort.Value
            Try
                splitter = Microsoft.VisualBasic.Split(s, ";")
                i = 0
                Do Until splitter(i) Is Nothing
                    If splitter(i) <> "" Then
                        Me.lbselect.Items.Add(splitter(i))
                    End If
                    i = i + 1
                Loop
            Catch
            End Try

            Me.LBSelectHost.Items.Clear()
            s = p.sHosttag2.Value
            Try
                splitter = Microsoft.VisualBasic.Split(s, ";")
                i = 0
                Do Until splitter(i) Is Nothing
                    If splitter(i) <> "" Then
                        Me.LBSelectHost.Items.Add(splitter(i))
                    End If
                    i = i + 1
                Loop
            Catch
            End Try

            Me.txtdatum1.Text = Convert_Seldate_von(p.sDatum1.Value)
            If p.sDatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum1.Value, 2) = "(h" Then Me.cbrollend1.Checked = True
            Me.txtdatum2.Text = Convert_Seldate_bis(p.sDatum2.Value)
            If p.sDatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum2.Value, 2) = "(h" Then Me.cbrollend2.Checked = True
            Me.txtdatum3.Text = Convert_Seldate_von(p.sDatum3.Value)
            If p.sDatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum3.Value, 2) = "(h" Then Me.cbrollend3.Checked = True
            Me.txtdatum4.Text = Convert_Seldate_bis(p.sDatum4.Value)
            If p.sDatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum4.Value, 2) = "(h" Then Me.cbrollend4.Checked = True
            Me.txtdatum5.Text = Convert_Seldate_von(p.sDatum5.Value)
            If p.sDatum5.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum5.Value, 2) = "(h" Then Me.cbrollend5.Checked = True
            Me.txtdatum6.Text = Convert_Seldate_bis(p.sDatum6.Value)
            If p.sDatum6.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum6.Value, 2) = "(h" Then Me.cbrollend6.Checked = True

            Me.HostDatum1.Text = Convert_Seldate_von(p.sHostdatum1.Value)
            If p.sHostdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sHostdatum1.Value, 2) = "(h" Then Me.cbrollend8.Checked = True
            Me.HostDatum2.Text = Convert_Seldate_bis(p.sHostdatum2.Value)
            If p.sHostdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sHostdatum2.Value, 2) = "(h" Then Me.cbrollend9.Checked = True

            'Rel 3.7 / BUD
            'Me.txtdatum1uvm.Text = Convert_Seldate_von(p.sUvmdatum1.Value)
            'If p.sUvmdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum1.Value, 2) = "(h" Then Me.cbuvmrollend1.Checked = True
            'Me.txtdatum2uvm.Text = Convert_Seldate_von(p.sUvmdatum2.Value)
            'If p.sUvmdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum2.Value, 2) = "(h" Then Me.cbuvmrollend2.Checked = True
            'Me.txtdatum3uvm.Text = Convert_Seldate_von(p.sUvmdatum3.Value)
            'If p.sUvmdatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum3.Value, 2) = "(h" Then Me.cbuvmrollend3.Checked = True
            'Me.txtdatum4uvm.Text = Convert_Seldate_von(p.sUvmdatum4.Value)
            'If p.sUvmdatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum4.Value, 2) = "(h" Then Me.cbuvmrollend4.Checked = True

            Me.txtdatum1zv.Text = Convert_Seldate_von(p.sZvdatum1.Value)
            If p.sZvdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum1.Value, 2) = "(h" Then Me.cbzvrollend1.Checked = True
            Me.txtdatum2zv.Text = Convert_Seldate_von(p.sZvdatum2.Value)
            If p.sZvdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum2.Value, 2) = "(h" Then Me.cbzvrollend2.Checked = True
            Me.txtdatum3zv.Text = Convert_Seldate_von(p.sZvdatum3.Value)
            If p.sZvdatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum3.Value, 2) = "(h" Then Me.cbzvrollend3.Checked = True
            Me.txtdatum4zv.Text = Convert_Seldate_von(p.sZvdatum4.Value)
            If p.sZvdatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum4.Value, 2) = "(h" Then Me.cbzvrollend4.Checked = True

            Me.hostinklmavip.Checked = p.bInklhostmavip.Value = True

            Dim div As Boolean = False
            If p.sDatum1.Value <> "(heute)-999999" Then div = True
            If p.sDatum2.Value <> "(heute)" And p.sDatum2.Value <> "(heute)-0" Then div = True
            If p.sDatum3.Value <> "(heute)-999999" Then div = True
            If p.sDatum4.Value <> "(heute)" And p.sDatum4.Value <> "(heute)-0" Then div = True
            If p.sDatum5.Value <> "(heute)-999999" Then div = True
            If p.sDatum6.Value <> "(heute)" And p.sDatum6.Value <> "(heute)-0" Then div = True
            If div Then
                DivFnkt.Searchnode(Me.TreeView1, 45, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            div = False
            If p.sHostdatum1.Value <> "(heute)-999999" Then div = True
            If p.sHostdatum2.Value <> "(heute)" And p.sHostdatum2.Value <> "(heute)-0" Then div = True


            If div Then
                DivFnkt.Searchnode(Me.TreeView1, 55, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            If p.sSort.Value <> "" Then
                DivFnkt.Searchnode(Me.TreeView1, 60, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            If p.sHosttag2.Value <> "" Then
                DivFnkt.Searchnode(Me.TreeView1, 61, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            Dim div1 As Boolean
            'Rel 3.7 / BUD
            'Me.expanduvm = False
            Me.expandzv = False
            div1 = False
            'If p.sUvmdatum1.Value <> "(heute)-999999" Then div1 = True
            'If p.sUvmdatum2.Value <> "(heute)" And p.sUvmdatum2.Value <> "(heute)-0" Then div1 = True
            'If p.sUvmdatum3.Value <> "(heute)-999999" Then div1 = True
            'If p.sUvmdatum4.Value <> "(heute)" And p.sUvmdatum4.Value <> "(heute)-0" Then div1 = True
            If div1 Then
                'Rel 3.7 / BUD
                'DivFnkt.Searchnode(Me.TreeView1, 92, 0)
                'If DivFnkt.found Then
                '    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                '    DivFnkt.FoundNode.ImageIndex = 4
                '    DivFnkt.FoundNode.Parent.Expand()
                '    If Me.FirstNodeWithData Is Nothing Then
                '        Me.FirstNodeWithData = DivFnkt.FoundNode
                '    End If
                '    Me.expanduvm = True
                'End If
            End If
            div1 = False
            If p.sZvdatum1.Value <> "(heute)-999999" Then div1 = True
            If p.sZvdatum2.Value <> "(heute)" And p.sZvdatum2.Value <> "(heute)-0" Then div1 = True
            If p.sZvdatum3.Value <> "(heute)-999999" Then div1 = True
            If p.sZvdatum4.Value <> "(heute)" And p.sZvdatum4.Value <> "(heute)-0" Then div1 = True
            If div1 Then
                DivFnkt.Searchnode(Me.TreeView1, 72, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    DivFnkt.FoundNode.Parent.Expand()
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                    Me.expandzv = True
                End If
            End If

            Me.cbmavip.Checked = p.bInklmavip.Value = True
            Me.cinklalt.Checked = p.bInklalt.Value = True
            Me.cinklaltversant.Checked = p.bInkInaktVersant.Value = True

            DivFnkt.Searchnode1(Me.TreeView1, 62, 99)
            If DivFnkt.found Then
                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                If Me.cinklalt.Checked = True Or Me.cinklaltversant.Checked = True Then
                    Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red
                Else
                    Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            If p.sVma.Value = "" And p.sVmb.Value = "" And p.sVnl.Value = "" And p.sVkost.Value = "" And p.sVteam.Value = "" Then
            Else
                DivFnkt.Searchnode1(Me.TreeView1, 1, 99)
                If DivFnkt.found Then
                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                    Me.TreeView1.SelectedNode.ExpandAll()
                End If
            End If
            If p.sMma.Value = "" And p.sMmb.Value = "" And p.sMnl.Value = "" And p.sMkost.Value = "" And p.sMteam.Value = "" Then
            Else
                DivFnkt.Searchnode1(Me.TreeView1, 1, 99)
                If DivFnkt.found Then
                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                    Me.TreeView1.SelectedNode.ExpandAll()
                End If
            End If
            If p.sEma.Value = "" And p.sEmb.Value = "" And p.sEnl.Value = "" And p.sEkost.Value = "" And p.sEteam.Value = "" Then
            Else
                DivFnkt.Searchnode1(Me.TreeView1, 1, 99)
                If DivFnkt.found Then
                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                    Me.TreeView1.SelectedNode.ExpandAll()
                End If
            End If


            'Profilunabhängige Daten
            ma.cpMainConnectionProvider = conn
            ma.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            ma.SelectOne()
            Try
                '               Me.FirstNodeWithData.ForeColor = System.Drawing.Color.Blue
            Catch
            End Try
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
        conn.CloseConnection(True)
        'shieb        Me.TreeView1.EndUpdate()
        Me.TVDokart.EndUpdate()

        checkchanges = True
        Try
        Catch
            If Me.FirstNodeWithData Is Nothing Then
                Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
            Else
                Me.TreeView1.SelectedNode = Me.FirstNodeWithData
            End If
        End Try
        '  Me.TreeView1.BeginUpdate()
        Me.TreeView1.ExpandAll()
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        'Rel 3.7 / BUD
        'nodeswithdata(90)
        nodeswithdata(72)
        'Rel 3.7 / BUD
        'nodeswithdata(92)

        'hutter 20041014
        'Me.TreeView1.EndUpdate()
    End Sub

    Private Function Convert_Seldate_von(ByVal d As String) As String
        Dim splitter
        Dim da As DateTime
        Dim i As Integer
        Dim ds As String
        ds = d
        If ds = "" Or ds = "(heute)-999999" Then
            Return ""
        End If
        If Microsoft.VisualBasic.Left(d, 1) = "(" Then
            d = Mid(d, 2, Len(d) - 1)
            splitter = Microsoft.VisualBasic.Split(d, "-")
            Try
                i = Val(splitter(1))
                da = Now
                da = DateAdd(DateInterval.Day, i * -1, Now)
                If i = 0 Then Return CutDate(Now) Else Return CutDate(da)

            Catch ex As Exception
                Return ""
            End Try

        Else
            Return d
        End If
    End Function

    Private Function Convert_Seldate_bis(ByVal d As String) As String
        Dim splitter
        Dim da As DateTime
        Dim i As Integer
        Dim ds As String
        ds = d
        If ds = "" Or ds = "(heute)-999999" Then
            Return ""
        End If
        If Microsoft.VisualBasic.Left(d, 1) = "(" Then
            d = Mid(d, 2, Len(d) - 1)
            splitter = Microsoft.VisualBasic.Split(d, "-")
            Try
                i = Val(splitter(1))
                da = Now
                da = DateAdd(DateInterval.Day, i * -1, Now)
                If i = 0 Then Return CutDate(da) Else Return CutDate(da)


            Catch ex As Exception
                Return ""
            End Try

        Else
            Return d
        End If
    End Function

    Private Sub Save_Profile()
        Dim p As New edokadb.clsProfil()
        Dim tn As TreeNode
        Dim d As DataTable
        Dim tmptreeview As New TreeView()
        p.cpMainConnectionProvider = conn
        p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
        p.SelectOne()

        'Selektion
        Dim s As String

        Dim i As Integer
        'hutter 20041014
        'Me.TreeView1.BeginUpdate()
        p.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))

        p.sVmb = New SqlString(CType(GetNodeDatastring(11), String))
        p.sVnl = New SqlString(CType(GetNodeDatastring(12), String))
        p.sVkost = New SqlString(CType(GetNodeDatastring(13), String))
        p.sVteam = New SqlString(CType(GetNodeDatastring(14), String))
        p.sVma = New SqlString(CType(GetNodeDatastring(15), String))

        p.sEmb = New SqlString(CType(GetNodeDatastring(21), String))
        p.sEnl = New SqlString(CType(GetNodeDatastring(22), String))
        p.sEkost = New SqlString(CType(GetNodeDatastring(23), String))
        p.sEteam = New SqlString(CType(GetNodeDatastring(24), String))
        p.sEma = New SqlString(CType(GetNodeDatastring(25), String))

        p.sMmb = New SqlString(CType(GetNodeDatastring(31), String))
        p.sMnl = New SqlString(CType(GetNodeDatastring(32), String))
        p.sMkost = New SqlString(CType(GetNodeDatastring(33), String))
        p.sMteam = New SqlString(CType(GetNodeDatastring(34), String))
        p.sMma = New SqlString(CType(GetNodeDatastring(35), String))

        p.sDpartner = New SqlString(CType(GetNodeDatastring(41), String))
        p.sDoktyp = New SqlString(CType(GetNodeDatastring(43), String))
        p.sDdokstatus = New SqlString(CType(GetNodeDatastring(44), String))

        p.sHostpartner = New SqlString(CType(GetNodeDatastring(51), String))
        p.sHostdoktyp = New SqlString(CType(GetNodeDatastring(53), String))
        p.bInklhostmavip = New SqlBoolean(CType(Me.hostinklmavip.Checked, Boolean))
        p.sHosttag3 = New SqlString(CType(GetNodeDatastring(59), String))
        p.sHostdatum3 = New SqlString(CType(GetNodeDatastring(58), String))
        p.sHosttag1 = New SqlString(CType(GetNodeDatastring(54), String))


        tmptreeview = Me.TVDokart
        s = ""
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            s = s + ";" + DivFnkt.FoundNode.Tag
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
        'tmptreeview.Dispose()
        p.sDdokart = New SqlString(CType(s, String))

        tmptreeview = Me.TVHostDok
        s = ""
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            s = s + ";" + DivFnkt.FoundNode.Tag
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
        p.sHostdokart = New SqlString(CType(s, String))

        p.bInklmavip = New SqlBoolean(CType(Me.cbmavip.Checked, Boolean))
        p.bInklalt = New SqlBoolean(CType(Me.cinklalt.Checked, Boolean))
        p.bInkInaktVersant = New SqlBoolean(CType(Me.cinklaltversant.Checked, Boolean))


        s = ""
        For i = 0 To Me.lbselect.Items.Count - 1
            s = s + Me.lbselect.Items(i) + ";"
        Next
        p.sSort = New SqlString(CType(s, String))

        s = ""
        For i = 0 To Me.LBSelectHost.Items.Count - 1
            s = s + Me.LBSelectHost.Items(i) + ";"
        Next
        p.sHosttag2 = New SqlString(CType(s, String))

        'Unterschriften / Hinweise
        If Me.mcbunterschriftlinks.SelectedValue = Nothing Then
            p.iUnterschriftlinks = New SqlInt32(CType(0, Int32))
        Else
            p.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32))
        End If
        If Me.mcbunterschriftrechts.SelectedValue = Nothing Then
            p.iUnterschriftrechts = New SqlInt32(CType(0, Int32))
        Else
            p.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32))
        End If
        If Me.mcbTeam.SelectedText = Nothing Then
            p.iTeam = New SqlInt32(CType(0, Int32))
        Else
            p.iTeam = New SqlInt32(CType(Me.mcbTeam.SelectedValue, Int32))
        End If

        If Me.cb1.Checked = True Then
            p.iHw1 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw1 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb2.Checked = True Then
            p.iHw2 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw2 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb3.Checked = True Then
            p.iHw3 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw3 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb3_1.Checked = True Then
            p.iHw6 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw6 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb4.Checked = True Then
            p.iHw4 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw4 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb5.Checked = True Then
            p.iHw5 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw5 = New SqlInt32(CType(0, Int32))
        End If

        If colconv.ConvertToString(Me.Profile.SelectedNode.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Or p.bStandard.Value = True Then
            p.bStandard = New SqlBoolean(CType(True, Boolean))
        Else
            p.bStandard = New SqlBoolean(CType(False, Boolean))
        End If

        'Colors
        p.sColor1 = New SqlString(CType(colconv.ConvertToString(Me.colbtn1.BackColor), String))
        p.sColor2 = New SqlString(CType(colconv.ConvertToString(Me.colbtn2.BackColor), String))
        p.sColor3 = New SqlString(CType(colconv.ConvertToString(Me.colbtn3.BackColor), String))
        p.sColor4 = New SqlString(CType(colconv.ConvertToString(Me.colbtn4.BackColor), String))
        p.sColor5 = New SqlString(CType(colconv.ConvertToString(Me.colbtn5.BackColor), String))
        p.sColor6 = New SqlString(CType(colconv.ConvertToString(Me.colbtn6.BackColor), String))

        'Selektionsdaten
        p.sDatum1 = New SqlString(CType(Me.datumtext1.Text, String))
        p.sDatum2 = New SqlString(CType(Me.datumtext2.Text, String))
        p.sDatum3 = New SqlString(CType(Me.datumtext3.Text, String))
        p.sDatum4 = New SqlString(CType(Me.datumtext4.Text, String))
        p.sDatum5 = New SqlString(CType(Me.datumtext5.Text, String))
        p.sDatum6 = New SqlString(CType(Me.datumtext6.Text, String))
        p.sHostdatum1 = New SqlString(CType(Me.DatumHostText1.Text, String))
        p.sHostdatum2 = New SqlString(CType(Me.DatumHostText2.Text, String))

        'Rel 3.7 / BUD
        'p.sUvmdatum1 = New SqlString(CType(Me.textdatum1uvm.Text, String))
        'p.sUvmdatum2 = New SqlString(CType(Me.textdatum2uvm.Text, String))
        'p.sUvmdatum3 = New SqlString(CType(Me.textdatum3uvm.Text, String))
        'p.sUvmdatum4 = New SqlString(CType(Me.textdatum4uvm.Text, String))

        p.sZvdatum1 = New SqlString(CType(Me.textdatum1zv.Text, String))
        p.sZvdatum2 = New SqlString(CType(Me.textdatum2zv.Text, String))
        p.sZvdatum3 = New SqlString(CType(Me.textdatum3zv.Text, String))
        p.sZvdatum4 = New SqlString(CType(Me.textdatum4zv.Text, String))

        'Rel 3.7 / BUD
        'p.sUvmdoktyp = New SqlString(CType(GetNodeDatastring(91), String))
        'p.sUvmauftragnr = New SqlString(CType(GetNodeDatastring(93), String))

        p.sZvauftraggeber = New SqlString(CType(GetNodeDatastring(74), String))
        p.sZvauftragnr = New SqlString(CType(GetNodeDatastring(73), String))
        p.sZvbetrag = New SqlString(CType(GetNodeDatastring(75), String))
        p.sZvclearingnr = New SqlString(CType(GetNodeDatastring(76), String))
        p.sZvdokumenttyp = New SqlString(CType(GetNodeDatastring(71), String))
        p.sZviso = New SqlString(CType(GetNodeDatastring(77), String))
        p.sZvkontobeg = New SqlString(CType(GetNodeDatastring(78), String))
        p.sZvpcnr = New SqlString(CType(GetNodeDatastring(79), String))
        p.sZvposten = New SqlString(CType(GetNodeDatastring(80), String))
        p.sZvreferenznr = New SqlString(CType(GetNodeDatastring(81), String))
        p.sZvswift = New SqlString(CType(GetNodeDatastring(82), String))
        p.sZvverarbeitungsart = New SqlString(CType(GetNodeDatastring(83), String))
        p.sZvzahlungsart = New SqlString(CType(GetNodeDatastring(84), String))


        Dim s1 As String
        Dim s2 As String

        If Me.Profname <> "" Then p.sBezeichnung = New SqlString(CType(Profname, String))
        conn.OpenConnection()
        p.Update()

        conn.CloseConnection(True)
        p.Dispose()
        'Me.TreeView1.EndUpdate()
        changes = False
        Me.Load_Profil(Me.ProfilNr)
        'Me.TreeView1.ExpandAll()
        Me.Profil_Ungueltig = False
        'Me.TreeView1.BeginUpdate()
        'nodeswithdata(1)
        'nodeswithdata(2)
        'nodeswithdata(3)
        'nodeswithdata(70)
        'nodeswithdata(90)
        'Me.TreeView1.EndUpdate()
    End Sub

    Public Function plausi_edoka(ByVal p As edokadb.clsProfil) As Boolean
        Dim ma As String
        Dim te As String
        Dim mb As String
        Dim nl As String
        Dim ko As String

        Dim d1 As Date
        Dim d2 As Date
        Dim d3 As Date
        Dim t1 As Integer
        Dim t2 As Integer
        Dim t3 As Integer

        If p.sDpartner.Value <> "" Then Return True
        ma = p.sVma.Value + p.sMma.Value + p.sEma.Value
        te = p.sVteam.Value + p.sMteam.Value + p.sEteam.Value
        mb = p.sMmb.Value + p.sVmb.Value + p.sEmb.Value
        nl = p.sVnl.Value + p.sMnl.Value + p.sEnl.Value
        ko = p.sVkost.Value + p.sMkost.Value + p.sEkost.Value

        If p.sDatum1.Value = "(heute)" Then d1 = Now Else d1 = p.sDatum1.Value
        If p.sDatum3.Value = "(heute)" Then d2 = Now Else d2 = p.sDatum3.Value
        If p.sDatum5.Value = "(heute)" Then d3 = Now Else d3 = p.sDatum5.Value


        If ma <> "" And te = "" And mb = "" And nl = "" Then
            If t1 <= 365 And t2 <= 365 And t3 <> 365 Then
                Return True
            Else
                MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
                Return False
            End If
        End If

        If te <> "" Or ko <> "" Then
            If t1 <= 90 And t2 <= 90 And t3 <= 90 Then
                Return True
            Else
                MyMsg.show_standardmessage(93, MsgBoxStyle.Critical)
                Return False
            End If
        End If

        If nl <> "" Then
            If t1 <= 30 And t2 <= 30 And t3 <= 30 Then
                Return True
            Else
                MyMsg.show_standardmessage(94, MsgBoxStyle.Critical)
            End If
        End If

        If mb <> "" Then
            If t1 <= 7 And t2 <= 7 And t3 <= 7 Then
                Return True
            Else
                MyMsg.show_standardmessage(94, MsgBoxStyle.Critical)
            End If
        End If

        If p.sDdokart.Value <> "" Then
            If t1 <= 30 And t2 <= 30 And t3 <= 30 Then
                Return True
            Else
                MyMsg.show_standardmessage(96, MsgBoxStyle.Critical)
            End If
        End If

    End Function

    Public Function plausi_host(ByVal p As edokadb.clsProfil) As Boolean
    End Function

    Private Function ValueList(ByVal c As ListView) As String
        Dim s As String
        s = ""
        For i = 0 To c.Items.Count - 1
            s = s + c.Items(i).Text + ";"
            If UCase(c.Name) = "SELPARTNER" Then
                li = c.Items(i)
                s = s + li.SubItems(1).Text + ";"
            End If
        Next
        Return s
    End Function

    Private Function GetNodeData(ByVal tnParent As TreeNode, ByRef iParent As Integer) As String
        Dim tn As TreeNode
        If tnParent.GetNodeCount(True) > 0 Then
            tn = tnParent.Nodes(0)
        Else
            tn = Nothing
        End If
        Do Until tn Is Nothing
            Try
                If tn.Parent.Tag = iParent Then
                    Me.NodeText = Me.NodeText & ";" & tn.Tag
                End If
            Catch ex As Exception
            End Try

            If tn.GetNodeCount(True) > 0 Then
                Call GetNodeData(tn, iParent)
            End If
            tn = tn.NextNode
        Loop
    End Function

    Private Function GetNodeDatastring(ByVal iparent As Integer) As String
        Me.NodeText = ""
        DivFnkt.Searchnode1(Me.TreeView1, iparent, 0)
        If DivFnkt.found Then
            GetNodeData(DivFnkt.FoundNode, iparent)
            Try
                Me.NodeText = Microsoft.VisualBasic.Right(Me.NodeText, Len(Me.NodeText) - 1)
            Catch
                Me.NodeText = ""
            End Try
        End If
        Return Me.NodeText
    End Function

    Private Sub check_changes()
        If On_Load Then Exit Sub
        If changes Then
            If Me.FirstNodeWithData Is Nothing Then
                Me.Profil_Ungueltig = True
            End If
            If MyMsg.Show_MessageYesNo(2) = MsgBoxResult.Yes Then
                Me.Save_Profile()
            End If
        End If
    End Sub

#End Region

#Region "Diverses"

    Private Sub Profile_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Profile.AfterSelect
        If Not On_Load Then
            check_changes()
            If Me.Profil_Ungueltig Then
                Me.Profile.SelectedNode = Me.savenode
                MyMsg.show_standardmessage(105, MsgBoxStyle.Critical)
                Exit Sub
            End If
            Me.savenode = Me.Profile.SelectedNode
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            check_changes()
            Me.ProfilNr = Me.Profile.SelectedNode.Tag
            Me.TreeView1.BeginUpdate()
            Me.showhidetv(True)
            init_treeview1()
            frmProfil_Load(sender, e)
            Me.TreeView1.SelectedNode = Nothing
            Me.showhidetv(False)
            Me.TreeView1.EndUpdate()
        End If
        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colbtn6.Click, colbtn5.Click, colbtn4.Click, colbtn3.Click, colbtn2.Click, colbtn1.Click
        Dim cName As String = CType(sender, System.Windows.Forms.Button).Name
        If Me.ColorDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub

        Me.ColorDialog1.AnyColor = True
        Button5_Click(sender, e)
        Select Case cName
            Case "colbtn1"
                Me.colbtn1.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn2"
                Me.colbtn2.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn3"
                Me.colbtn3.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn4"
                Me.colbtn4.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn5"
                Me.colbtn5.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn6"
                Me.colbtn6.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
        End Select
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If On_Load Then Exit Sub
        If oninit Then Exit Sub
        Me.PnlDokumentDaten.Visible = False
        Me.Panel3.Visible = False
        Me.PnlPartner.Visible = False
        Me.PnlDokumentart.Visible = False
        Me.TVDokart.Visible = False
        Me.TVHostDok.Visible = False
        Me.pnlhostdiv.Visible = False
        Me.Panel4.Visible = False
        Me.pnluvm.Visible = False
        Me.pnlzv.Visible = False

        Try
            If Me.TreeView1.SelectedNode.ImageIndex < 6 Then
                Me.TreeView1.SelectedNode.ImageIndex = 4
                Me.TreeView1.SelectedNode.SelectedImageIndex = 4
            End If
            Select Case TreeView1.SelectedNode.Tag
                Case 11, 21, 31
                    Me.C1TrueDBGrid1.DataSource = tmb
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 12, 22, 32
                    Me.C1TrueDBGrid1.DataSource = tnl
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 13, 23, 33
                    Me.C1TrueDBGrid1.DataSource = tko
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 14, 24, 34
                    Me.C1TrueDBGrid1.DataSource = tte
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 15, 25, 35
                    Me.C1TrueDBGrid1.DataSource = tpe
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 41
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 42
                    Me.PnlDokumentart.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                    Me.TVDokart.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 43
                    Me.C1TrueDBGrid1.DataSource = tdt
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 44
                    Me.C1TrueDBGrid1.DataSource = tst
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 45
                    Me.Panel3.Visible = False
                    Me.PnlDokumentDaten.Visible = True
                    Me.TabControl2.SelectedIndex = 0
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 62
                    Me.Panel3.Visible = False
                    Me.PnlDokumentDaten.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 51
                    Me.C1TrueDBGrid1.DataSource = tku
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 52
                    Me.TVHostDok.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 53
                    Me.C1TrueDBGrid1.DataSource = tdh
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 55
                    Me.pnlhostdiv.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 58
                    Me.pnlhostdiv.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 54
                    Me.pnlhostdiv.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 59
                    Me.pnlhostdiv.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 60
                    Me.Panel4.Visible = True
                    Me.lbSortfields.Items.Clear()
                    Me.lbSortfields.Items.AddRange(New Object() {"Bemerkung", "Bezeichnung", "Dokumentart", "DokumentID", "Ersteller", "Erstellungsdatum", "Mutationsdatum", "Mutierer", "Status", "Termin", "Verantwortlicher", "Zuständiger"})
                    Remove_Selected_Items(Me.lbselect)
                    Me.LBSelectHost.Visible = False
                    Me.lbselect.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 61
                    Me.Panel4.Visible = True
                    Me.lbSortfields.Items.Clear()
                    Me.lbSortfields.Items.AddRange(New Object() {"DokumentID", "Dokumenttyp-Nr", "Isin-Nr", "Valutadatum", "Valorennr", "VVExtern1", "VVExtern2"})
                    Remove_Selected_Items(Me.LBSelectHost)
                    Me.LBSelectHost.Visible = True
                    Me.lbselect.Visible = False
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 71
                    Me.C1TrueDBGrid1.DataSource = tdtzv
                    Me.Panel3.Visible = True
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 72
                    Me.Panel3.Visible = False
                    Me.PnlDokumentDaten.Visible = True
                    Me.TabControl2.SelectedIndex = 1
                    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                    'Rel 3.7 / BUD
                    'Case 91
                    '    Me.C1TrueDBGrid1.DataSource = tdtuvm
                    '    Me.Panel3.Visible = True
                    '    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                    'Case 93
                    '    Me.pnluvm.Visible = True
                    '    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                    'Case 92
                    '    Me.Panel3.Visible = False
                    '    Me.PnlDokumentDaten.Visible = True
                    '    Me.TabControl2.SelectedIndex = 2
                    '    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
                Case 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84
                    Me.Panel3.Visible = False
                    Me.pnlzv.Visible = True
            End Select
            Dim i As Integer
            Dim w As Integer
            w = Me.C1TrueDBGrid1.Columns.Count - 2
            w = (Me.C1TrueDBGrid1.Width - 150) / w
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Width = 150
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False
            For i = 3 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1
                Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = w
            Next

            Try
                Me.C1TrueDBGrid1.Columns("Aktiv").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.C1TrueDBGrid1.Columns("Aktiv").FilterText = True
                Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Aktiv").Width = 50
            Catch
            End Try

        Catch
        End Try

        'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False
    End Sub

#End Region

#Region "Partnersuche"

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown
        If e.KeyCode = Keys.Return Then btnPartnersuche_Click(sender, e)
    End Sub

    Private Sub btnPartnersuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnersuche.Click
        Me.PartnerList.DataSource = Nothing
        Me.PartnerList.DataMember = Nothing
        If Me.TextBox1.Text <> "" Then
            Try
                Dim d As Double
                d = Val(Me.TextBox1.Text)
                If d = 0 Then
                    MyMsg.show_standardmessage(20, MsgBoxStyle.Critical)
                    Me.TextBox1.Focus()
                    Exit Sub
                End If
                partner = mypartner.search_partner(d, 50, 0)
            Catch
                MyMsg.show_standardmessage(20, MsgBoxStyle.Critical)
                Me.TextBox1.Focus()
                Exit Sub
            End Try
        Else
            If Me.TextBox2.Text <> "" Then
                partner = mypartner.search_partner(Me.TextBox2.Text, 50, 1)
            Else
                partner = mypartner.search_partner(Me.TextBox3.Text, 50, 2)
            End If
        End If
        If partner.Rows.Count = 0 Then
            MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
        Else
            Me.PartnerList.DataSource = partner
            Me.PartnerList.DataMember = "Partner"
            SpaltenTitel_Aktualisieren()
            Dim i As Long
            Dim ii As Long
        End If
    End Sub

    Public Sub SpaltenTitel_Aktualisieren()
        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String

        t = partner
        ts.Tabelle = "Partner"
        For i = 0 To Me.PartnerList.Columns.Count - 1
            s = Me.PartnerList.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.PartnerList.Columns(i).Caption = ts.spaltenname
            If Me.PartnerList.Columns(i).Caption = "" Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            '            If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            If ts.locked Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
            End If

            If ts.AlsHacken Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If

            'Präsentation von aktiv
            If Me.PartnerList.Columns(i).DataField = "aktiv" Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
                Me.PartnerList.Columns(i).DefaultValue = True
                Me.PartnerList.Columns(i).FilterText = True
            End If
            If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
                Me.PartnerList.Columns(i).DefaultValue = Now
            End If
        Next
    End Sub

    Private Sub PartnerList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
        If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
            e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
        End If
    End Sub

#End Region

#Region "Datenselektion"

    Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick, C1TrueDBGrid1.DoubleClick
        Dim tn As New TreeNode()
        If Me.TreeView1.SelectedNode.Tag < 10 Then
            MsgBox("Bitte wählen Sie einen Knoten aus, der das Hinzufügen von Selektionskriterien erlaubt.")
            Exit Sub
        End If

        ' Änderung durch Partnerselektion
        If Me.TreeView1.SelectedNode.Tag = 41 Then
            tn = Me.TreeView1.SelectedNode
            tn = tn.Nodes.Add(Str(Me.PartnerList.Columns(0).Value) + " - " + Me.PartnerList.Columns(1).Value)
            tn.Tag = Me.PartnerList.Columns(0).Value
            tn.ForeColor = System.Drawing.Color.Red
            tn.ImageIndex = 4
            tn.SelectedImageIndex = 4
            Me.TreeView1.SelectedNode.ExpandAll()
            If checkchanges Then changes = True
            Exit Sub
        End If
        Try
            tn = Me.TreeView1.SelectedNode
            Dim i As Integer
            Dim row As Long
            Dim col As C1.Win.C1TrueDBGrid.C1DataColumn
            If Me.C1TrueDBGrid1.SelectedRows.Count > 0 Then
                For Each row In Me.C1TrueDBGrid1.SelectedRows
                    tn = Me.TreeView1.SelectedNode
                    tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).CellText(row))
                    If Me.C1TrueDBGrid1.Columns(2).CellValue(row) = False Then
                        tn.ForeColor = System.Drawing.Color.Gray
                    Else
                        tn.ForeColor = System.Drawing.Color.Red
                    End If
                    tn.Tag = Me.C1TrueDBGrid1.Columns(0).CellValue(row)
                    tn.ImageIndex = 4
                    tn.SelectedImageIndex = 4
                Next
            Else
                tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).Value)
                tn.Tag = Me.C1TrueDBGrid1.Columns(0).Value
                If Me.C1TrueDBGrid1.Columns(2).Value = False Then
                    tn.ForeColor = System.Drawing.Color.Gray
                Else
                    tn.ForeColor = System.Drawing.Color.Red
                End If
                tn.ImageIndex = 4
                tn.SelectedImageIndex = 4
            End If
            Me.TreeView1.SelectedNode.ExpandAll()
            If checkchanges Then changes = True
        Catch
        End Try
        Exit Sub
    End Sub

#End Region

#Region "Hanlde Treeview_Mousebuttons"

    Private Sub TVDokart_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TVDokart.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Try
                TVDokart.SelectedNode = TVDokart.GetNodeAt(selectPoint)
            Catch
            End Try
        Catch
        End Try
    End Sub

    Private Sub Treeview1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Try
                TreeView1.SelectedNode = TreeView1.GetNodeAt(selectPoint)
            Catch
            End Try
            If TreeView1.SelectedNode.Tag = 41 And e.Button = MouseButtons.Left Then
                Me.Partnerdialog.TopMost = True
                Me.Partnerdialog.Left = Me.MousePosition.X + 50
                Me.Partnerdialog.Top = Me.MousePosition.Y - 20
                Me.Partnerdialog.Show()
                Me.Partnerdialog.NoClose = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
        Catch
        End Try
        'Cursor positionieren
        Try
            Select Case Me.TreeView1.SelectedNode.Tag
                Case 58
                    Me.TextBox5.Focus()
                Case 54
                    Me.TextBox6.Focus()
                Case 59
                    Me.TextBox4.Focus()
                Case Else
            End Select
        Catch
        End Try

    End Sub

    Private Sub Treeview1_Mouseup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseUp
        'Cursor positionieren
        Try
            Select Case Me.TreeView1.SelectedNode.Tag
                Case 58
                    Me.TextBox5.Focus()
                Case 54
                    Me.TextBox6.Focus()
                Case 59
                    Me.TextBox4.Focus()
                Case 73
                    Me.txtzvauftragsnr.Focus()
                Case 74
                    Me.txtzvauftraggeber.Focus()
                Case 75
                    Me.txtzvbetrag.Focus()
                Case 76
                    Me.txtzvclearingnr.Focus()
                Case 77
                    Me.txtzviso.Focus()
                Case 78
                    Me.txtzvbeguenstigter.Focus()
                Case 79
                    Me.txtzvpcnr.Focus()
                Case 80
                    Me.txtzvpostennr.Focus()
                Case 81
                    Me.txtzvreferenznr.Focus()
                Case 82
                    Me.txtzvswift.Focus()
                Case 83
                    Me.txtzvverarbeitungsart.Focus()
                Case 84
                    Me.txtzvzahlungsart.Focus()
                    'Rel 3.7 / BUD
                    'Case 93
                    '    Me.txtuvmauftragnr.Focus()
                Case Else
            End Select
        Catch
        End Try
    End Sub

    Private Sub Profile_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Profile.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Try
                Profile.SelectedNode = Profile.GetNodeAt(selectPoint)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Catch
        End Try
    End Sub

#End Region

#Region "Datumhandling"

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.txtdatum1.Text = ""
        changes = True
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.txtdatum3.Text = ""
        changes = True
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.txtdatum5.Text = ""
        changes = True
    End Sub

    Private Function CutDate(ByVal s As String) As String
        Dim i As Integer
        i = Microsoft.VisualBasic.InStr(s, " ")
        If i > 0 Then CutDate = Microsoft.VisualBasic.Left(s, i - 1) Else CutDate = s
    End Function

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Me.txtdatum1.Text = CutDate(Me.DateTimePicker1.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum1.Text, Date)
            Me.DateTimePicker1.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        Me.txtdatum2.Text = CutDate(Me.DateTimePicker2.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum2.Text, Date)
            Me.DateTimePicker2.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker3.ValueChanged
        Me.txtdatum3.Text = CutDate(Me.DateTimePicker3.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum3.Text, Date)
            Me.DateTimePicker3.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker4.ValueChanged
        Me.txtdatum4.Text = CutDate(Me.DateTimePicker4.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum4.Text, Date)
            Me.DateTimePicker4.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker5.ValueChanged
        Me.txtdatum5.Text = CutDate(Me.DateTimePicker5.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum5.Text, Date)
            Me.DateTimePicker5.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker6.ValueChanged
        Me.txtdatum6.Text = CutDate(Me.DateTimePicker6.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum6.Text, Date)
            Me.DateTimePicker6.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try

        changes = True
    End Sub

    Private Sub DateTimePicker9_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker9.ValueChanged
        Me.HostDatum1.Text = CutDate(Me.DateTimePicker9.Value)
        Try
            Dim d As Date
            d = CType(Me.HostDatum1.Text, Date)
            Me.DateTimePicker9.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker8_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker8.ValueChanged
        Me.HostDatum2.Text = CutDate(Me.DateTimePicker8.Value)
        Try
            Dim d As Date
            d = CType(Me.HostDatum2.Text, Date)
            Me.DateTimePicker8.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True

    End Sub

    Private Sub DateTimePicker13_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker13.ValueChanged
        Me.txtdatum3zv.Text = CutDate(Me.DateTimePicker13.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum3zv.Text, Date)
            Me.DateTimePicker13.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker14_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker14.ValueChanged
        Me.txtdatum1zv.Text = CutDate(Me.DateTimePicker14.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum1zv.Text, Date)
            Me.DateTimePicker14.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker15_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker15.ValueChanged
        Me.txtdatum2zv.Text = CutDate(Me.DateTimePicker15.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum2zv.Text, Date)
            Me.DateTimePicker15.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker16_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker16.ValueChanged
        Me.txtdatum4zv.Text = CutDate(Me.DateTimePicker14.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum4zv.Text, Date)
            Me.DateTimePicker16.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker18_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker18.ValueChanged
        Me.txtdatum1uvm.Text = CutDate(Me.DateTimePicker18.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum1uvm.Text, Date)
            Me.DateTimePicker18.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker19_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker19.ValueChanged
        Me.txtdatum2uvm.Text = CutDate(Me.DateTimePicker19.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum2uvm.Text, Date)
            Me.DateTimePicker19.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker17_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker17.ValueChanged
        Me.txtdatum3uvm.Text = CutDate(Me.DateTimePicker17.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum3uvm.Text, Date)
            Me.DateTimePicker17.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker20_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker20.ValueChanged
        Me.txtdatum4uvm.Text = CutDate(Me.DateTimePicker20.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum4uvm.Text, Date)
            Me.DateTimePicker20.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub

    Private Sub DateTimePicker7_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker7.ValueChanged
        Me.HostDatum3.Text = CutDate(Me.DateTimePicker7.Value)
        changes = True
    End Sub

#End Region

    Private Sub Button15_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            If Me.lbSortfields.SelectedItems.Count > 0 Then
                If Me.LBSelectHost.Visible = True Then
                    Me.LBSelectHost.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem)
                    Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex)
                Else
                    Me.lbselect.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem)
                    Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex)
                End If
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub lbsortfields_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSort.DoubleClick, lbSortfields.DoubleClick
        Button15_Click_1(sender, e)
    End Sub

    Private Sub lbselect_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSelectHost.DoubleClick, lbselect.DoubleClick
        Dim splitter
        Try
            If Me.LBSelectHost.Visible = True Then
                If Me.LBSelectHost.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.LBSelectHost.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.LBSelectHost.Items.RemoveAt(Me.LBSelectHost.SelectedIndex)
                End If
            Else
                If Me.lbselect.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.lbselect.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.lbselect.Items.RemoveAt(Me.lbselect.SelectedIndex)
                End If
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub Insertitem(ByVal lb As ListBox, ByVal s As String)
        Dim i As Integer
        Dim inserted As Boolean = False
        For i = 0 To lb.Items.Count - 1
            lb.SelectedIndex = i
            If s > lb.SelectedItem And Not inserted Then
                lb.Items.Insert(i, s)
                inserted = True
            End If
        Next
        If Not inserted Then lb.Items.Insert(i, s)
    End Sub

    Private Sub frmProfil_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        check_changes()
        If Me.FirstNodeWithData Is Nothing Then
            If MyMsg.Show_MessageYesNo(104) = MsgBoxResult.No Then e.Cancel = True
        End If
        'If Me.Profil_Ungueltig Then
        'MyMsg.show_standardmessage(104, MsgBoxStyle.Critical)
        'e.Cancel = True
        'Else
        '    e.Cancel = False
        'End If
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Try
            Me.C1TrueDBGrid1_DoubleClick(sender, e)
        Catch
        End Try
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Try
            If Me.PartnerList.Columns(0).Value > 91000000 Then
                Dim f As New frmInteressent()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.Display = True
                f.ShowDialog()
                f.Dispose()
            Else
                Dim f As New frmPartnerDetails()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.ShowDialog()
                f.Dispose()
            End If
        Catch
        Finally
        End Try
    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        Try
            C1TrueDBGrid1_DoubleClick(sender, e)
        Catch
        End Try
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim colconv As New ColorConverter()
        Me.colbtn1.BackColor = colconv.ConvertFromString("Control")
        Me.colbtn2.BackColor = Me.colbtn1.BackColor
        Me.colbtn3.BackColor = Me.colbtn1.BackColor
        Me.colbtn4.BackColor = Me.colbtn1.BackColor
        Me.colbtn5.BackColor = Me.colbtn1.BackColor
        Me.colbtn6.BackColor = Me.colbtn1.BackColor
    End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub MnuListe_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MnuListe.Popup
        Dim i As Integer
        If Me.Profil_Ungueltig = True Then
            For i = 0 To Me.MnuListe.MenuItems.Count - 1
                Me.MnuListe.MenuItems(i).Enabled = False
            Next
            Exit Sub
        Else
            For i = 0 To Me.MnuListe.MenuItems.Count - 1
                Me.MnuListe.MenuItems(i).Enabled = True
            Next
        End If
        Try
            If Me.Profile.GetNodeCount(True) < 2 Then
                MenuItem10.Enabled = False
            Else
                MenuItem10.Enabled = True
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Try
            Dim tn As TreeNode
            Dim tn1 As TreeNode
            tn = TreeView1.SelectedNode
            While tn.GetNodeCount(True) > 0
                tn.Nodes(0).Remove()
            End While
        Catch
        End Try

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tn As New TreeNode()
        tn = Me.TreeView1.SelectedNode
        tn = tn.Nodes.Add(Me.TextBox4.Text)
        tn.Tag = Me.TextBox4.Text
        tn.ForeColor = System.Drawing.Color.Red
        tn.ImageIndex = 4
        tn.SelectedImageIndex = 4
        Me.TreeView1.SelectedNode.ExpandAll()
    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Try
            Dim tn As New TreeNode()
            Dim tn1 As New TreeNode()
            DivFnkt.Searchnode1(Me.TreeView1, 59, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.TextBox4.Text)
                tn1.Tag = Me.TextBox4.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.TextBox4.Text = ""
                Me.changes = True

            End If
        Catch
        End Try

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Try
            Dim tn As New TreeNode()
            Dim tn1 As New TreeNode()
            DivFnkt.Searchnode1(Me.TreeView1, 58, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.TextBox5.Text)
                tn1.Tag = Me.TextBox5.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.TextBox5.Text = ""
                Me.changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Button15_Click_1(sender, e)
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim i As Integer
        Dim s As String
        If Me.LBSelectHost.Visible = True Then
            If Me.LBSelectHost.SelectedItems.Count > 0 Then
                Try
                    i = LBSelectHost.SelectedIndex
                    s = LBSelectHost.SelectedItem
                    If i > 0 Then
                        LBSelectHost.Items.RemoveAt(i)
                        LBSelectHost.Items.Insert(i - 1, s)
                        LBSelectHost.SelectedIndex = i - 1
                    End If
                Catch
                End Try
            End If
        Else
            Try
                If Me.lbselect.SelectedItems.Count > 0 Then
                    i = lbselect.SelectedIndex
                    s = lbselect.SelectedItem
                    If i > 0 Then
                        lbselect.Items.RemoveAt(i)
                        lbselect.Items.Insert(i - 1, s)
                        lbselect.SelectedIndex = i - 1
                    End If
                End If
            Catch
            End Try
        End If
        changes = True
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim i As Integer
        Dim s As String
        If Me.LBSelectHost.Visible = True Then
            Try
                If Me.LBSelectHost.SelectedItems.Count > 0 Then
                    i = LBSelectHost.SelectedIndex
                    s = LBSelectHost.SelectedItem
                    If i < LBSelectHost.Items.Count - 1 Then
                        LBSelectHost.Items.RemoveAt(i)
                        LBSelectHost.Items.Insert(i + 1, s)
                        LBSelectHost.SelectedIndex = i + 1
                    End If
                    changes = True
                End If
            Catch
            End Try
        Else
            Try
                If Me.lbselect.SelectedItems.Count > 0 Then
                    i = lbselect.SelectedIndex
                    s = lbselect.SelectedItem
                    If i < lbselect.Items.Count - 1 Then
                        lbselect.Items.RemoveAt(i)
                        lbselect.Items.Insert(i + 1, s)
                        lbselect.SelectedIndex = i + 1
                    End If
                    changes = True
                End If
            Catch
            End Try
        End If
    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Dim splitter
        Try
            If Me.LBSelectHost.Visible = True Then
                If Me.LBSelectHost.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.LBSelectHost.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.LBSelectHost.Items.RemoveAt(Me.LBSelectHost.SelectedIndex)
                End If
            Else
                If Me.lbselect.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.lbselect.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.lbselect.Items.RemoveAt(Me.lbselect.SelectedIndex)
                End If
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        Dim s, s1 As String
        Dim splitter
        If Me.LBSelectHost.Visible = True Then
            If Me.LBSelectHost.SelectedItems.Count > 0 Then
                Try
                    s = LBSelectHost.SelectedItem
                    splitter = Microsoft.VisualBasic.Split(s, " | ")
                    Select Case splitter(1)
                        Case "Absteigend"
                            s1 = "Aufsteigend"
                        Case "Aufsteigend"
                            s1 = "Absteigend"
                        Case Else
                            s1 = "Aufsteigend"
                    End Select
                    s = splitter(0) + " | " + s1
                    i = LBSelectHost.SelectedIndex
                    LBSelectHost.SelectedIndex = i
                    LBSelectHost.Items.RemoveAt(i)
                    LBSelectHost.Items.Insert(i, s)
                Catch
                End Try
            End If
        Else
            If Me.lbselect.SelectedItems.Count > 0 Then
                Try
                    s = lbselect.SelectedItem
                    splitter = Microsoft.VisualBasic.Split(s, " | ")
                    Select Case splitter(1)
                        Case "Absteigend"
                            s1 = "Aufsteigend"
                        Case "Aufsteigend"
                            s1 = "Absteigend"
                        Case Else
                            s1 = "Aufsteigend"
                    End Select
                    s = splitter(0) + " | " + s1
                    i = lbselect.SelectedIndex
                    lbselect.SelectedIndex = i
                    lbselect.Items.RemoveAt(i)
                    lbselect.Items.Insert(i, s)
                Catch
                End Try
            End If
        End If
    End Sub

    Private Sub cinklalt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinklalt.CheckedChanged
        Dim tn As New TreeNode()
        DivFnkt.Searchnode1(Me.TreeView1, 62, 99)
        If DivFnkt.found Then
            tn = DivFnkt.FoundNode
            If Me.cinklalt.Checked Then
                tn.Text = "inkl. gelöschte/aufgehobene"
                DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
            Else
                tn.Text = "inkl. gelöschte/aufgehobene"
                DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            End If
        End If
    End Sub

    Private Sub cinklaltversant_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinklaltversant.CheckedChanged
        Dim tn As New TreeNode()
        DivFnkt.Searchnode1(Me.TreeView1, 62, 99)
        If DivFnkt.found Then
            tn = DivFnkt.FoundNode
            If Me.cinklaltversant.Checked Then
                tn.Text = "inkl. gelöschte/aufgehobene"
                DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
            Else
                tn.Text = "inkl. gelöschte/aufgehobene"
                DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            End If
        End If
    End Sub

    Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
        Dim s, s1 As String
        Dim i As Integer
        Dim splitter
        If Me.LBSelectHost.Visible = True Then
            If LBSelectHost.SelectedItems.Count < 1 Then
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = False
                Next
            Else
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = True
                Next
            End If
            Try
                s = LBSelectHost.SelectedItem
                splitter = Microsoft.VisualBasic.Split(s, " | ")
                Select Case splitter(1)
                    Case "Absteigend"
                        s1 = "Aufsteigend"
                    Case "Aufsteigend"
                        s1 = "Absteigend"
                    Case Else
                        s1 = "Aufsteigend"
                End Select
                Me.MenuItem21.Text = "Sortierungsart " + s1
            Catch
            End Try
        Else
            If lbselect.SelectedItems.Count < 1 Then
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = False
                Next
            Else
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = True
                Next
            End If
            Try
                s = lbselect.SelectedItem
                splitter = Microsoft.VisualBasic.Split(s, " | ")
                Select Case splitter(1)
                    Case "Absteigend"
                        s1 = "Aufsteigend"
                    Case "Aufsteigend"
                        s1 = "Absteigend"
                    Case Else
                        s1 = "Aufsteigend"
                End Select
                Me.MenuItem21.Text = "Sortierungsart " + s1
            Catch
            End Try
        End If
    End Sub

    Private Sub Remove_Selected_Items(ByVal lb As ListBox)
        Dim i As Integer
        Dim b As Integer
        Dim splitter
        For i = 0 To lb.Items.Count - 1
            lb.SelectedIndex = i
            splitter = Microsoft.VisualBasic.Split(lb.SelectedItem)

            Try
                For b = 0 To Me.lbSortfields.Items.Count - 1
                    Me.lbSortfields.SelectedIndex = b
                    If Me.lbSortfields.SelectedItem = splitter(0) Then Me.lbSortfields.Items.RemoveAt(b)
                Next
            Catch
            End Try
        Next
    End Sub

    Private Sub PartnerSuchResultat() Handles Partnerdialog.partner_selected
        Dim tn As New TreeNode()
        Dim tn1 As New TreeNode()
        If Me.TreeView1.SelectedNode.Tag = 41 Then
            tn = Me.TreeView1.SelectedNode
            tn1 = tn.Nodes.Add(Trim(Str(Me.Partnerdialog.PartnerNr)) + " - " + Me.Partnerdialog.PartnerKurzbezeichnnung)
            tn1.Tag = Trim(Str(Me.Partnerdialog.PartnerNr))
            tn1.ForeColor = System.Drawing.Color.Red
            tn1.ImageIndex = 4
            tn1.SelectedImageIndex = 4
            Me.TreeView1.SelectedNode.ExpandAll()
            Me.changes = True
        End If
    End Sub

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

    Private Sub txtdatum1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdatum1.TextChanged, txtdatum2.TextChanged, _
    txtdatum3.TextChanged, txtdatum4.TextChanged, txtdatum5.TextChanged, txtdatum6.TextChanged, HostDatum1.TextChanged, HostDatum2.TextChanged, _
    txtdatum1uvm.TextChanged, txtdatum2uvm.TextChanged, txtdatum3uvm.TextChanged, txtdatum4uvm.TextChanged, txtdatum1zv.TextChanged, txtdatum2zv.TextChanged, txtdatum3zv.TextChanged, txtdatum4zv.TextChanged
        Dim tb As TextBox
        Dim xt As DateTime
        Dim i As Integer
        tb = sender

        Select Case tb.Name
            Case "txtdatum1"
                If Me.txtdatum1.Text = "" Then
                    Me.datumtext1.Text = "(heute)-999999"
                    Me.cbrollend1.Checked = False
                    Me.cbrollend1.Enabled = False
                Else
                    If Format(Me.DateTimePicker1.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum1.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend1.Enabled = True
                    If Me.cbrollend1.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext1.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext1.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext1.Text = Me.txtdatum1.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext1.Text, "heute") > 0 Then Me.cbrollend1.Checked = True
                End If
            Case "txtdatum2"
                If Me.txtdatum2.Text = "" Then
                    Me.datumtext2.Text = "(heute)"
                    Me.cbrollend2.Checked = True
                    Me.cbrollend2.Enabled = False
                    '    Me.txtdatum2.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker2.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum2.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend2.Enabled = True
                    If Me.cbrollend2.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext2.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext2.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext2.Text = Me.txtdatum2.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext2.Text, "heute") > 0 Then Me.cbrollend2.Checked = True
                End If
            Case "txtdatum3"
                If Me.txtdatum3.Text = "" Then
                    Me.datumtext3.Text = "(heute)-999999"
                    Me.cbrollend3.Checked = False
                    Me.cbrollend3.Enabled = False
                Else
                    If Format(Me.DateTimePicker3.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum3.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend3.Enabled = True
                    If Me.cbrollend3.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext3.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext3.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext3.Text = Me.txtdatum3.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext3.Text, "heute") > 0 Then Me.cbrollend3.Checked = True
                End If
            Case "txtdatum4"
                If Me.txtdatum4.Text = "" Then
                    Me.datumtext4.Text = "(heute)"
                    Me.cbrollend4.Checked = True
                    Me.cbrollend4.Enabled = False
                    '   Me.txtdatum4.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker4.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum4.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend4.Enabled = True
                    If Me.cbrollend4.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext4.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext4.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext4.Text = Me.txtdatum4.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext4.Text, "heute") > 0 Then Me.cbrollend4.Checked = True
                End If
            Case "txtdatum5"
                If Me.txtdatum5.Text = "" Then
                    Me.datumtext5.Text = "(heute)-999999"
                    Me.cbrollend5.Checked = False
                    Me.cbrollend5.Enabled = False
                Else
                    If Format(Me.DateTimePicker5.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum5.Text = CutDate(Now.ToString)
                    End If

                    Me.cbrollend5.Enabled = True
                    If Me.cbrollend5.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum5.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext5.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext5.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext5.Text = Me.txtdatum5.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext5.Text, "heute") > 0 Then Me.cbrollend5.Checked = True
                End If
            Case "txtdatum6"
                If Me.txtdatum6.Text = "" Then
                    Me.datumtext6.Text = "(heute)"
                    Me.cbrollend6.Checked = True
                    Me.cbrollend6.Enabled = False
                    '  Me.txtdatum6.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker6.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum6.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend6.Enabled = True
                    If Me.cbrollend6.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum6.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext6.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext6.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext6.Text = Me.txtdatum6.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext6.Text, "heute") > 0 Then Me.cbrollend6.Checked = True
                End If

            Case "HostDatum1"
                If Me.HostDatum1.Text = "" Then
                    Me.DatumHostText1.Text = "(heute)-999999"
                    Me.cbrollend8.Checked = False
                    Me.cbrollend8.Enabled = False
                Else
                    If Format(Me.DateTimePicker9.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.HostDatum1.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend8.Enabled = True
                    If Me.cbrollend8.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.HostDatum1.Text, DateTime))
                        If i = 0 Then
                            Me.DatumHostText1.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.DatumHostText1.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.DatumHostText1.Text = Me.HostDatum1.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.DatumHostText1.Text, "heute") > 0 Then Me.cbrollend8.Checked = True
                End If
            Case "HostDatum2"
                If Me.HostDatum2.Text = "" Then
                    Me.DatumHostText2.Text = "(heute)"
                    Me.cbrollend9.Checked = True
                    Me.cbrollend9.Enabled = False
                    ' Me.txtdatum6.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker8.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.HostDatum2.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend9.Enabled = True
                    If Me.cbrollend9.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.HostDatum2.Text, DateTime))
                        If i = 0 Then
                            Me.DatumHostText2.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.DatumHostText2.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.DatumHostText2.Text = Me.HostDatum2.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.DatumHostText2.Text, "heute") > 0 Then Me.cbrollend9.Checked = True
                End If
                'Rel 3.7 / BUD
                'Case "txtdatum1uvm"
                '    If Me.txtdatum1uvm.Text = "" Then
                '        Me.textdatum1uvm.Text = "(heute)-999999"
                '        Me.cbuvmrollend1.Checked = False
                '        Me.cbuvmrollend1.Enabled = False
                '    Else
                '        If Format(Me.DateTimePicker18.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                '            Me.txtdatum1uvm.Text = CutDate(Now.ToString)
                '        End If
                '        Me.cbuvmrollend1.Enabled = True
                '        If Me.cbuvmrollend1.Checked Then
                '            i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1uvm.Text, DateTime))
                '            If i = 0 Then
                '                Me.textdatum1uvm.Text = "(heute)-0"
                '            Else
                '                If i < 0 Then i = i * -1
                '                Me.textdatum1uvm.Text = "(heute)-" + Trim(Str(i))
                '            End If
                '        Else
                '            Me.textdatum1uvm.Text = Me.txtdatum1uvm.Text
                '        End If
                '        If Microsoft.VisualBasic.InStr(Me.textdatum1uvm.Text, "heute") > 0 Then Me.cbuvmrollend1.Checked = True
                '    End If
                'Case "txtdatum2uvm"
                '    If Me.txtdatum2uvm.Text = "" Then
                '        Me.textdatum2uvm.Text = "(heute)"
                '        Me.cbuvmrollend2.Checked = False
                '        Me.cbuvmrollend2.Enabled = False
                '    Else
                '        If Format(Me.DateTimePicker19.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                '            Me.txtdatum2uvm.Text = CutDate(Now.ToString)
                '        End If
                '        Me.cbuvmrollend2.Enabled = True
                '        If Me.cbuvmrollend2.Checked Then
                '            i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2uvm.Text, DateTime))
                '            If i = 0 Then
                '                Me.textdatum2uvm.Text = "(heute)-0"
                '            Else
                '                If i < 0 Then i = i * -1
                '                Me.textdatum2uvm.Text = "(heute)-" + Trim(Str(i))
                '            End If
                '        Else
                '            Me.textdatum2uvm.Text = Me.txtdatum2uvm.Text
                '        End If
                '        If Microsoft.VisualBasic.InStr(Me.textdatum2uvm.Text, "heute") > 0 Then Me.cbuvmrollend2.Checked = True
                '    End If
                'Case "txtdatum3uvm"
                '    If Me.txtdatum3uvm.Text = "" Then
                '        Me.textdatum3uvm.Text = "(heute)-999999"
                '        Me.cbuvmrollend3.Checked = False
                '        Me.cbuvmrollend3.Enabled = False
                '    Else
                '        If Format(Me.DateTimePicker17.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                '            Me.txtdatum3uvm.Text = CutDate(Now.ToString)
                '        End If
                '        Me.cbuvmrollend3.Enabled = True
                '        If Me.cbuvmrollend3.Checked Then
                '            i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3uvm.Text, DateTime))
                '            If i = 0 Then
                '                Me.textdatum3uvm.Text = "(heute)-0"
                '            Else
                '                If i < 0 Then i = i * -1
                '                Me.textdatum3uvm.Text = "(heute)-" + Trim(Str(i))
                '            End If
                '        Else
                '            Me.textdatum3uvm.Text = Me.txtdatum3uvm.Text
                '        End If
                '        If Microsoft.VisualBasic.InStr(Me.textdatum3uvm.Text, "heute") > 0 Then Me.cbuvmrollend3.Checked = True
                '    End If
                'Case "txtdatum4uvm"
                '    If Me.txtdatum4uvm.Text = "" Then
                '        Me.textdatum4uvm.Text = "(heute)"
                '        Me.cbuvmrollend4.Checked = False
                '        Me.cbuvmrollend4.Enabled = False
                '    Else
                '        If Format(Me.DateTimePicker20.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                '            Me.txtdatum4uvm.Text = CutDate(Now.ToString)
                '        End If
                '        Me.cbuvmrollend4.Enabled = True
                '        If Me.cbuvmrollend4.Checked Then
                '            i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4uvm.Text, DateTime))
                '            If i = 0 Then
                '                Me.textdatum4uvm.Text = "(heute)-0"
                '            Else
                '                If i < 0 Then i = i * -1
                '                Me.textdatum4uvm.Text = "(heute)-" + Trim(Str(i))
                '            End If
                '        Else
                '            Me.textdatum4uvm.Text = Me.txtdatum4uvm.Text
                '        End If
                '        If Microsoft.VisualBasic.InStr(Me.textdatum4uvm.Text, "heute") > 0 Then Me.cbuvmrollend4.Checked = True
                '    End If
            Case "txtdatum1zv"
                If Me.txtdatum1zv.Text = "" Then
                    Me.textdatum1zv.Text = "(heute)-999999"
                    Me.cbzvrollend1.Checked = False
                    Me.cbzvrollend1.Enabled = False
                Else
                    If Format(Me.DateTimePicker14.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum1zv.Text = CutDate(Now.ToString)
                    End If
                    Me.cbzvrollend1.Enabled = True
                    If Me.cbzvrollend1.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1zv.Text, DateTime))
                        If i = 0 Then
                            Me.textdatum1zv.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.textdatum1zv.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.textdatum1zv.Text = Me.txtdatum1zv.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.textdatum1zv.Text, "heute") > 0 Then Me.cbzvrollend1.Checked = True
                End If
            Case "txtdatum2zv"
                If Me.txtdatum2zv.Text = "" Then
                    Me.textdatum2zv.Text = "(heute)"
                    Me.cbzvrollend2.Checked = False
                    Me.cbzvrollend2.Enabled = False
                Else
                    If Format(Me.DateTimePicker15.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum2zv.Text = CutDate(Now.ToString)
                    End If
                    Me.cbzvrollend2.Enabled = True
                    If Me.cbzvrollend2.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2zv.Text, DateTime))
                        If i = 0 Then
                            Me.textdatum2zv.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.textdatum2zv.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.textdatum2zv.Text = Me.txtdatum2zv.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.textdatum2zv.Text, "heute") > 0 Then Me.cbzvrollend2.Checked = True
                End If
            Case "txtdatum3zv"
                If Me.txtdatum3zv.Text = "" Then
                    Me.textdatum3zv.Text = "(heute)-999999"
                    Me.cbzvrollend3.Checked = False
                    Me.cbzvrollend3.Enabled = False
                Else
                    If Format(Me.DateTimePicker13.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum3zv.Text = CutDate(Now.ToString)
                    End If
                    Me.cbuvmrollend3.Enabled = True
                    If Me.cbzvrollend3.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3zv.Text, DateTime))
                        If i = 0 Then
                            Me.textdatum3zv.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.textdatum3zv.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.textdatum3zv.Text = Me.txtdatum3zv.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.textdatum3zv.Text, "heute") > 0 Then Me.cbzvrollend3.Checked = True
                End If
            Case "txtdatum4zv"
                If Me.txtdatum4zv.Text = "" Then
                    Me.textdatum4zv.Text = "(heute)"
                    Me.cbzvrollend4.Checked = False
                    Me.cbzvrollend4.Enabled = False
                Else
                    If Format(Me.DateTimePicker16.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum4zv.Text = CutDate(Now.ToString)
                    End If
                    Me.cbzvrollend4.Enabled = True
                    If Me.cbzvrollend4.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4zv.Text, DateTime))
                        If i = 0 Then
                            Me.textdatum4zv.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.textdatum4zv.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.textdatum4zv.Text = Me.txtdatum4zv.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.textdatum4zv.Text, "heute") > 0 Then Me.cbzvrollend4.Checked = True
                End If
        End Select
    End Sub

    Private Sub cbrollend1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbrollend6.CheckedChanged, cbrollend5.CheckedChanged, cbrollend4.CheckedChanged, cbrollend3.CheckedChanged, cbrollend2.CheckedChanged, cbrollend1.CheckedChanged, cbrollend8.CheckedChanged, cbrollend9.CheckedChanged, cbuvmrollend1.CheckedChanged, cbuvmrollend2.CheckedChanged, cbuvmrollend3.CheckedChanged, cbuvmrollend4.CheckedChanged, cbzvrollend1.CheckedChanged, cbzvrollend2.CheckedChanged, cbzvrollend3.CheckedChanged, cbzvrollend4.CheckedChanged
        Dim cb As CheckBox
        cb = sender
        Select Case cb.Name
            Case "cbrollend1"
                txtdatum1_TextChanged(Me.txtdatum1, e)
            Case "cbrollend2"
                txtdatum1_TextChanged(Me.txtdatum2, e)
            Case "cbrollend3"
                txtdatum1_TextChanged(Me.txtdatum3, e)
            Case "cbrollend4"
                txtdatum1_TextChanged(Me.txtdatum4, e)
            Case "cbrollend5"
                txtdatum1_TextChanged(Me.txtdatum5, e)
            Case "cbrollend6"
                txtdatum1_TextChanged(Me.txtdatum6, e)
            Case "cbrollend8"
                txtdatum1_TextChanged(Me.HostDatum1, e)
            Case "cbrollend9"
                txtdatum1_TextChanged(Me.HostDatum2, e)
                'Rel 3.7 / BUD
                'Case "cbuvmrollend1"
                '    txtdatum1_TextChanged(Me.txtdatum1uvm, e)
                'Case "cbuvmrollend2"
                '    txtdatum1_TextChanged(Me.txtdatum2uvm, e)
                'Case "cbuvmrollend3"
                '    txtdatum1_TextChanged(Me.txtdatum3uvm, e)
                'Case "cbuvmrollend4"
                '    txtdatum1_TextChanged(Me.txtdatum4uvm, e)
            Case "cbzvrollend1"
                txtdatum1_TextChanged(Me.txtdatum1zv, e)
            Case "cbzvrollend2"
                txtdatum1_TextChanged(Me.txtdatum2zv, e)
            Case "cbzvrollend3"
                txtdatum1_TextChanged(Me.txtdatum3zv, e)
            Case "cbzvrollend4"
                txtdatum1_TextChanged(Me.txtdatum4zv, e)
        End Select
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Me.txtdatum2.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Me.txtdatum1.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Me.txtdatum4.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Me.txtdatum5.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Me.txtdatum6.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Me.txtdatum3.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Me.HostDatum1.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Me.HostDatum2.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        Me.txtdatum1zv.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        Me.txtdatum2zv.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        Me.txtdatum3zv.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Me.txtdatum4zv.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        Me.txtdatum1uvm.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        Me.txtdatum2uvm.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        Me.txtdatum3uvm.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        Me.txtdatum4uvm.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Try
            Dim tn As New TreeNode()
            Dim tn1 As New TreeNode()
            DivFnkt.Searchnode1(Me.TreeView1, 54, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.TextBox6.Text)
                tn1.Tag = Me.TextBox6.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.TextBox6.Text = ""
                Me.changes = True

            End If
        Catch
        End Try
    End Sub

    Private Sub TextBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox6.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Button20_Click(sender, e)
        End If
    End Sub

    Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Button9_Click(sender, e)
        End If
    End Sub

    Private Sub TextBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Button10_Click(sender, e)
        End If
    End Sub

    Private Sub init_profile()
        Dim i As Integer
        For i = 11 To 15
            del_entry(i)
            del_entry(i + 10)
            del_entry(i + 20)
        Next
        del_entry(41)
        del_entry(43)
        del_entry(44)
        del_entry(53)
        del_entry(54)
        del_entry(51)
        del_entry(58)
        del_entry(59)
        del_entry(71)
        del_entry(73)
        del_entry(74)
        del_entry(75)
        del_entry(76)
        del_entry(77)
        del_entry(78)
        del_entry(79)
        del_entry(80)
        del_entry(81)
        del_entry(82)
        del_entry(83)
        del_entry(84)
        del_entry(91)
        del_entry(93)
        del_entry(94)

        Me.LBSelectHost.Items.Clear()
        Me.lbselect.Items.Clear()
        Me.cinklalt.Checked = False
        Me.cinklaltversant.Checked = False
        Me.txtdatum1.Text = ""
        Me.cbrollend1.Checked = False
        Me.txtdatum2.Text = ""
        Me.cbrollend2.Checked = True

        Me.txtdatum3.Text = ""
        Me.cbrollend3.Checked = False
        Me.txtdatum4.Text = ""
        Me.cbrollend4.Checked = True
        Me.txtdatum5.Text = ""
        Me.cbrollend5.Checked = False
        Me.txtdatum6.Text = ""
        Me.cbrollend6.Checked = True

        Me.HostDatum1.Text = ""
        Me.cbrollend8.Checked = False
        Me.HostDatum2.Text = ""
        Me.cbrollend9.Checked = True

        'Rel 3.7 / BUD
        'Me.txtdatum1uvm.Text = ""
        'Me.txtdatum2uvm.Text = ""
        'Me.txtdatum3uvm.Text = ""
        'Me.txtdatum4uvm.Text = ""
        'Me.cbuvmrollend1.Checked = False
        'Me.cbuvmrollend2.Checked = True
        'Me.cbuvmrollend3.Checked = False
        'Me.cbuvmrollend4.Checked = True

        Me.txtdatum1zv.Text = ""
        Me.txtdatum2zv.Text = ""
        Me.txtdatum3zv.Text = ""
        Me.txtdatum4zv.Text = ""
        Me.cbzvrollend1.Checked = False
        Me.cbzvrollend2.Checked = True
        Me.cbzvrollend3.Checked = False
        Me.cbzvrollend4.Checked = True

        Try
            Dim tmpdate As DateTime
            tmpdate = DateAdd(DateInterval.Day, -180, Now)
            Me.txtdatum1zv.Text = tmpdate.ToShortDateString
        Catch
        End Try
        reset_dokart()


        reset_color(60)
        reset_color(61)
        reset_color(62)
        reset_color(45)
        reset_color(55)
        reset_color(42)
        reset_color(52)
        Me.changes = True
        DivFnkt.Searchnode1(Me.TreeView1, 41, 99)
        If DivFnkt.found Then
            Me.TreeView1.SelectedNode = DivFnkt.FoundNode
        End If
        'hutter 20041014
        'Me.TreeView1.BeginUpdate()
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        'Rel 3.7 / BUD
        'nodeswithdata(90)
        nodeswithdata(72)
        'Rel 3.7 / BUD
        'nodeswithdata(92)


        'hutter 20041014
        'Me.TreeView1.EndUpdate()
    End Sub

    Private Sub init_datumzvuvm()
        Me.txtdatum1zv.Text = Now.ToShortDateString
        'Rel 3.7 / BUD
        'Me.txtdatum1uvm.Text = Now.ToShortDateString
        'Me.cbuvmrollend1.Checked = True
        Me.cbzvrollend1.Checked = True

        DivFnkt.Searchnode1(Me.TreeView1, 72, 99)
        DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
        DivFnkt.FoundNode.Parent.ExpandAll()

        'Rel 3.7 / BUD
        'DivFnkt.Searchnode1(Me.TreeView1, 92, 99)
        'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
        'DivFnkt.FoundNode.Parent.ExpandAll()
    End Sub

    Private Sub del_entry(ByVal node As Integer)
        Dim tn As TreeNode
        DivFnkt.Searchnode1(Me.TreeView1, node, 99)
        If DivFnkt.found Then
            Me.TreeView1.SelectedNode = DivFnkt.FoundNode
            Try
                tn = Me.TreeView1.SelectedNode
                While tn.GetNodeCount(True) > 0
                    tn.Nodes(0).Remove()
                End While
                tn.ForeColor = System.Drawing.Color.Black
            Catch
            End Try

        End If
    End Sub

    Private Sub reset_color(ByVal node As Integer)
        Dim tn As TreeNode
        DivFnkt.Searchnode1(Me.TreeView1, node, 99)
        If DivFnkt.found Then
            Me.TreeView1.SelectedNode = DivFnkt.FoundNode
            Try
                tn = Me.TreeView1.SelectedNode
                tn.ForeColor = System.Drawing.Color.Black
            Catch
            End Try
        End If
    End Sub

    Private Sub reset_dokart()
        Dim tmptreeview As TreeView
        tmptreeview = Me.TVDokart
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
        tmptreeview = Me.TVHostDok
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While

    End Sub

    Private Function nodeswithdata(ByVal node As Integer) As Boolean
        If node <> 70 And node <> 90 Then
            DivFnkt.Searchnode1(Me.TreeView1, node, 99)
            If DivFnkt.FoundNode.GetNodeCount(True) < 6 Then DivFnkt.FoundNode.Collapse()
        End If
        If node = 70 Then
            DivFnkt.Searchnode1(Me.TreeView1, node, 99)
            If DivFnkt.FoundNode.GetNodeCount(True) < 15 Then DivFnkt.FoundNode.Collapse()
        End If
        If node = 90 Then
            DivFnkt.Searchnode1(Me.TreeView1, node, 99)
            If DivFnkt.FoundNode.GetNodeCount(True) < 4 Then DivFnkt.FoundNode.Collapse()
        End If
        If node = 72 Then
            If expandzv Then
                DivFnkt.Searchnode1(Me.TreeView1, 70, 99)
                If DivFnkt.found = True Then DivFnkt.FoundNode.Expand()
            End If
        End If
        'Rel 3.7 / BUD
        'If node = 92 Then
        '    If expanduvm Then
        '        DivFnkt.Searchnode1(Me.TreeView1, 90, 99)
        '        If DivFnkt.found = True Then DivFnkt.FoundNode.Expand()
        '    End If
        'End If
    End Function

    Private Sub set_tips()
    End Sub

    Private Sub DateTimePicker1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.Enter, _
    DateTimePicker2.Enter, DateTimePicker3.Enter, DateTimePicker4.Enter, DateTimePicker5.Enter, DateTimePicker6.Enter, DateTimePicker8.Enter, DateTimePicker9.Enter, DateTimePicker13.Enter, DateTimePicker14.Enter, _
    DateTimePicker15.Enter, DateTimePicker16.Enter, DateTimePicker17.Enter, DateTimePicker18.Enter, DateTimePicker19.Enter, DateTimePicker20.Enter
        Dim dp As DateTimePicker
        Dim D As Date
        dp = sender
        Select Case UCase(dp.Name)
            Case "DATETIMEPICKER1"
                If Me.txtdatum1.Text <> "" Then
                    D = CType(Me.txtdatum1.Text, Date)
                    Me.DateTimePicker1.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker1.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER2"
                If Me.txtdatum2.Text <> "" Then
                    D = CType(Me.txtdatum2.Text, Date)
                    Me.DateTimePicker2.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker2.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER3"
                If Me.txtdatum3.Text <> "" Then
                    D = CType(Me.txtdatum3.Text, Date)
                    Me.DateTimePicker3.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker3.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER4"
                If Me.txtdatum4.Text <> "" Then
                    D = CType(Me.txtdatum4.Text, Date)
                    Me.DateTimePicker4.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker4.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER5"
                If Me.txtdatum5.Text <> "" Then
                    D = CType(Me.txtdatum5.Text, Date)
                    Me.DateTimePicker5.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker5.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER6"
                If Me.txtdatum6.Text <> "" Then
                    D = CType(Me.txtdatum6.Text, Date)
                    Me.DateTimePicker6.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker6.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER8"
                If Me.HostDatum2.Text <> "" Then
                    D = CType(Me.HostDatum2.Text, Date)
                    Me.DateTimePicker8.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker8.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER9"
                If Me.HostDatum1.Text <> "" Then
                    D = CType(Me.HostDatum1.Text, Date)
                    Me.DateTimePicker9.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker9.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER13"
                If Me.txtdatum3zv.Text <> "" Then
                    D = CType(Me.txtdatum3zv.Text, Date)
                    Me.DateTimePicker13.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker13.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER14"
                If Me.txtdatum1zv.Text <> "" Then
                    D = CType(Me.txtdatum1zv.Text, Date)
                    Me.DateTimePicker14.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker14.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER15"
                If Me.txtdatum2zv.Text <> "" Then
                    D = CType(Me.txtdatum2zv.Text, Date)
                    Me.DateTimePicker15.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker15.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER16"
                If Me.txtdatum4zv.Text <> "" Then
                    D = CType(Me.txtdatum4zv.Text, Date)
                    Me.DateTimePicker16.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker16.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER17"
                If Me.txtdatum3uvm.Text <> "" Then
                    D = CType(Me.txtdatum3uvm.Text, Date)
                    Me.DateTimePicker17.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker17.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER18"
                If Me.txtdatum1uvm.Text <> "" Then
                    D = CType(Me.txtdatum1uvm.Text, Date)
                    Me.DateTimePicker18.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker18.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER19"
                If Me.txtdatum2uvm.Text <> "" Then
                    D = CType(Me.txtdatum2uvm.Text, Date)
                    Me.DateTimePicker19.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker19.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER20"
                If Me.txtdatum4uvm.Text <> "" Then
                    D = CType(Me.txtdatum4uvm.Text, Date)
                    Me.DateTimePicker20.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker20.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case Else
        End Select

    End Sub

    Private Sub TabControl2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl2.SelectedIndexChanged
        If On_Load = True Then Exit Sub
        If Me.TabControl2.SelectedIndex = 0 Then
            Me.GroupBox10.Visible = True
            Me.cinklalt.Visible = True
            Me.cinklaltversant.Visible = True
        Else
            Me.GroupBox10.Visible = False
            Me.cinklalt.Visible = False
            Me.cinklaltversant.Visible = False
        End If
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        Dim tn As New TreeNode()
        Dim tn1 As New TreeNode()
        Try
            DivFnkt.Searchnode1(Me.TreeView1, 93, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.txtuvmauftragnr.Text)
                tn1.Tag = Me.txtuvmauftragnr.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.txtuvmauftragnr.Text = ""
                Me.changes = True
            End If
        Catch
        End Try

    End Sub
    Private Sub txtuvmauftrag_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, txtuvmauftragnr.KeyDown
        If e.KeyCode = Keys.Return Then Button29_Click(sender, e)
    End Sub

    Private Sub btnzvauftragsnr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnzvauftragsnr.Click, btnzvreferenz.Click, btnzvposten.Click, _
    btnzvverarbeitungsart.Click, btnzvpcnr.Click, btnzvbeguenstiger.Click, btnzviso.Click, btnzvclearing.Click, btnzvzahlungsart.Click, btnzvbetrag.Click, btnzvswift.Click, _
    btnzvauftraggeber.Click
        Dim tn As New TreeNode()
        Dim tn1 As New TreeNode()
        Dim tb As Object
        Dim o As TextBox
        Dim t As String
        tb = sender
        Dim i As Integer = 0


        Select Case tb.Name
            Case "btnzvauftragsnr", "txtzvauftragsnr"
                i = 73
                o = Me.txtzvauftragsnr
            Case "btnzvauftraggeber", "txtzvauftraggeber"
                i = 74
                o = Me.txtzvauftraggeber
            Case "btnzvbetrag", "txtzvbetrag"
                i = 75
                o = Me.txtzvbetrag
            Case "btnzvclearing", "txtzvclearingnr"
                i = 76
                o = Me.txtzvclearingnr
            Case "btnzviso", "txtzviso"
                i = 77
                o = Me.txtzviso
            Case "btnzvbeguenstiger", "txtzvbeguenstigter"
                i = 78
                o = Me.txtzvbeguenstigter
            Case "btnzvpcnr", "txtzvpcnr"
                i = 79
                o = Me.txtzvpcnr
            Case "btnzvposten", "txtzvpostennr"
                i = 80
                o = Me.txtzvpostennr
            Case "btnzvreferenz", "txtzvrerenznr"
                i = 81
                o = Me.txtzvreferenznr
            Case "btnzvswift", "txtzvswift"
                i = 82
                o = Me.txtzvswift
            Case "btnzvverarbeitungsart", "txtzvverarbeitungsart"
                i = 83
                o = Me.txtzvverarbeitungsart
            Case "btnzvzahlungsart", "txtzvzahlungsart"
                i = 84
                o = Me.txtzvzahlungsart
            Case Else
                i = 0
        End Select
        Try
            If i > 0 Then
                DivFnkt.Searchnode1(Me.TreeView1, i, 99)
                If DivFnkt.found = True Then
                    tn = DivFnkt.FoundNode
                    tn1 = tn.Nodes.Add(o.Text)
                    tn1.Tag = o.Text
                    tn1.ForeColor = System.Drawing.Color.Red
                    tn1.ImageIndex = 4
                    tn1.SelectedImageIndex = 4
                    tn1.Parent.ExpandAll()
                    o.Text = ""
                    Me.changes = True
                End If
            End If
        Catch
        End Try
    End Sub

    Private Sub txtzvbetrag_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvbetrag.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvpostennr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvpostennr.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvverarbeitungsart_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvverarbeitungsart.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvzahlungsart_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvzahlungsart.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvswift_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvswift.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvbeguenstigter_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvbeguenstigter.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvreferenznr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvreferenznr.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzviso_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzviso.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvclearingnr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvclearingnr.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvauftragsnr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvauftragsnr.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvpcnr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvpcnr.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub txtzvauftraggeber_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtzvauftraggeber.KeyDown
        If e.KeyCode = Keys.Return Then btnzvauftragsnr_Click(sender, e)
    End Sub

    Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
        Globals.HTMLHelp.ShowHelpToc("profilverwaltung")
    End Sub

    Private Sub frmProfil_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.BtnHelp.Left = Me.ToolBar1.Width - Me.BtnHelp.Width
    End Sub

End Class