EDOKA_Client/BusinessFacade/Klassifizierung.vb

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