EDOKA_DMS/Backup/DataAccess/TeamMitarbeiter.vb

Imports System.Data
Imports System.Data.SqlClient

'''<summary>Datenzugriff auf Tabelle team_mitarbeiter</summary>
Public Class TeamMitarbeiter

#Region "Public methods"

	'''<summary>Gibt eine Liste mit allen TeamMitarbeitern zurück</summary>
	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>

	Overloads Shared Sub GetListByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()
		Dim da As New SqlDataAdapter()

		Try
			sqlCmd.CommandText = "sp_GetTeamsByMitarbeiterNr"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))

			sqlConn.ConnectionString = Common.Datenbank.GetDSN()

			sqlConn.Open()

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

		Catch ex As Exception
			Throw ex
		Finally
			If sqlCmd Is Nothing Then
				sqlCmd.Dispose()
			End If
			If sqlConn Is Nothing Then
				sqlConn.Dispose()
			End If
			If da Is Nothing Then
				da.Dispose()
			End If
		End Try
	End Sub

	'''<summary>Gibt alle Details zur einem TeamMitarbeiter Verhältnis zurück</summary>
	'''<param name="mitarbeiterTeamNr">Die datenbank Nummer des TeamMitarbeiters (ID)</param>
	'''<param name="ds">Das zu füllende DataSet</param>

	Overloads Shared Sub GetById(ByVal mitarbeiterTeamNr As Integer, ByRef ds As DataSet)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()
		Dim da As New SqlDataAdapter()

		Try
			sqlCmd.CommandText = "sp_GetTeamMitarbeiterById"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@TeamMitarbeiterNr", mitarbeiterTeamNr))

			sqlConn.ConnectionString = Common.Datenbank.GetDSN()

			sqlConn.Open()

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

		Catch ex As Exception
			Throw ex
		Finally
			If sqlCmd Is Nothing Then
				sqlCmd.Dispose()
			End If
			If sqlConn Is Nothing Then
				sqlConn.Dispose()
			End If
			If da Is Nothing Then
				da.Dispose()
			End If
		End Try
	End Sub

	'''<summary>Löscht eine Team-Mitarbeiter Zuordnung aus der Datenbank</summary>
	'''<param name="teamMitarbeiterNr">Zu löschende Verbindung</param>
	'''<param name="mutiererMitarbeiterNr">Die Id des Benutzers, welcher die Änderungen vornimmt</param>
	Public Overloads Shared Function Delete(ByVal teamMitarbeiterNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

		Try
			sqlCmd.CommandText = "sp_DeleteTeamMitarbeiter"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@TeamMitarbeiterNr", teamMitarbeiterNr))

			sqlConn.ConnectionString = Common.Datenbank.GetDSN()

			sqlConn.Open()

			sqlCmd.ExecuteNonQuery()

		Catch ex As Exception
			Throw ex
		Finally
			If sqlCmd Is Nothing Then
				sqlCmd.Dispose()
			End If
			If sqlConn Is Nothing Then
				sqlConn.Dispose()
			End If
		End Try
	End Function

	'''<summary>Aktualisiert eine bestehede Team-Mitarbeiter Zuordnung</summary>
	'''<param name="teamMitarbeiterNr"></param>
	'''<param name="teamNr"></param>
	'''<param name="mitarbeiterNr"></param>
	'''<param name="anteil"></param>
	'''<param name="mandantNr"></param>
	'''<param name="isAktiv"></param>
	'''<param name="mutiererMitarbeiterNr"></param>

    Overloads Shared Sub Update(ByVal teamMitarbeiterNr As Integer, ByVal teamNr As Integer, ByVal mitarbeiterNr As Integer, ByVal anteil As Integer, ByVal mandantNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
        Dim sqlConn As New SqlConnection()
        Dim sqlCmd As New SqlCommand()

        Try
            sqlCmd.CommandText = "sp_UpdateTeamMitarbeiter"
            sqlCmd.CommandType = CommandType.StoredProcedure
            sqlCmd.Connection = sqlConn

            sqlCmd.Parameters.Add(New SqlParameter("@TeamMitarbeiterNr", teamMitarbeiterNr))
            sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
            sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
            sqlCmd.Parameters.Add(New SqlParameter("@Anteil", anteil))
            sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
            sqlCmd.Parameters.Add(New SqlParameter("@aktiv", isAktiv))
            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))

            sqlConn.ConnectionString = Common.Datenbank.GetDSN()

            sqlConn.Open()

            sqlCmd.ExecuteNonQuery()

        Catch ex As Exception
            Throw ex
        Finally
            If sqlCmd Is Nothing Then
                sqlCmd.Dispose()
            End If
            If sqlConn Is Nothing Then
                sqlConn.Dispose()
            End If
        End Try
    End Sub

    '''<summary>Fügt eine neue Team-Mitarbeiter Verbindung in die Datenbank ein</summary>
    '''<param name="teamNr"></param>
    '''<param name="mitarbeiterNr"></param>
    '''<param name="anteil"></param>
    '''<param name="mandantNr"></param>
    '''<param name="isAktiv"></param>
    '''<param name="mutiererMitarbeiterNr"></param>

	Overloads Shared Sub Insert(ByVal teamNr As Integer, ByVal mitarbeiterNr As Integer, ByVal anteil As Integer, ByVal mandantNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

		Try
			sqlCmd.CommandText = "sp_InsertTeamMitarbeiter"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
			sqlCmd.Parameters.Add(New SqlParameter("@Anteil", anteil))
			sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", isAktiv))
			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))

			sqlConn.ConnectionString = Common.Datenbank.GetDSN()

			sqlConn.Open()

			sqlCmd.ExecuteNonQuery()

		Catch ex As Exception
			Throw ex
		Finally
			If sqlCmd Is Nothing Then
				sqlCmd.Dispose()
			End If
			If sqlConn Is Nothing Then
				sqlConn.Dispose()
			End If
		End Try
	End Sub

#End Region

End Class