EDOKA_Erneuerung_DMS/DataAccess/MitarbeiterFunktionsgruppe.vb

Imports System.Data
Imports System.Data.SqlClient

'''<summary>Datenzugriff auf Tabelle mitarbeiter_funktionsgruppe</summary>
Public Class MitarbeiterFunktionsgruppe

#Region "Public methods"

	'''<summary>Gibt eine Liste mit allen Funktionsgrupppen denen ein Mitarbeiter zugewiesen ist zurück</summary>
	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>

    Overloads Shared Sub GetListeByMitarbeiterNr(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_GetMitarbeiterFunktionsgruppen"
            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, "FunktionsgruppenListe")

        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>Fügt einen Mitarbeiter zu einer Funktionsgruppe hinzu</summary>
    '''<param name="mitarbeiterNr">Mitarbeiter ID welche hinzugefügt werden soll</param>
    '''<param name="funktionsGruppeNr">Ziel-Funktionsgruppe</param>
    '''<param name="mutiererMitarbeiterNr">Mitarbeiter welcher die Änderung vornimmt</param>

	Public Overloads Shared Sub Insert(ByVal mitarbeiterNr As Integer, ByVal funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

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

			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
			sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", funktionsGruppeNr))
			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMANr", 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 einen Mitarbeiter zu einer Funktionsgruppe hinzu</summary>
	'''<param name="mitarbeiterNr">Mitarbeiter ID welche hinzugefügt werden soll</param>
	'''<param name="funktionsGruppeNr">Ziel-Funktionsgruppe</param>
	'''<param name="mutiererMitarbeiterNr">Mitarbeiter welcher die Änderung vornimmt</param>

    Public Overloads Shared Function Delete(ByVal mitarbeiter_funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
        Dim sqlConn As New SqlConnection()
        Dim sqlCmd As New SqlCommand()

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

            sqlCmd.Parameters.Add(New SqlParameter("@Mitarbeiter_FunktionsGruppeNr", mitarbeiter_funktionsGruppeNr))
            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMANr", 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 Function

    '''<summary>Set den Aktiv Status einer Mitarbeiter Funktionsgruppen Zuordnung</summary>
    '''<param name="mitarbeiterFunktionsgruppeNr">Das DataSet welches gefüllt werden soll</param>
    '''<param name="isAktiv">Das DataSet welches gefüllt werden soll</param>

	Overloads Shared Sub SetAktiv(ByVal mitarbeiterFunktionsgruppeNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()

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

			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterFunktionsgruppeNr", mitarbeiterFunktionsgruppeNr))
			sqlCmd.Parameters.Add(New SqlParameter("@IsAktiv", 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