Initial commit

Backup/BusinessFacade/Klassifizierung.vb

@@ -0,0 +1,164 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+Imports EDOKALib.Common
+
+'''<summary>Diese klasse beinhaltet die Logik für die Klassifizierung</summary>
+Public Class Klassifizierung
+
+#Region "Members"
+
+	Dim _klassenId As Integer
+	Dim _bezeichnung As String
+	Dim _beschreibung As String
+	Dim _isAktiv As Boolean
+	Dim _mandantNr As Integer
+	Dim _erstellerMitarbeiterNr As Integer
+	Dim _erstelltAm As DateTime
+	Dim _mutiererMitarbeiterNr As Integer
+	Dim _mutiertAm As DateTime
+	Dim _isTeamZwingend As Boolean
+	Dim _isFunktionsgruppeZwingend As Boolean
+
+#End Region
+
+#Region "Constructor"
+
+	'''<summary>Erstellt eine neue Instanz für einen neuen Mitarbeiter</summary>
+    Public Sub New()
+        Try
+
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Sub
+
+	'''<summary>Erstellt eine neue Instanz für eine bestehende Klassifizierung</summary>
+	'''<param name="klassifizierungNr"></param>
+    Public Sub New(ByVal klassifizierungNr As Integer)
+        Try
+            Dim ds As New DataSet()
+
+            DataAccess.Klassifizierung.GetById(klassifizierungNr, ds)
+
+            If ds.Tables.Count > 0 Then
+                If ds.Tables(0).Rows.Count > 0 Then
+                    _klassenId = Common.Tools.CToInt32(ds.Tables(0).Rows(0)("klassenid"))
+                    _bezeichnung = Common.Tools.CToString(ds.Tables(0).Rows(0)("bezeichnung"))
+                    _beschreibung = Common.Tools.CToString(ds.Tables(0).Rows(0)("beschreibung"))
+                    _isAktiv = Common.Tools.CToBool(ds.Tables(0).Rows(0)("aktiv"))
+                    _mandantNr = Common.Tools.CToInt32(ds.Tables(0).Rows(0)("mandantnr"))
+                    _erstellerMitarbeiterNr = Common.Tools.CToInt32(ds.Tables(0).Rows(0)("ersteller"))
+                    _erstelltAm = Common.Tools.CToDateTime(ds.Tables(0).Rows(0)("erstellt_am"))
+                    _mutiertAm = Common.Tools.CToDateTime(ds.Tables(0).Rows(0)("mutiert_am"))
+                    _mutiererMitarbeiterNr = Common.Tools.CToInt32(ds.Tables(0).Rows(0)("mutierer"))
+                    _isTeamZwingend = Common.Tools.CToBool(ds.Tables(0).Rows(0)("zwingendTeam"))
+                    _isFunktionsgruppeZwingend = Common.Tools.CToBool(ds.Tables(0).Rows(0)("zwingendFunktion"))
+                End If
+            End If
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Sub
+
+#End Region
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Klassifizierungen zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+    Public Overloads Shared Sub GetListe(ByRef ds As DataSet)
+        Try
+            DataAccess.Klassifizierung.GetListe(ds)
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Sub
+
+#End Region
+
+#Region "Properties"
+
+	Public ReadOnly Property KlassenId() As Integer
+		Get
+			Return _klassenId
+		End Get
+	End Property
+	Public Property Bezeichnung() As String
+		Get
+			Return _bezeichnung
+		End Get
+		Set(ByVal Value As String)
+			_bezeichnung = Value
+		End Set
+	End Property
+	Public Property Beschreibung() As String
+		Get
+			Return _beschreibung
+		End Get
+		Set(ByVal Value As String)
+			_beschreibung = Value
+		End Set
+	End Property
+	Public Property IsAktiv() As Boolean
+		Get
+			Return _isAktiv
+		End Get
+		Set(ByVal Value As Boolean)
+			_isAktiv = Value
+		End Set
+	End Property
+	Public Property MandantNr() As Integer
+		Get
+			Return _mandantNr
+		End Get
+		Set(ByVal Value As Integer)
+			_mandantNr = Value
+		End Set
+	End Property
+	Public ReadOnly Property ErstellerMitarbeiterNr() As Integer
+		Get
+			Return _erstellerMitarbeiterNr
+		End Get
+	End Property
+	Public ReadOnly Property ErstelltAm() As DateTime
+		Get
+			Return _erstelltAm
+		End Get
+	End Property
+	Public Property MutiererMitarbeiterNr() As Integer
+		Get
+			Return _mutiererMitarbeiterNr
+		End Get
+		Set(ByVal Value As Integer)
+			_mutiererMitarbeiterNr = Value
+		End Set
+	End Property
+	Public Property MutiertAm() As DateTime
+		Get
+			Return _mutiertAm
+		End Get
+		Set(ByVal Value As DateTime)
+			_mutiertAm = Value
+		End Set
+	End Property
+	Public Property IsTeamZwingend() As Boolean
+		Get
+			Return _isTeamZwingend
+		End Get
+		Set(ByVal Value As Boolean)
+			_isTeamZwingend = Value
+		End Set
+	End Property
+	Public Property IsFunktionsgruppeZwingend() As Boolean
+		Get
+			Return _isFunktionsgruppeZwingend
+		End Get
+		Set(ByVal Value As Boolean)
+			_isFunktionsgruppeZwingend = Value
+		End Set
+	End Property
+
+#End Region
+
+End Class