EDOKA_DMS/EDOKA/Systemadministration/Domains/Save/frmDomainDokumenttypDetail.vb

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

Public Class frmDomainDokumenttypDetail
    Inherits System.Windows.Forms.Form
    Dim m_NeuerEintrag As Boolean
    Dim m_dokumenttypkey As Long
    Dim tcoldfolder As DataTable
    Dim tofficevorlage As DataTable
    Dim tphysischesarchiv As DataTable
    Dim tdokumentartausgang As DataTable
    Dim tdokumentarteingang As DataTable
    Dim dokumentart As New edokadb.clsMyDokumentart()
    Dim tstatustyp As DataTable
    Dim DataChanged As Boolean
    Dim tprozess1 As DataTable
    Dim tprozess2 As DataTable

    Dim t As DataTable
    Dim r As DataTable
    Dim savestatustyp As Long
    Dim me_onLoad As Boolean
    Dim StatusDataChanged As Boolean
    Dim VorlagenDataChanged As Boolean
    Dim DokStatus As Integer

#Region "Properties"
    Property NeuerEintrag() As Boolean
        Get
            Return m_NeuerEintrag
        End Get
        Set(ByVal Value As Boolean)
            m_NeuerEintrag = Value
        End Set
    End Property
    Property DokumentTypkey() As Long
        Get
            Return m_dokumenttypkey
        End Get
        Set(ByVal Value As Long)
            m_dokumenttypkey = Value
        End Set
    End Property

#End Region

#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

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

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

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

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

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents Dokumenttypnr As System.Windows.Forms.Label
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents cbAufbewahrungphysisch As System.Windows.Forms.ComboBox
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents cbAufbewahrungelektronisch As System.Windows.Forms.ComboBox
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents cbInEdokaDB As System.Windows.Forms.ComboBox
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents cbAbschluss As System.Windows.Forms.ComboBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents cbMonierung As System.Windows.Forms.ComboBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents cbBearbeitungszeit As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents cUnterschriftrechts As System.Windows.Forms.CheckBox
    Friend WithEvents cUnterschriftlinks As System.Windows.Forms.CheckBox
    Friend WithEvents cVertraulich As System.Windows.Forms.CheckBox
    Friend WithEvents cNichtgeloescht As System.Windows.Forms.CheckBox
    Friend WithEvents cStatusMutation As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents btnSelDokumentartEingang As System.Windows.Forms.Button
    Friend WithEvents btnSelDokumentartAusgang As System.Windows.Forms.Button
    Friend WithEvents btnSelColdfolder As System.Windows.Forms.Button
    Friend WithEvents btnSelPhysischeAblage As System.Windows.Forms.Button
    Friend WithEvents cbArchiv As System.Windows.Forms.ComboBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents cbColdFolder As System.Windows.Forms.ComboBox
    Friend WithEvents cEingangErsetztAusgang As System.Windows.Forms.CheckBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents cbDokartEingang As System.Windows.Forms.ComboBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents cbDokartAusgang As System.Windows.Forms.ComboBox
    Friend WithEvents cZuRetournieren As System.Windows.Forms.CheckBox
    Friend WithEvents cZuVercolden As System.Windows.Forms.CheckBox
    Friend WithEvents Grp1 As System.Windows.Forms.GroupBox
    Friend WithEvents btnSelOfficeVorlage As System.Windows.Forms.Button
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TxTBeschreibung As System.Windows.Forms.TextBox
    Friend WithEvents TxTBezeichnung As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents cbOfficeVorlage As System.Windows.Forms.ComboBox
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabStruktur As System.Windows.Forms.TabPage
    Friend WithEvents TabStatusreihenfolge As System.Windows.Forms.TabPage
    Friend WithEvents TabDokumentfelder As System.Windows.Forms.TabPage
    Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
    Friend WithEvents TxtDokumentartKundendossier As System.Windows.Forms.TextBox
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents TVStruktur As System.Windows.Forms.TreeView
    Friend WithEvents RBKundendossier As System.Windows.Forms.RadioButton
    Friend WithEvents RBErstellung As System.Windows.Forms.RadioButton
    Friend WithEvents RBHost As System.Windows.Forms.RadioButton
    Friend WithEvents RBEingang As System.Windows.Forms.RadioButton
    Friend WithEvents TxtDokumentartHost As System.Windows.Forms.TextBox
    Friend WithEvents TxTDokumentartRetournierung As System.Windows.Forms.TextBox
    Friend WithEvents TxtDokumentartErstellung As System.Windows.Forms.TextBox
    Friend WithEvents cbStatustyp As System.Windows.Forms.ComboBox
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Statuslist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents btnsave As System.Windows.Forms.Button
    Friend WithEvents pnlVorlagenfeld As System.Windows.Forms.Panel
    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 vorlagenfeldlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents cbprozesserstellung As System.Windows.Forms.ComboBox
    Friend WithEvents cbprozessverwendung As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents txthostdokumenttyp As System.Windows.Forms.TextBox
    Friend WithEvents cHostDokument As System.Windows.Forms.CheckBox
    Friend WithEvents cAMSDokument As System.Windows.Forms.CheckBox
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents cWirdImportiert As System.Windows.Forms.CheckBox
    Friend WithEvents cDokumentwirderstellt As System.Windows.Forms.CheckBox
    Friend WithEvents CDokumentwirdretourniert As System.Windows.Forms.CheckBox
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents DokumentstatusRolle_Liste As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents BtnSaveRollen As System.Windows.Forms.Button
    Friend WithEvents btnNeueRolle As System.Windows.Forms.Button
    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 ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents RBGesamt As System.Windows.Forms.RadioButton
    Friend WithEvents TxtDokumentartGesamt As System.Windows.Forms.TextBox
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MnuDokZuordnungauheben As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents cAktiv As System.Windows.Forms.CheckBox
    Friend WithEvents CDokumentersetzen As System.Windows.Forms.CheckBox
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
    Friend WithEvents BeschrausOV As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents vorlagenfeldbezeichnunglist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    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 Button3 As System.Windows.Forms.Button
    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 ColdIndexfeldList As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
    Friend WithEvents SqlDataAdapter4 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
    Friend WithEvents DataSet4 As System.Data.DataSet
    Friend WithEvents cEmailVersand As System.Windows.Forms.CheckBox
    Friend WithEvents cFunktion_zuweisen As System.Windows.Forms.CheckBox
    Friend WithEvents rbDokStatusStandard As System.Windows.Forms.RadioButton
    Friend WithEvents rbEtikette As System.Windows.Forms.RadioButton
    Friend WithEvents txtDokumentstatus As System.Windows.Forms.TextBox
    Friend WithEvents txtDokumentstatus_barcode As System.Windows.Forms.TextBox
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents btnsavevorlagenfeldlist As System.Windows.Forms.Button
    Friend WithEvents BtnStandard As System.Windows.Forms.Button
    Friend WithEvents btnVorlagenfeld As System.Windows.Forms.Button
    Friend WithEvents cidvnative As System.Windows.Forms.CheckBox
    Friend WithEvents RBEinzeldokumente As System.Windows.Forms.RadioButton
    Friend WithEvents txtDokumentartEinzeldokument As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainDokumenttypDetail))
        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()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.cidvnative = New System.Windows.Forms.CheckBox()
        Me.txtDokumentstatus_barcode = New System.Windows.Forms.TextBox()
        Me.txtDokumentstatus = New System.Windows.Forms.TextBox()
        Me.cAktiv = New System.Windows.Forms.CheckBox()
        Me.TxtDokumentartGesamt = New System.Windows.Forms.TextBox()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.CDokumentwirdretourniert = New System.Windows.Forms.CheckBox()
        Me.cWirdImportiert = New System.Windows.Forms.CheckBox()
        Me.cDokumentwirderstellt = New System.Windows.Forms.CheckBox()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.txthostdokumenttyp = New System.Windows.Forms.TextBox()
        Me.cHostDokument = New System.Windows.Forms.CheckBox()
        Me.cAMSDokument = New System.Windows.Forms.CheckBox()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.cbprozessverwendung = New System.Windows.Forms.ComboBox()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.cbprozesserstellung = New System.Windows.Forms.ComboBox()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.TxTDokumentartRetournierung = New System.Windows.Forms.TextBox()
        Me.TxtDokumentartErstellung = New System.Windows.Forms.TextBox()
        Me.TxtDokumentartHost = New System.Windows.Forms.TextBox()
        Me.TxtDokumentartKundendossier = New System.Windows.Forms.TextBox()
        Me.Dokumenttypnr = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.cbAufbewahrungphysisch = New System.Windows.Forms.ComboBox()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.cbAufbewahrungelektronisch = New System.Windows.Forms.ComboBox()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.cbInEdokaDB = New System.Windows.Forms.ComboBox()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.cbAbschluss = New System.Windows.Forms.ComboBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.cbMonierung = New System.Windows.Forms.ComboBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.cbBearbeitungszeit = New System.Windows.Forms.ComboBox()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.cFunktion_zuweisen = New System.Windows.Forms.CheckBox()
        Me.cEmailVersand = New System.Windows.Forms.CheckBox()
        Me.CDokumentersetzen = New System.Windows.Forms.CheckBox()
        Me.cUnterschriftrechts = New System.Windows.Forms.CheckBox()
        Me.cUnterschriftlinks = New System.Windows.Forms.CheckBox()
        Me.cVertraulich = New System.Windows.Forms.CheckBox()
        Me.cNichtgeloescht = New System.Windows.Forms.CheckBox()
        Me.cStatusMutation = New System.Windows.Forms.CheckBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.btnSelDokumentartEingang = New System.Windows.Forms.Button()
        Me.btnSelDokumentartAusgang = New System.Windows.Forms.Button()
        Me.btnSelColdfolder = New System.Windows.Forms.Button()
        Me.btnSelPhysischeAblage = New System.Windows.Forms.Button()
        Me.cbArchiv = New System.Windows.Forms.ComboBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.cbColdFolder = New System.Windows.Forms.ComboBox()
        Me.cEingangErsetztAusgang = New System.Windows.Forms.CheckBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.cbDokartEingang = New System.Windows.Forms.ComboBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.cbDokartAusgang = New System.Windows.Forms.ComboBox()
        Me.cZuRetournieren = New System.Windows.Forms.CheckBox()
        Me.cZuVercolden = New System.Windows.Forms.CheckBox()
        Me.Grp1 = New System.Windows.Forms.GroupBox()
        Me.btnSelOfficeVorlage = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.TxTBeschreibung = New System.Windows.Forms.TextBox()
        Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
        Me.BeschrausOV = New System.Windows.Forms.MenuItem()
        Me.TxTBezeichnung = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.cbOfficeVorlage = New System.Windows.Forms.ComboBox()
        Me.txtDokumentartEinzeldokument = New System.Windows.Forms.TextBox()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabStruktur = New System.Windows.Forms.TabPage()
        Me.TVStruktur = New System.Windows.Forms.TreeView()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.MnuDokZuordnungauheben = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.RBEinzeldokumente = New System.Windows.Forms.RadioButton()
        Me.RBGesamt = New System.Windows.Forms.RadioButton()
        Me.RBEingang = New System.Windows.Forms.RadioButton()
        Me.RBHost = New System.Windows.Forms.RadioButton()
        Me.RBErstellung = New System.Windows.Forms.RadioButton()
        Me.RBKundendossier = New System.Windows.Forms.RadioButton()
        Me.TabStatusreihenfolge = New System.Windows.Forms.TabPage()
        Me.rbEtikette = New System.Windows.Forms.RadioButton()
        Me.rbDokStatusStandard = New System.Windows.Forms.RadioButton()
        Me.BtnSaveRollen = New System.Windows.Forms.Button()
        Me.btnNeueRolle = New System.Windows.Forms.Button()
        Me.DokumentstatusRolle_Liste = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.btnsave = New System.Windows.Forms.Button()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.cbStatustyp = New System.Windows.Forms.ComboBox()
        Me.Statuslist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.TabDokumentfelder = New System.Windows.Forms.TabPage()
        Me.pnlVorlagenfeld = New System.Windows.Forms.Panel()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.btnVorlagenfeld = New System.Windows.Forms.Button()
        Me.BtnStandard = New System.Windows.Forms.Button()
        Me.btnsavevorlagenfeldlist = New System.Windows.Forms.Button()
        Me.ColdIndexfeldList = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Label25 = New System.Windows.Forms.Label()
        Me.vorlagenfeldbezeichnunglist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.vorlagenfeldlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        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.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        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.SqlDataAdapter4 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand()
        Me.DataSet4 = New System.Data.DataSet()
        Me.Panel1.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.Grp1.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.TabStruktur.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.TabStatusreihenfolge.SuspendLayout()
        CType(Me.DokumentstatusRolle_Liste, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlVorlagenfeld.SuspendLayout()
        Me.Panel3.SuspendLayout()
        CType(Me.ColdIndexfeldList, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.vorlagenfeldbezeichnunglist, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.vorlagenfeldlist, System.ComponentModel.ISupportInitialize).BeginInit()
        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.SuspendLayout()
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton3, Me.ToolBarButton2, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(848, 25)
        Me.ToolBar1.TabIndex = 10
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 2
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 4
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 5
        Me.ToolBarButton4.Visible = False
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 7
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 8
        '
        'Panel1
        '
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cidvnative, Me.txtDokumentstatus_barcode, Me.txtDokumentstatus, Me.cAktiv, Me.TxtDokumentartGesamt, Me.GroupBox5, Me.GroupBox4, Me.TxTDokumentartRetournierung, Me.TxtDokumentartErstellung, Me.TxtDokumentartHost, Me.TxtDokumentartKundendossier, Me.Dokumenttypnr, Me.GroupBox3, Me.GroupBox2, Me.GroupBox1, Me.Grp1, Me.txtDokumentartEinzeldokument})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel1.Location = New System.Drawing.Point(0, 25)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(504, 676)
        Me.Panel1.TabIndex = 13
        '
        'cidvnative
        '
        Me.cidvnative.Location = New System.Drawing.Point(384, 640)
        Me.cidvnative.Name = "cidvnative"
        Me.cidvnative.Size = New System.Drawing.Size(104, 16)
        Me.cidvnative.TabIndex = 27
        Me.cidvnative.Text = "Einzeldokument"
        '
        'txtDokumentstatus_barcode
        '
        Me.txtDokumentstatus_barcode.Location = New System.Drawing.Point(192, 0)
        Me.txtDokumentstatus_barcode.Name = "txtDokumentstatus_barcode"
        Me.txtDokumentstatus_barcode.Size = New System.Drawing.Size(16, 20)
        Me.txtDokumentstatus_barcode.TabIndex = 26
        Me.txtDokumentstatus_barcode.Text = "Retournierung"
        Me.txtDokumentstatus_barcode.Visible = False
        '
        'txtDokumentstatus
        '
        Me.txtDokumentstatus.Location = New System.Drawing.Point(176, 0)
        Me.txtDokumentstatus.Name = "txtDokumentstatus"
        Me.txtDokumentstatus.Size = New System.Drawing.Size(16, 20)
        Me.txtDokumentstatus.TabIndex = 25
        Me.txtDokumentstatus.Text = "Retournierung"
        Me.txtDokumentstatus.Visible = False
        '
        'cAktiv
        '
        Me.cAktiv.Location = New System.Drawing.Point(8, 640)
        Me.cAktiv.Name = "cAktiv"
        Me.cAktiv.Size = New System.Drawing.Size(72, 16)
        Me.cAktiv.TabIndex = 24
        Me.cAktiv.Text = "Aktiv"
        '
        'TxtDokumentartGesamt
        '
        Me.TxtDokumentartGesamt.Location = New System.Drawing.Point(80, 0)
        Me.TxtDokumentartGesamt.Name = "TxtDokumentartGesamt"
        Me.TxtDokumentartGesamt.Size = New System.Drawing.Size(24, 20)
        Me.TxtDokumentartGesamt.TabIndex = 23
        Me.TxtDokumentartGesamt.Text = "Erstellung"
        Me.TxtDokumentartGesamt.Visible = False
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.CDokumentwirdretourniert, Me.cWirdImportiert, Me.cDokumentwirderstellt, Me.Label23, Me.txthostdokumenttyp, Me.cHostDokument, Me.cAMSDokument})
        Me.GroupBox5.Location = New System.Drawing.Point(8, 152)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(488, 72)
        Me.GroupBox5.TabIndex = 1
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Dokument-Modus"
        '
        'CDokumentwirdretourniert
        '
        Me.CDokumentwirdretourniert.Location = New System.Drawing.Point(16, 50)
        Me.CDokumentwirdretourniert.Name = "CDokumentwirdretourniert"
        Me.CDokumentwirdretourniert.Size = New System.Drawing.Size(168, 16)
        Me.CDokumentwirdretourniert.TabIndex = 5
        Me.CDokumentwirdretourniert.Text = "Retournierung mit Etikette"
        '
        'cWirdImportiert
        '
        Me.cWirdImportiert.Location = New System.Drawing.Point(16, 35)
        Me.cWirdImportiert.Name = "cWirdImportiert"
        Me.cWirdImportiert.Size = New System.Drawing.Size(104, 16)
        Me.cWirdImportiert.TabIndex = 4
        Me.cWirdImportiert.Text = "Wird importiert"
        '
        'cDokumentwirderstellt
        '
        Me.cDokumentwirderstellt.Location = New System.Drawing.Point(16, 16)
        Me.cDokumentwirderstellt.Name = "cDokumentwirderstellt"
        Me.cDokumentwirderstellt.Size = New System.Drawing.Size(136, 24)
        Me.cDokumentwirderstellt.TabIndex = 0
        Me.cDokumentwirderstellt.Text = "Dokument wird erstellt"
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(352, 39)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(32, 23)
        Me.Label23.TabIndex = 14
        Me.Label23.Text = "Typ"
        '
        'txthostdokumenttyp
        '
        Me.txthostdokumenttyp.Enabled = False
        Me.txthostdokumenttyp.Location = New System.Drawing.Point(392, 39)
        Me.txthostdokumenttyp.Name = "txthostdokumenttyp"
        Me.txthostdokumenttyp.Size = New System.Drawing.Size(64, 20)
        Me.txthostdokumenttyp.TabIndex = 3
        Me.txthostdokumenttyp.Text = ""
        '
        'cHostDokument
        '
        Me.cHostDokument.Location = New System.Drawing.Point(352, 21)
        Me.cHostDokument.Name = "cHostDokument"
        Me.cHostDokument.Size = New System.Drawing.Size(112, 16)
        Me.cHostDokument.TabIndex = 2
        Me.cHostDokument.Text = "HOST-Dokument"
        '
        'cAMSDokument
        '
        Me.cAMSDokument.Location = New System.Drawing.Point(216, 16)
        Me.cAMSDokument.Name = "cAMSDokument"
        Me.cAMSDokument.TabIndex = 1
        Me.cAMSDokument.Text = "AMS-Dokument"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1, Me.cbprozessverwendung, Me.Label22, Me.cbprozesserstellung, Me.Label21})
        Me.GroupBox4.Location = New System.Drawing.Point(8, 584)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(488, 48)
        Me.GroupBox4.TabIndex = 5
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Prozesse"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(456, 18)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(24, 23)
        Me.Button2.TabIndex = 22
        Me.Button2.Text = "..."
        Me.Button2.Visible = False
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(208, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(24, 23)
        Me.Button1.TabIndex = 21
        Me.Button1.Text = "..."
        Me.Button1.Visible = False
        '
        'cbprozessverwendung
        '
        Me.cbprozessverwendung.Location = New System.Drawing.Point(320, 18)
        Me.cbprozessverwendung.Name = "cbprozessverwendung"
        Me.cbprozessverwendung.Size = New System.Drawing.Size(136, 21)
        Me.cbprozessverwendung.TabIndex = 3
        Me.cbprozessverwendung.Text = "CBProzessVerwendung"
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(248, 21)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(72, 16)
        Me.Label22.TabIndex = 2
        Me.Label22.Text = "Verwendung"
        '
        'cbprozesserstellung
        '
        Me.cbprozesserstellung.Location = New System.Drawing.Point(72, 17)
        Me.cbprozesserstellung.Name = "cbprozesserstellung"
        Me.cbprozesserstellung.Size = New System.Drawing.Size(136, 21)
        Me.cbprozesserstellung.TabIndex = 1
        Me.cbprozesserstellung.Text = "CBProzessErstellung"
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(16, 20)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(56, 16)
        Me.Label21.TabIndex = 0
        Me.Label21.Text = "Erstellung"
        '
        'TxTDokumentartRetournierung
        '
        Me.TxTDokumentartRetournierung.Location = New System.Drawing.Point(136, 0)
        Me.TxTDokumentartRetournierung.Name = "TxTDokumentartRetournierung"
        Me.TxTDokumentartRetournierung.Size = New System.Drawing.Size(16, 20)
        Me.TxTDokumentartRetournierung.TabIndex = 20
        Me.TxTDokumentartRetournierung.Text = "Retournierung"
        Me.TxTDokumentartRetournierung.Visible = False
        '
        'TxtDokumentartErstellung
        '
        Me.TxtDokumentartErstellung.Location = New System.Drawing.Point(112, 0)
        Me.TxtDokumentartErstellung.Name = "TxtDokumentartErstellung"
        Me.TxtDokumentartErstellung.Size = New System.Drawing.Size(16, 20)
        Me.TxtDokumentartErstellung.TabIndex = 19
        Me.TxtDokumentartErstellung.Text = "Erstellung"
        Me.TxtDokumentartErstellung.Visible = False
        '
        'TxtDokumentartHost
        '
        Me.TxtDokumentartHost.Location = New System.Drawing.Point(48, 0)
        Me.TxtDokumentartHost.Name = "TxtDokumentartHost"
        Me.TxtDokumentartHost.Size = New System.Drawing.Size(24, 20)
        Me.TxtDokumentartHost.TabIndex = 18
        Me.TxtDokumentartHost.Text = "Host"
        Me.TxtDokumentartHost.Visible = False
        '
        'TxtDokumentartKundendossier
        '
        Me.TxtDokumentartKundendossier.Location = New System.Drawing.Point(8, 0)
        Me.TxtDokumentartKundendossier.Name = "TxtDokumentartKundendossier"
        Me.TxtDokumentartKundendossier.Size = New System.Drawing.Size(32, 20)
        Me.TxtDokumentartKundendossier.TabIndex = 17
        Me.TxtDokumentartKundendossier.Text = "Kundendossier"
        Me.TxtDokumentartKundendossier.Visible = False
        '
        'Dokumenttypnr
        '
        Me.Dokumenttypnr.Location = New System.Drawing.Point(504, 24)
        Me.Dokumenttypnr.Name = "Dokumenttypnr"
        Me.Dokumenttypnr.Size = New System.Drawing.Size(100, 16)
        Me.Dokumenttypnr.TabIndex = 16
        Me.Dokumenttypnr.Text = "Label20"
        Me.Dokumenttypnr.Visible = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label19, Me.Label18, Me.Label17, Me.Label16, Me.Label15, Me.Label14, Me.Label13, Me.cbAufbewahrungphysisch, Me.Label12, Me.cbAufbewahrungelektronisch, Me.Label11, Me.cbInEdokaDB, Me.Label10, Me.cbAbschluss, Me.Label9, Me.cbMonierung, Me.Label8, Me.cbBearbeitungszeit})
        Me.GroupBox3.Location = New System.Drawing.Point(256, 376)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(240, 208)
        Me.GroupBox3.TabIndex = 4
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Zeiten"
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(192, 24)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(32, 16)
        Me.Label19.TabIndex = 30
        Me.Label19.Text = "Min."
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(192, 144)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(32, 16)
        Me.Label18.TabIndex = 29
        Me.Label18.Text = "Jahre"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(192, 120)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(32, 16)
        Me.Label17.TabIndex = 28
        Me.Label17.Text = "Jahre"
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(192, 96)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(32, 16)
        Me.Label16.TabIndex = 27
        Me.Label16.Text = "Mte."
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(192, 72)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(32, 16)
        Me.Label15.TabIndex = 26
        Me.Label15.Text = "Tage"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(192, 48)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(32, 16)
        Me.Label14.TabIndex = 25
        Me.Label14.Text = "Tage"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(8, 144)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(136, 16)
        Me.Label13.TabIndex = 24
        Me.Label13.Text = "Aufbewahrung ph."
        '
        'cbAufbewahrungphysisch
        '
        Me.cbAufbewahrungphysisch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbAufbewahrungphysisch.Enabled = False
        Me.cbAufbewahrungphysisch.Location = New System.Drawing.Point(144, 144)
        Me.cbAufbewahrungphysisch.Name = "cbAufbewahrungphysisch"
        Me.cbAufbewahrungphysisch.Size = New System.Drawing.Size(48, 21)
        Me.cbAufbewahrungphysisch.TabIndex = 23
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(8, 120)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(136, 16)
        Me.Label12.TabIndex = 22
        Me.Label12.Text = "Aufbewahrung el."
        '
        'cbAufbewahrungelektronisch
        '
        Me.cbAufbewahrungelektronisch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbAufbewahrungelektronisch.Location = New System.Drawing.Point(144, 120)
        Me.cbAufbewahrungelektronisch.Name = "cbAufbewahrungelektronisch"
        Me.cbAufbewahrungelektronisch.Size = New System.Drawing.Size(48, 21)
        Me.cbAufbewahrungelektronisch.TabIndex = 21
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(8, 96)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(136, 16)
        Me.Label11.TabIndex = 20
        Me.Label11.Text = "in EDOKA-Datenbank"
        '
        'cbInEdokaDB
        '
        Me.cbInEdokaDB.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbInEdokaDB.Location = New System.Drawing.Point(144, 96)
        Me.cbInEdokaDB.Name = "cbInEdokaDB"
        Me.cbInEdokaDB.Size = New System.Drawing.Size(48, 21)
        Me.cbInEdokaDB.TabIndex = 19
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(8, 72)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(136, 16)
        Me.Label10.TabIndex = 18
        Me.Label10.Text = "Bearbeitung n. Abschluss"
        '
        'cbAbschluss
        '
        Me.cbAbschluss.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbAbschluss.Location = New System.Drawing.Point(144, 72)
        Me.cbAbschluss.Name = "cbAbschluss"
        Me.cbAbschluss.Size = New System.Drawing.Size(48, 21)
        Me.cbAbschluss.TabIndex = 17
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(8, 48)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(136, 16)
        Me.Label9.TabIndex = 16
        Me.Label9.Text = "Monierung in Tagen."
        '
        'cbMonierung
        '
        Me.cbMonierung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbMonierung.Enabled = False
        Me.cbMonierung.Location = New System.Drawing.Point(144, 48)
        Me.cbMonierung.Name = "cbMonierung"
        Me.cbMonierung.Size = New System.Drawing.Size(48, 21)
        Me.cbMonierung.TabIndex = 15
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(8, 24)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(136, 16)
        Me.Label8.TabIndex = 14
        Me.Label8.Text = "Bearbeitungszeit in Min."
        '
        'cbBearbeitungszeit
        '
        Me.cbBearbeitungszeit.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbBearbeitungszeit.Location = New System.Drawing.Point(144, 24)
        Me.cbBearbeitungszeit.Name = "cbBearbeitungszeit"
        Me.cbBearbeitungszeit.Size = New System.Drawing.Size(48, 21)
        Me.cbBearbeitungszeit.TabIndex = 13
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.cFunktion_zuweisen, Me.cEmailVersand, Me.CDokumentersetzen, Me.cUnterschriftrechts, Me.cUnterschriftlinks, Me.cVertraulich, Me.cNichtgeloescht, Me.cStatusMutation})
        Me.GroupBox2.Location = New System.Drawing.Point(8, 376)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(240, 208)
        Me.GroupBox2.TabIndex = 3
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Diverses"
        '
        'cFunktion_zuweisen
        '
        Me.cFunktion_zuweisen.Location = New System.Drawing.Point(16, 184)
        Me.cFunktion_zuweisen.Name = "cFunktion_zuweisen"
        Me.cFunktion_zuweisen.Size = New System.Drawing.Size(216, 19)
        Me.cFunktion_zuweisen.TabIndex = 9
        Me.cFunktion_zuweisen.Text = "Dokumentberechtigungen übersteuern"
        '
        'cEmailVersand
        '
        Me.cEmailVersand.Location = New System.Drawing.Point(16, 160)
        Me.cEmailVersand.Name = "cEmailVersand"
        Me.cEmailVersand.Size = New System.Drawing.Size(216, 19)
        Me.cEmailVersand.TabIndex = 8
        Me.cEmailVersand.Text = "E-Mail-Versand möglich"
        '
        'CDokumentersetzen
        '
        Me.CDokumentersetzen.Location = New System.Drawing.Point(16, 136)
        Me.CDokumentersetzen.Name = "CDokumentersetzen"
        Me.CDokumentersetzen.Size = New System.Drawing.Size(216, 24)
        Me.CDokumentersetzen.TabIndex = 7
        Me.CDokumentersetzen.Text = "COLD-Dokumente ersetzen möglich"
        '
        'cUnterschriftrechts
        '
        Me.cUnterschriftrechts.Location = New System.Drawing.Point(16, 112)
        Me.cUnterschriftrechts.Name = "cUnterschriftrechts"
        Me.cUnterschriftrechts.Size = New System.Drawing.Size(216, 24)
        Me.cUnterschriftrechts.TabIndex = 6
        Me.cUnterschriftrechts.Text = "Unterschrift rechts"
        '
        'cUnterschriftlinks
        '
        Me.cUnterschriftlinks.Location = New System.Drawing.Point(16, 88)
        Me.cUnterschriftlinks.Name = "cUnterschriftlinks"
        Me.cUnterschriftlinks.Size = New System.Drawing.Size(216, 24)
        Me.cUnterschriftlinks.TabIndex = 5
        Me.cUnterschriftlinks.Text = "Unterschrift links"
        '
        'cVertraulich
        '
        Me.cVertraulich.Location = New System.Drawing.Point(16, 64)
        Me.cVertraulich.Name = "cVertraulich"
        Me.cVertraulich.Size = New System.Drawing.Size(216, 24)
        Me.cVertraulich.TabIndex = 4
        Me.cVertraulich.Text = "Vertraulich"
        '
        'cNichtgeloescht
        '
        Me.cNichtgeloescht.Location = New System.Drawing.Point(16, 40)
        Me.cNichtgeloescht.Name = "cNichtgeloescht"
        Me.cNichtgeloescht.Size = New System.Drawing.Size(216, 24)
        Me.cNichtgeloescht.TabIndex = 3
        Me.cNichtgeloescht.Text = "Wird bei Reorganisation nicht gelöscht"
        '
        'cStatusMutation
        '
        Me.cStatusMutation.Location = New System.Drawing.Point(16, 16)
        Me.cStatusMutation.Name = "cStatusMutation"
        Me.cStatusMutation.Size = New System.Drawing.Size(216, 24)
        Me.cStatusMutation.TabIndex = 2
        Me.cStatusMutation.Text = "Statusmutation bei Partner-Saldierung"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSelDokumentartEingang, Me.btnSelDokumentartAusgang, Me.btnSelColdfolder, Me.btnSelPhysischeAblage, Me.cbArchiv, Me.Label7, Me.Label6, Me.cbColdFolder, Me.cEingangErsetztAusgang, Me.Label5, Me.cbDokartEingang, Me.Label4, Me.cbDokartAusgang, Me.cZuRetournieren, Me.cZuVercolden})
        Me.GroupBox1.Enabled = False
        Me.GroupBox1.Location = New System.Drawing.Point(8, 232)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(488, 136)
        Me.GroupBox1.TabIndex = 2
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Archivierung"
        '
        'btnSelDokumentartEingang
        '
        Me.btnSelDokumentartEingang.Enabled = False
        Me.btnSelDokumentartEingang.Location = New System.Drawing.Point(456, 48)
        Me.btnSelDokumentartEingang.Name = "btnSelDokumentartEingang"
        Me.btnSelDokumentartEingang.Size = New System.Drawing.Size(24, 23)
        Me.btnSelDokumentartEingang.TabIndex = 6
        Me.btnSelDokumentartEingang.Text = "..."
        '
        'btnSelDokumentartAusgang
        '
        Me.btnSelDokumentartAusgang.Enabled = False
        Me.btnSelDokumentartAusgang.Location = New System.Drawing.Point(456, 24)
        Me.btnSelDokumentartAusgang.Name = "btnSelDokumentartAusgang"
        Me.btnSelDokumentartAusgang.Size = New System.Drawing.Size(24, 23)
        Me.btnSelDokumentartAusgang.TabIndex = 3
        Me.btnSelDokumentartAusgang.Text = "..."
        '
        'btnSelColdfolder
        '
        Me.btnSelColdfolder.Enabled = False
        Me.btnSelColdfolder.Location = New System.Drawing.Point(456, 72)
        Me.btnSelColdfolder.Name = "btnSelColdfolder"
        Me.btnSelColdfolder.Size = New System.Drawing.Size(24, 23)
        Me.btnSelColdfolder.TabIndex = 9
        Me.btnSelColdfolder.Text = "..."
        '
        'btnSelPhysischeAblage
        '
        Me.btnSelPhysischeAblage.Enabled = False
        Me.btnSelPhysischeAblage.Location = New System.Drawing.Point(456, 104)
        Me.btnSelPhysischeAblage.Name = "btnSelPhysischeAblage"
        Me.btnSelPhysischeAblage.Size = New System.Drawing.Size(24, 23)
        Me.btnSelPhysischeAblage.TabIndex = 11
        Me.btnSelPhysischeAblage.Text = "..."
        '
        'cbArchiv
        '
        Me.cbArchiv.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbArchiv.Enabled = False
        Me.cbArchiv.Location = New System.Drawing.Point(128, 104)
        Me.cbArchiv.Name = "cbArchiv"
        Me.cbArchiv.Size = New System.Drawing.Size(328, 21)
        Me.cbArchiv.TabIndex = 10
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(16, 104)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(120, 16)
        Me.Label7.TabIndex = 18
        Me.Label7.Text = "Physisches Archiv"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(128, 72)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(128, 16)
        Me.Label6.TabIndex = 17
        Me.Label6.Text = "COLD-Ordner"
        '
        'cbColdFolder
        '
        Me.cbColdFolder.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbColdFolder.Enabled = False
        Me.cbColdFolder.Location = New System.Drawing.Point(256, 72)
        Me.cbColdFolder.Name = "cbColdFolder"
        Me.cbColdFolder.Size = New System.Drawing.Size(200, 21)
        Me.cbColdFolder.TabIndex = 8
        '
        'cEingangErsetztAusgang
        '
        Me.cEingangErsetztAusgang.Enabled = False
        Me.cEingangErsetztAusgang.Location = New System.Drawing.Point(16, 64)
        Me.cEingangErsetztAusgang.Name = "cEingangErsetztAusgang"
        Me.cEingangErsetztAusgang.Size = New System.Drawing.Size(104, 40)
        Me.cEingangErsetztAusgang.TabIndex = 7
        Me.cEingangErsetztAusgang.Text = "Eingang ersetzt Ausgang"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(128, 48)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(128, 16)
        Me.Label5.TabIndex = 14
        Me.Label5.Text = "DokArt COLD Eingang"
        '
        'cbDokartEingang
        '
        Me.cbDokartEingang.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbDokartEingang.Enabled = False
        Me.cbDokartEingang.Location = New System.Drawing.Point(256, 48)
        Me.cbDokartEingang.Name = "cbDokartEingang"
        Me.cbDokartEingang.Size = New System.Drawing.Size(200, 21)
        Me.cbDokartEingang.TabIndex = 5
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(128, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(128, 16)
        Me.Label4.TabIndex = 12
        Me.Label4.Text = "DokArt COLD Ausgang"
        '
        'cbDokartAusgang
        '
        Me.cbDokartAusgang.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbDokartAusgang.Enabled = False
        Me.cbDokartAusgang.Location = New System.Drawing.Point(256, 24)
        Me.cbDokartAusgang.Name = "cbDokartAusgang"
        Me.cbDokartAusgang.Size = New System.Drawing.Size(200, 21)
        Me.cbDokartAusgang.TabIndex = 1
        '
        'cZuRetournieren
        '
        Me.cZuRetournieren.Enabled = False
        Me.cZuRetournieren.Location = New System.Drawing.Point(16, 43)
        Me.cZuRetournieren.Name = "cZuRetournieren"
        Me.cZuRetournieren.TabIndex = 4
        Me.cZuRetournieren.Text = "zu retournieren"
        '
        'cZuVercolden
        '
        Me.cZuVercolden.Location = New System.Drawing.Point(16, 19)
        Me.cZuVercolden.Name = "cZuVercolden"
        Me.cZuVercolden.TabIndex = 0
        Me.cZuVercolden.Text = "zu vercolden"
        '
        'Grp1
        '
        Me.Grp1.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSelOfficeVorlage, Me.Label3, Me.Label2, Me.TxTBeschreibung, Me.TxTBezeichnung, Me.Label1, Me.cbOfficeVorlage})
        Me.Grp1.Location = New System.Drawing.Point(8, 24)
        Me.Grp1.Name = "Grp1"
        Me.Grp1.Size = New System.Drawing.Size(488, 120)
        Me.Grp1.TabIndex = 0
        Me.Grp1.TabStop = False
        Me.Grp1.Text = "Vorlage"
        '
        'btnSelOfficeVorlage
        '
        Me.btnSelOfficeVorlage.Location = New System.Drawing.Point(456, 24)
        Me.btnSelOfficeVorlage.Name = "btnSelOfficeVorlage"
        Me.btnSelOfficeVorlage.Size = New System.Drawing.Size(24, 23)
        Me.btnSelOfficeVorlage.TabIndex = 12
        Me.btnSelOfficeVorlage.Text = "..."
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 72)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(100, 16)
        Me.Label3.TabIndex = 11
        Me.Label3.Text = "Beschreibung"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 48)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(100, 16)
        Me.Label2.TabIndex = 10
        Me.Label2.Text = "Bezeichnung"
        '
        'TxTBeschreibung
        '
        Me.TxTBeschreibung.ContextMenu = Me.ContextMenu3
        Me.TxTBeschreibung.Location = New System.Drawing.Point(120, 72)
        Me.TxTBeschreibung.Multiline = True
        Me.TxTBeschreibung.Name = "TxTBeschreibung"
        Me.TxTBeschreibung.Size = New System.Drawing.Size(336, 40)
        Me.TxTBeschreibung.TabIndex = 9
        Me.TxTBeschreibung.Text = ""
        '
        'ContextMenu3
        '
        Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.BeschrausOV})
        '
        'BeschrausOV
        '
        Me.BeschrausOV.Index = 0
        Me.BeschrausOV.Text = "Beschreibung aus Officevorlage übernehmen"
        '
        'TxTBezeichnung
        '
        Me.TxTBezeichnung.Location = New System.Drawing.Point(120, 48)
        Me.TxTBezeichnung.Name = "TxTBezeichnung"
        Me.TxTBezeichnung.Size = New System.Drawing.Size(336, 20)
        Me.TxTBezeichnung.TabIndex = 8
        Me.TxTBezeichnung.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(100, 16)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "Office-Vorlage"
        '
        'cbOfficeVorlage
        '
        Me.cbOfficeVorlage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbOfficeVorlage.Location = New System.Drawing.Point(120, 24)
        Me.cbOfficeVorlage.Name = "cbOfficeVorlage"
        Me.cbOfficeVorlage.Size = New System.Drawing.Size(336, 21)
        Me.cbOfficeVorlage.TabIndex = 6
        '
        'txtDokumentartEinzeldokument
        '
        Me.txtDokumentartEinzeldokument.Location = New System.Drawing.Point(216, 0)
        Me.txtDokumentartEinzeldokument.Name = "txtDokumentartEinzeldokument"
        Me.txtDokumentartEinzeldokument.Size = New System.Drawing.Size(16, 20)
        Me.txtDokumentartEinzeldokument.TabIndex = 29
        Me.txtDokumentartEinzeldokument.Text = ""
        Me.txtDokumentartEinzeldokument.Visible = False
        '
        'TabControl1
        '
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabStruktur, Me.TabStatusreihenfolge, Me.TabDokumentfelder})
        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TabControl1.Location = New System.Drawing.Point(504, 25)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(344, 676)
        Me.TabControl1.TabIndex = 14
        '
        'TabStruktur
        '
        Me.TabStruktur.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.TabStruktur.Controls.AddRange(New System.Windows.Forms.Control() {Me.TVStruktur, Me.Panel2})
        Me.TabStruktur.Location = New System.Drawing.Point(4, 22)
        Me.TabStruktur.Name = "TabStruktur"
        Me.TabStruktur.Size = New System.Drawing.Size(336, 650)
        Me.TabStruktur.TabIndex = 0
        Me.TabStruktur.Text = "Struktur"
        '
        'TVStruktur
        '
        Me.TVStruktur.ContextMenu = Me.ContextMenu2
        Me.TVStruktur.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TVStruktur.ImageList = Me.ImageList2
        Me.TVStruktur.Location = New System.Drawing.Point(0, 40)
        Me.TVStruktur.Name = "TVStruktur"
        Me.TVStruktur.Size = New System.Drawing.Size(332, 606)
        Me.TVStruktur.TabIndex = 1
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokZuordnungauheben, Me.MenuItem2, Me.MenuItem4})
        '
        'MnuDokZuordnungauheben
        '
        Me.MnuDokZuordnungauheben.Index = 0
        Me.MnuDokZuordnungauheben.Text = "Zuordnung aufheben"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "Dokumenttypen dieser Struktur"
        '
        'ImageList2
        '
        Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'Panel2
        '
        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.RBEinzeldokumente, Me.RBGesamt, Me.RBEingang, Me.RBHost, Me.RBErstellung, Me.RBKundendossier})
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(332, 40)
        Me.Panel2.TabIndex = 0
        '
        'RBEinzeldokumente
        '
        Me.RBEinzeldokumente.Location = New System.Drawing.Point(8, 8)
        Me.RBEinzeldokumente.Name = "RBEinzeldokumente"
        Me.RBEinzeldokumente.Size = New System.Drawing.Size(296, 24)
        Me.RBEinzeldokumente.TabIndex = 7
        Me.RBEinzeldokumente.Text = "Einzeldokumente"
        Me.RBEinzeldokumente.Visible = False
        '
        'RBGesamt
        '
        Me.RBGesamt.Location = New System.Drawing.Point(184, 8)
        Me.RBGesamt.Name = "RBGesamt"
        Me.RBGesamt.Size = New System.Drawing.Size(112, 24)
        Me.RBGesamt.TabIndex = 6
        Me.RBGesamt.Text = "gesamte Struktur"
        Me.RBGesamt.Visible = False
        '
        'RBEingang
        '
        Me.RBEingang.Location = New System.Drawing.Point(232, 8)
        Me.RBEingang.Name = "RBEingang"
        Me.RBEingang.Size = New System.Drawing.Size(80, 24)
        Me.RBEingang.TabIndex = 5
        Me.RBEingang.Text = "Eingang"
        Me.RBEingang.Visible = False
        '
        'RBHost
        '
        Me.RBHost.Location = New System.Drawing.Point(104, 8)
        Me.RBHost.Name = "RBHost"
        Me.RBHost.Size = New System.Drawing.Size(56, 24)
        Me.RBHost.TabIndex = 4
        Me.RBHost.Text = "HOST"
        '
        'RBErstellung
        '
        Me.RBErstellung.Location = New System.Drawing.Point(104, 8)
        Me.RBErstellung.Name = "RBErstellung"
        Me.RBErstellung.Size = New System.Drawing.Size(80, 24)
        Me.RBErstellung.TabIndex = 3
        Me.RBErstellung.Text = "Erstellung"
        Me.RBErstellung.Visible = False
        '
        'RBKundendossier
        '
        Me.RBKundendossier.Location = New System.Drawing.Point(8, 8)
        Me.RBKundendossier.Name = "RBKundendossier"
        Me.RBKundendossier.TabIndex = 0
        Me.RBKundendossier.Text = "Kundendossier"
        '
        'TabStatusreihenfolge
        '
        Me.TabStatusreihenfolge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TabStatusreihenfolge.Controls.AddRange(New System.Windows.Forms.Control() {Me.rbEtikette, Me.rbDokStatusStandard, Me.BtnSaveRollen, Me.btnNeueRolle, Me.DokumentstatusRolle_Liste, Me.Label24, Me.btnsave, Me.Label20, Me.cbStatustyp, Me.Statuslist})
        Me.TabStatusreihenfolge.Location = New System.Drawing.Point(4, 22)
        Me.TabStatusreihenfolge.Name = "TabStatusreihenfolge"
        Me.TabStatusreihenfolge.Size = New System.Drawing.Size(336, 650)
        Me.TabStatusreihenfolge.TabIndex = 1
        Me.TabStatusreihenfolge.Text = "Statusreihenfolge"
        '
        'rbEtikette
        '
        Me.rbEtikette.Enabled = False
        Me.rbEtikette.Location = New System.Drawing.Point(88, 48)
        Me.rbEtikette.Name = "rbEtikette"
        Me.rbEtikette.Size = New System.Drawing.Size(168, 24)
        Me.rbEtikette.TabIndex = 11
        Me.rbEtikette.Text = "Retournierung mit Etikette"
        '
        'rbDokStatusStandard
        '
        Me.rbDokStatusStandard.Location = New System.Drawing.Point(16, 48)
        Me.rbDokStatusStandard.Name = "rbDokStatusStandard"
        Me.rbDokStatusStandard.Size = New System.Drawing.Size(72, 24)
        Me.rbDokStatusStandard.TabIndex = 10
        Me.rbDokStatusStandard.Text = "Standard"
        '
        'BtnSaveRollen
        '
        Me.BtnSaveRollen.Image = CType(resources.GetObject("BtnSaveRollen.Image"), System.Drawing.Bitmap)
        Me.BtnSaveRollen.ImageIndex = 2
        Me.BtnSaveRollen.ImageList = Me.ImageList1
        Me.BtnSaveRollen.Location = New System.Drawing.Point(296, 320)
        Me.BtnSaveRollen.Name = "BtnSaveRollen"
        Me.BtnSaveRollen.Size = New System.Drawing.Size(24, 24)
        Me.BtnSaveRollen.TabIndex = 9
        '
        'btnNeueRolle
        '
        Me.btnNeueRolle.Image = CType(resources.GetObject("btnNeueRolle.Image"), System.Drawing.Bitmap)
        Me.btnNeueRolle.ImageIndex = 3
        Me.btnNeueRolle.ImageList = Me.ImageList1
        Me.btnNeueRolle.Location = New System.Drawing.Point(272, 320)
        Me.btnNeueRolle.Name = "btnNeueRolle"
        Me.btnNeueRolle.Size = New System.Drawing.Size(24, 24)
        Me.btnNeueRolle.TabIndex = 8
        '
        'DokumentstatusRolle_Liste
        '
        Me.DokumentstatusRolle_Liste.AllowFilter = True
        Me.DokumentstatusRolle_Liste.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.DokumentstatusRolle_Liste.AllowSort = False
        Me.DokumentstatusRolle_Liste.AlternatingRows = True
        Me.DokumentstatusRolle_Liste.CaptionHeight = 17
        Me.DokumentstatusRolle_Liste.CollapseColor = System.Drawing.Color.Black
        Me.DokumentstatusRolle_Liste.DataChanged = False
        Me.DokumentstatusRolle_Liste.DeadAreaBackColor = System.Drawing.Color.Gray
        Me.DokumentstatusRolle_Liste.ExpandColor = System.Drawing.Color.Black
        Me.DokumentstatusRolle_Liste.FilterBar = True
        Me.DokumentstatusRolle_Liste.GroupByCaption = "Drag a column header here to group by that column"
        Me.DokumentstatusRolle_Liste.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.DokumentstatusRolle_Liste.Location = New System.Drawing.Point(8, 352)
        Me.DokumentstatusRolle_Liste.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
        Me.DokumentstatusRolle_Liste.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.DokumentstatusRolle_Liste.Name = "DokumentstatusRolle_Liste"
        Me.DokumentstatusRolle_Liste.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.DokumentstatusRolle_Liste.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.DokumentstatusRolle_Liste.PreviewInfo.ZoomFactor = 75
        Me.DokumentstatusRolle_Liste.PrintInfo.ShowOptionsDialog = False
        Me.DokumentstatusRolle_Liste.RecordSelectorWidth = 16
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.DokumentstatusRolle_Liste.RowDivider = GridLines1
        Me.DokumentstatusRolle_Liste.RowHeight = 15
        Me.DokumentstatusRolle_Liste.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.DokumentstatusRolle_Liste.ScrollTips = False
        Me.DokumentstatusRolle_Liste.Size = New System.Drawing.Size(312, 264)
        Me.DokumentstatusRolle_Liste.TabIndex = 7
        Me.DokumentstatusRolle_Liste.Text = "C1TrueDBGrid1"
        Me.DokumentstatusRolle_Liste.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, 128;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
        "lor:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:" & _
        "Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:C" & _
        "ontrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}" & _
        "Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" " & _
        "AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFoo" & _
        "terHeight=""17"" FilterBar=""True"" MarqueeStyle=""HighlightCell"" RecordSelectorWidth" & _
        "=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Cli" & _
        "entRect>0, 0, 308, 260</ClientRect><BorderSide>0</BorderSide><CaptionStyle paren" & _
        "t=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowSty" & _
        "le parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13" & _
        """ /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""St" & _
        "yle12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=" & _
        """HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><Odd" & _
        "RowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelect" & _
        "or"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=" & _
        """Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><St" & _
        "yle parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=" & _
        """Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""He" & _
        "ading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Nor" & _
        "mal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Nor" & _
        "mal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading""" & _
        " me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Ca" & _
        "ption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzS" & _
        "plits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientAre" & _
        "a>0, 0, 308, 260</ClientArea></Blob>"
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(8, 328)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(200, 16)
        Me.Label24.TabIndex = 6
        Me.Label24.Text = "Rolle, welche den Status setzen kann"
        '
        'btnsave
        '
        Me.btnsave.Image = CType(resources.GetObject("btnsave.Image"), System.Drawing.Bitmap)
        Me.btnsave.Location = New System.Drawing.Point(296, 40)
        Me.btnsave.Name = "btnsave"
        Me.btnsave.Size = New System.Drawing.Size(24, 24)
        Me.btnsave.TabIndex = 5
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(8, 16)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(56, 23)
        Me.Label20.TabIndex = 4
        Me.Label20.Text = "Statustyp"
        '
        'cbStatustyp
        '
        Me.cbStatustyp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbStatustyp.Location = New System.Drawing.Point(80, 16)
        Me.cbStatustyp.Name = "cbStatustyp"
        Me.cbStatustyp.Size = New System.Drawing.Size(240, 21)
        Me.cbStatustyp.TabIndex = 3
        '
        'Statuslist
        '
        Me.Statuslist.AllowFilter = True
        Me.Statuslist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.Statuslist.AllowSort = False
        Me.Statuslist.AlternatingRows = True
        Me.Statuslist.CaptionHeight = 17
        Me.Statuslist.CollapseColor = System.Drawing.Color.Black
        Me.Statuslist.DataChanged = False
        Me.Statuslist.DeadAreaBackColor = System.Drawing.Color.Gray
        Me.Statuslist.ExpandColor = System.Drawing.Color.Black
        Me.Statuslist.GroupByCaption = "Drag a column header here to group by that column"
        Me.Statuslist.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
        Me.Statuslist.Location = New System.Drawing.Point(8, 72)
        Me.Statuslist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightCell
        Me.Statuslist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.Statuslist.Name = "Statuslist"
        Me.Statuslist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.Statuslist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.Statuslist.PreviewInfo.ZoomFactor = 75
        Me.Statuslist.PrintInfo.ShowOptionsDialog = False
        Me.Statuslist.RecordSelectorWidth = 16
        GridLines2.Color = System.Drawing.Color.DarkGray
        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.Statuslist.RowDivider = GridLines2
        Me.Statuslist.RowHeight = 15
        Me.Statuslist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.Statuslist.ScrollTips = False
        Me.Statuslist.Size = New System.Drawing.Size(312, 232)
        Me.Statuslist.TabIndex = 0
        Me.Statuslist.Text = "C1TrueDBGrid1"
        Me.Statuslist.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{}Footer{}Caption{AlignHorz:Cen" & _
        "ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}O" & _
        "ddRow{BackColor:ControlLight;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tru" & _
        "e;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Ce" & _
        "nter;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data>" & _
        "</Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""Tru" & _
        "e"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeSt" & _
        "yle=""HighlightCell"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollG" & _
        "roup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 308, 228</ClientRect><Borde" & _
        "rSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle pa" & _
        "rent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><Filter" & _
        "BarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Styl" & _
        "e3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" m" & _
        "e=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveSty" & _
        "le parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><R" & _
        "ecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=" & _
        """Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBG" & _
        "rid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent" & _
        "=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""He" & _
        "ading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Nor" & _
        "mal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal""" & _
        " me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal" & _
        """ me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Nor" & _
        "mal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSp" & _
        "lits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSel" & _
        "Width>16</DefaultRecSelWidth><ClientArea>0, 0, 308, 228</ClientArea></Blob>"
        '
        'TabDokumentfelder
        '
        Me.TabDokumentfelder.Location = New System.Drawing.Point(4, 22)
        Me.TabDokumentfelder.Name = "TabDokumentfelder"
        Me.TabDokumentfelder.Size = New System.Drawing.Size(336, 650)
        Me.TabDokumentfelder.TabIndex = 2
        Me.TabDokumentfelder.Text = "Vorlagenfelder"
        '
        'pnlVorlagenfeld
        '
        Me.pnlVorlagenfeld.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.pnlVorlagenfeld.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.ColdIndexfeldList, Me.Button3, Me.Label25, Me.vorlagenfeldbezeichnunglist, Me.vorlagenfeldlist})
        Me.pnlVorlagenfeld.Location = New System.Drawing.Point(8, 48)
        Me.pnlVorlagenfeld.Name = "pnlVorlagenfeld"
        Me.pnlVorlagenfeld.Size = New System.Drawing.Size(840, 8)
        Me.pnlVorlagenfeld.TabIndex = 15
        '
        'Panel3
        '
        Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnVorlagenfeld, Me.BtnStandard, Me.btnsavevorlagenfeldlist})
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(836, 40)
        Me.Panel3.TabIndex = 8
        '
        'btnVorlagenfeld
        '
        Me.btnVorlagenfeld.Location = New System.Drawing.Point(176, 8)
        Me.btnVorlagenfeld.Name = "btnVorlagenfeld"
        Me.btnVorlagenfeld.Size = New System.Drawing.Size(136, 23)
        Me.btnVorlagenfeld.TabIndex = 5
        Me.btnVorlagenfeld.Text = "&Vorlagenfeld hinzufügen"
        '
        'BtnStandard
        '
        Me.BtnStandard.Location = New System.Drawing.Point(40, 8)
        Me.BtnStandard.Name = "BtnStandard"
        Me.BtnStandard.Size = New System.Drawing.Size(136, 23)
        Me.BtnStandard.TabIndex = 4
        Me.BtnStandard.Text = "&Standards generieren"
        '
        'btnsavevorlagenfeldlist
        '
        Me.btnsavevorlagenfeldlist.Image = CType(resources.GetObject("btnsavevorlagenfeldlist.Image"), System.Drawing.Bitmap)
        Me.btnsavevorlagenfeldlist.Location = New System.Drawing.Point(8, 8)
        Me.btnsavevorlagenfeldlist.Name = "btnsavevorlagenfeldlist"
        Me.btnsavevorlagenfeldlist.Size = New System.Drawing.Size(24, 23)
        Me.btnsavevorlagenfeldlist.TabIndex = 3
        '
        'ColdIndexfeldList
        '
        Me.ColdIndexfeldList.AllowColMove = True
        Me.ColdIndexfeldList.AllowColSelect = True
        Me.ColdIndexfeldList.AllowFilter = True
        Me.ColdIndexfeldList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.ColdIndexfeldList.AllowSort = True
        Me.ColdIndexfeldList.AlternatingRows = False
        Me.ColdIndexfeldList.CaptionHeight = 17
        Me.ColdIndexfeldList.ColumnCaptionHeight = 17
        Me.ColdIndexfeldList.ColumnFooterHeight = 17
        Me.ColdIndexfeldList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.ColdIndexfeldList.FetchRowStyles = False
        Me.ColdIndexfeldList.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
        Me.ColdIndexfeldList.LayoutFileName = ""
        Me.ColdIndexfeldList.LayoutName = ""
        Me.ColdIndexfeldList.LayoutURL = ""
        Me.ColdIndexfeldList.Location = New System.Drawing.Point(520, 24)
        Me.ColdIndexfeldList.Name = "ColdIndexfeldList"
        GridLines3.Color = System.Drawing.Color.DarkGray
        GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.ColdIndexfeldList.RowDivider = GridLines3
        Me.ColdIndexfeldList.RowHeight = 15
        Me.ColdIndexfeldList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.ColdIndexfeldList.ScrollTips = False
        Me.ColdIndexfeldList.Size = New System.Drawing.Size(224, 120)
        Me.ColdIndexfeldList.TabIndex = 7
        Me.ColdIndexfeldList.Text = "C1TrueDBDropdown1"
        Me.ColdIndexfeldList.Visible = False
        Me.ColdIndexfeldList.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:Aqua;}Selected{" & _
        "ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
        "CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
        "er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
        "dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
        "er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
        "ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
        ".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
        "olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
        "RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
        "tRect>0, 0, 220, 116</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
        "ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
        "e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
        "ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
        "t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
        "><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
        """Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
        "Style parent=""Selected"" me=""Style6"" /><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=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
        "tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
        " parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
        "e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
        "tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
        "edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
        "t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 220, 116</ClientA" & _
        "rea></Blob>"
        '
        'Button3
        '
        Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Bitmap)
        Me.Button3.Location = New System.Drawing.Point(8, 520)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(24, 23)
        Me.Button3.TabIndex = 6
        '
        'Label25
        '
        Me.Label25.Location = New System.Drawing.Point(32, 520)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(112, 23)
        Me.Label25.TabIndex = 5
        Me.Label25.Text = "Feldbezeichnung "
        '
        'vorlagenfeldbezeichnunglist
        '
        Me.vorlagenfeldbezeichnunglist.AllowDrop = True
        Me.vorlagenfeldbezeichnunglist.AllowFilter = False
        Me.vorlagenfeldbezeichnunglist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.vorlagenfeldbezeichnunglist.AllowSort = True
        Me.vorlagenfeldbezeichnunglist.AlternatingRows = True
        Me.vorlagenfeldbezeichnunglist.CaptionHeight = 17
        Me.vorlagenfeldbezeichnunglist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.vorlagenfeldbezeichnunglist.CollapseColor = System.Drawing.Color.Black
        Me.vorlagenfeldbezeichnunglist.ContextMenu = Me.ContextMenu1
        Me.vorlagenfeldbezeichnunglist.DataChanged = False
        Me.vorlagenfeldbezeichnunglist.DeadAreaBackColor = System.Drawing.Color.Gray
        Me.vorlagenfeldbezeichnunglist.ExpandColor = System.Drawing.Color.Black
        Me.vorlagenfeldbezeichnunglist.FilterBar = True
        Me.vorlagenfeldbezeichnunglist.GroupByCaption = "Drag a column header here to group by that column"
        Me.vorlagenfeldbezeichnunglist.Images.Add(CType(resources.GetObject("resource.Images3"), System.Drawing.Bitmap))
        Me.vorlagenfeldbezeichnunglist.Location = New System.Drawing.Point(0, 552)
        Me.vorlagenfeldbezeichnunglist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.vorlagenfeldbezeichnunglist.Name = "vorlagenfeldbezeichnunglist"
        Me.vorlagenfeldbezeichnunglist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.vorlagenfeldbezeichnunglist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.vorlagenfeldbezeichnunglist.PreviewInfo.ZoomFactor = 75
        Me.vorlagenfeldbezeichnunglist.PrintInfo.ShowOptionsDialog = False
        Me.vorlagenfeldbezeichnunglist.RecordSelectorWidth = 16
        GridLines4.Color = System.Drawing.Color.DarkGray
        GridLines4.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.vorlagenfeldbezeichnunglist.RowDivider = GridLines4
        Me.vorlagenfeldbezeichnunglist.RowHeight = 15
        Me.vorlagenfeldbezeichnunglist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.vorlagenfeldbezeichnunglist.ScrollTips = False
        Me.vorlagenfeldbezeichnunglist.Size = New System.Drawing.Size(832, 72)
        Me.vorlagenfeldbezeichnunglist.TabIndex = 4
        Me.vorlagenfeldbezeichnunglist.Text = "VorlagenfeldList"
        Me.vorlagenfeldbezeichnunglist.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:ControlLight;}S" & _
        "elected{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:" & _
        "InactiveCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128" & _
        ";}Footer{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText" & _
        ";BackColor:Highlight;}Style1{}OddRow{}RecordSelector{AlignImage:Center;}Heading{" & _
        "Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;Alig" & _
        "nVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style9{" & _
        "}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowSt" & _
        "yle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" F" & _
        "ilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
        "elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
        " 828, 68</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, 828, 6" & _
        "8</ClientArea></Blob>"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem3, Me.MenuItem5, Me.MenuItem6})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "&Standards generieren"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "&Vorlagenfeld hinzufügen"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 2
        Me.MenuItem5.Text = "-"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 3
        Me.MenuItem6.Text = "V&orlagenfelder speichern"
        '
        'vorlagenfeldlist
        '
        Me.vorlagenfeldlist.AllowDrop = True
        Me.vorlagenfeldlist.AllowFilter = True
        Me.vorlagenfeldlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.vorlagenfeldlist.AllowSort = True
        Me.vorlagenfeldlist.AlternatingRows = True
        Me.vorlagenfeldlist.CaptionHeight = 17
        Me.vorlagenfeldlist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.vorlagenfeldlist.CollapseColor = System.Drawing.Color.Black
        Me.vorlagenfeldlist.ContextMenu = Me.ContextMenu1
        Me.vorlagenfeldlist.DataChanged = False
        Me.vorlagenfeldlist.DeadAreaBackColor = System.Drawing.Color.Gray
        Me.vorlagenfeldlist.ExpandColor = System.Drawing.Color.Black
        Me.vorlagenfeldlist.FilterBar = True
        Me.vorlagenfeldlist.GroupByCaption = "Drag a column header here to group by that column"
        Me.vorlagenfeldlist.Images.Add(CType(resources.GetObject("resource.Images4"), System.Drawing.Bitmap))
        Me.vorlagenfeldlist.Location = New System.Drawing.Point(0, 40)
        Me.vorlagenfeldlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.vorlagenfeldlist.Name = "vorlagenfeldlist"
        Me.vorlagenfeldlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.vorlagenfeldlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.vorlagenfeldlist.PreviewInfo.ZoomFactor = 75
        Me.vorlagenfeldlist.PrintInfo.ShowOptionsDialog = False
        Me.vorlagenfeldlist.RecordSelectorWidth = 16
        GridLines5.Color = System.Drawing.Color.DarkGray
        GridLines5.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.vorlagenfeldlist.RowDivider = GridLines5
        Me.vorlagenfeldlist.RowHeight = 15
        Me.vorlagenfeldlist.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.vorlagenfeldlist.ScrollTips = False
        Me.vorlagenfeldlist.Size = New System.Drawing.Size(832, 472)
        Me.vorlagenfeldlist.TabIndex = 0
        Me.vorlagenfeldlist.Text = "VorlagenfeldList"
        Me.vorlagenfeldlist.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:ControlLight;}S" & _
        "elected{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:" & _
        "InactiveCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128" & _
        ";}Footer{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText" & _
        ";BackColor:Highlight;}Style9{}OddRow{}RecordSelector{AlignImage:Center;}Heading{" & _
        "Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackC" & _
        "olor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{" & _
        "}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowSt" & _
        "yle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" F" & _
        "ilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecS" & _
        "elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0," & _
        " 828, 468</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, 828, " & _
        "468</ClientArea></Blob>"
        '
        '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", "vorlagenfeld", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("vorlagenfeldnr", "vorlagenfeldnr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), New System.Data.Common.DataColumnMapping("feldname", "feldname"), New System.Data.Common.DataColumnMapping("beginntextmarke", "beginntextmarke"), New System.Data.Common.DataColumnMapping("endetextmarke", "endetextmarke"), New System.Data.Common.DataColumnMapping("einstiegsmakro", "einstiegsmakro"), New System.Data.Common.DataColumnMapping("ausstiegsmakro", "ausstiegsmakro"), New System.Data.Common.DataColumnMapping("reihenfolge", "reihenfolge"), New System.Data.Common.DataColumnMapping("cold_indexfeld", "cold_indexfeld"), New System.Data.Common.DataColumnMapping("eingabe_zwingend", "eingabe_zwingend"), New System.Data.Common.DataColumnMapping("testdaten", "testdaten"), 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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[pv_vorlagenfeld_delete]"
        Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ausstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beginntextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_einstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_endetextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "endetextmarke", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_testdaten", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
        "station id=SHU;packet size=4096"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "[pv_vorlagenfeld_insert]"
        Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagenfeldnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldregelnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 255, "feldname"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beginntextmarke", System.Data.SqlDbType.VarChar, 255, "beginntextmarke"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@endetextmarke", System.Data.SqlDbType.VarChar, 255, "endetextmarke"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@einstiegsmakro", System.Data.SqlDbType.Bit, 1, "einstiegsmakro"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ausstiegsmakro", System.Data.SqlDbType.Bit, 1, "ausstiegsmakro"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_indexfeld", System.Data.SqlDbType.Int, 4, "cold_indexfeld"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@testdaten", System.Data.SqlDbType.VarChar, 255, "testdaten"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[sp_vorlagenfeld_select]"
        Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        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))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "[pv_vorlagenfeld_update]"
        Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagenfeldnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldregelnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 255, "feldname"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beginntextmarke", System.Data.SqlDbType.VarChar, 255, "beginntextmarke"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@endetextmarke", System.Data.SqlDbType.VarChar, 255, "endetextmarke"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@einstiegsmakro", System.Data.SqlDbType.Bit, 1, "einstiegsmakro"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ausstiegsmakro", System.Data.SqlDbType.Bit, 1, "ausstiegsmakro"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_indexfeld", System.Data.SqlDbType.Int, 4, "cold_indexfeld"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@testdaten", System.Data.SqlDbType.VarChar, 255, "testdaten"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ausstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ausstiegsmakro", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beginntextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beginntextmarke", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeld", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_einstiegsmakro", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "einstiegsmakro", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_endetextmarke", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "endetextmarke", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_testdaten", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdaten", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
        '
        '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", "dokumentstatus_rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumentstatus_rollenr", "dokumentstatus_rollenr"), New System.Data.Common.DataColumnMapping("dokumentstatusnr", "dokumentstatusnr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), 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_dokumentstatus_rolle_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_dokumentstatus_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_rollenr", 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_dokumentstatusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatusnr", 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_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand2
        '
        Me.SqlInsertCommand2.CommandText = "[pv_dokumentstatus_rolle_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("@dokumentstatus_rollenr", System.Data.SqlDbType.Int, 4, "dokumentstatus_rollenr"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatusnr", System.Data.SqlDbType.Int, 4, "dokumentstatusnr"))
        Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
        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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        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 = "[sp_dokumentstatus_rolle_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(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlUpdateCommand2
        '
        Me.SqlUpdateCommand2.CommandText = "[pv_dokumentstatus_rolle_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("@dokumentstatus_rollenr", System.Data.SqlDbType.Int, 4, "dokumentstatus_rollenr"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatusnr", System.Data.SqlDbType.Int, 4, "dokumentstatusnr"))
        Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
        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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        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_dokumentstatus_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_rollenr", 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_dokumentstatusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatusnr", 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_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
        '
        '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", "vorlagenfeldbezeichnung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("vorlagenfeldbezeichnungnr", "vorlagenfeldbezeichnungnr"), New System.Data.Common.DataColumnMapping("vorlagenfeld", "vorlagenfeld"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), 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.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
        '
        'SqlDeleteCommand3
        '
        Me.SqlDeleteCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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_vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldbezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand3
        '
        Me.SqlInsertCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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("@vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldbezeichnungnr"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagenfeld", System.Data.SqlDbType.Int, 4, "vorlagenfeld"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        '
        'SqlSelectCommand3
        '
        Me.SqlSelectCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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("@vorlagenfeld", System.Data.SqlDbType.Int, 4, "vorlagenfeld"))
        '
        'SqlUpdateCommand3
        '
        Me.SqlUpdateCommand3.CommandText = "[pv_vorlagenfeldbezeichnung_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("@vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldbezeichnungnr"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "vorlagenfeld"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldbezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeld", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeld", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet3
        '
        Me.DataSet3.DataSetName = "NewDataSet"
        Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'SqlDataAdapter4
        '
        Me.SqlDataAdapter4.SelectCommand = Me.SqlSelectCommand4
        Me.SqlDataAdapter4.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "coldindex", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("coldindexnr", "coldindexnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
        '
        'SqlSelectCommand4
        '
        Me.SqlSelectCommand4.CommandText = "[pv_coldindexfeld_auswahl_select]"
        Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand4.Connection = Me.SqlConnection1
        Me.SqlSelectCommand4.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.SqlSelectCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@foldernr", System.Data.SqlDbType.Int, 4, "cold_foldernr"))
        '
        'DataSet4
        '
        Me.DataSet4.DataSetName = "NewDataSet"
        Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'frmDomainDokumenttypDetail
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(848, 701)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlVorlagenfeld, Me.TabControl1, Me.Panel1, Me.ToolBar1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmDomainDokumenttypDetail"
        Me.ShowInTaskbar = False
        Me.Text = "Dokumenttyp-Detail"
        Me.Panel1.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.Grp1.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.TabStruktur.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.TabStatusreihenfolge.ResumeLayout(False)
        CType(Me.DokumentstatusRolle_Liste, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Statuslist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlVorlagenfeld.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        CType(Me.ColdIndexfeldList, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.vorlagenfeldbezeichnunglist, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.vorlagenfeldlist, System.ComponentModel.ISupportInitialize).EndInit()
        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.ResumeLayout(False)

    End Sub

#End Region

#Region "Formularhandling"

    Private Sub frmDomainDokumenttypDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlConnection1.Open()
        me_onLoad = True
        DataChanged = False
        Dim tn As TreeNode
        Load_Listen()
        If Me.NeuerEintrag = False Then
            Load_Data()
        Else

            Me.cWirdImportiert.Enabled = False
            Me.CDokumentwirdretourniert.Enabled = False
            Me.cDokumentwirderstellt.Enabled = False
            Me.cAktiv.Checked = True
            Me.TxtDokumentartKundendossier.Text = 0
            Me.TxtDokumentartErstellung.Text = 0
            Me.TxtDokumentartHost.Text = 0
            Me.TxTDokumentartRetournierung.Text = 0
            Me.TxtDokumentartGesamt.Text = 0
            Me.txtDokumentstatus_barcode.Text = 0
            Me.txtDokumentartEinzeldokument.Text = 0
            Me.txtDokumentstatus.Text = Me.cbStatustyp.SelectedValue
            Me.cbBearbeitungszeit.Text = 1
            Me.cbAufbewahrungelektronisch.Text = 10
            Me.cbAufbewahrungphysisch.Text = 10
            Me.cbInEdokaDB.Text = 3
            Me.cbMonierung.Text = 3
            Me.cbAbschluss.Text = 5
            Me.cDokumentwirderstellt.Enabled = False
            Me.cAMSDokument.Enabled = False
            Me.cHostDokument.Enabled = False
            Me.cUnterschriftlinks.Checked = True
            Me.cUnterschriftrechts.Checked = True
            Me.cStatusMutation.Checked = True
            Me.cbAbschluss.SelectedValue = 2
            Me.cbColdFolder.SelectedValue = 2
            Me.cEmailVersand.Checked = False
            Me.cFunktion_zuweisen.Checked = False
        End If
        If Me.cidvnative.Checked Then Me.RBEinzeldokumente.Checked = True Else Me.RBKundendossier.Checked = True
        Me.DokStatus = 0
        Load_Dokumentstatus()
        Me.savestatustyp = Me.cbStatustyp.SelectedValue
        Me.StatusDataChanged = False
        Me.DataChanged = False
        Me.VorlagenDataChanged = False

        If Me.cHostDokument.Checked Then cHostdokument_click(sender, e)
        If Me.cAMSDokument.Checked Then camsdokument_click(sender, e)
        If Me.cDokumentwirderstellt.Checked Then cdokumentwirderstellt_click(sender, e)
        If Me.cWirdImportiert.Checked Then
            CWirdimportiert_click(sender, e)
        Else
            If Me.CDokumentwirdretourniert.Checked Then
                CDokumentwirdretourniert_click(sender, e)
            End If
        End If

        cZuVercolden_CheckedChanged(sender, e)
        cZuRetournieren_CheckedChanged(sender, e)

        me_onLoad = False
        set_tooltips()
    End Sub

    Private Sub set_tooltips()
        Dim ttip As New ToolTip()
        ttip.SetToolTip(Me.cbOfficeVorlage, Globals.MyTxt.gettext(20000))
        ttip.SetToolTip(Me.TxTBezeichnung, Globals.MyTxt.gettext(20001))
        ttip.SetToolTip(Me.TxTBeschreibung, Globals.MyTxt.gettext(20002))
        ttip.SetToolTip(Me.cDokumentwirderstellt, Globals.MyTxt.gettext(20003))
        ttip.SetToolTip(Me.cAMSDokument, Globals.MyTxt.gettext(20004))
        ttip.SetToolTip(Me.cHostDokument, Globals.MyTxt.gettext(20005))
        ttip.SetToolTip(Me.txthostdokumenttyp, Globals.MyTxt.gettext(20006))
        ttip.SetToolTip(Me.cWirdImportiert, Globals.MyTxt.gettext(20007))
        ttip.SetToolTip(Me.CDokumentwirdretourniert, Globals.MyTxt.gettext(20008))
        ttip.SetToolTip(Me.cZuVercolden, Globals.MyTxt.gettext(20009))
        ttip.SetToolTip(Me.cbDokartAusgang, Globals.MyTxt.gettext(20010))
        ttip.SetToolTip(Me.cZuRetournieren, Globals.MyTxt.gettext(20011))
        ttip.SetToolTip(Me.cbDokartEingang, Globals.MyTxt.gettext(20012))
        ttip.SetToolTip(Me.cEingangErsetztAusgang, Globals.MyTxt.gettext(20013))
        ttip.SetToolTip(Me.cbColdFolder, Globals.MyTxt.gettext(20014))
        ttip.SetToolTip(Me.cbArchiv, Globals.MyTxt.gettext(20015))
        ttip.SetToolTip(Me.cStatusMutation, Globals.MyTxt.gettext(20016))
        ttip.SetToolTip(Me.cNichtgeloescht, Globals.MyTxt.gettext(20017))
        ttip.SetToolTip(Me.cVertraulich, Globals.MyTxt.gettext(20018))
        ttip.SetToolTip(Me.cUnterschriftlinks, Globals.MyTxt.gettext(20019))
        ttip.SetToolTip(Me.cUnterschriftrechts, Globals.MyTxt.gettext(20020))
        ttip.SetToolTip(Me.CDokumentersetzen, Globals.MyTxt.gettext(20021))
        ttip.SetToolTip(Me.cbBearbeitungszeit, Globals.MyTxt.gettext(20022))
        ttip.SetToolTip(Me.cbMonierung, Globals.MyTxt.gettext(20023))
        ttip.SetToolTip(Me.cbAbschluss, Globals.MyTxt.gettext(20024))
        ttip.SetToolTip(Me.cbInEdokaDB, Globals.MyTxt.gettext(20025))
        ttip.SetToolTip(Me.cbAufbewahrungelektronisch, Globals.MyTxt.gettext(20026))
        ttip.SetToolTip(Me.cbAufbewahrungphysisch, Globals.MyTxt.gettext(20027))
        ttip.SetToolTip(Me.cbprozesserstellung, Globals.MyTxt.gettext(20028))
        ttip.SetToolTip(Me.cbprozessverwendung, Globals.MyTxt.gettext(20029))
        ttip.SetToolTip(Me.cAktiv, Globals.MyTxt.gettext(20030))
        ttip.SetToolTip(Me.TVStruktur, Globals.MyTxt.gettext(20031))
        ttip.SetToolTip(Me.cbStatustyp, Globals.MyTxt.gettext(20032))
        ttip.SetToolTip(Me.Statuslist, Globals.MyTxt.gettext(20033))
        ttip.SetToolTip(Me.DokumentstatusRolle_Liste, Globals.MyTxt.gettext(20034))
        ttip.SetToolTip(Me.cFunktion_zuweisen, Globals.MyTxt.gettext(20035))
        ttip.SetToolTip(Me.cEmailVersand, Globals.MyTxt.gettext(20036))
        ttip.SetToolTip(Me.rbDokStatusStandard, MyTxt.gettext(20037))
        ttip.SetToolTip(Me.rbEtikette, MyTxt.gettext(20038))
        ttip.SetToolTip(Me.cidvnative, MyTxt.gettext(20039))
    End Sub

    Private Sub cdokumentwirderstellt_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cDokumentwirderstellt.Click
        Me.RBKundendossier.Checked = True
        Me.TabControl1.TabPages(1).Enabled = True
        Me.TabControl1.TabPages(2).Enabled = True
        Me.pnlVorlagenfeld.Enabled = True
        Me.TabDokumentfelder.Enabled = True
        Me.RBKundendossier.Visible = True
        Me.RBHost.Visible = False
        Me.RBHost.Checked = False

        'Formatierung für HOST-Dokumente
        If Me.cDokumentwirderstellt.Checked Then
            Me.GroupBox1.Enabled = True
            Me.GroupBox2.Enabled = True
            Me.GroupBox3.Enabled = True
            Me.txthostdokumenttyp.Enabled = False
            Me.RBKundendossier.Checked = True
            Me.RBKundendossier.Visible = True
            Handle_StrukturRadiobuttons(sender, e)
            Me.cWirdImportiert.Enabled = True
            Me.cHostDokument.Checked = False
            Me.cHostDokument.Enabled = False
            Me.txthostdokumenttyp.Enabled = False
            Me.txthostdokumenttyp.Text = ""
            '            Me.cAMSDokument.Checked = False
            Me.cAMSDokument.Enabled = True
            Me.TabControl1.TabPages(2).Enabled = False
            Me.CDokumentwirdretourniert.Enabled = True
        Else
            Me.cHostDokument.Enabled = True
            Me.cAMSDokument.Enabled = True
            Me.CDokumentwirdretourniert.Enabled = False
            Me.CDokumentwirdretourniert.Checked = False
            Me.cWirdImportiert.Enabled = False
            Me.cWirdImportiert.Checked = False
            camsdokument_click(sender, e)
            Me.cZuRetournieren.Checked = False
            Me.cZuVercolden.Checked = False
            Me.cEingangErsetztAusgang.Checked = False
            Me.cZuRetournieren.Enabled = False
            Me.cZuRetournieren.Enabled = False
            Me.cEingangErsetztAusgang.Enabled = False
            Me.cbDokartAusgang.Enabled = False
            Me.cbDokartEingang.Enabled = False
            Me.cbArchiv.Enabled = False
            Me.cbColdFolder.Enabled = False

            If Me.cAMSDokument.Checked = False And Me.cHostDokument.Checked = False Then
                Me.cZuVercolden.Checked = False
                Me.cZuVercolden.Enabled = False
            End If
        End If
    End Sub

    Private Sub cHostdokument_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cHostDokument.Click
        Me.RBKundendossier.Checked = True
        Me.TabControl1.TabPages(1).Enabled = True
        Me.TabControl1.TabPages(2).Enabled = True
        Me.pnlVorlagenfeld.Enabled = True
        Me.TabDokumentfelder.Enabled = True
        Me.RBKundendossier.Visible = True
        Me.RBHost.Visible = False
        Me.RBHost.Checked = False

        'Formatierung für HOST-Dokumente
        If Me.cHostDokument.Checked Then
            Me.cbStatustyp.SelectedValue = 0
            cbStatustyp_SelectedIndexChanged(sender, e)
            Me.GroupBox1.Enabled = False
            Me.GroupBox2.Enabled = False
            Me.GroupBox3.Enabled = False
            Me.txthostdokumenttyp.Enabled = True
            Me.RBKundendossier.Checked = False
            Me.RBKundendossier.Visible = False
            Me.RBHost.Visible = True
            Me.RBHost.Checked = True
            Handle_StrukturRadiobuttons(sender, e)
            Me.cWirdImportiert.Checked = False
            Me.cWirdImportiert.Enabled = False
            Me.cAMSDokument.Checked = False
            Me.cAMSDokument.Enabled = False
            Me.cDokumentwirderstellt.Enabled = False
            Me.cDokumentwirderstellt.Checked = False
            Me.pnlVorlagenfeld.Enabled = False
            Me.TabControl1.TabPages(1).Enabled = False
            Me.TabControl1.TabPages(2).Enabled = False
            Me.CDokumentwirdretourniert.Enabled = False
            Me.CDokumentwirdretourniert.Checked = False
        Else
            Me.GroupBox1.Enabled = True
            Me.GroupBox2.Enabled = True
            Me.GroupBox3.Enabled = True
            Me.txthostdokumenttyp.Enabled = False
            Me.txthostdokumenttyp.Text = ""
            Me.RBKundendossier.Checked = True
            Me.RBHost.Checked = False
            Me.RBHost.Visible = False
            Handle_StrukturRadiobuttons(sender, e)
            Me.cWirdImportiert.Enabled = False
            Me.cAMSDokument.Enabled = True
            Me.cDokumentwirderstellt.Enabled = True
            Me.CDokumentwirdretourniert.Enabled = True
            Me.CDokumentwirdretourniert.Enabled = False
        End If
    End Sub

    Private Sub camsdokument_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cAMSDokument.Click
        Me.RBKundendossier.Checked = True
        Me.TabControl1.TabPages(1).Enabled = True
        Me.TabControl1.TabPages(2).Enabled = True
        Me.pnlVorlagenfeld.Enabled = True
        Me.TabDokumentfelder.Enabled = True
        Me.RBKundendossier.Visible = True
        Me.RBHost.Visible = False
        Me.RBHost.Checked = False

        'Formatierung für HOST-Dokumente
        If Me.cAMSDokument.Checked And Me.cDokumentwirderstellt.Checked = False Then
            Me.cbStatustyp.SelectedValue = 1
            cbStatustyp_SelectedIndexChanged(sender, e)
            Me.GroupBox1.Enabled = False
            Me.GroupBox2.Enabled = False
            Me.GroupBox3.Enabled = False
            Me.txthostdokumenttyp.Enabled = True
            Me.RBKundendossier.Checked = True
            Me.RBKundendossier.Visible = True
            Handle_StrukturRadiobuttons(sender, e)
            Me.cWirdImportiert.Checked = False
            Me.cWirdImportiert.Enabled = False
            Me.cHostDokument.Checked = False
            Me.cHostDokument.Enabled = False
            Me.txthostdokumenttyp.Enabled = False
            Me.txthostdokumenttyp.Text = ""
            Me.cDokumentwirderstellt.Enabled = False
            Me.cDokumentwirderstellt.Checked = False
            Me.pnlVorlagenfeld.Enabled = False
            Me.TabControl1.TabPages(2).Enabled = False
            Me.CDokumentwirdretourniert.Enabled = False
            Me.CDokumentwirdretourniert.Checked = False
        Else
            Me.GroupBox1.Enabled = True
            Me.GroupBox2.Enabled = True
            Me.GroupBox3.Enabled = True
            Me.txthostdokumenttyp.Enabled = False
            Me.txthostdokumenttyp.Text = ""
            Me.RBKundendossier.Checked = True
            Me.RBHost.Checked = False
            Me.RBHost.Visible = False
            Handle_StrukturRadiobuttons(sender, e)
            If Me.cDokumentwirderstellt.Checked = True Then
                Me.cWirdImportiert.Enabled = True
                Me.CDokumentwirdretourniert.Enabled = True
                Me.cHostDokument.Enabled = False
            Else
                Me.cWirdImportiert.Enabled = False
                Me.CDokumentwirdretourniert.Enabled = False
                Me.cHostDokument.Enabled = True
            End If
            Me.cDokumentwirderstellt.Enabled = True
        End If
    End Sub

    Private Sub CDokumentwirdretourniert_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDokumentwirdretourniert.Click
        'Gem Besprechung vom 16.1.2003 - Keine speziellen Vorkehrungen
        Exit Sub

        If Me.CDokumentwirdretourniert.Checked Then
            Me.cWirdImportiert.Checked = False
            Me.cWirdImportiert.Enabled = False

            Me.cZuVercolden.Enabled = False
            Me.cZuVercolden.Checked = False
            cZuVercolden_CheckedChanged(sender, e)
            Me.cZuRetournieren.Enabled = True
            cZuRetournieren_CheckedChanged(sender, e)
            Me.cEingangErsetztAusgang.Enabled = False
            Me.cbColdFolder.Enabled = True
            Me.cbDokartEingang.Enabled = True
            Me.cbArchiv.Enabled = True
            Me.cZuRetournieren.Checked = True
        Else
            Me.cWirdImportiert.Enabled = True
            Me.cZuVercolden.Enabled = True
            Me.cZuRetournieren.Enabled = False
            Me.cZuRetournieren.Checked = False
            cZuVercolden_CheckedChanged(sender, e)
            cZuRetournieren_CheckedChanged(sender, e)
        End If
    End Sub

    Private Sub cidvnative_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cidvnative.CheckedChanged
        If Me.cidvnative.Checked Then
            Me.RBKundendossier.Visible = False
            Me.RBEinzeldokumente.Visible = True
            Me.RBEinzeldokumente.Checked = True
        Else
            Me.RBKundendossier.Visible = True
            Me.RBEinzeldokumente.Visible = False
            Me.RBKundendossier.Checked = True
        End If
        Me.Handle_StrukturRadiobuttons(sender, e)
    End Sub


    Private Sub CWirdimportiert_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cWirdImportiert.Click
        'Gem Besprechung vom 16.1.2003 - Keine speziellen Vorkehrungen
        Exit Sub
        If Me.cWirdImportiert.Checked Then
            Me.CDokumentwirdretourniert.Checked = False
            Me.CDokumentwirdretourniert.Enabled = False
        Else
            Me.CDokumentwirdretourniert.Enabled = True
        End If
    End Sub

    Private Sub cZuVercolden_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cZuVercolden.Click
        If Me.cZuVercolden.Checked = True Then
            Me.cbDokartAusgang.Enabled = True
            Me.btnSelDokumentartAusgang.Enabled = True
            Me.cZuRetournieren.Enabled = True
            Me.cbColdFolder.Enabled = True
            Me.btnSelColdfolder.Enabled = True
        Else
            Me.cbDokartAusgang.Enabled = False
            Me.btnSelDokumentartAusgang.Enabled = False
            Me.cZuRetournieren.Enabled = False
            Me.cbDokartEingang.Enabled = False
            Me.btnSelDokumentartEingang.Enabled = False
            Me.cbColdFolder.Enabled = False
            Me.btnSelColdfolder.Enabled = False
            Me.cEingangErsetztAusgang.Enabled = False
            Me.cbArchiv.Enabled = False
            Me.btnSelPhysischeAblage.Enabled = False
        End If
    End Sub

    Private Sub cZuRetournieren_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cZuRetournieren.Click
        If Me.cZuRetournieren.Checked = True Then
            Me.cbDokartEingang.Enabled = True
            Me.cbMonierung.Enabled = True
            Me.cbAufbewahrungphysisch.Enabled = True
            Me.btnSelDokumentartEingang.Enabled = True
            Me.cEingangErsetztAusgang.Enabled = True
            Me.cbArchiv.Enabled = True
            Me.btnSelPhysischeAblage.Enabled = True
        Else
            Me.cbMonierung.Enabled = False
            Me.cbAufbewahrungphysisch.Enabled = False
            Me.cbDokartEingang.Enabled = False
            Me.btnSelDokumentartEingang.Enabled = False
            Me.cEingangErsetztAusgang.Enabled = False
            Me.cbArchiv.Enabled = False
            Me.btnSelPhysischeAblage.Enabled = False
        End If
    End Sub

    Private Sub TxtBezeichnung_exit(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxTBezeichnung.Leave
        If Me.TxTBezeichnung.Text <> "" Then
            Me.cDokumentwirderstellt.Enabled = True
            Me.cAMSDokument.Enabled = True
            Me.CDokumentwirdretourniert.Enabled = True
            Me.cHostDokument.Enabled = True
        Else
            MyMsg.show_standardmessage(201, MsgBoxStyle.Critical)
            Me.TxTBezeichnung.Focus()
        End If

    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Save_Data()
    End Sub

    Private Function Save_Changes() As MsgBoxResult
        Dim msg As MsgBoxResult
        If Not DataChanged Then
            Return MsgBoxResult.OK
            Exit Function
        End If
        If DataChanged Then
            msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
            If msg = MsgBoxResult.No Then
                Return MsgBoxResult.OK
            End If
            If msg = MsgBoxResult.Yes Then
                Save_Data()
                DataChanged = False
                Return MsgBoxResult.OK
            End If
            If msg = MsgBoxResult.Cancel Then Return MsgBoxResult.Cancel
        End If
    End Function

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        If Me.DataSet3.HasChanges Then
            Try
                Me.SqlDataAdapter3.Update(Me.DataSet3)
            Catch
            End Try
        End If
        Save_Rollenliste()

        If TabControl1.SelectedIndex = 0 Or TabControl1.SelectedIndex = 1 Then
            If Me.VorlagenDataChanged = True Then
                If MyMsg.Show_MessageYesNo(10) = MsgBoxResult.OK Then
                    Me.save_vorlagenfeldlist()
                End If
                Me.update_vorlagenfelder()
            End If
        End If
        If TabControl1.SelectedIndex = 1 Or TabControl1.SelectedIndex = 2 Then
            pnlVorlagenfeld.Visible = False
            If Save_Changes() <> MsgBoxResult.OK Then TabControl1.SelectedIndex = 0
        End If
        If TabControl1.SelectedIndex = 0 Or TabControl1.SelectedIndex = 2 Then
            pnlVorlagenfeld.Visible = False
            If Me.StatusDataChanged = True Then
                If MyMsg.Show_MessageYesNo(9) = MsgBoxResult.OK Then
                    Save_Statusdata()
                Else
                    Load_Dokumentstatus()
                End If
            End If
        End If
        If TabControl1.SelectedIndex = 2 Then
            pnlVorlagenfeld.Visible = True
            update_vorlagenfelder()
        End If
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                If Me.DataSet3.HasChanges Then
                    Try
                        Me.SqlDataAdapter3.Update(Me.DataSet3)
                    Catch
                    End Try
                End If
                If Me.StatusDataChanged Then If MyMsg.Show_MessageYesNo(9) = MsgBoxResult.Yes Then Save_Statusdata()
                If Me.VorlagenDataChanged Then If MyMsg.Show_MessageYesNo(10) = MsgBoxResult.Yes Then Me.save_vorlagenfeldlist()
                Save_Rollenliste()
                If Save_Changes() = MsgBoxResult.OK Then Me.Close()
            Case 1
                Save_Data()
            Case 2
                Dim ww As New WordLib()
                ww.Create_Dokument(Me.DokumentTypkey, False)
                ww = Nothing
            Case 4
                Dim f As New frmReporting()
                f.show_report_dokumenttyp(Me.Dokumenttypnr.Text)
                f.Show()
            Case 5
                Dim ww As New WordLib()
                ww.Create_Dokument(Me.DokumentTypkey, True)
            Case Else
        End Select
    End Sub

    Private Sub FormValuecbOfficeVorlage_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbOfficeVorlage.SelectedIndexChanged, cbDokartAusgang.SelectedIndexChanged, cbDokartEingang.SelectedIndexChanged, cbColdFolder.SelectedIndexChanged, cbArchiv.SelectedIndexChanged, cbBearbeitungszeit.SelectedValueChanged, cbMonierung.SelectedValueChanged, cbAbschluss.SelectedValueChanged, cbInEdokaDB.SelectedValueChanged, cbAufbewahrungelektronisch.SelectedValueChanged, cbAufbewahrungphysisch.SelectedValueChanged, TxtDokumentartErstellung.TextChanged, TxtDokumentartHost.TextChanged, TxtDokumentartKundendossier.TextChanged, TxTDokumentartRetournierung.TextChanged, TxTBeschreibung.TextChanged, TxTBezeichnung.TextChanged, cAMSDokument.Click, CDokumentwirdretourniert.Click, cDokumentwirderstellt.Click, cEingangErsetztAusgang.Click, cHostDokument.Click, cNichtgeloescht.Click, cStatusMutation.Click, cUnterschriftlinks.Click, cUnterschriftrechts.Click, cVertraulich.Click, cWirdImportiert.Click, cZuRetournieren.Click, cZuVercolden.Click, txthostdokumenttyp.TextChanged
        DataChanged = True
    End Sub

    Private Sub Check_Officevorlage(ByVal sernder As System.Object, ByVal e As System.EventArgs) Handles cbOfficeVorlage.SelectedValueChanged
        If me_onLoad Then Exit Sub
        Dim cdokumenttyp As New edokadb.clsDokumenttyp()
        Dim dt As DataTable
        cdokumenttyp.cpMainConnectionProvider = conn
        cdokumenttyp.iOffice_vorlagenr = New SqlInt32(CType(Me.cbOfficeVorlage.SelectedValue, Int32))
        dt = cdokumenttyp.SelectAllWoffice_vorlagenrLogic
        If dt.Rows.Count > 0 Then
            Globals.MyMsg.show_standardmessage(203, MsgBoxStyle.Information)
        End If
        dt.Dispose()
        cdokumenttyp.Dispose()
    End Sub

    Private Sub cbAufbewahrungelektronisch_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAufbewahrungelektronisch.SelectedIndexChanged
        Me.cbAufbewahrungphysisch.SelectedIndex = Me.cbAufbewahrungelektronisch.SelectedIndex
    End Sub
    Private Sub cbAufbewahrungphysisch_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAufbewahrungphysisch.SelectedIndexChanged
        Me.cbAufbewahrungelektronisch.SelectedIndex = Me.cbAufbewahrungphysisch.SelectedIndex
    End Sub

#End Region

#Region "Datenbezugsformulare"
    Private Sub btnSelOfficeVorlage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelOfficeVorlage.Click
        Dim frm As New frmDomainOfficeVorlage()
        frm.ToSelect = True
        frm.Eintragnr = 0
        frm.TransferKey = 0
        frm.Refresh()
        frm.Owner = Me
        frm.ShowDialog()
        If frm.TransferKey <> 0 Then Me.cbOfficeVorlage.SelectedValue = frm.TransferKey
        frm.Dispose()
    End Sub

    Private Sub btnSelPhysischeAblage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelPhysischeAblage.Click
        Dim frm As New frmDomainPhsischesArchiv()
        frm.ToSelect = True
        frm.TransferKey = 0
        frm.Eintragnr = 0
        frm.Refresh()
        frm.Owner = Me
        frm.ShowDialog()
        If frm.TransferKey <> 0 Then Me.cbArchiv.SelectedValue = frm.TransferKey
        frm.Dispose()
    End Sub

    Private Sub btnSelColdfolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelColdfolder.Click
        Dim frm As New frmDomainColdFolder()
        frm.ToSelect = True
        frm.TransferKey = 0
        frm.Refresh()
        frm.Owner = Me
        frm.ShowDialog()
        If frm.TransferKey <> 0 Then Me.cbColdFolder.SelectedValue = frm.TransferKey
        frm.Dispose()
    End Sub

    Private Sub btnSelDokumentartAusgang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelDokumentartAusgang.Click
        Dim frm As New FrmDomainDokumentart()
        frm.ToSelect = True
        frm.Transferkey = 0
        frm.showlevel = 6
        frm.Refresh()
        frm.ShowDialog()
        If frm.Transferkey <> 0 Then Me.cbDokartAusgang.SelectedValue = frm.Transferkey
        frm.Dispose()
    End Sub

    Private Sub btnSelDokumentartEingang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelDokumentartEingang.Click
        Dim frm As New FrmDomainDokumentart()
        frm.ToSelect = True
        frm.showlevel = 7
        frm.Transferkey = 0
        frm.Refresh()
        frm.ShowDialog()
        If frm.Transferkey <> 0 Then Me.cbDokartEingang.SelectedValue = frm.Transferkey
        frm.Dispose()
    End Sub


#End Region

#Region "Datenhandling"
    Private Sub Load_Listen()
        Dim i As Integer
        Me.cbBearbeitungszeit.Items.Clear()
        For i = 0 To 180
            Me.cbBearbeitungszeit.Items.Add(i)
        Next

        Me.cbAufbewahrungelektronisch.Items.Clear()
        Me.cbAufbewahrungphysisch.Items.Clear()
        For i = 0 To 25
            Me.cbAufbewahrungelektronisch.Items.Add(i)
            Me.cbAufbewahrungphysisch.Items.Add(i)
        Next

        Me.cbMonierung.Items.Clear()
        Me.cbAbschluss.Items.Clear()
        For i = 0 To 120
            Me.cbMonierung.Items.Add(i)
            Me.cbAbschluss.Items.Add(i)
        Next

        Me.cbInEdokaDB.Items.Clear()
        For i = 0 To 24
            Me.cbInEdokaDB.Items.Add(i)
        Next

        Dim dofficevorlage As New edokadb.clsOffice_vorlage()
        dofficevorlage.cpMainConnectionProvider = conn
        tofficevorlage = dofficevorlage.SelectAll()
        Me.cbOfficeVorlage.DataSource = Me.tofficevorlage
        Me.cbOfficeVorlage.DisplayMember = "bezeichnung"
        Me.cbOfficeVorlage.ValueMember = "office_vorlagenr"
        dofficevorlage.Dispose()

        Dim dphysischesarchiv As New edokadb.clsPhysischesArchiv()
        dphysischesarchiv.cpMainConnectionProvider = conn
        tphysischesarchiv = dphysischesarchiv.SelectAll
        Me.cbArchiv.DataSource = Me.tphysischesarchiv
        Me.cbArchiv.DisplayMember = "bezeichnung"
        Me.cbArchiv.ValueMember = "physischesarchivnr"
        dphysischesarchiv.Dispose()

        Dim dcoldfolder As New edokadb.clsCold_folder()
        dcoldfolder.cpMainConnectionProvider = conn
        tcoldfolder = dcoldfolder.SelectAll
        Me.cbColdFolder.DataSource = Me.tcoldfolder
        Me.cbColdFolder.DisplayMember = "bezeichnung"
        Me.cbColdFolder.ValueMember = "cold_foldernr"
        dcoldfolder.Dispose()

        Dim ddokumentartausgang As New edokadb.clsMyDokumentart()
        ddokumentartausgang.cpMainConnectionProvider = conn
        tdokumentartausgang = ddokumentartausgang.SelectHierarchy_By_Root(6)
        Me.cbDokartAusgang.DataSource = Me.tdokumentartausgang
        Me.cbDokartAusgang.DisplayMember = "bezeichnung"
        Me.cbDokartAusgang.ValueMember = "dokumentartnr"

        ddokumentartausgang.cpMainConnectionProvider = conn
        tdokumentarteingang = ddokumentartausgang.SelectHierarchy_By_Root(7)
        Me.cbDokartEingang.DataSource = Me.tdokumentarteingang
        Me.cbDokartEingang.DisplayMember = "bezeichnung"
        Me.cbDokartEingang.ValueMember = "dokumentartnr"
        ddokumentartausgang.Dispose()

        Dim dstatustyp As New edokadb.clsStatustyp()
        dstatustyp.cpMainConnectionProvider = conn
        tstatustyp = dstatustyp.SelectAll
        Me.cbStatustyp.DataSource = Me.tstatustyp
        Me.cbStatustyp.DisplayMember = "bezeichnung"
        Me.cbStatustyp.ValueMember = "statustypnr"
        dstatustyp.Dispose()

        Dim dprozess As New edokadb.clsProzess()
        dprozess.cpMainConnectionProvider = conn
        tprozess1 = dprozess.SelectAll
        tprozess2 = dprozess.SelectAll
        Me.cbprozesserstellung.DataSource = Me.tprozess1
        Me.cbprozesserstellung.DisplayMember = "bezeichnung"
        Me.cbprozesserstellung.ValueMember = "prozessnr"

        Me.cbprozessverwendung.DataSource = Me.tprozess2
        Me.cbprozessverwendung.DisplayMember = "bezeichnung"
        Me.cbprozessverwendung.ValueMember = "prozessnr"

        dprozess.Dispose()


    End Sub

    Private Sub Save_Data()
        If Me.TxtDokumentartKundendossier.Text = 2 Then
            MyMsg.show_standardmessage(200, MsgBoxStyle.Exclamation)
            Me.TVStruktur.Focus()
            Exit Sub
        End If
        If Me.TxTBezeichnung.Text = "" Then
            MyMsg.show_standardmessage(201, MsgBoxStyle.Exclamation)
            Me.TxTBezeichnung.Focus()
            Exit Sub
        End If
        Dim dbkey As New edokadb.clsMyKey_Tabelle()
        Dim doktyp As New edokadb.clsDokumenttyp()
        Dim key As Long
        ' neuer DB-Key lesen
        If Me.NeuerEintrag Then
            dbkey.cpMainConnectionProvider = conn
            key = dbkey.get_dbkey("dokumenttyp")
            doktyp.iDokumenttypnr = New SqlInt32(CType(key, Int32))
            doktyp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
            Me.DokumentTypkey = key
        Else
            doktyp.cpMainConnectionProvider = conn
            doktyp.iDokumenttypnr = New SqlInt32(CType(Me.DokumentTypkey, Int32))
            doktyp.SelectOne()
        End If
        doktyp.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
        doktyp.bAktiv = New SqlBoolean(CType(Me.cAktiv.Checked, Boolean))
        doktyp.iOffice_vorlagenr = New SqlInt32(CType(Me.cbOfficeVorlage.SelectedValue, Int32))
        doktyp.sBeschreibung = New SqlString(CType(Me.TxTBeschreibung.Text, String))
        doktyp.sBezeichnung = New SqlString(CType(Me.TxTBezeichnung.Text, String))

        doktyp.bZu_vercolden = New SqlBoolean(CType(Me.cZuVercolden.Checked, Boolean))
        doktyp.iDokumentart_coldausgang = New SqlInt32(CType(Me.cbDokartAusgang.SelectedValue, Int32))
        doktyp.bZu_retournieren = New SqlBoolean(CType(Me.cZuRetournieren.Checked, Boolean))
        doktyp.iDokumentart_coldeingang = New SqlInt32(CType(Me.cbDokartEingang.SelectedValue, Int32))
        doktyp.bEingang_ersetzt_ausgang = New SqlBoolean(CType(Me.cEingangErsetztAusgang.Checked, Boolean))
        doktyp.iCold_folder = New SqlInt32(CType(Me.cbColdFolder.SelectedValue, Int32))
        doktyp.iPhysisches_archiv = New SqlInt32(CType(Me.cbArchiv.SelectedValue, Int32))

        doktyp.bWird_importiert = New SqlBoolean(CType(Me.cWirdImportiert.Checked, Boolean))
        doktyp.bPartnersaldierung_statusalt = New SqlBoolean(CType(Me.cStatusMutation.Checked, Boolean))
        doktyp.bWird_nicht_geloescht = New SqlBoolean(CType(Me.cNichtgeloescht.Checked, Boolean))
        doktyp.bVertrauliches_dokument = New SqlBoolean(CType(Me.cVertraulich.Checked, Boolean))
        doktyp.bUnterschrift_links = New SqlBoolean(CType(Me.cUnterschriftlinks.Checked, Boolean))
        doktyp.bUnterschrift_rechts = New SqlBoolean(CType(Me.cUnterschriftrechts.Checked, Boolean))
        doktyp.bAmsdokument = New SqlBoolean(CType(Me.cAMSDokument.Checked, Boolean))
        doktyp.bHostdokument = New SqlBoolean(CType(Me.cHostDokument.Checked, Boolean))

        doktyp.iDbearbeitungszeit = New SqlInt32(CType(Me.cbBearbeitungszeit.Text, Int32))
        doktyp.iAnzahl_tage = New SqlInt32(CType(Me.cbMonierung.Text, Int32))
        doktyp.iTage_mutation = New SqlInt32(CType(Me.cbAbschluss.Text, Int32))
        doktyp.iAufbewahrungsfrist_elektronisch = New SqlInt32(CType(Me.cbAufbewahrungelektronisch.Text, Int32))
        doktyp.iAufbewahrungsfrist_physisch = New SqlInt32(CType(Me.cbAufbewahrungphysisch.Text, Int32))
        doktyp.iMonate_bis_zur_archivierung = New SqlInt32(CType(Me.cbInEdokaDB.Text, Int32))

        doktyp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        doktyp.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))

        doktyp.iDokumentart_kundendossier = New SqlInt32(CType(Me.TxtDokumentartKundendossier.Text, Int32))
        doktyp.iDokumentart_retournierung = New SqlInt32(CType(Me.TxTDokumentartRetournierung.Text, Int32))
        doktyp.iDokumentart_neuerstellung = New SqlInt32(CType(Me.TxtDokumentartErstellung.Text, Int32))
        doktyp.iDokumentart_host = New SqlInt32(CType(Me.TxtDokumentartHost.Text, Int32))
        doktyp.iProzessnr = New SqlInt32(CType(Me.cbprozesserstellung.SelectedValue, Int32))
        doktyp.iProzessnr1 = New SqlInt32(CType(Me.cbprozessverwendung.SelectedValue, Int32))
        doktyp.iDokumentart_weitere = New SqlInt32(CType(Me.TxtDokumentartGesamt.Text, Int32))

        doktyp.sHostdokumenttyp = New SqlString(CType(Me.txthostdokumenttyp.Text, String))
        doktyp.bDokument_wird_erstellt = New SqlBoolean(CType(Me.cDokumentwirderstellt.Checked, Boolean))
        doktyp.bDokument_wird_retourniert = New SqlBoolean(CType(Me.CDokumentwirdretourniert.Checked, Boolean))
        doktyp.bCold_ersetzen = New SqlBoolean(CType(Me.CDokumentersetzen.Checked, Boolean))
        doktyp.bEmail_versand = New SqlBoolean(CType(Me.cEmailVersand.Checked, Boolean))
        doktyp.bFunktionen_zuweisen = New SqlBoolean(CType(Me.cFunktion_zuweisen.Checked, Boolean))
        doktyp.bNurnative = New SqlBoolean(CType(Me.cidvnative.Checked, Boolean))
        doktyp.iDokumentart_nativ = New SqlInt32(CType(Me.txtDokumentartEinzeldokument.Text, Int32))

        '        doktyp.iDokumentstatus = New SqlInt32(CType(Me.cbStatustyp.SelectedValue, Int32))
        doktyp.iDokumentstatus = New SqlInt32(CType(Me.txtDokumentstatus.Text, Int32))
        doktyp.iDokumentstatus_barcode = New SqlInt32(CType(Me.txtDokumentstatus_barcode.Text, Int32))

        doktyp.cpMainConnectionProvider = conn
        conn.OpenConnection()
        If Me.NeuerEintrag Then
            doktyp.Insert()
            Me.NeuerEintrag = False
        Else
            doktyp.Update()
        End If
        conn.CloseConnection(True)
        doktyp.Dispose()
        dbkey.Dispose()
        DataChanged = False
    End Sub

    Private Sub Load_Data()
        Dim doktyp As New edokadb.clsDokumenttyp()
        doktyp.cpMainConnectionProvider = conn
        doktyp.iDokumenttypnr = New SqlInt32(CType(Me.DokumentTypkey, Int32))
        doktyp.SelectOne()
        Me.cbOfficeVorlage.SelectedValue = doktyp.iOffice_vorlagenr.Value
        Me.TxTBeschreibung.Text = doktyp.sBeschreibung.Value
        Me.TxTBezeichnung.Text = doktyp.sBezeichnung.Value
        Me.cZuVercolden.Checked = doktyp.bZu_vercolden.Value = True
        Me.cZuRetournieren.Checked = doktyp.bZu_retournieren.Value = True
        Me.cEingangErsetztAusgang.Checked = doktyp.bEingang_ersetzt_ausgang.Value = True
        Me.cbArchiv.SelectedValue = doktyp.iPhysisches_archiv.Value
        Me.cbColdFolder.SelectedValue = doktyp.iCold_folder.Value
        Me.cbDokartAusgang.SelectedValue = doktyp.iDokumentart_coldausgang.Value
        Me.cbDokartEingang.SelectedValue = doktyp.iDokumentart_coldeingang.Value
        Me.cWirdImportiert.Checked = doktyp.bWird_importiert.Value = True
        Me.cStatusMutation.Checked = doktyp.bPartnersaldierung_statusalt.Value = True
        Me.cNichtgeloescht.Checked = doktyp.bWird_nicht_geloescht.Value = True
        Me.cVertraulich.Checked = doktyp.bVertrauliches_dokument.Value = True
        Me.cUnterschriftlinks.Checked = doktyp.bUnterschrift_links.Value = True
        Me.cUnterschriftrechts.Checked = doktyp.bUnterschrift_rechts.Value = True
        Me.cAMSDokument.Checked = doktyp.bAmsdokument.Value = True
        Me.cHostDokument.Checked = doktyp.bHostdokument.Value = True
        Me.cAktiv.Checked = doktyp.bAktiv.Value = True
        Me.cbBearbeitungszeit.Text = doktyp.iDbearbeitungszeit.Value
        Me.cbMonierung.Text = doktyp.iAnzahl_tage.Value
        Me.cbAbschluss.Text = doktyp.iTage_mutation.Value
        Me.cbAufbewahrungelektronisch.Text = doktyp.iAufbewahrungsfrist_elektronisch.Value
        Me.cbAufbewahrungphysisch.Text = doktyp.iAufbewahrungsfrist_physisch.Value
        Me.cbInEdokaDB.Text = doktyp.iMonate_bis_zur_archivierung.Value
        Me.Dokumenttypnr.Text = doktyp.iDokumenttypnr.Value
        Me.TxtDokumentartKundendossier.Text = doktyp.iDokumentart_kundendossier.Value
        Me.TxtDokumentartErstellung.Text = doktyp.iDokumentart_neuerstellung.Value
        Me.TxtDokumentartHost.Text = doktyp.iDokumentart_host.Value
        Me.TxTDokumentartRetournierung.Text = doktyp.iDokumentart_retournierung.Value
        Me.TxtDokumentartGesamt.Text = doktyp.iDokumentart_weitere.Value
        Me.txtDokumentartEinzeldokument.Text = doktyp.iDokumentart_nativ.Value
        Me.savestatustyp = Me.cbStatustyp.SelectedValue
        Me.cbprozesserstellung.SelectedValue = doktyp.iProzessnr.Value
        Me.cbprozessverwendung.SelectedValue = doktyp.iProzessnr1.Value
        Me.cDokumentwirderstellt.Checked = doktyp.bDokument_wird_erstellt.Value = True
        Me.CDokumentwirdretourniert.Checked = doktyp.bDokument_wird_retourniert.Value = True
        Me.CDokumentersetzen.Checked = doktyp.bCold_ersetzen.Value = True
        Me.cEmailVersand.Checked = doktyp.bEmail_versand.Value = True
        Me.cFunktion_zuweisen.Checked = doktyp.bFunktionen_zuweisen.Value = True

        Me.txtDokumentstatus_barcode.Text = doktyp.iDokumentstatus_barcode.Value
        Me.txtDokumentstatus.Text = doktyp.iDokumentstatus.Value

        If Me.cDokumentwirderstellt.Checked = True Then
            Me.cbStatustyp.SelectedValue = doktyp.iDokumentstatus.Value
        Else
            Me.cbStatustyp.SelectedValue = doktyp.iDokumentstatus_barcode.Value
        End If

        Try
            If doktyp.sHostdokumenttyp.Value Is DBNull.Value Then
                Me.txthostdokumenttyp.Text = ""
            Else
                Me.txthostdokumenttyp.Text = doktyp.sHostdokumenttyp.Value
            End If
        Catch
            Me.txthostdokumenttyp.Text = ""
        End Try
        Me.cbOfficeVorlage.SelectedValue = doktyp.iOffice_vorlagenr.Value
        Me.cidvnative.Checked = doktyp.bNurnative.Value = True
        doktyp.Dispose()
    End Sub
#End Region

#Region "Strukturbaum"

    Private Sub Handle_StrukturRadiobuttons(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBKundendossier.CheckedChanged, RBHost.CheckedChanged, RBErstellung.CheckedChanged, RBEingang.CheckedChanged, RBGesamt.CheckedChanged
        Me.TVStruktur.Visible = False
        If Me.RBKundendossier.Checked Then
            dokumentart.LoadTreeMenu(Me.TVStruktur, 2)
            Me.TVStruktur.ExpandAll()
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartKundendossier.Text, 1)
        End If
        If Me.RBHost.Checked Then
            dokumentart.LoadTreeMenu(Me.TVStruktur, 3)
            Me.TVStruktur.ExpandAll()
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartHost.Text, 1)
        End If
        If Me.RBErstellung.Checked Then
            dokumentart.LoadTreeMenu(Me.TVStruktur, 4)
            Me.TVStruktur.ExpandAll()
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartErstellung.Text, 1)
        End If
        If Me.RBEingang.Checked Then
            dokumentart.LoadTreeMenu(Me.TVStruktur, 8)
            Me.TVStruktur.ExpandAll()
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxTDokumentartRetournierung.Text, 1)
        End If
        If Me.RBGesamt.Checked Then
            dokumentart.LoadTreeMenu(Me.TVStruktur, 1)
            Me.TVStruktur.ExpandAll()
            If CType(Me.TxtDokumentartGesamt.Text, Integer) <> 0 Then
                DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartGesamt.Text, 1)
            End If
            If CType(Me.TxtDokumentartKundendossier.Text, Integer) <> 0 Then
                DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartKundendossier.Text, 1)
            End If
            If CType(Me.TxtDokumentartHost.Text, Integer) <> 0 Then
                DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartHost.Text, 1)
            End If
        End If
        If Me.RBEinzeldokumente.Checked Then
            dokumentart.LoadTreeMenu(Me.TVStruktur, 147)
            Me.TVStruktur.ExpandAll()
            DivFnkt.Searchnode(Me.TVStruktur, Me.txtdokumentartEinzeldokument.text, 1)
        End If
        Me.TVStruktur.Visible = True
    End Sub

    Private Sub TVStruktur_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TVStruktur.AfterSelect
        Dim tn As New TreeNode()
        tn = Me.TVStruktur.SelectedNode
        If tn.GetNodeCount(True) > 0 And Me.TxtDokumentartKundendossier.Text <> "0" Then
            MyMsg.show_standardmessage(202, MsgBoxStyle.Critical)
            tn = Nothing
            Exit Sub
        End If
        tn = Nothing

        If Me.RBKundendossier.Checked Then
            Me.TxtDokumentartKundendossier.Text = Me.TVStruktur.SelectedNode.Tag
            Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
        End If
        If Me.RBHost.Checked Then
            Me.TxtDokumentartHost.Text = Me.TVStruktur.SelectedNode.Tag
            Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
        End If
        If Me.RBEingang.Checked Then
            Me.TxTDokumentartRetournierung.Text = Me.TVStruktur.SelectedNode.Tag
            Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
        End If
        If Me.RBErstellung.Checked Then
            Me.TxtDokumentartErstellung.Text = Me.TVStruktur.SelectedNode.Tag
            Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
        End If
        If Me.RBGesamt.Checked Then
            Me.TxtDokumentartGesamt.Text = Me.TVStruktur.SelectedNode.Tag
            Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
        End If
        If Me.RBEinzeldokumente.Checked Then
            Me.txtDokumentartEinzeldokument.Text = Me.TVStruktur.SelectedNode.Tag
            Me.TVStruktur.SelectedNode.SelectedImageIndex = 1
        End If
    End Sub

#End Region

#Region "Statushandling"

    Private Sub Load_Dokumentstatus()
        Dim dstatus As New edokadb.clsMyDokumentstatus()
        dstatus.Dokumenttypnr = Me.DokumentTypkey
        Try
            If Me.DokStatus = 1 Then
                dstatus.Statustypnr = Me.txtDokumentstatus_barcode.Text
            Else
                dstatus.Statustypnr = Me.txtDokumentstatus.Text
            End If
        Catch
        End Try
        'dstatus.Statustypnr = Me.cbStatustyp.SelectedValue
        dstatus.cpMainConnectionProvider = conn
        t = dstatus.SelectDokumentstatus()
        Me.Statuslist.DataSource = t
        dstatus.Dispose()
        SpaltenTitel_Aktualisieren()
    End Sub

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

        ts.Tabelle = "dokumentstatus"
        For i = 0 To Me.Statuslist.Columns.Count - 1
            s = Me.Statuslist.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.Statuslist.Columns(i).Caption = ts.spaltenname
            If Me.Statuslist.Columns(i).Caption = "" Then
                Me.Statuslist.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.Statuslist.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            If ts.locked Then
                Me.Statuslist.Splits(0).DisplayColumns(i).Locked = True
            End If
            If Me.Statuslist.Columns(i).DataField = "folgestatus_durch_anderen_verantwortlichen" Then
                Me.Statuslist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If
        Next
    End Sub

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

        ts.Tabelle = "dokumentstatus_rolle"
        For i = 0 To Me.DokumentstatusRolle_Liste.Columns.Count - 1
            s = Me.DokumentstatusRolle_Liste.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.DokumentstatusRolle_Liste.Columns(i).Caption = ts.spaltenname
            If Me.DokumentstatusRolle_Liste.Columns(i).Caption = "" Then
                Me.DokumentstatusRolle_Liste.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.DokumentstatusRolle_Liste.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            If ts.locked Then
                Me.DokumentstatusRolle_Liste.Splits(0).DisplayColumns(i).Locked = True
            End If
            If Me.DokumentstatusRolle_Liste.Columns(i).DataField = "aktiv" Then
                Me.DokumentstatusRolle_Liste.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.DokumentstatusRolle_Liste.Columns(i).DefaultValue = True
                Me.DokumentstatusRolle_Liste.Columns(i).FilterText = True
            End If
        Next
    End Sub

    Private Sub cbStatustyp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbStatustyp.SelectedValueChanged
        Dim dstatus As New edokadb.clsMyDokumentstatus()
        If me_onLoad Then
            Exit Sub
        End If
        If Me.DokStatus = 0 Then
            Me.txtDokumentstatus.Text = Me.cbStatustyp.SelectedValue
        Else
            Me.txtDokumentstatus_barcode.Text = Me.cbStatustyp.SelectedValue
        End If
        If Me.cbStatustyp.SelectedValue = 0 And Me.savestatustyp <> Me.cbStatustyp.SelectedValue Then
            If MyMsg.Show_MessageYesNo(7) = MsgBoxResult.Yes Then
                dstatus.Dokumenttypnr = Me.DokumentTypkey
                dstatus.Statustypnr = Me.savestatustyp
                conn.OpenConnection()
                dstatus.cpMainConnectionProvider = conn
                dstatus.DeleteDokumentstatus()
                conn.CloseConnection(True)
                Load_Dokumentstatus()
                Save_Data()
                Me.savestatustyp = Me.cbStatustyp.SelectedValue
            Else
                Me.cbStatustyp.SelectedValue = Me.savestatustyp
            End If
        End If
        If Me.cbStatustyp.SelectedValue <> Me.savestatustyp Then
            If Me.savestatustyp <> 0 Then
                If MyMsg.Show_MessageYesNo(8) = MsgBoxResult.No Then
                    Me.cbStatustyp.SelectedValue = Me.savestatustyp
                    Exit Sub
                End If
            End If
            dstatus.cpMainConnectionProvider = conn
            conn.OpenConnection()
            dstatus.Dokumenttypnr = Me.DokumentTypkey
            dstatus.Statustypnr = Me.cbStatustyp.SelectedValue
            dstatus.Statustyp = Me.DokStatus
            Me.savestatustyp = Me.cbStatustyp.SelectedValue
            Try
                dstatus.InsertDokumentstatus()
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                conn.CloseConnection(True)
            End Try
            Load_Dokumentstatus()
            dstatus.Dispose()
            Save_Data()
            Me.savestatustyp = Me.cbStatustyp.SelectedValue
        End If
    End Sub

    Private Sub MenuErledigung_Setzen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New frmSelectStatus()
        Dim i As Integer
        Dim coln As Integer
        For i = 0 To Me.Statuslist.Columns.Count - 1
            If Me.Statuslist.Columns(i).DataField = "erledigung_ab" Then coln = i
        Next
        frm.Dokumenttypnr = Me.DokumentTypkey
        frm.Statustypnr = Me.cbStatustyp.SelectedValue
        frm.ToSelect = True
        frm.TransferKey = 0
        frm.Refresh()
        frm.ShowDialog()
        If frm.TransferKey <> 0 Then
            Me.Statuslist.Columns(coln).Value = frm.TransferKey
            Me.StatusDataChanged = True
        End If
        frm.Dispose()
    End Sub

    Private Sub MnuErledigung_ab_aufheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New frmSelectStatus()
        Dim i As Integer
        Dim coln As Integer
        For i = 0 To Me.Statuslist.Columns.Count - 1
            If Me.Statuslist.Columns(i).DataField = "erledigung_ab" Then coln = i
        Next
        Me.Statuslist.Columns(coln).Value = -1
        Me.StatusDataChanged = True
    End Sub

    Private Sub Statuslist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles Statuslist.AfterColEdit
        Me.StatusDataChanged = True
    End Sub

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        Save_Statusdata()
    End Sub

    Private Sub Save_Statusdata()
        Dim i As Integer
        Dim dsdata As New edokadb.clsMyDokumentstatus()
        dsdata.cpMainConnectionProvider = conn
        t = Me.Statuslist.DataSource
        For i = 0 To t.Rows.Count - 1
            dsdata.iDokumentstatusnr = New SqlInt32(CType(t.Rows(i).Item("dokumentstatusnr"), Int32))
            dsdata.SelectOne()
            If dsdata.iErledigung_ab.Value <> t.Rows(i).Item("erledigung_ab") Or _
                dsdata.bFolgestatus_durch_anderen_verantwortlichen.Value <> t.Rows(i).Item("Folgestatus_durch_anderen_verantwortlichen") Then
                dsdata.iErledigung_ab = New SqlInt32(CType(t.Rows(i).Item("erledigung_ab"), Int32))
                dsdata.bFolgestatus_durch_anderen_verantwortlichen = New SqlBoolean(CType(t.Rows(i).Item("folgestatus_durch_anderen_verantwortlichen"), Boolean))
                dsdata.daMutiert_am = New SqlDateTime(Now)
                dsdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
                conn.OpenConnection()
                dsdata.iDokumentstatusnr = New SqlInt32(CType(t.Rows(i).Item("dokumentstatusnr"), Int32))
                dsdata.Update()
                conn.CloseConnection(True)
            End If
            Me.StatusDataChanged = False
        Next
    End Sub

    Private Sub Statuslist_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles Statuslist.RowColChange
        Save_Rollenliste()
        Update_RollenListe()
    End Sub

    Private Sub Update_RollenListe()
        Me.DataSet2.Clear()
        Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
        Me.SqlDataAdapter2.SelectCommand.Parameters.Add("@dokumentstatusnr", Me.Statuslist.Columns(0).Value)
        Me.SqlDataAdapter2.Fill(Me.DataSet2)
        Me.DokumentstatusRolle_Liste.DataSource = Me.DataSet2
        Me.DokumentstatusRolle_Liste.DataMember = "dokumentstatus_rolle"
        SpaltenTitel_Aktualisieren_StatusRolle()
    End Sub

    Private Sub btnNeueRolle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNeueRolle.Click
        Dim frm As New frmDomainRolle()
        Dim key As Long
        Dim dbkey As New edokadb.clsMyKey_Tabelle()
        Dim vdata As New edokadb.clsDokumentstatus_rolle()
        frm.ToSelect = True
        frm.TransferKey = 0
        frm.Eintragnr = 0
        frm.Refresh()
        frm.Owner = Me
        frm.ShowDialog()
        If frm.TransferKey = 0 Then
            frm.Dispose()
            Exit Sub
            Me.cbArchiv.SelectedValue = frm.TransferKey
        End If
        dbkey.cpMainConnectionProvider = conn
        key = dbkey.get_dbkey("dokumentstatus_rolle")
        vdata.cpMainConnectionProvider = conn
        vdata.iDokumentstatus_rollenr = New SqlInt32(CType(key, Int32))
        vdata.iDokumentstatusnr = New SqlInt32(CType(Me.Statuslist.Columns(0).Value, Int32))
        vdata.iRollenr = New SqlInt32(CType(frm.TransferKey, Int32))
        vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
        vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
        vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
        conn.OpenConnection()
        vdata.Insert()
        conn.CloseConnection(True)
        vdata.Dispose()
        frm.Dispose()
        Update_RollenListe()
    End Sub

    Private Sub Save_Rollenliste()
        If Me.DataSet2.HasChanges Then
            If Globals.MyMsg.Show_MessageYesNo(14) = MsgBoxResult.Yes Then
                Me.SqlDataAdapter2.Update(Me.DataSet2)
            End If
        End If
    End Sub

    Private Sub BtnSaveRollen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveRollen.Click
        Me.SqlDataAdapter2.Update(Me.DataSet2)
    End Sub

    Private Sub rbEtikette_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbEtikette.CheckedChanged
        Change_Dokstatus(1)
    End Sub

    Private Sub rbDokStatusStandard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbDokStatusStandard.CheckedChanged
        Change_Dokstatus(0)
    End Sub

    Private Sub Change_Dokstatus(ByVal Statustyp As Integer)
        Me.DokStatus = Statustyp
    End Sub

    Private Sub rbEtikette_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbEtikette.Click
        If Me.rbEtikette.Checked Then
            Me.cbStatustyp.SelectedValue = Me.txtDokumentstatus_barcode.Text
            Save_Rollenliste()
            Load_Dokumentstatus()
            Update_RollenListe()
        End If
    End Sub

    Private Sub rbDokStatusStandard_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbDokStatusStandard.Click
        If Me.rbDokStatusStandard.Checked Then
            Me.cbStatustyp.SelectedValue = Me.txtDokumentstatus.Text
            Save_Rollenliste()
            Load_Dokumentstatus()
            Update_RollenListe()
        End If
    End Sub


#End Region

#Region "Vorlagenfeld"

    Private Sub update_vorlagenfelder()
        Dim i As Integer
        Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
        Me.SqlDataAdapter1.SelectCommand.Parameters.Add("@Dokumenttypnr", CType(Me.DokumentTypkey, Int32))
        Try
            Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Catch
        End Try
        Try
            Me.DataSet1.Clear()
            Me.SqlDataAdapter1.Fill(Me.DataSet1)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.vorlagenfeldlist.DataSource = Me.DataSet1
        Me.vorlagenfeldlist.DataMember = "vorlagenfeld"
        Me.vorlagenfeldlist.Columns("aktiv").FilterText = True
        SpaltenTitel_Aktualisieren1()

        If Me.cbColdFolder.Enabled = True Then
            Me.SqlDataAdapter4.SelectCommand.Parameters("@foldernr").Value = Me.cbColdFolder.SelectedValue
            Me.SqlDataAdapter4.Fill(Me.DataSet4)
            Me.ColdIndexfeldList.DataSource = Me.DataSet4


            Me.ColdIndexfeldList.DataMember = "ColdIndex"
            Me.ColdIndexfeldList.Columns(0).Caption = Globals.MyTxt.Get_Meldungstext(7018)
            Me.ColdIndexfeldList.Columns(1).Caption = Globals.MyTxt.Get_Meldungstext(7019)
            Me.vorlagenfeldlist.Columns("cold_indexfeld").DropDown = Me.ColdIndexfeldList
        Else
            For i = 0 To Me.vorlagenfeldlist.Columns.Count - 1
                If Me.vorlagenfeldlist.Columns(i).DataField = "cold_indexfeld" Then
                    Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Width = 0
                End If
            Next
        End If
    End Sub

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

        ts.Tabelle = "vorlagenfeld"
        For i = 0 To Me.vorlagenfeldlist.Columns.Count - 1
            s = Me.vorlagenfeldlist.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.vorlagenfeldlist.Columns(i).Caption = ts.spaltenname
            If Me.vorlagenfeldlist.Columns(i).Caption = "" Then
                Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            If ts.locked Then
                Me.vorlagenfeldlist.Splits(0).DisplayColumns(i).Locked = True
            End If
            If Me.vorlagenfeldlist.Columns(i).DataField = "einstiegsmakro" Then
                Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If
            If Me.vorlagenfeldlist.Columns(i).DataField = "ausstiegsmakro" Then
                Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If
            If Me.vorlagenfeldlist.Columns(i).DataField = "aktiv" Then
                Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If
            If Me.vorlagenfeldlist.Columns(i).DataField = "userinterface" Then
                Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If
            If Me.vorlagenfeldlist.Columns(i).DataField = "eingabe_zwingend" Then
                Me.vorlagenfeldlist.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If
            Me.vorlagenfeldlist.Splits(0).DisplayColumns("userinterface").Locked = True
            Me.vorlagenfeldlist.Splits(0).DisplayColumns("eingabe_zwingend").Locked = False
        Next
    End Sub

    Private Sub C1TrueDBGrid1_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles vorlagenfeldlist.FetchCellTips
        Try
            Dim ts As New EDOKA.Tabellenspalte()
            ts.Tabelle = "vorlagenfeld"
            ts.Feld = Me.vorlagenfeldlist.Columns(e.ColIndex).DataField
            ts.getspalte()
            e.CellTip = ts.TipText
            ts = Nothing
        Catch
        End Try
    End Sub

    Private Sub BtnStandard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim iErrorcode As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.Connection = conn.scoDBConnection
        scmCmdToExecute.Connection.Open()
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.CommandText = "dbo.[sp_vorlagenfeld_standards_insert]"
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
        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.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
        Try
            scmCmdToExecute.ExecuteNonQuery()
            Return
        Catch ex As Exception
            Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            update_vorlagenfelder()
        End Try
        scmCmdToExecute.Dispose()
    End Sub

    Private Sub vorlagenfeldlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles vorlagenfeldlist.AfterColEdit
        Dim i As Integer
        For i = 0 To Me.vorlagenfeldlist.Columns.Count - 1
            If Me.vorlagenfeldlist.Columns(i).DataField = "mutiert_am" Then Me.vorlagenfeldlist.Columns(i).Value = Now
            If Me.vorlagenfeldlist.Columns(i).DataField = "mutierer" Then Me.vorlagenfeldlist.Columns(i).Value = Globals.MitarbeiterNr
            Me.VorlagenDataChanged = True
        Next
    End Sub

    Private Sub save_vorlagenfeldlist()
        Try
            SqlDataAdapter1.Update(Me.DataSet1)
        Catch ex As Exception
            MsgBox(Globals.MyMsg.Get_Meldungstext(902))
        End Try
        Me.VorlagenDataChanged = False
    End Sub



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

    Private Sub Insert_Vorlagenfeld(ByVal vorlagenfeldregelnr As Integer)
        Dim iErrorcode As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.Connection = conn.scoDBConnection
        scmCmdToExecute.Connection.Open()
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.CommandText = "dbo.[sp_vorlagenfeld_insert]"
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vorlagenfeldregelnr))
        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.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
        Try
            scmCmdToExecute.ExecuteNonQuery()
            Return
        Catch ex As Exception
            Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            update_vorlagenfelder()
        End Try
        scmCmdToExecute.Dispose()
    End Sub


    Private Sub MnuDokZuordnungauheben_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokZuordnungauheben.Click
        If Me.RBKundendossier.Checked Then
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartKundendossier.Text, 2)
            Me.TxtDokumentartKundendossier.Text = 0
        End If
        If Me.RBHost.Checked Then
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartHost.Text, 2)
            Me.TxtDokumentartHost.Text = 0
        End If
        If Me.RBGesamt.Checked Then
            DivFnkt.Searchnode(Me.TVStruktur, Me.TxtDokumentartGesamt.Text, 2)
            Me.TxtDokumentartGesamt.Text = 0
        End If
    End Sub

    Private Sub BeschrausOV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeschrausOV.Click
        Dim i As Long
        Try
            For i = 0 To tofficevorlage.Rows.Count - 1
                If tofficevorlage.Rows(i).Item(0) = Me.cbOfficeVorlage.SelectedValue Then
                    Me.TxTBeschreibung.Text = tofficevorlage.Rows(i).Item("beschreibung")
                End If
            Next
        Catch
        End Try
    End Sub

    Private Sub vorlagenfeldbezeichnunglist_update()
        If Me.DataSet3.HasChanges Then
            Try
                Me.SqlDataAdapter3.Update(Me.DataSet3)
            Catch
            End Try
        End If
        Me.DataSet3.Clear()
        If Me.vorlagenfeldlist.Columns("userinterface").Value = True Then
            Me.SqlDataAdapter3.SelectCommand.Parameters("@vorlagenfeld").Value = Me.vorlagenfeldlist.Columns(0).Value
            Me.SqlDataAdapter3.Fill(Me.DataSet3)
            If Me.DataSet3.Tables(0).Rows.Count < 1 Then
                insert_german()
            End If
            Me.vorlagenfeldbezeichnunglist.DataSource = Me.DataSet3
            Me.vorlagenfeldbezeichnunglist.DataMember = "Vorlagenfeldbezeichnung"
            SpaltenTitel_Aktualisieren2()
            '            Me.vorlagenfeldbezeichnunglist.AllowAddNew = True
        Else
            '           Me.vorlagenfeldbezeichnunglist.AllowAddNew = False
        End If
    End Sub

    Private Sub insert_german()
        Dim vb As New edokadb.clsVorlagenfeldbezeichnung()
        Dim dbkey As New edokadb.clsMyKey_Tabelle()
        Dim key As Long
        dbkey.cpMainConnectionProvider = conn
        key = dbkey.get_dbkey("vorlagenfeldbezeichnung")
        vb.cpMainConnectionProvider = conn
        vb.iVorlagenfeldbezeichnungnr = New SqlInt32(CType(key, Int32))
        vb.iVorlagenfeld = New SqlInt32(CType(Me.vorlagenfeldlist.Columns(0).Value, Int32))
        vb.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
        vb.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        vb.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
        vb.iSprache = New SqlInt32(CType(1, Int32))
        conn.OpenConnection()
        vb.Insert()
        conn.CloseConnection(True)
        vb.Dispose()
        dbkey.Dispose()
        Me.DataSet3.Tables.Clear()
        Me.SqlDataAdapter3.Fill(Me.DataSet3)
    End Sub

    Public Sub SpaltenTitel_Aktualisieren2()
        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String
        ts.Tabelle = "vorlagenfeldbezeichnung"
        For i = 0 To Me.vorlagenfeldbezeichnunglist.Columns.Count - 1
            s = Me.vorlagenfeldbezeichnunglist.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.vorlagenfeldbezeichnunglist.Columns(i).Caption = ts.spaltenname
            If Me.vorlagenfeldbezeichnunglist.Columns(i).Caption = "" Then
                Me.vorlagenfeldbezeichnunglist.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.vorlagenfeldbezeichnunglist.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            If ts.locked Then
                Me.vorlagenfeldbezeichnunglist.Splits(0).DisplayColumns(i).Locked = True
            End If
        Next
    End Sub

    Private Sub vorlagenfeldbezeichnunglist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles vorlagenfeldbezeichnunglist.AfterColUpdate
        'Aktualisieren von Mutierer und Mutiert_am
        Dim i As Integer
        Try
            For i = 0 To Me.vorlagenfeldbezeichnunglist.Columns.Count - 1
                If Me.vorlagenfeldbezeichnunglist.Columns(i).DataField = "mutiert_am" Then Me.vorlagenfeldbezeichnunglist.Columns(i).Value = Now
                If Me.vorlagenfeldbezeichnunglist.Columns(i).DataField = "mutierer" Then Me.vorlagenfeldbezeichnunglist.Columns(i).Value = Globals.MitarbeiterNr
            Next

            'neuer DB-Key auslösen, sofern kein Key vorhanden ist
            If Me.vorlagenfeldbezeichnunglist.Columns(0).Value Is DBNull.Value Then
                Dim dbkey As New edokadb.clsMyKey_Tabelle()
                Dim key As Long
                dbkey.cpMainConnectionProvider = conn
                key = dbkey.get_dbkey("vorlagenfeldbezeichnunglist")
                Me.vorlagenfeldbezeichnunglist.Columns(0).Value = key
                For i = 0 To Me.vorlagenfeldbezeichnunglist.Columns.Count - 1
                    If Me.vorlagenfeldbezeichnunglist.Columns(i).DataField = "mandantnr" Then
                        Me.vorlagenfeldbezeichnunglist.Columns(i).Value = Globals.MandantNr
                    End If
                Next
                dbkey.Dispose()
            End If
        Catch
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.SqlDataAdapter3.Update(Me.DataSet3)
    End Sub

    Private Sub vorlagenfeldlist_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles vorlagenfeldlist.MouseUp
        vorlagenfeldbezeichnunglist_update()
    End Sub

#End Region

    Private Sub CDokumentwirdretourniert_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDokumentwirdretourniert.CheckedChanged
        If Me.CDokumentwirdretourniert.Checked = True Then
            Me.rbEtikette.Enabled = True
        Else
            Me.rbEtikette.Enabled = False
        End If
    End Sub

    Private Sub cDokumentwirderstellt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cDokumentwirderstellt.CheckedChanged
        Me.rbDokStatusStandard.Checked = True
        Me.rbDokStatusStandard.Enabled = True
    End Sub

    Private Sub btnsavevorlagenfeldlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsavevorlagenfeldlist.Click
        save_vorlagenfeldlist()
    End Sub

    Private Sub BtnStandard_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStandard.Click
        Dim iErrorcode As Integer
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.Connection = conn.scoDBConnection
        scmCmdToExecute.Connection.Open()
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.CommandText = "dbo.[sp_vorlagenfeld_standards_insert]"
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentTypkey))
        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.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
        Try
            scmCmdToExecute.ExecuteNonQuery()
            Return
        Catch ex As Exception
            Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            update_vorlagenfelder()
        End Try
        scmCmdToExecute.Dispose()

    End Sub

    Private Sub btnVorlagenfeld_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVorlagenfeld.Click
        Dim i As Long
        Dim x, y As Long
        Dim frm As New frmDomainVorlagenfeldregel()
        frm.ToSelect = True
        frm.Eintragnr = 0
        frm.TransferKey = 0
        frm.ShowDialog()
        For i = 1 To frm.cTransferkey.Count
            Insert_Vorlagenfeld(frm.cTransferkey.Item(i))
        Next
        save_vorlagenfeldlist()
        y = 0
        For i = 0 To Me.vorlagenfeldlist.Splits(0).Rows.Count - 1
            x = Me.vorlagenfeldlist.Columns(0).CellText(i)
            If x > y Then
                Me.vorlagenfeldlist.Bookmark = i
                y = x
            End If
        Next
    End Sub

    Private Sub vorlagenfeldlist_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles vorlagenfeldlist.RowColChange
        Try
            Me.vorlagenfeldbezeichnunglist_update()
        Catch
        End Try
    End Sub

End Class