Nochmal referencen

.gitignore

@@ -158,3 +158,9 @@ $RECYCLE.BIN/
 /ToolCollection/.vs/ToolCollection/v16/Server/sqlite3
 /.vs/ToolCollection/v16/Server/sqlite3
 /ToolCollection/.vs/ToolCollection/v15/Server/sqlite3
+/.vs/ToolCollection/FileContentIndex/719c2c5a-903b-46fb-98ca-0e3edcec50ec.vsidx
+/.vs/ToolCollection/FileContentIndex
+/ToolCollection/.vs/ToolCollection.vbproj.dtbcache.json
+/NIService/.vs/NIService.csproj.dtbcache.json
+/.vs/ToolCollection/v17/DocumentLayout.json
+/.vs/ToolCollection/v17/DocumentLayout.backup.json

.vs/ProjectSettings.json

@@ -1,3 +0,0 @@
-{
-  "CurrentProjectSetting": null
-}

.vs/ToolCollection/v17/ResourceExplorer/settings.json

@@ -0,0 +1,14 @@
+{
+  "ShowEmptyProjects": false,
+  "SelectedGroups": [],
+  "ExpandedProjects": [],
+  "EnableSpellChecker": true,
+  "ColumnOrder": [
+    "name",
+    "type"
+  ],
+  "VisibleColumnKeys": [
+    "name",
+    "neutral-value"
+  ]
+}

.vs/VSWorkspaceState.json

@@ -1,7 +0,0 @@
-{
-  "ExpandedNodes": [
-    ""
-  ],
-  "SelectedNode": "\\ToolCollection.sln",
-  "PreviewInSolutionExplorer": false
-}

ToolCollection.sln

@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio Version 16
+# Visual Studio Version 17
-VisualStudioVersion = 16.0.31005.135
+VisualStudioVersion = 17.14.36203.30 d17.14
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ToolCollection", "ToolCollection\ToolCollection.vbproj", "{AC6B3398-DE0E-4580-9422-6E4D97FA4494}"
 EndProject
@@ -20,6 +20,7 @@ Global
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
 		{AC6B3398-DE0E-4580-9422-6E4D97FA4494}.Debug|Any CPU.ActiveCfg = Debug|x86
+		{AC6B3398-DE0E-4580-9422-6E4D97FA4494}.Debug|Any CPU.Build.0 = Debug|x86
 		{AC6B3398-DE0E-4580-9422-6E4D97FA4494}.Debug|x64.ActiveCfg = Debug|x64
 		{AC6B3398-DE0E-4580-9422-6E4D97FA4494}.Debug|x64.Build.0 = Debug|x64
 		{AC6B3398-DE0E-4580-9422-6E4D97FA4494}.Debug|x86.ActiveCfg = Debug|x86

ToolCollection/.vs/ProjectSettings.json

@@ -1,3 +0,0 @@
-{
-  "CurrentProjectSetting": null
-}

ToolCollection/.vs/VSWorkspaceState.json

@@ -1,6 +0,0 @@
-{
-  "ExpandedNodes": [
-    ""
-  ],
-  "PreviewInSolutionExplorer": false
-}

ToolCollection/ClassDI.vb

@@ -7,16 +7,12 @@ Public Class ClassDI
     ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
 
     Sub New(LogConfig As LogConfig)
-
-
         Try
 
             ' 3a. Windream instanziieren
             Me._windream = New ClassWindream_allgemein(LogConfig)
-
             ' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
             Me._windream.Init()
-
         Catch ex As Exception
             MsgBox("Unbekannter Fehler im Konstuktor des Moduls 'XYZ'." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unbekannter Fehler")
         End Try

ToolCollection/ClassDIProfile.vb

@@ -85,6 +85,10 @@ Public Class ClassDIProfile
     ' gibt ein einzelnes Profil-Objekt zurück
     Public Shared Function getProfilByName(ByVal profilname As String) As ClassDIProfil
 
+        If _profiles Is Nothing Then
+            Return Nothing
+        End If
+
         ' alle Profile durchlaufen
         For Each profil As ClassDIProfil In _profiles
 

ToolCollection/ClassDI_Email.vb

@@ -1,68 +0,0 @@
-Imports System.Net.Mail
-Public Class ClassDI_Email
-    Public Sub Send_EMail(ByVal vBody As String, Optional ByVal Test As Boolean = False)
-        '#### E-MAIL NACHRICHT VERSENDEN
-        Try
-            '######
-            Dim empfaenger As String()
-            If My.Settings.vDIMailEmpf <> "" Then
-                If My.Settings.vDIMailEmpf.Contains(";") Then
-                    empfaenger = My.Settings.vDIMailEmpf.Split(";")
-                Else
-                    ReDim Preserve empfaenger(0)
-                    empfaenger(0) = My.Settings.vDIMailEmpf
-                End If
-                'Für jeden Empfänger eine Neue Mail erzeugen
-                For Each _mailempfaenger As String In empfaenger
-                    ' Neue Nachricht erzeugen: 
-                    Dim message As New MailMessage(My.Settings.vDIMailFrom, _mailempfaenger, My.Settings.vDIMailBetreff & " Domain: " & Environment.UserDomainName, _
-                                                   "<font face=""Arial"">" & My.Settings.vDIMailBody & vBody & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _
-                                                   "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
-                                                   My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
-                    ' create and add the attachment(s) */
-                    'Dim logfile As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
-                    'If logfile.Contains("\\") Then
-                    '    logfile = logfile.Replace("\\", "\")
-                    'End If
-                    'Dim Attachment As Attachment = New Attachment(logfile)
-                    'message.Attachments.Add(Attachment)
-
-                    With message
-                        .IsBodyHtml = True
-                    End With
-
-                    'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
-                    Dim emailClient As New SmtpClient(My.Settings.vSMTP)
-                    'Email mit Authentifizierung
-                    Dim SMTPUserInfo As New System.Net.NetworkCredential(My.Settings.vMailUser.Trim, My.Settings.vMailPW.Trim) ', My.Settings.vDomain)
-                    emailClient.UseDefaultCredentials = False
-                    emailClient.Credentials = SMTPUserInfo
-                    emailClient.Port = My.Settings.vemailPort
-                    emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
-
-                    '*Send the message */
-                    emailClient.Send(message)
-                    ClassLoggerDI.Add("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!", False)
-                    ClassLoggerDI.Add("==> Text: " & vBody, False)
-                    If Test = True Then
-                        MsgBox("Email an " & _mailempfaenger & "erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
-                    End If
-                Next
-            End If
-            '######
-
-
-
-          
-        Catch ex As Exception
-            If Test = True Then
-                MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand DI:")
-            Else
-                ClassLoggerDI.Add(">> Achtung: Fehler in Mailversand: " & ex.Message, False)
-            End If
-
-
-        End Try
-    End Sub
-End Class
-

ToolCollection/ClassMO_RE.vb

@@ -11,19 +11,7 @@ Public Class ClassMO_REOld
     End Sub
     Public Shared Function Return_Datatable(Select_anweisung As String)
         Try
-            Dim sw As New ClassStopwatch("Return_Datatable")
+            Return DB_ECM.GetDatatable(Select_anweisung)
-            Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DDECMConString)
-            Dim SQLcommand As New SqlCommand(Select_anweisung, SQLconnection)
-            SQLconnection.Open()
-
-
-            Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand)
-            Dim dt As DataTable = New DataTable()
-            adapter1.Fill(dt)
-            SQLconnection.Close()
-            Dim msg = sw.Done
-            If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
-            Return dt
         Catch ex As Exception
             _Logger.Error(ex)
 
@@ -32,16 +20,8 @@ Public Class ClassMO_REOld
     End Function
     Public Shared Function Execute_Command(ExecuteCMD As String)
         Try
-            Dim sw As New ClassStopwatch("Execute_MSSQL_Command")
+
-            Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DDECMConString)
+            Return DB_ECM.ExecuteNonQuery(ExecuteCMD)
-            Dim SQLcommand As New SqlCommand(ExecuteCMD, SQLconnection)
-            SQLconnection.Open()
-            SQLcommand.ExecuteNonQuery()
-            SQLcommand.Dispose()
-            SQLconnection.Close()
-            Dim msg = sw.Done
-            If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
-            Return True
         Catch ex As Exception
             _Logger.Error(ex)
 
@@ -49,156 +29,6 @@ Public Class ClassMO_REOld
             Return False
         End Try
     End Function
-    Public Shared Function RUN_MO_RE(ByVal dokument As WMObject, ByVal vDatei As String, ByVal _MRDOKART As Object, ByVal _MRKUNDE As Object) As String
-        Try
-            Dim DT As New DataTable
-            Dim _MRDeskrIndex
-            Dim _path, _praefix, _kunde, _ziel As String
-
-
-            _Logger.Debug(">> Ausgelesener Kundenidentifikator: " & _MRKUNDE)
-            _Logger.Debug(">> Ausgelesene Dokumentart: " & _MRDOKART)
-            Dim oSelect As String
-            If _MRKUNDE Is Nothing Or _MRKUNDE = "" Then
-                'Auslesen der MORE-Konfiguration für Kunde und Standard
-                oSelect = "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')"
-                DT = Return_Datatable(oSelect)
-                _Logger.Debug(oSelect)
-            Else
-                If _MRKUNDE = "Standard-VZ" Then _MRKUNDE = "Standard"
-                oSelect = "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = UPPER('" & _MRKUNDE.ToString & "'))"
-                'Auslesen der MORE-Konfiguration für Kunde und Dokart
-                DT = Return_Datatable(oSelect)
-                _Logger.Debug("Select2: " & oSelect)
-            End If
-            If DT.Rows.Count = 0 Then
-                _Logger.Debug("Für Kunden keine Daten - also Standard lesen")
-                oSelect = "SELECT * FROM VWMO_RE_DOKUMENTARTZUORDNUNG WHERE (DOKUMENTART = '" & _MRDOKART.ToString & "') AND (UPPER(KUNDEN_NAME) = 'STANDARD')"
-                'Für diesen Kunden wurde keine Konfiguration gefunden also den Standard laden
-                DT = Return_Datatable(oSelect)
-                _Logger.Debug("Select3: " & oSelect)
-            End If
-
-            If DT.Rows.Count = 1 Then
-                'Es liegt sowohl Kunde als auch Dokumentart vor
-                Try
-                    _Logger.Debug("Versuch für den Index " & DT.Rows(0).Item("INDEXNAME").ToString & " den Indexwert auszulesen")
-                    Dim sw As New ClassStopwatch($"GetVariableValue _MRDeskrIndex({DT.Rows(0).Item("INDEXNAME").ToString})")
-                    _MRDeskrIndex = dokument.GetVariableValue(DT.Rows(0).Item("INDEXNAME").ToString)
-                    Dim msg = sw.Done
-                    If msg <> String.Empty Then _Logger.Info(msg)
-                Catch ex As Exception
-                    _Logger.Warn("Achtung: ein eindeutiger/deskriptiver Indexwert existiert noch nicht! Dokument kann nicht verschoben und umbenannt werden!")
-                    Return False
-                End Try
-                _Logger.Debug("Ausgelesener Deskriptiver Index: " & _MRDeskrIndex)
-
-                'Datei-Paramter auslesen
-                Dim extension As String = Path.GetExtension(vDatei)
-                Dim myFolderPath As String
-                myFolderPath = Path.GetDirectoryName(vDatei)
-
-                Dim _WDLaufwerk, _newfilename As String
-                _WDLaufwerk = My.Settings.MRWD_Laufwerk
-                _path = DT.Rows(0).Item("DOKUMENTARTORDNER")
-
-                '####### _path anpassen evtl Unterordner
-                'Unterordner Index 1
-                Dim _UOindex As String = DT.Rows(0).Item("UO_IDX1")
-                Dim _UOindex_Value As String = ""
-                If _UOindex <> "" Then
-                    Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
-                    _UOindex_Value = dokument.GetVariableValue(_UOindex)
-                    Dim msg = sw.Done
-                    If msg <> String.Empty Then _Logger.Info(msg)
-                    If Not _UOindex_Value Is Nothing Then
-                        _path &= "\" & _UOindex_Value
-                        If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "")
-                        _Logger.Debug("Unterordner 1 soll erzeugt werden - Path '" & _path & "'")
-                    End If
-                End If
-                'Unterordner Index 2
-                _UOindex = DT.Rows(0).Item("UO_IDX2")
-                If _UOindex <> "" Then
-                    Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
-                    _UOindex_Value = dokument.GetVariableValue(_UOindex)
-                    Dim msg = sw.Done
-                    If msg <> String.Empty Then _Logger.Info(msg)
-                    If Not _UOindex_Value Is Nothing Then
-                        _path &= "\" & _UOindex_Value
-                        If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "")
-                        _Logger.Debug("Unterordner 2 soll erzeugt werden - Path '" & _path & "'")
-                    End If
-                End If
-
-                _UOindex = DT.Rows(0).Item("UO_IDX3")
-                If _UOindex <> "" Then
-                    Dim sw As New ClassStopwatch($"GetVariableValue _UOindex({_UOindex})")
-                    _UOindex_Value = dokument.GetVariableValue(_UOindex)
-                    Dim msg = sw.Done
-                    If msg <> String.Empty Then _Logger.Info(msg)
-                    If Not _UOindex_Value Is Nothing Then
-                        _path &= "\" & _UOindex_Value
-                        If _path.Contains(" 00:00:00") Then _path = _path.Replace(" 00:00:00", "")
-                        _Logger.Debug("Unterordner 3 soll erzeugt werden - Path '" & _path & "'")
-                    End If
-                End If
-
-                '#####
-
-                _kunde = DT.Rows(0).Item("KUNDEN_NAME")
-                _praefix = DT.Rows(0).Item("PRAEFIX")
-                'Dem Neuen Dateinamen schon mal das Präfix mitgeben
-                _newfilename = _praefix
-                _newfilename = _newfilename & _MRDeskrIndex & extension
-
-                _Logger.Debug("Ausgelesener Pfad: " & _path)
-                _Logger.Debug("Neuer Dateiname: " & _newfilename)
-
-                '### VERSIONIERUNG ###
-                Dim version As Integer = 2
-                Dim Stammname As String = _newfilename.Substring(0, _newfilename.LastIndexOf("."))
-                Dim neuername As String = _newfilename.Substring(0, _newfilename.LastIndexOf("."))
-                'Überprüfen ob File existiert
-                Do While file_exists(_path & "\" & neuername & extension, False) = True
-                    neuername = Stammname & "~" & version
-                    _newfilename = neuername & extension
-                    version = version + 1
-                Loop
-                _ziel = _path & "\" & _newfilename
-
-                If My.Settings.vLogErrorsonly = False Then
-                    If neuername.Contains("~") Then _Logger.Info("Neuer Dateiname: " & _newfilename)
-
-                    _Logger.Debug("Neuer Dateiname: " & _newfilename)
-                    _Logger.Debug("Quelle: " & vDatei)
-                    _Logger.Debug("Ziel: " & _ziel)
-                End If
-
-                If myFolderPath <> _path Then
-                    _windreamNI.NEW_MOVE_FILE(_ziel, vDatei, "MO_RE")
-                    'ClassLoggerNI.Add(" ######### Erfolgsmeldung - Datei wurde erfolgreich umbenannt und verschoben ###########")
-                Else
-                    _Logger.Info("Verschieben nicht notwendig: Ordnerpfad identisch!")
-                    Dim sw As New ClassStopwatch("RenameFile")
-                    My.Computer.FileSystem.RenameFile(vDatei, _newfilename)
-                    _Logger.Debug("Erfolgsmeldung - Datei wurde erfolgreich umbenannt")
-                    Dim msg = sw.Done
-                    If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
-                End If
-                Execute_Command("INSERT INTO TBMO_RE_HISTORY (FILE_ORIGINAL, FILE_NEW, KUNDE, INDEX1, INDEX2, ERSTELLTWER) VALUES " &
-                                "('" & vDatei & "','" & _ziel & "','" & _kunde & "','" & _MRDeskrIndex & "','" & _MRDOKART & "','ToolCollection MORE')")
-                Return _ziel
-            Else
-                _Logger.Info("MO_RE Result was not 1 row: check select..." & oSelect)
-                Return False
-            End If
-        Catch ex As Exception
-            _Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
-            Return False
-        End Try
-    End Function
     Private Shared Function file_exists(ByVal _file As String, ByVal suche As Boolean)
         Try
             _file = _file.Replace("W:", "\\windream\objects")

ToolCollection/ClassNIDatenbankzugriff.vb

@@ -15,12 +15,15 @@ Public Class ClassNIDatenbankzugriff
     Private Shared aTimer As System.Timers.Timer
     Private Shared Oracle_Conn As New OracleConnection
     Private _firebird As Firebird
+
     Sub New(LogConf As DigitalData.Modules.Logging.LogConfig)
         _Logger = LogConf.GetLogger()
         If My.Settings.FB_DATASOURCE <> String.Empty Then
             _firebird = New Firebird(LogConf, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
         End If
 
+        'Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd
+
 
     End Sub
     ''' <summary>
@@ -61,7 +64,6 @@ Public Class ClassNIDatenbankzugriff
             '    End If
         End If
     End Sub
-    Private email As New ClassNIEmail
     ' führt eine SQL-Anweisung auf der DB aus
     Public Function GetValueFromOracleDb(Profilname As String, ByVal selectAnweisung As String, ByVal host As String, ByVal servicename As String, ByVal User As String, ByVal pw As String, ByVal myDS As DataSet, Optional ByVal Indexname As String = "", Optional ByVal QuellVektor As Boolean = False)
         Dim swGvfO As New ClassStopwatch("GetValueFromOracleDb")
@@ -108,9 +110,7 @@ Public Class ClassNIDatenbankzugriff
                 _LastStep = "OracleCon.State: " & Oracle_Conn.State.ToString
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
+
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseOracleDb(Oracle_Conn)
                 Return Nothing
@@ -124,9 +124,7 @@ Public Class ClassNIDatenbankzugriff
                 _LastStep = "ORACLE Command definiert"
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
+
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Abfrage definieren: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseOracleDb(Oracle_Conn)
                 Return Nothing
@@ -196,9 +194,6 @@ Public Class ClassNIDatenbankzugriff
                     ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
                     _Logger.Error(ex)
                     _Logger.Warn($"Unexpected error in GetValueFromOracleDB - Oracle-Command: {selectAnweisung}")
-                    If My.Settings.vNIMailsenden = True Then
-                        email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Daten auslesen => SQL-Anweisungen prüfen: <br>" & selectAnweisung & " <br>Fehler:  <br>" & ex.Message)
-                    End If
                     ' DB-Connection schliessen
                     Oracle_Conn.Close()
                     Dim msg = swGvfO.Done
@@ -210,9 +205,6 @@ Public Class ClassNIDatenbankzugriff
                 ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
                 ' Eintrag in Logdatei machen
                 _Logger.Warn("ClassNIDatenbankzugriff.GetValueFromOracleDb", "SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. ")
-                End If
                 Dim msg = swGvfO.Done
                 If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
                 Return Nothing
@@ -223,9 +215,6 @@ Public Class ClassNIDatenbankzugriff
             _Logger.Error(ex)
             _Logger.Warn($"Unexpected error in GetValueFromOracleDB: [{ex.Message}] -Oracle-Command: " & selectAnweisung)
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromOracleDb - Ein unbekannter Fehler: " & ex.Message)
-            End If
             Dim msg = swGvfO.Done
             If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
             Return Nothing
@@ -263,9 +252,6 @@ Public Class ClassNIDatenbankzugriff
                 Oracle_Conn.Open()
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseOracleDb(Oracle_Conn)
                 Return 0
@@ -279,9 +265,6 @@ Public Class ClassNIDatenbankzugriff
                 _Logger.Debug(">> Oracle-Command: " & plsqlcommand)
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - plsqlcommand definieren: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseOracleDb(Oracle_Conn)
                 Return 0
@@ -300,9 +283,6 @@ Public Class ClassNIDatenbankzugriff
                 Catch ex As Exception
                     ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
                     _Logger.Error(ex)
-                    If My.Settings.vNIMailsenden = True Then
-                        email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Execute Command => (" & plsqlcommand & "): " & ex.Message)
-                    End If
                     ' DB-Connection schliessen
                     Me.CloseOracleDb(Oracle_Conn)
                     Return 0
@@ -320,9 +300,7 @@ Public Class ClassNIDatenbankzugriff
         Catch ex As Exception
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
             _Logger.Error(ex)
-            If My.Settings.vNIMailsenden = True Then
+
-                email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleDb - Ein unbekannter Fehler in ExecuteonOracleDb: " & ex.Message)
-            End If
             Timer_Stop()
             Return 0
         End Try
@@ -356,9 +334,7 @@ Public Class ClassNIDatenbankzugriff
                 Oracle_Conn.Open()
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
+
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Oracle_Conn.Close()
                 Timer_Stop()
@@ -373,9 +349,7 @@ Public Class ClassNIDatenbankzugriff
                 _Logger.Debug(">> Oracle-Command: " & plsqlcommand)
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
+
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - plsqlcommand definieren: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Oracle_Conn.Close()
                 Timer_Stop()
@@ -407,9 +381,6 @@ Public Class ClassNIDatenbankzugriff
                 Catch ex As Exception
                     ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
                     _Logger.Error(ex)
-                    If My.Settings.vNIMailsenden = True Then
-                        email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Execute Command => (" & plsqlcommand & "): " & ex.Message)
-                    End If
                     ' DB-Connection schliessen
                     Oracle_Conn.Close()
                     Timer_Stop()
@@ -428,9 +399,6 @@ Public Class ClassNIDatenbankzugriff
         Catch ex As Exception
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
             _Logger.Error(ex)
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonOracleClient - Ein unbekannter Fehler in ExecuteonOracleClient: " & ex.Message)
-            End If
             Timer_Stop()
             Return 0
         End Try
@@ -500,9 +468,6 @@ Public Class ClassNIDatenbankzugriff
                 Connection.Open()
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.CheckIndex_mssql - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseMssqlDb(Connection)
                 Return Nothing
@@ -562,9 +527,6 @@ Public Class ClassNIDatenbankzugriff
                 SQLconnect.Open()
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Return Nothing
             End Try
@@ -572,11 +534,11 @@ Public Class ClassNIDatenbankzugriff
             Try
                 SQLcommand = SQLconnect.CreateCommand
                 SQLcommand.CommandText = selectAnweisung
+                SQLcommand.CommandTimeout = 120
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
+
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Abfrage definieren: " & ex.Message)
+
-                End If
                 ' DB-Connection schliessen
                 SQLconnect.Close()
                 Return Nothing
@@ -661,9 +623,6 @@ Public Class ClassNIDatenbankzugriff
                         Catch ex As Exception
 
                             _Logger.Warn("ClassNIDatenbankzugriff.GetValueFromMssqlDb" & ex.Message)
-                            If My.Settings.vNIMailsenden = True Then
-                                email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Datatable durchlaufen: " & ex.Message)
-                            End If
                             ' DB-Connection schliessen
                             SQLconnect.Close()
                             Return Nothing
@@ -671,9 +630,6 @@ Public Class ClassNIDatenbankzugriff
                     Else
                         'Eintrag in Logdatei machen
                         _Logger.Warn("Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
-                        If My.Settings.vNIMailsenden = True Then
-                            email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Die Datatable ist unerwartet nothing. (SQL: " & selectAnweisung & ")")
-                        End If
                         SQLconnect.Close()
                         Return Nothing
                     End If
@@ -681,9 +637,7 @@ Public Class ClassNIDatenbankzugriff
                     'kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
                     'Eintrag in Logdatei machen
                     _Logger.Warn("SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
-                    If My.Settings.vNIMailsenden = True Then
+
-                        email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - SQL-Anweisung ist ungültig. Command-Objekt konnte nicht erstellt werden. (SQL: " & selectAnweisung & ")")
-                    End If
                     SQLconnect.Close()
                     Return Nothing
                 End If
@@ -693,9 +647,6 @@ Public Class ClassNIDatenbankzugriff
                 ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
                 _Logger.Error(ex)
                 _Logger.Warn($"SQL-Command [{selectAnweisung}]")
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Build Datenadapter => SQL-Anweisungen prüfen (" & selectAnweisung & "): " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 SQLconnect.Close()
                 Return Nothing
@@ -708,9 +659,6 @@ Public Class ClassNIDatenbankzugriff
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
             _Logger.Error(ex)
 
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.GetValueFromMssqlDb - Ein unbekannter Fehler: " & ex.Message)
-            End If
             Return Nothing
         End Try
     End Function
@@ -742,7 +690,7 @@ Public Class ClassNIDatenbankzugriff
             ' die nötigen Variablen definieren
             Dim Connection As SqlConnection = Nothing
             ' Dim ConnectionString As SqlConnectionStringBuilder = Nothing
-            Dim Command As SqlCommand = Nothing
+            Dim oSQLCommand As SqlCommand = Nothing
             Dim DataAdapter As SqlDataAdapter = Nothing
 
             '' ConnectionString aufbauen (aus Settings auslesen)
@@ -766,10 +714,6 @@ Public Class ClassNIDatenbankzugriff
                 Connection.Open()
             Catch ex As Exception
                 _Logger.Error(ex)
-
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseMssqlDb(Connection)
                 Return 0
@@ -778,31 +722,26 @@ Public Class ClassNIDatenbankzugriff
 
             ' SQL-Abfrage definieren
             Try
-                Command = New SqlCommand(sqlcommand, Connection)
+                oSQLCommand = New SqlCommand(sqlcommand, Connection)
+
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - sqlcommand definieren: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseMssqlDb(Connection)
                 Return 0
             End Try
 
             ' *** Ausführen des Command ***
-            If Command IsNot Nothing Then
+            If oSQLCommand IsNot Nothing Then
 
                 Try
-                    Command.ExecuteNonQuery()
+                    oSQLCommand.ExecuteNonQuery()
                     ' DB-Connection schliessen
                     Me.CloseMssqlDb(Connection)
                     Return 1
                 Catch ex As Exception
                     ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
                     _Logger.Error(ex)
-                    If My.Settings.vNIMailsenden = True Then
-                        email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Execute Command => SQL-Anweisungen prüfen (" & sqlcommand & "): " & ex.Message)
-                    End If
                     ' DB-Connection schliessen
                     Me.CloseMssqlDb(Connection)
                     Return 0
@@ -811,44 +750,15 @@ Public Class ClassNIDatenbankzugriff
                 ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
                 ' Eintrag in Logdatei machen
                 _Logger.Warn("Unexpected error in Execute on MSSQL Row 774")
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden.")
-                End If
-
                 Return 0
             End If
         Catch ex As Exception
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
             _Logger.Error(ex)
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Profilname: " & Profilname & "<br>Profilname: " & Profilname & "<br>ClassNIDatenbankzugriff.ExecuteonMSSQL - Ein unbekannter Fehler in ExecuteonMSSQL: " & ex.Message)
-            End If
             Return 0
         End Try
 
     End Function
-    Public Shared Function Return_Datatable(pSQLCommand As String) As DataTable
-        Try
-            Dim sw As New ClassStopwatch("Return_Datatable")
-            Dim SQLconnection As New SqlClient.SqlConnection(My.Settings.DDECMConString)
-            Dim SQLcommand As New SqlCommand(pSQLCommand, SQLconnection)
-            SQLcommand.CommandTimeout = 600
-            SQLconnection.Open()
-
-
-            Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand)
-            Dim dt As DataTable = New DataTable()
-            adapter1.Fill(dt)
-            SQLconnection.Close()
-            Dim msg = sw.Done
-            If msg <> "" Then _Logger.Debug($"SWResult: {msg}")
-            Return dt
-        Catch ex As Exception
-            _Logger.Error(ex)
-            _Logger.Error($"SQL Return Datatable [{pSQLCommand}]")
-            Return Nothing
-        End Try
-    End Function
     Public Function CheckIndex_MSSSQL(Profilname As String, ByVal scalar_select As String, ByVal datasource As String, ByVal User As String, ByVal pw As String, ByVal init_Cata As String)
         Try
             _Logger.Debug("MSSQL-Command: " & scalar_select)
@@ -870,9 +780,6 @@ Public Class ClassNIDatenbankzugriff
                 Connection.Open()
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>CheckIndex_MSSSQL - Verbindung zur Datenbank aufbauen: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseMssqlDb(Connection)
                 Return Nothing
@@ -883,9 +790,6 @@ Public Class ClassNIDatenbankzugriff
                 Command = New SqlCommand(scalar_select, Connection)
             Catch ex As Exception
                 _Logger.Error(ex)
-                If My.Settings.vNIMailsenden = True Then
-                    email.Send_EMail("Profilname: " & Profilname & "<br>CheckIndex_MSSSQL - sqlcommand definieren: " & ex.Message)
-                End If
                 ' DB-Connection schliessen
                 Me.CloseMssqlDb(Connection)
                 Return Nothing

ToolCollection/ClassNIEmail.vb

@@ -1,153 +0,0 @@
-Imports System.Net.Mail
-Imports System.IO
-Imports DigitalData.Modules.Logging
-Public Class ClassNIEmail
-    Private Shared _Logger As DigitalData.Modules.Logging.Logger
-    Public Shared err_message As String
-    Public Shared Sub Add(ByVal errmsg As String)
-        err_message &= vbNewLine & errmsg
-    End Sub
-
-    Public Shared Sub Send_EMail(ByVal vBody As String, Optional ByVal Test As Boolean = False)
-        '#### E-MAIL NACHRICHT VERSENDEN
-        Try
-            '#########
-            Dim empfaenger As String()
-            If My.Settings.vNIEmailEmpf <> "" Then
-                If My.Settings.vNIEmailEmpf.Contains(";") Then
-                    empfaenger = My.Settings.vNIEmailEmpf.Split(";")
-                Else
-                    ReDim Preserve empfaenger(0)
-                    empfaenger(0) = My.Settings.vNIEmailEmpf
-                End If
-                'Für jeden Empfänger eine Neue Mail erzeugen
-                For Each _mailempfaenger As String In empfaenger
-                    ' Neue Nachricht erzeugen: 
-                    Dim message As New MailMessage(My.Settings.vNIMailfrom, _mailempfaenger, My.Settings.vNIMailBetreff & " Domain: " & Environment.UserDomainName, _
-                                                   "<font face=""Arial"">" & My.Settings.vNIMailBody & vBody & "<br>>> Maschine: " & Environment.MachineName & _
-                                                    "<br>Kunde: " & frmStart._company & "<br>" & _
-                                                         "<br>Domain-Name: " & Environment.UserDomainName & "<br>" & _
-                                                         "<br>Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
-                                                   My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
-                    ' create and add the attachment(s) */
-                    'Dim logfile As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
-                    'If logfile.Contains("\\") Then
-                    '    logfile = logfile.Replace("\\", "\")
-                    'End If
-                    'Dim Attachment As Attachment = New Attachment(logfile)
-                    'message.Attachments.Add(Attachment)
-
-                    With message
-                        .IsBodyHtml = True
-                    End With
-
-                    'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
-                    Dim emailClient As New SmtpClient(My.Settings.vSMTP)
-                    'Email mit Authentifizierung
-                    Dim SMTPUserInfo As New System.Net.NetworkCredential(My.Settings.vMailUser.Trim, My.Settings.vMailPW.Trim) ', My.Settings.vDomain)
-                    emailClient.UseDefaultCredentials = False
-                    emailClient.Credentials = SMTPUserInfo
-                    emailClient.Port = My.Settings.vemailPort
-                    emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
-
-                    '*Send the message */
-                    emailClient.Send(message)
-                    _Logger.Info("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!")
-                    _Logger.Info("==> Text: " & vBody)
-                    If Test = True Then
-                        MsgBox("Email an " & _mailempfaenger & " erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
-                    End If
-                Next
-            End If
-            '########
-
-        Catch ex As Exception
-            If Test = True Then
-                MsgBox("Fehler im Mailversand:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler im Mailversand NI:")
-            Else
-                _Logger.Warn(">> Achtung: Fehler in Mailversand: " & ex.Message)
-            End If
-
-        End Try
-    End Sub
-    Public Shared Sub Send_Urgent(ByVal vBody As String, Optional ByVal Test As Boolean = False)
-        '#### E-MAIL NACHRICHT VERSENDEN
-        Try
-            Dim tempFilename = My.Computer.FileSystem.GetTempFileName()
-            Try
-
-                'Eine tempfile generieren
-                Dim name = Path.GetFileNameWithoutExtension(tempFilename)
-                tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".log")
-
-                ' File.Copy(Logger.LogDateiname, tempFilename)
-
-
-                ' create and add the attachment(s) */
-                'If logfile.Contains("\\") Then
-                '    logfile = logfile.Replace("\\", "\")
-                'End If
-
-            Catch ex As Exception
-                MsgBox("Fehler im Mailversand Urgent - Add LogFile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                _Logger.Warn(">> Achtung: Fehler in Mailversand Urgent - Add LogFile: " & ex.Message)
-            End Try
-            '#########
-            Dim empfaenger As String()
-            Dim EMAIL_EMP As String = "support-flow@digitaldata.works"
-            'If EMAIL_EMP.Contains(";") Then
-            empfaenger = EMAIL_EMP.Split(";")
-            'Else
-            'ReDim Preserve empfaenger(0)
-            'empfaenger(0) = EMAIL_EMP
-            ' End If
-            'Für jeden Empfänger eine Neue Mail erzeugen
-            For Each _mailempfaenger As String In empfaenger
-                ' Neue Nachricht erzeugen: 
-                Dim message As New MailMessage("support-flow@digitaldata.works", _mailempfaenger, "Tool Collection - Urgent Error - Domain: " & Environment.UserDomainName,
-                                               "<font face=""Arial"">" & vBody & "<br>>> Machine: " & Environment.MachineName &
-                                                "<br>Kunde: " & frmStart._company & "<br>" &
-                                                     "<br>Domain: " & Environment.UserDomainName & "<br>" &
-                                                     "<br>Send-Time: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" &
-                                               My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
-
-
-
-                With message
-                    .IsBodyHtml = True
-                End With
-                Dim Attachment As Attachment = New Attachment(tempFilename)
-                message.Attachments.Add(Attachment)
-                'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
-                Dim emailClient As New SmtpClient("mail.triplew.de")
-                'Email mit Authentifizierung
-                Dim SMTPUserInfo As New System.Net.NetworkCredential("support-flow@digitaldata.works", "ddemail105")
-                emailClient.UseDefaultCredentials = False
-                emailClient.Credentials = SMTPUserInfo
-                emailClient.Port = My.Settings.vemailPort
-                emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
-
-                '*Send the message */
-                emailClient.Send(message)
-                'tempfile löschen
-                If My.Computer.FileSystem.FileExists(tempFilename) Then
-                    'My.Computer.FileSystem.DeleteFile(tempFilename)
-                End If
-                _Logger.Info(">> Urgent Email erfolgreich an " & _mailempfaenger & " versendet!")
-                If Test = True Then
-                    MsgBox("Email an " & _mailempfaenger & " erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
-                End If
-            Next
-
-            '########
-
-        Catch ex As Exception
-            If Test = True Then
-                MsgBox("Fehler im Mailversand Urgent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Else
-                _Logger.Warn(">> Achtung: Fehler in Mailversand Urgent: " & ex.Message)
-            End If
-
-        End Try
-    End Sub
-End Class

ToolCollection/ClassNIProfile.vb

@@ -349,6 +349,10 @@ Public Class ClassNIProfile
     ' gibt ein einzelnes Profil-Objekt zurück
     Public Shared Function getProfilByName(ByVal profilname As String) As ClassNIProfil
 
+        If _profiles Is Nothing Then
+            Return Nothing
+        End If
+
         ' alle Profile durchlaufen
         For Each profil As ClassNIProfil In _profiles
 

ToolCollection/ClassNIWindream.vb

@@ -1,6 +1,9 @@
 Imports WINDREAMLib
 Imports WMOSRCHLib
 Imports DigitalData.Modules.Logging
+Imports System.Reflection
+Imports System.Runtime
+
 Public Class ClassNIWindream
     Inherits ClassWindream_allgemein
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
@@ -174,21 +177,28 @@ Public Class ClassNIWindream
                                 _Logger.Debug("Typ des windream-Indexes: 8204 Integer")
                             Case 8
                                 _Logger.Debug("Typ des windream-Indexes: 8 Vektor Boolean")
+                            Case Else
+                                _Logger.Info($"RunIndexing_Vektor - Invalid type: {vType}")
                         End Select
 
-                        Dim Anzahl As Integer = aValues.Length - 1
+                        Dim oAnzahl_Werte As Integer = aValues.Length - 1
+                        Dim oIndex = 0
+                        For Each aValue As String In aValues
+                            oIndex += 1
+                        Next
+                        _Logger.Debug("RunIndexing_Vektor - oIndex = {0}", oIndex)
                         'Vektorfeld wird mit EINEM Wert gefüllt
-                        If Anzahl = 0 Then
+                        If oAnzahl_Werte = 0 Or oIndex = 1 Then
                             _Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ")
                             ReDim myArray(0)
                             myArray(0) = Convert_IndexValue(vType, aValues(0))
                             _Logger.Debug("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
                         Else
-                            _Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ")
+                            _Logger.Debug($"RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten [{oAnzahl_Werte}] gefüllt ")
                             Dim _value As String
                             Try
                                 'Die Größe des Arrays festlegen
-                                ReDim myArray(Anzahl)
+                                ReDim myArray(oAnzahl_Werte)
                                 Dim i1 As Integer = 0
                                 For Each aValue As String In aValues
                                     _value = aValue
@@ -444,7 +454,7 @@ Public Class ClassNIWindream
                                     vektor = True
                                 Case Else
                                     _Logger.Warn("Typ des windream-Indexes konnte nicht bestimmt werden!")
-                                    _Logger.Debug("Versuch des Auslesens (vType): " & vType)
+                                    _Logger.Info($"RunIndexing - Invalid IndexType: {vType}")
                                     'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
                                     convertValue = ""
                             End Select
@@ -469,7 +479,7 @@ Public Class ClassNIWindream
                                             _Logger.Info("Achtung das Ändern des Indexes: '" & aName & "' ist nicht mehr erlaubt! Bitte überprüfen Sie Ihre Nachindexierungslogik und den Objekttyp.")
                                             oDocument.Save()
                                         Else
-                                            _Logger.Warn("Unvorhergesehener Fehler bei NonVektor-SetVariableValue:")
+                                            _Logger.Warn($"Unvorhergesehener Fehler bei NonVektor-SetVariableValue - Indexname: {aName}")
                                             _Logger.Warn("Fehlermeldung:" & ex.Message)
                                             oDocument.Save()
                                             oDocument.unlock()
@@ -505,10 +515,16 @@ Public Class ClassNIWindream
                                 Dim oAnzahl As Integer = BS.Count
 
                                 'Vektorfeld wird mit EINEM Wert gefüllt
-                                If oAnzahl = 1 Then
+                                If oAnzahl = 1 Or (oAnzahl = 0 And aValues.Length = 1 And aValues(0) <> "") Then
                                     _Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
-                                    ReDim myArray(0)
+                                    For Each DR In DT_VEKTOR.Rows
-                                    myArray(0) = Convert_IndexValue(vType, value)
+                                        If DR.Item("IndexName") = aName.ToString Then
+                                            ReDim myArray(0)
+                                            value = DR.Item("Value")
+                                            myArray(0) = Convert_IndexValue(vType, DR.Item("Value"))
+                                            Exit For
+                                        End If
+                                    Next
 
                                     'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
                                     _Logger.Debug("Konvertierter Wert: " & myArray(0).ToString)
@@ -565,97 +581,136 @@ Public Class ClassNIWindream
                                         _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
                                     End If
                                 Else
-                                    _Logger.Debug("Vektorfeld wird mit MEHREREN Werten [oAnzahl] gefüllt ")
+                                    If oAnzahl = 0 Then
-                                    ' das ausgewählte Profil in _selectedProfile laden
+                                        _Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt oAnzahl ist aber 0! ")
-                                    _selectedProfil = ClassNIProfile.getProfilByName(Profil)
+                                        Dim oAnzahlCheck As Integer = 0
+                                        For Each DR In DT_VEKTOR.Rows
+                                            If DR.Item("IndexName") = aName.ToString Then
+                                                value = DR.Item("Value")
+                                                oAnzahlCheck += 1
+                                                _Logger.Debug($"Prüfung ob Value kommt: [{value}] ")
+                                            End If
+                                        Next
+                                        If oAnzahlCheck = 1 Then
+                                            _Logger.Debug($"Vektorfeld wird tatsächlich nur mit einem Wert gefüllt!! ")
+                                            myArray(0) = Convert_IndexValue(vType, value)
+                                            ReDim myArray(0)
+                                            oDocument.SetVariableValue(aName, myArray)
+                                            _Logger.Debug("'SetVariableValue' für VEKTOR nach Anzahl 1 erfolgreich")
 
-                                    'Die Größe des Arrays festlegen
+                                            'Die Änderungen festsschreiben/speichern
-                                    ReDim myArray(oAnzahl - 1)
+                                            oDocument.Save()
-                                    Dim i1 As Integer = 0
+                                            _Logger.Debug("Indexierung erfolgreich beendet (Save Anzahl 1 ...")
-                                    'Die Datatable durchlaufen und Werte für den Index in Array schreiben
-                                    For Each DR In DT_VEKTOR.Rows
-
-                                        If DR.Item("IndexName") = aName.ToString Then
-                                            myArray(i1) = Convert_IndexValue(vType, DR.Item("Value"))
-
-                                            _Logger.Debug("Value (" & i1 & "): '" & DR.Item("Value").ToString & "'")
-                                            i1 = i1 + 1
                                         End If
-                                    Next
+                                    Else
-                                    _Logger.Debug("Array wurde erfolgreich erzeugt")
+                                        _Logger.Debug($"Vektorfeld wird mit MEHREREN Werten [{oAnzahl}] gefüllt ")
-
-                                    If _selectedProfil Is Nothing = False Then
-                                        Me._selectedProfil._links.selectedLink = Me._selectedProfil._links.getLinkByIndex(aName)
-                                        If Me._selectedProfil._links.selectedLink IsNot Nothing Then
-                                            Dim VektorArray
-                                            Select Case Me._selectedProfil._links.selectedLink.vktins_state
-                                                Case 1
-                                                    _Logger.Debug("vektInsState = '1' - Vektovalues will be replaced")
-                                                    Dim z As Integer = 0
-                                                    Try
-                                                        ReDim VektorArray(myArray.Length)
-                                                    Catch ex As Exception
-                                                        ReDim VektorArray(myArray.Count)
-                                                    End Try
 
 
-                                                    For Each oVectValue As Object In myArray
-                                                        If oVectValue Is Nothing = False Then
-                                                            'Das Array anpassen
-                                                            ReDim Preserve VektorArray(z)
 
-                                                            'Den Wert im Array speichern
+                                        ' das ausgewählte Profil in _selectedProfile laden
-                                                            VektorArray(z) = Convert_IndexValue(vType, oVectValue)
+                                        _selectedProfil = ClassNIProfile.getProfilByName(Profil)
 
-                                                            z += 1
+                                        'Die Größe des Arrays festlegen
-                                                        End If
+                                        ReDim myArray(oAnzahl - 1)
+                                        Dim i1 As Integer = 0
+                                        'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                        For Each DR In DT_VEKTOR.Rows
+
+                                            If DR.Item("IndexName") = aName.ToString Then
+                                                myArray(i1) = Convert_IndexValue(vType, DR.Item("Value"))
+
+                                                _Logger.Debug("Value (" & i1 & "): '" & DR.Item("Value").ToString & "'")
+                                                i1 = i1 + 1
+                                            End If
+                                        Next
+                                        _Logger.Debug("Array wurde erfolgreich erzeugt")
+
+                                        If _selectedProfil Is Nothing = False Then
+                                            Me._selectedProfil._links.selectedLink = Me._selectedProfil._links.getLinkByIndex(aName)
+                                            If Me._selectedProfil._links.selectedLink IsNot Nothing Then
+                                                Dim VektorArray
+                                                Select Case Me._selectedProfil._links.selectedLink.vktins_state
+                                                    Case 1
+                                                        _Logger.Debug("vektInsState = '1' - Vektovalues will be replaced")
+                                                        Dim z As Integer = 0
+                                                        Try
+                                                            ReDim VektorArray(myArray.Length)
+                                                        Catch ex As Exception
+                                                            ReDim VektorArray(myArray.Count)
+                                                        End Try
+
+
+                                                        For Each oVectValue As Object In myArray
+                                                            If oVectValue Is Nothing = False Then
+                                                                'Das Array anpassen
+                                                                ReDim Preserve VektorArray(z)
+
+                                                                'Den Wert im Array speichern
+                                                                VektorArray(z) = Convert_IndexValue(vType, oVectValue)
+
+                                                                z += 1
+                                                            End If
+                                                        Next
+                                                    Case 2 'Anfügen
+                                                        _Logger.Debug("vektInsState = '2'-638")
+                                                        VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType)
+                                                    Case 3 'Anfügen mit DuplikatCheck
+                                                        _Logger.Debug("vektInsState = '3'")
+                                                        VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType)
+                                                End Select
+                                                If VektorArray Is Nothing = False Then
+                                                    Dim oIndex As Integer = 0
+                                                    For Each oStr In VektorArray
+                                                        _Logger.Debug("For Each oStr In VektorArray - Value [{0}]", oStr)
+                                                        oIndex += 1
                                                     Next
-                                                Case 2 'Anfügen
+                                                    If oIndex = 0 Then
-                                                    _Logger.Debug("vektInsState = '2'-638")
+                                                        _Logger.Debug("VektorArray.length = 0 ... Skipping Redim")
-                                                    VektorArray = Return_VektorArray(oDocument, aName, myArray, False, vType)
+                                                    Else
-                                                Case 3 'Anfügen mit DuplikatCheck
+                                                        _Logger.Debug("RunIndexing - Nun nochmal redimensionieren Array für windeam...")
-                                                    _Logger.Debug("vektInsState = '3'")
+                                                        'Das Array wieder anpassen
-                                                    VektorArray = Return_VektorArray(oDocument, aName, myArray, True, vType)
+                                                        Try
-                                            End Select
+                                                            ReDim myArray(VektorArray.Length - 1)
-                                            If VektorArray Is Nothing = False Then
+                                                        Catch ex As Exception
-                                                'Das Array wieder anpassen
+                                                            ReDim myArray(VektorArray.count - 1)
-                                                Try
+                                                        End Try
-                                                    ReDim myArray(VektorArray.Length - 1)
+                                                        Dim oIndex1 As Integer = 0
-                                                Catch ex As Exception
+                                                        For Each oStr In VektorArray
-                                                    ReDim myArray(VektorArray.count - 1)
+                                                            myArray(oIndex1) = oStr
-                                                End Try
+                                                            _Logger.Debug("RunIndexing - Value {0} - [{1}]", oIndex1, oStr)
-                                                Dim oIndex As Integer = 0
+                                                            oIndex1 += 1
-                                                For Each oStr In VektorArray
+                                                        Next
-                                                    myArray(oIndex) = oStr
+                                                    End If
-                                                    oIndex += 1
-                                                Next
 
-                                                'Jetzt die Nachindexierung für Vektor-Felder
-                                                oDocument.SetVariableValue(aName, myArray)
-                                                _Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich")
 
-                                                ' oDocument.LockRights()
+                                                    'Jetzt die Nachindexierung für Vektor-Felder
+                                                    oDocument.SetVariableValue(aName, myArray)
+                                                    _Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich")
+
+                                                    ' oDocument.LockRights()
+
+                                                    'Die Änderungen festsschreiben/speichern
+                                                    oDocument.Save()
+                                                    _Logger.Debug("Indexierung erfolgreich beendet (Save ...")
+                                                Else
+                                                    If My.Settings.vLogErrorsonly = False Then _Logger.Info("Achtung: VektorArray Is NOTHING")
+                                                    oDocument.Save()
+                                                    Return True
+                                                End If
 
-                                                'Die Änderungen festsschreiben/speichern
-                                                oDocument.Save()
-                                                _Logger.Debug("Indexierung erfolgreich beendet (Save ...")
                                             Else
-                                                If My.Settings.vLogErrorsonly = False Then _Logger.Info("Achtung: VektorArray Is NOTHING")
+                                                _Logger.Warn(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING")
                                                 oDocument.Save()
                                                 Return True
                                             End If
-
                                         Else
-                                            _Logger.Warn(">> Achtung: Der Link konnte nicht geladen werden - _selectedProfil._links.selectedLink is NOTHING")
+                                            _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
                                             oDocument.Save()
                                             Return True
                                         End If
-                                    Else
-                                        _Logger.Warn(">> Achtung: Das Profil konnte nicht geladen werden - _selectedProfil is NOTHING")
-                                        oDocument.Save()
-                                        Return True
                                     End If
 
+
                                 End If
 
                             End If
@@ -683,9 +738,6 @@ Public Class ClassNIWindream
                     i1 += 1
                 Next
             End If
-            If My.Settings.vNIMailsenden = True Then
-                'email.Send_EMail("Fehler bei RunIndexing - Datei: " & oDocument.aName.ToString & "<br>Profilname: " & Profil & "<br>Fehler: " & ex.Message)
-            End If
             oDocument.Save()
             oDocument.unlock()
             Return True
@@ -780,6 +832,7 @@ Public Class ClassNIWindream
                         End If
                     End If
                 Next
+                _Logger.Debug("Vektor-Array wurde erzeugt - Anzahl {0}", oValues.Count)
             End If
 
             Return oValues
@@ -845,6 +898,10 @@ Public Class ClassNIWindream
             Case 8204
                 oIndexValue = oIndexValue.Replace(" ", "")
 
+                Return CInt(oIndexValue)
+            Case WMObjectVariableValueTypeInteger
+                oIndexValue = oIndexValue.Replace(" ", "")
+
                 Return CInt(oIndexValue)
             Case WMObjectVariableValueTypeCurrency
                 Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(oIndexValue))
@@ -903,9 +960,6 @@ Public Class ClassNIWindream
 
         Catch ex As Exception
             _Logger.Error(ex)
-            If My.Settings.vNIMailsenden = True Then
-                'email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
-            End If
             oDocument.Save()
             oDocument.unlock()
         End Try
@@ -939,9 +993,6 @@ Public Class ClassNIWindream
                 ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
                 Select Case suchTyp.ToString.ToUpper
                     Case "WMOSRCH.WMQUICKSEARCH"
-                        'srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
-
-                        'Me.oConnect.LoginSession(oWMSession) 'srchQuick.WMSession)
 
                         srchQuick.ClearSearch()
                         srchQuick.SearchProfilePath = ProfilePath
@@ -950,8 +1001,7 @@ Public Class ClassNIWindream
                         oSearch = srchQuick.GetSearch()
 
                     Case "WMOSRCH.WMINDEXSEARCH"
-                        srchIndex.WMSession = oWMSession 'CreateObject("Windream.WMSession", Me.GetCurrentServer)
+                        srchIndex.WMSession = oWMSession
-
                         'Me.oConnect.LoginSession(srchIndex.WMSession)
 
                         srchIndex.ClearSearch()
@@ -961,7 +1011,7 @@ Public Class ClassNIWindream
                         oSearch = srchIndex.GetSearch()
 
                     Case "WMOSRCH.WMOBJECTTYPESEARCH"
-                        srchObjectType.WMSession = oWMSession 'CreateObject("Windream.WMSession", Me.GetCurrentServer)
+                        srchObjectType.WMSession = oWMSession
 
                         'Me.oConnect.LoginSession(oWMSession) 'srchObjectType.WMSession)
 
@@ -987,9 +1037,8 @@ Public Class ClassNIWindream
             End Try
         Else
             If wdfLocation.ToUpper.Contains("SELECT") Or wdfLocation.ToUpper.Contains("EXEC") Then
+                _Logger.Info("WMSearch replaced with SQL Command ...:")
                 WMSearchIsSQL = True
-
-
             End If
         End If
 
@@ -1012,30 +1061,43 @@ Public Class ClassNIWindream
             Return Nothing
         End Try
     End Function
-    Public Function NEW_MOVE_FILE(targetpath As String, sourcepath As String, oMethod As String) As Boolean
+    Public Function NEW_MOVE_FILE(targetpath As String, sourcepath As String, oMethod As String, pFileName As String) As Boolean
         Dim oWMFile As WINDREAMLib.WMObject
         Try
-            If My.Settings.vLogErrorsonly = False Then
+            sourcepath = sourcepath.ToLower
-                _Logger.Info($"targetpath ({targetpath})")
+            targetpath = targetpath.ToLower
-                _Logger.Info($"sourcepath ({sourcepath})")
+            If IsNothing(oWMSession) Then
+                _Logger.Warn($"Error in NEW_MOVE_FILE -  oWMSession is nothing")
+                Return False
             End If
+            _Logger.Debug($"targetpath ({targetpath})")
+            _Logger.Debug($"sourcepath ({sourcepath})")
 
 
             Dim sw As New ClassStopwatch("NEW_MOVE_FILE")
             Dim oTargetpath = System.IO.Path.GetDirectoryName(targetpath)
-            oTargetpath = oTargetpath.Replace("\\windream\objects", "")
+            oTargetpath = oTargetpath.Replace("windream\objects", "")
-            oTargetpath = oTargetpath.Replace("W:\", "\")
+            oTargetpath = oTargetpath.Replace("w:\", "\")
 
 
-            targetpath = targetpath.Replace("\\windream\objects", "")
+            targetpath = targetpath.Replace("windream\objects", "")
-            targetpath = targetpath.Replace("W:\", "\")
+            targetpath = targetpath.Replace("w:\", "\")
 
-            sourcepath = sourcepath.Replace("\\windream\objects", "")
+            sourcepath = sourcepath.Replace("w:\", "\")
-            sourcepath = sourcepath.Replace("W:\", "\")
+            sourcepath = sourcepath.Replace("windream\objects", "")
+            sourcepath = sourcepath.Replace("\\", "\")
+
+            targetpath = targetpath.Replace("\\", "\")
             Const WMEntityDocument = 1
-            Dim IndexwertAusWindream As Object = Nothing
 
-            oWMFile = oWMSession.GetWMObjectByPath(WMEntityDocument, sourcepath)
+            _Logger.Debug($"getting WMObject for: {sourcepath}")
+            Try
+                oWMFile = oWMSession.GetWMObjectByPath(WMEntityDocument, sourcepath)
+            Catch ex As Exception
+                _Logger.Warn($"Error in NEW_MOVE_FILE -  GetWMObjectByPath [{pFileName}] - Source[{sourcepath}]")
+                Return False
+            End Try
+
             If oWMFile.lock Then
                 oWMFile.aPath = targetpath
                 oWMFile.Save()
@@ -1051,6 +1113,7 @@ Public Class ClassNIWindream
             End If
         Catch ex As Exception
             _Logger.Error(ex)
+            _Logger.Warn($"Error in NEW_MOVE_FILE pFileName [{pFileName}] - [{targetpath}]")
             If Not IsNothing(oWMFile) Then
                 oWMFile.unlock()
             End If

ToolCollection/ClassWD_Rechte.vb

@@ -63,6 +63,8 @@ Public Class ClassWD_Rechte
                 oServername = Me.GetCurrentServer()
                 ' Connection-Objekt instanziieren
                 Me.oConnect = CreateObject("Windream.WMConnect")
+
+
                 'MsgBox("windrem init 'ed")
 
             Catch ex As Exception
@@ -100,6 +102,8 @@ Public Class ClassWD_Rechte
                 End Try
 
             End If
+            _Logger.Debug("#RightModule successfully initialized!")
+
             Return True
         Catch ex As Exception
             If Err.Number = -2147220985 Then
@@ -198,6 +202,7 @@ Public Class ClassWD_Rechte
         Else
             SessionAsUser = aSession
             If aSession.aLoggedin = True Then
+                _Logger.Debug($"#Impersonate login [{UserName}] successfull!")
                 Return SessionAsUser
             End If
 
@@ -355,7 +360,7 @@ Public Class ClassWD_Rechte
                 End If
             ElseIf _GruppenUserRecht.ToString.ToLower.StartsWith("select") Then
                 _GruppenUserRecht = _GruppenUserRecht.ToString.Replace("[%Dokument-ID]", CURRENT_DOCID)
-                _GruppenUserRecht = database.Return_Datatable(_GruppenUserRecht)
+                _GruppenUserRecht = DB_ECM.GetDatatable(_GruppenUserRecht)
             End If
             Dim oType = _GruppenUserRecht.GetType.ToString
             If oType = "System.Data.DataTable" Then
@@ -538,6 +543,7 @@ Public Class ClassWD_Rechte
                     Else
                         _msg = "Right for User: '" & UserOrGroup.aName & "'"""
                     End If
+                    _Logger.Debug($"Working on {_msg} ...")
 
                     If Err.Number <> 0 Then
                         Dim msg = "Fehler bei Zugriff auf UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
@@ -552,21 +558,33 @@ Public Class ClassWD_Rechte
 
                     'einem Rechteträger ALLE Rechte zu entziehen 
                     'entfernt ihn gleichzeitig aus der Auflistung der Rechteträger
-                    Object_Rights2Delete.Delete2(UserOrGroup, WMAccessRightAllRights)
+                    _Logger.Debug($"Now deleting the right...")
-                    If Err.Number <> 0 Then
+                    Try
-                        Dim msg = "Fehler bei Zugriff Delete2 - Err.Number: " & Err.Number & vbCrLf & Err.Description
+                        Object_Rights2Delete.Delete2(UserOrGroup, WMAccessRightAllRights)
-                        If _form = True Then
+                    Catch ex As Exception
-                            MsgBox(msg, MsgBoxStyle.Critical)
+                        If Err.Number <> 0 Then
+                            Dim msg = "Fehler bei Zugriff Delete2 - Err.Number: " & Err.Number & vbCrLf & Err.Description
+                            If _form = True Then
+                                MsgBox(msg, MsgBoxStyle.Critical)
+                            Else
+                                _Logger.Warn(msg)
+                            End If
                         Else
-                            _Logger.Warn(msg)
+                            Dim msg = "Unexpected error Delete2 - Error: " & vbNewLine & ex.Message
+                            If _form = True Then
+                                MsgBox(msg, MsgBoxStyle.Critical)
+                            Else
+                                _Logger.Error(ex)
+                            End If
                         End If
                         _Erfolgreich = False
                         Return _Erfolgreich
+                    End Try
+
 
-                    End If
                 Next
                 If _form = False Then
-                    _Logger.Info("* Die Rechte wurden erfolgreich entfernt.")
+                    _Logger.Info("* Die Rechte wurden erfolgreich entfernt *")
                 End If
 
 

ToolCollection/ClassWindream_allgemein.vb

@@ -49,7 +49,57 @@ Public Class ClassWindream_allgemein
             ' Process.GetCurrentProcess.Kill()
         End If
     End Sub
+    Public Function GetWMSessionAsUser(Domain, ServerName, UserName, Password)
+        Dim SessionAsUser
+        Dim aConnect, aUserId, aSession
+        On Error Resume Next
 
+        ' Hilfsobjekte erschaffen, um eine Verbindung zum windream Server herzustellen
+        ' mit der gewünschten Benutzer-Identität
+        aConnect = CreateObject("Windream.WMConnect")
+        'Bei einer impersonifizierten Session ist zu beachten, dass die ModuleID 9 zu nutzen ist. 
+        'Wird keine Session-ID angegeben, hat die Session die ID 0 (‚Default‘).
+        aConnect.ModuleId = 9
+        If Err.Number <> 0 Then
+            Dim msg = "Fehler bei CreateObject (aConnect) - Err.Number: " & Err.Number & vbNewLine & Err.Description
+            _Logger.Warn(msg)
+            SessionAsUser = Nothing
+            Return SessionAsUser
+        End If
+
+        aUserId = CreateObject("WMOTool.WMUserIdentity")
+        If Err.Number <> 0 Then
+            Dim msg = "Fehler bei CreateObject('WMOTool.WMUserIdentity') - Err.Number: " & Err.Number & vbNewLine & Err.Description
+
+            _Logger.Warn(msg)
+
+            SessionAsUser = Nothing
+            Return SessionAsUser
+        End If
+
+        aUserId.aDomain = Domain
+        aUserId.aServerName = ServerName
+        aUserId.aUserName = UserName
+        aUserId.aPassword = Password
+
+        aSession = aConnect.Login(aUserId)
+
+
+        If Err.Number <> 0 Then
+            Dim msg = "Fehler bei aConnect.Login(aUserId) - Err.Number: " & Err.Number & vbNewLine & Err.Description
+            _Logger.Warn(msg)
+
+            SessionAsUser = Nothing
+            Return SessionAsUser
+        Else
+            SessionAsUser = aSession
+            If aSession.aLoggedin = True Then
+                _Logger.Debug($"#Impersonate login [{UserName}] successfull!")
+                Return SessionAsUser
+            End If
+
+        End If
+    End Function
 
     ''' <summary>
     ''' Initialisiert die statische Klasse (Login, Session starten, usw.)
@@ -60,98 +110,12 @@ Public Class ClassWindream_allgemein
         Dim oHourDifference As Integer
         oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
 
-
-
         If IsNothing(CURRENToWMSession) Or oHourDifference >= 2 Then
-            Try
+            If WMLOGIN_DOMAIN <> String.Empty Then
-
+                GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
-                Try
+            Else
-                    ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
+                GetWMSession()
-                    Me.oWMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+            End If
-                    ' Connection-Objekt instanziieren
-                    Me.oConnect = CreateObject("Windream.WMConnect")
-                    CURRENToWMConnect = oConnect
-                    'MsgBox("windrem init 'ed")
-                Catch ex As Exception
-                    clsHelper.Add_Application_log("Unexpected error in Windream.Init(CreateObjects): " & ex.Message)
-                    Return False
-                End Try
-
-
-                ' wenn windream nicht angemeldet ist
-                If Not Me.IsLoggedIn Then
-
-                    ' Art der Anmeldung an windream festlegen
-                    '   0x0L (also 0)                   = Standard windream Benutzer
-                    '   WM_MODULE_ID_DOCTYPEEDITOR_LIC  = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
-                    '   WM_MODULE_ID_INDEXSERVICE       = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
-                    Me.oConnect.ModuleID = 0
-
-                    ' setzt die minimal erwartete windream-Version 
-                    Me.oConnect.MinReqVersion = "3"
-
-                    ' -- Impersonifizierung nur möglich mit registry-eintrag --
-                    'oConnect.UserName = "\digitaldata\schreiberm"
-                    'oConnect.Password = "schreiber"
-
-                    ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
-                    Me.oConnect.LoginSession(Me.oWMSession)
-
-                    If Me.oWMSession.aLoggedin = False Then
-                        clsHelper.Add_Application_log("Unexpected error in Windream.Init(oSession.aloggedIn): Could not check session-state")
-
-                        Return False
-                    End If
-
-                    ' AUSGABE VON SYSTEMINFORMATIONEN
-                    ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) 
-                    ' oder Business-Edition (BE) aus
-                    'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
-                    '       vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
-
-                    'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
-                    'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
-
-                    '' liefert die Versionsnummer des Clients
-                    'MsgBox(WMCtrl.WMWorkstationBuildNo)
-                    'MsgBox(WMCtrl.W
-                    '' liefert den Servernamen des angemeldeten windreams
-                    'MsgBox(WMCtrl.WMServerName)
-
-                    Try
-                        Me.oWMSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
-                        ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
-                        ' Ordnertypen ausgelesen werden
-                        Me.oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
-                        ' Ordnertypen auslesen
-                        Me.oOrdnerTypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
-                        ' den Objekttyp laden
-                        ' Me.oSystemIndizes = Me.oSession.GetWMObjectByName(WMObjectRelationTypeObjectByName)
-                    Catch ex As Exception
-                        Return False
-                    End Try
-
-                End If
-                _Logger.Info("WMSession has been created! (clsWindreamAllgemein)")
-                CURRENToWMSession = oWMSession
-                CURRENToWMSession_Created = Now
-                Return True
-
-            Catch ex As Exception
-                If Err.Number = -2147220985 Then
-                    clsHelper.Add_Application_log("Unexpected error in Windream.Init(2147220985): " & ex.Message)
-
-                Else
-                    If Not ex.Message.Contains("Already logged in") Then
-                        clsHelper.Add_Application_log("Unexpected error in Windream.Init(Already logged in): " & ex.Message)
-
-                    Else
-                        Return True
-                    End If
-                End If
-                Return False
-            End Try
-
 
         Else
             If My.Settings.vLogErrorsonly = False Then _Logger.Debug("WMSession already created!")
@@ -161,6 +125,95 @@ Public Class ClassWindream_allgemein
 
 
     End Function
+    Private Function GetWMSession()
+        Try
+            Try
+                ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
+                Me.oWMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+                ' Connection-Objekt instanziieren
+                Me.oConnect = CreateObject("Windream.WMConnect")
+                CURRENToWMConnect = oConnect
+                'MsgBox("windrem init 'ed")
+            Catch ex As Exception
+                clsHelper.Add_Application_log("Unexpected error in Windream.Init(CreateObjects): " & ex.Message)
+                Return False
+            End Try
+
+
+            ' wenn windream nicht angemeldet ist
+            If Not Me.IsLoggedIn Then
+
+                ' Art der Anmeldung an windream festlegen
+                '   0x0L (also 0)                   = Standard windream Benutzer
+                '   WM_MODULE_ID_DOCTYPEEDITOR_LIC  = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
+                '   WM_MODULE_ID_INDEXSERVICE       = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
+                Me.oConnect.ModuleID = 0
+
+                ' setzt die minimal erwartete windream-Version 
+                Me.oConnect.MinReqVersion = "3"
+
+                ' -- Impersonifizierung nur möglich mit registry-eintrag --
+                'oConnect.UserName = "\digitaldata\schreiberm"
+                'oConnect.Password = "schreiber"
+
+                ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
+                Me.oConnect.LoginSession(Me.oWMSession)
+
+                If Me.oWMSession.aLoggedin = False Then
+                    clsHelper.Add_Application_log("Unexpected error in Windream.Init(oSession.aloggedIn): Could not check session-state")
+
+                    Return False
+                End If
+
+                ' AUSGABE VON SYSTEMINFORMATIONEN
+                ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) 
+                ' oder Business-Edition (BE) aus
+                'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
+                '       vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
+
+                'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
+                'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
+
+                '' liefert die Versionsnummer des Clients
+                'MsgBox(WMCtrl.WMWorkstationBuildNo)
+                'MsgBox(WMCtrl.W
+                '' liefert den Servernamen des angemeldeten windreams
+                'MsgBox(WMCtrl.WMServerName)
+
+                Try
+                    Me.oWMSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
+                    ' Ordnertypen ausgelesen werden
+                    Me.oObjekttypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                    ' Ordnertypen auslesen
+                    Me.oOrdnerTypen = Me.oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
+                    ' den Objekttyp laden
+                    ' Me.oSystemIndizes = Me.oSession.GetWMObjectByName(WMObjectRelationTypeObjectByName)
+                Catch ex As Exception
+                    Return False
+                End Try
+
+            End If
+            _Logger.Info("WMSession has been created! (clsWindreamAllgemein)")
+            CURRENToWMSession = oWMSession
+            CURRENToWMSession_Created = Now
+            Return True
+
+        Catch ex As Exception
+            If Err.Number = -2147220985 Then
+                clsHelper.Add_Application_log("Unexpected error in Windream.Init(2147220985): " & ex.Message)
+
+            Else
+                If Not ex.Message.Contains("Already logged in") Then
+                    clsHelper.Add_Application_log("Unexpected error in Windream.Init(Already logged in): " & ex.Message)
+                Else
+                    Return True
+                End If
+            End If
+            Return False
+        End Try
+    End Function
+
 #End Region
 
 #Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"

ToolCollection/ClassxmlZugriff.vb

@@ -1,7 +1,6 @@
 Imports System.Xml
 Imports DigitalData.Modules.Logging
 Public Class ClassxmlZugriff
-    Private email As New ClassNIEmail
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
     'führt eine SQL-Anweisung auf der DB aus
     Public Function GetValueFromLuratechxml(ByVal vfilename As String, ByVal vfullfilepath As String, ByVal KnotenString As String, ByVal Profil As String) ' 
@@ -69,9 +68,7 @@ Public Class ClassxmlZugriff
         Catch ex As Exception
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
            _Logger.Error(ex)
-            If My.Settings.vNIMailsenden = True Then
+
-                email.Send_EMail("ClassxmlZugriff.GetValueFromLuratechxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
-            End If
             Return Nothing
         End Try
     End Function
@@ -114,9 +111,6 @@ Public Class ClassxmlZugriff
         Catch ex As Exception
             ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
            _Logger.Error(ex)
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("ClassxmlZugriff.GetValueFromZugFerdxml " & "<br> Profil: " & Profil & "<br> Datei: " & vfullfilepath & "<br> Ein unbekannter Fehler: " & ex.Message)
-            End If
             Return Nothing
         End Try
     End Function

ToolCollection/DSNachbearbeitung.Designer.vb

@@ -30,7 +30,7 @@ Partial Public Class DSNachbearbeitung
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Sub New()
         MyBase.New
         Me.BeginInit
@@ -42,7 +42,7 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
         MyBase.New(info, context, false)
         If (Me.IsBinarySerialized(info, context) = true) Then
@@ -77,7 +77,7 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.Browsable(false),  _
      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
     Public ReadOnly Property TBNI_NACHBEARBEITUNG_AD() As TBNI_NACHBEARBEITUNG_ADDataTable
@@ -87,7 +87,7 @@ Partial Public Class DSNachbearbeitung
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.BrowsableAttribute(true),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -100,7 +100,7 @@ Partial Public Class DSNachbearbeitung
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
         Get
@@ -109,7 +109,7 @@ Partial Public Class DSNachbearbeitung
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
         Get
@@ -118,7 +118,7 @@ Partial Public Class DSNachbearbeitung
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub InitializeDerivedDataSet()
         Me.BeginInit
         Me.InitClass
@@ -126,7 +126,7 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Overrides Function Clone() As Global.System.Data.DataSet
         Dim cln As DSNachbearbeitung = CType(MyBase.Clone,DSNachbearbeitung)
         cln.InitVars
@@ -135,19 +135,19 @@ Partial Public Class DSNachbearbeitung
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeTables() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeRelations() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
             Me.Reset
@@ -171,7 +171,7 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -180,13 +180,13 @@ Partial Public Class DSNachbearbeitung
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars()
         Me.InitVars(true)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
         Me.tableTBNI_NACHBEARBEITUNG_AD = CType(MyBase.Tables("TBNI_NACHBEARBEITUNG_AD"),TBNI_NACHBEARBEITUNG_ADDataTable)
         If (initTable = true) Then
@@ -197,7 +197,7 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub InitClass()
         Me.DataSetName = "DSNachbearbeitung"
         Me.Prefix = ""
@@ -209,13 +209,13 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Function ShouldSerializeTBNI_NACHBEARBEITUNG_AD() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
             Me.InitVars
@@ -223,7 +223,7 @@ Partial Public Class DSNachbearbeitung
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
         Dim ds As DSNachbearbeitung = New DSNachbearbeitung()
         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -272,7 +272,7 @@ Partial Public Class DSNachbearbeitung
         Return type
     End Function
     
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Delegate Sub TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler(ByVal sender As Object, ByVal e As TBNI_NACHBEARBEITUNG_ADRowChangeEvent)
     
     '''<summary>
@@ -300,7 +300,7 @@ Partial Public Class DSNachbearbeitung
         Private columnID As Global.System.Data.DataColumn
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
             MyBase.New
             Me.TableName = "TBNI_NACHBEARBEITUNG_AD"
@@ -310,7 +310,7 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub New(ByVal table As Global.System.Data.DataTable)
             MyBase.New
             Me.TableName = table.TableName
@@ -328,14 +328,14 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
             MyBase.New(info, context)
             Me.InitVars
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property PROFILNAMEColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnPROFILNAME
@@ -343,7 +343,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property MethodeColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnMethode
@@ -351,7 +351,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property RechtenameColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnRechtename
@@ -359,7 +359,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property GroupUserColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnGroupUser
@@ -367,7 +367,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property AccessRightColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnAccessRight
@@ -375,7 +375,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property ErstelltwannColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnErstelltwann
@@ -383,7 +383,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property ErstelltwerColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnErstelltwer
@@ -391,7 +391,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnID
@@ -399,7 +399,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public ReadOnly Property Count() As Integer
             Get
@@ -408,33 +408,33 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Default ReadOnly Property Item(ByVal index As Integer) As TBNI_NACHBEARBEITUNG_ADRow
             Get
                 Return CType(Me.Rows(index),TBNI_NACHBEARBEITUNG_ADRow)
             End Get
         End Property
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event TBNI_NACHBEARBEITUNG_ADRowChanging As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event TBNI_NACHBEARBEITUNG_ADRowChanged As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event TBNI_NACHBEARBEITUNG_ADRowDeleting As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event TBNI_NACHBEARBEITUNG_ADRowDeleted As TBNI_NACHBEARBEITUNG_ADRowChangeEventHandler
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overloads Sub AddTBNI_NACHBEARBEITUNG_ADRow(ByVal row As TBNI_NACHBEARBEITUNG_ADRow)
             Me.Rows.Add(row)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overloads Function AddTBNI_NACHBEARBEITUNG_ADRow(ByVal PROFILNAME As String, ByVal Methode As String, ByVal Rechtename As String, ByVal GroupUser As String, ByVal AccessRight As String, ByVal Erstelltwann As Date, ByVal Erstelltwer As String) As TBNI_NACHBEARBEITUNG_ADRow
             Dim rowTBNI_NACHBEARBEITUNG_ADRow As TBNI_NACHBEARBEITUNG_ADRow = CType(Me.NewRow,TBNI_NACHBEARBEITUNG_ADRow)
             Dim columnValuesArray() As Object = New Object() {PROFILNAME, Methode, Rechtename, GroupUser, AccessRight, Erstelltwann, Erstelltwer, Nothing}
@@ -444,7 +444,7 @@ Partial Public Class DSNachbearbeitung
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overrides Function Clone() As Global.System.Data.DataTable
             Dim cln As TBNI_NACHBEARBEITUNG_ADDataTable = CType(MyBase.Clone,TBNI_NACHBEARBEITUNG_ADDataTable)
             cln.InitVars
@@ -452,13 +452,13 @@ Partial Public Class DSNachbearbeitung
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
             Return New TBNI_NACHBEARBEITUNG_ADDataTable()
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub InitVars()
             Me.columnPROFILNAME = MyBase.Columns("Profilname")
             Me.columnMethode = MyBase.Columns("Methode")
@@ -471,7 +471,7 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitClass()
             Me.columnPROFILNAME = New Global.System.Data.DataColumn("Profilname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             Me.columnPROFILNAME.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "PROFILNAME")
@@ -501,25 +501,25 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function NewTBNI_NACHBEARBEITUNG_ADRow() As TBNI_NACHBEARBEITUNG_ADRow
             Return CType(Me.NewRow,TBNI_NACHBEARBEITUNG_ADRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
             Return New TBNI_NACHBEARBEITUNG_ADRow(builder)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function GetRowType() As Global.System.Type
             Return GetType(TBNI_NACHBEARBEITUNG_ADRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowChanged(e)
             If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangedEvent) Is Nothing) Then
@@ -528,7 +528,7 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowChanging(e)
             If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowChangingEvent) Is Nothing) Then
@@ -537,7 +537,7 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowDeleted(e)
             If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletedEvent) Is Nothing) Then
@@ -546,7 +546,7 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowDeleting(e)
             If (Not (Me.TBNI_NACHBEARBEITUNG_ADRowDeletingEvent) Is Nothing) Then
@@ -555,13 +555,13 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub RemoveTBNI_NACHBEARBEITUNG_ADRow(ByVal row As TBNI_NACHBEARBEITUNG_ADRow)
             Me.Rows.Remove(row)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -636,14 +636,14 @@ Partial Public Class DSNachbearbeitung
         Private tableTBNI_NACHBEARBEITUNG_AD As TBNI_NACHBEARBEITUNG_ADDataTable
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
             MyBase.New(rb)
             Me.tableTBNI_NACHBEARBEITUNG_AD = CType(Me.Table,TBNI_NACHBEARBEITUNG_ADDataTable)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property PROFILNAME() As String
             Get
                 Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.PROFILNAMEColumn),String)
@@ -654,7 +654,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property Methode() As String
             Get
                 Try 
@@ -669,7 +669,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property Rechtename() As String
             Get
                 Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.RechtenameColumn),String)
@@ -680,7 +680,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property GroupUser() As String
             Get
                 Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.GroupUserColumn),String)
@@ -691,7 +691,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property AccessRight() As String
             Get
                 Try 
@@ -706,7 +706,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property Erstelltwann() As Date
             Get
                 Try 
@@ -721,7 +721,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property Erstelltwer() As String
             Get
                 Try 
@@ -736,7 +736,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property ID() As Integer
             Get
                 Return CType(Me(Me.tableTBNI_NACHBEARBEITUNG_AD.IDColumn),Integer)
@@ -747,49 +747,49 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsMethodeNull() As Boolean
             Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetMethodeNull()
             Me(Me.tableTBNI_NACHBEARBEITUNG_AD.MethodeColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsAccessRightNull() As Boolean
             Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetAccessRightNull()
             Me(Me.tableTBNI_NACHBEARBEITUNG_AD.AccessRightColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsErstelltwannNull() As Boolean
             Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetErstelltwannNull()
             Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwannColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsErstelltwerNull() As Boolean
             Return Me.IsNull(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetErstelltwerNull()
             Me(Me.tableTBNI_NACHBEARBEITUNG_AD.ErstelltwerColumn) = Global.System.Convert.DBNull
         End Sub
@@ -798,7 +798,7 @@ Partial Public Class DSNachbearbeitung
     '''<summary>
     '''Row event argument class
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Class TBNI_NACHBEARBEITUNG_ADRowChangeEvent
         Inherits Global.System.EventArgs
         
@@ -807,7 +807,7 @@ Partial Public Class DSNachbearbeitung
         Private eventAction As Global.System.Data.DataRowAction
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New(ByVal row As TBNI_NACHBEARBEITUNG_ADRow, ByVal action As Global.System.Data.DataRowAction)
             MyBase.New
             Me.eventRow = row
@@ -815,7 +815,7 @@ Partial Public Class DSNachbearbeitung
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property Row() As TBNI_NACHBEARBEITUNG_ADRow
             Get
                 Return Me.eventRow
@@ -823,7 +823,7 @@ Partial Public Class DSNachbearbeitung
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
             Get
                 Return Me.eventAction

ToolCollection/ModuleCURRENT.vb

@@ -1,5 +1,5 @@
 Imports DigitalData.Modules.Logging
-
+Imports DigitalData.Modules.Database
 Module ModuleCURRENT
     Public CURRENT_START_DATETIME As Date
     Public NI_Restart As Boolean = False
@@ -31,5 +31,10 @@ Module ModuleCURRENT
     Public CURRENT_UNTERV As List(Of String)
     Public CURRENT_DOCID As Int64
     Public WMSearchIsSQL As Boolean = False
-
+    Public DB_ECM As MSSQLServer
+    Public DIDurchlaufRunning As Boolean = False
+    Public NIDurchlaufRunning As Boolean = False
+    Public WMLOGIN_USER As String = ""
+    Public WMLOGIN_PW As String = ""
+    Public WMLOGIN_DOMAIN As String = ""
 End Module

ToolCollection/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.9.0.0")>
+<Assembly: AssemblyVersion("2.9.8.0")>
-<Assembly: AssemblyFileVersion("2.9.0.0")>
+<Assembly: AssemblyFileVersion("2.9.8.0")>

ToolCollection/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

ToolCollection/My Project/Settings.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
+'     This code was generated by a tool.
-'     Laufzeitversion:4.0.30319.42000
+'     Runtime Version:4.0.30319.42000
 '
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     Changes to this file may cause incorrect behavior and will be lost if
-'     der Code erneut generiert wird.
+'     the code is regenerated.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -15,14 +15,14 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
         
         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
         
-#Region "Automatische My.Settings-Speicherfunktion"
+#Region "My.Settings Auto-Save Functionality"
 #If _MyType = "WindowsForms" Then
     Private Shared addedHandler As Boolean
 
@@ -106,124 +106,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("absender@IhrServer.de"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vNIMailfrom() As String
-            Get
-                Return CType(Me("vNIMailfrom"),String)
-            End Get
-            Set
-                Me("vNIMailfrom") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vNIEmailEmpf() As String
-            Get
-                Return CType(Me("vNIEmailEmpf"),String)
-            End Get
-            Set
-                Me("vNIEmailEmpf") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Fehler im Modul Nachindexierung"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vNIMailBetreff() As String
-            Get
-                Return CType(Me("vNIMailBetreff"),String)
-            End Get
-            Set
-                Me("vNIMailBetreff") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("<p>__________________<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  <b><font face=""Arial"">Achtung Fehler:</font></b><fon"& _ 
-            "t face=""Arial""><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  <br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  Folgender Fehler wurde festgestellt:</font> </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vNIMailBody() As String
-            Get
-                Return CType(Me("vNIMailBody"),String)
-            End Get
-            Set
-                Me("vNIMailBody") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("mailODERpop.smtp.de"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vSMTP() As String
-            Get
-                Return CType(Me("vSMTP"),String)
-            End Get
-            Set
-                Me("vSMTP") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Ihr User"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vMailUser() As String
-            Get
-                Return CType(Me("vMailUser"),String)
-            End Get
-            Set
-                Me("vMailUser") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vMailPW() As String
-            Get
-                Return CType(Me("vMailPW"),String)
-            End Get
-            Set
-                Me("vMailPW") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vNIMailsenden() As Boolean
-            Get
-                Return CType(Me("vNIMailsenden"),Boolean)
-            End Get
-            Set
-                Me("vNIMailsenden") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property frmNI_SQL_Loc() As Global.System.Drawing.Point
-            Get
-                Return CType(Me("frmNI_SQL_Loc"),Global.System.Drawing.Point)
-            End Get
-            Set
-                Me("frmNI_SQL_Loc") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("dd"),  _
@@ -237,98 +119,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("0"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property NIDurchlauf_Intervall() As Integer
-            Get
-                Return CType(Me("NIDurchlauf_Intervall"),Integer)
-            End Get
-            Set
-                Me("NIDurchlauf_Intervall") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("absender@IhrServer.de"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vDIMailFrom() As String
-            Get
-                Return CType(Me("vDIMailFrom"),String)
-            End Get
-            Set
-                Me("vDIMailFrom") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vDIMailEmpf() As String
-            Get
-                Return CType(Me("vDIMailEmpf"),String)
-            End Get
-            Set
-                Me("vDIMailEmpf") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Fehler im Modul Dateiimporter"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vDIMailBetreff() As String
-            Get
-                Return CType(Me("vDIMailBetreff"),String)
-            End Get
-            Set
-                Me("vDIMailBetreff") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("<p>__________________<br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  <b><font face=""Arial"">Achtung Fehler:</font></b><fon"& _ 
-            "t face=""Arial""><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  <br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  Folgender Fehler wurde festgestellt:</font> </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vDIMailBody() As String
-            Get
-                Return CType(Me("vDIMailBody"),String)
-            End Get
-            Set
-                Me("vDIMailBody") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vDIDurchlaufRunning() As Boolean
-            Get
-                Return CType(Me("vDIDurchlaufRunning"),Boolean)
-            End Get
-            Set
-                Me("vDIDurchlaufRunning") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vDIMailSenden() As Boolean
-            Get
-                Return CType(Me("vDIMailSenden"),Boolean)
-            End Get
-            Set
-                Me("vDIMailSenden") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("0, 0"),  _
@@ -754,32 +544,6 @@ Namespace My
             End Set
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("25"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property vemailPort() As Integer
-            Get
-                Return CType(Me("vemailPort"),Integer)
-            End Get
-            Set
-                Me("vemailPort") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property NI_RUNNING() As Boolean
-            Get
-                Return CType(Me("NI_RUNNING"),Boolean)
-            End Get
-            Set
-                Me("NI_RUNNING") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("DigitalData\windream_CLIENT_WMCC_Neustart")>  _
@@ -913,6 +677,86 @@ Namespace My
                 Return CType(Me("DDECMConString"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property NI_RUNNING() As Boolean
+            Get
+                Return CType(Me("NI_RUNNING"),Boolean)
+            End Get
+            Set
+                Me("NI_RUNNING") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property DI_RUNNING() As Boolean
+            Get
+                Return CType(Me("DI_RUNNING"),Boolean)
+            End Get
+            Set
+                Me("DI_RUNNING") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("@Domain#@User#@PW")>  _
+        Public ReadOnly Property WM_PERS_LOGIN() As String
+            Get
+                Return CType(Me("WM_PERS_LOGIN"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
+        Public Property vDeleteLogsTime() As Date
+            Get
+                Return CType(Me("vDeleteLogsTime"),Date)
+            End Get
+            Set
+                Me("vDeleteLogsTime") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property vAutoDeleteLogs() As Boolean
+            Get
+                Return CType(Me("vAutoDeleteLogs"),Boolean)
+            End Get
+            Set
+                Me("vAutoDeleteLogs") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+        Public Property Setting() As String
+            Get
+                Return CType(Me("Setting"),String)
+            End Get
+            Set
+                Me("Setting") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("01/01/0001 03:00:00")>  _
+        Public Property vDefaultDeleteLogsTime() As Date
+            Get
+                Return CType(Me("vDefaultDeleteLogsTime"),Date)
+            End Get
+            Set
+                Me("vDefaultDeleteLogsTime") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

ToolCollection/My Project/Settings.settings

@@ -14,65 +14,9 @@
     <Setting Name="vDIConfigDatei" Roaming="true" Type="System.String" Scope="User">
       <Value Profile="(Default)">modDateiimportConfig.xml</Value>
     </Setting>
-    <Setting Name="vNIMailfrom" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">absender@IhrServer.de</Value>
-    </Setting>
-    <Setting Name="vNIEmailEmpf" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
-    <Setting Name="vNIMailBetreff" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">Fehler im Modul Nachindexierung</Value>
-    </Setting>
-    <Setting Name="vNIMailBody" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">&lt;p&gt;__________________&lt;br&gt;
-  &lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
-  &lt;br&gt;
-  Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
-</Value>
-    </Setting>
-    <Setting Name="vSMTP" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">mailODERpop.smtp.de</Value>
-    </Setting>
-    <Setting Name="vMailUser" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">Ihr User</Value>
-    </Setting>
-    <Setting Name="vMailPW" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
-    <Setting Name="vNIMailsenden" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="frmNI_SQL_Loc" Roaming="true" Type="System.Drawing.Point" Scope="User">
-      <Value Profile="(Default)">0, 0</Value>
-    </Setting>
     <Setting Name="vPW_Admin" Roaming="true" Type="System.String" Scope="User">
       <Value Profile="(Default)">dd</Value>
     </Setting>
-    <Setting Name="NIDurchlauf_Intervall" Roaming="true" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">0</Value>
-    </Setting>
-    <Setting Name="vDIMailFrom" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">absender@IhrServer.de</Value>
-    </Setting>
-    <Setting Name="vDIMailEmpf" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
-    <Setting Name="vDIMailBetreff" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">Fehler im Modul Dateiimporter</Value>
-    </Setting>
-    <Setting Name="vDIMailBody" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)">&lt;p&gt;__________________&lt;br&gt;
-  &lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
-  &lt;br&gt;
-  Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
-</Value>
-    </Setting>
-    <Setting Name="vDIDurchlaufRunning" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="vDIMailSenden" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
     <Setting Name="frmNIHauptseite_Loc" Roaming="true" Type="System.Drawing.Point" Scope="User">
       <Value Profile="(Default)">0, 0</Value>
     </Setting>
@@ -175,12 +119,6 @@
     <Setting Name="errortext" Type="System.String" Scope="User">
       <Value Profile="(Default)">Fehlermeldung</Value>
     </Setting>
-    <Setting Name="vemailPort" Roaming="true" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">25</Value>
-    </Setting>
-    <Setting Name="NI_RUNNING" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
     <Setting Name="WMCC_RESTART" Type="System.String" Scope="Application">
       <Value Profile="(Default)">DigitalData\windream_CLIENT_WMCC_Neustart</Value>
     </Setting>
@@ -222,11 +160,32 @@
     </Setting>
     <Setting Name="DDECMConString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
-&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
   &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
     </Setting>
+    <Setting Name="NI_RUNNING" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="DI_RUNNING" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="WM_PERS_LOGIN" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">@Domain#@User#@PW</Value>
+    </Setting>
+    <Setting Name="vDeleteLogsTime" Type="System.DateTime" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="vAutoDeleteLogs" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="Setting" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="vDefaultDeleteLogsTime" Type="System.DateTime" Scope="User">
+      <Value Profile="(Default)">01/01/0001 03:00:00</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

ToolCollection/TCService.vb

@@ -83,71 +83,7 @@ Public Class TCService
         ClassLoggerService.Add("###############################################################", False)
     End Sub
     Private Sub Profil_DurchlaufNI()
-        'Try
-        '    For Each profil As ClassNIProfilS In ClassNIProfileS.Profile
 
-        '        ' aktuelles Profil der Klasse mitteilen
-        '        Me.aktivesProfil = profil
-
-        '        ' Ausgabe an Logdatei über nächstes Profil
-        '        _Logger.Info("", False)
-        '        _Logger.Info(">> Starte Durchlauf für Profil: " & profil.Profilname, False)
-
-
-        '        ' Überprüfen ob Profil aktiv oder inaktiv
-        '        If CBool(Me.aktivesProfil.Aktiv) = False Then
-        '            _Logger.Info(">> Profil: " & profil.Profilname & " ist inaktiv geschaltet", False)
-        '            _Logger.Info("", False)
-        '        Else
-        '            ' den Durchlaufszeitpunkt speichern
-        '            aktivesProfil.LastRun = Now
-        '            aktivesProfil.Save(False)
-
-        '            If file_exists(Me.aktivesProfil.WindreamSuche, True) = False Then
-        '                _Logger.Info(">> Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!", False)
-        '            Else
-        '                ' windream-Suche für Profil starten
-        '                Dim windreamSucheErgebnisse As WMObjects = Me._windreamNI.GetSearchDocuments(Me.aktivesProfil.WindreamSuche)
-
-        '                If windreamSucheErgebnisse.Count > 0 Then
-        '                    ' neue Anzahl von Dateien an ProgressBar2
-        '                    For Each dok As WMObject In windreamSucheErgebnisse
-        '                        ' aktuelles Dokument der Klasse mitteilen
-        '                        Me.aktivesDokument = dok
-        '                        '####### Go für das Dokument ##########
-        '                        ' Thread für diese Datei starten
-        '                        Me.startDateiDurchlauf()
-        '                        '######################################
-        '                        ' solange der Datei-Thread noch nicht abgeschlossen wurde
-        '                        While Me.bwDatei.IsBusy
-        '                            ' warten
-        '                        End While
-        '                        ' nächste Datei an ProgressBar2
-        '                        bwProfil.ReportProgress(-1)
-        '                        ' Vorgang abbrechen
-        '                        If bwProfil.CancellationPending Then Exit Sub
-
-        '                    Next
-        '                Else
-        '                    _Logger.Info("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!", False)
-        '                    _Logger.Info("", False)
-        '                    ' keine Dateien zum Importieren
-        '                End If
-        '            End If
-
-        '        End If
-        '        ' nächstes Profil an ProgressBar1
-
-        '    Next
-        '    ' Do Stuff Here...
-        '    EventLog1.WriteEntry("Durchlauf der Profile erfolgreich.")
-        'Catch ex As System.Exception
-        '    EventLog1.WriteEntry("TCService stellte einen Fehler fest '" & _
-        '        ex.Message & "'", EventLogEntryType.Error)
-        '    EventLog1.WriteEntry("TCService Stack Trace: " & _
-        '        ex.StackTrace, EventLogEntryType.Error)
-        '    ClassLoggerService.Add("Fehler in Profil_Durchlauf", ex.Message)
-        'End Try
     End Sub
     Private Sub Profil_DurchlaufDI()
         Try

ToolCollection/ToolCollection.vbproj

@@ -13,7 +13,7 @@
     <AssemblyName>ToolCollection</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
     <PublishUrl>publish\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
@@ -86,18 +86,23 @@
     <OutputPath>bin\x64\Release\</OutputPath>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
+      <HintPath>..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Database">
-      <HintPath>..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+      <HintPath>..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Filesystem">
-      <HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
+      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Filesystem.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging, Version=2.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Logging">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-      <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
     <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
       <HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.dll</HintPath>
@@ -127,8 +132,8 @@
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.4.7.11\lib\net45\NLog.dll</HintPath>
+      <HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@@ -138,6 +143,7 @@
     <Reference Include="System.Configuration" />
     <Reference Include="System.Configuration.Install" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Data.Linq" />
     <Reference Include="System.Data.OracleClient" />
     <Reference Include="System.Data.SQLite">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\System.Data.SQLite.dll</HintPath>
@@ -187,7 +193,6 @@
     <Compile Include="ClassDIProfile.vb" />
     <Compile Include="ClassDIRegel.vb" />
     <Compile Include="ClassDIRegeln.vb" />
-    <Compile Include="ClassDI_Email.vb" />
     <Compile Include="ClassLDAP.vb" />
     <Compile Include="ClassLicense.vb" />
     <Compile Include="ClassLicenseManager.vb" />
@@ -199,7 +204,6 @@
     <Compile Include="ClassMoveRenameLogger.vb" />
     <Compile Include="ClassMO_RE.vb" />
     <Compile Include="ClassNIDatenbankzugriff.vb" />
-    <Compile Include="ClassNIEmail.vb" />
     <Compile Include="ClassNIProfil.vb" />
     <Compile Include="ClassNIProfile.vb" />
     <Compile Include="ClassNIVerknüpfung.vb" />

ToolCollection/app.config

@@ -11,7 +11,8 @@
     <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
   </configSections>
   <connectionStrings>
-    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
+    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
+      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <system.diagnostics>
     <sources>
@@ -47,65 +48,9 @@
       <setting name="vDIConfigDatei" serializeAs="String">
         <value>modDateiimportConfig.xml</value>
       </setting>
-      <setting name="vNIMailfrom" serializeAs="String">
-        <value>absender@IhrServer.de</value>
-      </setting>
-      <setting name="vNIEmailEmpf" serializeAs="String">
-        <value />
-      </setting>
-      <setting name="vNIMailBetreff" serializeAs="String">
-        <value>Fehler im Modul Nachindexierung</value>
-      </setting>
-      <setting name="vNIMailBody" serializeAs="String">
-        <value>&lt;p&gt;__________________&lt;br&gt;
-  &lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
-  &lt;br&gt;
-  Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
-</value>
-      </setting>
-      <setting name="vSMTP" serializeAs="String">
-        <value>mailODERpop.smtp.de</value>
-      </setting>
-      <setting name="vMailUser" serializeAs="String">
-        <value>Ihr User</value>
-      </setting>
-      <setting name="vMailPW" serializeAs="String">
-        <value />
-      </setting>
-      <setting name="vNIMailsenden" serializeAs="String">
-        <value>False</value>
-      </setting>
-      <setting name="frmNI_SQL_Loc" serializeAs="String">
-        <value>0, 0</value>
-      </setting>
       <setting name="vPW_Admin" serializeAs="String">
         <value>dd</value>
       </setting>
-      <setting name="NIDurchlauf_Intervall" serializeAs="String">
-        <value>0</value>
-      </setting>
-      <setting name="vDIMailFrom" serializeAs="String">
-        <value>absender@IhrServer.de</value>
-      </setting>
-      <setting name="vDIMailEmpf" serializeAs="String">
-        <value />
-      </setting>
-      <setting name="vDIMailBetreff" serializeAs="String">
-        <value>Fehler im Modul Dateiimporter</value>
-      </setting>
-      <setting name="vDIMailBody" serializeAs="String">
-        <value>&lt;p&gt;__________________&lt;br&gt;
-  &lt;b&gt;&lt;font face="Arial"&gt;Achtung Fehler:&lt;/font&gt;&lt;/b&gt;&lt;font face="Arial"&gt;&lt;br&gt;
-  &lt;br&gt;
-  Folgender Fehler wurde festgestellt:&lt;/font&gt; &lt;/p&gt;
-</value>
-      </setting>
-      <setting name="vDIDurchlaufRunning" serializeAs="String">
-        <value>False</value>
-      </setting>
-      <setting name="vDIMailSenden" serializeAs="String">
-        <value>False</value>
-      </setting>
       <setting name="frmNIHauptseite_Loc" serializeAs="String">
         <value>0, 0</value>
       </setting>
@@ -196,18 +141,30 @@
       <setting name="errortext" serializeAs="String">
         <value>Fehlermeldung</value>
       </setting>
-      <setting name="vemailPort" serializeAs="String">
-        <value>25</value>
-      </setting>
-      <setting name="NI_RUNNING" serializeAs="String">
-        <value>False</value>
-      </setting>
       <setting name="VFS_RESTART" serializeAs="String">
         <value>DigitalData\windream_VFS_RESTART</value>
       </setting>
       <setting name="myDateiname" serializeAs="String">
         <value>myInvalidDateiname.pdf</value>
       </setting>
+      <setting name="NI_RUNNING" serializeAs="String">
+        <value>False</value>
+      </setting>
+      <setting name="DI_RUNNING" serializeAs="String">
+        <value>False</value>
+      </setting>
+      <setting name="vDeleteLogsTime" serializeAs="String">
+        <value />
+      </setting>
+      <setting name="vAutoDeleteLogs" serializeAs="String">
+        <value>False</value>
+      </setting>
+      <setting name="Setting" serializeAs="String">
+        <value />
+      </setting>
+      <setting name="vDefaultDeleteLogsTime" serializeAs="String">
+        <value>01/01/0001 03:00:00</value>
+      </setting>
     </ToolCollection.My.MySettings>
   </userSettings>
   <applicationSettings>
@@ -257,10 +214,13 @@
       <setting name="REGEX_INVALID_PATH" serializeAs="String">
         <value>[\\\/:\*\?""'&lt;&gt;|]</value>
       </setting>
+      <setting name="WM_PERS_LOGIN" serializeAs="String">
+        <value>@Domain#@User#@PW</value>
+      </setting>
     </ToolCollection.My.MySettings>
   </applicationSettings>
   <startup>
-    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
   </startup>
   <entityFramework>
     <defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">

ToolCollection/clsNI_WorkFile.vb

@@ -62,9 +62,7 @@ Public Class clsNI_WorkFile
         Catch ex As Exception
             'bei einem Fehler einen Eintrag in der Logdatei machen
             _Logger.Warn("ACHTUNG Schwerwiegender Fehler in Work_File: " & ex.Message)
-            If My.Settings.vNIMailsenden = True Then
+
-                ClassNIEmail.Add("Schwerwiegender Fehler bei Work_File - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
-            End If
             Return False
         End Try
     End Function
@@ -174,9 +172,6 @@ Public Class clsNI_WorkFile
         Catch ex As Exception
             Dim errormsg As String = "UNVORHERGESEHENER FEHLER in  bei Get_Desk_index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message
             _Logger.Warn(errormsg)
-            If My.Settings.vNIMailsenden = True Then
-                ClassNIEmail.Add(errormsg)
-            End If
         End Try
         If _file_DeskriptiverWert Is Nothing Then
             _Logger.Warn("- ACHTUNG: Deskriptiver Indexwert ist NOTHING", False)

ToolCollection/frmDIHauptseite.Designer.vb

@@ -59,26 +59,6 @@ Partial Class frmDIHauptseite
         Me.tvLog = New System.Windows.Forms.TreeView()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.tpKonfiguration = New System.Windows.Forms.TabPage()
-        Me.gbEmail = New System.Windows.Forms.GroupBox()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.txtBody = New System.Windows.Forms.TextBox()
-        Me.btntestmail = New System.Windows.Forms.Button()
-        Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.txtBetreff = New System.Windows.Forms.TextBox()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.txtPasswort = New System.Windows.Forms.TextBox()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.txtUser = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.txtSMTP = New System.Windows.Forms.TextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.txtMail_from = New System.Windows.Forms.TextBox()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtAusschluss = New System.Windows.Forms.TextBox()
-        Me.chkbEmail = New System.Windows.Forms.CheckBox()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.TableAdapterManager = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
         Me.TBTC_DI_REGEX_MATCHTableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_DI_REGEX_MATCHTableAdapter()
@@ -89,9 +69,6 @@ Partial Class frmDIHauptseite
         CType(Me.numIntervallDurchlauf, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.tpKonfiguration.SuspendLayout()
-        Me.gbEmail.SuspendLayout()
-        Me.GroupBox3.SuspendLayout()
         Me.SuspendLayout()
         '
         'timRun_Dateiimport
@@ -430,8 +407,6 @@ Partial Class frmDIHauptseite
         '
         'tpKonfiguration
         '
-        Me.tpKonfiguration.Controls.Add(Me.gbEmail)
-        Me.tpKonfiguration.Controls.Add(Me.GroupBox3)
         Me.tpKonfiguration.Location = New System.Drawing.Point(4, 22)
         Me.tpKonfiguration.Name = "tpKonfiguration"
         Me.tpKonfiguration.Padding = New System.Windows.Forms.Padding(3)
@@ -440,218 +415,6 @@ Partial Class frmDIHauptseite
         Me.tpKonfiguration.Text = "Einstellungen"
         Me.tpKonfiguration.UseVisualStyleBackColor = True
         '
-        'gbEmail
-        '
-        Me.gbEmail.Controls.Add(Me.Label16)
-        Me.gbEmail.Controls.Add(Me.txtBody)
-        Me.gbEmail.Controls.Add(Me.btntestmail)
-        Me.gbEmail.Controls.Add(Me.txtEmpfaenger)
-        Me.gbEmail.Controls.Add(Me.Label13)
-        Me.gbEmail.Controls.Add(Me.txtBetreff)
-        Me.gbEmail.Controls.Add(Me.Label12)
-        Me.gbEmail.Controls.Add(Me.txtPasswort)
-        Me.gbEmail.Controls.Add(Me.Label11)
-        Me.gbEmail.Controls.Add(Me.txtUser)
-        Me.gbEmail.Controls.Add(Me.Label8)
-        Me.gbEmail.Controls.Add(Me.txtSMTP)
-        Me.gbEmail.Controls.Add(Me.Label7)
-        Me.gbEmail.Controls.Add(Me.txtMail_from)
-        Me.gbEmail.Controls.Add(Me.Label4)
-        Me.gbEmail.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.gbEmail.Enabled = False
-        Me.gbEmail.Location = New System.Drawing.Point(3, 83)
-        Me.gbEmail.Name = "gbEmail"
-        Me.gbEmail.Size = New System.Drawing.Size(708, 401)
-        Me.gbEmail.TabIndex = 1
-        Me.gbEmail.TabStop = False
-        Me.gbEmail.Text = "E-Mail Konfiguration"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(6, 237)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(503, 13)
-        Me.Label16.TabIndex = 16
-        Me.Label16.Text = "Standard Einleitungstext: (HTML fähig: <br> = Zeilenwechsel;<b>= Fett Formatiert;" &
-    "</b>= Ende)"
-        '
-        'txtBody
-        '
-        Me.txtBody.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailBody", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtBody.Location = New System.Drawing.Point(9, 253)
-        Me.txtBody.Multiline = True
-        Me.txtBody.Name = "txtBody"
-        Me.txtBody.Size = New System.Drawing.Size(699, 64)
-        Me.txtBody.TabIndex = 15
-        Me.txtBody.Text = Global.ToolCollection.My.MySettings.Default.vDIMailBody
-        '
-        'btntestmail
-        '
-        Me.btntestmail.Image = Global.ToolCollection.My.Resources.Resources.mail_write
-        Me.btntestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btntestmail.Location = New System.Drawing.Point(9, 323)
-        Me.btntestmail.Name = "btntestmail"
-        Me.btntestmail.Size = New System.Drawing.Size(96, 37)
-        Me.btntestmail.TabIndex = 12
-        Me.btntestmail.Text = "Test-Mail"
-        Me.btntestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btntestmail.UseVisualStyleBackColor = True
-        '
-        'txtEmpfaenger
-        '
-        Me.txtEmpfaenger.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailEmpf", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtEmpfaenger.Location = New System.Drawing.Point(9, 211)
-        Me.txtEmpfaenger.Name = "txtEmpfaenger"
-        Me.txtEmpfaenger.Size = New System.Drawing.Size(699, 22)
-        Me.txtEmpfaenger.TabIndex = 11
-        Me.txtEmpfaenger.Text = Global.ToolCollection.My.MySettings.Default.vDIMailEmpf
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(6, 195)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(298, 13)
-        Me.Label13.TabIndex = 10
-        Me.Label13.Text = "Empfänger: (Mehrere Empfänger bitte durch "";"" trennen )"
-        '
-        'txtBetreff
-        '
-        Me.txtBetreff.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailBetreff", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtBetreff.Location = New System.Drawing.Point(9, 166)
-        Me.txtBetreff.Name = "txtBetreff"
-        Me.txtBetreff.Size = New System.Drawing.Size(344, 22)
-        Me.txtBetreff.TabIndex = 9
-        Me.txtBetreff.Text = Global.ToolCollection.My.MySettings.Default.vDIMailBetreff
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(6, 150)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(238, 13)
-        Me.Label12.TabIndex = 8
-        Me.Label12.Text = "Betreff: (Text für den Betreff der Fehler-Email)"
-        '
-        'txtPasswort
-        '
-        Me.txtPasswort.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailPW", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtPasswort.Location = New System.Drawing.Point(364, 120)
-        Me.txtPasswort.Name = "txtPasswort"
-        Me.txtPasswort.Size = New System.Drawing.Size(189, 22)
-        Me.txtPasswort.TabIndex = 7
-        Me.txtPasswort.Text = Global.ToolCollection.My.MySettings.Default.vMailPW
-        Me.txtPasswort.UseSystemPasswordChar = True
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(361, 104)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(86, 13)
-        Me.Label11.TabIndex = 6
-        Me.Label11.Text = "User-Passwort: "
-        '
-        'txtUser
-        '
-        Me.txtUser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailUser", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtUser.Location = New System.Drawing.Point(364, 78)
-        Me.txtUser.Name = "txtUser"
-        Me.txtUser.Size = New System.Drawing.Size(344, 22)
-        Me.txtUser.TabIndex = 5
-        Me.txtUser.Text = Global.ToolCollection.My.MySettings.Default.vMailUser
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(361, 62)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(133, 13)
-        Me.Label8.TabIndex = 4
-        Me.Label8.Text = "User: (Authentifizierung)"
-        '
-        'txtSMTP
-        '
-        Me.txtSMTP.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vSMTP", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtSMTP.Location = New System.Drawing.Point(9, 78)
-        Me.txtSMTP.Name = "txtSMTP"
-        Me.txtSMTP.Size = New System.Drawing.Size(344, 22)
-        Me.txtSMTP.TabIndex = 3
-        Me.txtSMTP.Text = Global.ToolCollection.My.MySettings.Default.vSMTP
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(6, 62)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(138, 13)
-        Me.Label7.TabIndex = 2
-        Me.Label7.Text = "SMTP-Server: (Mail-Server)"
-        '
-        'txtMail_from
-        '
-        Me.txtMail_from.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIMailfrom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtMail_from.Location = New System.Drawing.Point(9, 34)
-        Me.txtMail_from.Name = "txtMail_from"
-        Me.txtMail_from.Size = New System.Drawing.Size(344, 22)
-        Me.txtMail_from.TabIndex = 1
-        Me.txtMail_from.Text = Global.ToolCollection.My.MySettings.Default.vDIMailFrom
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(6, 18)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(139, 13)
-        Me.Label4.TabIndex = 0
-        Me.Label4.Text = "Absender: (Email-Adresse)"
-        '
-        'GroupBox3
-        '
-        Me.GroupBox3.Controls.Add(Me.Label3)
-        Me.GroupBox3.Controls.Add(Me.txtAusschluss)
-        Me.GroupBox3.Controls.Add(Me.chkbEmail)
-        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
-        Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(708, 80)
-        Me.GroupBox3.TabIndex = 0
-        Me.GroupBox3.TabStop = False
-        Me.GroupBox3.Text = "Allgemeine Einstellungen:"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(6, 40)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(431, 13)
-        Me.Label3.TabIndex = 8
-        Me.Label3.Text = "Dateien ausschließen die folgende Zeichen in Namen enthalten (Trennen mit ""/""):"
-        '
-        'txtAusschluss
-        '
-        Me.txtAusschluss.BackColor = System.Drawing.SystemColors.Window
-        Me.txtAusschluss.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vDIAusschluss", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtAusschluss.Location = New System.Drawing.Point(9, 58)
-        Me.txtAusschluss.Name = "txtAusschluss"
-        Me.txtAusschluss.Size = New System.Drawing.Size(687, 22)
-        Me.txtAusschluss.TabIndex = 7
-        Me.txtAusschluss.Text = Global.ToolCollection.My.MySettings.Default.vDIAusschluss
-        '
-        'chkbEmail
-        '
-        Me.chkbEmail.AutoSize = True
-        Me.chkbEmail.Checked = Global.ToolCollection.My.MySettings.Default.vDIMailSenden
-        Me.chkbEmail.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.ToolCollection.My.MySettings.Default, "vDIMailSenden", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.chkbEmail.Location = New System.Drawing.Point(9, 21)
-        Me.chkbEmail.Name = "chkbEmail"
-        Me.chkbEmail.Size = New System.Drawing.Size(146, 17)
-        Me.chkbEmail.TabIndex = 0
-        Me.chkbEmail.Text = "Fehler E-Mail aktivieren"
-        Me.chkbEmail.UseVisualStyleBackColor = True
-        '
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
@@ -691,11 +454,6 @@ Partial Class frmDIHauptseite
         CType(Me.numIntervallDurchlauf, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBTC_DI_REGEX_MATCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.tpKonfiguration.ResumeLayout(False)
-        Me.gbEmail.ResumeLayout(False)
-        Me.gbEmail.PerformLayout()
-        Me.GroupBox3.ResumeLayout(False)
-        Me.GroupBox3.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -728,31 +486,11 @@ Partial Class frmDIHauptseite
     Friend WithEvents tvLog As System.Windows.Forms.TreeView
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents tpKonfiguration As System.Windows.Forms.TabPage
-    Friend WithEvents gbEmail As System.Windows.Forms.GroupBox
-    Friend WithEvents Label16 As System.Windows.Forms.Label
-    Friend WithEvents txtBody As System.Windows.Forms.TextBox
-    Friend WithEvents btntestmail As System.Windows.Forms.Button
-    Friend WithEvents txtEmpfaenger As System.Windows.Forms.TextBox
-    Friend WithEvents Label13 As System.Windows.Forms.Label
-    Friend WithEvents txtBetreff As System.Windows.Forms.TextBox
-    Friend WithEvents Label12 As System.Windows.Forms.Label
-    Friend WithEvents txtPasswort As System.Windows.Forms.TextBox
-    Friend WithEvents Label11 As System.Windows.Forms.Label
-    Friend WithEvents txtUser As System.Windows.Forms.TextBox
-    Friend WithEvents Label8 As System.Windows.Forms.Label
-    Friend WithEvents txtSMTP As System.Windows.Forms.TextBox
-    Friend WithEvents Label7 As System.Windows.Forms.Label
-    Friend WithEvents txtMail_from As System.Windows.Forms.TextBox
-    Friend WithEvents Label4 As System.Windows.Forms.Label
-    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
-    Friend WithEvents chkbEmail As System.Windows.Forms.CheckBox
     Friend WithEvents rbAutomatisch As System.Windows.Forms.RadioButton
     Friend WithEvents rbManuell As System.Windows.Forms.RadioButton
     Friend WithEvents lblLetzter_Durchlauf As System.Windows.Forms.Label
     Friend WithEvents lblmanuell_letzterDurchlauf As System.Windows.Forms.Label
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents Label3 As System.Windows.Forms.Label
-    Friend WithEvents txtAusschluss As System.Windows.Forms.TextBox
     Friend WithEvents MyDataset As ToolCollection.MyDataset
     Friend WithEvents TableAdapterManager As ToolCollection.MyDatasetTableAdapters.TableAdapterManager
     Friend WithEvents TBTC_DI_REGEX_MATCHBindingSource As BindingSource

ToolCollection/frmDIHauptseite.vb

@@ -14,7 +14,6 @@ Public Class frmDIHauptseite
     Private Shared _Instance As frmDIHauptseite = Nothing
     Private _running As Boolean = False
     Dim In_Use As Boolean
-    Private email As New ClassDI_Email
     Public Shared _windream As ClassWindream_allgemein
     Public Shared _Link2NavDokumentart, _Link2NavIndexwert As String
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
@@ -156,7 +155,7 @@ Public Class frmDIHauptseite
                 Me.tvLog.Visible = False
                 Me.timRun_Dateiimport.Stop()
                 Durchlauf = False
-                My.Settings.vDIDurchlaufRunning = False
+                My.Settings.DI_RUNNING = False
 
             End If
             Me.progressImport.Enabled = False
@@ -240,7 +239,7 @@ Public Class frmDIHauptseite
     Private Sub frmDIHauptseite_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         Formloaded = True
         Me.LoadProfilesInCombobox()
-        If My.Settings.vDIDurchlaufRunning = True Then
+        If My.Settings.DI_RUNNING = True Then
             Me.rbAutomatisch.Checked = True
             Automatischer_Durchlauf(False)
         End If
@@ -429,12 +428,12 @@ Public Class frmDIHauptseite
             Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
         End If
         Dim oError As Boolean = False
+        Dim DT_TBTC_DI_REGEX_MATCH As DataTable
         Try
-            Me.TBTC_DI_REGEX_MATCHTableAdapter.Connection.ConnectionString = My.Settings.DDECMConString
+            Dim oSQl = $"SELECT * FROM TBTC_DI_REGEX_MATCH WHERE PROFILE_NAME = '{Me.selectedProfile.OriginalProfilname}'"
-            Me.TBTC_DI_REGEX_MATCHTableAdapter.Fill(Me.MyDataset.TBTC_DI_REGEX_MATCH, Me.selectedProfile.OriginalProfilname)
+            DT_TBTC_DI_REGEX_MATCH = DB_ECM.GetDatatable(oSQl)
         Catch ex As Exception
-            ClassLoggerDI.Add($"Error while connecting via My.Settings.DDECMConString [{My.Settings.DDECMConString}]" + ex.Message)
+            ClassLoggerDI.Add($"ErrorMessageProfil_Durchlauf: {ex.Message}")
-            ClassLoggerDI.Add($"ErrorMessage: {ex.Message}")
             oError = True
         End Try
 
@@ -512,8 +511,8 @@ Public Class frmDIHauptseite
             For Each oFilenameQuelle As String In Me.ImportFileList
                 fileAusschliessen = False
                 Dim oFilenameOnly = Path.GetFileName(oFilenameQuelle)
-                If Me.MyDataset.TBTC_DI_REGEX_MATCH.Rows.Count = 1 Then
+                If DT_TBTC_DI_REGEX_MATCH.Rows.Count = 1 Then
-                    If Regex.IsMatch(oFilenameOnly, MyDataset.TBTC_DI_REGEX_MATCH.Rows(0).Item("REGEX")) = False Then
+                    If Regex.IsMatch(oFilenameOnly, DT_TBTC_DI_REGEX_MATCH.Rows(0).Item("REGEX")) = False Then
                         ClassLoggerDI.Add($" >> Regex not Matching for file {oFilenameOnly}!", False)
                         fileAusschliessen = True
                     End If
@@ -723,17 +722,10 @@ Public Class frmDIHauptseite
                                         'DAS Windream-Laufwerk ist nicht verfügbar!
                                         CriticalErrorInBackgroundWorker = True
                                         Import_Abbrechen()
-                                        If My.Settings.vDIMailSenden = True Then
+
-                                            email.Send_EMail("ESKALATIONSTUFE 1: Schwerwiegender Fehler in Dateiimporter windream <br>ERROR: " & Err.Description & "<br> DAS WINDREAM-LAUFWERK oder der Netzwerkname IST NICHT VERFÜGBAR!<br>" &
-                                                                 "Der Importvorgang wurde abgebrochen!<br>Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
-                                        End If
                                         MsgBox("Schwerwiegender Fehler in Dateiimporter windream!" & vbNewLine & "ERROR: " & Err.Description & vbNewLine & "DAS WINDREAM-LAUFWERK IST NICHT VERFÜGBAR!" & vbNewLine &
                                                                 "Der Importvorgang wurde abgebrochen!" & vbNewLine & "Fehlerbehebung: ==> Starten Sie windream und den den Dateiimporter neu!")
                                         Exit Sub
-                                    Else
-                                        If My.Settings.vDIMailSenden = True Then
-                                            email.Send_EMail("Fehler bei Datei: " & oFilenameQuelle & " <br\>ERROR: " & Err.Description)
-                                        End If
                                     End If
 
 
@@ -1062,7 +1054,11 @@ Public Class frmDIHauptseite
             '########
             Dim Zielverzeichnis As String = zielpfad
             endgültigerDateiname = Zielverzeichnis.Substring(2) & "\" & Quelldatei_Name
-
+            If endgültigerDateiname.StartsWith("\\") Then
+                endgültigerDateiname = endgültigerDateiname.Substring(2)
+            End If
+            endgültigerDateiname = endgültigerDateiname.Replace("Windream\Objects\", "")
+            DetailLog("endgültigerDateiname: " + endgültigerDateiname)
             DetailLog("Zielverzeichnis erzeugt")
             If Directory.Exists(Zielverzeichnis) = False Then
                 'Try to create the directory.
@@ -1147,40 +1143,58 @@ Public Class frmDIHauptseite
                     _Step = "3.1.1"
                     DetailLog("_Step: " & _Step)
                     ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen
-                    DetailLog("-> DATEI IST BEREITS VORHANDEN")
+                    DetailLog("DATEI IST BEREITS VORHANDEN - MUSS VERSIONIERT WERDEN!")
                     Err.Clear()
                     '### Automatische Versionierung mit ~ (Tilde) ###
-                    Dim version As Integer = 2
+                    Dim oMyVersion As Integer = 2
                     Dim extension As String = Quelldatei_Name.Substring(Quelldatei_Name.LastIndexOf("."))
-                    Dim Stammname As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
+                    If zielpfad.StartsWith("\\Windream\Objects") Then
-                    Dim neuername As String = zielpfad.Substring(2) & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
+                        DetailLog("Replacing windream\objects...")
+                        zielpfad = zielpfad.Replace("\\Windream\Objects", "")
+                    Else
+                        zielpfad = zielpfad.Substring(2)
+                    End If
 
-                    Do While file_exists(My.Settings.vWLaufwerk & ":\" & neuername & extension) = True
+                    Dim Stammname As String = zielpfad & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
-                        DetailLog("Datei " & endgültigerDateiname & " ist vorhanden!")
+                    Dim neuername As String = zielpfad & "\" & Quelldatei_Name.Substring(0, Quelldatei_Name.LastIndexOf("."))
-                        neuername = Stammname & "~" & version
+                    DetailLog("Stammname [" & Stammname & "]")
+                    DetailLog("neuername [" & neuername & "]")
+                    Do While file_exists("\\WINDREAM\OBJECTS\" & neuername & extension) = True
+                        DetailLog("Versionierung - Datei [" & neuername & extension & "] ist vorhanden!")
+                        neuername = Stammname & "~" & oMyVersion
+                        DetailLog("Versionierung - neuername [" & neuername & "]")
                         endgültigerDateiname = neuername & extension
-                        version = version + 1
+                        oMyVersion = oMyVersion + 1
                     Loop
+                    DetailLog("Datei [" & endgültigerDateiname & "] wird benutzt um den Filestream nach WM zu erzeugen...")
                     _Step = "3.1.2"
                     DetailLog("_Step: " & _Step)
-                    oNewWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
+                    Try
+                        oNewWMObject = _windream.oWMSession.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject)
+                    Catch ex As Exception
+                        ClassLoggerDI.Add(" FEHLER DATEI_VORHANDEN GetNewWMObjectFS...")
+                        ClassLoggerDI.Add(" FEHLER bei _windream.oWMSession.GetNewWMObjectFS: '" & ex.Message)
+                        Return -1
+                    End Try
+
                     If Err.Number > 0 Then
-                        ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
+                            ClassLoggerDI.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'")
-                        If My.Settings.StopwatchTimerActive = True Then
+                            If My.Settings.StopwatchTimerActive = True Then
-                            oStopWatchTimer.Done()
+                                oStopWatchTimer.Done()
-                            oStopWatchTimerC.Done()
+                                oStopWatchTimerC.Done()
+                            End If
+                            'MsgBox(Err.Description)
                         End If
-                        'MsgBox(Err.Description)
+                        DetailLog("...WMObject-Filestream zugewiesen")
                     End If
-                    DetailLog("WMObject zugewiesen")
+                    _Step = "3.2"
-                End If
-                _Step = "3.2"
                 DetailLog("_Step: " & _Step)
                 DetailLog("ENDGÜLTIGER DATEINAME => " & endgültigerDateiname)
                 If oNewWMObject IsNot Nothing Then
                     ' lock object for file system access (to change the file itself)
                     oNewWMObject.lock()
                     ' set fileIO the local source file
+                    DetailLog("Now Streaming from filenameQuelle...")
                     oFileIO.bstrOriginalFileName = filenameQuelle
                     If Err.Number > 0 Then
                         'MsgBox(Err.Number.ToString)
@@ -1197,8 +1211,25 @@ Public Class frmDIHauptseite
                     End If
                     _Step = "3.3"
                     DetailLog("_Step: " & _Step)
-                    ' open the windream object's file stream for writing
+                    Try
-                    oWMStream = oNewWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
+                        ' open the windream object's file stream for writing
+                        oWMStream = oNewWMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite)
+                    Catch ex As Exception
+                        ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
+                        oNewWMObject.Unlock()
+                        Try
+                            System.IO.File.Delete(My.Settings.vWLaufwerk & ":" & endgültigerDateiname)
+                        Catch ex1 As Exception
+
+                        End Try
+
+                        If My.Settings.StopwatchTimerActive = True Then
+                            oStopWatchTimer.Done()
+                            oStopWatchTimerC.Done()
+                        End If
+                        Return -1
+                    End Try
+
                     If Err.Number > 0 Then
                         ClassLoggerDI.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'")
                         oNewWMObject.Unlock()
@@ -2266,7 +2297,7 @@ Public Class frmDIHauptseite
 
                     Me.timRun_Dateiimport.Interval = Me.numIntervallDurchlauf.Value * 60 * 1000
                     Me.timRun_Dateiimport.Start()
-                    My.Settings.vDIDurchlaufRunning = True
+                    My.Settings.DI_RUNNING = True
                     My.Settings.Save()
                     'Direkt einen Durchlauf starten
                     If runnow = True Then
@@ -2285,7 +2316,7 @@ Public Class frmDIHauptseite
                 Me.tvLog.Visible = False
                 Me.timRun_Dateiimport.Stop()
                 Durchlauf = False
-                My.Settings.vDIDurchlaufRunning = False
+                My.Settings.DI_RUNNING = False
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei btnDurchlauf.Click:")
@@ -2370,41 +2401,11 @@ Public Class frmDIHauptseite
         Me.startBackgroundTask()
     End Sub
 
-    Private Sub chkbEmail_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbEmail.CheckedChanged
-        If chkbEmail.Checked Then
-            gbEmail.Enabled = True
-        Else
-            gbEmail.Enabled = False
-        End If
-
-    End Sub
-
-    Private Sub btntestmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntestmail.Click
-        My.Settings.Save()
-        If Me.txtBetreff.Text = "" Or Me.txtEmpfaenger.Text = "" Or Me.txtMail_from.Text = "" Or Me.txtUser.Text = "" Or Me.txtPasswort.Text = "" Or
-        Me.txtSMTP.Text = "" Then
-            MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:")
-        Else
-            email.Send_EMail("TEST-EMAIL", True) '  Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & My.Computer.Clock.LocalTime.ToLongTimeString
-        End If
-    End Sub
 
     Private Sub frmDIHauptseite_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
 
     End Sub
-    Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
+
- _
-         txtUser.LostFocus, txtSMTP.LostFocus, txtPasswort.LostFocus,
-         txtMail_from.LostFocus, txtEmpfaenger.LostFocus, txtBody.LostFocus, txtBetreff.LostFocus
-        CType(sender, TextBox).BackColor = Color.White
-        My.Settings.Save()
-    End Sub
-    Private Sub TextBoxen_gotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
- _
-    txtUser.GotFocus, txtSMTP.GotFocus, txtPasswort.GotFocus,
-    txtMail_from.GotFocus, txtEmpfaenger.GotFocus, txtBody.GotFocus, txtBetreff.GotFocus
-        CType(sender, TextBox).BackColor = Color.Lime
-    End Sub
 
     Private Sub tcMain_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles tcMain.SelectedIndexChanged
         My.Settings.Save()

ToolCollection/frmGrundeinstellungen.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmGrundeinstellungen
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmGrundeinstellungen
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGrundeinstellungen))
         Me.Label1 = New System.Windows.Forms.Label()
@@ -28,6 +28,10 @@ Partial Class frmGrundeinstellungen
         Me.cmlLogart = New System.Windows.Forms.ComboBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.lblLogDeleteTime = New System.Windows.Forms.Label()
+        Me.lblTimeDeleteLogs = New System.Windows.Forms.Label()
+        Me.txtTimeDeleteLogs = New System.Windows.Forms.TextBox()
+        Me.chkAutoDeleteLogs = New System.Windows.Forms.CheckBox()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
@@ -91,6 +95,10 @@ Partial Class frmGrundeinstellungen
         '
         'GroupBox1
         '
+        Me.GroupBox1.Controls.Add(Me.lblLogDeleteTime)
+        Me.GroupBox1.Controls.Add(Me.lblTimeDeleteLogs)
+        Me.GroupBox1.Controls.Add(Me.txtTimeDeleteLogs)
+        Me.GroupBox1.Controls.Add(Me.chkAutoDeleteLogs)
         Me.GroupBox1.Controls.Add(Me.TextBox4)
         Me.GroupBox1.Controls.Add(Me.Label6)
         Me.GroupBox1.Controls.Add(Me.Label1)
@@ -102,11 +110,46 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
         Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(470, 114)
+        Me.GroupBox1.Size = New System.Drawing.Size(470, 209)
         Me.GroupBox1.TabIndex = 6
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Log-Einstellungen:"
         '
+        'lblLogDeleteTime
+        '
+        Me.lblLogDeleteTime.AutoSize = True
+        Me.lblLogDeleteTime.Location = New System.Drawing.Point(6, 169)
+        Me.lblLogDeleteTime.Name = "lblLogDeleteTime"
+        Me.lblLogDeleteTime.Size = New System.Drawing.Size(211, 13)
+        Me.lblLogDeleteTime.TabIndex = 11
+        Me.lblLogDeleteTime.Text = "Logs werden automatisch gelöscht um: "
+        '
+        'lblTimeDeleteLogs
+        '
+        Me.lblTimeDeleteLogs.AutoSize = True
+        Me.lblTimeDeleteLogs.Location = New System.Drawing.Point(229, 112)
+        Me.lblTimeDeleteLogs.Name = "lblTimeDeleteLogs"
+        Me.lblTimeDeleteLogs.Size = New System.Drawing.Size(209, 13)
+        Me.lblTimeDeleteLogs.TabIndex = 10
+        Me.lblTimeDeleteLogs.Text = "Zeitpunkt der automatischen Löschung"
+        '
+        'txtTimeDeleteLogs
+        '
+        Me.txtTimeDeleteLogs.Location = New System.Drawing.Point(232, 128)
+        Me.txtTimeDeleteLogs.Name = "txtTimeDeleteLogs"
+        Me.txtTimeDeleteLogs.Size = New System.Drawing.Size(84, 22)
+        Me.txtTimeDeleteLogs.TabIndex = 9
+        '
+        'chkAutoDeleteLogs
+        '
+        Me.chkAutoDeleteLogs.AutoSize = True
+        Me.chkAutoDeleteLogs.Location = New System.Drawing.Point(9, 130)
+        Me.chkAutoDeleteLogs.Name = "chkAutoDeleteLogs"
+        Me.chkAutoDeleteLogs.Size = New System.Drawing.Size(146, 17)
+        Me.chkAutoDeleteLogs.TabIndex = 8
+        Me.chkAutoDeleteLogs.Text = "Automatisches Löschen"
+        Me.chkAutoDeleteLogs.UseVisualStyleBackColor = True
+        '
         'TextBox4
         '
         Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "logolder_then", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
@@ -121,7 +164,7 @@ Partial Class frmGrundeinstellungen
         Me.Label6.AutoSize = True
         Me.Label6.Location = New System.Drawing.Point(229, 63)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(198, 13)
+        Me.Label6.Size = New System.Drawing.Size(199, 13)
         Me.Label6.TabIndex = 6
         Me.Label6.Text = "LogDateien löschen - ""Älter als""-Tage:"
         '
@@ -148,7 +191,7 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox2.Controls.Add(Me.Label4)
         Me.GroupBox2.Controls.Add(Me.cmbCores)
         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox2.Location = New System.Drawing.Point(0, 114)
+        Me.GroupBox2.Location = New System.Drawing.Point(0, 209)
         Me.GroupBox2.Name = "GroupBox2"
         Me.GroupBox2.Size = New System.Drawing.Size(470, 68)
         Me.GroupBox2.TabIndex = 7
@@ -178,7 +221,7 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox3.Controls.Add(Me.txterrorIndex)
         Me.GroupBox3.Controls.Add(Me.Label5)
         Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox3.Location = New System.Drawing.Point(0, 182)
+        Me.GroupBox3.Location = New System.Drawing.Point(0, 277)
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.Size = New System.Drawing.Size(470, 67)
         Me.GroupBox3.TabIndex = 8
@@ -207,7 +250,7 @@ Partial Class frmGrundeinstellungen
         '
         Me.GroupBox4.Controls.Add(Me.TextBox3)
         Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox4.Location = New System.Drawing.Point(0, 249)
+        Me.GroupBox4.Location = New System.Drawing.Point(0, 344)
         Me.GroupBox4.Name = "GroupBox4"
         Me.GroupBox4.Size = New System.Drawing.Size(470, 50)
         Me.GroupBox4.TabIndex = 9
@@ -230,7 +273,7 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox5.Controls.Add(Me.Label8)
         Me.GroupBox5.Controls.Add(Me.Label7)
         Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox5.Location = New System.Drawing.Point(0, 299)
+        Me.GroupBox5.Location = New System.Drawing.Point(0, 394)
         Me.GroupBox5.Name = "GroupBox5"
         Me.GroupBox5.Size = New System.Drawing.Size(470, 100)
         Me.GroupBox5.TabIndex = 10
@@ -290,7 +333,7 @@ Partial Class frmGrundeinstellungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(470, 407)
+        Me.ClientSize = New System.Drawing.Size(470, 590)
         Me.Controls.Add(Me.GroupBox5)
         Me.Controls.Add(Me.GroupBox4)
         Me.Controls.Add(Me.GroupBox3)
@@ -336,4 +379,8 @@ Partial Class frmGrundeinstellungen
     Friend WithEvents cmbSleeptill As System.Windows.Forms.ComboBox
     Friend WithEvents Label9 As System.Windows.Forms.Label
     Friend WithEvents cmbSleepFrom As System.Windows.Forms.ComboBox
+    Friend WithEvents chkAutoDeleteLogs As CheckBox
+    Friend WithEvents lblTimeDeleteLogs As Label
+    Friend WithEvents txtTimeDeleteLogs As TextBox
+    Friend WithEvents lblLogDeleteTime As Label
 End Class

ToolCollection/frmGrundeinstellungen.vb

@@ -1,5 +1,8 @@
 Public Class frmGrundeinstellungen
+
     Private Shared _Instance As frmGrundeinstellungen = Nothing
+    Private _isLoading As Boolean = False
+
     Public Shared Function Instance() As frmGrundeinstellungen
         If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
             _Instance = New frmGrundeinstellungen
@@ -20,7 +23,8 @@
         End If
     End Sub
 
-    Private Sub frmGrundeinstellungen_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+    Private Sub frmGrundeinstellungen_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        txtTimeDeleteLogs.Text = My.Settings.vDeleteLogsTime
         My.Settings.Save()
     End Sub
 
@@ -56,4 +60,82 @@
     Private Sub txterrorIndex_TextChanged(sender As Object, e As EventArgs) Handles txterrorIndex.TextChanged
 
     End Sub
+
+    Private Sub chkAutoDeleteLogs_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoDeleteLogs.CheckedChanged
+        If _isLoading Then Exit Sub
+
+        If chkAutoDeleteLogs.Checked Then
+
+            Dim dt As DateTime
+            If Not DateTime.TryParse(txtTimeDeleteLogs.Text, dt) Then
+                MsgBox("Ungültige Eingabe! Der Zeitpunkt für die Löschung wurde auf 03:00 Uhr gesetzt. Bitte geben Sie die Uhrzeit in folgendem Format ein: HH:mm.", MsgBoxStyle.Information)
+                'chkAutoDeleteLogs.Checked = False
+                'txtTimeDeleteLogs.Text = ""
+                My.Settings.vAutoDeleteLogs = chkAutoDeleteLogs.Checked
+                txtTimeDeleteLogs.Text = My.Settings.vDefaultDeleteLogsTime.ToShortTimeString
+                My.Settings.Save()
+            Else
+                My.Settings.vDeleteLogsTime = txtTimeDeleteLogs.Text
+                My.Settings.vAutoDeleteLogs = chkAutoDeleteLogs.Checked
+                My.Settings.Save()
+                lblLogDeleteTime.Text = "Logs werden automatisch gelöscht um: " & My.Settings.vDeleteLogsTime.ToShortTimeString & " Uhr."
+                frmStart.Instance().ToolStripStatusLabel_LogDeleteTime.Text = "Logs werden automatisch gelöscht um: " & My.Settings.vDeleteLogsTime.ToShortTimeString & " Uhr."
+
+                frmStart.Instance().SetupTimerDeleteLogfiles()
+            End If
+
+        Else
+            txtTimeDeleteLogs.Text = ""
+            My.Settings.vAutoDeleteLogs = chkAutoDeleteLogs.Checked
+            My.Settings.Save()
+
+            lblLogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
+            frmStart.Instance().ToolStripStatusLabel_LogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
+            frmStart.Instance().TimerDeleteLogfiles.Stop()
+        End If
+    End Sub
+
+    Private Sub FrmGrundeinstellungen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        _isLoading = True
+
+        Try
+            If My.Settings.vAutoDeleteLogs Then
+                chkAutoDeleteLogs.Checked = My.Settings.vAutoDeleteLogs
+                If String.IsNullOrWhiteSpace(My.Settings.vDeleteLogsTime.ToString) Then
+                    txtTimeDeleteLogs.Text = My.Settings.vDefaultDeleteLogsTime.ToShortTimeString
+                    lblLogDeleteTime.Text = "Logs werden automatisch gelöscht um: " & My.Settings.vDefaultDeleteLogsTime.ToShortTimeString & " Uhr."
+                Else
+                    txtTimeDeleteLogs.Text = My.Settings.vDeleteLogsTime.ToShortTimeString
+                    lblLogDeleteTime.Text = "Logs werden automatisch gelöscht um: " & My.Settings.vDeleteLogsTime.ToShortTimeString & " Uhr."
+                End If
+            Else
+                txtTimeDeleteLogs.Text = ""
+                lblLogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
+            End If
+        Catch ex As Exception
+
+        End Try
+
+        _isLoading = False
+    End Sub
+
+    Private Sub txtTimeDeleteLogs_TextChanged(sender As Object, e As EventArgs) Handles txtTimeDeleteLogs.TextChanged
+        ' Falls gerade geladen wird oder Checkbox nicht aktiv ist → nichts machen
+        If _isLoading OrElse Not chkAutoDeleteLogs.Checked Then Exit Sub
+
+        Dim dt As DateTime
+        ' Prüfen, ob Eingabe im Format HH:mm gültig ist
+        If DateTime.TryParseExact(txtTimeDeleteLogs.Text, "HH:mm", Nothing, Globalization.DateTimeStyles.None, dt) Then
+            ' Neuen Wert in Settings speichern
+            My.Settings.vDeleteLogsTime = dt
+            My.Settings.Save()
+
+            ' Labels aktualisieren
+            lblLogDeleteTime.Text = $"Logs werden automatisch gelöscht um: {dt:HH:mm} Uhr."
+            frmStart.Instance().ToolStripStatusLabel_LogDeleteTime.Text = lblLogDeleteTime.Text
+
+            ' Timer neu setzen
+            frmStart.Instance().SetupTimerDeleteLogfiles()
+        End If
+    End Sub
 End Class

ToolCollection/frmNB_AD.vb

@@ -32,6 +32,7 @@ Public Class frmNB_AD
     Private Sub frmNB_AD_Load(sender As Object, e As EventArgs) Handles Me.Load
         _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
         _Logger = _MyLogger.GetLogger()
+        _MyLogger.Debug = Not (My.Settings.vLogErrorsonly)
         _SQLLite = New ClassSQLITE(_MyLogger)
         _windreamRechte = New ClassWD_Rechte(_MyLogger, _SQLLite)
         _windreamRechte.Init()

ToolCollection/frmNIHauptseite.Designer.vb

@@ -49,27 +49,6 @@ Partial Class frmNIHauptseite
         Me.Label4 = New System.Windows.Forms.Label()
         Me.numIntervall = New System.Windows.Forms.NumericUpDown()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.gbEmail = New System.Windows.Forms.GroupBox()
-        Me.txtPort = New System.Windows.Forms.TextBox()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.txtBody = New System.Windows.Forms.TextBox()
-        Me.btntestmail = New System.Windows.Forms.Button()
-        Me.txtEmpfaenger = New System.Windows.Forms.TextBox()
-        Me.Label13 = New System.Windows.Forms.Label()
-        Me.txtBetreff = New System.Windows.Forms.TextBox()
-        Me.Label12 = New System.Windows.Forms.Label()
-        Me.txtPasswort = New System.Windows.Forms.TextBox()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.txtUser = New System.Windows.Forms.TextBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.txtSMTP = New System.Windows.Forms.TextBox()
-        Me.Label14 = New System.Windows.Forms.Label()
-        Me.txtMail_from = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
-        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.chkbEmail = New System.Windows.Forms.CheckBox()
         Me.timRun = New System.Windows.Forms.Timer(Me.components)
         Me.DS_More = New ToolCollection.DS_More()
         Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -88,9 +67,6 @@ Partial Class frmNIHauptseite
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlInfos.SuspendLayout()
         CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.TabPage2.SuspendLayout()
-        Me.gbEmail.SuspendLayout()
-        Me.GroupBox3.SuspendLayout()
         CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -358,8 +334,6 @@ Partial Class frmNIHauptseite
         '
         'TabPage2
         '
-        Me.TabPage2.Controls.Add(Me.gbEmail)
-        Me.TabPage2.Controls.Add(Me.GroupBox3)
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
@@ -368,224 +342,6 @@ Partial Class frmNIHauptseite
         Me.TabPage2.Text = "Konfigurationen"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
-        'gbEmail
-        '
-        Me.gbEmail.Controls.Add(Me.txtPort)
-        Me.gbEmail.Controls.Add(Me.Label17)
-        Me.gbEmail.Controls.Add(Me.Label16)
-        Me.gbEmail.Controls.Add(Me.txtBody)
-        Me.gbEmail.Controls.Add(Me.btntestmail)
-        Me.gbEmail.Controls.Add(Me.txtEmpfaenger)
-        Me.gbEmail.Controls.Add(Me.Label13)
-        Me.gbEmail.Controls.Add(Me.txtBetreff)
-        Me.gbEmail.Controls.Add(Me.Label12)
-        Me.gbEmail.Controls.Add(Me.txtPasswort)
-        Me.gbEmail.Controls.Add(Me.Label11)
-        Me.gbEmail.Controls.Add(Me.txtUser)
-        Me.gbEmail.Controls.Add(Me.Label10)
-        Me.gbEmail.Controls.Add(Me.txtSMTP)
-        Me.gbEmail.Controls.Add(Me.Label14)
-        Me.gbEmail.Controls.Add(Me.txtMail_from)
-        Me.gbEmail.Controls.Add(Me.Label15)
-        Me.gbEmail.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.gbEmail.Enabled = False
-        Me.gbEmail.Location = New System.Drawing.Point(3, 44)
-        Me.gbEmail.Name = "gbEmail"
-        Me.gbEmail.Size = New System.Drawing.Size(760, 474)
-        Me.gbEmail.TabIndex = 2
-        Me.gbEmail.TabStop = False
-        Me.gbEmail.Text = "E-Mail Konfiguration"
-        '
-        'txtPort
-        '
-        Me.txtPort.Location = New System.Drawing.Point(367, 34)
-        Me.txtPort.Name = "txtPort"
-        Me.txtPort.Size = New System.Drawing.Size(100, 22)
-        Me.txtPort.TabIndex = 16
-        '
-        'Label17
-        '
-        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(364, 18)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(31, 13)
-        Me.Label17.TabIndex = 15
-        Me.Label17.Text = "Port:"
-        '
-        'Label16
-        '
-        Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(6, 236)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(504, 13)
-        Me.Label16.TabIndex = 14
-        Me.Label16.Text = "Standard Einleitungstext: (HTML fähig: <br> = Zeilenwechsel;<b>= Fett Formatiert;" &
-    "</b>= Ende)"
-        '
-        'txtBody
-        '
-        Me.txtBody.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIMailBody", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtBody.Location = New System.Drawing.Point(9, 252)
-        Me.txtBody.Multiline = True
-        Me.txtBody.Name = "txtBody"
-        Me.txtBody.Size = New System.Drawing.Size(699, 64)
-        Me.txtBody.TabIndex = 13
-        Me.txtBody.Text = Global.ToolCollection.My.MySettings.Default.vNIMailBody
-        '
-        'btntestmail
-        '
-        Me.btntestmail.Image = Global.ToolCollection.My.Resources.Resources.mail_write
-        Me.btntestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btntestmail.Location = New System.Drawing.Point(9, 322)
-        Me.btntestmail.Name = "btntestmail"
-        Me.btntestmail.Size = New System.Drawing.Size(99, 34)
-        Me.btntestmail.TabIndex = 12
-        Me.btntestmail.Text = "Test-Mail"
-        Me.btntestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btntestmail.UseVisualStyleBackColor = True
-        '
-        'txtEmpfaenger
-        '
-        Me.txtEmpfaenger.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIEmailEmpf", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtEmpfaenger.Location = New System.Drawing.Point(9, 211)
-        Me.txtEmpfaenger.Name = "txtEmpfaenger"
-        Me.txtEmpfaenger.Size = New System.Drawing.Size(699, 22)
-        Me.txtEmpfaenger.TabIndex = 11
-        Me.txtEmpfaenger.Text = Global.ToolCollection.My.MySettings.Default.vNIEmailEmpf
-        '
-        'Label13
-        '
-        Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(6, 195)
-        Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(298, 13)
-        Me.Label13.TabIndex = 10
-        Me.Label13.Text = "Empfänger: (Mehrere Empfänger bitte durch "";"" trennen )"
-        '
-        'txtBetreff
-        '
-        Me.txtBetreff.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIMailBetreff", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtBetreff.Location = New System.Drawing.Point(9, 166)
-        Me.txtBetreff.Name = "txtBetreff"
-        Me.txtBetreff.Size = New System.Drawing.Size(344, 22)
-        Me.txtBetreff.TabIndex = 9
-        Me.txtBetreff.Text = Global.ToolCollection.My.MySettings.Default.vNIMailBetreff
-        '
-        'Label12
-        '
-        Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(6, 150)
-        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(237, 13)
-        Me.Label12.TabIndex = 8
-        Me.Label12.Text = "Betreff: (Text für den Betreff der Fehler-Email)"
-        '
-        'txtPasswort
-        '
-        Me.txtPasswort.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailPW", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtPasswort.Location = New System.Drawing.Point(364, 120)
-        Me.txtPasswort.Name = "txtPasswort"
-        Me.txtPasswort.Size = New System.Drawing.Size(219, 22)
-        Me.txtPasswort.TabIndex = 7
-        Me.txtPasswort.Text = Global.ToolCollection.My.MySettings.Default.vMailPW
-        Me.txtPasswort.UseSystemPasswordChar = True
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(361, 104)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(86, 13)
-        Me.Label11.TabIndex = 6
-        Me.Label11.Text = "User-Passwort: "
-        '
-        'txtUser
-        '
-        Me.txtUser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vMailUser", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtUser.Location = New System.Drawing.Point(364, 78)
-        Me.txtUser.Name = "txtUser"
-        Me.txtUser.Size = New System.Drawing.Size(344, 22)
-        Me.txtUser.TabIndex = 5
-        Me.txtUser.Text = Global.ToolCollection.My.MySettings.Default.vMailUser
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(361, 62)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(133, 13)
-        Me.Label10.TabIndex = 4
-        Me.Label10.Text = "User: (Authentifizierung)"
-        '
-        'txtSMTP
-        '
-        Me.txtSMTP.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vSMTP", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtSMTP.Location = New System.Drawing.Point(9, 78)
-        Me.txtSMTP.Name = "txtSMTP"
-        Me.txtSMTP.Size = New System.Drawing.Size(344, 22)
-        Me.txtSMTP.TabIndex = 3
-        Me.txtSMTP.Text = Global.ToolCollection.My.MySettings.Default.vSMTP
-        '
-        'Label14
-        '
-        Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(6, 62)
-        Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(139, 13)
-        Me.Label14.TabIndex = 2
-        Me.Label14.Text = "SMTP-Server: (Mail-Server)"
-        '
-        'txtMail_from
-        '
-        Me.txtMail_from.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vNIMailfrom", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtMail_from.Location = New System.Drawing.Point(9, 34)
-        Me.txtMail_from.Name = "txtMail_from"
-        Me.txtMail_from.Size = New System.Drawing.Size(344, 22)
-        Me.txtMail_from.TabIndex = 1
-        Me.txtMail_from.Text = Global.ToolCollection.My.MySettings.Default.vNIMailfrom
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(6, 18)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(139, 13)
-        Me.Label15.TabIndex = 0
-        Me.Label15.Text = "Absender: (Email-Adresse)"
-        '
-        'GroupBox3
-        '
-        Me.GroupBox3.Controls.Add(Me.Button1)
-        Me.GroupBox3.Controls.Add(Me.chkbEmail)
-        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
-        Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(760, 41)
-        Me.GroupBox3.TabIndex = 1
-        Me.GroupBox3.TabStop = False
-        Me.GroupBox3.Text = "Allgemeine Einstellungen:"
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(535, 12)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 1
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'chkbEmail
-        '
-        Me.chkbEmail.AutoSize = True
-        Me.chkbEmail.Checked = Global.ToolCollection.My.MySettings.Default.vNIMailsenden
-        Me.chkbEmail.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.ToolCollection.My.MySettings.Default, "vNIMailsenden", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.chkbEmail.Location = New System.Drawing.Point(6, 20)
-        Me.chkbEmail.Name = "chkbEmail"
-        Me.chkbEmail.Size = New System.Drawing.Size(146, 17)
-        Me.chkbEmail.TabIndex = 0
-        Me.chkbEmail.Text = "Fehler E-Mail aktivieren"
-        Me.chkbEmail.UseVisualStyleBackColor = True
-        '
         'timRun
         '
         Me.timRun.Interval = 60
@@ -670,11 +426,6 @@ Partial Class frmNIHauptseite
         Me.pnlInfos.ResumeLayout(False)
         Me.pnlInfos.PerformLayout()
         CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.TabPage2.ResumeLayout(False)
-        Me.gbEmail.ResumeLayout(False)
-        Me.gbEmail.PerformLayout()
-        Me.GroupBox3.ResumeLayout(False)
-        Me.GroupBox3.PerformLayout()
         CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -703,24 +454,6 @@ Partial Class frmNIHauptseite
     Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents numIntervall As System.Windows.Forms.NumericUpDown
     Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
-    Friend WithEvents gbEmail As System.Windows.Forms.GroupBox
-    Friend WithEvents Label16 As System.Windows.Forms.Label
-    Friend WithEvents txtBody As System.Windows.Forms.TextBox
-    Friend WithEvents btntestmail As System.Windows.Forms.Button
-    Friend WithEvents txtEmpfaenger As System.Windows.Forms.TextBox
-    Friend WithEvents Label13 As System.Windows.Forms.Label
-    Friend WithEvents txtBetreff As System.Windows.Forms.TextBox
-    Friend WithEvents Label12 As System.Windows.Forms.Label
-    Friend WithEvents txtPasswort As System.Windows.Forms.TextBox
-    Friend WithEvents Label11 As System.Windows.Forms.Label
-    Friend WithEvents txtUser As System.Windows.Forms.TextBox
-    Friend WithEvents Label10 As System.Windows.Forms.Label
-    Friend WithEvents txtSMTP As System.Windows.Forms.TextBox
-    Friend WithEvents Label14 As System.Windows.Forms.Label
-    Friend WithEvents txtMail_from As System.Windows.Forms.TextBox
-    Friend WithEvents Label15 As System.Windows.Forms.Label
-    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
-    Friend WithEvents chkbEmail As System.Windows.Forms.CheckBox
     Friend WithEvents timRun As System.Windows.Forms.Timer
     Friend WithEvents MyDataset As ToolCollection.MyDataset
     Friend WithEvents lblDatei As System.Windows.Forms.Label
@@ -732,9 +465,6 @@ Partial Class frmNIHauptseite
     Friend WithEvents TableAdapterManager As ToolCollection.DS_MoreTableAdapters.TableAdapterManager
     Friend WithEvents TBMO_RE_HISTORYBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBMO_RE_HISTORYTableAdapter As ToolCollection.DS_MoreTableAdapters.TBMO_RE_HISTORYTableAdapter
-    Friend WithEvents txtPort As System.Windows.Forms.TextBox
-    Friend WithEvents Label17 As System.Windows.Forms.Label
-    Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
     Friend WithEvents tslblStatus As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents TimerRefresh As System.Windows.Forms.Timer

ToolCollection/frmNIHauptseite.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports System.Data.Entity.Core.Common.CommandTrees.ExpressionBuilder
 Imports System.IO
 Imports System.Text.RegularExpressions
 Imports DigitalData.Modules.Logging
@@ -12,13 +13,11 @@ Public Class frmNIHauptseite
     '####Variablen für Nachindexierung
     Private _windreamNI As ClassNIWindream
     Private _clsWorkfile As clsNI_WorkFile
-    'Private _clsMoRe As ClassMO_RE
+
-    'Private _windreamNI As ClassNIWindream = Me.ParentClass.Windream
     Private bwProfil As New BackgroundWorker
     Private bwDatei As New BackgroundWorker
     Private bwsearch As New BackgroundWorker
 
-    Private email As New ClassNIEmail
     Private database As ClassNIDatenbankzugriff
     Private xml As New ClassxmlZugriff
 
@@ -64,9 +63,13 @@ Public Class frmNIHauptseite
         ' 3a. Windream instanziieren
         _windreamNI = New ClassNIWindream(_MyLogger)
         database = New ClassNIDatenbankzugriff(_MyLogger)
+
+
         ' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
         If _windreamNI.Init() = False Then
-            email.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
+            _Logger.Warn("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
+            Exit Sub
+
         End If
         'ClassMoveRenameLogger.Init("", "MoveRename_", True)
 
@@ -119,13 +122,13 @@ Public Class frmNIHauptseite
         End If
     End Sub
     Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        Try
+        'Try
-            'LoadAllModules()
+        '    'LoadAllModules()
-            TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString
+        '    TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString
-        Catch ex As Exception
+        'Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei frmNIHauptseite_Load")
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei frmNIHauptseite_Load")
-            _Logger.Warn("Fehler bei frmNIHauptseite_Load: " & ex.Message)
+        '    _Logger.Warn("Fehler bei frmNIHauptseite_Load: " & ex.Message)
-        End Try
+        'End Try
     End Sub
     'Private Function return_conn(ByVal dbart As String)
     '    Select Case dbart
@@ -338,10 +341,7 @@ Public Class frmNIHauptseite
                     If clsHelper.file_exists(Me.aktivesProfil.WindreamSuche, "NI") = False AndAlso Me.aktivesProfil.WindreamSuche.ToLower.Contains("select") = False Then
                         _Logger.Warn("Windream Suche für Profil: " & profil.Profilname & " konnte nicht ausgeführt werden! Die Datei " & Me.aktivesProfil.WindreamSuche & " existiert nicht!")
                         ' wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
-                        If My.Settings.vNIMailsenden = True Then
+
-                            email.Send_EMail("Fehler bei Nachindexierung: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" &
-                                             "<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
-                        End If
                         Abbruch_NI("Windream-Suche konnte nicht gefunden werden!", True, False)
                         clsHelper.Add_Application_log("Nachindexierung wurde abgebrochen, da eine Windream-Suche (" & Me.aktivesProfil.WindreamSuche & ") nicht gefunden werden konnte")
 
@@ -472,16 +472,30 @@ Public Class frmNIHauptseite
                                             Else
                                                 Try
                                                     Dim oDTResults As DataTable
-                                                    oDTResults = database.Return_Datatable(aktivesProfil.WindreamSuche)
+                                                    oDTResults = DB_ECM.GetDatatable(aktivesProfil.WindreamSuche)
 
                                                     If Not IsNothing(oDTResults) Then
                                                         If oDTResults.Rows.Count > 0 Then
                                                             bwProfil.ReportProgress(oDTResults.Rows.Count)
                                                             _Logger.Debug($">> Working on [{oDTResults.Rows.Count}] documents via SQL...")
                                                             If Not IsNothing(_windreamNI) Then
+                                                                Dim oColumnIndex As Integer
+                                                                Try
+                                                                    Dim oCheckInt As Integer
+                                                                    Dim oCheckStr As String
+                                                                    If Integer.TryParse(oDTResults.Rows(0).Item(1).ToString, oCheckInt) Then
+
+                                                                        oColumnIndex = 0
+                                                                    Else
+                                                                        oColumnIndex = 1
+                                                                    End If
+                                                                    _Logger.Debug($">> WM fullFilePath is obviously located in ColumnIndex: {oColumnIndex}")
+                                                                Catch ex As Exception
+
+                                                                End Try
                                                                 Dim i As Integer = 0
                                                                 For Each oROW As DataRow In oDTResults.Rows
-                                                                    Dim oFilenameWM = oROW.Item(1).ToString
+                                                                    Dim oFilenameWM = oROW.Item(oColumnIndex).ToString
                                                                     oFilenameWM = oFilenameWM.Replace("W:", "")
                                                                     oFilenameWM = oFilenameWM.Replace("\\windream\objects", "")
                                                                     _Logger.Debug($">> Trying to create WMObject by path [{oFilenameWM}] ...")
@@ -532,6 +546,8 @@ Public Class frmNIHauptseite
                                                         End If
                                                     Else
                                                         _Logger.Warn($"ATTENTION: The datatable for WMResults is nothing")
+                                                        _Logger.Warn($"SQL WMResults: {aktivesProfil.WindreamSuche}")
+
                                                     End If
                                                 Catch ex As Exception
                                                     _Logger.Warn($"UNEXPECTED ERROR IN GetSearchDocuments via SQL: {ex.Message}")
@@ -554,12 +570,12 @@ Public Class frmNIHauptseite
 
                                     Else
                                         _Logger.Debug("Keine windream-Dokumente für Profil: " & profil.Profilname & " gefunden!")
-                                            ' keine Dateien zum Indexieren
+                                        ' keine Dateien zum Indexieren
-                                            bwProfil.ReportProgress(-4)
+                                        bwProfil.ReportProgress(-4)
-                                        End If
-                                    Else
-                                        _Logger.Warn($"windreamSucheErgebnisse Is Nothing!! - Please check Search of {profil.Profilname}")
                                     End If
+                                Else
+                                    _Logger.Warn($"windreamSucheErgebnisse Is Nothing!! - Please check Search of {profil.Profilname}")
+                                End If
                             Else
                                 _Logger.Warn("_Fehler = True - Check the config of Nachindexierung")
                                 bwProfil.ReportProgress(-4)
@@ -675,7 +691,6 @@ Public Class frmNIHauptseite
                 IsWorking_Hour = True
             End If
             If _windreamNI.Init() = False Then
-                email.Send_EMail("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
                 clsHelper.Add_Application_log("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert?")
 
                 Exit Sub
@@ -780,9 +795,6 @@ Public Class frmNIHauptseite
         Catch ex As Exception
             errormsg = " FEHLER bei Check_Desk_Index (GetVariableValue für Index '" & aktivesProfil.Desk_windreamIndex & "'): " & ex.Message
             _Logger.Warn(errormsg)
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten Check_Desk_Index (GetVariableValue): " & ex.Message)
-            End If
             ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
             Return True
 
@@ -797,7 +809,7 @@ Public Class frmNIHauptseite
         End If
     End Function
     ' Indexiert die windream-Suchergebnisse
-    Public Sub IndexiereVerarbeiteDokument(ByVal dokument As WMObject)
+    Public Sub IndexiereVerarbeiteDokument(ByVal pMyWMDoc As WMObject)
         Dim oResultNachindexierung = Nothing
 
         Try
@@ -819,10 +831,10 @@ Public Class frmNIHauptseite
             Dim eindeutigerWertausWindream As String
             Dim _pathxmlfile As String
             'Liefert nur den PFad des aktiven Dokumens
-            Dim ordnerpfad As String = IO.Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath)
+            Dim ordnerpfad As String = IO.Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & pMyWMDoc.aPath)
             _Logger.Debug("OrdnerPfad der Datei: " & ordnerpfad)
             Try
-                CURRENT_DOCID = CInt(dokument.GetVariableValue("Dokument-ID"))
+                CURRENT_DOCID = CInt(pMyWMDoc.GetVariableValue("Dokument-ID"))
             Catch ex As Exception
                 CURRENT_DOCID = 0
             End Try
@@ -837,8 +849,19 @@ Public Class frmNIHauptseite
                     Dim fulltext
                     Try
                         _fulltext = New clsNIFulltext(_MyLogger)
-                        fulltext = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex)
+                        _Logger.Debug(">> _fulltext initialized.")
-                        Volltext_indexer(dokument, fulltext)
+                        fulltext = pMyWMDoc.GetVariableValue(aktivesProfil.Desk_windreamIndex)
+                        If Len(fulltext) > 0 Then
+                            _Logger.Info($"{aktivesProfil.Desk_windreamIndex} is empty...")
+                        Else
+                            _Logger.Info($"## No fulltext from [{aktivesProfil.Desk_windreamIndex}] extracted!")
+                            fulltext = pMyWMDoc.GetVariableValue("Manueller Volltext")
+                        End If
+                        If Len(fulltext) > 0 Then
+                            Volltext_indexer(pMyWMDoc, fulltext)
+                        Else
+                            _Logger.Info($"## Even no fulltext from Manueller Volltext extracted!")
+                        End If
                     Catch ex As Exception
                         _Logger.Error(ex)
                         oUnexpectedError = True
@@ -870,13 +893,13 @@ Public Class frmNIHauptseite
 
                                 Else
                                     ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
-                                    odescIndexValue = dokument.GetVariableValue(aktivesProfil.Desk_windreamIndex)
+                                    odescIndexValue = pMyWMDoc.GetVariableValue(aktivesProfil.Desk_windreamIndex)
-                                    oResultCheck = Check_DeskIndexValue(odescIndexValue, aktivesProfil.checkIndexsql, dokument)
+                                    oResultCheck = Check_DeskIndexValue(odescIndexValue, aktivesProfil.checkIndexsql, pMyWMDoc)
                                 End If
 
                             Catch ex As Exception
 
-                                _Logger.Warn($" Error getting  {dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf KEINEN Eintrag in der Datenbank!")
+                                _Logger.Warn($" Error getting  {pMyWMDoc.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf KEINEN Eintrag in der Datenbank!")
 
                             End Try
 
@@ -885,18 +908,18 @@ Public Class frmNIHauptseite
                             Select Case oResultCheck
                                 Case 0
                                     'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
-                                    _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf KEINEN Eintrag in der Datenbank!")
+                                    _Logger.Warn($"{pMyWMDoc.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf KEINEN Eintrag in der Datenbank!")
                                     fehlermsg &= " >> Der deskriptive Indexwert " & odescIndexValue & " verweist auf KEINEN Eintrag in der Datenbank!"
                                     'Fehler = True
                                     unvollstaendig = True
                                     File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
                                     SetErrorMeldung("Value '" & odescIndexValue & "' not found in Database", aktivesDokument, My.Settings.ERROR_INDEX)
                                 Case 1
-                                    _Logger.Debug($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
+                                    _Logger.Debug($"{pMyWMDoc.aName} # Der deskriptive Indexwert '{odescIndexValue}' verweist genau auf EINEN Eintrag in der Datenbank - Alles OK")
                                     unvollstaendig = False
                                 Case 2
                                     'Mehr als ein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
-                                    _Logger.Warn($"{dokument.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!")
+                                    _Logger.Warn($"{pMyWMDoc.aName} # Der deskriptive Indexwert '{odescIndexValue}' of Index [{aktivesProfil.Desk_windreamIndex}] verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!")
                                     fehlermsg &= " >>  Der deskriptive Indexwert " & odescIndexValue & " verweist auf MEHR ALS EINEN Eintrag in der Datenbank oder es trat ein genereller Fehler auf!"
                                     oUnexpectedError = True
                                     unvollstaendig = True
@@ -913,7 +936,7 @@ Public Class frmNIHauptseite
                         End Try
                     End If
                 Case "xml" '#### Indexierung über xml-Dokument
-                    _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "."
+                    _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(pMyWMDoc.aPath) & "."
                     If aktivesProfil.xmlEnd = "xml (ZugFerd)" Then
                         _pathxmlfile &= "xml"
                     Else
@@ -921,7 +944,7 @@ Public Class frmNIHauptseite
                     End If
 
                     If clsHelper.file_exists(_pathxmlfile, "NI") = False Then
-                        _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & "xfres"
+                        _pathxmlfile = ordnerpfad & "\" & System.IO.Path.GetFileNameWithoutExtension(pMyWMDoc.aPath) & "." & "xfres"
                         If clsHelper.file_exists(_pathxmlfile, "NI") = False Then
                             _Logger.Warn("ACHTUNG 1: Nachindexdatei '" & _pathxmlfile & "' existiert nicht!")
                             ' Markierung des Dokumentes
@@ -962,28 +985,28 @@ Public Class frmNIHauptseite
                     If Len(oSqlCommand) > 0 Then
                         'Ersetzen des Dateinamens - für CURSOR NachindexierungPr
                         If oSqlCommand.Contains("[DATEINAME]") Then
-                            oSqlCommand = oSqlCommand.Replace("[DATEINAME]", dokument.aName)
+                            oSqlCommand = oSqlCommand.Replace("[DATEINAME]", pMyWMDoc.aName)
                         End If
                         If oSqlCommand.Contains("[FULLNAME]") Then
-                            oSqlCommand = oSqlCommand.Replace("[FULLNAME]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
+                            oSqlCommand = oSqlCommand.Replace("[FULLNAME]", My.Settings.MRWD_Laufwerk & ":" & pMyWMDoc.aPath)
                         End If
 
-                        If oSqlCommand.Contains("[%DOCFilename]") Then
+                        If oSqlCommand.Contains("[DOCFilename]") Then
-                            oSqlCommand = oSqlCommand.Replace("[%DOCFilename]", dokument.aName)
+                            oSqlCommand = oSqlCommand.Replace("[DOCFilename]", pMyWMDoc.aName)
                         End If
-                        If oSqlCommand.Contains("[%DOCFilenameoE]") Then
+                        If oSqlCommand.Contains("[DOCFilenameoE]") Then
                             Dim Filename As String = aktivesDokument.aName.ToString.Substring(0, aktivesDokument.aName.LastIndexOf("."))
-                            oSqlCommand = oSqlCommand.Replace("[%DOCFilenameoE]", Path.GetFileNameWithoutExtension(Filename))
+                            oSqlCommand = oSqlCommand.Replace("[DOCFilenameoE]", Path.GetFileNameWithoutExtension(Filename))
                         End If
 
-                        If oSqlCommand.Contains("[%DOCPath]") Then
+                        If oSqlCommand.Contains("[DOCPath]") Then
-                            oSqlCommand = oSqlCommand.Replace("[FULLNAME]", Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & dokument.aPath))
+                            oSqlCommand = oSqlCommand.Replace("[DOCPath]", Path.GetDirectoryName(My.Settings.vWLaufwerk & ":" & pMyWMDoc.aPath))
                         End If
                         If oSqlCommand.Contains("[%DATENow]") Then
                             oSqlCommand = oSqlCommand.Replace("[%DATENow]", Now.ToShortDateString)
                         End If
-                        If oSqlCommand.Contains("[%DOCFULLPATH]") Then
+                        If oSqlCommand.Contains("[DOCFULLPATH]") Then
-                            oSqlCommand = oSqlCommand.Replace("[%DOCFULLPATH]", My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
+                            oSqlCommand = oSqlCommand.Replace("[DOCFULLPATH]", My.Settings.MRWD_Laufwerk & ":" & pMyWMDoc.aPath)
                         End If
                         _Logger.Debug($"oSqlCommand after Replace 1([{oSqlCommand}])")
                         ' einen Regulären Ausdruck laden
@@ -1001,7 +1024,7 @@ Public Class frmNIHauptseite
                                 _Logger.Debug("### Working on Index(" & idxName_ohneSonderzeichen & ")...###")
                                 Try
                                     ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
-                                    IndexwertAusWindream = dokument.GetVariableValue(idxName_ohneSonderzeichen)
+                                    IndexwertAusWindream = pMyWMDoc.GetVariableValue(idxName_ohneSonderzeichen)
                                     If element.ToString = aktivesProfil.Desk_windreamIndex Then
                                         eindeutigerWertausWindream = IndexwertAusWindream
                                     End If
@@ -1012,16 +1035,13 @@ Public Class frmNIHauptseite
                                     result &= vbNewLine & "   - Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "'"
                                     oUnexpectedError = True
                                     fehlermsg &= vbNewLine & "Schwerwiegender Fehler bei Auslesen des einschränkenden Wertes aus Index':" & idxName_ohneSonderzeichen & "' - Fehler: " & ex.Message
-                                    If My.Settings.vNIMailsenden = True Then
-                                        email.Send_EMail("Beim Indexieren der Datei " & dokument.aName.ToString & " ist ein Fehler aufgetreten (GetVariableValue bei Auslesen des einschränkenden Wertes): " & ex.Message)
-                                    End If
                                 End Try
 
                                 ' wenn beim Auslesen des Wertes für den aktuellen windream-Index kein Fehler auftrat
                                 ' und die Abfrage ein Ergebnis zurück gab
                                 If IndexwertAusWindream Is Nothing And Not oUnexpectedError Then
                                     ' IndexwertAusWindream ist Nothing (idxName_ohneSonderzeichen)
-                                    _Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' ist EMPTY oder NOTHING")
+                                    _Logger.Warn("ACHTUNG: der einschränkende Wert aus Windream für Index '" & idxName_ohneSonderzeichen & "' is NOTHING")
                                     _Logger.Warn("SQL-String bisher: " & oSqlCommand)
                                     ' wenn die Abfrage in windream kein Ergebnis gab, muss das error_in_Indexierungflag gesetzt werden
                                     oUnexpectedError = True
@@ -1128,7 +1148,7 @@ Public Class frmNIHauptseite
                                                 oResultNachindexierung = database.GetValueFromOracleDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
                                             ElseIf Me.aktivesProfil.DbArt = "MS-SQL" Then
                                                 _Logger.Debug($"Executing MSSQL ...")
-                                                oResultNachindexierung = database.GetValueFromMssqlDb(dokument.aName, aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
+                                                oResultNachindexierung = database.GetValueFromMssqlDb(pMyWMDoc.aName, aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, MyDataset, aktivesProfil.InitialCatalog, INDEX_SQL_BEFEHL.Index, Quelle_is_vektor)
                                             ElseIf Me.aktivesProfil.DbArt = "ODBC" Then
                                                 oResultNachindexierung = database.GetValueFromOdbcDb(aktivesProfil.Profilname, selectArray(i), Me.aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password, INDEX_SQL_BEFEHL.Index)
                                                 ' MsgBox(oResultNachindexierung)
@@ -1140,14 +1160,14 @@ Public Class frmNIHauptseite
                                         Next
                                     Case "xml"
                                         '#### Indexierung über xml-Dokument
-                                        Dim dok As String = System.IO.Path.GetFileNameWithoutExtension(dokument.aPath)
+                                        Dim dok As String = System.IO.Path.GetFileNameWithoutExtension(pMyWMDoc.aPath)
                                         'Indexierung über luratech-Ergebnis Files
                                         If aktivesProfil.xmlEnd = "xffres" Then
                                             _Logger.Debug("Indexierung über XML-Dokument Abby/Luratech")
                                             'Dateipfad für xffres/xml-Datei zusammenbauen
                                             If File.Exists(_pathxmlfile) Then
                                                 'Übergabe der                               Dateiparameter und des                                                                              xml-Knotens
-                                                oResultNachindexierung = Trim(xml.GetValueFromLuratechxml(System.IO.Path.GetFileNameWithoutExtension(dokument.aPath) & "." & aktivesProfil.xmlEnd, _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname))
+                                                oResultNachindexierung = Trim(xml.GetValueFromLuratechxml(System.IO.Path.GetFileNameWithoutExtension(pMyWMDoc.aPath) & "." & aktivesProfil.xmlEnd, _pathxmlfile, INDEX_SQL_BEFEHL.Spalte, aktivesProfil.Profilname))
                                                 'wert aus Luratech darf nicht leer sein
                                                 If oResultNachindexierung Is Nothing Then
                                                     File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
@@ -1195,7 +1215,7 @@ Public Class frmNIHauptseite
                                                 _dokxml = _windreamNI.oWMSession.GetWMObjectByPath(ConstWMEntityDocument, _pathxmlfile.Substring(2))
                                                 'Überprüfen ob deskriptiver Wert eindeutig?
                                                 _Logger.Debug("Überprüfung ob deskriptiver Wert eindeutig?")
-                                                Dim Check As Integer = Check_DeskIndexValue(oResultNachindexierung, aktivesProfil.checkIndexsql, dokument)
+                                                Dim Check As Integer = Check_DeskIndexValue(oResultNachindexierung, aktivesProfil.checkIndexsql, pMyWMDoc)
                                                 Select Case Check
                                                     Case 0
                                                         'Kein Ergebnis für den Deskriptiven Index also Kennzeichnen des Dokumentes über den Index der das Dokument für die Validierung kennzeichnet
@@ -1214,7 +1234,7 @@ Public Class frmNIHauptseite
                                                             ReDim Preserve arrValue(0)
                                                             arrIndex(0) = INDEX_SQL_BEFEHL.Index
                                                             arrValue(0) = oResultNachindexierung.ToString
-                                                            Me._windreamNI.RunIndexing(dokument, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
+                                                            Me._windreamNI.RunIndexing(pMyWMDoc, arrIndex, arrValue, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
                                                             _Logger.Debug("Der falsche OCR-Wert: '" & oResultNachindexierung.ToString & "' wurde eingetragen")
                                                         Else
                                                             fehlermsg &= vbNewLine & " - Der deskriptive Indexwert " & oResultNachindexierung & " verweist auf keinen Eintrag in der Datenbank!"
@@ -1375,7 +1395,7 @@ Public Class frmNIHauptseite
                     '###############################################################################################
                     '#### Nachindexierung ##########################################################################
                     Dim sw As New ClassStopwatch("RunIndexing_Case1")
-                    oUnexpectedError = Me._windreamNI.RunIndexing(dokument, myNIArrayIndexe, myNIArrayValues, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
+                    oUnexpectedError = Me._windreamNI.RunIndexing(pMyWMDoc, myNIArrayIndexe, myNIArrayValues, MyDataset, aktivesProfil.Profilname, aktivesProfil.DokumenttypString)
                     Dim msg = sw.Done
                     If msg <> "" Then
                         Stopwatch1 = $"{msg}"
@@ -1388,7 +1408,7 @@ Public Class frmNIHauptseite
                     'Wenn ein SQL-Ergebnis im Durchlauf einen Wert lieferte wird der finale Index auf True gesetzt
                     If myNIArrayValues Is Nothing = False And Not oUnexpectedError Then
                         If Me.aktivesProfil.finalerIndex <> "" And Not oUnexpectedError And myNIArrayValues.Length >= 1 And myNIArrayValues(0) <> "" Then
-                            Me._windreamNI.SetfinalIndex(dokument, Me.aktivesProfil.finalerIndex, True)
+                            Me._windreamNI.SetfinalIndex(pMyWMDoc, Me.aktivesProfil.finalerIndex, True)
                         End If
                         '###### Spezifisches SQL nach jeder Datei!
                         If Me.aktivesProfil.SQL_Anweisung IsNot Nothing And Not oUnexpectedError And myNIArrayValues.Length >= 1 And myNIArrayValues(0) <> "" Then
@@ -1418,7 +1438,7 @@ Public Class frmNIHauptseite
                                     If elementOhneSonderzeichen.StartsWith("ddv") Then
                                         Dim ddvariable As String = ""
                                         elementOhneSonderzeichen = elementOhneSonderzeichen.Replace("ddv", "")
-                                        Dim filepath = My.Settings.vWLaufwerk & ":" & dokument.aPath
+                                        Dim filepath = My.Settings.vWLaufwerk & ":" & pMyWMDoc.aPath
                                         Select Case elementOhneSonderzeichen
                                             Case "FULLFILENAME"
                                                 ddvariable = filepath
@@ -1430,7 +1450,7 @@ Public Class frmNIHauptseite
                                     Else
                                         Try
                                             ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
-                                            IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen)
+                                            IndexwertAusWindream = pMyWMDoc.GetVariableValue(elementOhneSonderzeichen)
                                         Catch ex As Exception
                                             ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
                                             oUnexpectedError = True
@@ -1440,9 +1460,6 @@ Public Class frmNIHauptseite
                                         oVBScriptCommand = oVBScriptCommand.Replace(element.Value, IndexwertAusWindream.ToString)
                                     End If
 
-
-                                    'database.ExecuteonOracleDb(Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
-                                    'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName)
                                 Next
 
                                 _Logger.Debug("VBSCRIPTCOMMAND after replacing variables [" & oVBScriptCommand & "]")
@@ -1537,7 +1554,7 @@ Public Class frmNIHauptseite
 
 
                                     Else
-                                            _Logger.Warn($"VBSCRIPT not File.exists: {oVBScriptFile}")
+                                        _Logger.Warn($"VBSCRIPT not File.exists: {oVBScriptFile}")
                                     End If
 
 
@@ -1601,7 +1618,7 @@ Public Class frmNIHauptseite
                                         elementOhneSonderzeichen = elementOhneSonderzeichen.Replace("]", "")
                                         Try
                                             ' den Wert des deskriptiven Indexes für das aktuelle Dokument auslesen
-                                            IndexwertAusWindream = dokument.GetVariableValue(elementOhneSonderzeichen)
+                                            IndexwertAusWindream = pMyWMDoc.GetVariableValue(elementOhneSonderzeichen)
                                         Catch ex As Exception
                                             ' wenn ein Fehler aufgetreten ist, muss das Flag gesetzt werden
                                             oUnexpectedError = True
@@ -1614,8 +1631,7 @@ Public Class frmNIHauptseite
                                         'Wenn Speicherort gespeichert werden soll wird Platzhalter ersetzt!
                                         Sqlcommand = Sqlcommand.Replace("vSpeicherort", "'" & My.Settings.vWLaufwerk & ":" & Me.aktivesDokument.aPath & "'")
                                         _Logger.Debug("SQL-Command: " & Sqlcommand)
-                                        'database.ExecuteonOracleDb(Sqlcommand, aktivesProfil.DataSource, aktivesProfil.UserId, aktivesProfil.Password)
+
-                                        'MsgBox(Me.aktivesDokument.aPath & vbNewLine & vbNewLine & Me.aktivesDokument.aName)
                                     Next
                                     If Me.aktivesProfil.DbArt = "Oracle" Then
                                         If database.ExecuteonOracleDb(aktivesProfil.Profilname, Sqlcommand, aktivesProfil.DataSource, aktivesProfil.InitialCatalog, aktivesProfil.UserId, aktivesProfil.Password) = 1 Then
@@ -1652,7 +1668,7 @@ Public Class frmNIHauptseite
                             Dim valid As Boolean
                             Try
                                 'Überprüfen ob Validierung auf False steht?
-                                valid = dokument.GetVariableValue(aktivesProfil.IndexValidation) '_windreamNI.GetValueforIndex(dokument.aPath & dokument.aName, aktivesProfil.vSQL_Anweisung)
+                                valid = pMyWMDoc.GetVariableValue(aktivesProfil.IndexValidation) '_windreamNI.GetValueforIndex(dokument.aPath & dokument.aName, aktivesProfil.vSQL_Anweisung)
                             Catch ex As Exception
                                 _Logger.Warn("Schwerwiegender Fehler bei Auslesen des Validierungswertes:" & ex.Message)
                             End Try
@@ -1676,7 +1692,7 @@ Public Class frmNIHauptseite
                                     File_SetBooleanIndex(True, aktivesDokument, aktivesProfil.IndexValidation)
                                     'Fehlermarkierung setzen
 
-                                    _Logger.Debug("Indexierung der xffres-Datei '" & System.IO.Path.GetFileNameWithoutExtension(dokument.aName) & "." & aktivesProfil.xmlEnd & "' - für die Validierung kennzeichnen")
+                                    _Logger.Debug("Indexierung der xffres-Datei '" & System.IO.Path.GetFileNameWithoutExtension(pMyWMDoc.aName) & "." & aktivesProfil.xmlEnd & "' - für die Validierung kennzeichnen")
                                     'Nun die xffres Datei indexieren
                                     Dim _dokxml As WINDREAMLib.WMObject
                                     _dokxml = Nothing
@@ -1701,7 +1717,7 @@ Public Class frmNIHauptseite
                             'MsgBox("Fehler" & vbNewLine & _MRKONVERT_FEHLER & vbNewLine & aktivesProfil.vSQL_Anweisung)
                             Select Case _MRKONVERT_FEHLER
                                 Case 1
-                                    Dim valid As Boolean = dokument.GetVariableValue(aktivesProfil.IndexValidation) '_windreamNI.GetValueforIndex(dokument.aPath & dokument.aName, aktivesProfil.vSQL_Anweisung)
+                                    Dim valid As Boolean = pMyWMDoc.GetVariableValue(aktivesProfil.IndexValidation) '_windreamNI.GetValueforIndex(dokument.aPath & dokument.aName, aktivesProfil.vSQL_Anweisung)
                                     If valid = True Then
                                         _Logger.Info("Konvertierungsfehler bei Nachindexierung xml - Index '" & aktivesProfil.IndexValidation & "' für Validierung bereits auf True gesetzt")
                                     Else
@@ -1728,11 +1744,9 @@ Public Class frmNIHauptseite
                 End If
             Else
                 If unvollstaendig = False And Me.aktivesProfil.Ni_Art.ToLower <> "fulltext" Then
-                    _Logger.Warn("Fehler bei IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString)
+                    _Logger.Warn("Fehler bei IndexiereVerarbeiteDokument für die Datei: " & pMyWMDoc.aName.ToString)
                     _Logger.Warn("Fehlermeldung: " & fehlermsg)
-                    If My.Settings.vNIMailsenden = True Then
+
-                        email.Send_EMail("Fehler in IndexiereVerarbeiteDokument für die Datei: " & dokument.aName.ToString & "<br> Profilname: " & aktivesProfil.Profilname & " <br> Fehlermeldung: " & fehlermsg)
-                    End If
                 End If
             End If
             '#### Ende Nachindexierung
@@ -1746,7 +1760,7 @@ Public Class frmNIHauptseite
             'Move and Rename ausführen
             If LICENSE_MoveRename = True And Not oUnexpectedError And unvollstaendig = False Then
                 Dim swMoveandrename As New ClassStopwatch("MoveandRename")
-                oUnexpectedError = FNMoveRename(dokument)
+                oUnexpectedError = FNMoveRename(pMyWMDoc)
 
                 Dim msg1 = swMoveandrename.Done
                 If msg1 <> "" Then
@@ -1770,7 +1784,7 @@ Public Class frmNIHauptseite
                 'Die Objekttypindizes laden
                 Dim Dindexe = _windream.GetIndicesByObjecttype(Me.aktivesProfil.DokumenttypString, False, "NI")
                 If IsArray(Oindexe) And IsArray(Dindexe) Then
-                    OrdnerIndizes_zuweisen(dokument)
+                    OrdnerIndizes_zuweisen(pMyWMDoc)
                 Else
                     _Logger.Debug("IsArray(Oindexe) = False")
                 End If
@@ -1784,7 +1798,8 @@ Public Class frmNIHauptseite
                 If oUnexpectedError = False And unvollstaendig = False Then
                     Dim sw As New ClassStopwatch("Move2Folder")
                     _Logger.Debug("Move 2 Folder ist aktiviert")
-                    Dim err As Boolean = Move2Folder(Me.aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & dokument.aPath)
+                    Dim oDescriptiveIndexValue = pMyWMDoc.GetVariableValue(aktivesProfil.Desk_windreamIndex)
+                    Dim err As Boolean = Move2Folder(aktivesDokument.aName, My.Settings.MRWD_Laufwerk & ":" & pMyWMDoc.aPath.ToString, oDescriptiveIndexValue.ToString)
                     Dim msg = sw.Done
                     If msg <> "" Then
                         Stopwatch1 += vbNewLine & $"{msg}"
@@ -1801,15 +1816,14 @@ Public Class frmNIHauptseite
             If oUnexpectedError = False And aktivesProfil.CrFolderIndex <> "" And unvollstaendig = False Then
                 Dim docpath As String
                 If moved_Folder = "" Then
-                    docpath = My.Settings.MRWD_Laufwerk & ":" & dokument.aPath
+                    docpath = My.Settings.MRWD_Laufwerk & ":" & pMyWMDoc.aPath
                 Else
                     docpath = moved_Folder
                 End If
-                Dim err As Boolean = CrFolderForIndex(docpath)
+                Dim oMyDocumentName = pMyWMDoc.aName
+                Dim err As Boolean = CrFolderForIndex(docpath, oMyDocumentName)
                 If err = True Then
-                    If My.Settings.vNIMailsenden = True Then
+
-                        email.Send_EMail("Fehler bei Create Folder for Index bei der Datei: '" & dokument.aName.ToString & "'<br> Fehler: Die Datei wurde indexiert aber der Ordner konnte nicht erstellt werden!")
-                    End If
                 End If
             Else
                 aktivesProfil.CrFolder_Created_Folder = ""
@@ -1819,7 +1833,7 @@ Public Class frmNIHauptseite
             If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
                 _Logger.Debug("Nachbearbeitung AD ist aktiviert")
                 Dim sw As New ClassStopwatch("AD-Rework")
-                Nachbearbeitung_AD(dokument)
+                Nachbearbeitung_AD(pMyWMDoc)
                 Dim msg = sw.Done
                 If msg <> "" Then
                     Stopwatch1 += vbNewLine & $"{msg}"
@@ -1836,7 +1850,7 @@ Public Class frmNIHauptseite
                     aktivesDokument.unlock()
                 End If
             Catch ex As Exception
-                _Logger.Warn("Unexpected error in final Unlocking: " & ex.Message)
+                _Logger.Info("### Unexpected error in final Unlocking: " & ex.Message)
             End Try
             swMessage = swWorkDocument_All.Done
             If swMessage <> "" Then
@@ -1846,9 +1860,6 @@ Public Class frmNIHauptseite
         Catch ex As Exception
             _Logger.Error(ex)
             _Logger.Warn($"oResultNachindexierung so far: {oResultNachindexierung.ToString}")
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Schwerwiegender Fehler bei IndexiereVerarbeiteDokument - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
-            End If
         End Try
     End Sub
     Private Function FolderForIndex(oDynamicFolder As String, myWMDocument As WMObject) As String
@@ -1955,18 +1966,20 @@ Public Class frmNIHauptseite
         Try
             Dim oReturnString As String
             Dim oActWMPath As String = "\\windream\objects" & myWMDocument.aPath
+
             Dim oExtension As String = System.IO.Path.GetExtension(oActWMPath)
-            TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString
+            Dim oSQL = $"SELECT * FROM TBTC_MOVE_RENAME WHERE PROFILE_NAME = '{aktivesProfil.Profilname}'"
-            Me.TBTC_MOVE_RENAMETableAdapter.Fill(Me.MyDataset.TBTC_MOVE_RENAME, aktivesProfil.Profilname)
+            Dim oDT_TBTC_MOVE_RENAME As DataTable = DB_ECM.GetDatatable(oSQL)
+
             Dim oVERSIONOFF As Boolean
-            If MyDataset.TBTC_MOVE_RENAME.Rows.Count = 1 Then
+            If oDT_TBTC_MOVE_RENAME.Rows.Count = 1 Then
-                _Logger.Debug($"Found a Move and Rename Definition: [{MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX")}]")
+                _Logger.Debug($"Found a Move and Rename Definition: [{oDT_TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX")}]")
-                oVERSIONOFF = MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("VERSION_OFF")
+                oVERSIONOFF = oDT_TBTC_MOVE_RENAME.Rows(0).Item("VERSION_OFF")
                 Dim oTargetpath As String
                 'Regulären Ausdruck zum Auslesen der Indexe definieren
                 Dim oPRegex As String = "\[%{1}[a-zA-Z0-9ß\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
-                If MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX") <> "" Then
+                If oDT_TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX") <> "" Then
-                    oTargetpath = MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX")
+                    oTargetpath = oDT_TBTC_MOVE_RENAME.Rows(0).Item("FOLDER_FOR_INDEX")
                     oTargetpath = FolderForIndex(oTargetpath, myWMDocument)
                 Else
                     oTargetpath = Path.GetDirectoryName(oActWMPath)
@@ -1976,28 +1989,30 @@ Public Class frmNIHauptseite
                 End If
 
                 'schonmal den gesamten Pfad laden
-                Dim oNamenkonvention As String = oTargetpath & "\" & MyDataset.TBTC_MOVE_RENAME.Rows(0).Item("NAMECONVENTION") & oExtension
+                Dim oNamenkonvention As String = oTargetpath & "\" & oDT_TBTC_MOVE_RENAME.Rows(0).Item("NAMECONVENTION") & oExtension
                 ' einen Regulären Ausdruck laden
                 Dim oRegularExpression As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(oPRegex)
                 ' die Vorkommen im SQL-String auslesen
                 Dim oMatchelements As System.Text.RegularExpressions.MatchCollection = oRegularExpression.Matches(oNamenkonvention)
                 '####
                 If oMatchelements.Count = 0 Then
-                    _Logger.Info("No RegularExpression Fileds in Nameconvention!", False)
+                    _Logger.Info("No RegularExpression fields in nameconvention!", False)
                 End If
                 ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
                 For Each oElement As System.Text.RegularExpressions.Match In oMatchelements
                     Select Case oElement.Value.Substring(2, 1)
                     'Manueller Indexwert
                         Case "m"
-                            _Logger.Debug("Index will be checked...")
+
                             Dim oWMIndexname = oElement.Value.Substring(3, oElement.Value.Length - 4)
+                            _Logger.Debug($"FNMoveRename: Index {oWMIndexname} will be checked...")
                             Dim oWMIndexValue As String = myWMDocument.GetVariableValue(oWMIndexname)
+
                             If oWMIndexValue <> String.Empty Then
 
                                 Dim oClearedContent As String = String.Join("", oWMIndexValue.Split(Path.GetInvalidFileNameChars()))
                                 If oClearedContent <> oWMIndexValue Then
-                                    _Logger.Info($"Cleaned the WMContent with GetInvalidFileNameChars from [{oWMIndexValue}] to [{oClearedContent}]")
+                                    _Logger.Debug($"Cleaned the WMContent with GetInvalidFileNameChars from [{oWMIndexValue}] to [{oClearedContent}]")
                                     oWMIndexValue = oClearedContent
                                 End If
                                 Dim firstVectorValue = oWMIndexValue.Split("~").First()
@@ -2090,7 +2105,7 @@ Public Class frmNIHauptseite
                 Next
                 oReturnString = oNamenkonvention
             Else
-                If MyDataset.TBTC_MOVE_RENAME.Rows.Count = 0 Then
+                If oDT_TBTC_MOVE_RENAME.Rows.Count = 0 Then
                     Return False
                 Else
                     oReturnString = oActWMPath
@@ -2122,7 +2137,7 @@ Public Class frmNIHauptseite
 
                 If File.Exists(oNewPathFilename) Then
                     Try
-                        _Logger.Info("MOVERENAME-VERSIONING is OFF - Deleting existing file...")
+                        _Logger.Debug("MOVERENAME-VERSIONING is OFF - Deleting existing file...")
                         File.Delete(oNewPathFilename)
                     Catch ex As Exception
                         _Logger.Warn($"Could Not delete file As VERSIONOFF Is True [{ex.Message}]")
@@ -2141,9 +2156,14 @@ Public Class frmNIHauptseite
                     oReturnString = oNewPathFilename
                 End If
             End If
+            Dim oFilename = myWMDocument.aName
+            If myWMDocument.aLocked Then
+                _Logger.Debug("Document still is locked...now unlocking...")
+                myWMDocument.unlock()
+            End If
 
-
+            myWMDocument = Nothing
-            If _windreamNI.NEW_MOVE_FILE(oReturnString, oActWMPath, "MO_RE") = True Then
+            If _windreamNI.NEW_MOVE_FILE(oReturnString, oActWMPath, "MO_RE", oFilename) = True Then
                 Return False
             Else
                 Return True
@@ -2283,6 +2303,7 @@ Public Class frmNIHauptseite
             Dim ErgebnisArray As String()
             Dim counter As Integer = 0
             Dim Erfolgreich As Boolean = True
+            _Logger.Debug("working Volltext_indexer...")
             ' alle Regex-Links des Profils durchlaufen
             For Each Fulltext_Indexierung As ClassNIVerknüpfung In Me.aktivesProfil.Verknüpfungen.Links
                 If Erfolgreich = True Then
@@ -2526,9 +2547,6 @@ Public Class frmNIHauptseite
                 _Logger.Error(ex)
 
             End If
-            If My.Settings.vNIMailsenden = True Then
-                email.Send_EMail("Schwerwiegender Fehler bei SetErrorMeldung - <br> Profil: " & aktivesProfil.Profilname & "<br> Datei: " & dokument.aName.ToString & "<br> Fehler: " & ex.Message)
-            End If
         End Try
     End Sub
     Private Function IsNotEmpty(ByVal aValue As Object)
@@ -2651,40 +2669,16 @@ Public Class frmNIHauptseite
 
         End Try
     End Function
-    Private Sub chkbEmail_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbEmail.CheckedChanged
-        Try
-            If chkbEmail.Checked = True Then
-                Me.gbEmail.Enabled = True
-            Else
-                Me.gbEmail.Enabled = False
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei chkbEmail_CheckedChanged:")
-        End Try
 
-    End Sub
-    Private Sub btntestmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntestmail.Click
-        Try
-            My.Settings.Save()
-            If Me.txtBetreff.Text = "" Or Me.txtEmpfaenger.Text = "" Or Me.txtMail_from.Text = "" Or Me.txtUser.Text = "" Or Me.txtPasswort.Text = "" Or
-            Me.txtSMTP.Text = "" Then
-                MsgBox("Bitte achten sie darauf alle Konfigurationsfelder für die Fehler-Email auszufüllen!", MsgBoxStyle.Critical, "Fehlende Eingaben:")
-            Else
-                email.Send_EMail("TEST-EMAIL", True) '  Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & My.Computer.Clock.LocalTime.ToLongTimeString
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei btntestmail.Click:")
-        End Try
 
-    End Sub
 
     Private Sub tcMain_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tcmain.SelectedIndexChanged
         Select Case tcmain.SelectedIndex
             Case 0
-                My.Settings.vemailPort = Me.txtPort.Text
+
                 My.Settings.Save()
             Case 1
-                Me.txtPort.Text = My.Settings.vemailPort
+
         End Select
     End Sub
     Sub Start_NachindexierungThreads()
@@ -2838,20 +2832,6 @@ Public Class frmNIHauptseite
         manuallyRun = False
     End Sub
 
-    Private Sub TextBoxen_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
- _
-        txtUser.LostFocus, txtSMTP.LostFocus, txtPasswort.LostFocus,
-        txtMail_from.LostFocus, txtEmpfaenger.LostFocus, txtBody.LostFocus, txtBetreff.LostFocus
-        CType(sender, TextBox).BackColor = Color.White
-        My.Settings.Save()
-    End Sub
-    Private Sub TextBoxen_gotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
- _
-    txtUser.GotFocus, txtSMTP.GotFocus, txtPasswort.GotFocus,
-    txtMail_from.GotFocus, txtEmpfaenger.GotFocus, txtBody.GotFocus, txtBetreff.GotFocus
-        CType(sender, TextBox).BackColor = Color.Lime
-    End Sub
-
     'Private Function MRGetValuesFromFile(ByVal vDatei As String, ByVal vIndexnameDA As String, ByVal vIndexnameKD As String, ByVal vindexnameDesIndex As String)
     '    Try
     '        _MRKundenKennzeichen = ""
@@ -2986,7 +2966,7 @@ Public Class frmNIHauptseite
     '        Return False
     '    End Try
     'End Function
-    Private Function Move2Folder(ByVal vDateiName As String, ByVal vFilestring As String)
+    Private Function Move2Folder(ByVal vDateiName As String, ByVal vFilestring As String, pFileName As String)
         Try
             _Logger.Debug("Move2Folder gestartet")
             Dim extension As String = Path.GetExtension(vDateiName)
@@ -3001,7 +2981,8 @@ Public Class frmNIHauptseite
                 _Ziel = neuername
                 version = version + 1
             Loop
-            If _windreamNI.NEW_MOVE_FILE(_Ziel, vFilestring, "Move2Folder") = True Then
+
+            If _windreamNI.NEW_MOVE_FILE(_Ziel, vFilestring, "Move2Folder", pFileName) = True Then
                 If clsHelper.file_exists(vFilestring, "NI") = True Then
                     _Logger.Info("Datei existiert trotz Move noch am ursprünglichen Ort noch....wird gelöscht wenn an Ziel existiert....", False)
                     If clsHelper.file_exists(_Ziel, "NI") = True Then
@@ -3019,7 +3000,7 @@ Public Class frmNIHauptseite
     End Function
 
 
-    Private Function CrFolderForIndex(ByVal fullfilename As String)
+    Private Function CrFolderForIndex(fullfilename As String, pFileName As String)
 
         Try
             fullfilename = fullfilename.Replace("W:\", "\\windream\objects\")
@@ -3150,7 +3131,7 @@ Public Class frmNIHauptseite
                             oWM_Target = neuername
                         Loop
 
-                        _windreamNI.NEW_MOVE_FILE(oWM_Target, fullfilename, "FolderForIndex")
+                        _windreamNI.NEW_MOVE_FILE(oWM_Target, fullfilename, "FolderForIndex", pFileName)
                     Else
                         _Logger.Info("(CrFolderForIndex) Quell- und Zielordner identisch")
                         If Path.GetFileName(fullfilename) <> Path.GetFileName(oWM_Target) And File.Exists(oWM_Target) Then

ToolCollection/frmNIProfileigenschaften.Designer.vb

@@ -111,7 +111,7 @@ Partial Class frmNIProfileigenschaften
         Me.chkbxAD = New System.Windows.Forms.CheckBox()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
         Me.grpbxMORE = New System.Windows.Forms.GroupBox()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnMoveRename = New System.Windows.Forms.Button()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
         Me.Label25 = New System.Windows.Forms.Label()
@@ -1000,7 +1000,7 @@ Partial Class frmNIProfileigenschaften
         '
         'grpbxMORE
         '
-        Me.grpbxMORE.Controls.Add(Me.Button1)
+        Me.grpbxMORE.Controls.Add(Me.btnMoveRename)
         Me.grpbxMORE.Controls.Add(Me.Label21)
         Me.grpbxMORE.Enabled = False
         Me.grpbxMORE.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1011,14 +1011,14 @@ Partial Class frmNIProfileigenschaften
         Me.grpbxMORE.TabStop = False
         Me.grpbxMORE.Text = "Move and Rename"
         '
-        'Button1
+        'btnMoveRename
         '
-        Me.Button1.Location = New System.Drawing.Point(9, 57)
+        Me.btnMoveRename.Location = New System.Drawing.Point(9, 57)
-        Me.Button1.Name = "Button1"
+        Me.btnMoveRename.Name = "btnMoveRename"
-        Me.Button1.Size = New System.Drawing.Size(460, 23)
+        Me.btnMoveRename.Size = New System.Drawing.Size(460, 23)
-        Me.Button1.TabIndex = 1
+        Me.btnMoveRename.TabIndex = 1
-        Me.Button1.Text = "Öffne Move and Rename Konfiguration"
+        Me.btnMoveRename.Text = "Öffne Move and Rename Konfiguration"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnMoveRename.UseVisualStyleBackColor = True
         '
         'Label21
         '
@@ -1606,5 +1606,5 @@ Partial Class frmNIProfileigenschaften
     Friend WithEvents cmbCrFolderDate As System.Windows.Forms.ComboBox
     Friend WithEvents Label20 As System.Windows.Forms.Label
     Friend WithEvents Label25 As System.Windows.Forms.Label
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btnMoveRename As Button
 End Class

ToolCollection/frmNIProfileigenschaften.resx

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAZABAAGQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAZgBAAGYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmNIProfileigenschaften.vb

@@ -1442,7 +1442,7 @@ Public Class frmNIProfileigenschaften
 
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnMoveRename.Click
         If CURRENT_PROFILENAME = "" Then
             MsgBox("Please choose a Profile!", MsgBoxStyle.Exclamation)
             Exit Sub

ToolCollection/frmNIVerknuepfungen.vb

@@ -2830,6 +2830,7 @@ Public Class frmNIVerknuepfungen
     Dim Index As Integer
     Private Function Volltext_indexer(_regexpr As String, fulltext As String, Pos_From As Integer, Pos_To As Integer, ignwhitespace As Boolean)
         Try
+
             ' MsgBox(fulltext)
             fulltext = fulltext.Replace(vbCrLf, "")
             Index = 0

ToolCollection/frmNI_SQLTest.Designer.vb

@@ -186,7 +186,7 @@ Partial Class frmNI_SQLTest
         Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNI_SQL_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Location = Global.ToolCollection.My.MySettings.Default.frmNI_SQL_Loc
+
         Me.Name = "frmNI_SQLTest"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "Test-Ergebnis der Nachindexierungverknüpfung"

ToolCollection/frmStart.Designer.vb

@@ -28,6 +28,7 @@ Partial Class frmStart
         Me.Status_Machine = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.ToolStripStatusLabel_LogDeleteTime = New System.Windows.Forms.ToolStripStatusLabel()
         Me.menHauptmenü = New System.Windows.Forms.MenuStrip()
         Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÜbersichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -61,6 +62,7 @@ Partial Class frmStart
         Me.EinblendenAusblendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
         Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
+        Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
         Me.StatusStrip1.SuspendLayout()
         Me.menHauptmenü.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -73,8 +75,8 @@ Partial Class frmStart
         '
         'StatusStrip1
         '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion})
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 708)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 613)
         Me.StatusStrip1.Name = "StatusStrip1"
         Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
         Me.StatusStrip1.ShowItemToolTips = True
@@ -91,7 +93,7 @@ Partial Class frmStart
         Me.Status_Machine.Image = CType(resources.GetObject("Status_Machine.Image"), System.Drawing.Image)
         Me.Status_Machine.Margin = New System.Windows.Forms.Padding(10, 3, 0, 2)
         Me.Status_Machine.Name = "Status_Machine"
-        Me.Status_Machine.Size = New System.Drawing.Size(140, 20)
+        Me.Status_Machine.Size = New System.Drawing.Size(139, 20)
         Me.Status_Machine.Text = "ToolStripStatusLabel1"
         Me.Status_Machine.ToolTipText = "Client-Name"
         '
@@ -102,7 +104,7 @@ Partial Class frmStart
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
         Me.ToolStripStatusLabel2.Image = CType(resources.GetObject("ToolStripStatusLabel2.Image"), System.Drawing.Image)
         Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
-        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(140, 20)
+        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(139, 20)
         Me.ToolStripStatusLabel2.Text = "ToolStripStatusLabel1"
         Me.ToolStripStatusLabel2.ToolTipText = "Aktueller Benutzer"
         '
@@ -112,10 +114,19 @@ Partial Class frmStart
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
         Me.tslblVersion.Name = "tslblVersion"
-        Me.tslblVersion.Size = New System.Drawing.Size(124, 20)
+        Me.tslblVersion.Size = New System.Drawing.Size(123, 20)
         Me.tslblVersion.Text = "ToolStripStatusLabel1"
         Me.tslblVersion.ToolTipText = "Aktueller Benutzer"
         '
+        'ToolStripStatusLabel_LogDeleteTime
+        '
+        Me.ToolStripStatusLabel_LogDeleteTime.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.ToolStripStatusLabel_LogDeleteTime.Name = "ToolStripStatusLabel_LogDeleteTime"
+        Me.ToolStripStatusLabel_LogDeleteTime.Size = New System.Drawing.Size(270, 20)
+        Me.ToolStripStatusLabel_LogDeleteTime.Text = "Zeitpunkt der automatischen Löschung von Logs"
+        '
         'menHauptmenü
         '
         Me.menHauptmenü.BackColor = System.Drawing.SystemColors.Control
@@ -232,7 +243,7 @@ Partial Class frmStart
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
         Me.Panel1.Location = New System.Drawing.Point(0, 24)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(163, 684)
+        Me.Panel1.Size = New System.Drawing.Size(163, 589)
         Me.Panel1.TabIndex = 10
         '
         'btnNachbearbeitungAD
@@ -436,11 +447,15 @@ Partial Class frmStart
         '
         Me.TimerErrorLog.Interval = 60000
         '
+        'TimerDeleteLogfiles
+        '
+        Me.TimerDeleteLogfiles.Interval = 1000
+        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1237, 733)
+        Me.ClientSize = New System.Drawing.Size(1237, 638)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.menHauptmenü)
@@ -501,4 +516,6 @@ Partial Class frmStart
     Friend WithEvents CriticalEmailTestToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ToolStripStatusLabel2 As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents TimerErrorLog As Timer
+    Friend WithEvents TimerDeleteLogfiles As Timer
+    Friend WithEvents ToolStripStatusLabel_LogDeleteTime As ToolStripStatusLabel
 End Class

ToolCollection/frmStart.resx

@@ -159,7 +159,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
-        FAAAAk1TRnQBSQFMAgEBCQEAATABAwEwAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        FAAAAk1TRnQBSQFMAgEBCQEAAVgBAwFYAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -643,6 +643,9 @@
   <metadata name="TimerErrorLog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>920, 17</value>
   </metadata>
+  <metadata name="TimerDeleteLogfiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1049, 17</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>102</value>
   </metadata>

ToolCollection/frmStart.vb

@@ -3,6 +3,7 @@ Imports System.Reflection
 Imports System.Globalization
 Imports DigitalData.Modules.Logging
 Imports System.IO
+Imports DigitalData.Modules.Database
 
 Public Class frmStart
     Private _MyLogger As LogConfig
@@ -20,53 +21,207 @@ Public Class frmStart
     '        Delete_LogFiles()
     '    End If
     'End Sub
+
+
+    ' CREATE INSTANCE
+    Private Shared _Instance As frmStart = Nothing
+
+    Public Shared Function Instance() As frmStart
+        If _Instance Is Nothing OrElse _Instance.IsDisposed Then
+            _Instance = New frmStart()
+        End If
+        Return _Instance
+    End Function
+
+    ' DELETE LOGS
     Private Sub Delete_LogFiles()
         Try
-            ' Dim vDate = DateAdd("d", -CInt(My.Settings.logolder_then), Now)
+            Dim directory As New DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
+            _Logger.Debug($"Dateipfad geholt: {directory}")
+            Dim oIntervall As Integer = 30
+            Integer.TryParse(frmGrundeinstellungen.TextBox4.Text, oIntervall)
+            _Logger.Debug($"Löschalter aus der Config geholt: {oIntervall}")
 
-            Try
+            For Each file As FileInfo In directory.GetFiles
-                Dim directory As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
+                _Logger.Debug($"Durchlaufe alle Dateien: {file.FullName}")
+                Try
+                    Dim oAgeOfFile As Integer = (Now - file.CreationTime).Days
+                    _Logger.Debug($"Alter der aktuellen Datei: {oAgeOfFile}")
+                    If oAgeOfFile >= oIntervall Then
+                        file.Delete()
+                        _Logger.Debug($"Lösche Datei, die älter ist als Löschalter: {file.FullName}")
+                    End If
+                Catch ex As Exception
+                    _Logger.Warn($"Could not delete file {file.Name}: {ex.Message}")
+                End Try
+            Next
 
-                For Each file As IO.FileInfo In directory.GetFiles
-                    If (Now - file.CreationTime).Days > 29 Then file.Delete()
-                Next
-            Catch ex As Exception
-
-            End Try
         Catch ex As Exception
             _Logger.Error(ex.Message)
         End Try
     End Sub
+
+    Public Sub SetupTimerDeleteLogfiles()
+        Try
+            Dim now As DateTime = DateTime.Now
+            Dim startTime As DateTime
+
+            ' Zeit aus den gespeicherten Settings lesen
+            Dim timeString As String = My.Settings.vDeleteLogsTime
+
+            If String.IsNullOrWhiteSpace(timeString) Then
+                timeString = "02:00"
+            End If
+
+            Dim dt As DateTime
+            If DateTime.TryParse(timeString, dt) Then
+                'If timeString Then
+                My.Settings.vDeleteLogsTime = timeString
+                My.Settings.Save()
+                startTime = New DateTime(now.Year, now.Month, now.Day, dt.Hour, dt.Minute, 0)
+                If now > startTime Then startTime = startTime.AddDays(1)
+            Else
+                _Logger.Warn($"Ungültiges Zeitformat '{timeString}', Standard 02:00 wird verwendet.")
+                startTime = New DateTime(now.Year, now.Month, now.Day, 2, 0, 0)
+                If now > startTime Then startTime = startTime.AddDays(1)
+            End If
+
+            Dim interval As TimeSpan = startTime - now
+            Dim intervalMs As Double = interval.TotalMilliseconds
+
+            ' Sicherheitscheck
+            If intervalMs < 1000 Then
+                intervalMs = 1000
+            End If
+            If intervalMs > Integer.MaxValue Then
+                intervalMs = Integer.MaxValue
+            End If
+
+            TimerDeleteLogfiles.Interval = CInt(intervalMs)
+
+            If My.Settings.vAutoDeleteLogs Then
+                TimerDeleteLogfiles.Start()
+                _Logger.Info($"TimerDeleteLogfiles startet in {interval.TotalMinutes:F1} Minuten (Zielzeit: {startTime:HH:mm}).")
+            Else
+                TimerDeleteLogfiles.Stop()
+                _Logger.Info("Automatische Log-Löschung deaktiviert, Timer gestoppt.")
+            End If
+
+        Catch ex As Exception
+            _Logger.Error("Fehler in SetupTimerDeleteLogfiles: " & ex.Message)
+        End Try
+    End Sub
+
+    Private Sub TimerDeleteLogfiles_Tick(sender As Object, e As EventArgs) Handles TimerDeleteLogfiles.Tick
+    Try
+        Delete_Logfiles()
+        ' Nächstes Intervall wieder 24h
+        TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
+    Catch ex As Exception
+        _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
+    End Try
+    End Sub
+
     Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie " & Application.ProductName & " wirklich schließen wollen?" & vbNewLine & "Alle Vorgänge/Module werden gestoppt und nicht mehr ausgeführt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
         If result = MsgBoxResult.No Then
             e.Cancel = True
         End If
     End Sub
+
     Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName,
-                                        My.Application.Info.ProductName)
-        _Logger = _MyLogger.GetLogger()
 
-        CURR_Logger = _Logger
+        _Instance = Me
-        CURR_LogConfig = _MyLogger
-        Delete_LogFiles()
-        'Aktueller Benutzer
-        Me.tslblVersion.Text = Environment.UserName.ToString
-        Me.Text = Application.CompanyName & "-" & Application.ProductName
-        Me.tslblVersion.Text = "Version: " & My.Application.Info.Version.ToString
-        'Aktuelle Machine
-        Me.Status_Machine.Text = My.Computer.Name
-        ' timUhrzeit.Start()
-        TimerErrorLog.Start()
 
-        If Not My.Settings.licensekey = "" Then
+        Try
-            ' Lizenz-Manager initialisieren
+            'Delete_LogFiles()
-            Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
+
+            _MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName,
+                                           My.Application.Info.ProductName)
+            _Logger = _MyLogger.GetLogger()
+            _MyLogger.Debug = Not My.Settings.vLogErrorsonly
+
+            CURR_Logger = _Logger
+            CURR_LogConfig = _MyLogger
+
+            SetupTimerDeleteLogfiles()
+
+            'Aktueller Benutzer
+            Me.tslblVersion.Text = Environment.UserName.ToString
+            Me.Text = Application.CompanyName & "-" & Application.ProductName
+            Me.tslblVersion.Text = "Version: " & My.Application.Info.Version.ToString
+            'Aktuelle Machine
+            Me.Status_Machine.Text = My.Computer.Name
+            'Zeitpunkt der automatischen Löschung von Logs
+            If My.Settings.vAutoDeleteLogs Then
+                Me.ToolStripStatusLabel_LogDeleteTime.Text = "Logs werden automatisch gelöscht um: " & My.Settings.vDeleteLogsTime.ToShortTimeString & " Uhr."
+            Else
+                Me.ToolStripStatusLabel_LogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
+            End If
+            ' timUhrzeit.Start()
+            TimerErrorLog.Start()
+
+            If My.Settings.WM_PERS_LOGIN <> String.Empty Then
+                Dim oSPLIT As String()
+                oSPLIT = My.Settings.WM_PERS_LOGIN.Split("#")
+                If oSPLIT.Length > 0 Then
+                    If oSPLIT(0) <> "@Domain" Then
+
+                        WMLOGIN_DOMAIN = oSPLIT(0)
+                        _Logger.Info($"WMLOGIN_DOMAIN: {WMLOGIN_DOMAIN}")
+                        WMLOGIN_USER = oSPLIT(1)
+                        _Logger.Info($"WMLOGIN_USER: {WMLOGIN_USER}")
+                        WMLOGIN_PW = oSPLIT(2)
+                    Else
+                        _Logger.Info($"No dedicated WMUser(1)")
+                    End If
+                End If
+
+
+            End If
+
+            If Not My.Settings.licensekey = "" Then
+                ' Lizenz-Manager initialisieren
+                Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
+
+                ' alle vorhandenen Module laden
+                Me.LoadAllModules()
+            End If
+
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
+        Try
+            If My.Settings.DDECMConString <> String.Empty Then
+                Dim oSPLIT As String()
+                oSPLIT = My.Settings.DDECMConString.Split(";")
+                Dim oServer As String
+                Dim oDB As String
+                Dim oUSer As String
+                Dim oPW As String
+                For Each oSplitPart As String In oSPLIT
+                    If oSplitPart.Contains("Data Source") Then
+                        oServer = oSplitPart.Replace("Data Source=", "")
+                    ElseIf oSplitPart.Contains("Initial Catalog") Then
+                        oDB = oSplitPart.Replace("Initial Catalog=", "")
+                    ElseIf oSplitPart.Contains("User ID") Then
+                        oUSer = oSplitPart.Replace("User ID=", "")
+                    ElseIf oSplitPart.Contains("Password") Then
+                        oPW = oSplitPart.Replace("Password=", "")
+                    End If
+                Next
+                DB_ECM = New MSSQLServer(_MyLogger, oServer, oDB, oUSer, oPW)
+                If DB_ECM.DBInitialized Then
+                    _Logger.Info("DB ECM SUCCESSFULLY INITIIALIZED")
+                Else
+                    _Logger.Warn("ATTENTION: DB DD_ECM NOT INITIIALIZED")
+                End If
+
+            End If
+        Catch ex As Exception
+            _Logger.Error(ex)
+        End Try
 
-            ' alle vorhandenen Module laden
-            Me.LoadAllModules()
-        End If
     End Sub
 
     Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
@@ -134,7 +289,7 @@ Public Class frmStart
                 Me.grbDI.Visible = True
                 Me.GBNachindexierung.Visible = True
                 Me.GroupBoxIntegration.Visible = True
-                'Me.grbxMoRe.Visible = True
+
                 btnNachbearbeitungAD.Visible = True
                 LICENSE_AD = True
                 LICENSE_MoveRename = True
@@ -150,11 +305,11 @@ Public Class frmStart
                 If Me.licenseManager.Licenses.machine.ToLower <> "all" Then
                     If Me.licenseManager.Licenses.machine.ToLower <> My.Computer.Name.ToLower Then
                         MsgBox("Ihre Lizenz gilt nicht für diese Maschine. " & vbNewLine & "Gelesener Computer Name: '" & My.Computer.Name & "'" & vbNewLine & "License Computer Name: '" & Me.licenseManager.Licenses.machine & "'" & vbNewLine &
-                               "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
+                                   "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
                         Me.grbDI.Visible = False
                         Me.GBNachindexierung.Visible = False
                         Me.GroupBoxIntegration.Visible = False
-                        Me.grbxMoRe.Visible = False
+
                         Exit Sub
                     End If
                 End If
@@ -219,10 +374,10 @@ Public Class frmStart
 
     Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         TimerNIRestart.Start()
-        If My.Settings.vDIDurchlaufRunning = True Then
+        If My.Settings.DI_RUNNING = True Then
             Open_DI_Main()
         End If
-        If My.Settings.NI_RUNNING = True Then
+        If NIDurchlaufRunning = True Then
             Open_NI_Main()
         End If
     End Sub
@@ -373,12 +528,6 @@ Public Class frmStart
         End If
     End Sub
 
-    Private Sub CriticalEmailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CriticalEmailTestToolStripMenuItem.Click
-        Cursor = Cursors.WaitCursor
-        ClassNIEmail.Send_Urgent("Dies ist eine Test-Email!", True)
-        Cursor = Cursors.Default
-    End Sub
-
     Private Sub TimerErrorLog_Tick(sender As Object, e As EventArgs) Handles TimerErrorLog.Tick
         If CURRENT_APPLICATION_LOG <> String.Empty Then
             Dim frm As New frmApplicationLog

ToolCollection/packages.config

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
   <package id="EntityFramework" version="6.0.2" targetFramework="net451" />
-  <package id="NLog" version="4.7.11" targetFramework="net461" />
+  <package id="NLog" version="5.0.2" targetFramework="net462" />
   <package id="System.Data.SQLite" version="1.0.91.3" targetFramework="net451" />
 </packages>