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