ToolCollection/ToolCollection/ClassNIProfil.vb

Public Class ClassNIProfil

    Private _originalProfilname As String
    Private _originalWindreamSuche As String
    Private _originalDbArt As String
    Private _originalDataSource As String
    Private _originalUserId As String
    Private _originalPassword As String
    Private _originalInitialCatalog As String
    Private _originalSQLAnweisung As String
    Private _originalwindreamIndex As String
    Private _originalcheckIndexSQL As String
    Private _originalfinalerIndex As String
    Private _originalaktiv As String
    Private _originalMR_IndexKunde As String
    Private _originalMR_IndexDokart As String
    Private _originalindexValidation As String
    Private _originalindexFehler As String
    Private _originalNI_ART As String
    Private _originalxmlEnd As String
    Private _originalxmlFolder As String
    Private _originaldelete As String
    Private _originalmove2Folder As String
    Private _originalIntervall As Integer
    Private _originallastRun As String
    Private _originalNB_AD As Boolean
    Private _originalGetOrdnerRechte As Boolean
    Private _originalordnerType As String
    Private _originalordnerType_Eb As String
    Private _originalCrFolderIndex As String
    Private _originalCrFolder_Folder As String
    Private _originalCrFolder_move As Boolean

    Private _profilname As String
    Private _dokumenttyp As WINDREAMLib.WMObject
    Public Shared _dokumenttypString As String
    Private _windreamSuche As String
    Private _dbArt As String
    Private _dataSource As String
    Private _userId As String
    Private _password As String
    Private _initialCatalog As String
    Private _SQLAnweisung As String
    Private _windreamIndex As String
    Private _checkIndexSQL As String
    Private _finalerIndex As String
    Private _aktiv As String
    Private _MR_IndexKunde As String
    Private _MR_IndexDokart As String
    Private _indexValidation As String
    Private _indexFehler As String
    Private _NI_ART As String
    Private _xmlEnd As String
    Private _xmlFolder As String
    Private _delete As String
    Private _move2Folder As String
    Private _Intervall As Integer
    Private _lastRun As String
    Private _NB_AD As Boolean
    Private _GetOrdnerRechte As Boolean
    Private _ordnerType As String
    Private _ordnerType_Eb As String
    Private _CrFolderIndex As String
    Private _CrFolder_Folder As String
    Private _CrFolder_Created_Folder As String
    Private _CrFolder_move As Boolean

    Public Shared _windream As New ClassWindream_allgemein(CURR_LogConfig)

    Private _saved As Boolean = True
    'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration

    'Private _xmlConfigFile As String = My.Settings.vConfigDatei

    Public _links As ClassNIVerknüpfungen 'ClassNachindexierungVerknüpfungen

    ''' <summary>
    ''' Konstruktor zum Anlegen oder Laden eines Profils
    ''' </summary>
    ''' <param name="profilname">Profilname</param>
    ''' <param name="dokumenttyp_string"></param>
    ''' <param name="windreamSuche"></param>
    ''' <remarks></remarks>
    Sub New(ByVal profilname As String, ByVal dokumenttyp_string As String, ByVal windreamSuche As String,
            ByVal NI_Art As String, ByVal xmlEnd As String, ByVal folderxml As String, ByVal delfiles As String, ByVal dbArt As String, ByVal dataSource As String, ByVal userId As String,
              ByVal password As String, ByVal initialCatalog As String, ByVal SQLAnweisung As String, ByVal windreamIndex As String, ByVal checkIndexSQL As String, ByVal indexVali As String, ByVal indexFehler As String,
              ByVal finalerIndex As String, ByVal aktiv As String, ByVal mrDAIndex As String, ByVal mrKDIndex As String, ByVal move2Folder As String, ByVal intervall As Integer, ByVal lastRun As String, ByVal NB_AD As Boolean,
              ByVal getOrdRechte As Boolean, ByVal ordnerType As String, ByVal ordnerType_Eb As String,
               ByVal CreaFolderIndex As String, ByVal CreaFolder_Folder As String, ByVal CreaFolder_move As Boolean)

        Me._dokumenttypString = dokumenttyp_string
        Me._dokumenttyp = _windream.GetObjecttypeByName(dokumenttyp_string, False)

        Me._originalProfilname = profilname
        Me._originalWindreamSuche = windreamSuche
        Me._originalwindreamIndex = windreamIndex
        Me._originalcheckIndexSQL = checkIndexSQL
        Me._originalNI_ART = NI_Art
        Me._originalxmlEnd = xmlEnd
        Me._originalDbArt = dbArt
        Me._originalDataSource = dataSource
        Me._originalUserId = userId
        Me._originalPassword = password
        Me._originalInitialCatalog = initialCatalog
        Me._originalSQLAnweisung = SQLAnweisung
        Me._originalfinalerIndex = finalerIndex
        Me._originalMR_IndexDokart = mrDAIndex
        Me._originalMR_IndexKunde = mrKDIndex
        Me._originalaktiv = aktiv
        Me._originalindexValidation = indexVali
        Me._originalindexFehler = indexFehler
        Me._originalxmlFolder = folderxml
        Me._originaldelete = delfiles
        Me._originalmove2Folder = move2Folder
        Me._originalIntervall = intervall
        Me._originallastRun = lastRun
        Me._originalNB_AD = NB_AD
        Me._originalGetOrdnerRechte = getOrdRechte
        Me._originalordnerType = ordnerType
        Me._originalordnerType_Eb = ordnerType_Eb
        Me._originalCrFolderIndex = CreaFolderIndex
        Me._originalCrFolder_Folder = CreaFolder_Folder
        Me._originalCrFolder_move = CreaFolder_move

        Me._profilname = profilname
        Me._dokumenttyp = Dokumenttyp
        Me._windreamSuche = windreamSuche
        Me._NI_ART = NI_Art
        Me._xmlEnd = xmlEnd
        Me._dbArt = dbArt
        Me._dataSource = dataSource
        Me._userId = userId
        Me._password = password
        Me._initialCatalog = initialCatalog
        Me._SQLAnweisung = SQLAnweisung
        Me._windreamIndex = windreamIndex
        Me._checkIndexSQL = checkIndexSQL
        Me._finalerIndex = finalerIndex
        Me._MR_IndexDokart = mrDAIndex
        Me._MR_IndexKunde = mrKDIndex
        Me._aktiv = aktiv
        Me._indexValidation = indexVali
        Me._indexFehler = indexFehler
        Me._xmlFolder = folderxml
        Me._delete = delfiles
        Me._move2Folder = move2Folder
        Me._Intervall = intervall
        Me._lastRun = lastRun
        Me._NB_AD = NB_AD
        _GetOrdnerRechte = getOrdRechte
        _ordnerType = ordnerType
        Me._ordnerType_Eb = ordnerType_Eb
        Me._CrFolderIndex = CreaFolderIndex
        Me._CrFolder_Folder = CreaFolder_Folder
        _CrFolder_move = CreaFolder_move

        Me._saved = True

        'Me._regeln = New ClassDateiimportRegeln(profilname)

        Me._links = New ClassNIVerknüpfungen(Me)
    End Sub

    ''' <summary>
    ''' Konstruktor ohne Tätigkeit
    ''' </summary>
    ''' <remarks>wenn im Konstruktor kein Parameter übergeben wurde soll auch nichts gemacht werden</remarks>
    Sub New()
    End Sub

    ''' <summary>
    ''' Speichert das Profil
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Save(ByVal msg As Boolean, item As String)

        Try
            ' wenn das Profil nicht gespeichert ist
            If Not Me.GetSaved Then
                ' wenn ein Profilname für dieses Profil gesetzt ist
                If Me._profilname IsNot Nothing And Me._originalProfilname IsNot Nothing Then
                    ' XML-Datei initialisieren
                    Dim xml As New Xml.XmlDocument()
                    ' Profil initialisieren
                    Dim xmlProfil As Xml.XmlElement

                    ' XML-Datei öffnen und laden
                    xml.Load(My.Settings.vNIConfigDatei)

                    ' den XML-Knoten des Profils laden
                    xmlProfil = xml.SelectSingleNode("//Settings/Profile/Profil[@profilname='" & Me._originalProfilname & "']")

                    ' wenn der Knoten NICHT gefunden wurde -> Vorgang abbrechen
                    If xmlProfil Is Nothing Then Return False


                    ' die neuen Werte den Originalwerten zuweisen
                    Me._originalProfilname = Me._profilname
                    Me._originalWindreamSuche = Me._windreamSuche
                    Me._originalNI_ART = Me._NI_ART
                    Me._originalxmlEnd = _xmlEnd

                    Me._originalDbArt = DbArt
                    Me._originalDbArt = Me._dbArt
                    Me._originalDataSource = Me._dataSource
                    Me._originalUserId = Me._userId
                    Me._originalPassword = Me._password
                    Me._originalSQLAnweisung = Me._SQLAnweisung
                    Me._originalwindreamIndex = Me._windreamIndex
                    Me._originalcheckIndexSQL = Me._checkIndexSQL
                    Me._originalfinalerIndex = Me._finalerIndex
                    Me._originalaktiv = Me._aktiv
                    Me._originalMR_IndexDokart = Me._MR_IndexDokart
                    Me._originalMR_IndexKunde = Me._MR_IndexKunde
                    Me._originalindexValidation = Me._indexValidation
                    Me._originalindexFehler = _indexFehler
                    Me._originalxmlFolder = _xmlFolder
                    Me._originaldelete = _delete
                    Me._originalmove2Folder = _move2Folder
                    Me._originalNB_AD = Me._NB_AD
                    Me._originalInitialCatalog = Me._initialCatalog
                    Me._originalGetOrdnerRechte = _GetOrdnerRechte
                    Me._originalordnerType = _ordnerType
                    Me._originalordnerType_Eb = _ordnerType_Eb
                    Me._originalCrFolderIndex = _CrFolderIndex
                    Me._originalCrFolder_Folder = _CrFolder_Folder
                    Me._originalCrFolder_move = _CrFolder_move

                    'MsgBox(Me._MR_IndexDokart & vbNewLine & Me._MR_IndexKunde)
                    ' die neuen Werte in die XML-Datei schreiben
                    xmlProfil.Attributes("profilname").Value = Me._profilname
                    'Niemals den Objekttyp speichern kann zu Fehlern führen
                    ' xmlProfil.Attributes("dokumenttyp").Value = Me._dokumenttypString
                    xmlProfil.Attributes("windreamsuche").Value = Me._windreamSuche
                    xmlProfil.Attributes("ni_art").Value = Me._NI_ART
                    xmlProfil.Attributes("xml_end").Value = Me._xmlEnd
                    xmlProfil.Attributes("folder").Value = Me._xmlFolder
                    xmlProfil.Attributes("delete").Value = Me._delete

                    Me._originalIntervall = Me._Intervall
                    Me._lastRun = Me._lastRun


                    xmlProfil.Attributes("dbArt").Value = Me._dbArt
                    xmlProfil.Attributes("dataSource").Value = Me._dataSource
                    xmlProfil.Attributes("initialCatalog").Value = Me._initialCatalog


                    xmlProfil.Attributes("sqlanweisung").Value = Me._SQLAnweisung
                    xmlProfil.Attributes("windreamIndex").Value = Me._windreamIndex
                    xmlProfil.Attributes("checkIndexSQL").Value = Me._checkIndexSQL
                    xmlProfil.Attributes("indexValidation").Value = Me._indexValidation
                    xmlProfil.Attributes("indexFehler").Value = Me._indexFehler

                    xmlProfil.Attributes("finalerIndex").Value = Me._finalerIndex
                    xmlProfil.Attributes("mr_DAIndex").Value = Me._MR_IndexDokart
                    xmlProfil.Attributes("mr_KDIndex").Value = Me._MR_IndexKunde
                    xmlProfil.Attributes("aktiv").Value = Me._aktiv
                    xmlProfil.Attributes("move2Folder").Value = Me._move2Folder
                    xmlProfil.Attributes("intervall").Value = Me._Intervall
                    xmlProfil.Attributes("lastrun").Value = Me._lastRun
                    xmlProfil.Attributes("NB_AD").Value = Me._NB_AD

                    xmlProfil.Attributes("getordneridx").Value = Me._GetOrdnerRechte
                    xmlProfil.Attributes("ordnerType").Value = Me._ordnerType
                    xmlProfil.Attributes("ordnerType_eb").Value = Me._ordnerType_Eb

                    xmlProfil.Attributes("userId").Value = Me._userId
                    xmlProfil.Attributes("password").Value = Me._password

                    xmlProfil.Attributes("crfolderindex").Value = _CrFolderIndex
                    xmlProfil.Attributes("crfolder_folder").Value = _CrFolder_Folder
                    xmlProfil.Attributes("crfolder_move").Value = _CrFolder_move

                    'MsgBox(xmlProfil.Attributes("mr_DAIndex").Value & vbNewLine & xmlProfil.Attributes("mr_KDIndex").Value)

                    'If Me._userId IsNot Nothing Then
                    '    xmlProfil.Attributes("userId").Value = Me._userId
                    '    If Me._password IsNot Nothing Then
                    '        xmlProfil.Attributes("password").Value = Me._password
                    '    End If
                    'End If

                    ' XML-Datei speichern
                    xml.Save(My.Settings.vNIConfigDatei)

                    ' Profil auf gespeichert setzen
                    Me._saved = True

                    'If msg = True And item = "profile" Then MsgBox("Das Profil '" & Me._originalProfilname & "' wurde erfolgreich gespeichert.", MsgBoxStyle.Information, "Profil gespeichert")
                    If msg = True And item = "profile" Then MsgBox("Änderungen wurden erfolgreich gespeichert.", MsgBoxStyle.Information, "Profil gespeichert")

                    Return True
                Else
                    If msg = True Then MsgBox("Es wurde kein Profilname für das Profil definiert.", MsgBoxStyle.Information, "Profil konnte nicht gespeichert werden")
                    Return False
                End If
            End If

            Return False

        Catch ex As Exception
            If msg = True Then MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines Profils")
            Return False
        End Try
    End Function

    ''' <summary>
    ''' Setzt im aktuellen Profil alle Einstellungen auf die Originalwerte zurück.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub SetBackToOriginal()
        Me._profilname = Me._originalProfilname
        Me._windreamSuche = Me._originalWindreamSuche
        Me._NI_ART = Me._originalNI_ART
        Me._xmlEnd = Me._originalxmlEnd
        Me._dbArt = Me._originalDbArt
        Me._dataSource = Me._originalDataSource
        Me._userId = Me._originalUserId
        Me._password = Me._originalPassword
        Me._SQLAnweisung = Me._originalSQLAnweisung
        Me._windreamIndex = Me._originalwindreamIndex
        Me._checkIndexSQL = Me._originalcheckIndexSQL
        Me._indexValidation = Me._originalindexValidation
        Me._indexFehler = Me._originalindexFehler
        Me._finalerIndex = Me._originalfinalerIndex
        Me._aktiv = Me._originalaktiv
        Me._MR_IndexDokart = Me._originalMR_IndexDokart
        Me._xmlFolder = Me._originalxmlFolder
        Me._delete = Me._originaldelete
        Me._move2Folder = Me._originalmove2Folder
        Me._Intervall = Me._originalIntervall
        Me._NB_AD = Me._originalNB_AD

        Me._GetOrdnerRechte = Me._originalGetOrdnerRechte
        Me._ordnerType = Me._originalordnerType
        Me._ordnerType_Eb = Me._originalordnerType_Eb
        Me._CrFolderIndex = _originalCrFolderIndex
        Me._CrFolder_Folder = _originalCrFolder_Folder
        Me._CrFolder_move = _originalCrFolder_move

    End Sub

    ''' <summary>
    ''' Setzt das Profil auf geändert.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub setChanged()
        ' Profil auf geändert setzen
        Me._saved = False
    End Sub

    ''' <summary>
    ''' Setzt das Profil auf gespeichert.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub setSaved()
        ' Profil auf gespeichert setzen
        Me._saved = True
    End Sub




    Public ReadOnly Property HasChanges() As Boolean
        Get
            If Me._profilname = Me._originalProfilname And
               Me._windreamSuche = Me._originalWindreamSuche And
               Me._NI_ART = Me._originalNI_ART And
               Me._xmlEnd = Me._originalxmlEnd And
                Me._dbArt = Me._originalDbArt And
                Me._initialCatalog = Me._originalInitialCatalog And
                Me._dataSource = Me._originalDataSource And
                Me._userId = Me._originalUserId And
                Me._password = Me._originalPassword And
                Me._windreamIndex = Me._originalwindreamIndex And
                Me._checkIndexSQL = Me._originalcheckIndexSQL And
                Me._indexValidation = Me._originalindexValidation And
                Me._indexFehler = Me._originalindexFehler And
                Me._finalerIndex = Me._originalfinalerIndex And
                Me._aktiv = Me._originalaktiv And
                Me._MR_IndexDokart = Me._originalMR_IndexDokart And
                Me._MR_IndexKunde = Me._originalMR_IndexKunde And
                Me._xmlFolder = Me._originalxmlFolder And
                Me._delete = Me._originaldelete And
                 Me._move2Folder = Me._originalmove2Folder And
               Me.Intervall = Me.OriginalIntervall And
               Me.LastRun = Me.OriginallastRun And
               Me.NachbearbeitungAD = Me.OriginalNachbearbeitungAD And
                Me._GetOrdnerRechte = Me._originalGetOrdnerRechte And
                Me._ordnerType = Me._originalordnerType And
                 Me._ordnerType_Eb = Me._originalordnerType_Eb And
                  Me._CrFolderIndex = _originalCrFolderIndex And
                Me._CrFolder_Folder = _originalCrFolder_Folder And
                Me._CrFolder_move = Me._originalCrFolder_move Then

                Return False
            Else
                Return True
            End If
        End Get
    End Property

    Public ReadOnly Property GetSaved() As Boolean
        Get
            Return Me._saved
        End Get
    End Property

    Public ReadOnly Property IsSaved() As Boolean
        Get
            Return Me._saved = True
        End Get
    End Property

    Public Property OriginalProfilname() As String
        Get
            Return Me._originalProfilname
        End Get
        Set(ByVal value As String)
            Me._originalProfilname = value
        End Set
    End Property

    Public Property Profilname() As String
        Get
            Return Me._profilname
        End Get
        Set(ByVal value As String)
            Me._profilname = value

            ' Profil auf geändert setzen
            Me.setChanged()
        End Set
    End Property

    Public Property OriginalWindreamSuche() As String
        Get
            Return Me._originalWindreamSuche
        End Get
        Set(ByVal value As String)
            Me._originalWindreamSuche = value
        End Set
    End Property

    Public Property WindreamSuche() As String
        Get
            Return Me._windreamSuche
        End Get
        Set(ByVal value As String)
            Me._windreamSuche = value

            ' Profil auf geändert setzen
            Me.setChanged()
        End Set
    End Property
    Public Property Original_NiArt() As String
        Get
            Return Me._originalNI_ART
        End Get
        Set(ByVal value As String)
            Me._originalNI_ART = value
        End Set
    End Property

    Public Property Ni_Art() As String
        Get
            Return Me._NI_ART
        End Get
        Set(ByVal value As String)
            Me._NI_ART = value

            ' Profil auf geändert setzen
            Me.setChanged()
        End Set
    End Property
    Public Property Original_xmlEnd() As String
        Get
            Return Me._originalxmlEnd
        End Get
        Set(ByVal value As String)
            Me._originalxmlEnd = value
        End Set
    End Property

    Public Property xmlEnd() As String
        Get
            Return Me._xmlEnd
        End Get
        Set(ByVal value As String)
            Me._xmlEnd = value

            ' Profil auf geändert setzen
            Me.setChanged()
        End Set
    End Property
    Public Property Dokumenttyp() As WINDREAMLib.WMObject
        Get
            Return Me._dokumenttyp
        End Get
        Set(ByVal value As WINDREAMLib.WMObject)
            Me._dokumenttyp = value
            Me.setChanged()
        End Set
    End Property

    Public ReadOnly Property DokumenttypString() As String
        Get
            If Me.Dokumenttyp IsNot Nothing Then
                Me._dokumenttypString = Me.Dokumenttyp.aName
                Return Me._dokumenttypString
            Else
                Return Me._dokumenttypString
            End If
        End Get
    End Property
    Public Property OriginalDbArt() As String
        Get
            Return Me._originalDbArt
        End Get
        Set(ByVal value As String)
            Me._originalDbArt = value
        End Set
    End Property

    Public Property DbArt() As String
        Get
            Return Me._dbArt
        End Get
        Set(ByVal value As String)
            Me._dbArt = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalDataSource() As String
        Get
            Return Me._originalDataSource
        End Get
        Set(ByVal value As String)
            Me._originalDataSource = value
        End Set
    End Property

    Public Property DataSource() As String
        Get
            Return Me._dataSource
        End Get
        Set(ByVal value As String)
            Me._dataSource = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalUserId() As String
        Get
            Return Me._originalUserId
        End Get
        Set(ByVal value As String)
            Me._originalUserId = value
        End Set
    End Property

    Public Property UserId() As String
        Get
            Return Me._userId
        End Get
        Set(ByVal value As String)
            Me._userId = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalPassword() As String
        Get
            Return Me._originalPassword
        End Get
        Set(ByVal value As String)
            Me._originalPassword = value
        End Set
    End Property

    Public Property Password() As String
        Get
            Return Me._password
        End Get
        Set(ByVal value As String)
            Me._password = value
            Me.setChanged()
        End Set
    End Property

    Public Property OriginalInitalCatalog() As String
        Get
            Return Me._originalInitialCatalog
        End Get
        Set(ByVal value As String)
            Me._originalInitialCatalog = value
        End Set
    End Property

    Public Property InitialCatalog() As String
        Get
            Return Me._initialCatalog
        End Get
        Set(ByVal value As String)
            Me._initialCatalog = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalSQL_Anweisung() As String
        Get
            Return Me._originalSQLAnweisung
        End Get
        Set(ByVal value As String)
            Me._originalSQLAnweisung = value
        End Set
    End Property

    Public Property SQL_Anweisung() As String
        Get
            Return Me._SQLAnweisung
        End Get
        Set(ByVal value As String)
            Me._SQLAnweisung = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalwindreamIndex() As String
        Get
            Return Me._originalwindreamIndex
        End Get
        Set(ByVal value As String)
            Me._originalwindreamIndex = value
        End Set
    End Property

    Public Property Desk_windreamIndex() As String
        Get
            Return Me._windreamIndex
        End Get
        Set(ByVal value As String)
            Me._windreamIndex = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalcheckIndexsql() As String
        Get
            Return Me._originalcheckIndexSQL
        End Get
        Set(ByVal value As String)
            Me._originalcheckIndexSQL = value
        End Set
    End Property

    Public Property checkIndexsql() As String
        Get
            Return Me._checkIndexSQL
        End Get
        Set(ByVal value As String)
            Me._checkIndexSQL = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalIndexValidation() As String
        Get
            Return Me._originalindexValidation
        End Get
        Set(ByVal value As String)
            Me._originalindexValidation = value
        End Set
    End Property

    Public Property IndexValidation() As String
        Get
            Return Me._indexValidation
        End Get
        Set(ByVal value As String)
            Me._indexValidation = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalIndexFehler() As String
        Get
            Return Me._originalindexFehler
        End Get
        Set(ByVal value As String)
            Me._originalindexFehler = value
        End Set
    End Property

    Public Property IndexFehler() As String
        Get
            Return Me._indexFehler
        End Get
        Set(ByVal value As String)
            Me._indexFehler = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalfinalerIndex() As String
        Get
            Return Me._originalfinalerIndex
        End Get
        Set(ByVal value As String)
            Me._originalfinalerIndex = value
        End Set
    End Property

    Public Property finalerIndex() As String
        Get
            Return Me._finalerIndex
        End Get
        Set(ByVal value As String)
            Me._finalerIndex = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalAktiv() As String
        Get
            Return Me._originalaktiv
        End Get
        Set(ByVal value As String)
            Me._originalaktiv = value
        End Set
    End Property

    Public Property Aktiv() As String
        Get
            Return Me._aktiv
        End Get
        Set(ByVal value As String)
            Me._aktiv = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalMR_KDIndex() As String
        Get
            Return Me._originalMR_IndexKunde
        End Get
        Set(ByVal value As String)
            Me._originalMR_IndexKunde = value
        End Set
    End Property

    Public Property MR_KDIndex() As String
        Get
            Return Me._MR_IndexKunde
        End Get
        Set(ByVal value As String)
            Me._MR_IndexKunde = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalMR_DAIndex() As String
        Get
            Return Me._originalMR_IndexDokart
        End Get
        Set(ByVal value As String)
            Me._originalMR_IndexDokart = value
        End Set
    End Property

    Public Property MR_DAIndex() As String
        Get
            Return Me._MR_IndexDokart
        End Get
        Set(ByVal value As String)
            Me._MR_IndexDokart = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalxmlFolder As String
        Get
            Return Me._originalxmlFolder
        End Get
        Set(ByVal value As String)
            Me._originalxmlFolder = value
        End Set
    End Property

    Public Property xmlFolder() As String
        Get
            Return Me._xmlFolder
        End Get
        Set(ByVal value As String)
            Me._xmlFolder = value
            Me.setChanged()
        End Set
    End Property
    Public Property Originaldelete As String
        Get
            Return Me._originaldelete
        End Get
        Set(ByVal value As String)
            Me._originaldelete = value
        End Set
    End Property

    Public Property delete As String
        Get
            Return Me._delete
        End Get
        Set(ByVal value As String)
            Me._delete = value
            Me.setChanged()
        End Set
    End Property
    Public Property Originalmove2Folder As String
        Get
            Return Me._originalmove2Folder
        End Get
        Set(ByVal value As String)
            Me._originalmove2Folder = value
        End Set
    End Property

    Public Property move2Folder As String
        Get
            Return Me._move2Folder
        End Get
        Set(ByVal value As String)
            Me._move2Folder = value
            Me.setChanged()
        End Set
    End Property
    Public ReadOnly Property OriginalIntervall() As Integer
        Get
            Return Me._originalIntervall
        End Get
    End Property

    Public Property Intervall() As Integer
        Get
            Return Me._Intervall
        End Get
        Set(ByVal value As Integer)
            Me._Intervall = value
            Me.setChanged()
        End Set
    End Property
    Public ReadOnly Property OriginallastRun() As String
        Get
            Return Me._originallastRun
        End Get
    End Property

    Public Property LastRun() As String
        Get
            Return Me._lastRun
        End Get
        Set(ByVal value As String)
            Me._lastRun = value
            Me.setChanged()
        End Set
    End Property
    Public ReadOnly Property OriginalNachbearbeitungAD() As Boolean
        Get
            Return Me._originalNB_AD
        End Get
    End Property

    Public Property NachbearbeitungAD() As Boolean
        Get
            Return Me._NB_AD
        End Get
        Set(ByVal value As Boolean)
            Me._NB_AD = value
            Me.setChanged()
        End Set
    End Property
    Public ReadOnly Property OriginalGetOrdnerTypes() As Boolean
        Get
            Return Me._originalGetOrdnerRechte
        End Get
    End Property

    Public Property GetOrdnerTypes() As Boolean
        Get
            Return Me._GetOrdnerRechte
        End Get
        Set(ByVal value As Boolean)
            Me._GetOrdnerRechte = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalOrdnerType As String
        Get
            Return Me._originalordnerType
        End Get
        Set(ByVal value As String)
            Me._originalordnerType = value
        End Set
    End Property

    Public Property OrdnerType As String
        Get
            Return Me._ordnerType
        End Get
        Set(ByVal value As String)
            Me._ordnerType = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalOrdnerType_Ebene As String
        Get
            Return Me._originalordnerType_Eb
        End Get
        Set(ByVal value As String)
            Me._originalordnerType_Eb = value
        End Set
    End Property

    Public Property OrdnerType_Ebene As String
        Get
            Return Me._ordnerType_Eb
        End Get
        Set(ByVal value As String)
            Me._ordnerType_Eb = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalCrFolderIndex As String
        Get
            Return Me._originalCrFolderIndex
        End Get
        Set(ByVal value As String)
            Me._originalCrFolderIndex = value
        End Set
    End Property

    Public Property CrFolderIndex As String
        Get
            Return Me._CrFolderIndex
        End Get
        Set(ByVal value As String)
            Me._CrFolderIndex = value
            Me.setChanged()
        End Set
    End Property
    Public Property OriginalCrFolder_Folder As String
        Get
            Return Me._originalCrFolder_Folder
        End Get
        Set(ByVal value As String)
            Me._originalCrFolder_Folder = value
        End Set
    End Property
    Public Property CrFolder_Folder As String
        Get
            Return Me._CrFolder_Folder
        End Get
        Set(ByVal value As String)
            Me._CrFolder_Folder = value
            Me.setChanged()
        End Set
    End Property

    Public Property CrFolder_Created_Folder As String
        Get
            Return Me._CrFolder_Created_Folder
        End Get
        Set(ByVal value As String)
            Me._CrFolder_Created_Folder = value
        End Set
    End Property
    Public ReadOnly Property OriginalCrFolder_Move() As Boolean
        Get
            Return Me._originalCrFolder_move
        End Get
    End Property

    Public Property CrFolder_Move() As Boolean
        Get
            Return Me._CrFolder_move
        End Get
        Set(ByVal value As Boolean)
            Me._CrFolder_move = value
            Me.setChanged()
        End Set
    End Property

    Public ReadOnly Property Verknüpfungen() As ClassNIVerknüpfungen
        Get
            Return Me._links
        End Get
    End Property
End Class