Initial

BusinessFacade/MitarbeiterFunktionsgruppe.vb

@@ -0,0 +1,56 @@
+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