Initial
This commit is contained in:
630
BusinessFacade/Mitarbeiter.vb
Normal file
630
BusinessFacade/Mitarbeiter.vb
Normal file
@@ -0,0 +1,630 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Imports EDOKALib.Common
|
||||
|
||||
'''<summary>Diese klasse beinhaltet die Logik für die Mitarbeiter</summary>
|
||||
Public Class Mitarbeiter
|
||||
|
||||
#Region "Members"
|
||||
|
||||
Private _mitarbeiterNr As Integer = 0
|
||||
Private _vorname As String
|
||||
Private _nachname As String
|
||||
Private _kurzZeichen As String
|
||||
Private _anrede As String
|
||||
Private _tgNummer As String
|
||||
Private _email As String
|
||||
Private _fax As String
|
||||
Private _telefon As String
|
||||
Private _unterschriftText As String
|
||||
Private _spracheNr As Integer
|
||||
Private _fuerMandantNr As Integer 'arbeitet für diesen mandant
|
||||
Private _showTipp As Boolean 'display tipp bim startup
|
||||
Private _partnerNr As Integer
|
||||
Private _mandantNr As Integer 'zugehörigkeit des mitarbeiter
|
||||
Private _isAktiv As Boolean
|
||||
Private _erstelltAm As DateTime
|
||||
Private _mutiertAm As DateTime
|
||||
Private _mutiererMitarbeiterNr As Integer
|
||||
Private _isMailEmpfang As Boolean 'meldung via email
|
||||
Private _isEdokaMessage As Boolean 'DANGER: feld in db heisst "EdokaMesasge"
|
||||
Private _funktion As String
|
||||
Private _isMailDirektVersenden As Boolean
|
||||
Private _rang As String
|
||||
Private _isMailDokumentRueckgang As Boolean
|
||||
Private _klassifizierungNr As Integer
|
||||
Private _isEdokaMail As Boolean 'meldung via edoka empfangen
|
||||
Private _isJournalisierung As Boolean
|
||||
Private _isGebMeldung As Boolean
|
||||
Private _mail1 As String
|
||||
|
||||
Private _funktionsgruppen As BusinessFacade.Funktionsgruppe()
|
||||
|
||||
#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 einen bestehenden Mitarbeiter</summary>
|
||||
'''<param name="mitarbeiterNr"></param>
|
||||
|
||||
Public Sub New(ByVal mitarbeiterNr As Integer)
|
||||
Try
|
||||
Dim ds As New DataSet()
|
||||
DataAccess.Mitarbeiter.GetById(mitarbeiterNr, ds)
|
||||
LoadData(ds)
|
||||
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'''<summary>Erstellt eine neue Instanz für einen bestehenen Mitarbeiter</summary>
|
||||
'''<param name="tgNummer"></param>
|
||||
|
||||
Public Sub New(ByVal tgNummer As String)
|
||||
Try
|
||||
Dim ds As New DataSet()
|
||||
|
||||
DataAccess.Mitarbeiter.GetByTgNummer(tgNummer, ds)
|
||||
LoadData(ds)
|
||||
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Public methods"
|
||||
|
||||
'''<summary>Gibt eine Liste mit allen Mitarbeitern zurück</summary>
|
||||
'''<param name="dsMitarbeiter">Das DataSet welches gefüllt werden soll</param>
|
||||
|
||||
Public Overloads Shared Sub GetListe(ByRef dsMitarbeiter As DataSet)
|
||||
Try
|
||||
DataAccess.Mitarbeiter.GetListe(0, 0, dsMitarbeiter)
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'''<summary>Gibt eine Liste mit allen Mitarbeitern zurück</summary>
|
||||
'''<param name="teamNr">Nur Mitarbeiter von diesem Team</param>
|
||||
'''<param name="dsMitarbeiter">Das DataSet welches gefüllt werden soll</param>
|
||||
|
||||
Public Overloads Shared Sub GetListeByTeamNr(ByVal teamNr As Integer, ByRef dsMitarbeiter As DataSet)
|
||||
Try
|
||||
DataAccess.Mitarbeiter.GetListe(teamNr, 0, dsMitarbeiter)
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'''<summary>Gibt eine Liste mit allen Mitarbeitern zurück</summary>
|
||||
'''<param name="funktionsGruppeNr">Nur Mitarbeiter von dieser Funktionsgruppe</param>
|
||||
'''<param name="dsMitarbeiter">Das DataSet welches gefüllt werden soll</param>
|
||||
|
||||
Public Overloads Shared Sub GetListeByFunktionsGruppeNr(ByVal funktionsGruppeNr As Integer, ByRef dsMitarbeiter As DataSet)
|
||||
Try
|
||||
DataAccess.Mitarbeiter.GetListe(0, funktionsGruppeNr, dsMitarbeiter)
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'''<summary>Erstellt ein neues Standard Profil für den angegebenen Mitarbeiter</summary>
|
||||
'''<param name="mutiererMitarbeiterNr">Die datenbank Nummer des Mutierers (ID)</param>
|
||||
|
||||
Public Function CreateNewStandardProfil(ByVal mutiererMitarbeiterNr As Integer)
|
||||
Try
|
||||
DataAccess.Mitarbeiter.CreateNewStandardProfil(_mitarbeiterNr, mutiererMitarbeiterNr)
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
'''<summary>Speichert die Änderungen an einem Mitarbeiter</summary>
|
||||
'''<param name="mutiererMitarbeiterNr"></param>
|
||||
Public Function Save(ByVal mutiererMitarbeiterNr As Integer)
|
||||
Try
|
||||
Save(Nothing, Nothing, mutiererMitarbeiterNr)
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
'''<summary>Speichert die Änderungen an einem Mitarbeiter inklusive Funktionsgruppen- und Team-Zuordnungen</summary>
|
||||
'''<param name="dsMaTeams"></param>
|
||||
'''<param name="dsMaFunktionsGruppen"></param>
|
||||
'''<param name="mutiererMitarbeiterNr"></param>
|
||||
Public Function Save(ByVal dsMaTeams As DataSet, ByVal dsMaFunktionsGruppen As DataSet, ByVal mutiererMitarbeiterNr As Integer)
|
||||
Try
|
||||
'daten des mitarbeiters speichern
|
||||
If _mitarbeiterNr <= 0 Then
|
||||
'neuer mitarbeiter
|
||||
_mitarbeiterNr = DataAccess.Mitarbeiter.Insert(_vorname, _nachname, _kurzZeichen, _anrede, _tgNummer, _
|
||||
_email, _fax, _telefon, _unterschriftText, _spracheNr, _fuerMandantNr, _showTipp, _partnerNr, _mandantNr, _
|
||||
_isAktiv, _isMailEmpfang, _isEdokaMessage, _funktion, _isMailDirektVersenden, _rang, _isMailDokumentRueckgang, _
|
||||
_klassifizierungNr, _isEdokaMail, _isJournalisierung, _isGebMeldung, _mail1, mutiererMitarbeiterNr)
|
||||
Else
|
||||
'besthender mitarbeiter
|
||||
DataAccess.Mitarbeiter.Update(_mitarbeiterNr, _vorname, _nachname, _kurzZeichen, _anrede, _tgNummer, _
|
||||
_email, _fax, _telefon, _unterschriftText, _spracheNr, _fuerMandantNr, _showTipp, _partnerNr, _mandantNr, _
|
||||
_isAktiv, _isMailEmpfang, _isEdokaMessage, _funktion, _isMailDirektVersenden, _rang, _isMailDokumentRueckgang, _
|
||||
_klassifizierungNr, _isEdokaMail, _isJournalisierung, _isGebMeldung, _mail1, mutiererMitarbeiterNr)
|
||||
End If
|
||||
|
||||
'je nach klassifizierung müssen min ein team, bzw funktionsgruppe ausgewählt werden
|
||||
Dim klassifizierung As New klassifizierung(_klassifizierungNr)
|
||||
|
||||
'checks auf ds == null finden in GetRowCountAfterSave() statt
|
||||
If klassifizierung.IsTeamZwingend Then
|
||||
If Not GetRowCountAfterSave(dsMaTeams) > 0 Then
|
||||
Throw New MitarbeiterException(String.Format(BusinessFacade.Meldungstext.GetInhaltById(310), klassifizierung.Bezeichnung))
|
||||
Return 1
|
||||
End If
|
||||
Else
|
||||
'wenn nicht zwingend darf keine zuordnung enthalten sein.
|
||||
If GetRowCountAfterSave(dsMaTeams) > 0 Then
|
||||
Throw New MitarbeiterException(String.Format(BusinessFacade.Meldungstext.GetInhaltById(317), klassifizierung.Bezeichnung))
|
||||
Return 1
|
||||
End If
|
||||
End If
|
||||
If klassifizierung.IsFunktionsgruppeZwingend Then
|
||||
If Not GetRowCountAfterSave(dsMaFunktionsGruppen) > 0 Then
|
||||
Throw New MitarbeiterException(String.Format(BusinessFacade.Meldungstext.GetInhaltById(311), klassifizierung.Bezeichnung))
|
||||
Return 1
|
||||
End If
|
||||
Else
|
||||
'wenn nicht zwingend darf keine zuordnung enthalten sein.
|
||||
If GetRowCountAfterSave(dsMaFunktionsGruppen) > 0 Then
|
||||
Throw New MitarbeiterException(String.Format(BusinessFacade.Meldungstext.GetInhaltById(318), klassifizierung.Bezeichnung))
|
||||
Return 1
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not IsNothing(dsMaTeams) Then
|
||||
'zuordnungen speichern
|
||||
Dim row As DataRow
|
||||
Dim teamMitarbeiter As BusinessFacade.TeamMitarbeiter
|
||||
For Each row In dsMaTeams.Tables(0).Rows
|
||||
Select Case row.RowState
|
||||
Case DataRowState.Added
|
||||
'neue zuordnung erstellen
|
||||
teamMitarbeiter = New BusinessFacade.TeamMitarbeiter()
|
||||
teamMitarbeiter.Anteil = Tools.CToInt32(row("anteil"))
|
||||
teamMitarbeiter.IsAktiv = row("aktiv")
|
||||
teamMitarbeiter.MandantNr = row("mandantnr")
|
||||
teamMitarbeiter.MitarbeiterNr = _mitarbeiterNr
|
||||
teamMitarbeiter.Team = New BusinessFacade.Team(Tools.CToInt32(row("teamnr")))
|
||||
|
||||
teamMitarbeiter.Save(mutiererMitarbeiterNr)
|
||||
|
||||
Case DataRowState.Modified
|
||||
'bestehende speichern
|
||||
teamMitarbeiter = New BusinessFacade.TeamMitarbeiter(Tools.CToInt32(row("teammitarbeiternr")))
|
||||
teamMitarbeiter.Anteil = row("anteil")
|
||||
teamMitarbeiter.IsAktiv = row("aktiv")
|
||||
|
||||
teamMitarbeiter.Save(mutiererMitarbeiterNr)
|
||||
|
||||
'Case DataRowState.Deleted
|
||||
'bestehende löschen -> kb310370
|
||||
'BusinessFacade.TeamMitarbeiter.Delete(Tools.CToInt32(row("teammitarbeiternr", DataRowVersion.Original)), mutiererMitarbeiterNr)
|
||||
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not IsNothing(dsMaFunktionsGruppen) Then
|
||||
'zuordnungen speichern
|
||||
Dim row As DataRow
|
||||
For Each row In dsMaFunktionsGruppen.Tables(0).Rows
|
||||
Select Case row.RowState
|
||||
Case DataRowState.Added
|
||||
If Common.Tools.CToBool(row("aktiv")) Then
|
||||
'neue verbindung herstellen
|
||||
BusinessFacade.MitarbeiterFunktionsgruppe.Insert(Tools.CToInt32(row("mitarbeiternr")), Tools.CToInt32(row("funktionsgruppenr")), mutiererMitarbeiterNr)
|
||||
End If
|
||||
|
||||
Case DataRowState.Modified
|
||||
BusinessFacade.MitarbeiterFunktionsgruppe.SetAktiv(Tools.CToInt32(row("mitarbeiter_funktionsgruppenr")), Common.Tools.CToBool(row("aktiv")), mutiererMitarbeiterNr)
|
||||
|
||||
'Case DataRowState.Deleted
|
||||
'bestehende löschen -> kb310370
|
||||
'BusinessFacade.MitarbeiterFunktionsgruppe.Delete(Tools.CToInt32(row("mitarbeiter_funktionsgruppenr", DataRowVersion.Original)), mutiererMitarbeiterNr)
|
||||
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
'members refreshen
|
||||
Dim dsRefresh As New DataSet()
|
||||
DataAccess.Mitarbeiter.GetById(_mitarbeiterNr, dsRefresh)
|
||||
LoadData(dsRefresh)
|
||||
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Private methods"
|
||||
|
||||
'''<summary>lädt die daten in die klassen member</summary>
|
||||
'''<param name="ds"></param>
|
||||
|
||||
Private Sub LoadData(ByVal ds As DataSet)
|
||||
Try
|
||||
If Not Common.Tools.ValidateDS(ds) Then
|
||||
Return
|
||||
End If
|
||||
|
||||
_mitarbeiterNr = Tools.CToInt32(ds.Tables(0).Rows(0)("mitarbeiterNr"))
|
||||
_vorname = Tools.CToString(ds.Tables(0).Rows(0)("vorname"))
|
||||
_nachname = Tools.CToString(ds.Tables(0).Rows(0)("name"))
|
||||
_kurzZeichen = Tools.CToString(ds.Tables(0).Rows(0)("kurzzeichen"))
|
||||
_anrede = Tools.CToString(ds.Tables(0).Rows(0)("anrede"))
|
||||
_tgNummer = Tools.CToString(ds.Tables(0).Rows(0)("tgnummer"))
|
||||
_email = Tools.CToString(ds.Tables(0).Rows(0)("email"))
|
||||
_fax = Tools.CToString(ds.Tables(0).Rows(0)("fax"))
|
||||
_telefon = Tools.CToString(ds.Tables(0).Rows(0)("telefon"))
|
||||
_unterschriftText = Tools.CToString(ds.Tables(0).Rows(0)("unterschrift_text"))
|
||||
_spracheNr = Tools.CToInt32(ds.Tables(0).Rows(0)("sprache"))
|
||||
_fuerMandantNr = Tools.CToInt32(ds.Tables(0).Rows(0)("fuermandant"))
|
||||
_showTipp = Common.Tools.CToBool(ds.Tables(0).Rows(0)("showtip"))
|
||||
_partnerNr = Tools.CToInt32(ds.Tables(0).Rows(0)("partnernr"))
|
||||
_mandantNr = Tools.CToInt32(ds.Tables(0).Rows(0)("mandantnr"))
|
||||
_isAktiv = Common.Tools.CToBool(ds.Tables(0).Rows(0)("aktiv"))
|
||||
_erstelltAm = Tools.CToDateTime(ds.Tables(0).Rows(0)("erstellt_am"))
|
||||
_mutiertAm = Tools.CToDateTime(ds.Tables(0).Rows(0)("mutiert_am"))
|
||||
_mutiererMitarbeiterNr = Tools.CToInt32(ds.Tables(0).Rows(0)("mutierer"))
|
||||
_isMailEmpfang = Common.Tools.CToBool(ds.Tables(0).Rows(0)("mailempfang"))
|
||||
_isEdokaMessage = Common.Tools.CToBool(ds.Tables(0).Rows(0)("EdokaMesasge"))
|
||||
_funktion = Tools.CToString(ds.Tables(0).Rows(0)("funktion"))
|
||||
_isMailDirektVersenden = Common.Tools.CToBool(ds.Tables(0).Rows(0)("MailDirektVersenden"))
|
||||
_rang = Tools.CToString(ds.Tables(0).Rows(0)("Rang"))
|
||||
_isMailDokumentRueckgang = Common.Tools.CToBool(ds.Tables(0).Rows(0)("MailDokumentrueckgang"))
|
||||
_klassifizierungNr = Tools.CToInt32(ds.Tables(0).Rows(0)("klassifizierung"))
|
||||
_isEdokaMail = Common.Tools.CToBool(ds.Tables(0).Rows(0)("edoka_mail"))
|
||||
_isJournalisierung = Common.Tools.CToBool(ds.Tables(0).Rows(0)("journalisierung"))
|
||||
_isGebMeldung = Common.Tools.CToBool(ds.Tables(0).Rows(0)("GebMeldung"))
|
||||
_mail1 = Tools.CToString(ds.Tables(0).Rows(0)("Mail_1"))
|
||||
Catch ex As Exception
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.BF.Parameter.LoadData", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'''<summary>Gibt die Anzahl der Rows zurück, welche sie nach dem Speichern haben werden</summary>
|
||||
'''<param name="ds2Validate">Das zu überprüfende DataSet</param>
|
||||
'''<returns>Der neue rowCount</returns>
|
||||
Private Function GetRowCountAfterSave(ByVal ds2Validate As DataSet) As Integer
|
||||
Try
|
||||
'validierung nicht möglich, es werden keines row mehr da sein nach dem speichern
|
||||
If IsNothing(ds2Validate) Then
|
||||
Return 0
|
||||
End If
|
||||
|
||||
Dim row As DataRow
|
||||
Dim newRowCount As Integer = 0
|
||||
|
||||
'neue rows zählen
|
||||
For Each row In ds2Validate.Tables(0).Rows
|
||||
If Convert.ToBoolean(row("aktiv")) And _
|
||||
(row.RowState = DataRowState.Added Or _
|
||||
row.RowState = DataRowState.Modified Or _
|
||||
row.RowState = DataRowState.Unchanged) Then
|
||||
|
||||
newRowCount = newRowCount + 1
|
||||
End If
|
||||
Next
|
||||
|
||||
Return newRowCount
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Properties"
|
||||
|
||||
Public ReadOnly Property MitarbeiterNr() As Integer
|
||||
Get
|
||||
Return _mitarbeiterNr
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Property Vorname() As String
|
||||
Get
|
||||
Return _vorname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_vorname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Nachname() As String
|
||||
Get
|
||||
Return _nachname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_nachname = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property AnzeigeName() As String
|
||||
Get
|
||||
Return _nachname + " " + _vorname
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Property KurzZeichen() As String
|
||||
Get
|
||||
Return _kurzZeichen
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_kurzZeichen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Anrede() As String
|
||||
Get
|
||||
Return _anrede
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_anrede = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property TGNummer() As String
|
||||
Get
|
||||
Return _tgNummer
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_tgNummer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property EMail() As String
|
||||
Get
|
||||
Return _email
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_email = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Fax() As String
|
||||
Get
|
||||
Return _fax
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_fax = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Telefon() As String
|
||||
Get
|
||||
Return _telefon
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_telefon = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UnterschritText() As String
|
||||
Get
|
||||
Return _unterschriftText
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_unterschriftText = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property SpracheNr() As Integer
|
||||
Get
|
||||
Return _spracheNr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
_spracheNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property FuerMandantNr() As Integer
|
||||
Get
|
||||
Return _fuerMandantNr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
_fuerMandantNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property ShowTipp() As Boolean
|
||||
Get
|
||||
Return _showTipp
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_showTipp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property PartnerNr() As Integer
|
||||
Get
|
||||
Return _partnerNr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
_partnerNr = 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 Property IsAktiv() As Boolean
|
||||
Get
|
||||
Return _isAktiv
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ErstelltAm() As DateTime
|
||||
Get
|
||||
Return _erstelltAm
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property MutiertAm() As DateTime
|
||||
Get
|
||||
Return _mutiertAm
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property MutiererMitarbeiterNr() As Integer
|
||||
Get
|
||||
Return _mutiererMitarbeiterNr
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Property IsMailEmpfang() As Boolean
|
||||
Get
|
||||
Return _isMailEmpfang
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isMailEmpfang = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property IsEdokaMessage() As Boolean
|
||||
Get
|
||||
Return _isEdokaMessage
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isEdokaMessage = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Funktion() As String
|
||||
Get
|
||||
Return _funktion
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_funktion = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property IsMailDirektVersenden() As Boolean
|
||||
Get
|
||||
Return _isMailDirektVersenden
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isMailDirektVersenden = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Rang() As String
|
||||
Get
|
||||
Return _rang
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_rang = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property IsMailDokumentRueckgang() As Boolean
|
||||
Get
|
||||
Return _isMailDokumentRueckgang
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isMailDokumentRueckgang = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property KlassifizierungNr() As Integer
|
||||
Get
|
||||
Return _klassifizierungNr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
_klassifizierungNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property IsEdokaMail() As Boolean
|
||||
Get
|
||||
Return _isEdokaMail
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isEdokaMail = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Journalisierung() As Boolean
|
||||
Get
|
||||
Return _isJournalisierung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isJournalisierung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property IsGebMeldung() As Boolean
|
||||
Get
|
||||
Return _isGebMeldung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
_isGebMeldung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Mail1() As String
|
||||
Get
|
||||
Return _mail1
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
_mail1 = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
'''<summary>Diese Klasse behandelt eine Mitarbeiter spezifische Ausnahme</summary>
|
||||
Public Class MitarbeiterException
|
||||
Inherits Exception
|
||||
|
||||
Dim _message As String
|
||||
|
||||
Public Sub New(ByVal message As String)
|
||||
_message = message
|
||||
End Sub
|
||||
|
||||
Public Overrides ReadOnly Property Message() As String
|
||||
Get
|
||||
Return _message
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user