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_MyLogger)

    Private _saved As Boolean
    '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)

        Try
            ' wenn das Profil nicht gespeichert ist
            If Not Me.IsSaved 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 Then MsgBox("Das Profil '" & Me._originalProfilname & "' wurde 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 IsSaved() As Boolean
        Get
            Return Me._saved
        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