Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32

Public Class frmDokumentInfoEdit
    Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "



    ' 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 btnWeiter As System.Windows.Forms.Button
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    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 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 ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem
    Friend WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem
    Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
    Friend WithEvents DataSet2 As System.Data.DataSet
    Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
    Friend WithEvents DataSet3 As System.Data.DataSet
    Friend WithEvents DataSet4 As System.Data.DataSet
    Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox
    Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents RBZustaendigZustaendiger As System.Windows.Forms.RadioButton
    Friend WithEvents rbZustaendigKube As System.Windows.Forms.RadioButton
    Friend WithEvents cbzust As System.Windows.Forms.ComboBox
    Friend WithEvents cbKube As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
    Friend WithEvents cbPostzustellung As System.Windows.Forms.ComboBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
    Friend WithEvents cbVerantwortlich As System.Windows.Forms.ComboBox
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox
    Friend WithEvents txtPartnerInhaberNr As System.Windows.Forms.TextBox
    Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button
    Friend WithEvents txtPartnerZusteller As System.Windows.Forms.TextBox
    Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
    Friend WithEvents DokWertList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents cdokumentwerteanzeigen As System.Windows.Forms.CheckBox
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents MnuValueSelect As System.Windows.Forms.MenuItem
    Friend WithEvents ColdList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox
    Friend WithEvents txtZustelladresse As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox
    Friend WithEvents cbteam As System.Windows.Forms.ComboBox
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents txtAnredeZusteller As System.Windows.Forms.TextBox
    Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
    Friend WithEvents MnuDokZuordnungAdd As System.Windows.Forms.MenuItem
    Friend WithEvents MnuDokzuordnungDelete As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MnuShowDoc As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu
    Friend WithEvents mnuInfoEmpfaengerAdd As System.Windows.Forms.MenuItem
    Friend WithEvents mnuInfoEmpfaengerDelete As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu5 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu6 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu7 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu8 As System.Windows.Forms.ContextMenu
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents cbsave As System.Windows.Forms.ComboBox
    Friend WithEvents cbmoeglicheStati As System.Windows.Forms.ComboBox
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents txtstatus As System.Windows.Forms.Label
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents ZuordnungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox
    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
    Friend WithEvents InfoMeldungList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
    Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents pnlBerechtigungen As System.Windows.Forms.GroupBox
    Friend WithEvents DokumentFunktionenList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents cvertraulich As System.Windows.Forms.CheckBox
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents cGesperrt As System.Windows.Forms.CheckBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox
    Friend WithEvents DateTimePicker2 As C1.Win.C1Input.C1DateEdit
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents DateErinnerung As C1.Win.C1Input.C1DateEdit
    Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
    Friend WithEvents BtnHelp As System.Windows.Forms.Button
    Friend WithEvents btnLoeschen As System.Windows.Forms.Button
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentInfoEdit))
        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()
        Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines4 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines5 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines6 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines7 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem()
        Me.MnuEditNotiz = New System.Windows.Forms.MenuItem()
        Me.MnuDeleteNotiz = New System.Windows.Forms.MenuItem()
        Me.btnWeiter = New System.Windows.Forms.Button()
        Me.btnCancel = New System.Windows.Forms.Button()
        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.DataSet1 = New System.Data.DataSet()
        Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.DataSet2 = New System.Data.DataSet()
        Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
        Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
        Me.DataSet3 = New System.Data.DataSet()
        Me.DataSet4 = New System.Data.DataSet()
        Me.TabControl2 = New System.Windows.Forms.TabControl()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.GroupBox12 = New System.Windows.Forms.GroupBox()
        Me.cbteam = New System.Windows.Forms.ComboBox()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
        Me.DokWertList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.MnuValueSelect = New System.Windows.Forms.MenuItem()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox()
        Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton()
        Me.rbZustaendigKube = New System.Windows.Forms.RadioButton()
        Me.cbzust = New System.Windows.Forms.ComboBox()
        Me.cbKube = New System.Windows.Forms.ComboBox()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
        Me.cbPostzustellung = New System.Windows.Forms.ComboBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.ColdList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu7 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.TabPage5 = New System.Windows.Forms.TabPage()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.txtAnredeZusteller = New System.Windows.Forms.TextBox()
        Me.txtZustelladresse = New System.Windows.Forms.TextBox()
        Me.ContextMenu4 = New System.Windows.Forms.ContextMenu()
        Me.mnuInfoEmpfaengerAdd = New System.Windows.Forms.MenuItem()
        Me.mnuInfoEmpfaengerDelete = New System.Windows.Forms.MenuItem()
        Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
        Me.MnuDokZuordnungAdd = New System.Windows.Forms.MenuItem()
        Me.MnuDokzuordnungDelete = New System.Windows.Forms.MenuItem()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MnuShowDoc = New System.Windows.Forms.MenuItem()
        Me.ContextMenu6 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.cbVerantwortlich = New System.Windows.Forms.ComboBox()
        Me.ContextMenu5 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.cbdokumentstatus = New System.Windows.Forms.ComboBox()
        Me.txtPartnerInhaberNr = New System.Windows.Forms.TextBox()
        Me.txtBezeichnung = New System.Windows.Forms.TextBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.btnPartnerInhaber = New System.Windows.Forms.Button()
        Me.txtPartnerZusteller = New System.Windows.Forms.TextBox()
        Me.txtPartnerInhaber = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.cdokumentwerteanzeigen = New System.Windows.Forms.CheckBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.ContextMenu8 = New System.Windows.Forms.ContextMenu()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.cbsave = New System.Windows.Forms.ComboBox()
        Me.cbmoeglicheStati = New System.Windows.Forms.ComboBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.txtstatus = New System.Windows.Forms.Label()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.GroupBox14 = New System.Windows.Forms.GroupBox()
        Me.DateErinnerung = New C1.Win.C1Input.C1DateEdit()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.DateTimePicker2 = New C1.Win.C1Input.C1DateEdit()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
        Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
        Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
        Me.InfoMeldungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
        Me.ZuordnungList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
        Me.txtBemerkung = New System.Windows.Forms.TextBox()
        Me.TabPage6 = New System.Windows.Forms.TabPage()
        Me.GroupBox15 = New System.Windows.Forms.GroupBox()
        Me.btnLoeschen = New System.Windows.Forms.Button()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.pnlBerechtigungen = New System.Windows.Forms.GroupBox()
        Me.DokumentFunktionenList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.cvertraulich = New System.Windows.Forms.CheckBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.cGesperrt = New System.Windows.Forms.CheckBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.BtnHelp = New System.Windows.Forms.Button()
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabControl2.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.GroupBox12.SuspendLayout()
        Me.GroupBox10.SuspendLayout()
        CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.TabPage4.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        CType(Me.ColdList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox4.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.GroupBox11.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.GroupBox14.SuspendLayout()
        CType(Me.DateErinnerung, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox8.SuspendLayout()
        CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox7.SuspendLayout()
        CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox6.SuspendLayout()
        CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox13.SuspendLayout()
        Me.TabPage6.SuspendLayout()
        Me.GroupBox15.SuspendLayout()
        Me.pnlBerechtigungen.SuspendLayout()
        CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox9.SuspendLayout()
        Me.SuspendLayout()
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeueNotiz, Me.MnuEditNotiz, Me.MnuDeleteNotiz})
        '
        'MnuNeueNotiz
        '
        Me.MnuNeueNotiz.Index = 0
        Me.MnuNeueNotiz.Text = "&Neue Notiz"
        '
        'MnuEditNotiz
        '
        Me.MnuEditNotiz.Index = 1
        Me.MnuEditNotiz.Text = "&Notiz bearbeiten"
        '
        'MnuDeleteNotiz
        '
        Me.MnuDeleteNotiz.Index = 2
        Me.MnuDeleteNotiz.Text = "Notiz &löschen"
        '
        'btnWeiter
        '
        Me.btnWeiter.Location = New System.Drawing.Point(696, 496)
        Me.btnWeiter.Name = "btnWeiter"
        Me.btnWeiter.Size = New System.Drawing.Size(104, 23)
        Me.btnWeiter.TabIndex = 7
        Me.btnWeiter.Text = "&Speichern"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(40, 496)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(104, 23)
        Me.btnCancel.TabIndex = 8
        Me.btnCancel.Text = "&Abbruch"
        '
        '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", "SP_Dokumentbearbeitung_Dokumentwerte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("Feldwert", "Feldwert")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[NewDeleteCommand]"
        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(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", 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), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", 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), "", 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(10, Byte), CType(0, Byte), "", 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(10, Byte), CType(0, Byte), "", 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), "", 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 = "[NewInsertCommand]"
        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(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[SP_Dokumentbearbeitung_Dokumentwerte]"
        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(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokumentid", System.Data.SqlDbType.VarChar, 20))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CreateNew", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "[NewUpdateCommand]"
        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(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8))
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'SqlDataAdapter2
        '
        Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
        Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
        Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
        Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Postzustellung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), 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")})})
        Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
        '
        'SqlDeleteCommand2
        '
        Me.SqlDeleteCommand2.CommandText = "[pv_postzustellung_delete]"
        Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand2.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.SqlDeleteCommand2.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.SqlDeleteCommand2.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.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand2
        '
        Me.SqlInsertCommand2.CommandText = "[pv_postzustellung_insert]"
        Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlInsertCommand2.Connection = Me.SqlConnection1
        Me.SqlInsertCommand2.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.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "[pv_postzustellung_select]"
        Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        Me.SqlSelectCommand2.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.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "[pv_postzustellung_update]"
        Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "sprache"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.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.SqlUpdateCommand2.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.SqlUpdateCommand2.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.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag"))
        '
        'DataSet2
        '
        Me.DataSet2.DataSetName = "NewDataSet"
        Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'SqlDataAdapter3
        '
        Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
        Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
        Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
        Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
        Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
        '
        'SqlDeleteCommand3
        '
        Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_aktiv_delete]"
        Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand3.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.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand3
        '
        Me.SqlInsertCommand3.CommandText = "[pv_funktionsgruppe_aktiv_insert]"
        Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlInsertCommand3.Connection = Me.SqlConnection1
        Me.SqlInsertCommand3.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.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        '
        'SqlSelectCommand3
        '
        Me.SqlSelectCommand3.CommandText = "[pv_funktionsgruppe_aktiv_select]"
        Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand3.Connection = Me.SqlConnection1
        Me.SqlSelectCommand3.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.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        '
        'SqlUpdateCommand3
        '
        Me.SqlUpdateCommand3.CommandText = "[pv_funktionsgruppe_aktiv_update]"
        Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand3.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.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet3
        '
        Me.DataSet3.DataSetName = "NewDataSet"
        Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'DataSet4
        '
        Me.DataSet4.DataSetName = "NewDataSet"
        Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'TabControl2
        '
        Me.TabControl2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage3, Me.TabPage4, Me.TabPage5, Me.TabPage1})
        Me.TabControl2.Enabled = False
        Me.TabControl2.Location = New System.Drawing.Point(8, 552)
        Me.TabControl2.Name = "TabControl2"
        Me.TabControl2.SelectedIndex = 0
        Me.TabControl2.Size = New System.Drawing.Size(800, 232)
        Me.TabControl2.TabIndex = 27
        Me.TabControl2.Visible = False
        '
        'TabPage3
        '
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox12, Me.GroupBox10, Me.GroupBox3, Me.GroupBox1, Me.GroupBox2})
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(792, 206)
        Me.TabPage3.TabIndex = 0
        Me.TabPage3.Text = "Dokumentinhalt"
        '
        'GroupBox12
        '
        Me.GroupBox12.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbteam})
        Me.GroupBox12.Location = New System.Drawing.Point(8, 304)
        Me.GroupBox12.Name = "GroupBox12"
        Me.GroupBox12.Size = New System.Drawing.Size(368, 16)
        Me.GroupBox12.TabIndex = 38
        Me.GroupBox12.TabStop = False
        Me.GroupBox12.Text = "Team"
        Me.GroupBox12.Visible = False
        '
        'cbteam
        '
        Me.cbteam.Location = New System.Drawing.Point(128, 16)
        Me.cbteam.Name = "cbteam"
        Me.cbteam.Size = New System.Drawing.Size(232, 21)
        Me.cbteam.TabIndex = 14
        Me.cbteam.Visible = False
        '
        'GroupBox10
        '
        Me.GroupBox10.Controls.AddRange(New System.Windows.Forms.Control() {Me.DokWertList})
        Me.GroupBox10.Location = New System.Drawing.Point(384, 8)
        Me.GroupBox10.Name = "GroupBox10"
        Me.GroupBox10.Size = New System.Drawing.Size(400, 312)
        Me.GroupBox10.TabIndex = 37
        Me.GroupBox10.TabStop = False
        Me.GroupBox10.Text = "Dokumentspezifisch"
        '
        'DokWertList
        '
        Me.DokWertList.AllowFilter = False
        Me.DokWertList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.DokWertList.AllowSort = False
        Me.DokWertList.AlternatingRows = True
        Me.DokWertList.CaptionHeight = 17
        Me.DokWertList.CollapseColor = System.Drawing.Color.Black
        Me.DokWertList.ContextMenu = Me.ContextMenu2
        Me.DokWertList.DataChanged = False
        Me.DokWertList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.DokWertList.ExpandColor = System.Drawing.Color.Black
        Me.DokWertList.GroupByCaption = "Drag a column header here to group by that column"
        Me.DokWertList.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.DokWertList.Location = New System.Drawing.Point(8, 16)
        Me.DokWertList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.DokWertList.Name = "DokWertList"
        Me.DokWertList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.DokWertList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.DokWertList.PreviewInfo.ZoomFactor = 75
        Me.DokWertList.PrintInfo.ShowOptionsDialog = False
        Me.DokWertList.RecordSelectorWidth = 16
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.DokWertList.RowDivider = GridLines1
        Me.DokWertList.RowHeight = 15
        Me.DokWertList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.DokWertList.ScrollTips = False
        Me.DokWertList.Size = New System.Drawing.Size(384, 288)
        Me.DokWertList.TabIndex = 14
        Me.DokWertList.Text = "C1TrueDBGrid1"
        Me.DokWertList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cen" & _
        "ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
        "ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
        "ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
        "ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
        "></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""Tr" & _
        "ue"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeS" & _
        "tyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScr" & _
        "ollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 380, 284</ClientRect><B" & _
        "orderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyl" & _
        "e parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><Fi" & _
        "lterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""" & _
        "Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Headin" & _
        "g"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><Inactiv" & _
        "eStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" " & _
        "/><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle par" & _
        "ent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1Tru" & _
        "eDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style pa" & _
        "rent=""Normal"" me=""Heading"" /><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=""Nor" & _
        "mal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""No" & _
        "rmal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=" & _
        """Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><ve" & _
        "rtSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><Defau" & _
        "ltRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 380, 284</ClientArea></Bl" & _
        "ob>"
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuValueSelect})
        '
        'MnuValueSelect
        '
        Me.MnuValueSelect.Index = 0
        Me.MnuValueSelect.Text = "&Wert auswählen"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbUnterschriftrechts, Me.cbUnterschriftlinks, Me.Label8, Me.Label7})
        Me.GroupBox3.Location = New System.Drawing.Point(8, 296)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(368, 24)
        Me.GroupBox3.TabIndex = 36
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Unterschrift"
        Me.GroupBox3.Visible = False
        '
        'cbUnterschriftrechts
        '
        Me.cbUnterschriftrechts.Location = New System.Drawing.Point(128, 43)
        Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts"
        Me.cbUnterschriftrechts.Size = New System.Drawing.Size(232, 21)
        Me.cbUnterschriftrechts.TabIndex = 13
        Me.cbUnterschriftrechts.Visible = False
        '
        'cbUnterschriftlinks
        '
        Me.cbUnterschriftlinks.Location = New System.Drawing.Point(128, 19)
        Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks"
        Me.cbUnterschriftlinks.Size = New System.Drawing.Size(232, 21)
        Me.cbUnterschriftlinks.TabIndex = 12
        Me.cbUnterschriftlinks.Visible = False
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(8, 48)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(96, 23)
        Me.Label8.TabIndex = 14
        Me.Label8.Text = "Unterschrift rechts"
        Me.Label8.Visible = False
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 24)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(96, 23)
        Me.Label7.TabIndex = 13
        Me.Label7.Text = "Unterschrift links"
        Me.Label7.Visible = False
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.RBZustaendigZustaendiger, Me.rbZustaendigKube, Me.cbzust, Me.cbKube})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 296)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(368, 24)
        Me.GroupBox1.TabIndex = 35
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Zuständigkeit"
        Me.GroupBox1.Visible = False
        '
        'RBZustaendigZustaendiger
        '
        Me.RBZustaendigZustaendiger.Location = New System.Drawing.Point(14, 42)
        Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger"
        Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24)
        Me.RBZustaendigZustaendiger.TabIndex = 10
        Me.RBZustaendigZustaendiger.Text = "Zuständiger"
        Me.RBZustaendigZustaendiger.Visible = False
        '
        'rbZustaendigKube
        '
        Me.rbZustaendigKube.Location = New System.Drawing.Point(14, 18)
        Me.rbZustaendigKube.Name = "rbZustaendigKube"
        Me.rbZustaendigKube.Size = New System.Drawing.Size(106, 24)
        Me.rbZustaendigKube.TabIndex = 8
        Me.rbZustaendigKube.Text = "Kundenberater"
        Me.rbZustaendigKube.Visible = False
        '
        'cbzust
        '
        Me.cbzust.Location = New System.Drawing.Point(128, 47)
        Me.cbzust.Name = "cbzust"
        Me.cbzust.Size = New System.Drawing.Size(232, 21)
        Me.cbzust.TabIndex = 11
        Me.cbzust.Visible = False
        '
        'cbKube
        '
        Me.cbKube.Location = New System.Drawing.Point(128, 21)
        Me.cbKube.Name = "cbKube"
        Me.cbKube.Size = New System.Drawing.Size(232, 21)
        Me.cbKube.TabIndex = 9
        Me.cbKube.Visible = False
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.DateTimePicker1, Me.cbPostzustellung, Me.Label5, Me.Label3})
        Me.GroupBox2.Location = New System.Drawing.Point(8, 296)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(368, 16)
        Me.GroupBox2.TabIndex = 6
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Allgemein"
        Me.GroupBox2.Visible = False
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker1.Location = New System.Drawing.Point(128, 48)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20)
        Me.DateTimePicker1.TabIndex = 7
        Me.DateTimePicker1.Visible = False
        '
        'cbPostzustellung
        '
        Me.cbPostzustellung.Location = New System.Drawing.Point(128, 24)
        Me.cbPostzustellung.Name = "cbPostzustellung"
        Me.cbPostzustellung.Size = New System.Drawing.Size(232, 21)
        Me.cbPostzustellung.TabIndex = 6
        Me.cbPostzustellung.Visible = False
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 48)
        Me.Label5.Name = "Label5"
        Me.Label5.TabIndex = 11
        Me.Label5.Text = "Dokument-Datum"
        Me.Label5.Visible = False
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 24)
        Me.Label3.Name = "Label3"
        Me.Label3.TabIndex = 10
        Me.Label3.Text = "Post-Zustellung"
        Me.Label3.Visible = False
        '
        'TabPage4
        '
        Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox5, Me.GroupBox4})
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(792, 206)
        Me.TabPage4.TabIndex = 1
        Me.TabPage4.Text = "Zusammenhänge"
        Me.TabPage4.Visible = False
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.ColdList})
        Me.GroupBox5.Location = New System.Drawing.Point(384, 8)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(400, 100)
        Me.GroupBox5.TabIndex = 1
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Dokumente ersetzen"
        '
        'ColdList
        '
        Me.ColdList.AllowFilter = True
        Me.ColdList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.ColdList.AllowSort = True
        Me.ColdList.AllowUpdate = False
        Me.ColdList.AlternatingRows = True
        Me.ColdList.CaptionHeight = 17
        Me.ColdList.CollapseColor = System.Drawing.Color.Black
        Me.ColdList.ContextMenu = Me.ContextMenu7
        Me.ColdList.DataChanged = False
        Me.ColdList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.ColdList.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ColdList.ExpandColor = System.Drawing.Color.Black
        Me.ColdList.GroupByCaption = "Drag a column header here to group by that column"
        Me.ColdList.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
        Me.ColdList.Location = New System.Drawing.Point(3, 16)
        Me.ColdList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.ColdList.Name = "ColdList"
        Me.ColdList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.ColdList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.ColdList.PreviewInfo.ZoomFactor = 75
        Me.ColdList.PrintInfo.ShowOptionsDialog = False
        Me.ColdList.RecordSelectorWidth = 16
        GridLines2.Color = System.Drawing.Color.DarkGray
        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.ColdList.RowDivider = GridLines2
        Me.ColdList.RowHeight = 15
        Me.ColdList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.ColdList.ScrollTips = False
        Me.ColdList.Size = New System.Drawing.Size(394, 81)
        Me.ColdList.TabIndex = 0
        Me.ColdList.Text = "C1TrueDBGrid1"
        Me.ColdList.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"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
        "elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
        " 390, 77</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=" & _
        """Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Eve" & _
        "nRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSty" & _
        "le parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Head" & _
        "ingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow""" & _
        " me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle paren" & _
        "t=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style1" & _
        "1"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""S" & _
        "tyle1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" " & _
        "me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""" & _
        "Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Ina" & _
        "ctive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edito" & _
        "r"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenR" & _
        "ow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSel" & _
        "ector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gro" & _
        "up"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>" & _
        "None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 390, 7" & _
        "7</ClientArea></Blob>"
        '
        'ContextMenu7
        '
        Me.ContextMenu7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6})
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 0
        Me.MenuItem5.Text = "&Dokument auswählen"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 1
        Me.MenuItem6.Text = "Dokument entfernen"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label20, Me.DateTimePicker3, Me.Label10})
        Me.GroupBox4.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(368, 200)
        Me.GroupBox4.TabIndex = 0
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Allgemein"
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(8, 72)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(80, 23)
        Me.Label20.TabIndex = 35
        Me.Label20.Text = "Bemerkung"
        '
        'DateTimePicker3
        '
        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24)
        Me.DateTimePicker3.Name = "DateTimePicker3"
        Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker3.TabIndex = 18
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(8, 24)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(80, 23)
        Me.Label10.TabIndex = 34
        Me.Label10.Text = "Archiv-Datum"
        '
        'TabPage5
        '
        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.Size = New System.Drawing.Size(792, 206)
        Me.TabPage5.TabIndex = 2
        Me.TabPage5.Text = "Notizen / Rechte"
        Me.TabPage5.Visible = False
        '
        'TabPage1
        '
        Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.GroupBox11})
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(792, 206)
        Me.TabPage1.TabIndex = 3
        Me.TabPage1.Text = "Zustelladresse"
        '
        'Button2
        '
        Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Bitmap)
        Me.Button2.Location = New System.Drawing.Point(312, 13)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(24, 23)
        Me.Button2.TabIndex = 3
        '
        'GroupBox11
        '
        Me.GroupBox11.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label13, Me.txtAnredeZusteller, Me.txtZustelladresse})
        Me.GroupBox11.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox11.Name = "GroupBox11"
        Me.GroupBox11.Size = New System.Drawing.Size(296, 200)
        Me.GroupBox11.TabIndex = 0
        Me.GroupBox11.TabStop = False
        Me.GroupBox11.Text = "Zustelladresse"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(8, 150)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(192, 16)
        Me.Label13.TabIndex = 2
        Me.Label13.Text = "Anrede (z.B.: Herr Muster)"
        '
        'txtAnredeZusteller
        '
        Me.txtAnredeZusteller.Location = New System.Drawing.Point(8, 168)
        Me.txtAnredeZusteller.Name = "txtAnredeZusteller"
        Me.txtAnredeZusteller.Size = New System.Drawing.Size(280, 20)
        Me.txtAnredeZusteller.TabIndex = 1
        Me.txtAnredeZusteller.Text = ""
        '
        'txtZustelladresse
        '
        Me.txtZustelladresse.Location = New System.Drawing.Point(8, 16)
        Me.txtZustelladresse.Multiline = True
        Me.txtZustelladresse.Name = "txtZustelladresse"
        Me.txtZustelladresse.Size = New System.Drawing.Size(280, 128)
        Me.txtZustelladresse.TabIndex = 0
        Me.txtZustelladresse.Text = "TextBox1"
        '
        'ContextMenu4
        '
        Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInfoEmpfaengerAdd, Me.mnuInfoEmpfaengerDelete})
        '
        'mnuInfoEmpfaengerAdd
        '
        Me.mnuInfoEmpfaengerAdd.Index = 0
        Me.mnuInfoEmpfaengerAdd.Text = "Neuer Info-Empfänger"
        '
        'mnuInfoEmpfaengerDelete
        '
        Me.mnuInfoEmpfaengerDelete.Index = 1
        Me.mnuInfoEmpfaengerDelete.Text = "Info-Empfänger löschen"
        '
        'ContextMenu3
        '
        Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungAdd, Me.MnuDokzuordnungDelete, Me.MenuItem1, Me.MnuShowDoc})
        '
        'MnuDokZuordnungAdd
        '
        Me.MnuDokZuordnungAdd.Index = 0
        Me.MnuDokZuordnungAdd.Text = "Dokument hinzufügen"
        '
        'MnuDokzuordnungDelete
        '
        Me.MnuDokzuordnungDelete.Index = 1
        Me.MnuDokzuordnungDelete.Text = "Dokument entfernen"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 2
        Me.MenuItem1.Text = "-"
        '
        'MnuShowDoc
        '
        Me.MnuShowDoc.Index = 3
        Me.MnuShowDoc.Text = "Dokument anzeigen"
        '
        'ContextMenu6
        '
        Me.ContextMenu6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4})
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 0
        Me.MenuItem3.Text = "Berechtigungseinschränkung hinzufügen"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 1
        Me.MenuItem4.Text = "Berechtigungseinschränkung entfernen"
        '
        'cbVerantwortlich
        '
        Me.cbVerantwortlich.ContextMenu = Me.ContextMenu5
        Me.cbVerantwortlich.ItemHeight = 13
        Me.cbVerantwortlich.Location = New System.Drawing.Point(520, 64)
        Me.cbVerantwortlich.Name = "cbVerantwortlich"
        Me.cbVerantwortlich.Size = New System.Drawing.Size(240, 21)
        Me.cbVerantwortlich.TabIndex = 4
        Me.cbVerantwortlich.Visible = False
        '
        'ContextMenu5
        '
        Me.ContextMenu5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "&Berechtigte Mitarbeiter"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(416, 64)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(88, 23)
        Me.Label17.TabIndex = 44
        Me.Label17.Text = "Verantwortlicher"
        Me.Label17.Visible = False
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(416, 40)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(96, 23)
        Me.Label16.TabIndex = 43
        Me.Label16.Text = "Dokumentstatus"
        Me.Label16.Visible = False
        '
        'cbdokumentstatus
        '
        Me.cbdokumentstatus.ItemHeight = 13
        Me.cbdokumentstatus.Location = New System.Drawing.Point(520, 40)
        Me.cbdokumentstatus.Name = "cbdokumentstatus"
        Me.cbdokumentstatus.Size = New System.Drawing.Size(264, 21)
        Me.cbdokumentstatus.TabIndex = 4
        Me.cbdokumentstatus.Visible = False
        '
        'txtPartnerInhaberNr
        '
        Me.txtPartnerInhaberNr.Location = New System.Drawing.Point(16, 72)
        Me.txtPartnerInhaberNr.Name = "txtPartnerInhaberNr"
        Me.txtPartnerInhaberNr.ReadOnly = True
        Me.txtPartnerInhaberNr.Size = New System.Drawing.Size(176, 20)
        Me.txtPartnerInhaberNr.TabIndex = 42
        Me.txtPartnerInhaberNr.Text = ""
        Me.txtPartnerInhaberNr.Visible = False
        '
        'txtBezeichnung
        '
        Me.txtBezeichnung.Location = New System.Drawing.Point(520, 16)
        Me.txtBezeichnung.Name = "txtBezeichnung"
        Me.txtBezeichnung.ReadOnly = True
        Me.txtBezeichnung.Size = New System.Drawing.Size(264, 20)
        Me.txtBezeichnung.TabIndex = 3
        Me.txtBezeichnung.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(416, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.TabIndex = 38
        Me.Label4.Text = "Bezeichnung"
        '
        'btnPartnerInhaber
        '
        Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Bitmap)
        Me.btnPartnerInhaber.Location = New System.Drawing.Point(352, 64)
        Me.btnPartnerInhaber.Name = "btnPartnerInhaber"
        Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24)
        Me.btnPartnerInhaber.TabIndex = 2
        Me.btnPartnerInhaber.Visible = False
        '
        'txtPartnerZusteller
        '
        Me.txtPartnerZusteller.Location = New System.Drawing.Point(112, 40)
        Me.txtPartnerZusteller.Name = "txtPartnerZusteller"
        Me.txtPartnerZusteller.ReadOnly = True
        Me.txtPartnerZusteller.Size = New System.Drawing.Size(240, 20)
        Me.txtPartnerZusteller.TabIndex = 1
        Me.txtPartnerZusteller.Text = ""
        '
        'txtPartnerInhaber
        '
        Me.txtPartnerInhaber.Location = New System.Drawing.Point(112, 16)
        Me.txtPartnerInhaber.Name = "txtPartnerInhaber"
        Me.txtPartnerInhaber.ReadOnly = True
        Me.txtPartnerInhaber.Size = New System.Drawing.Size(240, 20)
        Me.txtPartnerInhaber.TabIndex = 0
        Me.txtPartnerInhaber.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.TabIndex = 34
        Me.Label2.Text = "Partner-Zusteller"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.TabIndex = 33
        Me.Label1.Text = "Partner-Inhaber"
        '
        'cdokumentwerteanzeigen
        '
        Me.cdokumentwerteanzeigen.Location = New System.Drawing.Point(528, 496)
        Me.cdokumentwerteanzeigen.Name = "cdokumentwerteanzeigen"
        Me.cdokumentwerteanzeigen.Size = New System.Drawing.Size(160, 32)
        Me.cdokumentwerteanzeigen.TabIndex = 6
        Me.cdokumentwerteanzeigen.Text = "Dokumentinhalte anzeigen"
        '
        'Button1
        '
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Bitmap)
        Me.Button1.Location = New System.Drawing.Point(352, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(24, 24)
        Me.Button1.TabIndex = 2
        Me.ToolTip1.SetToolTip(Me.Button1, "Partner Detailinformationen")
        '
        'Button4
        '
        Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Bitmap)
        Me.Button4.Location = New System.Drawing.Point(328, 64)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(24, 24)
        Me.Button4.TabIndex = 47
        Me.Button4.Visible = False
        '
        'cbsave
        '
        Me.cbsave.Enabled = False
        Me.cbsave.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
        Me.cbsave.Location = New System.Drawing.Point(764, 64)
        Me.cbsave.Name = "cbsave"
        Me.cbsave.Size = New System.Drawing.Size(21, 21)
        Me.cbsave.TabIndex = 49
        Me.cbsave.Text = "ComboBox1"
        Me.cbsave.Visible = False
        '
        'cbmoeglicheStati
        '
        Me.cbmoeglicheStati.Enabled = False
        Me.cbmoeglicheStati.Items.AddRange(New Object() {"abc", "def", "gagas d sd", "sdf sdf sfd "})
        Me.cbmoeglicheStati.Location = New System.Drawing.Point(764, 64)
        Me.cbmoeglicheStati.Name = "cbmoeglicheStati"
        Me.cbmoeglicheStati.Size = New System.Drawing.Size(21, 21)
        Me.cbmoeglicheStati.TabIndex = 48
        Me.cbmoeglicheStati.Text = "ComboBox1"
        '
        'Panel1
        '
        Me.Panel1.Location = New System.Drawing.Point(784, 16)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(24, 100)
        Me.Panel1.TabIndex = 50
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(416, 80)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(96, 32)
        Me.Label11.TabIndex = 52
        Me.Label11.Text = "Berechtigt für Folgestatus"
        Me.Label11.Visible = False
        '
        'txtstatus
        '
        Me.txtstatus.Location = New System.Drawing.Point(520, 88)
        Me.txtstatus.Name = "txtstatus"
        Me.txtstatus.Size = New System.Drawing.Size(224, 16)
        Me.txtstatus.TabIndex = 51
        Me.txtstatus.Text = "Label3"
        Me.txtstatus.Visible = False
        '
        'TabControl1
        '
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage2, Me.TabPage6})
        Me.TabControl1.Location = New System.Drawing.Point(8, 64)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(800, 424)
        Me.TabControl1.TabIndex = 5
        '
        'TabPage2
        '
        Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox14, Me.GroupBox8, Me.GroupBox7, Me.GroupBox6, Me.GroupBox13})
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(792, 398)
        Me.TabPage2.TabIndex = 0
        Me.TabPage2.Text = "Allgemein"
        '
        'GroupBox14
        '
        Me.GroupBox14.Controls.AddRange(New System.Windows.Forms.Control() {Me.DateErinnerung, Me.Label23, Me.DateTimePicker2, Me.Label6})
        Me.GroupBox14.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox14.Name = "GroupBox14"
        Me.GroupBox14.Size = New System.Drawing.Size(368, 40)
        Me.GroupBox14.TabIndex = 59
        Me.GroupBox14.TabStop = False
        '
        'DateErinnerung
        '
        Me.DateErinnerung.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
        Me.DateErinnerung.Location = New System.Drawing.Point(264, 13)
        Me.DateErinnerung.Name = "DateErinnerung"
        Me.DateErinnerung.ShowUpDownButtons = False
        Me.DateErinnerung.Size = New System.Drawing.Size(96, 20)
        Me.DateErinnerung.TabIndex = 1
        Me.DateErinnerung.Tag = Nothing
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(155, 15)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(120, 23)
        Me.Label23.TabIndex = 39
        Me.Label23.Text = "Überfällig-Meldung ab"
        '
        'DateTimePicker2
        '
        Me.DateTimePicker2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
        Me.DateTimePicker2.Location = New System.Drawing.Point(50, 13)
        Me.DateTimePicker2.Name = "DateTimePicker2"
        Me.DateTimePicker2.ShowUpDownButtons = False
        Me.DateTimePicker2.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker2.TabIndex = 0
        Me.DateTimePicker2.Tag = Nothing
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 14)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(80, 23)
        Me.Label6.TabIndex = 37
        Me.Label6.Text = "Termin"
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.AddRange(New System.Windows.Forms.Control() {Me.drpMiatarbeiter, Me.Notizlist})
        Me.GroupBox8.Location = New System.Drawing.Point(8, 272)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(776, 120)
        Me.GroupBox8.TabIndex = 58
        Me.GroupBox8.TabStop = False
        Me.GroupBox8.Text = "Notizen"
        '
        'drpMiatarbeiter
        '
        Me.drpMiatarbeiter.AllowColMove = True
        Me.drpMiatarbeiter.AllowColSelect = True
        Me.drpMiatarbeiter.AllowFilter = True
        Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.drpMiatarbeiter.AllowSort = True
        Me.drpMiatarbeiter.AlternatingRows = True
        Me.drpMiatarbeiter.CaptionHeight = 17
        Me.drpMiatarbeiter.ColumnCaptionHeight = 17
        Me.drpMiatarbeiter.ColumnFooterHeight = 17
        Me.drpMiatarbeiter.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.drpMiatarbeiter.FetchRowStyles = False
        Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
        Me.drpMiatarbeiter.LayoutFileName = ""
        Me.drpMiatarbeiter.LayoutName = ""
        Me.drpMiatarbeiter.LayoutURL = ""
        Me.drpMiatarbeiter.Location = New System.Drawing.Point(400, 32)
        Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
        GridLines3.Color = System.Drawing.Color.DarkGray
        GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.drpMiatarbeiter.RowDivider = GridLines3
        Me.drpMiatarbeiter.RowHeight = 15
        Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.drpMiatarbeiter.ScrollTips = False
        Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80)
        Me.drpMiatarbeiter.TabIndex = 2
        Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
        Me.drpMiatarbeiter.Visible = False
        Me.drpMiatarbeiter.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cen" & _
        "ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
        "ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
        "ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
        "ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
        "></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="""" AlternatingRowStyle=" & _
        """True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
        "eeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" RecordSelectors=""False"" Vert" & _
        "icalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 36, 76</ClientRe" & _
        "ct><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=" & _
        """Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""" & _
        "FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle" & _
        " parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><Hig" & _
        "hLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inacti" & _
        "ve"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyl" & _
        "e parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""St" & _
        "yle6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.DropdownView>" & _
        "</Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""" & _
        "Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Cap" & _
        "tion"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selec" & _
        "ted"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""Highlight" & _
        "Row"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" " & _
        "/><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""Filte" & _
        "rBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSp" & _
        "lits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</Defa" & _
        "ultRecSelWidth><ClientArea>0, 0, 36, 76</ClientArea></Blob>"
        '
        'Notizlist
        '
        Me.Notizlist.AllowFilter = True
        Me.Notizlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.Notizlist.AllowSort = True
        Me.Notizlist.AlternatingRows = True
        Me.Notizlist.CaptionHeight = 17
        Me.Notizlist.CollapseColor = System.Drawing.Color.Black
        Me.Notizlist.ContextMenu = Me.ContextMenu1
        Me.Notizlist.DataChanged = False
        Me.Notizlist.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.Notizlist.ExpandColor = System.Drawing.Color.Black
        Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column"
        Me.Notizlist.Images.Add(CType(resources.GetObject("resource.Images3"), System.Drawing.Bitmap))
        Me.Notizlist.Location = New System.Drawing.Point(8, 16)
        Me.Notizlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.Notizlist.Name = "Notizlist"
        Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.Notizlist.PreviewInfo.ZoomFactor = 75
        Me.Notizlist.PrintInfo.ShowOptionsDialog = False
        Me.Notizlist.RecordSelectorWidth = 16
        GridLines4.Color = System.Drawing.Color.DarkGray
        GridLines4.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.Notizlist.RowDivider = GridLines4
        Me.Notizlist.RowHeight = 15
        Me.Notizlist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.Notizlist.ScrollTips = False
        Me.Notizlist.Size = New System.Drawing.Size(760, 96)
        Me.Notizlist.TabIndex = 0
        Me.Notizlist.Text = "C1TrueDBGrid1"
        Me.Notizlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}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;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
        ":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
        "ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
        "}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
        " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
        "oterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
        "elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
        " 756, 92</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=" & _
        """Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Eve" & _
        "nRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSty" & _
        "le parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Head" & _
        "ingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow""" & _
        " me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle paren" & _
        "t=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style1" & _
        "1"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""S" & _
        "tyle1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" " & _
        "me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""" & _
        "Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Ina" & _
        "ctive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edito" & _
        "r"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenR" & _
        "ow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSel" & _
        "ector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gro" & _
        "up"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>" & _
        "None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 756, 9" & _
        "2</ClientArea></Blob>"
        '
        'GroupBox7
        '
        Me.GroupBox7.BackColor = System.Drawing.SystemColors.Control
        Me.GroupBox7.Controls.AddRange(New System.Windows.Forms.Control() {Me.InfoMeldungList})
        Me.GroupBox7.Location = New System.Drawing.Point(8, 176)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(776, 96)
        Me.GroupBox7.TabIndex = 57
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "Informationsmeldungen"
        '
        'InfoMeldungList
        '
        Me.InfoMeldungList.AllowFilter = True
        Me.InfoMeldungList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.InfoMeldungList.AllowSort = True
        Me.InfoMeldungList.AllowUpdate = False
        Me.InfoMeldungList.AlternatingRows = True
        Me.InfoMeldungList.CaptionHeight = 17
        Me.InfoMeldungList.CollapseColor = System.Drawing.Color.Black
        Me.InfoMeldungList.ContextMenu = Me.ContextMenu4
        Me.InfoMeldungList.DataChanged = False
        Me.InfoMeldungList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.InfoMeldungList.ExpandColor = System.Drawing.Color.Black
        Me.InfoMeldungList.GroupByCaption = "Drag a column header here to group by that column"
        Me.InfoMeldungList.Images.Add(CType(resources.GetObject("resource.Images4"), System.Drawing.Bitmap))
        Me.InfoMeldungList.Location = New System.Drawing.Point(8, 16)
        Me.InfoMeldungList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.InfoMeldungList.Name = "InfoMeldungList"
        Me.InfoMeldungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.InfoMeldungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.InfoMeldungList.PreviewInfo.ZoomFactor = 75
        Me.InfoMeldungList.PrintInfo.ShowOptionsDialog = False
        Me.InfoMeldungList.RecordSelectorWidth = 16
        GridLines5.Color = System.Drawing.Color.DarkGray
        GridLines5.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.InfoMeldungList.RowDivider = GridLines5
        Me.InfoMeldungList.RowHeight = 15
        Me.InfoMeldungList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.InfoMeldungList.ScrollTips = False
        Me.InfoMeldungList.Size = New System.Drawing.Size(760, 72)
        Me.InfoMeldungList.TabIndex = 0
        Me.InfoMeldungList.Text = "C1TrueDBGrid1"
        Me.InfoMeldungList.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{BackColor:Control;}HighlightRow{ForeColor:Hi" & _
        "ghlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordS" & _
        "elector{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"" ColumnCaptionHe" & _
        "ight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelector" & _
        "Width=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""" & _
        "><ClientRect>0, 0, 756, 68</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>16</DefaultRecSelWidth><Clien" & _
        "tArea>0, 0, 756, 68</ClientArea></Blob>"
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.ZuordnungList})
        Me.GroupBox6.Location = New System.Drawing.Point(384, 8)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(400, 168)
        Me.GroupBox6.TabIndex = 56
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Dokument-Zuordnung"
        '
        'ZuordnungList
        '
        Me.ZuordnungList.AllowFilter = True
        Me.ZuordnungList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.ZuordnungList.AllowSort = True
        Me.ZuordnungList.AlternatingRows = True
        Me.ZuordnungList.CaptionHeight = 17
        Me.ZuordnungList.CollapseColor = System.Drawing.Color.Black
        Me.ZuordnungList.ContextMenu = Me.ContextMenu3
        Me.ZuordnungList.DataChanged = False
        Me.ZuordnungList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.ZuordnungList.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ZuordnungList.ExpandColor = System.Drawing.Color.Black
        Me.ZuordnungList.GroupByCaption = "Drag a column header here to group by that column"
        Me.ZuordnungList.Images.Add(CType(resources.GetObject("resource.Images5"), System.Drawing.Bitmap))
        Me.ZuordnungList.Location = New System.Drawing.Point(3, 16)
        Me.ZuordnungList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.ZuordnungList.Name = "ZuordnungList"
        Me.ZuordnungList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.ZuordnungList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.ZuordnungList.PreviewInfo.ZoomFactor = 75
        Me.ZuordnungList.PrintInfo.ShowOptionsDialog = False
        Me.ZuordnungList.RecordSelectorWidth = 16
        GridLines6.Color = System.Drawing.Color.DarkGray
        GridLines6.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.ZuordnungList.RowDivider = GridLines6
        Me.ZuordnungList.RowHeight = 15
        Me.ZuordnungList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.ZuordnungList.ScrollTips = False
        Me.ZuordnungList.Size = New System.Drawing.Size(394, 149)
        Me.ZuordnungList.TabIndex = 0
        Me.ZuordnungList.Text = "C1TrueDBGrid1"
        Me.ZuordnungList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}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;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
        ":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
        "ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
        "}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
        " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
        "oterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
        "elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
        " 390, 145</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me" & _
        "=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Ev" & _
        "enRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSt" & _
        "yle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Hea" & _
        "dingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow" & _
        """ me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle pare" & _
        "nt=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style" & _
        "11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""" & _
        "Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent=""""" & _
        " me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=" & _
        """Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""In" & _
        "active"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edit" & _
        "or"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""Even" & _
        "Row"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSe" & _
        "lector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gr" & _
        "oup"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout" & _
        ">None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 390, " & _
        "145</ClientArea></Blob>"
        '
        'GroupBox13
        '
        Me.GroupBox13.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtBemerkung})
        Me.GroupBox13.Location = New System.Drawing.Point(8, 48)
        Me.GroupBox13.Name = "GroupBox13"
        Me.GroupBox13.Size = New System.Drawing.Size(368, 128)
        Me.GroupBox13.TabIndex = 55
        Me.GroupBox13.TabStop = False
        Me.GroupBox13.Text = "Bemerkung"
        '
        'txtBemerkung
        '
        Me.txtBemerkung.Location = New System.Drawing.Point(8, 16)
        Me.txtBemerkung.Multiline = True
        Me.txtBemerkung.Name = "txtBemerkung"
        Me.txtBemerkung.Size = New System.Drawing.Size(352, 104)
        Me.txtBemerkung.TabIndex = 0
        Me.txtBemerkung.Text = ""
        '
        'TabPage6
        '
        Me.TabPage6.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox15})
        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
        Me.TabPage6.Name = "TabPage6"
        Me.TabPage6.Size = New System.Drawing.Size(792, 398)
        Me.TabPage6.TabIndex = 1
        Me.TabPage6.Text = "COLD-Dokumentinformationen"
        '
        'GroupBox15
        '
        Me.GroupBox15.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnLoeschen, Me.Button5, Me.Button6, Me.Button7, Me.Button8, Me.Label12, Me.TextBox4, Me.TextBox3, Me.TextBox2, Me.Label14, Me.Label15, Me.Label19, Me.DateTimePicker4, Me.Label21, Me.TextBox1})
        Me.GroupBox15.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox15.Name = "GroupBox15"
        Me.GroupBox15.Size = New System.Drawing.Size(776, 384)
        Me.GroupBox15.TabIndex = 0
        Me.GroupBox15.TabStop = False
        '
        'btnLoeschen
        '
        Me.btnLoeschen.Image = CType(resources.GetObject("btnLoeschen.Image"), System.Drawing.Bitmap)
        Me.btnLoeschen.Location = New System.Drawing.Point(304, 48)
        Me.btnLoeschen.Name = "btnLoeschen"
        Me.btnLoeschen.Size = New System.Drawing.Size(24, 23)
        Me.btnLoeschen.TabIndex = 29
        Me.ToolTip1.SetToolTip(Me.btnLoeschen, "VV-Nummer löschen")
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(664, 352)
        Me.Button5.Name = "Button5"
        Me.Button5.TabIndex = 8
        Me.Button5.Text = "&Abbruch"
        Me.Button5.Visible = False
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(16, 152)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(264, 23)
        Me.Button6.TabIndex = 7
        Me.Button6.Text = "Indexmutation speichern"
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(280, 48)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(24, 23)
        Me.Button7.TabIndex = 3
        Me.Button7.Text = "..."
        Me.ToolTip1.SetToolTip(Me.Button7, "VV-Nummer wechseln")
        '
        'Button8
        '
        Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Bitmap)
        Me.Button8.Location = New System.Drawing.Point(280, 24)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(24, 23)
        Me.Button8.TabIndex = 1
        Me.ToolTip1.SetToolTip(Me.Button8, "Partner wechseln")
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(16, 48)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(88, 23)
        Me.Label12.TabIndex = 28
        Me.Label12.Text = "VV-Nummer"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(160, 48)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.ReadOnly = True
        Me.TextBox4.Size = New System.Drawing.Size(120, 20)
        Me.TextBox4.TabIndex = 2
        Me.TextBox4.Text = ""
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(160, 120)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(120, 20)
        Me.TextBox3.TabIndex = 6
        Me.TextBox3.Text = ""
        Me.TextBox3.Visible = False
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(160, 96)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(120, 20)
        Me.TextBox2.TabIndex = 5
        Me.TextBox2.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(16, 120)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(136, 23)
        Me.Label14.TabIndex = 24
        Me.Label14.Text = "Grundstück-Bezeichnung"
        Me.Label14.Visible = False
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(16, 96)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(80, 23)
        Me.Label15.TabIndex = 23
        Me.Label15.Text = "Geschäftsfall"
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(16, 72)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(80, 23)
        Me.Label19.TabIndex = 22
        Me.Label19.Text = "Archiv-Datum"
        '
        'DateTimePicker4
        '
        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker4.Location = New System.Drawing.Point(160, 72)
        Me.DateTimePicker4.Name = "DateTimePicker4"
        Me.DateTimePicker4.Size = New System.Drawing.Size(120, 20)
        Me.DateTimePicker4.TabIndex = 4
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(16, 24)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(64, 23)
        Me.Label21.TabIndex = 20
        Me.Label21.Text = "Partner-Nr."
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(160, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.ReadOnly = True
        Me.TextBox1.Size = New System.Drawing.Size(120, 20)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = ""
        '
        'pnlBerechtigungen
        '
        Me.pnlBerechtigungen.Controls.AddRange(New System.Windows.Forms.Control() {Me.DokumentFunktionenList})
        Me.pnlBerechtigungen.Location = New System.Drawing.Point(80, 496)
        Me.pnlBerechtigungen.Name = "pnlBerechtigungen"
        Me.pnlBerechtigungen.Size = New System.Drawing.Size(616, 16)
        Me.pnlBerechtigungen.TabIndex = 65
        Me.pnlBerechtigungen.TabStop = False
        Me.pnlBerechtigungen.Text = "Berechtigungseinschränkung"
        Me.pnlBerechtigungen.Visible = False
        '
        'DokumentFunktionenList
        '
        Me.DokumentFunktionenList.AllowFilter = True
        Me.DokumentFunktionenList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.DokumentFunktionenList.AllowSort = True
        Me.DokumentFunktionenList.AlternatingRows = True
        Me.DokumentFunktionenList.CaptionHeight = 17
        Me.DokumentFunktionenList.CollapseColor = System.Drawing.Color.Black
        Me.DokumentFunktionenList.ContextMenu = Me.ContextMenu6
        Me.DokumentFunktionenList.DataChanged = False
        Me.DokumentFunktionenList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.DokumentFunktionenList.ExpandColor = System.Drawing.Color.Black
        Me.DokumentFunktionenList.GroupByCaption = "Drag a column header here to group by that column"
        Me.DokumentFunktionenList.Images.Add(CType(resources.GetObject("resource.Images6"), System.Drawing.Bitmap))
        Me.DokumentFunktionenList.Location = New System.Drawing.Point(8, 16)
        Me.DokumentFunktionenList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.DokumentFunktionenList.Name = "DokumentFunktionenList"
        Me.DokumentFunktionenList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.DokumentFunktionenList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.DokumentFunktionenList.PreviewInfo.ZoomFactor = 75
        Me.DokumentFunktionenList.PrintInfo.ShowOptionsDialog = False
        Me.DokumentFunktionenList.RecordSelectorWidth = 16
        GridLines7.Color = System.Drawing.Color.DarkGray
        GridLines7.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.DokumentFunktionenList.RowDivider = GridLines7
        Me.DokumentFunktionenList.RowHeight = 15
        Me.DokumentFunktionenList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.DokumentFunktionenList.ScrollTips = False
        Me.DokumentFunktionenList.Size = New System.Drawing.Size(600, 120)
        Me.DokumentFunktionenList.TabIndex = 0
        Me.DokumentFunktionenList.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"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
        "elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
        " 596, 116</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me" & _
        "=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Ev" & _
        "enRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSt" & _
        "yle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Hea" & _
        "dingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow" & _
        """ me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle pare" & _
        "nt=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style" & _
        "11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""" & _
        "Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent=""""" & _
        " me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=" & _
        """Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""In" & _
        "active"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edit" & _
        "or"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""Even" & _
        "Row"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSe" & _
        "lector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gr" & _
        "oup"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout" & _
        ">None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 596, " & _
        "116</ClientArea></Blob>"
        '
        'GroupBox9
        '
        Me.GroupBox9.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.cvertraulich, Me.Label18, Me.cGesperrt, Me.Label9})
        Me.GroupBox9.Location = New System.Drawing.Point(120, 496)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(152, 16)
        Me.GroupBox9.TabIndex = 64
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Text = "Schutz"
        Me.GroupBox9.Visible = False
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(16, 88)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(120, 48)
        Me.Button3.TabIndex = 19
        Me.Button3.Text = "Liste der berechtigten Mitarbeiter"
        '
        'cvertraulich
        '
        Me.cvertraulich.Location = New System.Drawing.Point(80, 46)
        Me.cvertraulich.Name = "cvertraulich"
        Me.cvertraulich.Size = New System.Drawing.Size(48, 24)
        Me.cvertraulich.TabIndex = 18
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(16, 48)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(64, 23)
        Me.Label18.TabIndex = 17
        '
        'cGesperrt
        '
        Me.cGesperrt.Enabled = False
        Me.cGesperrt.Location = New System.Drawing.Point(80, 24)
        Me.cGesperrt.Name = "cGesperrt"
        Me.cGesperrt.Size = New System.Drawing.Size(48, 24)
        Me.cGesperrt.TabIndex = 16
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 24)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(64, 23)
        Me.Label9.TabIndex = 15
        '
        'BtnHelp
        '
        Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Bitmap)
        Me.BtnHelp.Location = New System.Drawing.Point(8, 496)
        Me.BtnHelp.Name = "BtnHelp"
        Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
        Me.BtnHelp.TabIndex = 66
        '
        'frmDokumentInfoEdit
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(810, 527)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnHelp, Me.pnlBerechtigungen, Me.GroupBox9, Me.TabControl1, Me.Label11, Me.txtstatus, Me.Panel1, Me.cbsave, Me.cbmoeglicheStati, Me.Button4, Me.Button1, Me.cdokumentwerteanzeigen, Me.cbVerantwortlich, Me.Label17, Me.Label16, Me.cbdokumentstatus, Me.txtPartnerInhaberNr, Me.txtBezeichnung, Me.Label4, Me.btnPartnerInhaber, Me.txtPartnerZusteller, Me.txtPartnerInhaber, Me.Label2, Me.Label1, Me.TabControl2, Me.btnCancel, Me.btnWeiter})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmDokumentInfoEdit"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Dokumentinformationen bearbeiten"
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabControl2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.GroupBox12.ResumeLayout(False)
        Me.GroupBox10.ResumeLayout(False)
        CType(Me.DokWertList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        CType(Me.ColdList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox4.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.GroupBox11.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.GroupBox14.ResumeLayout(False)
        CType(Me.DateErinnerung, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DateTimePicker2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox8.ResumeLayout(False)
        CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox7.ResumeLayout(False)
        CType(Me.InfoMeldungList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox6.ResumeLayout(False)
        CType(Me.ZuordnungList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox13.ResumeLayout(False)
        Me.TabPage6.ResumeLayout(False)
        Me.GroupBox15.ResumeLayout(False)
        Me.pnlBerechtigungen.ResumeLayout(False)
        CType(Me.DokumentFunktionenList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox9.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "Deklarationen"

    Dim Aktueller_Dokumentverantwortlicher As Integer
    Dim datum As DateTime
    Dim vvnr As String
    Dim gf As String
    Dim gu As String
    Dim m_dokumentid As String
    Property Dokumentid() As String
        Get
            Return m_dokumentid
        End Get
        Set(ByVal Value As String)
            m_dokumentid = Value
        End Set
    End Property

    Dim daten As New DataTable()
    Dim dokumente As New DataTable()


    Dim w As New WordLib()
    Dim On_Load As Boolean
    Dim NewDokumentID As String
    Dim CurrentProfil As Long
    Dim m_dokumenttypnr As Long
    Dim m_createdocument As Boolean

    Dim i As Integer
    Dim ii As Integer
    Dim Notizen As DataTable
    Dim Dokumentersetzen As DataTable
    Dim Dokumentzuorndungen As DataTable
    Dim DokumentInfoMeldungen As DataTable
    Dim DokumentFunktionen As DataTable
    Dim m_barcodeid As String
    Dim zu_retournieren As Boolean
    Dim teamzustaendig As Integer


    Dim m_dokument_ist_abgeschlossen As Boolean
    Property Dokument_Ist_Abgeschlossen() As Boolean
        Get
            Return m_dokument_ist_abgeschlossen
        End Get
        Set(ByVal Value As Boolean)
            m_dokument_ist_abgeschlossen = Value
        End Set
    End Property
    Dim m_dokumentinfobearbeiten As Boolean
    Property Dokumentinfobearbeiten() As Boolean
        Get
            Return m_dokumentinfobearbeiten
        End Get
        Set(ByVal Value As Boolean)
            m_dokumentinfobearbeiten = Value
        End Set
    End Property
    Property BarcodeID() As String
        Get
            Return m_barcodeid
        End Get
        Set(ByVal Value As String)
            m_barcodeid = Value
        End Set
    End Property

    Property Dokumenttypnr() As Long
        Get
            Return m_dokumenttypnr
        End Get
        Set(ByVal Value As Long)
            m_dokumenttypnr = Value
        End Set
    End Property

    Property CreateDocument() As Boolean
        Get
            Return m_createdocument
        End Get
        Set(ByVal Value As Boolean)
            m_createdocument = Value
        End Set
    End Property

    Dim m_profilnr As Long
    Property Profilnr() As Long
        Get
            Return m_profilnr
        End Get
        Set(ByVal Value As Long)
            m_profilnr = Value
        End Set
    End Property
    Dim m_profile As DataTable
    Property Profile() As DataTable
        Get
            Return m_profile
        End Get
        Set(ByVal Value As DataTable)
            m_profile = Value
        End Set
    End Property

    Property EditDokumentid() As String
        Get
            Return DokumentID
        End Get
        Set(ByVal Value As String)
            DokumentID = Value
        End Set
    End Property

    Dim m_Partnernr As String

    Property Partnernr() As String
        Get
            Return m_Partnernr
        End Get
        Set(ByVal Value As String)
            m_Partnernr = Value
        End Set
    End Property

    Dim savestatus As Integer
    Dim saveverantwortlicher As Integer

    Dim m_NurDokInfo As Boolean
    Property NurDokinfo() As Boolean
        Get
            Return m_NurDokInfo
        End Get
        Set(ByVal Value As Boolean)
            m_NurDokInfo = Value
        End Set
    End Property

#End Region

    Dim WithEvents mcbverantwortlich As New MultiComboBox()
    Dim WithEvents mcbunterschriftlinks As New MultiComboBox()
    Dim WithEvents mcbunterschriftrechts As New MultiComboBox()
    Dim WithEvents mcbpostzustellung As New MultiComboBox()
    Dim WithEvents mcbkube As New MultiComboBox()
    Dim WithEvents mcbstatus As New MultiComboBox()
    Dim WithEvents mcbzust As New MultiComboBox()
    Dim WithEvents mcbteam As New MultiComboBox()
    Dim moeglichestati As DataTable
    Dim funktionsliste As String
    Dim selectedstatus As Integer

#Region "FormLoad"
    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

    Private Sub frmDokumentbearbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Cursor = Cursors.WaitCursor
        Me.On_Load = True
        If Me.CreateDocument Then
            Formular_Laden_Create_Document()
            If Me.Partnernr <> "" Then
                If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, Me.Partnernr, "", 2, 0, 0, 0) Then
                    Dim f As New FrmPartnersuche()
                    f.Dokumenterstellen = True
                    f.Partner_Suche(Me.Partnernr)
                    Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
                    Me.txtPartnerInhaberNr.Text = f.PartnerNr
                    Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
                    Me.TabControl2.Enabled = True
                    f.Dispose()
                Else
                    MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
                    Me.Close()
                End If
            Else
                btnPartnerInhaber_Click(sender, e)
            End If
            If Val(Me.txtPartnerInhaberNr.Text) > 91000000 Then
                Me.cbKube.SelectedValue = Globals.MitarbeiterNr
            End If
        Else
            Formular_laden_Edit_Document()
            Dim bc As New DataTable()
            bc = Generic_Select(11)
            If bc.Rows.Count > 0 Then
                Me.BarcodeID = LTrim(Str(bc.Rows(0).Item(0)))
            End If
            bc.Dispose()
        End If
        If Me.BarcodeID <> "" Or Me.Dokumentinfobearbeiten = True Then
            Me.cdokumentwerteanzeigen.Visible = False
        Else
            Me.cdokumentwerteanzeigen.Visible = True
        End If

        Me.On_Load = False
        If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo Then bereiche_sperren()
        Me.Cursor = Cursors.Default

        load_indexmutation()
        load_Mitarbeiter()
    End Sub

    Private Sub settooltip()
        Dim ttip As New ToolTip()
        ttip.SetToolTip(Me.cbmoeglicheStati, Globals.MyTxt.gettext(22000))
        ttip.SetToolTip(Me.btnPartnerInhaber, Globals.MyTxt.gettext(22001))
        ttip.SetToolTip(Me.Button1, Globals.MyTxt.gettext(22002))
    End Sub

    Private Sub bereiche_sperren()
        Me.btnPartnerInhaber.Enabled = False
        Me.GroupBox1.Enabled = False
        Me.GroupBox2.Enabled = False
        Me.GroupBox3.Enabled = False
        Me.GroupBox4.Enabled = False
        Me.GroupBox5.Enabled = False
        Me.GroupBox10.Enabled = False
        Me.GroupBox11.Enabled = False
        Me.GroupBox12.Enabled = False
        Me.GroupBox9.Enabled = False
        Me.Button2.Enabled = False
        Me.pnlBerechtigungen.Enabled = False
        Me.cbVerantwortlich.Enabled = False
        Me.mcbverantwortlich.Enabled = False
        Me.cbdokumentstatus.Enabled = False
        Me.mcbstatus.Enabled = False
        Me.DokWertList.Enabled = False
        Me.cdokumentwerteanzeigen.Visible = False
    End Sub

    Private Sub Formular_laden_Edit_Document()
        Dim doc As New edokadb.clsDokument()
        doc.cpMainConnectionProvider = conn
        conn.OpenConnection()
        doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
        doc.SelectOne()
        doc.cpMainConnectionProvider = conn
        doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
        NewDokumentID = Me.EditDokumentid
        Me.Partnernr = doc.iNrpar00.Value
        doc.SelectOne()
        w.Save_Dokument = doc.SelectOne
        Me.Dokumenttypnr = doc.iDokumenttypnr.Value
        Dokumentid = doc.sDokumentid.Value
        Me.Aktueller_Dokumentverantwortlicher = doc.iVerantwortlich.Value
        Load_Defaults()

        'Parnter laden
        Dim p As New edokadb.clsPartner()
        p.cpMainConnectionProvider = conn
        p.iNRPAR00 = doc.iNrpar00
        p.SelectOne()
        Me.txtPartnerInhaber.Text = Str(p.iNRPAR00.Value) + " " + p.sBKPAR00.Value
        Me.txtPartnerInhaberNr.Text = p.iNRPAR00.Value
        Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(p.iNRPAR00.Value)

        p.Dispose()
        conn.CloseConnection(True)
        Try
            Me.txtBemerkung.Text = doc.sBemerkung.Value
        Catch
        End Try

        Try
            If doc.daTermin.Value = "01.01.1900" Then
                Me.DateTimePicker2.ResetText()
                Me.DateTimePicker2.Value = System.DBNull.Value
            Else
                Me.DateTimePicker2.Value = doc.daTermin.Value
            End If
        Catch
            Me.DateTimePicker2.Value = System.DBNull.Value
        End Try

        Try
            If doc.daErinnerungam.Value = "01.01.1900" Then
                Me.DateErinnerung.ResetText()
                Me.DateErinnerung.Value = System.DBNull.Value
            Else
                Me.DateErinnerung.Value = doc.daErinnerungam.Value
            End If
        Catch
            Me.DateErinnerung.Value = System.DBNull.Value
        End Try

        If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo Then Exit Sub

        ii = doc.iPostzustellung.Value
        Me.mcbpostzustellung.SelectedValue = ii
        If doc.bZustaendig_kube.Value = True Then
            ii = doc.iZustaendiger.Value
            Me.mcbkube.SelectedValue = ii
        Else
            ii = doc.iZustaendiger.Value
            Me.mcbzust.SelectedValue = ii
        End If
        ii = doc.iVerantwortlich.Value
        Me.mcbverantwortlich.SelectedValue = ii
        Me.saveverantwortlicher = ii

        Me.savestatus = doc.iStatusnr.Value

        ii = doc.iUnterschriftlinks.Value
        Me.mcbunterschriftlinks.SelectedValue = ii
        ii = doc.iUnterschriftrechts.Value
        Me.mcbunterschriftrechts.SelectedValue = ii
        Me.cGesperrt.Checked = doc.bGesperrt.Value = True
        Me.txtBemerkung.Text = doc.sBemerkung.Value
        Me.txtBezeichnung.Text = doc.sBezeichnung.Value
        Me.rbZustaendigKube.Checked = doc.bZustaendig_kube.Value = True
        Me.cvertraulich.Checked = doc.bVertraulich.Value = True
        Me.txtZustelladresse.Text = doc.sZustelladresse.Value
        Me.txtAnredeZusteller.Text = doc.sAnredezustelladresse.Value
        Me.RBZustaendigZustaendiger.Checked = doc.bZustaendig_kube.Value = False
        Me.teamzustaendig = doc.iZustaendiger.Value
        Me.refresh_team()
        Try
            Me.mcbteam.SelectedValue = doc.iMutierertieam.Value
        Catch
            Me.mcbteam.SelectedIndex = 0
        End Try
        Try
            Me.DateTimePicker1.Value = doc.daErstellungsdatum.Value
        Catch
            Me.DateTimePicker1.Value = Now
        End Try

        Try
            Me.DateTimePicker3.Value = doc.daArchivierungsdatum.Value
        Catch
            Me.DateTimePicker3.Value = Me.DateTimePicker1.Value
        End Try


        doc.Dispose()

        Me.Dokumentersetzen = Dokumentersetzen_Laden()
        w.save_dokumentersetzen = Dokumentersetzen_Laden()

        Me.ColdList.DataSource = Me.Dokumentersetzen
        DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen")

        Me.Notizen = Notizen_Laden()

        w.Save_Notizen = Notizen_Laden()
        Me.Notizlist.DataSource = Notizen
        DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")

        w.Save_Dokumentwerte = Generic_Select(10)
        Me.DataSet1.Clear()
        Me.DataSet1.Tables.Clear()
        Me.DataSet1.Tables.Add(DokumentwertListe_laden)
        Me.DokWertList.DataSource = Me.DataSet1
        Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName
        For i = 3 To Me.DokWertList.Columns.Count - 1
            Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False
        Next
        Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110
        Me.DokWertList.Splits(0).DisplayColumns(1).Width = 50
        Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
        Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True
        Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160
        conn.CloseConnection(True)

        w.Save_ColdIndex = Generic_Select(9)
        Me.TabControl2.Enabled = True

        Dim tmp As DataTable
        tmp = Generic_Select(12)
        w.save_historystatus = tmp.Rows(0).Item(0)
        tmp.Dispose()
    End Sub

    Private Function Dokumentersetzen_Laden() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_dokumentersetzen_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            If Me.CreateDocument Then
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
            Else
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            End If
            '            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function


    Private Function Notizen_Laden() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            If Me.CreateDocument Then
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
            Else
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            End If
            '            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentID))
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Function Dokumentzuordnungen_Laden()
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            If Me.CreateDocument Then
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
            Else
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            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("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Function Dokumentinfomeldungen_laden()
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldung_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            If Me.CreateDocument Then
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
            Else
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
            End If
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokumentinfomeldung_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Function DokumentwertListe_laden() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Dokumentwerte"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@CreateNew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

    End Function

    Private Sub Formular_Laden_Create_Document()
        NewDokumentID = DivFnkt.Generate_Key()
        Load_Defaults()
        w.save_historystatus = 0
    End Sub

    Private Sub Load_Defaults()
        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Dim doktyp As New edokadb.clsDokumenttyp()
        doktyp.cpMainConnectionProvider = conn
        doktyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
        doktyp.SelectOne()

        If doktyp.bFunktionen_zuweisen.Value = True Then
            Dokumentfunktionen_Aktivieren()
        Else
            w.Save_DokumentFunktionen = Generic_Select(6)
            Me.pnlBerechtigungen.Visible = False
        End If

        'Dokumenttyp-Daten
        If DivFnkt.Ist_Berechtigt(doktyp.iDokumenttypnr.Value, Globals.MitarbeiterNr, 0, 0, 0, 0, 0, 1) Then
            Me.cvertraulich.Visible = True
            Me.Label18.Visible = True
            Me.cvertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True
        Else
            Me.cvertraulich.Checked = False
            Me.cvertraulich.Visible = False
            Me.Label18.Visible = False
        End If

        Me.txtBezeichnung.Text = doktyp.sBezeichnung.Value
        Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumentid").Value = ""
        Me.SqlDataAdapter1.SelectCommand.Parameters("@Dokumenttypnr").Value = Me.Dokumenttypnr
        Me.SqlDataAdapter1.SelectCommand.Parameters("@CreateNew").Value = 1
        Me.SqlDataAdapter1.Fill(Me.DataSet1)

        Me.DokWertList.DataSource = Me.DataSet1
        Me.DokWertList.DataMember = Me.DataSet1.Tables(0).TableName
        For i = 3 To Me.DokWertList.Columns.Count - 1
            Me.DokWertList.Splits(0).DisplayColumns(i).Visible = False
        Next
        Me.DokWertList.Splits(0).DisplayColumns(0).Width = 110
        Me.DokWertList.Splits(0).DisplayColumns(1).Width = 50
        Me.DokWertList.Columns(1).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
        Me.DokWertList.Splits(0).DisplayColumns(1).Locked = True
        Me.DokWertList.Splits(0).DisplayColumns(2).Width = 160

        Me.mcbstatus = New MultiComboBox(Me.cbdokumentstatus)
        Me.mcbstatus.CheckNullValue = True
        Me.mcbstatus.NullValueMessage = MyTxt.gettext(18)
        Me.mcbstatus.DisplayColumnName = "Bezeichnung"
        Me.mcbstatus.ValueColumnName = "dokumentstatusnr"
        Me.mcbstatus.Fill_Data(Generic_Select(2), False)

        Me.mcbkube = New MultiComboBox(Me.cbKube)
        Me.mcbkube.CheckNullValue = True
        Me.mcbkube.NullValueMessage = MyTxt.gettext(18)
        Me.mcbkube.DisplayColumnName = "name"
        Me.mcbkube.ValueColumnName = "mitarbeiternr"
        Me.mcbkube.Fill_Data(Generic_Select(8), False)

        'Postzustellung
        Me.SqlDataAdapter2.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
        Me.SqlDataAdapter2.SelectCommand.Parameters("@sprache").Value = Globals.Sprache
        Me.SqlDataAdapter2.Fill(Me.DataSet2)

        mcbpostzustellung = New MultiComboBox(Me.cbPostzustellung)
        Me.mcbpostzustellung.DisplayColumnName = "bezeichnung"
        Me.mcbpostzustellung.ValueColumnName = "nreintrag"
        Dim d As DataTable
        d = Me.DataSet2.Tables(0)
        Me.mcbpostzustellung.Fill_Data(d, False)
        Me.mcbpostzustellung.Enabled = True

        mcbzust = New MultiComboBox(Me.cbzust)
        Me.mcbzust.DisplayColumnName = "name"
        Me.mcbzust.ValueColumnName = "mitarbeiternr"
        Me.mcbzust.Fill_Data(Generic_Select(3), False)
        ii = Globals.MitarbeiterNr
        Me.mcbzust.SelectedValue = ii

        mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks)
        Me.mcbunterschriftlinks.DisplayColumnName = "name"
        Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr"
        For i = 0 To Me.Profile.Rows.Count - 1
            If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then
                CurrentProfil = i
            End If
        Next
        ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftlinks")
        Me.mcbunterschriftlinks.Fill_Data(Generic_Select(3), True)
        Me.mcbunterschriftlinks.SelectedValue = ii

        mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
        Me.mcbunterschriftrechts.DisplayColumnName = "name"
        Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
        For i = 0 To Me.Profile.Rows.Count - 1
            If Me.Profile.Rows(i).Item("profilnr") = Me.Profilnr Then
                CurrentProfil = i
            End If
        Next
        ii = Me.Profile.Rows(CurrentProfil).Item("unterschriftrechts")
        Me.mcbunterschriftrechts.Fill_Data(Generic_Select(3), True)
        Me.mcbunterschriftrechts.SelectedValue = ii

        Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich)
        Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
        Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
        FillMcbVerantwortlich()

        Me.rbZustaendigKube.Checked = False
        Me.RBZustaendigZustaendiger.Checked = True
        Me.txtZustelladresse.Text = ""

        If doktyp.bUnterschrift_links.Value = False Then Me.mcbunterschriftlinks.Enabled = False
        If doktyp.bUnterschrift_rechts.Value = False Then Me.mcbunterschriftrechts.Enabled = False
        If doktyp.bUnterschrift_links.Value = True Then Me.mcbunterschriftlinks.Enabled = True
        If doktyp.bUnterschrift_rechts.Value = True Then Me.mcbunterschriftrechts.Enabled = True

        Me.zu_retournieren = doktyp.bZu_retournieren.Value

        doktyp.Dispose()

        'Dokument ersetzen
        Me.Dokumentersetzen = Dokumentersetzen_Laden()
        w.save_dokumentersetzen = Dokumentersetzen_Laden()
        Me.ColdList.DataSource = Me.Dokumentersetzen
        Me.ColdList.Columns("aktiv").FilterText = True
        Me.ColdList.FilterBar = False
        DivFnkt.SpaltenTitel_Aktualisieren(Me.ColdList, Me.Dokumentersetzen, "dokumentersetzen")
        If doktyp.bCold_ersetzen.Value <> True Then Me.ColdList.Enabled = False Else Me.ColdList.Enabled = True

        'Notizen
        Notizen = Notizen_Laden()
        Me.Notizlist.DataSource = Notizen
        DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")

        'Dokumentzuordnungen
        Me.Dokumentzuorndungen = Dokumentzuordnungen_Laden()
        w.Save_Dokumentzuordnungen = Dokumentzuordnungen_Laden()
        Me.ZuordnungList.DataSource = Me.Dokumentzuorndungen

        DivFnkt.SpaltenTitel_Aktualisieren(Me.ZuordnungList, Me.Dokumentzuorndungen, "dokumentzuordnungen")
        Me.ZuordnungList.Columns("aktiv").FilterText = True
        Me.ZuordnungList.FilterBar = False

        Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox

        Dim dxx As New SqlDataAdapter("Select zuordnungnr, bezeichnung from zuordnung", Globals.sConnectionString)
        Dim dh As New DataSet()
        dxx.Fill(dh, "dd")
        Dim vv(100)
        For i = 0 To dh.Tables(0).Rows.Count - 1
            vv(i) = New C1.Win.C1TrueDBGrid.ValueItem()
            vv(i).DisplayValue = dh.Tables(0).Rows(i).Item("bezeichnung")
            vv(i).Value = dh.Tables(0).Rows(i).Item("zuordnungnr")
            Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Values.Add(vv(i))
            Me.ZuordnungList.Columns("zuordnungnr").ValueItems.Translate = True
        Next


        'Dokumentinfomeldungen
        Me.InfoMeldungList.FetchRowStyles = True
        Me.DokumentInfoMeldungen = Dokumentinfomeldungen_laden()
        w.Save_Dokumentinfomeldungen = Dokumentinfomeldungen_laden()
        Me.InfoMeldungList.DataSource = Me.DokumentInfoMeldungen
        Me.InfoMeldungList.Columns("aktiv").FilterText = True
        DivFnkt.SpaltenTitel_Aktualisieren(Me.InfoMeldungList, Me.DokumentInfoMeldungen, "Dokumentinfomeldung")

        'Team
        Me.mcbteam = New MultiComboBox(Me.cbteam)
        Me.mcbteam.CheckNullValue = True
        Me.mcbteam.NullValueMessage = MyTxt.gettext(18)
        Me.mcbteam.DisplayColumnName = "bezeichnung"
        Me.mcbteam.ValueColumnName = "teamnr"
        refresh_team()
        Me.mcbteam.SelectedIndex = 0

        Me.mcbstatus.SelectedIndex = 0
        Me.savestatus = Me.mcbstatus.SelectedValue
        Me.saveverantwortlicher = Globals.MitarbeiterNr

        Me.moeglichestati = Generic_Select(15)
        Me.cbmoeglicheStati.Items.Clear()
        Me.funktionsliste = ""
        '        Dim i As Integer
        settooltip()
        For i = 0 To Me.moeglichestati.Rows.Count - 1
            Me.cbmoeglicheStati.Items.Add(Me.moeglichestati.Rows(i).Item("bezeichnung"))
        Next


    End Sub

    Public Sub refresh_team()
        Dim tt As New DataTable()
        tt = Generic_Select(7)
        Me.mcbteam.DataSource = Nothing
        Me.mcbteam.Items.Clear()
        If tt.Rows.Count > 1 Then
            Me.mcbteam.Fill_Data(tt, False)
            Me.mcbteam.Enabled = True
        Else
            Me.mcbteam.Fill_Data(tt, False)
            Me.mcbteam.Enabled = False
        End If
        tt.Dispose()
    End Sub

    Private Sub mcbzust_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbzust.Leave
        If Me.On_Load Then Exit Sub
        refresh_team()
    End Sub

    Private Sub mcbkube_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbkube.Leave
        If Me.On_Load Then Exit Sub
        refresh_team()
    End Sub



#End Region

#Region "Formularhandling"
    Private Sub Set_Feldwert()
        Try
            'Me.DokWertList.Columns("feldwert").Value = Me.ValueList.Columns(0).Value
            'Me.DokWertList.Columns("feldwert").Value = Me.Datumselect.Text
        Catch
        End Try
    End Sub

    Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click
        Dim f As New FrmPartnersuche()
        f.profilnr = Me.Profilnr
        f.NurAbfrage = False
        f.ShowDialog()
        If f.PartnerNr <> 0 Then
            If DivFnkt.Ist_Berechtigt(Me.Dokumenttypnr, Globals.MitarbeiterNr, f.PartnerNr, "", 2, 0, 0, 0) Then
                If Me.txtPartnerInhaber.Text <> "" And Me.txtPartnerInhaber.Text <> Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Then
                    MyMsg.show_standardmessage(73, MsgBoxStyle.Information)
                End If
                Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung
                Me.txtPartnerInhaberNr.Text = f.PartnerNr
                Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr)
                Me.TabControl2.Enabled = True
                Me.RBZustaendigZustaendiger.Checked = True
                Me.mcbkube.DataSource = Nothing
                Me.mcbkube.Text = ""
                Me.mcbkube.Items.Clear()
                Me.Partnernr = f.PartnerNr
                FillMcbVerantwortlich()

            Else
                MyMsg.show_standardmessage(30, MsgBoxStyle.Critical)
                Me.Close()
            End If
        End If
    End Sub

    Private Sub Datumselect_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Set_Feldwert()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        If Me.CreateDocument = False Then
            DivFnkt.Status_Dokumentbearbeitung(2, Me.DokumentID, False, "")
            If Globals.Dokumentcoldindex_Changed Then Archivfnkt.Restore_Coldindex(Globals.general_ds.Tables(0), Me.DokumentID)
            If Globals.dokumentid_changed Then Archivfnkt.change_dokumentid(DokumentID, Globals.Dokumentidalt)
        Else
            Update_Bclabel(2)
        End If

        Me.Close()
    End Sub

#End Region

#Region "Datenhandling"
    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_Dokumentbearbeitung_DokWertList"
            Case 2
                scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_StatusSelektion"
            Case 3
                scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
            Case 4
                scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Notizen"
            Case 5
                scmCmdToExecute.CommandText = "sp_funktion_zuweisung_gestattet"
            Case 6
                scmCmdToExecute.CommandText = "sp_dokumentfunktion_zugewiesen"
            Case 7
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_team"
            Case 8
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_kube"
            Case 9
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_coldindex"
            Case 10
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_dokumentwerte_select"
            Case 11
                scmCmdToExecute.CommandText = "sp_dokument_als_bcdokument"
            Case 12
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statushistory"
            Case 13
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_ist_kundenberater"
            Case 14
                scmCmdToExecute.CommandText = "sp_archiv_getschema_doc"
            Case 15
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel"
            Case 16
                scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_statuswechsel_funktionen"
            Case 17
                'Mitarbeiter
                scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"

            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 1
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@regel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokWertList.Columns("datenherkunft").Value))
                Case 2
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
                    If Me.DokumentID = Nothing Then Me.DokumentID = ""
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                    If Me.CreateDocument = True Then
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    Else
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
                    End If
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    If Globals.bckdokument = False Then
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    Else
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    End If
                Case 5
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                Case 6
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NewDokumentID))
                Case 7
                    If Me.teamzustaendig = Globals.MitarbeiterNr Then
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Profilnr))
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    Else
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.teamzustaendig))
                    End If
                Case 8
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
                Case 9
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                Case 10
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                Case 11
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                Case 12
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                Case 13
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                Case 14
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnr))
                Case 15
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Case 16
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentID))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.selectedstatus))
                Case 17
                    'Mitarbeiter
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&"))
                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
    Private Sub load_Mitarbeiter()
        conn.OpenConnection()
        Dim t As DataTable
        t = Generic_Select(17)

        Me.drpMiatarbeiter.DataSource = t
        Me.drpMiatarbeiter.ListField = "FullName"
        Me.drpMiatarbeiter.DataField = "mitarbeiternr"
        Me.drpMiatarbeiter.ValueTranslate = True
        Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter
        conn.CloseConnection(True)

    End Sub
#End Region

#Region "Notizen"

    Private Sub Notizlist_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)



        Try

            If Me.Notizen.Rows.Count = 0 Then
                'Bei Systemnotitzen werden die Menue Ausgeblendet
                MnuEditNotiz.Enabled = False
                MnuDeleteNotiz.Enabled = False
                Notizlist.AllowUpdate = False
                Exit Sub

            End If
        Catch
        End Try
    End Sub

    Private Sub MnuDeleteNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteNotiz.Click
        Try
            Me.Notizlist.Columns(5).Value = False
            Me.Notizlist.Refresh()
            Me.TabControl2.Select()
            Me.Notizlist.Select()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click
        Dim f As New frmNotizen()
        Dim objMitarbeiter As New edokadb.clsMitarbeiter() 'koe 01092004 neu 
        objMitarbeiter.cpMainConnectionProvider = conn
        objMitarbeiter.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
        objMitarbeiter.SelectOne()

        f.Notiz = ""
        f.Betreff = ""
        f.Mutierer = objMitarbeiter.sName.ToString & " " & objMitarbeiter.sVorname.ToString & " , " & objMitarbeiter.sTgnummer.ToString
        objMitarbeiter.Dispose()
        f.ShowDialog()
        If f.DialogResult = DialogResult.OK Then
            Dim rc As DataRowCollection
            Dim newrow As DataRow

            rc = Notizen.Rows
            Dim rowvals(Me.Notizen.Columns.Count - 1) As Object
            '            For i = 0 To Me.Notizen.Columns.Count - 1
            '           MsgBox(Me.Notizen.Columns(i).Caption)
            '          Next
            rowvals(0) = System.DBNull.Value
            rowvals(2) = f.Betreff
            rowvals(3) = f.Notiz
            rowvals(5) = True                   'Aktiv
            rowvals(6) = Now()                  'erstellt_am
            rowvals(7) = Now()                  'mutiert_am
            rowvals(8) = Globals.MitarbeiterNr  'mutierer
            newrow = rc.Add(rowvals)
            Me.Notizlist.DataSource = Nothing
            Me.Notizlist.DataSource = Me.Notizen
            load_Mitarbeiter()
            DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "notizen")

            '            Me.Notizlist.Refresh()
            Try
                For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1
                    If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then
                        Me.Notizlist.Bookmark = i
                    End If
                Next
            Catch
            End Try
        End If
        f.Hide()
    End Sub

    Private Sub MnuEditNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditNotiz.Click
        Dim f As New frmNotizen()
        f.Betreff = Me.Notizlist.Columns("betreff").Value
        f.Notiz = Me.Notizlist.Columns("Notiz").Value
        f.Mutierer = Me.Notizlist.Columns("Mutierer").Text          'koe 01092004 neu
        f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text

        f.ShowDialog()
        If f.DialogResult = DialogResult.OK Then
            Me.Notizlist.Columns("betreff").Value = f.Betreff
            Me.Notizlist.Columns("notiz").Value = f.Notiz
            Me.Notizlist.Columns("Mutierer").Value = Globals.MitarbeiterNr
            Me.Notizlist.Columns("Mutiert_Am").Text = Now()
        End If
        f.Dispose()
    End Sub

    Private Sub Notizlist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MnuEditNotiz_Click(sender, e)
    End Sub

    Private Sub Notizlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notizlist.MouseDown
        Me.Notizlist.Bookmark = Me.Notizlist.RowContaining(e.Y)
    End Sub
#End Region

#Region "Dokumentwertliste"
    Private Sub MnuValueSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuValueSelect.Click, DokWertList.DoubleClick
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        Dim s As String
        Select Case UCase(Me.DokWertList.Columns("feldtyp").Value)
            Case "DATUM"
                Dim f As New frmCalendar()
                f.ShowDialog()
                If f.DialogResult = DialogResult.OK Then
                    s = f.MonthCalendar1.SelectionStart
                    Me.DokWertList.Columns("feldwert").Value = s
                End If
                f.Dispose()
            Case "TEXT"
                If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 8) = "&Partner" Then
                    Dim f As New FrmPartnersuche()
                    f.ShowDialog()
                    If f.PartnerNr <> 0 Then
                        Me.DokWertList.Columns("feldwert").Value = Str(f.PartnerNr) + "-" + f.PartnerKurzbezeichnnung
                    End If
                    f.Dispose()
                Else
                    If Microsoft.VisualBasic.Left(Me.DokWertList.Columns("Datenherkunft").Value, 1) = "&" Then
                        Dim f As New frmValueSelector()
                        f.Text = f.Text + Me.DokWertList.Columns(0).Value
                        f.Datenherkunft = Me.DokWertList.Columns("Datenherkunft").Value
                        f.partnernr = Me.txtPartnerInhaberNr.Text()
                        f.LoadData()
                        If f.Datenvorhanden = True Then
                            f.ShowDialog()
                            If f.DialogResult = DialogResult.OK Then Me.DokWertList.Columns("feldwert").Value = f.SelWert
                        End If
                        f.Dispose()
                    End If
                End If
            Case Else
        End Select
        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub DokwertList_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DokWertList.RowColChange
        Try
            Me.DokWertList.Columns("feldwert").EditMask = Me.DokWertList.Columns("eingabeformat").Value
            Me.DokWertList.Columns("feldwert").EditMaskUpdate = True
        Catch
        End Try
    End Sub


#End Region

#Region "Dokumenterstellung"

    Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click
        '        Dim xdata As DataTable
        '       Dim s As String
        '      If Me.savestatus = Me.mcbstatus.SelectedValue Then
        '         If MyMsg.Show_HinweisMessage(Me.Profilnr, 2, 71, 2) = False Then
        '            Exit Sub
        '       End If
        '  End If
        ' If Me.txtPartnerInhaber.Text = "" Then
        '            MyMsg.show_standardmessage(205, MsgBoxStyle.Critical)
        '           Exit Sub
        '      End If
        '     If Me.mcbverantwortlich.Text = "" Then
        '        MyMsg.show_standardmessage(208, MsgBoxStyle.Critical)
        '       Exit Sub
        '  End If
        ' If Check_Dokumentfunktionen() = False Then Exit Sub
        '        xdata = Me.DataSet1.Tables(0)
        '       For i = 0 To xdata.Rows.Count - 1
        '          If xdata.Rows(i).Item("zwingend") Is System.DBNull.Value Then
        '         Else
        '            If xdata.Rows(i).Item("zwingend") = True Then
        '               If xdata.Rows(i).Item("feldwert") Is System.DBNull.Value Or xdata.Rows(i).Item("feldwert") = "" Then
        '                  MyMsg.show_standardmessage(206, MsgBoxStyle.Critical)
        '                 Me.DokWertList.Focus()
        '                xdata.Dispose()
        '               Exit Sub
        '          End If
        '     End If
        '    End If
        '        Next
        '       If Me.mcbteam.SelectedValue = 0 Then
        '          MyMsg.show_standardmessage(207, MsgBoxStyle.Critical)
        '         Me.mcbteam.Focus()
        '        Exit Sub
        '   End If
        '  xdata.Dispose()
        Me.btnWeiter.Enabled = False
        Dokument_Bearbeiten(Me.CreateDocument)
    End Sub

    Private Function Check_Dokumentfunktionen() As Boolean
        Dim i As Integer
        Dim zz As Integer
        Dim bearbeiten As Boolean
        Dim abschliessen As Boolean
        bearbeiten = False
        abschliessen = False
        Check_Dokumentfunktionen = True
        If Me.DokumentFunktionenList.Visible = False Then Exit Function
        zz = 0
        For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
            If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then
                If Me.DokumentFunktionen.Rows(i).Item("bearbeiten") = True Then bearbeiten = True
                If Me.DokumentFunktionen.Rows(i).Item("abschliessen") = True Then abschliessen = True
                zz = zz + 1
            End If
        Next

        If zz = 0 Then
            Check_Dokumentfunktionen = True
            Exit Function
        End If
        If bearbeiten = False Or abschliessen = False Then
            If bearbeiten = False Then
                MyMsg.show_standardmessage(34, MsgBoxStyle.Critical)
                Check_Dokumentfunktionen = False
            End If
            If abschliessen = False Then
                MyMsg.show_standardmessage(35, MsgBoxStyle.Critical)
                Check_Dokumentfunktionen = False
            End If
        End If


    End Function
#End Region

#Region "Dokumentbearbeitung"

    Private Sub Dokument_Bearbeiten(ByVal neu As Boolean)
        If Me.Dokument_Ist_Abgeschlossen Or Me.NurDokinfo = True Then
            Try
                Dim xdoc As New edokadb.clsDokument()
                xdoc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
                xdoc.cpMainConnectionProvider = conn
                xdoc.SelectOne()
                xdoc.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
                xdoc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
                If Me.DateTimePicker2.Value Is System.DBNull.Value Then
                    xdoc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
                Else
                    xdoc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime))
                End If
                If Me.DateErinnerung.Value Is System.DBNull.Value Then
                    xdoc.daErinnerungam = New SqlDateTime(CType("01.01.1900", DateTime))
                Else
                    xdoc.daErinnerungam = New SqlDateTime(CType(Me.DateErinnerung.Value, DateTime))
                End If

                conn.OpenConnection()
                xdoc.Update()
                conn.CloseConnection(True)
                xdoc.Dispose()
                Notizen_Sichern()
                Dokumentzuordnungen_Sichern()
                Dokumentinfomeldungen_Sichern()
                DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                Me.Close()
            End Try
            Exit Sub
        End If
        w.txtPartner = Me.txtPartnerInhaber.Text
        w.txtDokumenttyp = Me.txtBezeichnung.Text
        w.ProgressBar.Info.Text = "Dokument erstellen"
        w.ProgressBar.Bar1.Value = 10

        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        Dim dbkey As New edokadb.clsMyKey_Tabelle()
        Dim doc As New edokadb.clsDokument()
        Dim doctyp As New edokadb.clsDokumenttyp()
        Dim docvor As New edokadb.clsOffice_vorlage()

        'Dokumenttyp laden
        doctyp.cpMainConnectionProvider = conn
        doctyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
        doctyp.SelectOne()

        'OfficeVorlage laden
        docvor.cpMainConnectionProvider = conn
        docvor.iOffice_vorlagenr = New SqlInt32(CType(doctyp.iOffice_vorlagenr.Value, Int32))
        docvor.SelectOne()

        'Dokument erstellen
        doc.cpMainConnectionProvider = conn
        If Me.CreateDocument Then
            doc.sDokumentid = New SqlString(CType(NewDokumentID, String))
        Else
            doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
            doc.SelectOne()
        End If
        doc.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
        doc.iNrpar00 = New SqlInt32(CType(Me.txtPartnerInhaberNr.Text, Int32))
        doc.bAktiv = New SqlBoolean(True)
        doc.bAmsdokument = New SqlBoolean(CType(False, Boolean))
        doc.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean))
        doc.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean))
        doc.daArchivierungsdatum = New SqlDateTime(CType(Me.DateTimePicker3.Value, DateTime))

        If Me.DateTimePicker2.Value Is System.DBNull.Value Then
            doc.daTermin = New SqlDateTime(CType("01.01.1900", DateTime))
        Else
            doc.daTermin = New SqlDateTime(CType(Me.DateTimePicker2.Value, DateTime))
        End If

        doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))
        'Hutter - anpassungen
        If Me.mcbstatus.Text = "Bereit für Ausgangsarchivierung" Then
            doc.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean))
        End If
        doc.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean))
        doc.bGesperrt = New SqlBoolean(CType(Me.cGesperrt.Checked, Boolean))
        If Me.cGesperrt.Checked Then
            doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime))
        End If
        doc.bUnvollstaendig = New SqlBoolean(CType(False, Boolean))
        doc.bZu_retournieren = New SqlBoolean(CType(doctyp.bZu_retournieren.Value, Boolean))
        doc.iColdstatus = New SqlInt32(CType(0, Int32))
        doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
        If neu = True Then
            doc.iErsteller = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            doc.iErstellerteam = New SqlInt32(CType(0, Int32))
            doc.daErstelltam = New SqlDateTime(CType(Now, DateTime))
            doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            doc.iMutiererteam = New SqlInt32(CType(0, Int32))
            doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
            If Globals.bckdokument Then
                doc.iBck = New SqlInt32(CType(1, Int32))
            Else
                doc.iBck = New SqlInt32(CType(1, Int32))
            End If
            doc.iAufbewahrung_elektronisch = New SqlInt32(CType(doctyp.iAufbewahrungsfrist_elektronisch.Value, Int32))
            doc.iAufbewahrung_phaysisch = New SqlInt32(CType(doctyp.iTage_mutation.Value, Int32))
            doc.iBearbeitung_nach_abschluss = New SqlInt32(CType(doctyp.iAnzahl_tage.Value, Int32))
            doc.iBearbeitungszeit_in_minuten = New SqlInt32(CType(doctyp.iDbearbeitungszeit.Value, Int32))
            doc.iMonierung_in_tagen = New SqlInt32(CType(doctyp.iAnzahl_tage.Value, Int32))
        Else
            doc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            doc.iMutierertieam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32))
            doc.daMutiertam = New SqlDateTime(CType(Now, DateTime))
        End If

        doc.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32))
        doc.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32))
        doc.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32))
        doc.bVertraulich = New SqlBoolean(CType(Me.cvertraulich.Checked, Boolean))
        doc.sZustelladresse = New SqlString(CType(Me.txtZustelladresse.Text, String))
        doc.sAnredezustelladresse = New SqlString(CType(Me.txtAnredeZusteller.Text, String))

        If Me.rbZustaendigKube.Checked Then
            doc.iZustaendiger = New SqlInt32(CType(Me.mcbkube.SelectedValue, Int32))
        Else
            doc.iZustaendiger = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32))
        End If
        doc.iPostzustellung = New SqlInt32(CType(Me.mcbpostzustellung.SelectedValue, Int32))
        doc.bZustaendig_kube = New SqlBoolean(CType(Me.rbZustaendigKube.Checked, Boolean))
        If Me.cGesperrt.Checked Then
            doc.iGesperrt_durch = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            doc.daGesperrtam = New SqlDateTime(CType(Now, DateTime))
        Else
            doc.iGesperrt_durch = New SqlInt32(CType(0, Int32))
        End If
        doc.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32))
        doc.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32))
        doc.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
        doc.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
        doc.sColddokumentid = New SqlString(CType("", String))

        doc.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))

        If Not Me.CreateDocument Then
            doc.iStatusnr = New SqlInt32(CType(Me.mcbstatus.SelectedValue, Int32))
        End If

        doc.daErstellungsdatum = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime))
        '        doc.bBereit_zur_archivierung = New SqlBoolean(CType(False, Boolean))

        If docvor.iAnwendungnr.Value = 1 Then
            doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".doc", String))
        Else
            doc.sDokumentname = New SqlString(CType(docvor.sPrefix_dokumentname.Value + doc.sDokumentid.Value + ".xls", String))
        End If

        If Me.CreateDocument Then doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
        If Not doc.iDokdurchkubeweitergegeben.Value = 1 Then
            Dim tx As DataTable
            tx = Generic_Select(13)
            If tx.Rows(0).Item(0) = 1 Then
                doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(1, Int32))
            Else
                doc.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32))
            End If
            tx.Dispose()
        End If

        Dim s As String

        s = DivFnkt.Get_Filename(doc.sDokumentname.Value, Me.txtPartnerInhaberNr.Text)
        conn.OpenConnection()
        If Me.CreateDocument Then
            Dim t As DataTable
            t = Generic_Select(14)
            doc.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String))
            doc.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String))
            doc.Insert()
            t.Dispose()
            Dim statush As New Statushandling()
            statush.Status_Erstellen(doc.sDokumentid.Value, False)
            statush.Dispose()
            doc.iStatusnr = New SqlInt32(CType(get_current_Status(doc.sDokumentid.Value), Int32))
            doc.Update()
        Else
            doc.Update()
        End If
        conn.CloseConnection(True)

        Dokumentid = doc.sDokumentid.Value
        If Globals.bckdokument = True Then
            Cold_Index_Bearbeiten(2)
        Else
            Cold_Index_Bearbeiten(1)
            If Me.zu_retournieren Then
                Cold_Index_Bearbeiten(2)
            End If
        End If
        Dokumentid = doc.sDokumentid.Value
        Dokumentwerte_Sichern()
        Notizen_Sichern()
        Dokumentzuordnungen_Sichern()
        Dokumentersetzen_Sichern()
        Dokumentinfomeldungen_Sichern()
        Dokumentfunktionen_sichern()
        Status_History(doc.iStatusnr.Value)
        If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
            w.ProgressBar.Show()
            w.ProgressBar.Info.Text = "Dokumentwerte zusammenstellen"
            w.ProgressBar.Bar1.Value = 10
        End If
        Dim xdata As DataTable
        xdata = Dokumentwerte(doc.sDokumentid.Value)
        Dokumentid = doc.sDokumentid.Value

        'Dokument erstellen bzw. öffnen
        w.DokumentID = doc.sDokumentid.Value
        w.DokumentName = doc.sDokumentname.Value
        If Me.CreateDocument Then
            w.CreateDoc = True
            If Me.BarcodeID = "" Then w.Create_Dokument_Before_Fill(doc.iDokumenttypnr.Value, xdata, s)
        Else
            If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
                w.CreateDoc = False
                Dim docrestore As New DocMgmt()
                docrestore.Get_From_DB(Dokumentid, s)
                w.Open_Document(s, xdata, doc.iDokumenttypnr.Value)
            End If
        End If
        Me.Hide()

        If Globals.Dokumentcoldindex_Changed Then
            w.dokumentidalt = Globals.Dokumentidalt
            w.save_dokumentcoldindex = Globals.general_ds.Tables(0)
            w.Dokumentcoldindex_Changed = Globals.Dokumentcoldindex_Changed
            w.dokumentid_changed = Globals.dokumentid_changed
            w.dokumentcoldindex_status = Globals.dokumentcoldindex_status
            w.Ersetzte_Dokumente_Reaktivieren = Globals.Ersetzte_Dokumente_Reaktivieren
        End If

        'Anzeigen der Dokumentwerte, sofern die Checkbox markiert war
        If Me.cdokumentwerteanzeigen.Checked Then
            Dim f As New frmDokumentwerte()
            f.WordData = xdata
            f.isOk = True
            Me.Cursor = System.Windows.Forms.Cursors.Default
            f.ShowDialog()
            If f.isOk = 0 Then
                f.Dispose()
                w.CloseDoc()
                If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2)
                DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
            Else
                If f.isOk = 1 Then
                    f.Dispose()
                    w.Dokument_Vervollstaendigen(xdata)
                    Words.Add(w, w.DokumentName)
                Else
                    If f.isOk = 2 Then
                        f.Dispose()
                        If Me.CreateDocument = True Then w.Restore(1) Else w.Restore(2)
                        DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
                        Me.CreateDocument = False
                        Me.btnWeiter.Enabled = True
                        Me.Show()
                    End If
                End If
            End If
        Else
            If Me.BarcodeID = "" And Me.Dokumentinfobearbeiten = False Then
                w.Dokument_Vervollstaendigen(xdata)
                Words.Add(w, w.DokumentName)
            Else
                If Not Me.Dokumentinfobearbeiten = True Then
                    Update_Bclabel(1)
                End If
                DivFnkt.Status_Dokumentbearbeitung(2, Me.Dokumentid, False, "")
            End If
        End If
        xdata.Dispose()
        doc.Dispose()
    End Sub

    Private Function get_current_Status(ByVal dokumentid As String) As Long
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_current_status"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@statustext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.mcbstatus.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@currentstatus", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            sdaAdapter.Fill(dtToReturn)
            get_current_Status = scmCmdToExecute.Parameters.Item("@currentstatus").Value
            Return get_current_Status
        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

    Private Sub Update_Bclabel(ByVal typ As Integer)
        If Me.BarcodeID = "" Then Exit Sub
        Dim bc As New edokadb.clsBarcodeetikette()
        bc.cpMainConnectionProvider = conn
        bc.iBarcodenr = New SqlInt32(CType(Me.BarcodeID, Int32))
        bc.SelectOne()
        conn.OpenConnection()
        If typ = 2 And Me.CreateDocument = True Then
            bc.sDokumentid = New SqlString(CType("", String))
        Else
            bc.sDokumentid = New SqlString(CType(Me.Dokumentid, String))
        End If
        bc.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
        bc.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        bc.Update()
        conn.CloseConnection(True)
    End Sub

    Public Sub Cold_Index_Bearbeiten(ByVal indextyp As Integer)
        Dim xdata As DataTable
        Dim cdata As DataTable
        cdata = COLD_Index_Sichern(indextyp)
        xdata = Me.DataSet1.Tables(0)
        For i = 0 To xdata.Rows.Count - 1
            If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then
            Else
                If xdata.Rows(i).Item("cold_indexfeld") > 0 Then
                    Dim scmCmdToExecute As SqlCommand = New SqlCommand()
                    scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index_Update"
                    scmCmdToExecute.CommandType = CommandType.StoredProcedure
                    scmCmdToExecute.Connection = conn.scoDBConnection
                    scmCmdToExecute.Connection.Open()
                    Try
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@coldfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("cold_indexfeld")))
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
                        scmCmdToExecute.ExecuteNonQuery()
                    Catch ex As Exception
                        ' // some error occured. Bubble it to caller and encapsulate Exception object
                        Throw New Exception("Dokument_Cold_Index_Update::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
                    Finally
                        scmCmdToExecute.Connection.Close()
                        scmCmdToExecute.Dispose()
                    End Try
                End If
            End If
        Next
        cdata.Dispose()
        xdata.Dispose()
    End Sub

    Public Function COLD_Index_Sichern(ByVal indextyp As Integer) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
            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

    Public Sub Dokumentwerte_Sichern()
        Dim xdata As DataTable
        xdata = Me.DataSet1.Tables(0)
        For i = 0 To xdata.Rows.Count - 1
            If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then xdata.Rows(i).Item("cold_indexfeld") = 0
            If xdata.Rows(i).Item("cold_indexfeld") = 0 Then
                Dim scmCmdToExecute As SqlCommand = New SqlCommand()
                scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Connection.Open()
                Try
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))
                    scmCmdToExecute.ExecuteNonQuery()
                Catch ex As Exception
                    ' // some error occured. Bubble it to caller and encapsulate Exception object
                    Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
                Finally
                    scmCmdToExecute.Connection.Close()
                    scmCmdToExecute.Dispose()
                End Try
            End If
        Next
        xdata.Dispose()
    End Sub

    Public Sub Notizen_Sichern()
        For i = 0 To Me.Notizen.Rows.Count - 1
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.SP_Dokument_Notizen"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            scmCmdToExecute.Connection.Open()
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@notiznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiznr")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("betreff")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("notiz")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notizen.Rows(i).Item("aktiv")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        Next
    End Sub

    Public Sub Dokumentersetzen_Sichern()
        For i = 0 To Me.Dokumentersetzen.Rows.Count - 1
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.SP_Dokumentersetzen_sichern"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            scmCmdToExecute.Connection.Open()
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentersetzennr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentersetzennr")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@hauptdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("dokumentid")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("aktiv")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@coldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentersetzen.Rows(i).Item("coldstatus")))
                scmCmdToExecute.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokument_Ersetzen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        Next
    End Sub

    Public Sub Dokumentzuordnungen_Sichern()
        For i = 0 To Me.Dokumentzuorndungen.Rows.Count - 1
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.SP_Dokumentzuordnungen_sichern"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            scmCmdToExecute.Connection.Open()
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentzuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("NrEintrag")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid2", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("DOKUMENTID2")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@zuordnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("zuordnungnr")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentzuorndungen.Rows(i).Item("AKTIV")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
                scmCmdToExecute.ExecuteNonQuery()
            Catch ex As Exception
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        Next
    End Sub

    Public Sub Dokumentinfomeldungen_Sichern()
        For i = 0 To Me.DokumentInfoMeldungen.Rows.Count - 1
            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
            scmCmdToExecute.CommandText = "dbo.SP_Dokumentinfomeldungen_sichern"
            scmCmdToExecute.CommandType = CommandType.StoredProcedure
            scmCmdToExecute.Connection = conn.scoDBConnection
            scmCmdToExecute.Connection.Open()
            Try
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentinfomeldungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("dokumentinfomeldungnr")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("empfaengernr")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@bemerkung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("bemerkung")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@meldungstext", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("meldungstext")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@beistatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("beistatus")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("aktiv")))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@mandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
                scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentInfoMeldungen.Rows(i).Item("typ")))

                scmCmdToExecute.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message)
                ' // some error occured. Bubble it to caller and encapsulate Exception object
                Throw New Exception(scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
        Next
    End Sub

    Public Sub Dokumentfunktionen_sichern()
        Try
            For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
                Dim scmCmdToExecute As SqlCommand = New SqlCommand()
                scmCmdToExecute.CommandText = "dbo.SP_Dokumentfunktionen_Sichern"
                scmCmdToExecute.CommandType = CommandType.StoredProcedure
                scmCmdToExecute.Connection = conn.scoDBConnection
                scmCmdToExecute.Connection.Open()
                Try
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentfunktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("dokumentfunktiongruppenr")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@funktiongruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("funktionsgruppenr")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@anzeigen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("anzeigen")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@bearbeiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("bearbeiten")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("loeschen")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@abschliessen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("abschliessen")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@aktiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentFunktionen.Rows(i).Item("aktiv")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
                    scmCmdToExecute.ExecuteNonQuery()
                Catch ex As Exception
                    ' // some error occured. Bubble it to caller and encapsulate Exception object
                    Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
                Finally
                    scmCmdToExecute.Connection.Close()
                    scmCmdToExecute.Dispose()
                End Try
            Next
        Catch
        End Try
    End Sub


    Private Function Dokumentwerte(ByVal dokumentid As String) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Dokumentwerte"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Connection = conn.scoDBConnection
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@ierrorcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
        Try
            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

    Private Function Status_History(ByVal statusnr As Long)
        Dim statush As New Statushandling()
        Dim i, i1 As Integer
        If Me.saveverantwortlicher = Me.mcbverantwortlich.SelectedValue And Me.savestatus = Me.mcbstatus.SelectedValue And Not Me.CreateDocument And Me.mcbstatus.SelectedIndex = 0 Then
            statush.Dispose()
            Exit Function
        End If
        If Me.CreateDocument Then
            i = Me.mcbstatus.SelectedValue
            Me.mcbstatus.SelectedIndex = 0
            statush.insert_history_status(get_current_Status(Me.Dokumentid), Me.Dokumentid, Globals.MitarbeiterNr)
            System.Threading.Thread.Sleep(500)
            Me.mcbstatus.SelectedValue = i
            If Me.mcbstatus.SelectedIndex <> 0 Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then
                statush.insert_history_status(get_current_Status(Me.Dokumentid), Me.Dokumentid, Me.mcbverantwortlich.SelectedValue)
            End If
            w.send_statusmessage = True
        Else
            If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbstatus.SelectedIndex <> 0 Then
                i = Me.mcbstatus.SelectedValue
                Me.mcbstatus.SelectedIndex = 0
                Me.savestatus = Me.mcbstatus.SelectedValue
                statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.Dokumentid, Globals.MitarbeiterNr)
                w.send_statusmessage = True
                Me.mcbstatus.SelectedValue = i
                System.Threading.Thread.Sleep(500)
            End If
            If Me.mcbstatus.SelectedValue <> Me.savestatus Or Me.mcbverantwortlich.SelectedValue <> Me.saveverantwortlicher Then
                statush.insert_history_status(Me.mcbstatus.SelectedValue, Me.Dokumentid, Me.mcbverantwortlich.SelectedValue)
            End If
        End If

        statush.Dispose()
    End Function


#End Region

#Region "Dokumentfunktionen"
    Private Sub Dokumentfunktionen_Aktivieren()
        Dim t As DataTable
        t = Generic_Select(5)
        If t.Rows.Count > 0 Then
            Me.SqlConnection1.ConnectionString = Globals.sConnectionString
            Me.SqlDataAdapter3.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
            Me.DataSet3.Clear()
            Me.SqlDataAdapter3.Fill(Me.DataSet3)
            '            Me.Funktionsliste.DataSource = Me.DataSet3
            '           Me.Funktionsliste.DataMember = Me.DataSet3.Tables(0).TableName

            t.Clear()
            Me.DokumentFunktionen = Generic_Select(6)
            w.Save_DokumentFunktionen = Generic_Select(6)
            Me.DataSet4.Tables.Add(Me.DokumentFunktionen)
            Me.DokumentFunktionenList.DataSource = Me.DataSet4
            Me.DokumentFunktionenList.DataMember = Me.DataSet4.Tables(0).TableName
            Me.DokumentFunktionenList.Columns("aktiv").FilterText = True
            Me.DokumentFunktionenList.FilterBar = False
            DivFnkt.SpaltenTitel_Aktualisieren(Me.DokumentFunktionenList, Me.DokumentFunktionen, "berechtigungseinschraenkung")

        Else
            Me.pnlBerechtigungen.Visible = False
        End If
    End Sub
#End Region

    Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
        If Me.Notizen.Rows.Count = 0 Then
            Me.ContextMenu1.MenuItems(1).Enabled = False
            Me.ContextMenu1.MenuItems(2).Enabled = False
        Else
            If Microsoft.VisualBasic.Left(Notizlist.Columns("betreff").Text, 3) = "***" Then
                Me.ContextMenu1.MenuItems(1).Enabled = False     'Notiz bearbeiten
                Me.ContextMenu1.MenuItems(2).Enabled = False     'Notiz &löschen
            Else
                'Bei Systemnotitzen werden die Menue Ausgeblendet
                Me.ContextMenu1.MenuItems(1).Enabled = True     'Notiz bearbeiten
                Me.ContextMenu1.MenuItems(2).Enabled = True     'Notiz &löschen
            End If
        End If
    End Sub

    Private Sub ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup
        If Me.ZuordnungList.Splits(0).Rows.Count = 0 Then
            Me.MnuDokzuordnungDelete.Enabled = False
            Me.MnuShowDoc.Enabled = False
        Else
            Me.MnuDokzuordnungDelete.Enabled = True
            Me.MnuShowDoc.Enabled = True
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim f As New FrmPartnersuche()
        f.ShowDialog()
        If f.PartnerNr <> 0 Then
            Me.DokWertList.Columns("feldwert").Value = f.PartnerNr
        End If

    End Sub

    Private Sub rbZustaendigKube_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbZustaendigKube.CheckedChanged
        Me.mcbzust.Enabled = False
        Me.mcbkube.Enabled = True
        If Me.rbZustaendigKube.Checked = True Then
            Me.mcbkube.DataSource = Nothing
            Me.mcbkube.Items.Clear()
            Me.mcbkube.Fill_Data(Generic_Select(8), False)
            If Me.mcbkube.Items.Count = 0 Then
                Me.mcbkube.Text = ""
                Me.rbZustaendigKube.Checked = False
                Me.RBZustaendigZustaendiger.Checked = True
                MyMsg.show_standardmessage(24, MsgBoxStyle.Information)
                RBZustaendigZustaendiger_CheckedChanged(sender, e)
                Exit Sub
            End If
        End If
        Try
            Me.mcbkube.Focus()
            Me.mcbkube.SelectedIndex = 0
            Try
                Me.teamzustaendig = Me.mcbkube.SelectedValue
                Me.refresh_team()
            Catch
            End Try
        Catch
        End Try
    End Sub


    Private Sub RBZustaendigZustaendiger_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBZustaendigZustaendiger.CheckedChanged
        Me.mcbkube.Enabled = False
        Me.mcbzust.Enabled = True
        Me.mcbzust.Focus()

        Try
            Me.teamzustaendig = Me.mcbzust.SelectedValue
            Me.refresh_team()
        Catch
        End Try

    End Sub

    Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
        If Me.DokWertList.Columns("datenherkunft").Value = "" Then
            Me.MnuValueSelect.Enabled = False
        Else
            Me.MnuValueSelect.Enabled = True
        End If
    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        If Me.On_Load Then Exit Sub
        Me.DateTimePicker3.Value = Me.DateTimePicker1.Value
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If Me.txtPartnerInhaberNr.Text > 91000000 Then
                Dim f As New frmInteressent()
                f.Partnernr = Me.txtPartnerInhaberNr.Text
                f.Display = True
                f.ShowDialog()
                f.Dispose()
            Else
                Dim f As New frmPartnerDetails()
                f.Partnernr = Me.txtPartnerInhaberNr.Text
                f.ShowDialog()
                f.Dispose()
            End If
        Catch
        Finally
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim f As New FrmPartnersuche()
        f.ShowDialog()

        If f.PartnerNr <> 0 Then
            Me.txtZustelladresse.Text = f.zustelladresse
            Me.txtAnredeZusteller.Text = f.Anrede
            Me.txtZustelladresse.Focus()
        End If
    End Sub



    Private Sub DateTimePicker2_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Delete Then
            Me.DateTimePicker2.ResetText()
            Me.DateTimePicker2.Value = System.DBNull.Value
        End If
    End Sub

    Private Sub MnuDokZuordnungAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungAdd.Click
        Globals.profilnr = Me.Profilnr
        Dim fx As New frmTrefferliste()
        fx.OnlySelect = True
        fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text
        fx.Partner_Eingegeben = True
        '        fx.refresh_list()
        fx.ToolBar1.Visible = False
        fx.txtnrpar00.Visible = False
        fx.tvstruktur.ContextMenu = Nothing
        fx.Text = "Dokument für Dokumentzuordnung auswählen"
        fx.ImgCombo.Visible = False
        fx.btnPartnersuche.Visible = False
        fx.LblSearch.Visible = False
        fx.DokList.ContextMenu = fx.ContextMenu3
        fx.SelectedDokumentid = ""
        fx.DoRefresh = True
        fx.ShowDialog()
        Try
            If fx.SelectedDokumentid <> "" Then
                Dim rc As DataRowCollection
                Dim newrow As DataRow
                rc = Me.Dokumentzuorndungen.Rows
                Dim rowvals(Me.Dokumentzuorndungen.Columns.Count - 1) As Object
                rowvals(0) = 0
                rowvals(2) = 1
                rowvals(6) = 1
                rowvals(8) = fx.SelectedDokumentid
                rowvals(10) = fx.Dokumentbezeichnung

                newrow = rc.Add(rowvals)
                Me.ZuordnungList.Refresh()
                'For i = 0 To Me.ZuordnungList.Splits(0).Rows.Count - 1
                'If Me.ZuordnungList.Columns(0).CellText(i) = fx.SelectedDokumentid Then
                '    Me.ZuordnungList.Bookmark = i
                'End If
                'Next
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        fx.Dispose()
    End Sub


    Private Sub MnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowDoc.Click
        DivFnkt.ShowDoc(Me.ZuordnungList.Columns(8).Text, Me)
        'Dim doc As New edokadb.clsDokument()
        'Dim Dokument As String
        'Dim FileReader As New DocMgmt()
        'doc.cpMainConnectionProvider = conn
        'doc.sDokumentid = New SqlString(CType(Me.ZuordnungList.Columns(1).Value, String))
        'doc.SelectOne()
        'Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
        'FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument)
        'doc.Dispose()
        'FileReader = Nothing
        'Dim w As New WordLib()
        'w.ShowDoc(Dokument)
        'w = Nothing
    End Sub

    Private Sub MnuDokzuordnungDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokzuordnungDelete.Click
        Me.ZuordnungList.Columns("aktiv").Value = False
        Me.ZuordnungList.Refresh()
        Me.TabControl2.Select()
        Me.ZuordnungList.Select()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dokumentzuordnungen_Sichern()
    End Sub

    Private Sub mnuInfoEmpfaengerAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerAdd.Click
        Dim f As New frmInformationsEmpfaenger()
        f.Dokumenttypnr = Me.Dokumenttypnr
        If Me.CreateDocument = True Then
            f.fromDokumenttyp = True
        Else
            f.fromDokumenttyp = False
            f.dokumentid = Me.Dokumentid
        End If
        f.ShowDialog()
        If f.DialogResult = DialogResult.OK Then
            Dim rc As DataRowCollection
            Dim newrow As DataRow
            rc = Me.DokumentInfoMeldungen.Rows
            Dim rowvals(9) As Object
            rowvals(0) = 0
            rowvals(1) = 0
            rowvals(2) = f.Empfaenger
            rowvals(3) = f.Empaengertext
            rowvals(4) = f.Meldungsnr
            rowvals(5) = f.Meldung
            If Len(f.Bemerkung) > 0 Then f.Bemerkung = f.Bemerkung + vbCrLf + "----------------------" + vbCrLf + vbCrLf
            rowvals(6) = f.Bemerkung
            rowvals(7) = f.Statusnr
            rowvals(8) = f.Statustext
            rowvals(9) = 1
            newrow = rc.Add(rowvals)
            Me.InfoMeldungList.Refresh()
            f.Dispose()
        End If
    End Sub

    Private Sub mnuInfoEmpfaengerDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoEmpfaengerDelete.Click
        Try
            Me.InfoMeldungList.Columns(9).Value = False
            Me.InfoMeldungList.Refresh()
            Me.TabControl2.Select()
            Me.InfoMeldungList.Select()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub cvertraulich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            FillMcbVerantwortlich()
            Me.mcbverantwortlich.Focus()
            Me.mcbkube.SelectAll()
        Catch
        End Try
    End Sub

    Private Function FillMcbVerantwortlich()
        Dim dd As New DataTable()
        Dim I As Integer
        Dim s As String
        s = ""
        Try
            For I = 0 To Me.DokumentFunktionen.Rows.Count - 1
                If Me.DokumentFunktionen.Rows(I).Item("aktiv") = 1 Then
                    If s <> "" Then s = s + ";"
                    s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(I).Item("funktionsgruppenr")))
                End If
            Next
        Catch
        End Try
        Try
            I = Me.mcbverantwortlich.SelectedValue
            If I = 0 Then I = Globals.MitarbeiterNr

            Me.mcbverantwortlich.DataSource = Nothing
            Me.mcbverantwortlich.Items.Clear()
            If Me.cvertraulich.Checked = True Then
                dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 1, s)
            Else
                dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, Me.Partnernr, "", 3, 0, 0, 0, s)
            End If
            Me.mcbverantwortlich.Fill_Data(dd, False)
            Me.mcbverantwortlich.SelectedValue = I
            If Me.mcbverantwortlich.Items.Count = 0 Then
                Me.mcbverantwortlich.Text = ""
                Me.mcbverantwortlich.CheckNullValue = False
            Else
                Me.mcbverantwortlich.CheckNullValue = True
            End If
        Catch
        Finally
            dd.Clear()
            dd.Dispose()
        End Try
    End Function

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim i As Integer
        Dim s As String
        s = ""
        Try
            For i = 0 To Me.DokumentFunktionen.Rows.Count - 1
                If Me.DokumentFunktionen.Rows(i).Item("aktiv") = 1 Then
                    If s <> "" Then s = s + ";"
                    s = s + Microsoft.VisualBasic.LTrim(Str(Me.DokumentFunktionen.Rows(i).Item("funktionsgruppenr")))
                End If
            Next
        Catch
        End Try
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor

        Dim f As New frmBerechtigungen()
        If Me.cvertraulich.Checked Then
            f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 1, s)
        Else
            f.Fill_Berechtigungen(Me.Dokumenttypnr, Me.Partnernr, 0, s)
        End If
        Me.Cursor = System.Windows.Forms.Cursors.Default
        f.ShowDialog()
        f.Dispose()
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MenuItem2_Click(sender, e)
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim f As New frmDokumentberechtigung()
        f.Dokumenttyp = Me.Dokumenttypnr
        f.Partnernr = Me.Partnernr
        f.Vertraulich = Me.cvertraulich.Checked
        f.ShowDialog()
        If f.DialogResult = DialogResult.OK Then
            Dim rc As DataRowCollection
            Dim newrow As DataRow
            rc = DokumentFunktionen.Rows
            Dim rowvals(Me.DokumentFunktionenList.Columns.Count - 1)
            rowvals(0) = System.DBNull.Value
            rowvals(1) = f.Funktionsgruppebezeichnung
            rowvals(2) = f.Funktionsgruppenr
            rowvals(3) = f.Anzeigen
            rowvals(4) = f.Bearbeiten
            rowvals(5) = f.Loeschen
            rowvals(6) = f.Abschliessen
            rowvals(7) = True
            rowvals(8) = Now
            rowvals(9) = Globals.MitarbeiterNr
            newrow = rc.Add(rowvals)
            Me.DokumentFunktionenList.Refresh()
            For i = 0 To Me.DokumentFunktionenList.Splits(0).Rows.Count - 1
                If Me.DokumentFunktionenList.Columns("bezeichnung").CellText(i) = f.Funktionsgruppebezeichnung Then
                    Me.DokumentFunktionenList.Bookmark = i
                End If
            Next
            Me.FillMcbVerantwortlich()
        End If
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Me.DokumentFunktionenList.Columns(7).Value = False
        Me.DokumentFunktionenList.Refresh()
        Me.Button3.Focus()
        Me.DokumentFunktionenList.Focus()
        Me.FillMcbVerantwortlich()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Globals.profilnr = Me.Profilnr
        Dim fx As New frmTrefferliste()
        fx.OnlySelect = True
        fx.txtnrpar00.Text = Me.txtPartnerInhaberNr.Text
        fx.Partner_Eingegeben = True
        '        fx.refresh_list()
        fx.ToolBar1.Visible = False
        fx.txtnrpar00.Visible = False
        fx.tvstruktur.ContextMenu = Nothing
        fx.Text = "Dokument für Dokumentzuordnung auswählen"
        fx.ImgCombo.Visible = False
        fx.btnPartnersuche.Visible = False
        fx.LblSearch.Visible = False
        fx.DokList.ContextMenu = fx.ContextMenu3
        fx.SelectedDokumentid = ""
        fx.DoRefresh = True
        fx.ShowDialog()
        Try
            If fx.SelectedDokumentid <> "" Then
                If Check_Dokumentersetzen(Me.Dokumenttypnr, fx.SelectedDokumentid) Then
                    Dim rc As DataRowCollection
                    Dim newrow As DataRow
                    rc = Dokumentersetzen.Rows
                    Dim rowvals(Me.Dokumentersetzen.Columns.Count - 1) As Object
                    rowvals(0) = System.DBNull.Value
                    rowvals(1) = ""
                    If Me.CreateDocument Then
                        rowvals(1) = ""
                    Else
                        rowvals(1) = Me.Dokumentid
                    End If
                    rowvals(2) = fx.SelectedDokumentid
                    rowvals(3) = True

                    rowvals(8) = fx.Dokumentbezeichnung
                    rowvals(9) = fx.dokumentdatum
                    newrow = rc.Add(rowvals)
                    Me.ColdList.Refresh()
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        fx.Dispose()
    End Sub

    Private Function Check_Dokumentersetzen(ByVal dokumenttypnr As Integer, ByVal dokumentid As String) As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim s As String
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_dokumentbearbeitung_chcek_dokumentersetzen"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            sdaAdapter.Fill(dtToReturn)
            s = scmCmdToExecute.Parameters.Item("@errormessage").Value
            If s <> "" Then
                MyMsg.show_standardmessage(Val(s), MsgBoxStyle.Critical)
                Return False
            End If
            Return True
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

    End Function

    Private Sub cbKube_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbkube.SelectedIndexChanged
        Try
            Me.teamzustaendig = Me.mcbkube.SelectedValue
        Catch
        End Try
        refresh_team()
    End Sub


    Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.SelectedIndexChanged
        Try
            Me.teamzustaendig = Me.mcbzust.SelectedValue
            refresh_team()
        Catch
        End Try
    End Sub

    Private Sub DokWertList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokWertList.Click

    End Sub

    Private Sub InfoMeldungList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs)
        Try
            If Me.InfoMeldungList.Columns("typ").CellValue(e.Row) = 1 Then
                e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
            End If
        Catch
        End Try
    End Sub

    Private Sub ContextMenu7_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu7.Popup
        Try
            If Me.ColdList.Splits(0).Rows.Count = 0 Then
                Me.MenuItem6.Enabled = False
            Else
                Me.MenuItem6.Enabled = True
            End If
        Catch
        End Try
    End Sub

    Private Sub ContextMenu4_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu4.Popup
        Try
            If Me.InfoMeldungList.Columns("typ").Value = 1 Then
                Me.mnuInfoEmpfaengerDelete.Enabled = False
            Else
                Me.mnuInfoEmpfaengerDelete.Enabled = True
            End If
            If Me.InfoMeldungList.Splits(0).Rows.Count = 0 Then
                Me.mnuInfoEmpfaengerDelete.Enabled = False
            Else
                Me.mnuInfoEmpfaengerDelete.Enabled = True
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Me.ColdList.Columns("aktiv").Value = False
    End Sub

    Private Function check_banklagernd() As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_check_banklagernd"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtPartnerInhaberNr.Text))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@banklagernd", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            sdaAdapter.Fill(dtToReturn)
            i = scmCmdToExecute.Parameters.Item("@banklagernd").Value
            If i <> 0 Then
                check_banklagernd = True
            Else
                check_banklagernd = False
            End If
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

    End Function

    Private Sub txtZustelladresse_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtZustelladresse.Leave
        If check_banklagernd() = True Then
            If MyMsg.Show_MessageYesNo(72) = MsgBoxResult.No Then
                Me.txtZustelladresse.Text = ""
                Me.txtAnredeZusteller.Text = ""
            End If
        End If
    End Sub

    Private Sub DokWertList_AfterColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DokWertList.AfterColEdit
        Me.DokWertList.Update()
    End Sub

    Private Function get_partnerzusteller(ByVal nrpar00 As Integer) As String
        Dim p As New edokadb.clsPartner()
        Dim p1 As New edokadb.clsPartner()
        Dim s As String
        s = ""
        p.cpMainConnectionProvider = conn
        p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
        p.SelectOne()
        If p.iNRPAR00.ToString <> p.sNRPARAD.ToString Then
            Try
                p1.cpMainConnectionProvider = conn
                p1.iNRPAR00 = New SqlInt32(CType(p.sNRPARAD.Value, Int32))
                p1.SelectOne()
                s = p1.sNRPARAD.ToString + " " + p1.sBKPAR00.Value
            Catch
                s = ""
            End Try
        End If
        p.Dispose()
        p1.Dispose()
        get_partnerzusteller = s
    End Function


    Private Sub cbmoeglicheStati_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.DropDown
        Me.cbmoeglicheStati.Width = 200
        Me.cbsave.Visible = True
    End Sub

    Private Sub cbmoeglicheStati_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.Leave
        Me.cbsave.Visible = False
        Me.cbmoeglicheStati.Width = 21
    End Sub

    Private Sub cbmoeglicheStati_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmoeglicheStati.SelectedValueChanged
        Dim i As Integer
        Dim DATA As DataTable
        Me.cbsave.Visible = False
        Me.cbmoeglicheStati.Width = 21
        Me.txtstatus.Text = Me.cbmoeglicheStati.Text
        Me.Label3.Visible = True
        Me.txtstatus.Visible = True
        If Me.txtstatus.Text = Me.mcbstatus.Text Then
            Me.Label3.Visible = False
            Me.txtstatus.Visible = False
            Me.funktionsliste = ""
            Me.selectedstatus = 0
        Else
            For i = 0 To Me.moeglichestati.Rows.Count - 1
                If Me.txtstatus.Text = Me.moeglichestati.Rows(i).Item("bezeichnung") Then
                    Me.selectedstatus = Me.moeglichestati.Rows(i).Item("nr")
                End If
            Next
        End If
        Me.funktionsliste = ""
        DATA = Generic_Select(16)
        For i = 0 To DATA.Rows.Count - 1
            If Me.funktionsliste <> "" Then Me.funktionsliste = Me.funktionsliste + ";"
            Me.funktionsliste = Me.funktionsliste + LTrim(DATA.Rows(i).Item("funktionnr"))
        Next
        fill_mcbmitarbeiter()
        Me.mcbverantwortlich.Focus()
    End Sub

    Private Sub fill_mcbmitarbeiter()
        Me.mcbverantwortlich.DataSource = Nothing
        Me.mcbverantwortlich.Items.Clear()
        Me.mcbverantwortlich.CheckNullValue = True
        Me.mcbverantwortlich.NullValueMessage = MyTxt.gettext(18)
        Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter"
        Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr"
        Me.mcbverantwortlich.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.funktionsliste), False)
        '        Me.mcbmitarbeiter.Fill_Data(DivFnkt.Berechtigte_Mitarbeiter(0, 0, 0, Me.Dokumentid, 3, 0, 0, 0, Me.Funktionsliste), False)

        ' Me.mcbverantwortlich.SelectedValue = Me.mitarbeiternr


    End Sub


#Region "IndexMutation"
    Public Function load_indexmutation()
        Dim i As Integer
        Dim s As String
        Me.GroupBox15.Enabled = False
        If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
            Me.GroupBox15.Enabled = True
        End If

        If Me.Dokument_Ist_Abgeschlossen = False Then
            If Me.Aktueller_Dokumentverantwortlicher = Globals.MitarbeiterNr Or DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
                Me.GroupBox15.Enabled = True
            Else
                Me.GroupBox15.Enabled = False
            End If
        Else
            set_abgeschlossen_menu()
            If GroupBox15.Enabled = False And DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.GroupBox15.Enabled = True
        End If

        If GroupBox15.Enabled = False Then Exit Function

        daten = get_dokumentdaten()
        dokumente = get_dokumente()
        Me.TextBox1.Text = Me.Partnernr
        For i = 0 To daten.Rows.Count - 1
            Select Case daten.Rows(i).Item("cold_indexfeldnr")
                Case 1
                    Me.TextBox1.Text = RTrim(daten.Rows(i).Item("wert"))
                    Partnernr = Me.TextBox1.Text
                Case 3
                    Me.TextBox4.Text = RTrim(daten.Rows(i).Item("wert"))
                    Me.vvnr = Me.TextBox4.Text
                Case 5
                    s = daten.Rows(i).Item("wert")
                    If Microsoft.VisualBasic.InStr(s, ".") > 0 Then
                        datum = s
                    Else
                        datum = Microsoft.VisualBasic.Right(s, 2) + "." + Mid(s, 5, 2) + "." + Microsoft.VisualBasic.Left(s, 4)
                    End If
                    Me.DateTimePicker4.Value = datum
                Case 14
                    Me.TextBox2.Text = RTrim(daten.Rows(i).Item("wert"))
                    Me.gf = Me.TextBox2.Text
                Case 12
                    Me.TextBox2.Text = RTrim(daten.Rows(i).Item("wert"))
                    Me.gf = Me.TextBox2.Text
                Case 17
                    Me.TextBox3.Text = RTrim(daten.Rows(i).Item("wert"))
                    Me.gu = Me.TextBox3.Text
            End Select
        Next
    End Function

    Private Function get_dokumentdaten() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokinfo"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Function get_dokumente() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokumente"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function


    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim f As New FrmPartnersuche()
        f.NurAbfrage = True
        f.ShowDialog()
        If f.PartnerNr <> 0 Then
            Me.Cursor = Cursors.WaitCursor
            Me.TextBox1.Text = f.PartnerNr
            Me.Cursor = Cursors.Default
            MyMsg.show_standardmessage(94, MsgBoxStyle.Information)
        End If
        f.Dispose()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim f As New frmValueSelector()
        f.Text = "Auswahl VV-Nummer"
        f.Datenherkunft = "&VVdesPartners&"
        f.Datenherkunft = "&VVunformatiert&"
        f.Partnernr = Me.TextBox1.Text
        f.LoadData()
        If f.Datenvorhanden = True Then
            f.ShowDialog()
            If f.DialogResult = DialogResult.OK Then Me.TextBox4.Text = f.SelWert
        End If
        f.Dispose()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Me.Partnernr <> Me.TextBox1.Text Then
            Update_Partnernr(Me.Dokumentid, Me.TextBox1.Text)
        End If
        If Me.vvnr <> Me.TextBox4.Text Then
            Update_vvnr(Dokumentid, Me.TextBox4.Text)
        End If
        If Me.gu <> Me.TextBox3.Text Then
            Update_gu(Dokumentid, Me.TextBox3.Text)
        End If
        If Me.gf <> Me.TextBox2.Text Then
            Update_gf(Me.Dokumentid, Me.TextBox2.Text)
        End If
        If Me.datum <> Me.DateTimePicker4.Value Then
            Update_datum(Dokumentid, Me.datum, Me.DateTimePicker4.Value.ToShortDateString)
        End If
        MyMsg.show_standardmessage(95, MsgBoxStyle.Information)
    End Sub

    Public Sub Update_Status(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal status As String)
        Dim ityp As Integer
        If indextyp = 0 Then
            ityp = get_indextyp(dokumentid, colddokumentid)
        Else
            ityp = indextyp
        End If
        Insert_ColdUpdate(dokumentid, colddokumentid, ityp, 7, status)
        Update_DokumentColdIndexwert(dokumentid, ityp, 7, status)
    End Sub

    Public Sub Update_Partnernr(ByVal dokumentid As String, ByVal partnernr As String)
        Dim d As New edokadb.clsDokument()
        Dim kurzname As String
        Dim ort As String
        d.cpMainConnectionProvider = Globals.conn
        d.sDokumentid = New SqlString(CType(dokumentid, String))
        d.SelectOne()
        d.iNrpar00 = New SqlInt32(CType(partnernr, Int32))
        conn.OpenConnection()
        d.Update()
        conn.CloseConnection(True)
        d.Dispose()
        kurzname = get_data("&PartnerKurzname&")
        ort = get_data("&PartnerInhaberOrt&")
        Dim i As Integer
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 1, partnernr)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 1, Me.TextBox1.Text)
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 2, kurzname)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 2, kurzname)
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 8, ort)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 8, ort)
        Next
    End Sub

    Public Sub Update_vvnr(ByVal dokumentid As String, ByVal vvnr As String)
        Dim i As Integer
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 3, vvnr)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 3, vvnr)
        Next
    End Sub

    Public Sub Update_gu(ByVal dokumentid As String, ByVal gu As String)
        Dim i As Integer
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 17, gu)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 17, gu)
        Next
    End Sub

    Public Sub Update_gf(ByVal dokumentid As String, ByVal gf As String)
        Dim i As Integer
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 14, gf)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 14, gf)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 12, gf)
        Next
    End Sub

    Public Sub Update_datum(ByVal dokumentid As String, ByVal datuma As DateTime, ByVal datum As DateTime)
        Dim i As Integer
        Dim alterwert As String
        Dim neuerwert As String
        Dim s As String
        alterwert = LTrim(Str(Year(datuma)))
        s = LTrim(Str(Month(datuma)))
        While Len(s) < 2
            s = "0" + s
        End While
        alterwert = alterwert + s
        s = LTrim(Str(Microsoft.VisualBasic.Day(datuma)))
        While Len(s) < 2
            s = "0" + s
        End While
        alterwert = alterwert + s

        neuerwert = LTrim(Str(Year(datum)))
        s = LTrim(Str(Month(datum)))
        While Len(s) < 2
            s = "0" + s
        End While
        neuerwert = neuerwert + s
        s = LTrim(Str(Microsoft.VisualBasic.Day(datum)))
        While Len(s) < 2
            s = "0" + s
        End While
        neuerwert = neuerwert + s
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate_Datum(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), alterwert, neuerwert)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 5, Me.DateTimePicker4.Value.ToShortDateString)
        Next

    End Sub

    Public Function Insert_ColdUpdate(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal feldnr As Integer, ByVal wert As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Archiv_insert_coldupdate"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        conn.OpenConnection()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@feldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            conn.CloseConnection(True)
        End Try
    End Function

    Public Function Insert_ColdUpdate_Datum(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal alterwert As String, ByVal neuerwert As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.sp_indexmutation_insert_datumupdate"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        conn.OpenConnection()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@alterwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, alterwert))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, neuerwert))
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            conn.CloseConnection(True)
        End Try
    End Function

    Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        conn.OpenConnection()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Indextyp))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            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()
            conn.CloseConnection(True)
        End Try
    End Function

    Private Function get_data(ByVal datenherkunft As String) As String
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_dokumentwerte_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, datenherkunft))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            sdaAdapter.Fill(dtToReturn)
            Return scmCmdToExecute.Parameters("@value").Value
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Function get_indextyp(ByVal dokumentid As String, ByVal colddokumentid As String) As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getindextyp"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            sdaAdapter.Fill(dtToReturn)
            Return scmCmdToExecute.Parameters("@indextyp").Value
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Sub set_abgeschlossen_menu()
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_abgeschlossenes_dokument"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@indexmutation", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@aufhebung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            sdaAdapter.Fill(dtToReturn)
            i = scmCmdToExecute.Parameters.Item("@indexmutation").Value
            If i <> 0 Then
                Me.GroupBox15.Enabled = True
            End If
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try


    End Sub

#End Region

    Private Sub ZuordnungList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZuordnungList.Click

    End Sub

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

    Private Sub btnLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoeschen.Click
        Me.TextBox4.Text = ""
    End Sub
End Class