'''<summary>Diese klasse beinhaltet die Informationen für den aktuell angemeldeten Benutzer</summary>
Public Class AktuellerBenutzer

#Region "Members"
	Private Shared _mitarbeiter As Mitarbeiter

#End Region

#Region "Constructors"
	Public Sub New()
		'erstelle dummy
	End Sub

	Public Sub New(ByVal mitarbeiterNr As Integer)
		ContructorHelper(mitarbeiterNr)
	End Sub
#End Region

#Region "Private Functions"
	'''<summary>Ermöglicht eine Überladung des Contrustors analog c#</summary>
	'''<param name="mitarbeiterNr"></param>
	Private Sub ContructorHelper(ByVal mitarbeiterNr As Integer)
		Try
            If _mitarbeiter Is Nothing Then
                _mitarbeiter = New BusinessFacade.Mitarbeiter(mitarbeiterNr)
                '_mitarbeiter = New Mitarbeiter(mitarbeiterNr)
            Else
                Destroy()
                _mitarbeiter = New Mitarbeiter(mitarbeiterNr)
            End If
		Catch ex As Exception
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.BF.AktuellerBenutzer.ContructorHelper", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
			Throw ex
		End Try
	End Sub
#End Region

#Region "Public Functions"
	'''<summary>Settz die aktuelle Objekt Instanz auf Null (Nothing)</summary>
	Public Shared Sub Destroy()
		_mitarbeiter = Nothing
	End Sub
#End Region

#Region "Properties"
	Public Shared ReadOnly Property Vorname() As String
		Get
			Return _mitarbeiter.Vorname
		End Get
	End Property

	Public Shared ReadOnly Property Nachname() As String
		Get
			Return _mitarbeiter.Nachname
		End Get
	End Property

	Public Shared ReadOnly Property MitarbeiterNr() As String
		Get
			Return _mitarbeiter.MitarbeiterNr
		End Get
	End Property

	Public Shared ReadOnly Property TGNummer() As String
		Get
			Return _mitarbeiter.TGNummer
		End Get
	End Property

	Public Shared ReadOnly Property Journalisierung() As Boolean
		Get
			Return _mitarbeiter.Journalisierung
		End Get
	End Property
#End Region

End Class