Imports EDOKALib.Common

'''<summary>Diese klasse beinhaltet die Logik für die Dokumenttypen</summary>
Public Class Dokumenttyp

#Region "Members"
    Private _dokumentTypNr As Integer
    Private _bezeichnung As String
    Private _beschreibung As String
    Private _zuVercolden As Boolean
    Private _isZuRetournieren As Boolean
    Private _isEingangErsetztAusgang As Boolean
    Private _isWirdImportiert As Boolean
    Private _anzahlTage As Integer
    Private _dBearbeitungsZeit As Integer
    Private _tageMutation As Integer
    Private _isPartnerSaldierungStatusAlt As Boolean
    Private _isWirdNichtGeloescht As Boolean
    Private _isVertraulichesDokument As Boolean
    Private _isUnterschriftLinks As Boolean
    Private _isUnterschriftRechts As Boolean
    Private _monateBisZurArchivierung As Integer
    Private _aufbewahrungsFristElektronisch As Integer
    Private _aufbewahrungsFristPhysisch As Integer
    Private _mandantNr As Integer 'wird nicht in den properties implemnetiert
    Private _isAktiv As Boolean
    Private _erstelltAm As DateTime
    Private _mutiertAm As DateTime
    Private _mutierer As Integer
    Private _officeVorlageNr As Integer
    Private _dokumentArtKundendossier As Integer
    Private _dokumentArtNeuerstellung As Integer
    Private _dokumentArtRetournierung As Integer
    Private _dokumentArtColdAusgang As Integer
    Private _dokumentArtColdEingang As Integer
    Private _dokumentArtHost As Integer
    Private _dokumentArtWeitere As Integer
    Private _dokumentArtNativ As Integer
    Private _prozessNr As Integer
    Private _prozessNr1 As Integer
    Private _isAmsDokument As Boolean
    Private _isHostDokument As Boolean
    Private _hostDokumenttyp As String
    Private _coldFolder As Integer
    Private _physischesArchiv As Integer
    Private _dokumentStatus As Integer
    Private _isDokumentWirdErstellt As Boolean
    Private _isDokumentWirdRetourniert As Boolean
    Private _isColdErsetzen As Boolean
    Private _isEmailVersand As Boolean
    Private _isFunktionenZuweisen As Boolean
    Private _dokumentStatusBarcode As Integer
    Private _isNurNative As Boolean
    Private _owner As Integer
    Private _isVertrag As Boolean
    Private _objektbezeichnungNr As Integer
    Private _isBedingtRetournierBar As Boolean
    Private _doktypBedingteRetournierung As Integer
    Private _tageBisVernichtungbedingteRetournierung As Integer
    Private _isAnzeigeZurDokumenterstellung As Boolean
    Private _isKundenDokument As Boolean
    Private _isSb As Boolean
    Private _isSbImport As Boolean
    Private _isSbEditUser As Boolean
    Private _isSbNur As Boolean
    Private _isBezeichnungMut As Boolean
    Private _isFarbigArchiviert As Boolean
#End Region


#Region "Constructors"
    '''<summary>default konstruktor</summary>

    Public Sub New()

    End Sub

    '''<summary>lädt den dokumenttyp mit der entsprechenden dokumenttypnr</summary>
    '''<param name="dokumentTypNr"></param>

    Public Sub New(ByVal dokumentTypNr As Integer)
        Dim ds As New DataSet()
        DataAccess.Dokumenttyp.GetDokumenttyp(ds, dokumentTypNr)
        LoadData(ds)
    End Sub
#End Region


#Region "Private Functions"

    '''<summary>lädt die daten aus dem dataset in die members der klasse</summary>
    '''<param name="ds"></param>

    Private Sub LoadData(ByRef ds As DataSet)
        Try
            If Common.Tools.ValidateDS(ds) Then
                _dokumentTypNr = Tools.CToInt32(ds.Tables(0).Rows(0)("dokumentTypNr"))
                _bezeichnung = NullHandler.CToString(ds.Tables(0).Rows(0)("bezeichnung"))
                _beschreibung = NullHandler.CToString(ds.Tables(0).Rows(0)("beschreibung"))
                _zuVercolden = Tools.CToBool(ds.Tables(0).Rows(0)("zu_vercolden"))
                _isZuRetournieren = Tools.CToBool(ds.Tables(0).Rows(0)("zu_retournieren"))
                _isEingangErsetztAusgang = Tools.CToBool(ds.Tables(0).Rows(0)("eingang_ersetzt_ausgang"))
                _isWirdImportiert = Tools.CToBool(ds.Tables(0).Rows(0)("wird_importiert"))
                _anzahlTage = Tools.CToInt32(ds.Tables(0).Rows(0)("anzahl_tage"))
                _dBearbeitungsZeit = Tools.CToInt32(ds.Tables(0).Rows(0)("dbearbeitungszeit"))
                _tageMutation = Tools.CToInt32(ds.Tables(0).Rows(0)("tage_mutation"))
                _isPartnerSaldierungStatusAlt = Tools.CToBool(ds.Tables(0).Rows(0)("partnersaldierung_statusalt"))
                _isWirdNichtGeloescht = Tools.CToBool(ds.Tables(0).Rows(0)("wird_nicht_geloescht"))
                _isVertraulichesDokument = Tools.CToBool(ds.Tables(0).Rows(0)("vertrauliches_dokument"))
                _isUnterschriftLinks = Tools.CToBool(ds.Tables(0).Rows(0)("unterschrift_links"))
                _isUnterschriftRechts = Tools.CToBool(ds.Tables(0).Rows(0)("unterschrift_rechts"))
                _monateBisZurArchivierung = Tools.CToInt32(ds.Tables(0).Rows(0)("monate_bis_zur_archivierung"))
                _aufbewahrungsFristElektronisch = Tools.CToInt32(ds.Tables(0).Rows(0)("aufbewahrungsfrist_elektronisch"))
                _aufbewahrungsFristPhysisch = Tools.CToInt32(ds.Tables(0).Rows(0)("aufbewahrungsfrist_physisch"))
                _mandantNr = NullHandler.CToInt32(ds.Tables(0).Rows(0)("mandantnr"))
                _isAktiv = Tools.CToBool(ds.Tables(0).Rows(0)("aktiv"))
                _erstelltAm = NullHandler.CToDateTime(ds.Tables(0).Rows(0)("erstellt_am"))
                _mutiertAm = NullHandler.CToDateTime(ds.Tables(0).Rows(0)("mutiert_am"))
                _mutierer = NullHandler.CToInt32(ds.Tables(0).Rows(0)("mutierer"))
                _officeVorlageNr = NullHandler.CToInt32(ds.Tables(0).Rows(0)("office_vorlagenr"))
                _dokumentArtKundendossier = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentart_kundendossier"))
                _dokumentArtNeuerstellung = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentart_neuerstellung"))
                _dokumentArtRetournierung = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentart_retournierung"))
                _dokumentArtColdAusgang = Tools.CToInt32(ds.Tables(0).Rows(0)("dokumentart_coldausgang"))
                _dokumentArtColdEingang = Tools.CToInt32(ds.Tables(0).Rows(0)("dokumentart_coldeingang"))
                _dokumentArtHost = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentart_host"))
                _dokumentArtWeitere = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentart_weitere"))
                _dokumentArtNativ = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentart_nativ"))
                _prozessNr = NullHandler.CToInt32(ds.Tables(0).Rows(0)("prozessnr"))
                _prozessNr1 = NullHandler.CToInt32(ds.Tables(0).Rows(0)("prozessnr1"))
                _isAmsDokument = Tools.CToBool(ds.Tables(0).Rows(0)("amsdokument"))
                _isHostDokument = Tools.CToBool(ds.Tables(0).Rows(0)("hostdokument"))
                _hostDokumenttyp = NullHandler.CToString(ds.Tables(0).Rows(0)("hostdokumenttyp"))
                _coldFolder = NullHandler.CToInt32(ds.Tables(0).Rows(0)("cold_folder"))
                _physischesArchiv = NullHandler.CToInt32(ds.Tables(0).Rows(0)("physisches_archiv"))
                _dokumentStatus = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentstatus"))
                _isDokumentWirdErstellt = Tools.CToBool(ds.Tables(0).Rows(0)("Dokument_wird_erstellt"))
                _isDokumentWirdRetourniert = Tools.CToBool(ds.Tables(0).Rows(0)("Dokument_wird_retourniert"))
                _isColdErsetzen = Tools.CToBool(ds.Tables(0).Rows(0)("cold_ersetzen"))
                _isEmailVersand = Tools.CToBool(ds.Tables(0).Rows(0)("email_versand"))
                _isFunktionenZuweisen = Tools.CToBool(ds.Tables(0).Rows(0)("funktionen_zuweisen"))
                _dokumentStatusBarcode = NullHandler.CToInt32(ds.Tables(0).Rows(0)("dokumentstatus_barcode"))
                _isNurNative = Tools.CToBool(ds.Tables(0).Rows(0)("nurnative"))
                _owner = NullHandler.CToInt32(ds.Tables(0).Rows(0)("Owner"))
                _isVertrag = Tools.CToBool(ds.Tables(0).Rows(0)("vertrag"))
                _objektbezeichnungNr = NullHandler.CToInt32(ds.Tables(0).Rows(0)("objektbezeichnungnr"))
                _isBedingtRetournierBar = Tools.CToBool(ds.Tables(0).Rows(0)("bedingtretournierbar"))
                _doktypBedingteRetournierung = NullHandler.CToInt32(ds.Tables(0).Rows(0)("doktypbedingteretournierung"))
                _tageBisVernichtungbedingteRetournierung = NullHandler.CToInt32(ds.Tables(0).Rows(0)("tagebisvernichtungbedingteretournierung"))
                _isAnzeigeZurDokumenterstellung = Tools.CToBool(ds.Tables(0).Rows(0)("AnzeigeZurDokumenterstellung"))
                _isKundenDokument = Tools.CToBool(ds.Tables(0).Rows(0)("KundenDokument"))
                _isSb = Tools.CToBool(ds.Tables(0).Rows(0)("sb"))
                _isSbImport = Tools.CToBool(ds.Tables(0).Rows(0)("sbimport"))
                _isSbEditUser = Tools.CToBool(ds.Tables(0).Rows(0)("sbedituser"))
                _isSbNur = Tools.CToBool(ds.Tables(0).Rows(0)("sbnur"))
                _isBezeichnungMut = Tools.CToBool(ds.Tables(0).Rows(0)("bezeichnungmut"))
                _isFarbigArchiviert = Tools.CToBool(ds.Tables(0).Rows(0)("istFarbigArchiviert"))
            End If
        Catch ex As Exception
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.BF.DokumentTyp.LoadData", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
            Throw ex
        End Try
    End Sub

#End Region


#Region "Public Functions"

    '''<summary>speichert einen dokumenttyp(update und insert)</summary>

    Public Function Save(ByVal mutierer As Integer)
        Try
            Dim err As Integer
            If _dokumentTypNr = 0 Then 'create new
                err = DataAccess.Dokumenttyp.Add(_dokumentTypNr, _bezeichnung, _beschreibung, _zuVercolden, _isZuRetournieren, _
                _isEingangErsetztAusgang, _isWirdImportiert, _anzahlTage, _dBearbeitungsZeit, _tageMutation, _
                _isPartnerSaldierungStatusAlt, _isWirdNichtGeloescht, _isVertraulichesDokument, _isUnterschriftLinks, _
                _isUnterschriftRechts, _monateBisZurArchivierung, _aufbewahrungsFristElektronisch, _
                _aufbewahrungsFristPhysisch, _mandantNr, _isAktiv, _erstelltAm, _mutiertAm, mutierer, _
                _officeVorlageNr, _dokumentArtKundendossier, _dokumentArtNeuerstellung, _dokumentArtRetournierung, _
                _dokumentArtColdAusgang, _dokumentArtColdEingang, _dokumentArtHost, _dokumentArtWeitere, _
                _dokumentArtNativ, _prozessNr, _prozessNr1, _isAmsDokument, _isHostDokument, _hostDokumenttyp, _
                _coldFolder, _physischesArchiv, _dokumentStatus, _isDokumentWirdErstellt, _isDokumentWirdRetourniert, _
                _isColdErsetzen, _isEmailVersand, _isFunktionenZuweisen, _dokumentStatusBarcode, _isNurNative, _
                _owner, _isVertrag, _objektbezeichnungNr, _isBedingtRetournierBar, _doktypBedingteRetournierung, _
                _tageBisVernichtungbedingteRetournierung, _isAnzeigeZurDokumenterstellung, _isKundenDokument, _
                _isSb, _isSbImport, _isSbEditUser, _isSbNur, _isBezeichnungMut, _isFarbigArchiviert)

            Else 'save existing
                err = DataAccess.Dokumenttyp.Update(_dokumentTypNr, _bezeichnung, _beschreibung, _zuVercolden, _isZuRetournieren, _
                _isEingangErsetztAusgang, _isWirdImportiert, _anzahlTage, _dBearbeitungsZeit, _tageMutation, _
                _isPartnerSaldierungStatusAlt, _isWirdNichtGeloescht, _isVertraulichesDokument, _isUnterschriftLinks, _
                _isUnterschriftRechts, _monateBisZurArchivierung, _aufbewahrungsFristElektronisch, _
                _aufbewahrungsFristPhysisch, _mandantNr, _isAktiv, _erstelltAm, _mutiertAm, mutierer, _
                _officeVorlageNr, _dokumentArtKundendossier, _dokumentArtNeuerstellung, _dokumentArtRetournierung, _
                _dokumentArtColdAusgang, _dokumentArtColdEingang, _dokumentArtHost, _dokumentArtWeitere, _
                _dokumentArtNativ, _prozessNr, _prozessNr1, _isAmsDokument, _isHostDokument, _hostDokumenttyp, _
                _coldFolder, _physischesArchiv, _dokumentStatus, _isDokumentWirdErstellt, _isDokumentWirdRetourniert, _
                _isColdErsetzen, _isEmailVersand, _isFunktionenZuweisen, _dokumentStatusBarcode, _isNurNative, _
                _owner, _isVertrag, _objektbezeichnungNr, _isBedingtRetournierBar, _doktypBedingteRetournierung, _
                _tageBisVernichtungbedingteRetournierung, _isAnzeigeZurDokumenterstellung, _isKundenDokument, _
                _isSb, _isSbImport, _isSbEditUser, _isSbNur, _isBezeichnungMut, _isFarbigArchiviert)
            End If

            If err <> 0 Then
                Throw New DokumentartException(Meldungstext.GetInhaltById(40000))
            End If

            'refresh data
            Dim ds As New DataSet()
            DataAccess.Dokumentart.GetDokumentart(ds, _dokumentTypNr)
            LoadData(ds)

        Catch ex As Exception
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.BF.Dokumentart.Save", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
            Throw ex
        End Try
    End Function

    Public Function Delete(ByVal mutierer As Integer)
        Try

        Catch ex As Exception
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.BF.Dokumenttyp.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
            Throw ex
        End Try
    End Function

    Public Shared Function IsMitarbeiterBerechtigt(ByVal dokumentTypNr As Integer, ByVal nrPar00 As Integer, ByVal mitarbeiterNr As Integer) As Boolean
        'If Globals.EDOKAStellvertreterPruefung = False And Globals.EDOKAFremdanwendungStellvertreter = 0 Then
        'Globals.EDOKAFremdanwendungStellvertreter = Globals.MitarbeiterNr
        'End If
        Try
            Return DataAccess.Dokumenttyp.IsMitarbeiterBerechtigt(dokumentTypNr, nrPar00, mitarbeiterNr)
        Catch ex As Exception
            TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Dokumenttyp.IsMitarbeiterBerechtigt", ex.Message & ex.StackTrace, TraceLevel.Error)
            Throw ex
        End Try
    End Function

#End Region


#Region "Properties"
	Public ReadOnly Property DokumentTypNr() As Integer
		Get
			Return _dokumentTypNr
		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 ZuVercolden() As Boolean
		Get
			Return _zuVercolden
		End Get
		Set(ByVal Value As Boolean)
			_zuVercolden = Value
		End Set
	End Property
	Public Property IsZuRetournieren() As Boolean
		Get
			Return _isZuRetournieren
		End Get
		Set(ByVal Value As Boolean)
			_isZuRetournieren = Value
		End Set
	End Property
	Public Property IsEingangErsetztAusgang() As Boolean
		Get
			Return _isEingangErsetztAusgang
		End Get
		Set(ByVal Value As Boolean)
			_isEingangErsetztAusgang = Value
		End Set
	End Property
	Public Property IsWirdImportiert() As Boolean
		Get
			Return _isWirdImportiert
		End Get
		Set(ByVal Value As Boolean)
			_isWirdImportiert = Value
		End Set
	End Property
	Public Property AnzahlTage() As Integer
		Get
			Return _anzahlTage
		End Get
		Set(ByVal Value As Integer)
			_anzahlTage = Value
		End Set
	End Property
	Public Property DBearbeitungsZeit() As Integer
		Get
			Return _dBearbeitungsZeit
		End Get
		Set(ByVal Value As Integer)
			_dBearbeitungsZeit = Value
		End Set
	End Property
	Public Property TageMutation() As Integer
		Get
			Return _tageMutation
		End Get
		Set(ByVal Value As Integer)
			_tageMutation = Value
		End Set
	End Property
	Public Property IsPartnerSaldierungStatusAlt() As Boolean
		Get
			Return _isPartnerSaldierungStatusAlt
		End Get
		Set(ByVal Value As Boolean)
			_isPartnerSaldierungStatusAlt = Value
		End Set
	End Property
	Public Property IsWirdNichtGeloescht() As Boolean
		Get
			Return _isWirdNichtGeloescht
		End Get
		Set(ByVal Value As Boolean)
			_isWirdNichtGeloescht = Value
		End Set
	End Property
	Public Property IsVertraulichesDokument() As Boolean
		Get
			Return _isVertraulichesDokument
		End Get
		Set(ByVal Value As Boolean)
			_isVertraulichesDokument = Value
		End Set
	End Property
	Public Property IsUnterschriftLinks() As Boolean
		Get
			Return _isUnterschriftLinks
		End Get
		Set(ByVal Value As Boolean)
			_isUnterschriftLinks = Value
		End Set
	End Property
	Public Property IsUnterschriftRechts() As Boolean
		Get
			Return _isUnterschriftRechts
		End Get
		Set(ByVal Value As Boolean)
			_isUnterschriftRechts = Value
		End Set
	End Property
	Public Property MonateBisZurArchivierung() As Integer
		Get
			Return _monateBisZurArchivierung
		End Get
		Set(ByVal Value As Integer)
			_monateBisZurArchivierung = Value
		End Set
	End Property
	Public Property AufbewahrungsFristElektronisch() As Integer
		Get
			Return _aufbewahrungsFristElektronisch
		End Get
		Set(ByVal Value As Integer)
			_aufbewahrungsFristElektronisch = Value
		End Set
	End Property
	Public Property AufbewahrungsFristPhysisch() As Integer
		Get
			Return _aufbewahrungsFristPhysisch
		End Get
		Set(ByVal Value As Integer)
			_aufbewahrungsFristPhysisch = 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 ErstelltAm() As DateTime
		Get
			Return _erstelltAm
		End Get
		Set(ByVal Value As DateTime)
			_erstelltAm = 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 Mutierer() As Integer
		Get
			Return _mutierer
		End Get
		Set(ByVal Value As Integer)
			_mutierer = Value
		End Set
	End Property
	Public Property OfficeVorlageNr() As Integer
		Get
			Return _officeVorlageNr
		End Get
		Set(ByVal Value As Integer)
			_officeVorlageNr = Value
		End Set
	End Property
	Public Property DokumentArtKundendossier() As Integer
		Get
			Return _dokumentArtKundendossier
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtKundendossier = Value
		End Set
	End Property
	Public Property DokumentArtNeuerstellung() As Integer
		Get
			Return _dokumentArtNeuerstellung
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtNeuerstellung = Value
		End Set
	End Property
	Public Property DokumentArtRetournierung() As Integer
		Get
			Return _dokumentArtRetournierung
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtRetournierung = Value
		End Set
	End Property
	Public Property DokumentArtColdAusgang() As Integer
		Get
			Return _dokumentArtColdAusgang
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtColdAusgang = Value
		End Set
	End Property
	Public Property DokumentArtColdEingang() As Integer
		Get
			Return _dokumentArtColdEingang
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtColdEingang = Value
		End Set
	End Property
	Public Property DokumentArtHost() As Integer
		Get
			Return _dokumentArtHost
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtHost = Value
		End Set
	End Property
	Public Property DokumentArtWeitere() As Integer
		Get
			Return _dokumentArtWeitere
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtWeitere = Value
		End Set
	End Property
	Public Property DokumentArtNativ() As Integer
		Get
			Return _dokumentArtNativ
		End Get
		Set(ByVal Value As Integer)
			_dokumentArtNativ = Value
		End Set
	End Property
	Public Property ProzessNr() As Integer
		Get
			Return _prozessNr
		End Get
		Set(ByVal Value As Integer)
			_prozessNr = Value
		End Set
	End Property
	Public Property ProzessNr1() As Integer
		Get
			Return _prozessNr1
		End Get
		Set(ByVal Value As Integer)
			_prozessNr1 = Value
		End Set
	End Property
	Public Property IsAmsDokument() As Boolean
		Get
			Return _isAmsDokument
		End Get
		Set(ByVal Value As Boolean)
			_isAmsDokument = Value
		End Set
	End Property
	Public Property IsHostDokument() As Boolean
		Get
			Return _isHostDokument
		End Get
		Set(ByVal Value As Boolean)
			_isHostDokument = Value
		End Set
	End Property
	Public Property HostDokumenttyp() As String
		Get
			Return _hostDokumenttyp
		End Get
		Set(ByVal Value As String)
			_hostDokumenttyp = Value
		End Set
	End Property
	Public Property ColdFolder() As Integer
		Get
			Return _coldFolder
		End Get
		Set(ByVal Value As Integer)
			_coldFolder = Value
		End Set
	End Property
	Public Property PhysischesArchiv() As Integer
		Get
			Return _physischesArchiv
		End Get
		Set(ByVal Value As Integer)
			_physischesArchiv = Value
		End Set
	End Property
	Public Property DokumentStatus() As Integer
		Get
			Return _dokumentStatus
		End Get
		Set(ByVal Value As Integer)
			_dokumentStatus = Value
		End Set
	End Property
	Public Property IsDokumentWirdErstellt() As Boolean
		Get
			Return _isDokumentWirdErstellt
		End Get
		Set(ByVal Value As Boolean)
			_isDokumentWirdErstellt = Value
		End Set
	End Property
	Public Property IsDokumentWirdRetourniert() As Boolean
		Get
			Return _isDokumentWirdRetourniert
		End Get
		Set(ByVal Value As Boolean)
			_isDokumentWirdRetourniert = Value
		End Set
	End Property
	Public Property IsColdErsetzen() As Boolean
		Get
			Return _isColdErsetzen
		End Get
		Set(ByVal Value As Boolean)
			_isColdErsetzen = Value
		End Set
	End Property
	Public Property IsEmailVersand() As Boolean
		Get
			Return _isEmailVersand
		End Get
		Set(ByVal Value As Boolean)
			_isEmailVersand = Value
		End Set
	End Property
	Public Property IsFunktionenZuweisen() As Boolean
		Get
			Return _isFunktionenZuweisen
		End Get
		Set(ByVal Value As Boolean)
			_isFunktionenZuweisen = Value
		End Set
	End Property
	Public Property DokumentStatusBarcode() As Integer
		Get
			Return _dokumentStatusBarcode
		End Get
		Set(ByVal Value As Integer)
			_dokumentStatusBarcode = Value
		End Set
	End Property
	Public Property IsNurNative() As Boolean
		Get
			Return _isNurNative
		End Get
		Set(ByVal Value As Boolean)
			_isNurNative = Value
		End Set
	End Property
	Public Property Owner() As Integer
		Get
			Return _owner
		End Get
		Set(ByVal Value As Integer)
			_owner = Value
		End Set
	End Property
	Public Property IsVertrag() As Boolean
		Get
			Return _isVertrag
		End Get
		Set(ByVal Value As Boolean)
			_isVertrag = Value
		End Set
	End Property
	Public Property ObjektbezeichnungNr() As Integer
		Get
			Return _objektbezeichnungNr
		End Get
		Set(ByVal Value As Integer)
			_objektbezeichnungNr = Value
		End Set
	End Property
	Public Property IsBedingtRetournierBar() As Boolean
		Get
			Return _isBedingtRetournierBar
		End Get
		Set(ByVal Value As Boolean)
			_isBedingtRetournierBar = Value
		End Set
	End Property
	Public Property DoktypBedingteRetournierung() As Integer
		Get
			Return _doktypBedingteRetournierung
		End Get
		Set(ByVal Value As Integer)
			_doktypBedingteRetournierung = Value
		End Set
	End Property
	Public Property TageBisVernichtungbedingteRetournierung() As Integer
		Get
			Return _tageBisVernichtungbedingteRetournierung
		End Get
		Set(ByVal Value As Integer)
			_tageBisVernichtungbedingteRetournierung = Value
		End Set
	End Property
	Public Property IsAnzeigeZurDokumenterstellung() As Boolean
		Get
			Return _isAnzeigeZurDokumenterstellung
		End Get
		Set(ByVal Value As Boolean)
			_isAnzeigeZurDokumenterstellung = Value
		End Set
	End Property
	Public Property IsKundenDokument() As Boolean
		Get
			Return _isKundenDokument
		End Get
		Set(ByVal Value As Boolean)
			_isKundenDokument = Value
		End Set
	End Property
	Public Property IsSb() As Boolean
		Get
			Return _isSb
		End Get
		Set(ByVal Value As Boolean)
			_isSb = Value
		End Set
	End Property
	Public Property IsSbImport() As Boolean
		Get
			Return _isSbImport
		End Get
		Set(ByVal Value As Boolean)
			_isSbImport = Value
		End Set
	End Property
	Public Property IsSbEditUser() As Boolean
		Get
			Return _isSbEditUser
		End Get
		Set(ByVal Value As Boolean)
			_isSbEditUser = Value
		End Set
	End Property
	Public Property IsSbNur() As Boolean
		Get
			Return _isSbNur
		End Get
		Set(ByVal Value As Boolean)
			_isSbNur = Value
		End Set
	End Property
	Public Property IsBezeichnungMut() As Boolean
		Get
			Return _isBezeichnungMut
		End Get
		Set(ByVal Value As Boolean)
			_isBezeichnungMut = Value
		End Set
	End Property
	Public Property IsFarbigArchiviert() As Boolean
		Get
			Return _isFarbigArchiviert
		End Get
		Set(ByVal Value As Boolean)
			_isFarbigArchiviert = Value
		End Set
	End Property


#End Region

End Class