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.
728 lines
25 KiB
728 lines
25 KiB
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
|