Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Drawing
Imports System.Drawing.Color
Imports System.ComponentModel
Public Class frmDomainDokumenttyp
    Inherits frmDomainEditor

#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 SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet1 As System.Data.DataSet
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MnuNeuerDokumenttyp As System.Windows.Forms.MenuItem
    Friend WithEvents MenuDokumenttypAendern As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuKopie As System.Windows.Forms.MenuItem
    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 MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        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.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MnuNeuerDokumenttyp = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.mnuKopie = New System.Windows.Forms.MenuItem()
        Me.MenuDokumenttypAendern = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.MenuItem8 = New System.Windows.Forms.MenuItem()
        Me.MenuItem9 = New System.Windows.Forms.MenuItem()
        Me.MenuItem10 = New System.Windows.Forms.MenuItem()
        Me.MenuItem12 = New System.Windows.Forms.MenuItem()
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        '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", "dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zu_vercolden", "zu_vercolden"), New System.Data.Common.DataColumnMapping("zu_retournieren", "zu_retournieren"), New System.Data.Common.DataColumnMapping("eingang_ersetzt_ausgang", "eingang_ersetzt_ausgang"), New System.Data.Common.DataColumnMapping("wird_importiert", "wird_importiert"), New System.Data.Common.DataColumnMapping("anzahl_tage", "anzahl_tage"), New System.Data.Common.DataColumnMapping("dbearbeitungszeit", "dbearbeitungszeit"), New System.Data.Common.DataColumnMapping("tage_mutation", "tage_mutation"), New System.Data.Common.DataColumnMapping("partnersaldierung_statusalt", "partnersaldierung_statusalt"), New System.Data.Common.DataColumnMapping("wird_nicht_geloescht", "wird_nicht_geloescht"), New System.Data.Common.DataColumnMapping("vertrauliches_dokument", "vertrauliches_dokument"), New System.Data.Common.DataColumnMapping("unterschrift_links", "unterschrift_links"), New System.Data.Common.DataColumnMapping("unterschrift_rechts", "unterschrift_rechts"), New System.Data.Common.DataColumnMapping("monate_bis_zur_archivierung", "monate_bis_zur_archivierung"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_elektronisch", "aufbewahrungsfrist_elektronisch"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_physisch", "aufbewahrungsfrist_physisch"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("dokumentart_kundendossier", "dokumentart_kundendossier"), New System.Data.Common.DataColumnMapping("dokumentart_neuerstellung", "dokumentart_neuerstellung"), New System.Data.Common.DataColumnMapping("dokumentart_retournierung", "dokumentart_retournierung"), New System.Data.Common.DataColumnMapping("dokumentart_coldausgang", "dokumentart_coldausgang"), New System.Data.Common.DataColumnMapping("dokumentart_coldeingang", "dokumentart_coldeingang"), New System.Data.Common.DataColumnMapping("dokumentart_host", "dokumentart_host"), New System.Data.Common.DataColumnMapping("dokumentart_weitere", "dokumentart_weitere"), New System.Data.Common.DataColumnMapping("prozessnr", "prozessnr"), New System.Data.Common.DataColumnMapping("prozessnr1", "prozessnr1"), New System.Data.Common.DataColumnMapping("amsdokument", "amsdokument"), New System.Data.Common.DataColumnMapping("hostdokument", "hostdokument"), New System.Data.Common.DataColumnMapping("hostdokumenttyp", "hostdokumenttyp"), New System.Data.Common.DataColumnMapping("cold_folder", "cold_folder"), New System.Data.Common.DataColumnMapping("physisches_archiv", "physisches_archiv"), New System.Data.Common.DataColumnMapping("dokumentstatus", "dokumentstatus"), New System.Data.Common.DataColumnMapping("Dokument_wird_erstellt", "Dokument_wird_erstellt"), New System.Data.Common.DataColumnMapping("Dokument_wird_retourniert", "Dokument_wird_retourniert")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[pv_dokumenttyp_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_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_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", 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_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", 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_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", 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_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", 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_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka_tkb;persist security info=False;user id=sa;" & _
        "workstation id=SHU;packet size=4096"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "[pv_dokumenttyp_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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[sp_dokumenttyp_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("@mandantnr", 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_dokumenttyp_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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", 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("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
        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_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", 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_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", 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_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", 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_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", 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_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeuerDokumenttyp, Me.MenuItem4, Me.mnuKopie, Me.MenuDokumenttypAendern, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7, Me.MenuItem8, Me.MenuItem9, Me.MenuItem10, Me.MenuItem12})
        '
        'MnuNeuerDokumenttyp
        '
        Me.MnuNeuerDokumenttyp.Index = 0
        Me.MnuNeuerDokumenttyp.Shortcut = System.Windows.Forms.Shortcut.CtrlN
        Me.MnuNeuerDokumenttyp.Text = "&Neuer Dokumenttyp erfassen"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 1
        Me.MenuItem4.Text = "-"
        '
        'mnuKopie
        '
        Me.mnuKopie.Index = 2
        Me.mnuKopie.Text = "Kopie erstellen"
        '
        'MenuDokumenttypAendern
        '
        Me.MenuDokumenttypAendern.Index = 3
        Me.MenuDokumenttypAendern.Shortcut = System.Windows.Forms.Shortcut.CtrlF2
        Me.MenuDokumenttypAendern.Text = "&Dokumenttyp ändern"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 4
        Me.MenuItem5.Text = "-"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 5
        Me.MenuItem6.Text = "Dokumenttyp-Auswertung"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 6
        Me.MenuItem7.Text = "Dokumenttyp-Vorlagenfelder-Auswertung"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 7
        Me.MenuItem8.Text = "-"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 8
        Me.MenuItem9.Text = "Erstellung Leerdokument zulassen"
        Me.MenuItem9.Visible = False
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 9
        Me.MenuItem10.Text = "Erstellung Leerdokument verhindern"
        Me.MenuItem10.Visible = False
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 10
        Me.MenuItem12.Text = "Dokumenttyp-Beschreibung"
        Me.MenuItem12.Visible = False
        '
        'frmDomainDokumenttyp
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(800, 465)
        Me.Name = "frmDomainDokumenttyp"
        Me.Text = ""
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Windows.Forms.Cursor.Current = Cursors.WaitCursor
        Me.TableName = "dokumenttyp"
        Dim btn As New ToolBarButton()
        btn.ImageIndex = 3
        Me.ToolBar1.Buttons.Add(btn)
        Me.DomainList.ContextMenu = Me.ContextMenu1
        Me.DomainList.AllowAddNew = False
        Me.DomainList.AllowUpdate = False
        load_data()
        Windows.Forms.Cursor.Current = Cursors.Default
    End Sub

    Public Sub load_data()
        Try
            Me.DataSet1.Clear()
            Windows.Forms.Cursor.Current = Cursors.WaitCursor
            Dim dbconn As New EDOKA.DB_Connection()
            Me.SqlConnection1.ConnectionString = Globals.sConnectionString
            Me.SqlConnection1.Open()

            ' Nur für den aktuell gewählten Mandanten die Daten auslesen
            Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
            Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)

            Me.SqlDataAdapter1.Fill(Me.DataSet1)
            Me.DomainList.DataSource = Me.DataSet1
            Me.DomainList.DataMember = Me.TableName

            SpaltenTitel_Aktualisieren(Me.DataSet1)

            Windows.Forms.Cursor.Current = Cursors.Default
            Me.SqlConnection1.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    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 'close button
                Me.Close()
            Case 1 'Speichern
                Save_Data()
            Case 2
                Domainlist_dblclick(sender, e)
        End Select
    End Sub

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

    Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
        Dim msg As MsgBoxResult
        If Me.DataSet1.HasChanges Then
            msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
            If msg = MsgBoxResult.No Then
                e.Cancel = False
            End If
            If msg = MsgBoxResult.Yes Then
                If Save_Data() Then e.Cancel = False Else e.Cancel = True
            End If
            If msg = MsgBoxResult.Cancel Then e.Cancel = True
        End If
    End Sub

    Private Function Save_Data() As Boolean
        Save_Data = True
        Try
            SqlDataAdapter1.Update(Me.DataSet1)
        Catch ex As Exception
            MsgBox(Globals.MyMsg.Get_Meldungstext(902))
            Save_Data = False
        End Try
    End Function

    Private Sub MnuNeuerDokumenttyp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuerDokumenttyp.Click
        Dim frm As New frmDomainDokumenttypDetail()
        frm.NeuerEintrag = True
        frm.ShowDialog()
        load_data()
    End Sub

    Private Sub MenuDokumenttypAendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDokumenttypAendern.Click
        If Not Me.Is_SysadminBerechtigt Then
            MyMsg.show_standardmessage(245, MsgBoxStyle.Information)
            Exit Sub
        End If
        Dim book As New VariantType()
        Dim frm As New frmDomainDokumenttypDetail()
        Try
            frm.NeuerEintrag = False
            frm.DokumentTypkey = Me.DomainList.Columns(0).Value
            book = Me.DomainList.Bookmark
            frm.ShowDialog()
            load_data()
            Me.DomainList.Bookmark = book
        Catch
        End Try
    End Sub

    Private Sub Domainlist_dblclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
        If ToSelect Then
            Me.TransferKey = Me.DomainList.Columns(0).Value
            Me.Close()
            Exit Sub
        End If
        MenuDokumenttypAendern_Click(sender, e)
    End Sub

    Private Sub mnuKopie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuKopie.Click
        If MyMsg.Show_MessageYesNo(11) = MsgBoxResult.Yes Then
            Dim doktyp As New edokadb.clsDokumenttyp()
            Dim dbkey As New edokadb.clsMyKey_Tabelle()
            Dim key As Long
            dbkey.cpMainConnectionProvider = conn
            key = dbkey.get_dbkey("dokumenttyp")
            dbkey.Dispose()

            doktyp.cpMainConnectionProvider = conn
            doktyp.iDokumenttypnr = New SqlInt32(CType(Me.DomainList.Columns(0).Text, Int32))
            doktyp.SelectOne()
            doktyp.iDokumenttypnr = New SqlInt32(CType(key, Int32))
            doktyp.sBezeichnung = New SqlString(CType(doktyp.sBezeichnung.Value + " (Kopie)", String))
            conn.OpenConnection()
            doktyp.Insert()
            doktyp.Dispose()
            conn.CloseConnection(True)


            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_dokumenttyp_insert_copy]"
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DomainList.Columns(0).Value))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, key))
            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("@key", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, key))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
            Try
                scmCmdToExecute.ExecuteNonQuery()
            Catch ex As Exception
                Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
            Finally
                scmCmdToExecute.Connection.Close()
                scmCmdToExecute.Dispose()
            End Try
            load_data()
            Dim i As Integer
            For i = 0 To Me.DomainList.Splits(0).Rows.Count - 1
                If key = Me.DomainList.Columns(0).CellValue(i) Then
                    Me.DomainList.Bookmark = key
                End If
            Next

        End If
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim f As New frmReporting()
        f.show_report_dokumenttyp(Me.DomainList.Columns(0).Value)
        f.Show()
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim ww As New WordLib()
        ww.Create_Dokument(Me.DomainList.Columns(0).Value, True)
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        DivFnkt.leererstellung(1, Me.DomainList.Columns(0).Text)
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        DivFnkt.leererstellung(2, Me.DomainList.Columns(0).Text)
    End Sub


    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim f As New frmDokumenttypbeschreibung()
        f.key = Me.DomainList.Columns(0).Text
        f.ShowDialog()
    End Sub

    Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
        If DivFnkt.leererstellung(3, Me.DomainList.Columns(0).Text) Then
            Me.MenuItem9.Enabled = False
            Me.MenuItem10.Enabled = True
        Else
            Me.MenuItem9.Enabled = True
            Me.MenuItem10.Enabled = False
        End If
        If Not Is_SysadminBerechtigt() Then
            Me.mnuKopie.Enabled = False
            Me.MenuDokumenttypAendern.Enabled = False
        Else
            Me.mnuKopie.Enabled = True
            Me.MenuDokumenttypAendern.Enabled = True
        End If
    End Sub

    Private Function Is_SysadminBerechtigt() As Boolean
        Dim dty As New edokadb.clsDokumenttyp()
        Dim dt As DataTable
        dty.cpMainConnectionProvider = conn
        dty.iDokumenttypnr = New SqlInt32(CType(Me.DomainList.Columns("dokumenttypnr").Value, Int32))
        dt = dty.SelectOne()
        If dty.iOwner.Value <> Globals.MitarbeiterNr And Not DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
            If DivFnkt.Check_Sysadmin_Stellvertreter(dty.iOwner.Value) = True Then
                dt.Dispose()
                dty.Dispose()
                Return True
            Else
                dt.Dispose()
                dty.Dispose()
                Return False
            End If
        Else
            dt.Dispose()
            dty.Dispose()
            Return True
        End If
    End Function
End Class