Imports System.Data
Imports System.Data.SqlClient


'''<summary>Datenzugriff auf Tabelle dokumenttyp</summary>
Public Class Dokumenttyp

    
    '''<summary>gibt einen dokumenttyp zurück</summary>
    '''<param name="ds">für datenrückgabe</param>
    '''<param name="DokumenttypNr"></param>

    Public Shared Sub GetDokumenttyp(ByRef ds As DataSet, ByVal DokumenttypNr As Integer)
        Dim sqlConn As New SqlConnection()
        Dim sqlCmd As New SqlCommand()
        Dim da As New SqlDataAdapter()

        Try
            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
            sqlCmd.CommandText = "sp_GetDokumenttyp"
            sqlCmd.CommandType = CommandType.StoredProcedure
            sqlCmd.Connection = sqlConn

            sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", DokumenttypNr))
            da.SelectCommand = sqlCmd
            da.Fill(ds, "Dokumenttyp")

        Catch ex As Exception
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.GetDokumenttyp", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
            Throw ex
        Finally
            sqlConn.Dispose()
            sqlCmd.Dispose()
            da.Dispose()
        End Try
    End Sub

    '''<summary>gibt eine liste aller Dokumenttypen zurück</summary>
    '''<param name="ds">für datenrückgabe</param>
    '''<param name="aktiv">1 nur aktive; 0 nur inaktive; -1 alle</param>

    Public Shared Sub List(ByRef ds As DataSet, ByVal aktiv As Integer)
        Dim sqlConn As New SqlConnection()
        Dim sqlCmd As New SqlCommand()
        Dim da As New SqlDataAdapter()

        Try
            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
            sqlCmd.CommandText = "sp_ListDokumenttyp"
            sqlCmd.CommandType = CommandType.StoredProcedure
            sqlCmd.Connection = sqlConn

            If aktiv <> -1 Then
                sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
            End If

            da.SelectCommand = sqlCmd
            da.Fill(ds, "Dokumenttypen")

        Catch ex As Exception
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.List", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
            Throw ex
        Finally
            sqlConn.Dispose()
            sqlCmd.Dispose()
            da.Dispose()
        End Try
    End Sub

	'''<summary>Überprüft ob eim Mitarbeiter berechtigt ist ein Dokument aus DokTyp zu erstellen</summary>
	'''<param name="dokumentTypNr">DokumentTyp von zu erstellendem Dokument</param>
	'''<param name="nrPar00">Partner Nummer</param>
	'''<param name="mitarbeiterNr">Mitarbeiter welcher Dokument erstellen will</param>
	'''<returns>True wenn Mitarbeiter berechtigt ist</returns>
	Public Shared Function IsMitarbeiterBerechtigt(ByVal dokumentTypNr As Integer, ByVal nrPar00 As Integer, ByVal mitarbeiterNr As Integer)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()
		Try
			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
			sqlCmd.CommandText = "sp_HasEmployeePermissionToCreateDocument"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterNr))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentTypNr))
			sqlCmd.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))

			sqlConn.Open()

			sqlCmd.ExecuteNonQuery()

			If Convert.ToBoolean(sqlCmd.Parameters("@berechtigt").Value) Then
				'hat permission
				Return True
			Else
				'keine permission
				Return False
			End If
		Catch ex As Exception
			Throw ex
		Finally
			sqlCmd.Dispose()
			sqlConn.Dispose()
		End Try
	End Function

	'''<summary>erstellt einen datentyp</summary>
	'''<param name="DokumenttypNr">return neuer primary key</param>
	'''<param name="bezeichnung"></param>
	'''<param name="beschreibung"></param>
	'''<param name="zu_vercolden"></param>
	'''<param name="zu_retournieren"></param>
	'''<param name="eingang_ersetzt_ausgang"></param>
	'''<param name="wird_importiert"></param>
	'''<param name="anzahl_tage"></param>
	'''<param name="dbearbeitungszeit"></param>
	'''<param name="tage_mutation"></param>
	'''<param name="partnersaldierung_statusalt"></param>
	'''<param name="wird_nicht_geloescht"></param>
	'''<param name="vertrauliches_dokument"></param>
	'''<param name="unterschrift_links"></param>
	'''<param name="unterschrift_rechts"></param>
	'''<param name="monate_bis_zur_archivierung"></param>
	'''<param name="aufbewahrungsfrist_elektronisch"></param>
	'''<param name="aufbewahrungsfrist_physisch"></param>
	'''<param name="mandantnr"></param>
	'''<param name="aktiv"></param>
	'''<param name="erstellt_am"></param>
	'''<param name="mutiert_am"></param>
	'''<param name="mutierer"></param>
	'''<param name="office_vorlagenr"></param>
	'''<param name="dokumentart_kundendossier"></param>
	'''<param name="dokumentart_neuerstellung"></param>
	'''<param name="dokumentart_retournierung"></param>
	'''<param name="dokumentart_coldausgang"></param>
	'''<param name="dokumentart_coldeingang"></param>
	'''<param name="dokumentart_host"></param>
	'''<param name="dokumentart_weitere"></param>
	'''<param name="dokumentart_nativ"></param>
	'''<param name="prozessnr"></param>
	'''<param name="prozessnr1"></param>
	'''<param name="amsdokument"></param>
	'''<param name="hostdokument"></param>
	'''<param name="hostdokumenttyp"></param>
	'''<param name="cold_folder"></param>
	'''<param name="physisches_archiv"></param>
	'''<param name="dokumentstatus"></param>
	'''<param name="Dokument_wird_erstellt"></param>
	'''<param name="Dokument_wird_retourniert"></param>
	'''<param name="cold_ersetzen"></param>
	'''<param name="email_versand"></param>
	'''<param name="funktionen_zuweisen"></param>
	'''<param name="dokumentstatus_barcode"></param>
	'''<param name="nurnative"></param>
	'''<param name="Owner"></param>
	'''<param name="vertrag"></param>
	'''<param name="objektbezeichnungnr"></param>
	'''<param name="bedingtretournierbar"></param>
	'''<param name="doktypbedingteretournierung"></param>
	'''<param name="tagebisvernichtungbedingteretournierung"></param>
	'''<param name="AnzeigeZurDokumenterstellung"></param>
	'''<param name="KundenDokument"></param>
	'''<param name="sb"></param>
	'''<param name="sbimport"></param>
	'''<param name="sbedituser"></param>
	'''<param name="sbnur"></param>
	'''<param name="bezeichnungmut"></param>
	'''<param name="istFarbigArchiviert"></param>
	'''<returns>error</returns>
	Public Shared Function Add(ByRef DokumenttypNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
	 ByVal zu_vercolden As Boolean, ByVal zu_retournieren As Boolean, ByVal eingang_ersetzt_ausgang As Boolean, _
	 ByVal wird_importiert As Boolean, ByVal anzahl_tage As Integer, ByVal dbearbeitungszeit As Integer, _
	 ByVal tage_mutation As Integer, ByVal partnersaldierung_statusalt As Boolean, ByVal wird_nicht_geloescht As Boolean, _
	 ByVal vertrauliches_dokument As Boolean, ByVal unterschrift_links As Boolean, ByVal unterschrift_rechts As Boolean, _
	 ByVal monate_bis_zur_archivierung As Integer, ByVal aufbewahrungsfrist_elektronisch As Integer, _
	 ByVal aufbewahrungsfrist_physisch As Integer, ByVal mandantnr As Integer, ByVal aktiv As Boolean, _
	 ByVal erstellt_am As DateTime, ByVal mutiert_am As DateTime, ByVal mutierer As Integer, _
	 ByVal office_vorlagenr As Integer, ByVal dokumentart_kundendossier As Integer, ByVal dokumentart_neuerstellung As Integer, _
	 ByVal dokumentart_retournierung As Integer, ByVal dokumentart_coldausgang As Integer, _
	 ByVal dokumentart_coldeingang As Integer, ByVal dokumentart_host As Integer, ByVal dokumentart_weitere As Integer, _
	 ByVal dokumentart_nativ As Integer, ByVal prozessnr As Integer, ByVal prozessnr1 As Integer, _
	 ByVal amsdokument As Boolean, ByVal hostdokument As Boolean, ByVal hostdokumenttyp As String, _
	 ByVal cold_folder As Integer, ByVal physisches_archiv As Integer, ByVal dokumentstatus As Integer, _
	 ByVal Dokument_wird_erstellt As Boolean, ByVal Dokument_wird_retourniert As Boolean, ByVal cold_ersetzen As Boolean, _
	 ByVal email_versand As Boolean, ByVal funktionen_zuweisen As Boolean, ByVal dokumentstatus_barcode As Integer, _
	 ByVal nurnative As Boolean, ByVal Owner As Integer, ByVal vertrag As Boolean, ByVal objektbezeichnungnr As Integer, _
	 ByVal bedingtretournierbar As Boolean, ByVal doktypbedingteretournierung As Integer, _
	 ByVal tagebisvernichtungbedingteretournierung As Integer, ByVal AnzeigeZurDokumenterstellung As Boolean, _
	 ByVal KundenDokument As Boolean, ByVal sb As Boolean, ByVal sbimport As Boolean, ByVal sbedituser As Boolean, _
	 ByVal sbnur As Boolean, ByVal bezeichnungmut As Boolean, ByVal istFarbigArchiviert As Boolean) As Integer

		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

		Try
			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
			sqlCmd.CommandText = "sp_InsDokumenttyp"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
			sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
			sqlCmd.Parameters.Add(New SqlParameter("@zu_vercolden", zu_vercolden))
			sqlCmd.Parameters.Add(New SqlParameter("@zu_retournieren", zu_retournieren))
			sqlCmd.Parameters.Add(New SqlParameter("@eingang_ersetzt_ausgang", eingang_ersetzt_ausgang))
			sqlCmd.Parameters.Add(New SqlParameter("@wird_importiert", wird_importiert))
			sqlCmd.Parameters.Add(New SqlParameter("@anzahl_tage", anzahl_tage))
			sqlCmd.Parameters.Add(New SqlParameter("@dbearbeitungszeit", dbearbeitungszeit))
			sqlCmd.Parameters.Add(New SqlParameter("@tage_mutation", tage_mutation))
			sqlCmd.Parameters.Add(New SqlParameter("@partnersaldierung_statusalt", partnersaldierung_statusalt))
			sqlCmd.Parameters.Add(New SqlParameter("@wird_nicht_geloescht", wird_nicht_geloescht))
			sqlCmd.Parameters.Add(New SqlParameter("@vertrauliches_dokument", vertrauliches_dokument))
			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_links", unterschrift_links))
			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_rechts", unterschrift_rechts))
			sqlCmd.Parameters.Add(New SqlParameter("@monate_bis_zur_archivierung", monate_bis_zur_archivierung))
			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_elektronisch", aufbewahrungsfrist_elektronisch))
			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_physisch", aufbewahrungsfrist_physisch))
			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantnr)))
			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
			sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", NullHandler.CToSqlDateTime(erstellt_am)))
			sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", NullHandler.CToSqlDateTime(mutiert_am)))
			sqlCmd.Parameters.Add(New SqlParameter("@mutierer", NullHandler.CToSqlInt(mutierer)))
			sqlCmd.Parameters.Add(New SqlParameter("@office_vorlagenr", NullHandler.CToSqlInt(office_vorlagenr)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_kundendossier", NullHandler.CToSqlInt(dokumentart_kundendossier)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_neuerstellung", NullHandler.CToSqlInt(dokumentart_neuerstellung)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_retournierung", NullHandler.CToSqlInt(dokumentart_retournierung)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldausgang", dokumentart_coldausgang))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldeingang", dokumentart_coldeingang))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_host", NullHandler.CToSqlInt(dokumentart_host)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_weitere", NullHandler.CToSqlInt(dokumentart_weitere)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_nativ", NullHandler.CToSqlInt(dokumentart_nativ)))
			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr", NullHandler.CToSqlInt(prozessnr)))
			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr1", NullHandler.CToSqlInt(prozessnr1)))
			sqlCmd.Parameters.Add(New SqlParameter("@amsdokument", amsdokument))
			sqlCmd.Parameters.Add(New SqlParameter("@hostdokument", hostdokument))
			sqlCmd.Parameters.Add(New SqlParameter("@hostdokumenttyp", NullHandler.CToSqlString(hostdokumenttyp)))
			sqlCmd.Parameters.Add(New SqlParameter("@cold_folder", NullHandler.CToSqlInt(cold_folder)))
			sqlCmd.Parameters.Add(New SqlParameter("@physisches_archiv", NullHandler.CToSqlInt(physisches_archiv)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus", NullHandler.CToSqlInt(dokumentstatus)))
			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_erstellt", Dokument_wird_erstellt))
			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_retourniert", Dokument_wird_retourniert))
			sqlCmd.Parameters.Add(New SqlParameter("@cold_ersetzen", cold_ersetzen))
			sqlCmd.Parameters.Add(New SqlParameter("@email_versand", email_versand))
			sqlCmd.Parameters.Add(New SqlParameter("@funktionen_zuweisen", funktionen_zuweisen))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus_barcode", NullHandler.CToSqlInt(dokumentstatus_barcode)))
			sqlCmd.Parameters.Add(New SqlParameter("@nurnative", nurnative))
			sqlCmd.Parameters.Add(New SqlParameter("@Owner", NullHandler.CToSqlInt(Owner)))
			sqlCmd.Parameters.Add(New SqlParameter("@vertrag", vertrag))
			sqlCmd.Parameters.Add(New SqlParameter("@objektbezeichnungnr", NullHandler.CToSqlInt(objektbezeichnungnr)))
			sqlCmd.Parameters.Add(New SqlParameter("@bedingtretournierbar", bedingtretournierbar))
			sqlCmd.Parameters.Add(New SqlParameter("@doktypbedingteretournierung", NullHandler.CToSqlInt(doktypbedingteretournierung)))
			sqlCmd.Parameters.Add(New SqlParameter("@tagebisvernichtungbedingteretournierung", NullHandler.CToSqlInt(tagebisvernichtungbedingteretournierung)))
			sqlCmd.Parameters.Add(New SqlParameter("@AnzeigeZurDokumenterstellung", AnzeigeZurDokumenterstellung))
			sqlCmd.Parameters.Add(New SqlParameter("@KundenDokument", KundenDokument))
			sqlCmd.Parameters.Add(New SqlParameter("@sb", sb))
			sqlCmd.Parameters.Add(New SqlParameter("@sbimport", sbimport))
			sqlCmd.Parameters.Add(New SqlParameter("@sbedituser", sbedituser))
			sqlCmd.Parameters.Add(New SqlParameter("@sbnur", sbnur))
			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnungmut", bezeichnungmut))
			sqlCmd.Parameters.Add(New SqlParameter("@istFarbigArchiviert", istFarbigArchiviert))
			sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", 0))
			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
			sqlCmd.Parameters("@DokumenttypNr").Direction = ParameterDirection.Output
			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue

			sqlConn.Open()
			sqlCmd.ExecuteNonQuery()

			If CInt(sqlCmd.Parameters("@Return").Value) = 0 Then
				DokumenttypNr = CInt(sqlCmd.Parameters("@DokumenttypNr").Value)
			End If

			Return CInt(sqlCmd.Parameters("@Return").Value)

		Catch ex As Exception
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.Add", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
			Throw ex
		Finally
			sqlConn.Dispose()
			sqlCmd.Dispose()
		End Try
	End Function


	'''<summary>Löscht ein bestehender dokumententyp</summary>
	'''<param name="DokumenttypNr"></param>
	'''<returns>error</returns>
	Public Shared Function Delete(ByVal DokumenttypNr As Integer) As Integer
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

		Try
			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
			sqlCmd.CommandText = "sp_DelDokumenttyp"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", DokumenttypNr))
			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue

			sqlConn.Open()
			sqlCmd.ExecuteNonQuery()

			Return CInt(sqlCmd.Parameters("@Return").Value)

		Catch ex As Exception
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
			Throw ex
		Finally
			sqlConn.Dispose()
			sqlCmd.Dispose()
		End Try
	End Function



	'''<summary>aktualisiert einen datentyp</summary>
	'''<param name="DokumenttypNr">kriterium (kein update auf diesem feld)</param>
	'''<param name="bezeichnung"></param>
	'''<param name="beschreibung"></param>
	'''<param name="zu_vercolden"></param>
	'''<param name="zu_retournieren"></param>
	'''<param name="eingang_ersetzt_ausgang"></param>
	'''<param name="wird_importiert"></param>
	'''<param name="anzahl_tage"></param>
	'''<param name="dbearbeitungszeit"></param>
	'''<param name="tage_mutation"></param>
	'''<param name="partnersaldierung_statusalt"></param>
	'''<param name="wird_nicht_geloescht"></param>
	'''<param name="vertrauliches_dokument"></param>
	'''<param name="unterschrift_links"></param>
	'''<param name="unterschrift_rechts"></param>
	'''<param name="monate_bis_zur_archivierung"></param>
	'''<param name="aufbewahrungsfrist_elektronisch"></param>
	'''<param name="aufbewahrungsfrist_physisch"></param>
	'''<param name="mandantnr"></param>
	'''<param name="aktiv"></param>
	'''<param name="erstellt_am"></param>
	'''<param name="mutiert_am"></param>
	'''<param name="mutierer"></param>
	'''<param name="office_vorlagenr"></param>
	'''<param name="dokumentart_kundendossier"></param>
	'''<param name="dokumentart_neuerstellung"></param>
	'''<param name="dokumentart_retournierung"></param>
	'''<param name="dokumentart_coldausgang"></param>
	'''<param name="dokumentart_coldeingang"></param>
	'''<param name="dokumentart_host"></param>
	'''<param name="dokumentart_weitere"></param>
	'''<param name="dokumentart_nativ"></param>
	'''<param name="prozessnr"></param>
	'''<param name="prozessnr1"></param>
	'''<param name="amsdokument"></param>
	'''<param name="hostdokument"></param>
	'''<param name="hostdokumenttyp"></param>
	'''<param name="cold_folder"></param>
	'''<param name="physisches_archiv"></param>
	'''<param name="dokumentstatus"></param>
	'''<param name="Dokument_wird_erstellt"></param>
	'''<param name="Dokument_wird_retourniert"></param>
	'''<param name="cold_ersetzen"></param>
	'''<param name="email_versand"></param>
	'''<param name="funktionen_zuweisen"></param>
	'''<param name="dokumentstatus_barcode"></param>
	'''<param name="nurnative"></param>
	'''<param name="Owner"></param>
	'''<param name="vertrag"></param>
	'''<param name="objektbezeichnungnr"></param>
	'''<param name="bedingtretournierbar"></param>
	'''<param name="doktypbedingteretournierung"></param>
	'''<param name="tagebisvernichtungbedingteretournierung"></param>
	'''<param name="AnzeigeZurDokumenterstellung"></param>
	'''<param name="KundenDokument"></param>
	'''<param name="sb"></param>
	'''<param name="sbimport"></param>
	'''<param name="sbedituser"></param>
	'''<param name="sbnur"></param>
	'''<param name="bezeichnungmut"></param>
	'''<param name="istFarbigArchiviert"></param>
	'''<returns>error</returns>
	Public Shared Function Update(ByVal DokumenttypNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
	 ByVal zu_vercolden As Boolean, ByVal zu_retournieren As Boolean, ByVal eingang_ersetzt_ausgang As Boolean, _
	 ByVal wird_importiert As Boolean, ByVal anzahl_tage As Integer, ByVal dbearbeitungszeit As Integer, _
	 ByVal tage_mutation As Integer, ByVal partnersaldierung_statusalt As Boolean, ByVal wird_nicht_geloescht As Boolean, _
	 ByVal vertrauliches_dokument As Boolean, ByVal unterschrift_links As Boolean, ByVal unterschrift_rechts As Boolean, _
	 ByVal monate_bis_zur_archivierung As Integer, ByVal aufbewahrungsfrist_elektronisch As Integer, _
	 ByVal aufbewahrungsfrist_physisch As Integer, ByVal mandantnr As Integer, ByVal aktiv As Boolean, _
	 ByVal erstellt_am As DateTime, ByVal mutiert_am As DateTime, ByVal mutierer As Integer, _
	 ByVal office_vorlagenr As Integer, ByVal dokumentart_kundendossier As Integer, ByVal dokumentart_neuerstellung As Integer, _
	 ByVal dokumentart_retournierung As Integer, ByVal dokumentart_coldausgang As Integer, _
	 ByVal dokumentart_coldeingang As Integer, ByVal dokumentart_host As Integer, ByVal dokumentart_weitere As Integer, _
	 ByVal dokumentart_nativ As Integer, ByVal prozessnr As Integer, ByVal prozessnr1 As Integer, _
	 ByVal amsdokument As Boolean, ByVal hostdokument As Boolean, ByVal hostdokumenttyp As String, _
	 ByVal cold_folder As Integer, ByVal physisches_archiv As Integer, ByVal dokumentstatus As Integer, _
	 ByVal Dokument_wird_erstellt As Boolean, ByVal Dokument_wird_retourniert As Boolean, ByVal cold_ersetzen As Boolean, _
	 ByVal email_versand As Boolean, ByVal funktionen_zuweisen As Boolean, ByVal dokumentstatus_barcode As Integer, _
	 ByVal nurnative As Boolean, ByVal Owner As Integer, ByVal vertrag As Boolean, ByVal objektbezeichnungnr As Integer, _
	 ByVal bedingtretournierbar As Boolean, ByVal doktypbedingteretournierung As Integer, _
	 ByVal tagebisvernichtungbedingteretournierung As Integer, ByVal AnzeigeZurDokumenterstellung As Boolean, _
	 ByVal KundenDokument As Boolean, ByVal sb As Boolean, ByVal sbimport As Boolean, ByVal sbedituser As Boolean, _
	 ByVal sbnur As Boolean, ByVal bezeichnungmut As Boolean, ByVal istFarbigArchiviert As Boolean) As Integer


		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

		Try
			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
			sqlCmd.CommandText = "sp_SetParameter"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", DokumenttypNr))
			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
			sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
			sqlCmd.Parameters.Add(New SqlParameter("@zu_vercolden", zu_vercolden))
			sqlCmd.Parameters.Add(New SqlParameter("@zu_retournieren", zu_retournieren))
			sqlCmd.Parameters.Add(New SqlParameter("@eingang_ersetzt_ausgang", eingang_ersetzt_ausgang))
			sqlCmd.Parameters.Add(New SqlParameter("@wird_importiert", wird_importiert))
			sqlCmd.Parameters.Add(New SqlParameter("@anzahl_tage", anzahl_tage))
			sqlCmd.Parameters.Add(New SqlParameter("@dbearbeitungszeit", dbearbeitungszeit))
			sqlCmd.Parameters.Add(New SqlParameter("@tage_mutation", tage_mutation))
			sqlCmd.Parameters.Add(New SqlParameter("@partnersaldierung_statusalt", partnersaldierung_statusalt))
			sqlCmd.Parameters.Add(New SqlParameter("@wird_nicht_geloescht", wird_nicht_geloescht))
			sqlCmd.Parameters.Add(New SqlParameter("@vertrauliches_dokument", vertrauliches_dokument))
			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_links", unterschrift_links))
			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_rechts", unterschrift_rechts))
			sqlCmd.Parameters.Add(New SqlParameter("@monate_bis_zur_archivierung", monate_bis_zur_archivierung))
			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_elektronisch", aufbewahrungsfrist_elektronisch))
			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_physisch", aufbewahrungsfrist_physisch))
			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantnr)))
			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
			sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", NullHandler.CToSqlDateTime(erstellt_am)))
			sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", NullHandler.CToSqlDateTime(mutiert_am)))
			sqlCmd.Parameters.Add(New SqlParameter("@mutierer", NullHandler.CToSqlInt(mutierer)))
			sqlCmd.Parameters.Add(New SqlParameter("@office_vorlagenr", NullHandler.CToSqlInt(office_vorlagenr)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_kundendossier", NullHandler.CToSqlInt(dokumentart_kundendossier)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_neuerstellung", NullHandler.CToSqlInt(dokumentart_neuerstellung)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_retournierung", NullHandler.CToSqlInt(dokumentart_retournierung)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldausgang", dokumentart_coldausgang))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldeingang", dokumentart_coldeingang))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_host", NullHandler.CToSqlInt(dokumentart_host)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_weitere", NullHandler.CToSqlInt(dokumentart_weitere)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_nativ", NullHandler.CToSqlInt(dokumentart_nativ)))
			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr", NullHandler.CToSqlInt(prozessnr)))
			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr1", NullHandler.CToSqlInt(prozessnr1)))
			sqlCmd.Parameters.Add(New SqlParameter("@amsdokument", amsdokument))
			sqlCmd.Parameters.Add(New SqlParameter("@hostdokument", hostdokument))
			sqlCmd.Parameters.Add(New SqlParameter("@hostdokumenttyp", NullHandler.CToSqlString(hostdokumenttyp)))
			sqlCmd.Parameters.Add(New SqlParameter("@cold_folder", NullHandler.CToSqlInt(cold_folder)))
			sqlCmd.Parameters.Add(New SqlParameter("@physisches_archiv", NullHandler.CToSqlInt(physisches_archiv)))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus", NullHandler.CToSqlInt(dokumentstatus)))
			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_erstellt", Dokument_wird_erstellt))
			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_retourniert", Dokument_wird_retourniert))
			sqlCmd.Parameters.Add(New SqlParameter("@cold_ersetzen", cold_ersetzen))
			sqlCmd.Parameters.Add(New SqlParameter("@email_versand", email_versand))
			sqlCmd.Parameters.Add(New SqlParameter("@funktionen_zuweisen", funktionen_zuweisen))
			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus_barcode", NullHandler.CToSqlInt(dokumentstatus_barcode)))
			sqlCmd.Parameters.Add(New SqlParameter("@nurnative", nurnative))
			sqlCmd.Parameters.Add(New SqlParameter("@Owner", NullHandler.CToSqlInt(Owner)))
			sqlCmd.Parameters.Add(New SqlParameter("@vertrag", vertrag))
			sqlCmd.Parameters.Add(New SqlParameter("@objektbezeichnungnr", NullHandler.CToSqlInt(objektbezeichnungnr)))
			sqlCmd.Parameters.Add(New SqlParameter("@bedingtretournierbar", bedingtretournierbar))
			sqlCmd.Parameters.Add(New SqlParameter("@doktypbedingteretournierung", NullHandler.CToSqlInt(doktypbedingteretournierung)))
			sqlCmd.Parameters.Add(New SqlParameter("@tagebisvernichtungbedingteretournierung", NullHandler.CToSqlInt(tagebisvernichtungbedingteretournierung)))
			sqlCmd.Parameters.Add(New SqlParameter("@AnzeigeZurDokumenterstellung", AnzeigeZurDokumenterstellung))
			sqlCmd.Parameters.Add(New SqlParameter("@KundenDokument", KundenDokument))
			sqlCmd.Parameters.Add(New SqlParameter("@sb", sb))
			sqlCmd.Parameters.Add(New SqlParameter("@sbimport", sbimport))
			sqlCmd.Parameters.Add(New SqlParameter("@sbedituser", sbedituser))
			sqlCmd.Parameters.Add(New SqlParameter("@sbnur", sbnur))
			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnungmut", bezeichnungmut))
			sqlCmd.Parameters.Add(New SqlParameter("@istFarbigArchiviert", istFarbigArchiviert))
			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue

			sqlConn.Open()
			sqlCmd.ExecuteNonQuery()

			Return CInt(sqlCmd.Parameters("@Return").Value)

		Catch ex As Exception
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
			Throw ex
		Finally
			sqlConn.Dispose()
			sqlCmd.Dispose()
		End Try
	End Function


End Class