You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
1.9 KiB
78 lines
1.9 KiB
'''<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
|