You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

57 lines
2.3 KiB

Imports System.Data
Imports System.Data.SqlClient
Imports EDOKALib.Common
'''<summary>Diese klasse beinhaltet die Logik für die Mitarbeiter-Funktionsgruppen Zuweisung</summary>
Public Class MitarbeiterFunktionsgruppe
#Region "Public methods"
'''<summary>Löscht eine Team-Mitarbeiter Zuordnung aus der Datenbank</summary>
'''<param name="mitarbeiterFunktionsGruppeNr">Zu löschende Verbindung</param>
'''<param name="mutiererMitarbeiterNr">Die Id des Benutzers, welcher die Änderungen vornimmt</param>
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
'''<summary>Speichert die Daten der aktuellen Instanz in die Datenbank</summary>
'''<param name="mutiererMitarbeiterNr">Die Id des Benutzers, welcher die Änderungen vornimmt</param>
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
'''<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>
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
'''<summary>Gibt eine Liste mit allen Funktionsgrupppen denen ein Mitarbeiter zugewiesen ist zurück</summary>
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