858 lines
31 KiB
VB.net
858 lines
31 KiB
VB.net
Imports System.IO
|
||
Imports DigitalData.Modules.Logging
|
||
Public Class ClassDIProfil
|
||
|
||
Private _MyLogger As LogConfig
|
||
Private Shared _Logger As DigitalData.Modules.Logging.Logger
|
||
Public Shared _windream As ClassWindream_allgemein
|
||
#Region "***** Variablen *****"
|
||
Private _originalProfilname As String
|
||
Private _originalaktiv As Boolean
|
||
Private _originalVerzoegerung As Integer
|
||
Private _originalQuellordner As String
|
||
Private _originalsubdirectories As Boolean
|
||
Private _originalZielordner As String
|
||
Private _originalBackup As Boolean
|
||
Private _originalBackupordner As String
|
||
Private _originalOverwrite As Boolean
|
||
Private _originalDatei_loeschen As Boolean
|
||
Private _originalDate_UV As String
|
||
Private _originalVerzeichnis_loeschen As Boolean
|
||
Private _originalUVloeschen As Boolean
|
||
Private _originalIntervall As Integer
|
||
Private _originallastRun As String
|
||
Private _originallink2Navision As Boolean
|
||
Private _originallink2Navision_Dokart As String
|
||
Private _originallink2Navision_Index As String
|
||
|
||
Private _profilname As String
|
||
Private _aktiv As Boolean
|
||
Private _Verzoegerung As Integer
|
||
Private _dokumenttyp As WINDREAMLib.WMObject
|
||
Private _dokumenttypString As String
|
||
Private _quellordner As String
|
||
Private _subdirectories As Boolean
|
||
Private _zielordner As String
|
||
Private _backup As Boolean
|
||
Private _backupordner As String
|
||
Private _overwrite As Boolean
|
||
Private _datei_loeschen As Boolean
|
||
Private _verzeichnis_loeschen As Boolean
|
||
Private _UVloeschen As Boolean
|
||
Private _Intervall As Integer
|
||
Private _lastRun As String
|
||
Private _link2Navision As Boolean
|
||
Private _link2Navision_Dokart As String
|
||
Private _link2Navision_Index As String
|
||
|
||
Private _Date_UV As String
|
||
Private _regeln As ClassDIRegeln
|
||
Private _saved As Boolean = True
|
||
|
||
#End Region
|
||
|
||
|
||
#Region "***** Methoden *****"
|
||
''' <summary>
|
||
''' Konstruktor zum Anlegen oder Laden eines Profils
|
||
''' </summary>
|
||
''' <param name="profilname">Profilname</param>
|
||
''' <param name="dokumenttyp"></param>
|
||
''' <param name="quellordner"></param>
|
||
''' <param name="zielordner"></param>
|
||
''' <param name="backup"></param>
|
||
''' <param name="backupordner"></param>
|
||
''' <param name="overwrite"></param>
|
||
''' <param name="datei_loeschen"></param>
|
||
''' <param name="verzeichnis_loeschen"></param>
|
||
''' <param name="dokumenttyp_string"></param>
|
||
''' <remarks></remarks>
|
||
Sub New(ByVal profilname As String, ByVal aktiv As Boolean, ByVal verzoegerung As Integer, ByVal dokumenttyp As WINDREAMLib.WMObject, ByVal quellordner As String, ByVal subdirectories As Boolean, ByVal zielordner As String,
|
||
ByVal backup As Boolean, ByVal backupordner As String, ByVal overwrite As Boolean, ByVal datei_loeschen As Boolean, ByVal Date_UV As String,
|
||
ByVal verzeichnis_loeschen As Boolean, ByVal intervall As Integer, ByVal lastRun As String, ByVal link2Navision As Boolean, ByVal link2Navision_Dokart As String, ByVal link2Navision_Index As String, ByVal UVloeschen As Boolean, Optional ByVal dokumenttyp_string As String = "")
|
||
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
|
||
_Logger = _MyLogger.GetLogger()
|
||
_windream = New ClassWindream_allgemein(_MyLogger)
|
||
Me._dokumenttypString = dokumenttyp_string
|
||
Me.Dokumenttyp = dokumenttyp
|
||
Me._dokumenttyp = dokumenttyp
|
||
|
||
Me._originalProfilname = profilname
|
||
Me._originalaktiv = aktiv
|
||
Me._originalVerzoegerung = verzoegerung
|
||
Me._originalQuellordner = quellordner
|
||
Me._originalsubdirectories = subdirectories
|
||
Me._originalZielordner = zielordner
|
||
Me._originalBackup = backup
|
||
Me._originalBackupordner = backupordner
|
||
Me._originalOverwrite = overwrite
|
||
Me._originalDatei_loeschen = datei_loeschen
|
||
Me._originalDate_UV = Date_UV
|
||
Me._originalVerzeichnis_loeschen = verzeichnis_loeschen
|
||
Me._originalUVloeschen = UVloeschen
|
||
Me._originalIntervall = intervall
|
||
Me._originallastRun = lastRun
|
||
Me._originallink2Navision = link2Navision
|
||
Me._originallink2Navision_Dokart = link2Navision_Dokart
|
||
Me._originallink2Navision_Index = link2Navision_Index
|
||
|
||
Me._profilname = profilname
|
||
Me._aktiv = aktiv
|
||
Me._Verzoegerung = verzoegerung
|
||
Me._dokumenttyp = dokumenttyp
|
||
Me._quellordner = quellordner
|
||
Me._subdirectories = subdirectories
|
||
Me._zielordner = zielordner
|
||
Me._backup = backup
|
||
Me._backupordner = backupordner
|
||
Me._overwrite = overwrite
|
||
Me._datei_loeschen = datei_loeschen
|
||
Me._Date_UV = Date_UV
|
||
Me._verzeichnis_loeschen = verzeichnis_loeschen
|
||
Me._UVloeschen = UVloeschen
|
||
Me._Intervall = intervall
|
||
Me._lastRun = lastRun
|
||
Me._link2Navision = link2Navision
|
||
Me._link2Navision_Dokart = link2Navision_Dokart
|
||
Me._link2Navision_Index = link2Navision_Index
|
||
|
||
Me._saved = True
|
||
|
||
Me._regeln = New ClassDIRegeln(profilname)
|
||
End Sub
|
||
|
||
|
||
''' <summary>
|
||
''' Konstruktor ohne T<>tigkeit
|
||
''' </summary>
|
||
''' <remarks>wenn im Konstruktor kein Parameter <20>bergeben wurde soll auch nichts gemacht werden</remarks>
|
||
Sub New()
|
||
|
||
End Sub
|
||
|
||
|
||
Public Sub getQuellordner()
|
||
|
||
End Sub
|
||
|
||
|
||
''' <summary>
|
||
''' Setzt das Profil auf ge<67>ndert.
|
||
''' </summary>
|
||
''' <remarks></remarks>
|
||
Public Sub setChanged()
|
||
' Profil auf ge<67>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
|
||
|
||
|
||
''' <summary>
|
||
''' Setzt im aktuellen Profil alle Einstellungen auf die Originalwerte zur<75>ck.
|
||
''' </summary>
|
||
''' <remarks></remarks>
|
||
Public Sub SetBackToOriginal()
|
||
Me._profilname = Me._originalProfilname
|
||
Me._aktiv = _originalaktiv
|
||
Me._Verzoegerung = _originalVerzoegerung
|
||
Me._quellordner = Me._originalQuellordner
|
||
Me._subdirectories = Me._originalsubdirectories
|
||
Me._zielordner = Me._originalZielordner
|
||
Me._backup = Me._originalBackup
|
||
Me._backupordner = Me._originalBackupordner
|
||
Me._overwrite = Me._originalOverwrite
|
||
Me._datei_loeschen = Me._originalDatei_loeschen
|
||
Me._Date_UV = Me._originalDate_UV
|
||
Me._verzeichnis_loeschen = Me._originalVerzeichnis_loeschen
|
||
Me._Intervall = Me._originalIntervall
|
||
Me._link2Navision_Dokart = _originallink2Navision_Dokart
|
||
Me._link2Navision_Index = _originallink2Navision_Index
|
||
Me._UVloeschen = _originalUVloeschen
|
||
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 <20>ffnen und laden
|
||
xml.Load(My.Settings.vDIConfigDatei)
|
||
|
||
' 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
|
||
|
||
|
||
'' alle ProfilLinks durchlaufen und ggf. den Profilnamen an den neuen Namen anpassen
|
||
'Dim xmlProfile As Xml.XmlNodeList = xml.SelectSingleNode("//Settings/Profile").ChildNodes
|
||
|
||
'For Each profil As Xml.XmlNode In xmlProfile
|
||
|
||
' Dim xmlProfilLinks As Xml.XmlNodeList = profil.ChildNodes
|
||
|
||
' For Each link As Xml.XmlNode In xmlProfilLinks
|
||
' If link.Attributes("profilname").Value = Me._originalProfilname Then
|
||
' link.Attributes("profilname").Value = Me._profilname
|
||
' End If
|
||
' Next
|
||
|
||
'Next
|
||
|
||
|
||
' die neuen Werte den Originalwerten zuweisen
|
||
Me._originalProfilname = Me._profilname
|
||
Me._originalaktiv = Me._aktiv
|
||
Me._originalVerzoegerung = Me._Verzoegerung
|
||
Me._originalQuellordner = Me._quellordner
|
||
Me._originalZielordner = Me._zielordner
|
||
Me._originalsubdirectories = Me._subdirectories
|
||
Me._originalBackup = Me._backup
|
||
Me._originalBackupordner = Me._backupordner
|
||
Me._originalOverwrite = Me._overwrite
|
||
Me._originalDatei_loeschen = Me._datei_loeschen
|
||
Me._originalDate_UV = Me._Date_UV
|
||
Me._originalVerzeichnis_loeschen = Me._verzeichnis_loeschen
|
||
Me._originalIntervall = Me._Intervall
|
||
Me._originallastRun = Me._lastRun
|
||
Me._originallink2Navision = Me._link2Navision
|
||
Me._originallink2Navision_Dokart = _link2Navision_Dokart
|
||
Me._originallink2Navision_Index = _link2Navision_Index
|
||
_originalUVloeschen = Me._UVloeschen
|
||
|
||
|
||
|
||
' die neuen Werte in die XML-Datei schreiben
|
||
xmlProfil.Attributes("profilname").Value = Me._profilname
|
||
xmlProfil.Attributes("aktiv").Value = Me._aktiv
|
||
xmlProfil.Attributes("verzoegerung").Value = Me._Verzoegerung
|
||
xmlProfil.Attributes("dokumenttyp").Value = Me._dokumenttypString
|
||
xmlProfil.Attributes("quellordner").Value = Me._quellordner
|
||
xmlProfil.Attributes("subdirectories").Value = Me._subdirectories
|
||
xmlProfil.Attributes("zielordner").Value = Me._zielordner
|
||
xmlProfil.Attributes("backup").Value = Me._backup
|
||
xmlProfil.Attributes("backupordner").Value = Me._backupordner
|
||
xmlProfil.Attributes("overwrite").Value = Me._overwrite
|
||
xmlProfil.Attributes("datei_loeschen").Value = Me._datei_loeschen
|
||
xmlProfil.Attributes("Date_UV").Value = Me._Date_UV
|
||
xmlProfil.Attributes("verzeichnis_loeschen").Value = Me._verzeichnis_loeschen
|
||
xmlProfil.Attributes("intervall").Value = Me._Intervall
|
||
xmlProfil.Attributes("lastrun").Value = Me._lastRun
|
||
xmlProfil.Attributes("link2navision").Value = Me._link2Navision
|
||
xmlProfil.Attributes("link2navision_dokart").Value = Me._link2Navision_Dokart
|
||
xmlProfil.Attributes("link2navision_index").Value = Me._link2Navision_Index
|
||
xmlProfil.Attributes("subdirectoriesloeschen").Value = _UVloeschen
|
||
|
||
' XML-Datei speichern
|
||
xml.Save(My.Settings.vDIConfigDatei)
|
||
|
||
' 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
|
||
|
||
|
||
|
||
Public Function GetFolderName(ByVal filename As String, ByVal ebene As Integer)
|
||
|
||
Dim ordnerString As String = filename.Substring(0, filename.Length - (filename.Length - filename.LastIndexOf("\")))
|
||
|
||
Dim ordnerArray As String() = ordnerString.Split("\")
|
||
|
||
|
||
If ebene = -1 Then ' Parent-Ordner (Ordner in dem die Datei liegt)
|
||
|
||
Return ordnerArray(ordnerArray.Length - 1)
|
||
|
||
ElseIf ebene = 0 Then ' Root-Ordner
|
||
|
||
' muss nicht eingebunden werden, da es in GetIndexArray() gel<65>st wird
|
||
' wenn das Programm doch hierher kommt -- dann stimmt was nicht!
|
||
Return ""
|
||
|
||
ElseIf ebene > 0 Then ' feste Ebene
|
||
|
||
For i As Integer = 1 To ordnerArray.Length - 1
|
||
'MsgBox(ordnerArray(i))
|
||
If i = ebene Then
|
||
Return ordnerArray(i)
|
||
End If
|
||
Next
|
||
|
||
Return ""
|
||
|
||
Else
|
||
' ung<6E>ltige Ordnerebene ( ebene < -1 )
|
||
Return ""
|
||
End If
|
||
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' LIEST INDEXWERTE AUS und erstellt f<>r die angegebene Datei ein Array mit Dateiname, Zielindexen und Werten in dem alle
|
||
''' Informationen festgehalten sind die zur Indexierung der Datei ben<65>tigt werden.
|
||
''' </summary>
|
||
''' <param name="filename">Name (Datei- und Ordnername) der Datei f<>r die das Array angelegt werden soll</param>
|
||
''' <returns>Liefert eine ArrayList mit allen, f<>r die Indexierung notwendigen, Informationen</returns>
|
||
''' <remarks></remarks>
|
||
Public Function GetIndexArray(ByVal filename As String, ByVal quellverzeichnis As String, ByVal End_Verzeichnis As String) As ArrayList
|
||
|
||
Dim oArray As ArrayList = New ArrayList
|
||
|
||
Try
|
||
' alle Regeln dieses Profils auslesen
|
||
Dim regeln As ClassDIRegel() = Me.Regeln
|
||
|
||
' wenn keine Regeln vorhanden sind -> Abbrechen
|
||
If regeln Is Nothing Then Return Nothing
|
||
|
||
' zuerst den Dateinamen ins Array schreiben
|
||
oArray.Add(filename)
|
||
|
||
Dim originalFilename = filename
|
||
|
||
' dann alle Regeln durchlauf
|
||
For Each regel As ClassDIRegel In regeln
|
||
|
||
filename = originalFilename
|
||
|
||
|
||
' Console.WriteLine(filename & " - " & regel._indexieren_aus & " - " & regel._art & " - " & regel._dateiendung)
|
||
|
||
' wenn die aktuelle Regel aktiv ist
|
||
If regel._aktiv Then
|
||
Dim gefunden As Boolean = False
|
||
Dim arr_pos As Integer = 0
|
||
|
||
' alle Eintr<74>ge im Array durchlaufen und pr<70>fen ob f<>r den Zielindex der aktuellen
|
||
' Regel bereits ein Eintrag existiert
|
||
For i As Integer = 0 To oArray.Count - 1
|
||
If oArray(i)(0) = regel._zielindex Then
|
||
gefunden = True
|
||
Exit For
|
||
End If
|
||
arr_pos += 1
|
||
Next
|
||
|
||
|
||
Dim importString As String = ""
|
||
Dim backslashes As Integer = 0
|
||
Dim new_filename As String = ""
|
||
|
||
If regel._indexieren_aus.ToUpper = "ORDNER" Then
|
||
If regel._ordner_ebene = -1 Then
|
||
filename = Me.GetFolderName(filename, -1)
|
||
ElseIf regel._ordner_ebene = 0 Then
|
||
If Not quellverzeichnis.Chars(quellverzeichnis.Length - 1) = "\" Then quellverzeichnis &= "\"
|
||
filename = Me.GetFolderName(quellverzeichnis, -1)
|
||
ElseIf regel._ordner_ebene > 0 Then
|
||
If End_Verzeichnis <> "" Then
|
||
filename = Me.GetFolderName(End_Verzeichnis, regel._ordner_ebene)
|
||
Else
|
||
filename = Me.GetFolderName(filename, regel._ordner_ebene)
|
||
End If
|
||
|
||
Else
|
||
filename = ""
|
||
End If
|
||
End If
|
||
|
||
'MsgBox(filename)
|
||
Dim wert As Object
|
||
If regel._indexieren_aus.ToUpper = "FEST" Then
|
||
Dim manWert As String
|
||
Select Case regel._art
|
||
Case "akt. Datum()"
|
||
manWert = Now.ToShortDateString
|
||
Case "Date.Now()"
|
||
manWert = Now.ToShortDateString
|
||
Case "Now()"
|
||
manWert = Now.ToString
|
||
Case Else
|
||
manWert = regel._art
|
||
End Select
|
||
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(">>>> " & filename & " - FESTEN WERT an Datei <20>bergeben! - Wert " & manWert, False)
|
||
wert = manWert
|
||
Else
|
||
' jetzt an Hand der Regel den entsprechenden Teilstring aus dem Dateinamen auslesen
|
||
wert = regel.GetTeilstring(filename)
|
||
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(">>>> " & filename & " - Auszuwertenden Wert an " & regel._indexieren_aus.ToUpper & " <20>bergeben! - Wert " & wert.ToString, False)
|
||
End If
|
||
|
||
|
||
|
||
'If wert <> "" Then
|
||
|
||
' wenn der Wert in ein Datumsindex geschrieben werden soll
|
||
If _windream.GetTypeOfIndexAsIntByName(regel._zielindex) = WINDREAMLib.WMObjectVariableValueType.WMObjectVariableValueTypeDate Then
|
||
'Dim datumFormat As String = ClassDateiimportHelpers.GetDatumFormat(regel._datum_format)
|
||
Dim datumFormat As String = regel._datum_format
|
||
|
||
If datumFormat IsNot Nothing And datumFormat <> "False" Then
|
||
Dim datum As Date = Nothing
|
||
'' Datum an Hand des Datumformats der Regel ermitteln und dem Wert zuweisen
|
||
DateTime.TryParseExact(wert, datumFormat, Nothing, Globalization.DateTimeStyles.None, datum)
|
||
wert = datum
|
||
If IsDate(wert) Then
|
||
If My.Settings.vLogErrorsonly = False Then ClassLoggerDI.Add(" - Alles OK - Wert als Datum erkannt!", False)
|
||
Else
|
||
ClassLoggerDI.Add(">> ACHTUNG: Der Wert '" & wert & "' konnte nicht als Datum erkannt werden! Der Wert wird nicht <20>bertragen!", False)
|
||
wert = ""
|
||
End If
|
||
Else
|
||
ClassLoggerDI.Add(">> ACHTUNG: datumFormat is Nothing! Der Wert wird nicht <20>bertragen!", False)
|
||
wert = ""
|
||
End If
|
||
|
||
'' wenn etwas schief gegangen ist und das Datum nicht ermittelt werden konnte
|
||
'If wert = DateTime.MinValue Then
|
||
' MsgBox("Etws ist schiefgeegangen")
|
||
' wert = ""
|
||
'End If
|
||
End If
|
||
|
||
|
||
' wenn dies zu einem Ergebnis gef<65>hrt hat
|
||
If Not wert.ToString = "" Then
|
||
' und bereits ein Eintrag im Array zu diesem Zielindex existiert
|
||
If gefunden Then
|
||
If regel._removeZeros = True And wert.ToString.StartsWith("0") Then
|
||
If IsNumeric(wert) Then
|
||
wert = CStr(CInt(wert.ToString))
|
||
End If
|
||
End If
|
||
|
||
'Dim x As ArrayList = arr(arr_pos)(1)
|
||
|
||
' den neuen Teilstring einfach an das Array (beim Zielindex) anh<6E>ngen
|
||
oArray.Item(arr_pos).Item(1).Add(wert)
|
||
|
||
Else '
|
||
Dim arr_regelgruppe As ArrayList = New ArrayList
|
||
Dim arr_ergebnis As ArrayList = New ArrayList
|
||
If regel._removeZeros = True And wert.ToString.StartsWith("0") Then
|
||
If IsNumeric(wert) Then
|
||
wert = CStr(CInt(wert.ToString))
|
||
End If
|
||
End If
|
||
' einen neuen Eintrag mit dem ausgelesenen Teilstring in einer neuen ArrayList machen
|
||
arr_ergebnis.Add(wert)
|
||
|
||
' als n<>chstes den Zielindex ins Array schreiben
|
||
arr_regelgruppe.Add(regel._zielindex)
|
||
' und die ArrayList mit dem ausgelesenen Teilstring anh<6E>ngen
|
||
arr_regelgruppe.Add(arr_ergebnis)
|
||
|
||
' zuletzt noch die komplette Gruppe (Zielindex und Teilstring) an das Array
|
||
' f<>r die Datei anh<6E>ngen
|
||
oArray.Add(arr_regelgruppe)
|
||
End If
|
||
End If
|
||
End If
|
||
'End If
|
||
Next
|
||
|
||
Catch ex As Exception
|
||
ClassLoggerDI.Add("GetIndexArray", ex)
|
||
'Console.WriteLine("!!!! FEHLER in GetIndexArray() :: " & ex.Message & " in Methode " & ex.TargetSite.Name & vbNewLine & vbNewLine & ex.StackTrace)
|
||
'MsgBox(ex.Message)
|
||
End Try
|
||
|
||
' das Array f<>r die aktuelle Datei zur<75>ckgeben
|
||
Return oArray
|
||
|
||
End Function
|
||
#End Region
|
||
|
||
|
||
#Region "***** Properties *****"
|
||
|
||
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<67>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 ReadOnly Property OriginalQuellordner() As String
|
||
Get
|
||
Return Me._originalQuellordner
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Quellordner() As String
|
||
Get
|
||
Return Me._quellordner
|
||
End Get
|
||
Set(ByVal value As String)
|
||
Me._quellordner = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
Public ReadOnly Property OriginalSubdirectories() As Boolean
|
||
Get
|
||
Return Me._originalsubdirectories
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Subdirectories() As Boolean
|
||
Get
|
||
Return Me._subdirectories
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._subdirectories = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalZielordner() As String
|
||
Get
|
||
Return Me._originalZielordner
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Zielordner() As String
|
||
Get
|
||
Return Me._zielordner
|
||
End Get
|
||
Set(ByVal value As String)
|
||
Me._zielordner = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalBackup() As String
|
||
Get
|
||
Return Me._originalBackup
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Backup() As Boolean
|
||
Get
|
||
Return Me._backup
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._backup = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalBackupordner() As String
|
||
Get
|
||
Return Me._originalBackupordner
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Backupordner() As String
|
||
Get
|
||
Return Me._backupordner
|
||
End Get
|
||
Set(ByVal value As String)
|
||
Me._backupordner = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalOverwrite() As Boolean
|
||
Get
|
||
Return Me._originalOverwrite
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Overwrite() As Boolean
|
||
Get
|
||
Return Me._overwrite
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._overwrite = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalDateiL<EFBFBD>schen() As Boolean
|
||
Get
|
||
Return Me._originalDatei_loeschen
|
||
End Get
|
||
End Property
|
||
|
||
Public Property DateiL<EFBFBD>schen() As Boolean
|
||
Get
|
||
Return Me._datei_loeschen
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._datei_loeschen = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
Public ReadOnly Property OriginalDate_UV() As String
|
||
Get
|
||
Return Me._originalDate_UV
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Date_UV() As String
|
||
Get
|
||
Return Me._Date_UV
|
||
End Get
|
||
Set(ByVal value As String)
|
||
Me._Date_UV = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalVerzeichnisL<EFBFBD>schen() As Boolean
|
||
Get
|
||
Return Me._originalVerzeichnis_loeschen
|
||
End Get
|
||
End Property
|
||
|
||
Public Property VerzeichnisL<EFBFBD>schen() As Boolean
|
||
Get
|
||
Return Me._verzeichnis_loeschen
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._verzeichnis_loeschen = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property Original_UVVerzeichnisLoeschen() As Boolean
|
||
Get
|
||
Return Me._originalUVloeschen
|
||
End Get
|
||
End Property
|
||
|
||
Public Property UVVerzeichnisLoeschen() As Boolean
|
||
Get
|
||
Return Me._UVloeschen
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._UVloeschen = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
|
||
Public ReadOnly Property OriginalAktiv() As Boolean
|
||
Get
|
||
Return Me._originalaktiv
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Aktiv() As Boolean
|
||
Get
|
||
Return Me._aktiv
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._aktiv = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
Public ReadOnly Property OriginalVerzoegerung() As Integer
|
||
Get
|
||
Return Me._originalVerzoegerung
|
||
End Get
|
||
End Property
|
||
|
||
Public Property Verzoegerung() As Integer
|
||
Get
|
||
Return Me._Verzoegerung
|
||
End Get
|
||
Set(ByVal value As Integer)
|
||
Me._Verzoegerung = 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 Regeln() As ClassDIRegel()
|
||
Get
|
||
Me._regeln = New ClassDIRegeln(Me.OriginalProfilname)
|
||
Return Me._regeln._regeln
|
||
End Get
|
||
End Property
|
||
Public Property Link2Navision() As Boolean
|
||
Get
|
||
Return Me._link2Navision
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
Me._link2Navision = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
Public ReadOnly Property OriginalLink2Navision() As Boolean
|
||
Get
|
||
Return Me._originallink2Navision
|
||
End Get
|
||
End Property
|
||
Public Property Link2Navision_dokart() As String
|
||
Get
|
||
Return Me._link2Navision_Dokart
|
||
End Get
|
||
Set(ByVal value As String)
|
||
Me._link2Navision_Dokart = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
Public ReadOnly Property OriginalLink2Navision_dokart() As String
|
||
Get
|
||
Return Me._originallink2Navision_Dokart
|
||
End Get
|
||
End Property
|
||
Public Property Link2Navision_Index() As String
|
||
Get
|
||
Return Me._link2Navision_Index
|
||
End Get
|
||
Set(ByVal value As String)
|
||
Me._link2Navision_Index = value
|
||
Me.setChanged()
|
||
End Set
|
||
End Property
|
||
Public ReadOnly Property OriginalLink2Navision_Index() As String
|
||
Get
|
||
Return Me._originallink2Navision_Index
|
||
End Get
|
||
End Property
|
||
|
||
Public ReadOnly Property HasChanges() As Boolean
|
||
Get
|
||
If Me.Profilname = Me.OriginalProfilname And
|
||
Me.Aktiv = Me.OriginalAktiv And
|
||
Me.Verzoegerung = Me.OriginalVerzoegerung And
|
||
Me.Quellordner = Me.OriginalQuellordner And
|
||
Me.Zielordner = Me.OriginalZielordner And
|
||
Me.Subdirectories = Me.OriginalSubdirectories And
|
||
Me.Backup = Me.OriginalBackup And
|
||
Me.Backupordner = Me.OriginalBackupordner And
|
||
Me.Overwrite = Me.OriginalOverwrite And
|
||
Me.VerzeichnisL<EFBFBD>schen = Me.OriginalVerzeichnisL<EFBFBD>schen And
|
||
Me.DateiL<EFBFBD>schen = Me.OriginalDateiL<EFBFBD>schen And
|
||
Me.Date_UV = Me.OriginalDate_UV And
|
||
Me.Intervall = Me.OriginalIntervall And
|
||
Me.LastRun = Me.OriginallastRun And
|
||
Me.Link2Navision = Me.OriginalLink2Navision And
|
||
Me.Link2Navision_dokart = Me.OriginalLink2Navision_dokart And
|
||
Me.Link2Navision_Index = Me.OriginalLink2Navision_Index And
|
||
Me.UVVerzeichnisLoeschen = Me.Original_UVVerzeichnisLoeschen Then
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
' Return Not Me._saved
|
||
End Get
|
||
End Property
|
||
|
||
Public ReadOnly Property IsSaved() As Boolean
|
||
Get
|
||
Return Me._saved
|
||
End Get
|
||
End Property
|
||
#End Region
|
||
|
||
End Class
|