Imports System.Data
Imports System.Data.SqlClient
Imports EDOKALib.Common
'''Diese klasse beinhaltet die Logik für die Mitarbeiter-Funktionsgruppen Zuweisung
Public Class MitarbeiterFunktionsgruppe
#Region "Public methods"
'''Löscht eine Team-Mitarbeiter Zuordnung aus der Datenbank
'''Zu löschende Verbindung
'''Die Id des Benutzers, welcher die Änderungen vornimmt
Public Overloads Shared Function Delete(ByVal mitarbeiterFunktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
Try
DataAccess.MitarbeiterFunktionsgruppe.Delete(mitarbeiterFunktionsGruppeNr, mutiererMitarbeiterNr)
Catch ex As Exception
Throw ex
End Try
End Function
'''Speichert die Daten der aktuellen Instanz in die Datenbank
'''Die Id des Benutzers, welcher die Änderungen vornimmt
Public Overloads Shared Function Insert(ByVal mitarbeiterNr As Integer, ByVal funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
Try
'neuer eintrag
DataAccess.MitarbeiterFunktionsgruppe.Insert(mitarbeiterNr, funktionsGruppeNr, mutiererMitarbeiterNr)
Catch ex As Exception
Throw ex
End Try
End Function
'''Gibt eine Liste mit allen Funktionsgrupppen denen ein Mitarbeiter zugewiesen ist zurück
'''Das DataSet welches gefüllt werden soll
Public Overloads Shared Sub GetListeByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
Try
DataAccess.MitarbeiterFunktionsgruppe.GetListeByMitarbeiterNr(mitarbeiterNr, ds)
Catch ex As Exception
Throw ex
End Try
End Sub
'''Gibt eine Liste mit allen Funktionsgrupppen denen ein Mitarbeiter zugewiesen ist zurück
Public Overloads Shared Sub SetAktiv(ByVal mitarbeiterFunktionsGruppeNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
Try
DataAccess.MitarbeiterFunktionsgruppe.SetAktiv(mitarbeiterFunktionsGruppeNr, isAktiv, mutiererMitarbeiterNr)
Catch ex As Exception
Throw ex
End Try
End Sub
#End Region
End Class