You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
493 lines
28 KiB
493 lines
28 KiB
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
|