EDOKA_DMS/Backup/DataAccess/OfficeVorlage.vb

Imports System.Data
Imports System.Data.SqlClient


'''<summary>Datenzugriff auf Tabelle office_vorlage</summary>
Public Class OfficeVorlage

	Public Shared Sub GetByNr(ByRef ds As DataSet, ByVal officeVorlageNr 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_GetOfficeVorlageByNr"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@OfficeVorlageNr", officeVorlageNr))
			da.SelectCommand = sqlCmd
			da.Fill(ds, "OfficeVorlage")

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

	'''<summary>gibt eine liste aller office vorlagen 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_ListOfficeVorlage"
            sqlCmd.CommandType = CommandType.StoredProcedure
            sqlCmd.Connection = sqlConn

            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))

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

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


    '''<summary>Fügt eine neue OffiecVorlage in die DB ein</summary>
    '''<param name="officeVorlageNr"></param>
    '''<param name="bezeichnung"></param>
    '''<param name="beschreibung"></param>
    '''<param name="vorlageId"></param>
    '''<param name="vorlageName"></param>
    '''<param name="prefixDokumentName"></param>
    '''<param name="idvVorlage"></param>
    '''<param name="idvId"></param>
    '''<param name="officeVorlage"></param>
    '''<param name="absenderErsteller"></param>
    '''<param name="idvNativ"></param>
    '''<param name="dokumentGeschuetzt"></param>
    '''<param name="kopfzeileGenerieren"></param>
    '''<param name="klassifizierung"></param>
    '''<param name="bcpt"></param>
    '''<param name="bcpl"></param>
    '''<param name="bcw"></param>
    '''<param name="bch"></param>
    '''<param name="bchorizontal"></param>
    '''<param name="mandantNr"></param>
    '''<param name="aktiv"></param>
    '''<param name="erstelltAm"></param>
    '''<param name="mutiertAm"></param>
    '''<param name="anwendungNr"></param>
    '''<param name="owner"></param>
    '''<returns>error</returns>
    Public Shared Function Add(ByRef officeVorlageNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
     ByVal vorlageId As Integer, ByVal vorlageName As String, ByVal prefixDokumentName As String, ByVal idvVorlage As Boolean, ByVal idvId As String, _
     ByVal officeVorlage As String, ByVal absenderErsteller As Boolean, ByVal idvNativ As Boolean, ByVal dokumentGeschuetzt As Boolean, _
     ByVal kopfzeileGenerieren As Boolean, ByVal klassifizierung As Integer, ByVal bcpt As Integer, ByVal bcpl As Integer, ByVal bcw As Integer, _
     ByVal bch As Integer, ByVal bchorizontal As Boolean, ByVal mandantNr As Integer, ByVal aktiv As Boolean, ByVal erstelltAm As DateTime, _
     ByVal mutiertAm As DateTime, ByVal mutierer As Integer, ByVal anwendungNr As Integer, ByVal owner As Integer) As Integer

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

        Try
            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
            sqlCmd.CommandText = "sp_InsOfficeVorlage"
            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("@vorlageid", NullHandler.CToSqlInt(vorlageId)))
            sqlCmd.Parameters.Add(New SqlParameter("@vorlagename", NullHandler.CToSqlString(vorlageName)))
            sqlCmd.Parameters.Add(New SqlParameter("@prefix_dokumentname", NullHandler.CToSqlString(prefixDokumentName)))
            sqlCmd.Parameters.Add(New SqlParameter("@idv_vorlage", idvVorlage))
            sqlCmd.Parameters.Add(New SqlParameter("@idv_id", NullHandler.CToSqlString(idvId)))
            sqlCmd.Parameters.Add(New SqlParameter("@Office_Vorlage", NullHandler.CToSqlString(officeVorlage)))
            sqlCmd.Parameters.Add(New SqlParameter("@absender_ersteller", NullHandler.CToSqlString(absenderErsteller)))
            sqlCmd.Parameters.Add(New SqlParameter("@idv_nativ", idvNativ))
            sqlCmd.Parameters.Add(New SqlParameter("@dokument_geschuetzt", dokumentGeschuetzt))
            sqlCmd.Parameters.Add(New SqlParameter("@kopfzeile_generieren", kopfzeileGenerieren))
            sqlCmd.Parameters.Add(New SqlParameter("@klassifizierung", NullHandler.CToSqlInt(klassifizierung)))
            sqlCmd.Parameters.Add(New SqlParameter("@bcpt", bcpt))
            sqlCmd.Parameters.Add(New SqlParameter("@bcpl", NullHandler.CToSqlInt(bcpl)))
            sqlCmd.Parameters.Add(New SqlParameter("@bcw", bcw))
            sqlCmd.Parameters.Add(New SqlParameter("@bch", bch))
            sqlCmd.Parameters.Add(New SqlParameter("@bchorizontal", bchorizontal))
            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(erstelltAm)))
            sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", NullHandler.CToSqlDateTime(mutiertAm)))
            sqlCmd.Parameters.Add(New SqlParameter("@mutierer", NullHandler.CToSqlInt(mutierer)))
            sqlCmd.Parameters.Add(New SqlParameter("@anwendungnr", NullHandler.CToSqlInt(anwendungNr)))
            sqlCmd.Parameters.Add(New SqlParameter("@OWNER", NullHandler.CToSqlInt(owner)))

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

            sqlConn.Open()
            sqlCmd.ExecuteNonQuery()

            If CInt(sqlCmd.Parameters("@Return").Value) <> 0 Then
                officeVorlageNr = CInt(sqlCmd.Parameters("@OfficeVorlageNr").Value)
            End If

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

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


    '''<summary>Löscht eine bestehende officeVorlage</summary>
    '''<param name="officeVorlageNr"></param>
    '''<returns>error</returns>
    Public Shared Function Delete(ByVal officeVorlageNr As Integer) As Integer
        Dim sqlConn As New SqlConnection()
        Dim sqlCmd As New SqlCommand()

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

            sqlCmd.Parameters.Add(New SqlParameter("@OfficeVorlageNr", officeVorlageNr))
            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.OfficeVorlage.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
            Throw ex
        Finally
            sqlConn.Dispose()
            sqlCmd.Dispose()
        End Try
    End Function

    '''<summary>Aktualisiert eine OfficeVorlage in der Datenbank</summary>
    '''<param name="officeVorlageNr"></param>
    '''<param name="bezeichnung"></param>
    '''<param name="beschreibung"></param>
    '''<param name="vorlageId"></param>
    '''<param name="vorlageName"></param>
    '''<param name="prefixDokumentName"></param>
    '''<param name="idvVorlage"></param>
    '''<param name="idvId"></param>
    '''<param name="officeVorlage"></param>
    '''<param name="absenderErsteller"></param>
    '''<param name="idvNativ"></param>
    '''<param name="dokumentGeschuetzt"></param>
    '''<param name="kopfzeileGenerieren"></param>
    '''<param name="klassifizierung"></param>
    '''<param name="bcpt"></param>
    '''<param name="bcpl"></param>
    '''<param name="bcw"></param>
    '''<param name="bch"></param>
    '''<param name="bchorizontal"></param>
    '''<param name="mandantNr"></param>
    '''<param name="aktiv"></param>
    '''<param name="erstelltAm"></param>
    '''<param name="mutiertAm"></param>
    '''<param name="mutierer"></param>
    '''<param name="anwendungNr"></param>
    '''<param name="owner"></param>

	Public Shared Function Update(ByVal officeVorlageNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
	  ByVal vorlageId As Integer, ByVal vorlageName As String, ByVal prefixDokumentName As String, ByVal idvVorlage As Boolean, ByVal idvId As String, _
	  ByVal officeVorlage As String, ByVal absenderErsteller As Boolean, ByVal idvNativ As Boolean, ByVal dokumentGeschuetzt As Boolean, _
	  ByVal kopfzeileGenerieren As Boolean, ByVal klassifizierung As Integer, ByVal bcpt As Integer, ByVal bcpl As Integer, ByVal bcw As Integer, _
	  ByVal bch As Integer, ByVal bchorizontal As Boolean, ByVal mandantNr As Integer, ByVal aktiv As Boolean, ByVal erstelltAm As DateTime, _
	  ByVal mutiertAm As DateTime, ByVal mutierer As Integer, ByVal anwendungNr As Integer, ByVal owner As Integer) As Integer

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

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

			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", bezeichnung))
			sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", beschreibung))
			sqlCmd.Parameters.Add(New SqlParameter("@vorlageid", vorlageId))
			sqlCmd.Parameters.Add(New SqlParameter("@vorlagename", vorlageName))
			sqlCmd.Parameters.Add(New SqlParameter("@prefix_dokumentname", prefixDokumentName))
			sqlCmd.Parameters.Add(New SqlParameter("@idv_vorlage", idvVorlage))
			sqlCmd.Parameters.Add(New SqlParameter("@idv_id", idvId))
			sqlCmd.Parameters.Add(New SqlParameter("@Office_Vorlage", NullHandler.CToSqlString(officeVorlage)))
			sqlCmd.Parameters.Add(New SqlParameter("@absender_ersteller", absenderErsteller))
			sqlCmd.Parameters.Add(New SqlParameter("@idv_nativ", idvNativ))
			sqlCmd.Parameters.Add(New SqlParameter("@dokument_geschuetzt", dokumentGeschuetzt))
			sqlCmd.Parameters.Add(New SqlParameter("@kopfzeile_generieren", kopfzeileGenerieren))
			sqlCmd.Parameters.Add(New SqlParameter("@klassifizierung", klassifizierung))
			sqlCmd.Parameters.Add(New SqlParameter("@bcpt", bcpt))
			sqlCmd.Parameters.Add(New SqlParameter("@bcpl", bcpl))
			sqlCmd.Parameters.Add(New SqlParameter("@bcw", bcw))
			sqlCmd.Parameters.Add(New SqlParameter("@bch", bch))
			sqlCmd.Parameters.Add(New SqlParameter("@bchorizontal", bchorizontal))
			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", mandantNr))
			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
			sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", erstelltAm))
			sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", mutiertAm))
			sqlCmd.Parameters.Add(New SqlParameter("@mutierer", mutierer))
			sqlCmd.Parameters.Add(New SqlParameter("@anwendungnr", anwendungNr))
			sqlCmd.Parameters.Add(New SqlParameter("@OWNER", owner))

			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.OfficeVorlage.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
			Throw ex
		Finally
			sqlConn.Dispose()
			sqlCmd.Dispose()
		End Try
	End Function

End Class