Initial commit

Backup/BusinessFacade/AktuellerBenutzer.vb

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