MS Mailhandling und Update Service

Service.exe 2.1

.gitignore

@@ -5,6 +5,7 @@
 *.suo
 *.user
 *.sln.docstates
+.vs
 
 # Build results
 
@@ -97,7 +98,7 @@ publish/
 
 # NuGet Packages Directory
 ## TODO: If you have NuGet Package Restore enabled, uncomment the next line
-#packages/
+packages/
 
 # Windows Azure Build Output
 csx

app/ClassWMResulthandler/DD_WMResulthandler.vbproj

@@ -10,7 +10,8 @@
     <AssemblyName>DD_WMResulthandler</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Windows</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <DebugSymbols>true</DebugSymbols>
@@ -43,11 +44,15 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DigitalData.Modules.Logging">
+    <Reference Include="DigitalData.Modules.Base">
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Email">
+    <Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
-      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Messaging">
+      <HintPath>..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -69,8 +74,8 @@
     <Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
       <HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
-    <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.5.8\lib\net45\NLog.dll</HintPath>
+      <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@@ -103,7 +108,6 @@
     <Compile Include="clsCURRENT.vb" />
     <Compile Include="clsDatabase.vb" />
     <Compile Include="clsDateiverarbeitung.vb" />
-    <Compile Include="clsEmail.vb" />
     <Compile Include="clsEncryption.vb" />
     <Compile Include="clsFileWork.vb" />
     <Compile Include="clsJob_Work.vb" />
@@ -115,6 +119,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -136,6 +141,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="app.config" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>

app/ClassWMResulthandler/ModCurrent.vb

@@ -3,5 +3,6 @@
     Public CURRENToWMConnect As Object
     Public CURRENToWMSession As Object
     Public CURRENT_WMDriveLetter As String = "W"
+    Public CURRENT_TempFiles As List(Of String)
 
 End Module

app/ClassWMResulthandler/My Project/AssemblyInfo.vb

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

app/ClassWMResulthandler/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()>  _

app/ClassWMResulthandler/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase

app/ClassWMResulthandler/app.config

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral"/>
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0"/>
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/></startup></configuration>

app/ClassWMResulthandler/clsCURRENT.vb

@@ -1,8 +1,9 @@
 Public Class clsCURRENT
     Public Shared EXPORTED_FILENAME As String
+    Public Shared FILE_Extension As String
     Public Shared WDLAUFWERK, _profObjekttyp, _profwdSuche, _profDay, _profRunType, _Profilname As String
     Public Shared SQLSERVER_CS As String = ""
-    Public Shared LOG_ERRORS_ONLY As Boolean = True
+    Public Shared DEBUG As Boolean = False
     Public Shared PROFILE_HandledFiles() = Nothing
     Public Shared DT_TBWMRH_KONFIGURATION As DataTable = Nothing
     Public Shared DT_TBDD_EMAIL As DataTable = Nothing
@@ -10,4 +11,5 @@
     Public Shared _PROFIL_ID, _profGUID As Integer
     Public Shared TEMP_FILES As List(Of String) = New List(Of String)
     Public Shared _proflastRun As Date
+    Public Shared LogErrorsOnly As Boolean = True
 End Class

app/ClassWMResulthandler/clsDateiverarbeitung.vb

@@ -1,10 +1,11 @@
-Imports WINDREAMLib
+Imports System.IO
-Imports System.IO
 Imports System.Net
-Imports Newtonsoft.Json
 Imports System.Text
-Imports DigitalData.Modules.Logging
 Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Logging
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+Imports WINDREAMLib
 
 Public Class clsDateiverarbeitung
     Dim Logger As Logger
@@ -15,7 +16,7 @@ Public Class clsDateiverarbeitung
     Dim _database As clsDatabase
 
     Public Shared pr_DTPROFIL_REGELN As DataTable
-    Public Shared aktfile_Exportresult As String
+    Public Shared CURRFile_Exportresult As String
 
     Public Shared CriticalError As Boolean = False
 
@@ -106,7 +107,7 @@ Public Class clsDateiverarbeitung
 
 
                         If oArrValue Is Nothing = False Then
-                            ' MsgBox("now indexing with: " & idxvalue)
+
                             windream_index.RunIndexing(WMdok, oarrIndex, oArrValue, WMObjekttyp)
                         Else
                             Logger.Warn("arrValue is nothing - keine Indexierung")
@@ -133,31 +134,40 @@ Public Class clsDateiverarbeitung
             Return String.Empty
         End Try
     End Function
-
+    Public Function Export_WMFile2HDD(pWMObject As WMObject, pExportPath As String, Optional pFilename As String = "") As Boolean
-    ' Neu geschriebene version 25.03.19
-    Public Function Export_WMFile2HDD(WMObject As WMObject, ExportPath As String) As Boolean
         Try
-            Dim oWMObject As IWMObject6 = DirectCast(WMObject, IWMObject6)
+            Dim oWMObject As IWMObject6 = DirectCast(pWMObject, IWMObject6)
 
-            Dim oFilenameFull As String = oWMObject.aName
+            Dim oFilenameWM As String = oWMObject.aName
             Dim oFilenameExport As String
-            Dim oSplitIndex = oFilenameFull.LastIndexOf(".")
+            Dim oSplitIndex
+            If pFilename = String.Empty Then
+                oSplitIndex = oFilenameWM.LastIndexOf(".")
+            Else
+                oSplitIndex = pFilename.LastIndexOf(".")
+            End If
+
             Dim oVersion = 1
+            Dim oFilename As String
+            If pFilename <> String.Empty Then
+                oFilename = pFilename.Substring(0, oSplitIndex)
+            Else
+                oFilename = oFilenameWM.Substring(0, oSplitIndex)
+            End If
 
-            Dim oFilename = oFilenameFull.Substring(0, oSplitIndex)
+            oFilename = oFilename.Replace("/", "_")
-            Dim oExtension = oFilenameFull.Substring(oSplitIndex)
+            Logger.Debug("Preparing export of WMFile {0}..", oFilenameWM)
-
-            Logger.Debug("Preparing export of file {0}..", oFilenameFull)
             Logger.Debug("Filename: {0}", oFilename)
-            Logger.Debug("Extension: {0}", oExtension)
+            Logger.Debug("Extension: {0}", clsCURRENT.FILE_Extension)
+            Logger.Debug("pExportPath: {0}", pExportPath)
 
             ' build the file path in case the exported file doesn't already exist
-            oFilenameExport = BuildExportPath(ExportPath, oFilename, oExtension)
+            oFilenameExport = BuildExportPath(pExportPath, oFilename, clsCURRENT.FILE_Extension)
 
             ' Add version until we find the version that does NOT exist
             Do While File.Exists(oFilenameExport)
                 oVersion += 1
-                oFilenameExport = BuildExportPath(ExportPath, oFilename, oExtension, oVersion)
+                oFilenameExport = BuildExportPath(pExportPath, oFilename, clsCURRENT.FILE_Extension, oVersion)
             Loop
 
             Logger.Debug("File will be exported to {0}", oFilenameExport)
@@ -174,12 +184,13 @@ Public Class clsDateiverarbeitung
 
             Logger.Debug("Cleaning up..")
             oStream.Close()
-
+            oStream = Nothing
+            oWMFileIO = Nothing
             Logger.Debug("File exported!")
 
             If File.Exists(oFilenameExport) Then
-                Logger.Info($"File Export to HDD [{oFilenameExport}]was successfull (File.Exists = True)!")
+                Logger.Info($"File Export to HDD [{oFilenameExport}] was successfull!")
-                aktfile_Exportresult = oFilenameExport
+                CURRFile_Exportresult = oFilenameExport
                 clsCURRENT.EXPORTED_FILENAME = oFilenameExport
                 clsCURRENT.TEMP_FILES.Add(oFilenameExport)
                 Logger.Debug("FileInfo Added to variables...")
@@ -192,10 +203,65 @@ Public Class clsDateiverarbeitung
             Return True
         Catch ex As Exception
             Logger.Error(ex)
+            Logger.Info($"Unexpected error in Export_WMFile2HDD [{ex.Message}]")
             Return False
         End Try
     End Function
+    Public Function Archive_Document(pWMObject As WMObject, pDateOperator As String, pIntervall As Integer, pFromDate As String) As Boolean
+        Dim oDateFrom As Date
+        Try
+            Const WMObjectEditModeLifeCycleEdit = "&H00000080"
+            Const WMLifeCycleTypeArchivePeriod = 2
+            Logger.Debug($"ArchiveDate for WMFile shall be changed: pFromDate [{pFromDate}] pDateOperator [{pDateOperator}]...")
+            pWMObject.LockFor(WMObjectEditModeLifeCycleEdit)
+            Dim oLC = pWMObject.aWMLifeCycle()
 
+            If pFromDate = "Now" Then
+                oDateFrom = Now
+            Else
+                oDateFrom = CDate(pFromDate)
+            End If
+            Dim oDateIntervall As DateInterval
+            Select Case pDateOperator
+                Case "y"
+                    oDateIntervall = DateInterval.Year
+                Case "m"
+                    oDateIntervall = DateInterval.Month
+                Case "d"
+                    oDateIntervall = DateInterval.Day
+                Case Else
+                    Logger.Warn($"ATTENTION: Following DateOperator [{pDateOperator}] is not integrated! ")
+                    If pWMObject.aLocked Then
+                        pWMObject.unlock()
+                    End If
+                    Return False
+            End Select
+            Dim archBis = DateAdd(oDateIntervall, pIntervall, oDateFrom)
+            Logger.Debug($"...archBis is [{archBis.ToShortDateString}]!")
+            'Dim pArchiveDate As String = archBis.ToString("yyyy-MM-dd")
+            oLC.SetPeriodEndDate(WMLifeCycleTypeArchivePeriod, archBis)
+
+            pWMObject.Save()
+            If pWMObject.aLocked Then
+                pWMObject.unlock()
+            End If
+            Logger.Info($"Archive-Date of file [{pWMObject.aName}] was changed successfully!")
+            Return True
+        Catch ex As Exception
+            Try
+                If pWMObject.aLocked Then
+                    pWMObject.unlock()
+                End If
+            Catch ex1 As Exception
+
+            End Try
+
+            Logger.Error(ex)
+            Logger.Info($"Unexpected error in Archive_Document [{ex.Message}]")
+            Logger.Info($"oDateFrom so far is [{oDateFrom.ToString}]")
+            Return False
+        End Try
+    End Function
     Private Function BuildExportPath(BasePath As String, FilenameWithoutExtension As String, Extension As String, Optional Version As Integer = 1)
         Dim oFilename
 
@@ -208,63 +274,8 @@ Public Class clsDateiverarbeitung
         Return Path.Combine(BasePath, oFilename)
     End Function
 
-    ' Alte Funktion 25.03.19
-    'Public Function Export_WMFile2HDD(oWMFile As WMObject, MyExportpath As String)
-    '    Try
-    '        If Not MyExportpath.EndsWith("\") Then
-    '            MyExportpath &= "\"
-    '        End If
 
 
-    '        Try
-    '            Logger.Info("Working on WMFile: " & oWMFile.aName)
-    '        Catch ex As Exception
-    '            Logger.Error(ex)
-    '            Return False
-    '        End Try
-    '        Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO 
-    '        Logger.Debug("ExportFileIO created...")
-
-    '        Dim oWMStream = oWMFile.OpenStream("BinaryObject", 1)
-    '        '### VERSIONIERUNG ###
-    '        Dim version As Integer = 2
-    '        'Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(Quelle)
-    '        Dim oFilename = oWMFile.aName.Substring(0, oWMFile.aName.LastIndexOf("."))
-    '        Dim oExtension = oWMFile.aName.Substring(oWMFile.aName.LastIndexOf("."))
-    '        Dim oTempFilename As String = MyExportpath & oFilename & oExtension
-    '        'Überprüfen ob File existiert
-    '        Do While IO.File.Exists(oTempFilename) = True
-    '            oTempFilename = MyExportpath & oFilename & "_" & version & oExtension
-    '            version = version + 1
-    '        Loop
-    '        Logger.Debug("Exportfilename is: " & oTempFilename)
-    '        ' den Dateiinhalt der neuen Datei zuweisen
-    '        ExportFileIO.bstrOriginalFileName = oTempFilename
-    '        ExportFileIO.aWMStream = oWMStream
-
-    '        'Das eigentliche kopieren
-    '        ExportFileIO.ExportOriginal(True)
-    '        ' close the windream file stream
-    '        oWMStream.Close()
-    '        If File.Exists(oTempFilename) Then
-    '            clsCURRENT.EXPORTED_FILENAME = oTempFilename
-    '            Logger.Info($"File Export to HDD [{clsCURRENT.EXPORTED_FILENAME}]was successfull (File.Exists = True)!")
-    '            aktfile_Exportresult = clsCURRENT.EXPORTED_FILENAME
-    '            clsCURRENT.TEMP_FILES.Add(clsCURRENT.EXPORTED_FILENAME)
-    '            Logger.Debug("FileInfo Added to variables...")
-    '            Return True
-    '        Else
-    '            Logger.Warn($"Export not successfull or File.Exists = false Export: [{oTempFilename}]")
-    '            Return False
-    '        End If
-
-    '    Catch ex As Exception
-    '        Logger.Error(ex)
-    '        Logger.Info("Unexpected error in Export_WMFile: " & ex.Message)
-    '        Return False
-    '    End Try
-    'End Function
-
     Public Function Rename_File(WMFile As WMObject, konvention As String)
         Try
             Logger.Debug("Konvention: '" & konvention & "'")
@@ -299,20 +310,32 @@ Public Class clsDateiverarbeitung
                 End If
             Next
             Dim version As Integer = 2
-            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            Dim ZielPfad As String = Path.GetDirectoryName(CURRFile_Exportresult)
             Logger.Debug("ZielPfad: " & ZielPfad)
             Dim Filename = konvention
-            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            Dim Extension = Path.GetExtension(CURRFile_Exportresult)
             Logger.Debug("Extension: " & Extension)
             Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
             Logger.Debug("tempFilename: " & tempFilename)
             'Überprüfen ob File existiert
             Do While IO.File.Exists(tempFilename) = True
-                tempFilename = ZielPfad & "\" & Filename & "~" & version & Extension
+                tempFilename = ZielPfad & "\" & Filename & "_" & version & Extension
                 version += 1
             Loop
-            Logger.Debug("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+            Logger.Debug("RenameFile - OLDFilename: " & CURRFile_Exportresult)
-            My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
+            Logger.Debug("NEWFilename: " & Path.GetFileName(tempFilename))
+            Threading.Thread.Sleep(500)
+            Try
+                My.Computer.FileSystem.RenameFile(CURRFile_Exportresult, Path.GetFileName(tempFilename))
+            Catch ex As Exception
+                If ex.Message.Contains("The process cannot access the file") Then
+                    tempFilename = tempFilename.Replace(".pdf", "_X.pdf")
+                    My.Computer.FileSystem.CopyFile(CURRFile_Exportresult, tempFilename)
+                    Logger.Info("File is in use - NewName " & tempFilename)
+                    CURRFile_Exportresult = tempFilename
+                End If
+            End Try
+
             Logger.Info("Datei wurde erfolgreich umbenannt.")
             Return True
         Catch ex As Exception
@@ -321,12 +344,14 @@ Public Class clsDateiverarbeitung
             Return False
         End Try
     End Function
+
+
     Public Function Rename_File_Vektor(WMFile As WMObject, WMINDEX_NAME As String)
         Try
             Dim WMIndexwert
-            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            Dim ZielPfad As String = Path.GetDirectoryName(CURRFile_Exportresult)
             Logger.Debug("ZielPfad: " & ZielPfad)
-            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            Dim Extension = Path.GetExtension(CURRFile_Exportresult)
             Logger.Debug("Extension: " & Extension)
 
             If WMINDEX_NAME.StartsWith("[%") Then
@@ -346,14 +371,14 @@ Public Class clsDateiverarbeitung
                             Dim tempFilename As String = ZielPfad & "\" & WMvalue & Extension
                             Logger.Debug("tempFilename: " & tempFilename)
                             If anz = 1 Then
-                                Logger.Debug("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+                                Logger.Debug("RenameFile - OLDFilename: " & CURRFile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
-                                My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
+                                My.Computer.FileSystem.RenameFile(CURRFile_Exportresult, Path.GetFileName(tempFilename))
                                 copybasefile = tempFilename
                             Else
                                 Dim version As Integer = 2
                                 'Überprüfen ob File existiert
                                 Do While IO.File.Exists(tempFilename) = True
-                                    tempFilename = ZielPfad & "\" & WMvalue & "~" & version & Extension
+                                    tempFilename = ZielPfad & "\" & WMvalue & "_" & version & Extension
                                     version += 1
                                 Loop
                                 File.Copy(copybasefile, tempFilename, True)
@@ -647,7 +672,7 @@ Public Class clsDateiverarbeitung
     End Function
     Public Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
         Try
-            Logger.Debug("REGEX_String before replacing: '" & _STRING & "'")
+            Logger.Debug("REGEX_REPLACE before replacing: '" & _STRING & "'")
             ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
             Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
             ' einen Regulären Ausdruck laden
@@ -668,7 +693,6 @@ Public Class clsDateiverarbeitung
                 ElseIf reg_element_Ohne_SZ = "ENV_USERNAME" Then
                     _STRING = _STRING.Replace(reg_element.Value, Environment.UserName)
                 Else
-
                     Dim wdIndexwert
                     ' den Wert des Indexes für das aktuelle Dokument auslesen
                     wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
@@ -677,6 +701,18 @@ Public Class clsDateiverarbeitung
                             wdIndexwert = wdIndexwert.ToString.TrimEnd
                             wdIndexwert = wdIndexwert.ToString.TrimStart
                             Logger.Debug("indexvalue read is: '" & wdIndexwert & "'")
+                            Try
+                                Dim oConvertDT As DateTime
+                                If DateTime.TryParse(wdIndexwert.ToString, oConvertDT) Then
+                                    Logger.Debug("indexvalue is datetime - converting to date")
+                                    Dim myDate As Date = wdIndexwert
+                                    wdIndexwert = Format(myDate, "yyyy-MM-dd")
+                                End If
+                            Catch ex As Exception
+                                Logger.Warn("clsDateiverarbeitung: Error checking datetime: " & ex.Message)
+                            End Try
+
+
                             _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
                             Logger.Debug("REGEX_String  (" & i & ") " & _STRING)
                             i += 1
@@ -706,9 +742,8 @@ Public Class clsDateiverarbeitung
                         _STRING = _STRING.Replace(reg_element.Value, "0")
                     End If
                 End If
-
-
             Next
+            Logger.Debug("REGEX_REPLACE AFTER replacing: '" & _STRING & "'")
             Return _STRING
         Catch ex As Exception
             Logger.Error(ex)

app/ClassWMResulthandler/clsEmail.vb

@@ -1,299 +0,0 @@
-
-Imports System
-Imports Independentsoft.Email
-Imports Independentsoft.Email.Smtp
-Imports Independentsoft.Email.Mime
-Imports DigitalData.Modules.Logging
-Imports System.Net.Mail
-Imports System.Net
-Imports System.Net.Mime
-
-Public Class clsEmail
-    Dim Logger As DigitalData.Modules.Logging.Logger
-    Private Shared MailAktiv As Boolean = False
-    Sub New(MyLogger As LogConfig)
-        Logger = MyLogger.GetLogger()
-    End Sub
-    Public Function Testmail(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
-                                                      mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
-                                                      AUTH_TYPE As String, Optional attment As String = "")
-        Try
-            Dim oReceipiants As String()
-            If mailto.Contains(";") Then
-                oReceipiants = mailto.Split(";")
-            Else
-                ReDim Preserve oReceipiants(0)
-                oReceipiants(0) = mailto
-            End If
-            For Each oMailReceipiant As String In oReceipiants
-                Dim sClient = New Mail.SmtpClient(mailsmtp)
-                Dim mymesssage As New MailMessage
-                sClient.Port = mailport
-                If AUTH_TYPE = "SSL" Then
-                    sClient.EnableSsl = True
-                Else
-                    sClient.EnableSsl = False
-                End If
-
-                sClient.Credentials = New NetworkCredential(mailUser, mailPW)
-                sClient.UseDefaultCredentials = False
-
-                mymesssage.Body = $"This is the body (text will be replaced within profile)! <br> mailsmtp: {mailsmtp} <br> mailport: {mailport} <br> mailUser: {mailUser} <br> mailPW: XXXX <br> AUTH_TYPE: {AUTH_TYPE}"
-                Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(mymesssage.Body)
-                htmlView.ContentType = New System.Net.Mime.ContentType("text/html")
-                mymesssage.AlternateViews.Add(htmlView)
-
-                mymesssage.From = New MailAddress(mailfrom)
-                mymesssage.Subject = mailSubject
-                mymesssage.To.Add(New MailAddress(oMailReceipiant))
-
-                If attment <> String.Empty Then
-                    Dim oAttment As String = attment.Replace("W:\", "\\windream\objects\")
-
-                    If System.IO.File.Exists(oAttment) Then
-                        Logger.Info($"working on attachment {oAttment}...")
-                        Dim oAttachment As New System.Net.Mail.Attachment(oAttment)
-
-                        mymesssage.Attachments.Add(oAttachment)
-                    Else
-                        MsgBox($"Attachment {oAttment.ToString} is not existing - Mail won't be send!")
-                        Return False
-                    End If
-                End If
-
-
-                sClient.Send(mymesssage)
-                Logger.Info($"Email has been send to {oMailReceipiant}!!")
-            Next
-
-
-            Return True
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
-            Return False
-        End Try
-
-    End Function
-    Public Function Email_Send(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
-                                                      mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
-                                                      AUTH_TYPE As String, Optional attment As String = "", Optional Test As Boolean = False)
-        Try
-            Dim oError As Boolean = False
-            Dim oReceipiants As String()
-            If mailto.Contains(";") Then
-                oReceipiants = mailto.Split(";")
-            Else
-                ReDim Preserve oReceipiants(0)
-                oReceipiants(0) = mailto
-            End If
-            For Each oMailReceipiant As String In oReceipiants
-                Dim sClient = New Net.Mail.SmtpClient(mailsmtp)
-                Dim mymesssage As New MailMessage
-                sClient.Port = mailport
-                If AUTH_TYPE = "SSL" Then
-                    sClient.EnableSsl = True
-                Else
-                    sClient.EnableSsl = False
-                End If
-
-                sClient.Credentials = New NetworkCredential(mailUser, mailPW)
-                sClient.UseDefaultCredentials = False
-                If Test = True Then
-                    mymesssage.Body = $"This is the body (text will be replaced within profile)! <br> mailsmtp: {mailsmtp} <br> mailport: {mailport} <br> mailUser: {mailUser} <br> mailPW: XXXX <br> AUTH_TYPE: {AUTH_TYPE}"
-                Else
-                    mymesssage.Body = mailBody
-                End If
-
-                'mymesssage.IsBodyHtml = True
-                Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString(mymesssage.Body)
-                htmlView.ContentType = New System.Net.Mime.ContentType("text/html")
-                mymesssage.AlternateViews.Add(htmlView)
-                attment = attment.Replace("W:\", "\\windream\objects\")
-                If attment <> String.Empty Then
-                    If System.IO.File.Exists(attment) Then
-                        Logger.Info($"working on attachment {attment.ToString}...")
-                        Dim oAttachment As New System.Net.Mail.Attachment(attment)
-
-                        'If attment.ToLower.EndsWith("pdf") Then
-                        '    oAttachment.ContentType = New Independentsoft.Email.Mime.ContentType("application", "pdf")
-                        'ElseIf attment.ToLower.EndsWith("jpg") Then
-                        '    oAttachment.ContentType = New Independentsoft.Email.Mime.ContentType("application", "jpg")
-                        'ElseIf attment.ToLower.EndsWith("docx") Then
-                        '    oAttachment.ContentType = New Independentsoft.Email.Mime.ContentType("application", "MS-word")
-                        'End If
-                        mymesssage.Attachments.Add(oAttachment)
-                    Else
-                        Logger.Warn($"Attachment {attment.ToString} is not existing - Mail won't be send!")
-                        oError = True
-
-                    End If
-                End If
-
-
-                mymesssage.From = New MailAddress(mailfrom)
-                mymesssage.Subject = mailSubject
-                mymesssage.To.Add(New MailAddress(oMailReceipiant))
-                sClient.Send(mymesssage)
-            Next
-            If oError = False Then
-                Return True
-            Else
-                Return False
-            End If
-
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return False
-        End Try
-
-    End Function
-    Public Function Email_Send_Independentsoft(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
-                                                      mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
-                                                      AUTH_TYPE As String, Optional attment As String = "")
-
-
-        Try
-            Logger.Debug($"in Email_Send_Independentsoft..")
-            Dim empfaenger As String()
-            If mailto.Contains(";") Then
-                empfaenger = mailto.Split(";")
-            Else
-                ReDim Preserve empfaenger(0)
-                empfaenger(0) = mailto
-            End If
-            Dim _error As Boolean = False
-            'Für jeden Empfänger eine Neue Mail erzeugen
-            For Each _mailempfaenger As String In empfaenger
-                Logger.Debug($"Working on email for {_mailempfaenger}..")
-                Try
-                    Dim message As New Message()
-                    message.From = New Mailbox(mailfrom, mailfrom)
-                    message.[To].Add(New Mailbox(_mailempfaenger))
-                    message.Subject = mailSubject
-                    Logger.Debug($"Message created..")
-                    Dim textBodyPart As New BodyPart()
-                    textBodyPart.ContentType = New Independentsoft.Email.Mime.ContentType("text", "html", "utf-8")
-                    textBodyPart.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
-                    textBodyPart.Body = mailBody
-                    message.BodyParts.Add(textBodyPart)
-                    attment = attment.Replace("W:\", "\\windream\objects\")
-                    If attment <> String.Empty Then
-                        If System.IO.File.Exists(attment) Then
-                            Logger.Info($"working on attachment {attment.ToString}...")
-                            Dim attachment1 As New Independentsoft.Email.Mime.Attachment(attment)
-                            If attment.ToLower.EndsWith("pdf") Then
-                                attachment1.ContentType = New Independentsoft.Email.Mime.ContentType("application", "pdf")
-                            ElseIf attment.ToLower.EndsWith("jpg") Then
-                                attachment1.ContentType = New Independentsoft.Email.Mime.ContentType("application", "jpg")
-                            ElseIf attment.ToLower.EndsWith("docx") Then
-                                attachment1.ContentType = New Independentsoft.Email.Mime.ContentType("application", "MS-word")
-                            End If
-                            message.BodyParts.Add(attachment1)
-                        Else
-                            Logger.Warn($"Attachment {attment.ToString} is not existing - Mail won't be send!")
-                            Return False
-                        End If
-                    End If
-                    Dim client As Smtp.SmtpClient
-                    Try
-                        client = New Smtp.SmtpClient(mailsmtp, mailport)
-                    Catch ex As Exception
-                        Logger.Warn("clsEmail.Create Client: " & ex.Message)
-                        _error = True
-                        Continue For
-                    End Try
-                    'Try
-                    '    client.Connect()
-                    'Catch ex As Exception
-                    '    Logger.Warn("clsEmail.Client.Connect: " & ex.Message)
-                    '    _error = True
-                    '    ' Continue For
-                    'End Try
-
-                    If AUTH_TYPE = "SSL" Then
-                        client.EnableSsl = True
-                        '    client.ValidateRemoteCertificate = True
-                        Logger.Info("Authentification via SSL.")
-                    ElseIf AUTH_TYPE = "TLS" Then
-                        ' client.ValidateRemoteCertificate = False
-                        client.StartTls()
-                        client.EnableSsl = False
-                        Logger.Info("Authentification via TLS. SSL disabled")
-                    Else
-                        client.EnableSsl = False
-                        Logger.Info("Authentification NONE. SSL disabled")
-                    End If
-                    Try
-                        client.Connect()
-                        Logger.Info("Connected to Client!")
-                    Catch ex As Exception
-                        Logger.Warn("clsEmail.Client.Connect2: " & ex.Message)
-                        _error = True
-                        ' Continue For
-                    End Try
-                    Try
-                        If mailsmtp.Contains("office365.com") Then
-                            client.Login(mailUser, mailPW, AuthenticationType.None)
-                        Else
-                            client.Login(mailUser, mailPW)
-                        End If
-
-                        Logger.Info("Logged in!")
-                    Catch ex As Exception
-                        Try
-                            If mailsmtp.Contains("office365.com") Then
-                                client.Login(mailUser, mailPW, AuthenticationType.Login)
-                            Else
-                                client.Login(mailUser, mailPW, AuthenticationType.None)
-                            End If
-
-                        Catch ex1 As Exception
-                            Try
-                                client.Login(mailUser, mailPW, AuthenticationType.Login)
-                            Catch ex2 As Exception
-                                Logger.Warn("clsEmail.Client.Login: " & ex.Message)
-                                _error = True
-                                client.Disconnect()
-                                Continue For
-                            End Try
-                        End Try
-                    End Try
-                    Try
-                        client.Send(message)
-                        Logger.Info("Message to " & _mailempfaenger & " has been send.")
-                        _error = False
-                    Catch ex As Exception
-                        Logger.Warn("clsEmail.Client.Send: " & ex.Message)
-                        Try
-                            client.Login(mailUser, mailPW, AuthenticationType.Login)
-                            client.Send(message)
-                        Catch ex1 As Exception
-                            Logger.Warn("clsEmail.Client.Send2: " & ex.Message)
-                            _error = True
-                            client.Disconnect()
-                            Continue For
-                        End Try
-
-
-
-                    End Try
-                    client.Disconnect()
-
-                Catch ex As Exception
-                    Logger.Error(ex)
-                    _error = True
-                End Try
-            Next
-
-            If _error = True Then
-                Return False
-            Else
-                Return True
-            End If
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return False
-        End Try
-    End Function
-
-End Class

app/ClassWMResulthandler/clsJob_Work.vb

@@ -1,9 +1,12 @@
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Messaging
+Imports DigitalData.Modules.Messaging.Mail
+
 Public Class clsJob_Work
     Dim Logger As Logger
     Private MyLogger As LogConfig
-    Private _mail As clsEmail
+    Private _mail As MailSender
-    Public Sub New(MyLoggerConf As LogConfig, _email As clsEmail)
+    Public Sub New(MyLoggerConf As LogConfig, _email As MailSender)
         Logger = MyLoggerConf.GetLogger()
         MyLogger = MyLoggerConf
         _mail = _email
@@ -44,12 +47,27 @@ Public Class clsJob_Work
                 Logger.Warn("PWPlain is Nothing - Could not decrypt passwort 44")
                 Return False
             End If
-            If _mail.Email_Send(Email_subject, Email_Body, Email_receipiants, oMAILFROM, oMAILSMTP, oMAIL_PORT, oMAIL_USER, oMAIL_USER_PW, oMAIL_AUTH_TYPE, Attachment_Filename) = True Then
+            Dim oSendto As New List(Of String)
+            Dim oSplit = Email_receipiants.Split(";")
+            For Each oMailAdress In oSplit
+                oSendto.Add(oMailAdress)
+            Next
+
+            Dim oAttMt As New List(Of String)
+            If Attachment_Filename <> String.Empty Then
+                oAttMt.Add(Attachment_Filename)
+            End If
+            Dim oSession = _mail.Connect(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE)
+            If oSession.Connected = True Then
+                Logger.Info($"MAIL: Connection to {oMAILSMTP} successfull!")
+                If _mail.SendMail(oSendto, oMAILFROM, Email_subject, Email_Body, Now, oAttMt, 0) = True Then
                     Return True
+
                 Else
-                Logger.Warn("Email_Send_Independentsoft was not successfull!")
+                    Logger.Warn("ConnectToServer was not successfull!")
                     Return False
                 End If
+            End If
         Catch ex As Exception
             Logger.Error(ex)
             Return False

app/ClassWMResulthandler/clsProfil.vb

@@ -3,10 +3,14 @@ Imports System.IO
 Imports System.Text
 Imports Newtonsoft.Json
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Messaging
+Imports DigitalData.Modules.Messaging.Mail
+Imports DigitalData.Modules.Messaging.Mail.MailSession
 
 Public Class clsProfil
     Inherits clsCURRENT
     Dim Logger As Logger
+    Dim MyLogConfig As LogConfig
 #Region "***** Variablen *****"
     Private Shared CriticalError As Boolean = False
     Private windream As clsWindream_allgemein
@@ -14,30 +18,31 @@ Public Class clsProfil
     Private _database As clsDatabase
     Private _dateiverarbeitung As clsDateiverarbeitung
     Private _JobWork As clsJob_Work
-    Private _email As clsEmail
+    Private _email As MailSender
     Private Shared WD_aktivesDokument As WMObject
 #End Region
-    Sub New(MyLogger As LogConfig, PROFIL_ID As Integer)
+    Sub New(pLogConfig As LogConfig, PROFIL_ID As Integer)
-        Logger = MyLogger.GetLogger()
+        Logger = pLogConfig.GetLogger()
-        windream = New clsWindream_allgemein(MyLogger)
+        MyLogConfig = pLogConfig
-        windream_index = New clsWindream_Index(MyLogger)
+        windream = New clsWindream_allgemein(pLogConfig)
-        _database = New clsDatabase(MyLogger)
+        windream_index = New clsWindream_Index(pLogConfig)
-        _dateiverarbeitung = New clsDateiverarbeitung(MyLogger)
+        _database = New clsDatabase(pLogConfig)
-        _email = New clsEmail(MyLogger)
+        _dateiverarbeitung = New clsDateiverarbeitung(pLogConfig)
-        _JobWork = New clsJob_Work(MyLogger, _email)
+        _email = New MailSender(pLogConfig)
+        _JobWork = New clsJob_Work(pLogConfig, _email)
 
     End Sub
-    Public Function Init(PROFIL_ID As Integer)
+    Public Function Init(PROFIL_ID As Integer, pManual As Boolean)
         Try
             Logger.Debug("Start Initialisierung Profil für GUID: " & PROFIL_ID.ToString)
             Dim DT As DataTable = _database.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & PROFIL_ID)
-            If DT.Rows.Count > 0 Then
+            If DT.Rows.Count = 1 Then
                 For Each DR As DataRow In DT.Rows
                     _profGUID = PROFIL_ID
                     _Profilname = CStr(DR.Item("Profilname"))
                     Logger.Debug("Check Profilname '" & _Profilname & "', GUID: " & _profGUID & " geladen")
                     ' Überprüfen ob Profil aktiv oder inaktiv
-                    If CBool(DR.Item("Aktiv")) = False Then
+                    If CBool(DR.Item("Aktiv")) = False And pManual = False Then
                         Logger.Info("## Profil '" & _Profilname & "' ist inaktiv geschaltet")
                         Return False
                     Else
@@ -62,23 +67,24 @@ Public Class clsProfil
 
     End Function
     'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war
-    Public Function Profil_Durchlauf(manually As Boolean) As Boolean
+    Public Function Profil_Durchlauf(pManRun As Boolean) As Boolean
         Dim _error As Boolean = False
         Try
-            Dim Run_Profile As Boolean = False
+            Dim oRunProfile As Boolean = False
+            If pManRun = False Then
                 'Soll die Verarbeitung heute durchgeführt werden??
                 Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
                 Dim SUBS As Integer = 0
-            Dim RUNTODAY As Integer = 0
                 If Dayofweek = 0 Then
                     SUBS = 6
                 Else
 
                 End If
-            RUNTODAY = _profDay.Substring(Dayofweek - 1, 1)
-
-
                 If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
+                    oRunProfile = True
+                Else
+                    Logger.Info("Verarbeitung für JETZT NICHT konfiguriert")
+                End If
                 'Verarbeitung soll heute durchgeführt werden
                 Logger.Debug("Verarbeitung soll heute durchgeführt werden!")
                 Logger.Debug("_RunType: " & _profRunType)
@@ -94,11 +100,11 @@ Public Class clsProfil
                         Logger.Debug("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString)
                         If Time_next.ToString.StartsWith("11.11.1911") Then
                             Logger.Info("Manueller Durchlauf des Profils - 11.11.1911")
-                            Run_Profile = True
+                            oRunProfile = True
                         Else
                             'Ist die Uhrzeit in der Range
                             If _RunTime.ToShortTimeString = Now.ToShortTimeString Then
-                                Run_Profile = True
+                                oRunProfile = True
                             Else
                                 Logger.Debug("No run as " & _RunTime.ToShortTimeString & "<>" & Now.ToShortTimeString)
                             End If
@@ -113,19 +119,21 @@ Public Class clsProfil
 
                         If DiffMin >= CInt(arr(1)) Then
                             'Den Durchlauf erlauben
-                            Run_Profile = True
+                            oRunProfile = True
                         Else
                             Logger.Debug("No run as DiffMin (" & DiffMin & ") <= Intervall(" & arr(1) & ")")
                         End If
                     Case Else
                         Logger.Warn("_profRunType konnte nicht ausgewertet werden - " & arr(0))
                 End Select
-                If Run_Profile = False And manually = True Then
+            Else
-                    Logger.Info("This is a manual run of profile!")
+                Logger.Info("### This is a manual run of profile! ###")
-                    Run_Profile = True
+                oRunProfile = True
             End If
-                If Run_Profile = True Then
+
-                    Logger.Info($"Working on profile '{_Profilname}'")
+
+            If oRunProfile = True Then
+                Logger.Debug($"'{_Profilname}' - Run_Profile = True")
                 clsCURRENT.DT_TBDD_EMAIL = _database.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
                 clsCURRENT.PROFILE_HandledFiles = Nothing
                 clsCURRENT.EXPORTED_FILENAME = ""
@@ -144,7 +152,8 @@ Public Class clsProfil
                         Return False
                     End If
                     If windreamSucheErgebnisse.Count > 0 Then
-                            Logger.Info(windreamSucheErgebnisse.Count & " files shall be worked!")
+                        Logger.Info($"Working on profile '{_Profilname}'")
+                        Logger.Info(windreamSucheErgebnisse.Count & " file(s) shall be worked!")
                         Logger.Debug("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
 
                         Dim DT_PROFIL_JOB As DataTable = _database.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
@@ -162,35 +171,10 @@ Public Class clsProfil
                                 Dim CountExportedDoc As Integer = 0
                                 clsCURRENT.PROFILE_HandledFiles = Nothing
                                 Dim oFileRunNo As String
+                                Dim oGesamtFiles As Integer
+                                oGesamtFiles = windreamSucheErgebnisse.Count
                                 Dim oCountDocs As Integer = 0
-                                    For Each WMdok As WMObject In windreamSucheErgebnisse
+                                Dim oEmailAttachment_path As String
-                                        oCountDocs += 1
-                                        oFileRunNo = "#DocRun" & oCountDocs.ToString
-                                        For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
-                                            Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
-                                                Case "Create Mail Attachment".ToUpper
-                                                    Logger.Info("JobType: Create Mail Attachment")
-                                                    'XX
-
-                                                    Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
-                                                    Logger.Debug("Email_Empfänger: " & Email_Empfänger)
-                                                    Dim Email_Betreff = DR_PR_JB.Item("STRING2")
-                                                    Logger.Debug("Email_Betreff: " & Email_Betreff)
-                                                    Dim Email_Body = DR_PR_JB.Item("STRING3")
-                                                    Logger.Debug("Email_Body: " & Email_Body)
-                                                    Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
-                                                    Logger.Debug("EMAIL_PROFIL: " & EMAIL_PROFIL)
-                                                    If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
-                                                        Dim oAttachment = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
-
-                                                        If _dateiverarbeitung.Export_WMFile2HDD(WMdok, Path.GetTempPath()) = True Then
-                                                            oAttachment = clsCURRENT.EXPORTED_FILENAME
-
-                                                        Else
-                                                            Logger.Warn($"Could not create a tempfile...")
-                                                            FileJobSuccessful = False
-                                                            Return False
-                                                        End If
 
 
                                 Dim MAILFROM As String = ""
@@ -199,7 +183,55 @@ Public Class clsProfil
                                 Dim MAIL_USER_PW As String = ""
                                 Dim MAIL_AUTH_TYPE As String = "SSL"
                                 Dim MAIL_PORT As String = "25"
+                                Dim MAILSession As SessionInfo
 
+                                For Each WMdok As WMObject In windreamSucheErgebnisse
+
+                                    oEmailAttachment_path = String.Empty
+                                    oCountDocs += 1
+                                    Logger.Debug($"Working on Doc {oCountDocs.ToString}/{windreamSucheErgebnisse.Count}")
+                                    oFileRunNo = "#Doc " & oCountDocs.ToString
+                                    Dim oPointIndex = WMdok.aName.LastIndexOf(".")
+                                    clsCURRENT.FILE_Extension = WMdok.aName.Substring(oPointIndex)
+
+                                    For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
+                                        Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
+                                            Case "Create Mail Attachment".ToUpper
+                                                Logger.Debug("JobType: Create Mail Attachment")
+                                                'XX
+
+                                                Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
+                                                Logger.Debug("Email_Empfänger: " & Email_Empfänger)
+                                                Dim oEmail_Betreff = DR_PR_JB.Item("STRING2")
+                                                Logger.Debug("Email_Betreff: " & oEmail_Betreff)
+                                                Dim Email_Body = DR_PR_JB.Item("STRING3")
+                                                Logger.Debug("Email_Body: " & Email_Body)
+                                                Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
+                                                Logger.Debug("EMAIL_PROFIL: " & EMAIL_PROFIL)
+                                                Dim oRENAMEFILE = DR_PR_JB.Item("STRING5")
+                                                Dim oAttachment_FullFilename As String = ""
+
+                                                If Not IsDBNull(oRENAMEFILE) Then
+                                                    If oRENAMEFILE.ToString <> String.Empty Then
+                                                        Logger.Debug("Attached file shall be renamed...")
+                                                        oRENAMEFILE = _dateiverarbeitung.REGEX_REPLACE(WMdok, oRENAMEFILE)
+                                                        oAttachment_FullFilename = oRENAMEFILE & clsCURRENT.FILE_Extension
+                                                        Logger.Info($"oAttachment: {oAttachment_FullFilename}")
+                                                    End If
+                                                End If
+
+                                                If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
+                                                    If _dateiverarbeitung.Export_WMFile2HDD(WMdok, Path.GetTempPath(), oAttachment_FullFilename) = True Then
+                                                        oAttachment_FullFilename = clsCURRENT.EXPORTED_FILENAME
+                                                        oEmailAttachment_path = oAttachment_FullFilename
+                                                    Else
+                                                        Logger.Warn($"Could not create a tempfile...")
+                                                        FileJobSuccessful = False
+                                                        Return False
+                                                    End If
+
+                                                    If oCountDocs = 1 Then
+                                                        Logger.Debug("##### EMAIL BASICS CONSTRUCT (oCountDocs = 1) ######")
                                                         For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
                                                             If emailrow.Item("GUID") = CInt(EMAIL_PROFIL) Then
                                                                 MAILFROM = emailrow.Item("EMAIL_FROM")
@@ -210,40 +242,87 @@ Public Class clsProfil
                                                                 MAIL_PORT = emailrow.Item("PORT")
                                                             End If
                                                         Next
-
+                                                        Logger.Debug("Email-Profil Used: " & EMAIL_PROFIL)
+                                                        Logger.Debug("EMAIL_AUTH_TYPE: " & MAIL_AUTH_TYPE)
+                                                        If MAIL_AUTH_TYPE.ToUpper <> "NONE" Then
                                                             Dim wrapper As New clsEncryption("!35452didalog=")
-
                                                             Dim PWPlain = wrapper.DecryptData(MAIL_USER_PW)
                                                             If Not IsNothing(PWPlain) Then
                                                                 MAIL_USER_PW = PWPlain
-
                                                             Else
                                                                 Logger.Warn("PWPlain is Nothing - Could not decrypt passwort188")
-
                                                                 Return False
                                                             End If
+                                                        Else
+                                                            Logger.Debug("## No AUTHENTIFICATION in EMail...!##")
+                                                        End If
+
                                                         If Email_Empfänger.ToString.Contains("[%") Then
                                                             Email_Empfänger = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger)
                                                             Logger.Debug("Email_Empfänger: " & Email_Empfänger)
                                                         End If
+                                                    End If
 
-                                                        Email_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff)
+
+                                                    oEmail_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, oEmail_Betreff)
                                                     Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
+                                                    oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
+                                                    If oAttachment_FullFilename <> String.Empty Then
+                                                        Logger.Info($"Email Attachment {oAttachment_FullFilename}")
+                                                    End If
+                                                    Dim oSendto As New List(Of String)
+                                                    Dim oSplit = Email_Empfänger.split(";")
+                                                    For Each oMailAdress In oSplit
+                                                        oSendto.Add(oMailAdress)
+                                                    Next
 
-                                                        If _email.Email_Send(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment) = True Then
+                                                    Dim oAttMt As New List(Of String)
-                                                            FileJobSuccessful = True
+                                                    If oAttachment_FullFilename <> String.Empty Then
+                                                        oAttMt.Add(oAttachment_FullFilename)
+                                                        clsCURRENT.TEMP_FILES.Add(oAttachment_FullFilename)
+                                                    End If
+
+                                                    Dim oReInit As Boolean = False
+                                                    If oCountDocs = 1 Or IsNothing(MAILSession) Then
+                                                        Logger.Debug("Init MAILSession...")
+                                                        oReInit = True
+                                                    ElseIf IsNothing(_email) Or _email.Connected2Server = False Or MAILSession.Connected = False Then
+                                                        Logger.Info("Re-Init MAILSession...")
+                                                        oReInit = True
+                                                    End If
+                                                    If oReInit = True Then
+                                                        _email = New MailSender(MyLogConfig)
+                                                        MAILSession = _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE)
+                                                        If MAILSession.Connected = True Then
+                                                            Logger.Info($"MAIL: Connection to {MAILSMTP} successfull!")
                                                         Else
-
+                                                            Logger.Warn($"{oFileRunNo} - _email.Connect was not successfull!")
-                                                            Logger.Warn($"{oFileRunNo} Email_Send_Independentsoft 1 was not successfull!")
                                                             FileJobSuccessful = False
                                                         End If
+                                                    End If
+
+                                                    If Not IsNothing(_email) And _email.SendMail(oSendto, MAILFROM, oEmail_Betreff, Email_Body, Now, oAttMt, 0) = True Then
+                                                        FileJobSuccessful = True
+                                                    Else
+                                                        FileJobSuccessful = False
+                                                        Logger.Info("Setting MAILSession.Connected to [false]")
+                                                        MAILSession.Connected = False
+                                                        If IsNothing(_email) Then
+                                                            Logger.Info($"_email is nothing")
+                                                        Else
+                                                            Logger.Info($"{oFileRunNo} - Email_SendMail was not successfull!")
+
+                                                        End If
+
+                                                    End If
+
                                                 Else
                                                     Logger.Warn($"{oFileRunNo} DT_TBDD_EMAIL is nothing or contains no rows")
                                                     Return False
                                                 End If
 
                                             Case "Export HDD".ToUpper
-                                                    Logger.Info($"{oFileRunNo} JobType: Case Export HDD")
+                                                Logger.Debug($"{oFileRunNo} JobType: Case Export HDD")
                                                 'Für jedes Dokument in der Windream-Ergebnisliste
                                                 'For Each dok As WMObject In windreamSucheErgebnisse
                                                 ' aktuelles Dokument zum Export bereitstellen
@@ -254,60 +333,39 @@ Public Class clsProfil
                                                     CountExportedDoc += 1
                                                     FileJobSuccessful = True
                                                     Logger.Info($"{oFileRunNo} Export HDD completed!")
+                                                    Logger.Debug($"{oFileRunNo} Export HDD completed!")
                                                 End If
                                                     'Next
                                             Case "BNS json Download".ToUpper
-                                                    Logger.Info($"{oFileRunNo} JobType: BNS json Download")
+                                                Logger.Debug($"{oFileRunNo} JobType: BNS json Download")
                                                 FileJobSuccessful = _dateiverarbeitung.BNSjsonDownload(WMdok, DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"))
-                                                    'Case "Send to printer".ToUpper
+                                            Case "Archive Document X years from Indexdate".ToUpper
-                                                    '    Logger.Info("JobType: Send to printer")
+                                                Logger.Debug($"{oFileRunNo} JobType: Archive Document X years from Indexdate")
-                                                    '    Dim pdfxchange = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_XCHANGE_LOCATION")
+                                                If IsNumeric(DR_PR_JB.Item("STRING1")) And DR_PR_JB.Item("STRING2").ToString.Length > 0 Then
-                                                    '    Dim printername = DR_PR_JB.Item("STRING1")
+                                                    Dim opDateValue As Object
-                                                    '    Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
+                                                    Try
-                                                    '    Try
+                                                        opDateValue = WMdok.GetVariableValue(DR_PR_JB.Item("STRING2"))
+                                                        Dim odate = CDate(opDateValue)
+                                                    Catch ex As Exception
+                                                        Logger.Info($"Could not convert value {opDateValue.ToString} to date!")
+                                                        Logger.Error(ex)
+                                                    End Try
+                                                    If Not IsNothing(opDateValue) Then
+                                                        If _dateiverarbeitung.Archive_Document(WMdok, "y", DR_PR_JB.Item("STRING1"), opDateValue.ToString) = True Then
+                                                            FileJobSuccessful = True
+                                                        End If
+                                                    End If
 
-                                                    '        If File.Exists(pdfxchange) = False Then
-                                                    '            Logger.Warn("PDFXChange existiert nicht am Ort...")
-                                                    '            Continue For
-                                                    '        End If
-                                                    '        Dim myProcess As New Process
-                                                    '        myProcess.StartInfo.FileName = pdfxchange
-                                                    '        myProcess.StartInfo.UseShellExecute = True
-                                                    '        myProcess.StartInfo.CreateNoWindow = False
-                                                    '        'PDFXCView.exe / Print(): showui = yes c:\mydocument.pdf
-                                                    '        Dim _argument As String = "/printto: """ & printername & """ """ & filename & """"
 
-                                                    '        myProcess.StartInfo.Arguments = _argument
-                                                    '        Logger.Debug("Arguments: " & _argument)
-                                                    '        Try
-                                                    '            myProcess.Start()
-                                                    '            Dim p As Process
-                                                    '            p = Process.GetProcessById(myProcess.Id)
-                                                    '            Dim sw As Stopwatch = New Stopwatch()
-                                                    '            sw.Start()
-                                                    '            Do While p.HasExited = False
-                                                    '                If sw.Elapsed.TotalSeconds = 30 Then
-                                                    '                    Logger.Info("Still waiting (30 sec) for ending of process-id: " & myProcess.Id.ToString)
-                                                    '                ElseIf sw.Elapsed.TotalMinutes = 1 Then
-                                                    '                    Logger.Info("Still waiting (60 sec) for ending of process-id: " & myProcess.Id.ToString & " - Exit now")
-                                                    '                    Exit Do
-                                                    '                End If
-                                                    '            Loop
-                                                    '            Logger.Debug("...process has exited: ")
-                                                    '            FileJobSuccessful = True
-                                                    '            sw.Stop()
-                                                    '        Catch ex As Exception
-                                                    '            Logger.Warn("Could not print (pdfxcv) file: " & filename)
-                                                    '            Logger.Error(ex)
-                                                    '        End Try
-                                                    '    Catch ex As Exception
-                                                    '        Logger.Error(ex)
-                                                    '    End Try
 
 
+                                                End If
+
 
                                         End Select
                                     Next
+
+
                                     '##################################
                                     'JETZT DER DURCHLAUF DER DATEI-JOBS
                                     '##################################
@@ -315,7 +373,7 @@ Public Class clsProfil
                                         'Für jeden File-Job
                                         For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
                                             If FileJobSuccessful = False Then
-                                                    Logger.Info($"{oFileRunNo} AUSSTIEG FOR SCHLEIFE cause FileJobSuccessful = False...")
+                                                Logger.Info($"{oFileRunNo} FileJobSuccessful = False...Exit For")
                                                 Exit For
                                             End If
 
@@ -393,7 +451,6 @@ Public Class clsProfil
 
 
                                                         If arrValue Is Nothing = False Then
-                                                                ' MsgBox("now indexing with: " & idxvalue)
                                                             Dim oErrorOccurred = windream_index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
 
                                                             ' 07.01.2019: Weitere Jobs bei Fehler in RunIndexing überspringen
@@ -412,6 +469,7 @@ Public Class clsProfil
                                                 Case "Rename File with windream Index".ToLower
                                                     Logger.Debug($"{oFileRunNo} Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
                                                     _dateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
+
                                                 Case "Rename File with WMVector (only one)".ToLower
                                                     Logger.Debug($"{oFileRunNo} Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
                                                     _dateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
@@ -442,8 +500,19 @@ Public Class clsProfil
                                     Else
                                         Logger.Warn("KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!")
                                     End If
-                                    Next
 
+                                Next
+                                Try
+                                    If Not IsNothing(_email) Then
+                                        If _email.Connected2Server = True Then
+                                            Logger.Warn("KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!")
+                                            _email.Disconnect()
+                                        End If
+
+                                    End If
+                                Catch ex As Exception
+
+                                End Try
                                 'Jetzt nochmal ein Durchlauf für Profiljobs wo alle Dateien abgearbeitet wurden.
                                 For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
                                     Logger.Info("New run for " & DR_PR_JB.Item("JOB_TYP").ToString.ToUpper)
@@ -557,12 +626,12 @@ Public Class clsProfil
                                                 Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
                                                 Logger.Debug("EMAIL_PROFIL: " & EMAIL_PROFIL)
                                                 If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
-                                                        Dim MAILFROM As String = ""
+                                                    MAILFROM = ""
-                                                        Dim MAILSMTP As String = ""
+                                                    MAILSMTP = ""
-                                                        Dim MAIL_USER As String = ""
+                                                    MAIL_USER = ""
-                                                        Dim MAIL_USER_PW As String = ""
+                                                    MAIL_USER_PW = ""
-                                                        Dim MAIL_AUTH_TYPE As String = "SSL"
+                                                    MAIL_AUTH_TYPE = "SSL"
-                                                        Dim MAIL_PORT As Integer
+                                                    MAIL_PORT = 0
 
                                                     For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
                                                         If emailrow.Item("GUID") = CInt(EMAIL_PROFIL) Then
@@ -590,14 +659,41 @@ Public Class clsProfil
 
                                                         Return False
                                                     End If
+                                                    Dim oSendto As New List(Of String)
+                                                    Dim oSplit = Email_Empfänger.split(";")
+                                                    For Each oMailAdress In oSplit
+                                                        oSendto.Add(oMailAdress)
+                                                    Next
 
-                                                        If _email.Email_Send(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, clsCURRENT.CONCATTED_FILE) = True Then
+                                                    Dim oAttMt As New List(Of String)
-                                                            FileJobSuccessful = True
+                                                    If clsCURRENT.CONCATTED_FILE <> String.Empty Then
+                                                        oAttMt.Add(clsCURRENT.CONCATTED_FILE)
+                                                        clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE)
+                                                    End If
+                                                    If Not IsNothing(_email) And _email.Connected2Server = False And MAILSession.Connected = True Then
+                                                        Logger.Debug("Re/init MAILSession(2)...")
+                                                        MAILSession = _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE)
+                                                        If MAILSession.Connected = True Then
+                                                            Logger.Info($"MAIL: Connection to {MAILSMTP} successfull!")
                                                         Else
-                                                            Logger.Warn("Email_Send_Independentsoft 2 was not successfull!")
+                                                            Logger.Warn($"{oFileRunNo} Email_ConnectToServer was not successfull!")
                                                             FileJobSuccessful = False
                                                         End If
 
+                                                    End If
+
+                                                    If MAILSession.Connected = True Then
+                                                        If _email.SendMail(oSendto, MAILFROM, Email_Betreff, Email_Body, Now, oAttMt, 0) = True Then
+                                                            FileJobSuccessful = True
+                                                        Else
+                                                            Logger.Warn("Email_SendMail(2) was not successfull!")
+                                                            FileJobSuccessful = False
+                                                        End If
+                                                        _email.Disconnect()
+                                                    Else
+                                                        Logger.Warn($"Email_ConnectToServer(2) was not successfull!")
+                                                        FileJobSuccessful = False
+                                                    End If
 
                                                 Else
                                                     Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows")
@@ -610,15 +706,17 @@ Public Class clsProfil
                                             End If
                                         Case "Send to printer".ToUpper
                                             Logger.Info("Working on CASE Send to printer.... ")
-                                                Dim printername = DR_PR_JB.Item("STRING1")
+                                            Dim oPrintername = DR_PR_JB.Item("STRING1")
                                             For Each oFileString As String In clsCURRENT.PROFILE_HandledFiles
                                                 Try
                                                     Dim myproc As Process = New Process()
                                                     myproc.StartInfo.FileName = """" & oFileString & """"
-                                                        myproc.StartInfo.Verb = "printto"
+                                                    myproc.StartInfo.Verb = "printto" '"printto"
-                                                        myproc.StartInfo.Arguments = printername
+                                                    myproc.StartInfo.Arguments = oPrintername
                                                     myproc.StartInfo.UseShellExecute = True
+                                                    Logger.Debug($"Send2Printer [{ myproc.StartInfo.FileName} # Verb:{myproc.StartInfo.Verb} # Arguments: {myproc.StartInfo.Arguments}] ")
                                                     myproc.Start()
+                                                    System.Threading.Thread.Sleep(500)
                                                     Dim p As Process
                                                     p = Process.GetProcessById(myproc.Id)
                                                     Dim sw As Stopwatch = New Stopwatch()
@@ -634,37 +732,55 @@ Public Class clsProfil
                                                     Logger.Debug("...process has exited: ")
                                                     FileJobSuccessful = True
                                                     sw.Stop()
-                                                        ' myproc.Kill()
+                                                    Logger.Info($"Send2Printer successfully [{ myproc.StartInfo.FileName} # Verb:{myproc.StartInfo.Verb} # Arguments: {myproc.StartInfo.Arguments}] ")
+
                                                     File.Delete(oFileString)
                                                     Logger.Debug($"Deleted oFileString [{oFileString}]!")
                                                 Catch ex As Exception
-                                                        Logger.Warn("Could not print (printto) file: " & oFileString)
+                                                    Dim omsg = "ERROR: Could not print (printto) file: " & oFileString
-                                                        Logger.Error(ex)
+                                                    omsg &= vbNewLine & ex.Message
+                                                    Logger.Info(omsg)
+                                                    Logger.Error(ex, omsg)
+                                                    FileJobSuccessful = False
+                                                    Try
+                                                        File.Delete(oFileString)
+                                                    Catch ex1 As Exception
+
+                                                    End Try
+
                                                 End Try
                                             Next
                                         Case "Send InfoMail with WM-Search".ToUpper
                                             Logger.Info("Working on CASE Send InfoMail with WM-Search.... ")
-                                                Dim oWMResults As WMObjects = windream.GetSearchDocuments(DR_PR_JB.Item("STRING5"))
+                                            'Dim oWMResults As WMObjects = windream.GetSearchDocuments(DR_PR_JB.Item("STRING5"))
-                                                If oWMResults Is Nothing Then
+                                            'If oWMResults Is Nothing Then
-                                                    Logger.Warn("windreamSucheErgebnisse is nothing ( Send InfoMail with WM-Search)!", True, "clsProfil.Profil_Durchlauf")
+                                            '    Logger.Warn("windreamSucheErgebnisse is nothing ( Send InfoMail with WM-Search)!", True, "clsProfil.Profil_Durchlauf")
-                                                    Return False
+                                            '    Return False
-                                                End If
+                                            'End If
-                                                If oWMResults.Count > 0 Then
+                                            Try
+                                                If windreamSucheErgebnisse.Count > 0 Then
+                                                    Logger.Debug("windreamSucheErgebnisse.Count > 0 .... ")
                                                     If _JobWork.New_Mail_with_attachment(DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"), DR_PR_JB.Item("STRING3"), DR_PR_JB.Item("STRING4"), clsCURRENT.DT_TBDD_EMAIL, DR_PR_JB.Item("STRING5")) = True Then
                                                         FileJobSuccessful = True
-                                                        If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
+                                                        'If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
-                                                            For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
+                                                        '    For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
-                                                                For Each oWMDoc As WMObject In oWMResults
+                                                        '        For Each oWMDoc As WMObject In oWMResults
-                                                                    _dateiverarbeitung.Check_File_job(oWMDoc, DR_PR_FILE_JOB.Item("TYP").ToString.ToLower, DR_PR_FILE_JOB.Item("STRING1").ToString, DR_PR_FILE_JOB.Item("STRING2").ToString, _profObjekttyp, windream_index)
+                                                        '            _dateiverarbeitung.Check_File_job(oWMDoc, DR_PR_FILE_JOB.Item("TYP").ToString.ToLower, DR_PR_FILE_JOB.Item("STRING1").ToString, DR_PR_FILE_JOB.Item("STRING2").ToString, _profObjekttyp, windream_index)
-                                                                Next
+                                                        '        Next
 
-                                                            Next
+                                                        '    Next
-                                                        End If
+                                                        'End If
 
                                                     End If
                                                 Else
-                                                    Logger.Info("Send InfoMail with WM-Search - oWMResults.Count = 0")
+                                                    Logger.Info("Attention: Send InfoMail with WM-Search - windreamSucheErgebnisse.Count = 0")
+                                                    FileJobSuccessful = False
                                                 End If
+                                            Catch ex As Exception
+                                                Logger.Warn($"Unexpected Error in Case [Send InfoMail with WM-Search] Error: [{ex.Message}]")
+                                                FileJobSuccessful = False
+                                            End Try
+
 
                                     End Select
                                     If FileJobSuccessful = True Then
@@ -681,12 +797,11 @@ Public Class clsProfil
                         ' keine Dateien zum Importieren
                         Logger.Debug("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
                     End If
+
                 End If
 
             End If
-            Else
+
-                Logger.Info("Verarbeitung für heute NICHT konfiguriert")
-            End If
             'Abschluss des Profiles
             _database.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
             Return True

app/ClassWMResulthandler/clsWindream_Allgemein.vb

@@ -43,7 +43,7 @@ Public Class clsWindream_allgemein
         ' wenn ein Fehler bei der Initialisierung auftrat
         If Not Init() Then
             ' Nachricht ausgeben
-            Logger.Warn("Error while initializing WM-Class!!")
+            Logger.Warn("Error while initializing Logger WM-Class!!")
             ' das Programm "abschießen"
             Process.GetCurrentProcess.Kill()
         End If
@@ -59,13 +59,13 @@ Public Class clsWindream_allgemein
         Try
             Dim oHourDifference As Integer
             oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
-            If IsNothing(CURRENToWMConnect) Or oHourDifference >= 2 Then
+            'If IsNothing(CURRENToWMConnect) Or oHourDifference >= 2 Then
             Try
                     'Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
                     oWMSession = CreateObject("Windream.WMSession", GetCurrentServer)
                     ' Connection-Objekt instanziieren
                     oConnect = CreateObject("Windream.WMConnect")
-                    'MsgBox("windrem init 'ed")
+
             Catch ex As Exception
                     Logger.Warn("Could not create WMObjects Session or Connect: " & ex.Message)
                     Return False
@@ -107,12 +107,11 @@ Public Class clsWindream_allgemein
                 CURRENToWMSession = oWMSession
                 CURRENToWMSession_Created = Now
                 Return True
-            Else
+            'Else
-                oWMSession = CURRENToWMSession
+            '    Logger.Debug("oWMSession already created!")
-
+            '    oWMSession = CURRENToWMSession
-                Logger.Debug("oWMSession already created!")
+            '    Return True
-                Return True
+            'End If
-            End If
 
 
 
@@ -331,7 +330,7 @@ Public Class clsWindream_allgemein
     '        '        Return sDrive & ":"
 
     '    Catch ex As Exception
-    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
+
     '    End Try
 
     '    Return ""

app/ClassWMResulthandler/clsWindream_Index.vb

@@ -254,21 +254,24 @@ Public Class clsWindream_Index
                     End If
                     ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                     If oDocument.aObjectType.aName <> Objekttyp Then
+                        Logger.Debug($"aObjectType.aName: [{oDocument.aObjectType.aName}] <> Objekttyp: [{Objekttyp}]")
                         ' ihr den entsprechenden Dokumenttyp zuweisen
                         oDocument.aObjectType = oWMSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
+                        Try
+                            oDocument.Save()
+                        Catch ex As Exception
+                            ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Objekttyp gesetzt werden -> es kann also auch keine
+                            ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
+                            Logger.Warn($"ATTENTION: COULD NOT SET OBJECTTYPE: [{ex.Message}]")
+                            Return False
+                        End Try
                         ' WMObject.aObjectType = selectedProfile.Dokumenttyp
                         Logger.Debug("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
                     Else
                         Logger.Debug("Objekttyp war bereits gesetzt")
                     End If
 
-                    Try
+
-                        oDocument.Save()
-                    Catch ex As Exception
-                        ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine
-                        ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
-                        Return False
-                    End Try
 
                     'Jetzt jeden Indexwert durchlaufen
                     For Each aName As String In Indizes
@@ -286,7 +289,7 @@ Public Class clsWindream_Index
                             'If indexname = "Tournr" Then
 
                             'End If
-                            Logger.Info("Indexierung von Index '" & indexname & "'")
+                            Logger.Debug("Indexierung von Index '" & indexname & "'")
 
                             Dim value = aValues(i)
                             Dim convertValue
@@ -382,7 +385,7 @@ Public Class clsWindream_Index
                                 Case Else
                                     Logger.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!")
                                     Logger.Debug("Versuch des Auslesens (vType): " & vType)
-                                    'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
+
                                     convertValue = ""
                             End Select
                             If vektor = False Then
@@ -562,7 +565,7 @@ Public Class clsWindream_Index
                                 End If
                                 'Jetzt die Nachindexierung für Vektor-Felder
                                 oDocument.SetVariableValue(aName, myArray)
-                                Logger.Info("'SetVariableValue' für VEKTOR erfolgreich")
+                                Logger.Debug("'SetVariableValue' für VEKTOR erfolgreich")
                             End If
                         Else
                             Logger.Debug("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
@@ -583,18 +586,20 @@ Public Class clsWindream_Index
 
                     Return False
                 Else
-                    ' MsgBox("Dokument ist gesperrt, Indexierung erst im nächsten Durchlau", MsgBoxStyle.Critical)
+
-                    Logger.Warn("Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
+                    Logger.Warn("Document is locked, no indexing!")
                     'oDocument.unlock()
                     Return True
                 End If
             End If
         Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
+
             Logger.Error(ex)
             'clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
-            oDocument.Save()
+            If oDocument.aLocked Then
                 oDocument.unlock()
+            End If
+
             Return True
         End Try
     End Function
@@ -615,7 +620,7 @@ Public Class clsWindream_Index
             IndexwertAusWindream = _dok.GetVariableValue(_indexname)
             Return IndexwertAusWindream.ToString
         Catch ex As Exception
-            'MsgBox(ex.Message)
+
             Return Nothing
         End Try
     End Function

app/ClassWMResulthandler/packages.config

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
   <package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" />
-  <package id="NLog" version="4.5.8" targetFramework="net461" />
+  <package id="NLog" version="5.0.5" targetFramework="net462" />
 </packages>

app/DDWDResultHandler/App.config

@@ -4,23 +4,23 @@
     <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
       <section name="DDWDResultHandler.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
     </sectionGroup>
-    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
     <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
-    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
-      <section name="DDWDResultHandler.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
-    </sectionGroup>
   </configSections>
   <connectionStrings />
   <startup>
-    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
   </startup>
   <applicationSettings>
     <DDWDResultHandler.My.MySettings>
       <setting name="SQLSERVER_CS_RH" serializeAs="String">
-        <value>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd</value>
+        <value>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</value>
       </setting>
       <setting name="SQLSERVER_CS_PMRefresh" serializeAs="String">
-        <value />
+        <value>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</value>
+      </setting>
+      <setting name="PMREFRESH_INTERVALL" serializeAs="String">
+        <value>2</value>
       </setting>
     </DDWDResultHandler.My.MySettings>
   </applicationSettings>
@@ -41,13 +41,10 @@
         <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
-  <userSettings>
-    <DDWDResultHandler.My.MySettings>
-      <setting name="PMREFRESH_INTERVALL" serializeAs="String">
-        <value />
-      </setting>
-    </DDWDResultHandler.My.MySettings>
-  </userSettings>
 </configuration>

app/DDWDResultHandler/DDWDResultHandler.vb

@@ -48,11 +48,10 @@ Public Class DDWDResultHandler
             '        Logger.Warn("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS_RH & "' hergestellt werden!")
             '    Else
 
-            If clsCURRENT.LOG_ERRORS_ONLY = False Then
+
-                MyLogger.Debug = True
+            MyLogger.Debug = clsCURRENT.DEBUG
-            Else
+
-                MyLogger.Debug = False
+
-            End If
             oFirstRun = True
             '        '#Thread für Durchlauf generieren
             DDWDResultHandler.threadResultHandler = New BackgroundWorker()
@@ -96,7 +95,6 @@ Public Class DDWDResultHandler
                 If My.Settings.SQLSERVER_CS_RH <> "" Then
                     Logger.Info("Thread ResultHandler will now be started for initial Run..")
                     threadResultHandler.RunWorkerAsync()
-                    Logger.Info("Thread PM Refresh will be started after 2mins for initial Run..")
                 End If
             End If
 
@@ -136,7 +134,7 @@ Public Class DDWDResultHandler
             _database = New clsDatabase(MyLogger)
 
             If My.Settings.SQLSERVER_CS_RH = "" Then
-                Logger.Debug("RESULT HANDLER ConString not configured... No Run")
+                Logger.Warn("RESULT HANDLER ConString not configured... No Run")
                 Exit Sub
             End If
 
@@ -155,10 +153,10 @@ Public Class DDWDResultHandler
                     If DT.Rows.Count = 1 Then
                         clsCURRENT.DT_TBWMRH_KONFIGURATION = DT
                         clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
-                        DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
+                        DD_WMResulthandler.clsCURRENT.DEBUG = Not (DT.Rows(0).Item("LOG_ERRORS_ONLY"))
-                        MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
+                        MyLogger.Debug = Not (DT.Rows(0).Item("LOG_ERRORS_ONLY"))
-                        If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
+                        If DD_WMResulthandler.clsCURRENT.DEBUG = True Then
-                            Logger.Debug("Detaillog is ON!")
+                            Logger.Info("Detaillog is ON!")
                         End If
                         DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
                     End If
@@ -169,10 +167,21 @@ Public Class DDWDResultHandler
                             _PROFIL_ID = CInt(DR.Item("GUID"))
                             _profil = New clsProfil(MyLogger, _PROFIL_ID)
                             'Und nun das Profil durchlaufen
-                            Dim initresult = _profil.Init(_PROFIL_ID)
+                            Dim initresult = _profil.Init(_PROFIL_ID, False)
                             If initresult = True Then
                                 '##### Profildurchlauf ########
                                 _profil.Profil_Durchlauf(False)
+                                For Each oFile As String In clsCURRENT.TEMP_FILES
+                                    If File.Exists(oFile) Then
+                                        Try
+                                            File.Delete(oFile)
+                                        Catch ex As Exception
+
+                                        End Try
+
+                                    End If
+                                Next
+
                             ElseIf initresult = False Then
                                 Logger.Warn("clsProfil konnte nicht initialisiert werden")
                                 notcompleted = True
@@ -185,7 +194,7 @@ Public Class DDWDResultHandler
                             End If
                         Next
                     Else
-                        Logger.Info("Keine aktiven Profile WMResulthandler vorhanden")
+                        Logger.Info("WMResulthandler - No active profiles")
                         notcompleted = True
                     End If
                     'Try
@@ -205,7 +214,7 @@ Public Class DDWDResultHandler
                         threadPMRefresh.RunWorkerAsync()
                     End If
                 Else
-                    Logger.Warn("clsDatabase konnte nicht initialisiert werden!")
+                    Logger.Warn($"clsDatabase konnte nicht initialisiert werden! {My.Settings.SQLSERVER_CS_RH}")
                     notcompleted = True
                 End If
             Else

app/DDWDResultHandler/My Project/AssemblyInfo.vb

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

app/DDWDResultHandler/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()>  _

app/DDWDResultHandler/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -56,8 +56,8 @@ Namespace My
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In"& _ 
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
-            "fo=True;User ID=sa;Password=dd")>  _
+            "Info=True;User ID=sa;Password=dd")>  _
         Public ReadOnly Property SQLSERVER_CS_RH() As String
             Get
                 Return CType(Me("SQLSERVER_CS_RH"),String)
@@ -66,23 +66,21 @@ Namespace My
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
+            "Info=True;User ID=sa;Password=dd")>  _
         Public ReadOnly Property SQLSERVER_CS_PMRefresh() As String
             Get
                 Return CType(Me("SQLSERVER_CS_PMRefresh"),String)
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("2")>  _
-        Public Property PMREFRESH_INTERVALL() As String
+        Public ReadOnly Property PMREFRESH_INTERVALL() As Integer
             Get
-                Return CType(Me("PMREFRESH_INTERVALL"),String)
+                Return CType(Me("PMREFRESH_INTERVALL"),Integer)
             End Get
-            Set
-                Me("PMREFRESH_INTERVALL") = value
-            End Set
         End Property
     End Class
 End Namespace

app/DDWDResultHandler/My Project/Settings.settings

@@ -3,10 +3,13 @@
   <Profiles />
   <Settings>
     <Setting Name="SQLSERVER_CS_RH" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
     </Setting>
     <Setting Name="SQLSERVER_CS_PMRefresh" Type="System.String" Scope="Application">
-      <Value Profile="(Default)" />
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
+    </Setting>
+    <Setting Name="PMREFRESH_INTERVALL" Type="System.Int32" Scope="Application">
+      <Value Profile="(Default)">2</Value>
     </Setting>
   </Settings>
 </SettingsFile>

app/DDWDResultHandler/MyDataset.Designer.vb

@@ -30,7 +30,7 @@ Partial Public Class MyDataset
     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 MyDataset
     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 MyDataset
     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 TBVEKTOR_INDEX() As TBVEKTOR_INDEXDataTable
@@ -87,7 +87,7 @@ Partial Public Class MyDataset
     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 MyDataset
     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 MyDataset
     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 MyDataset
     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 MyDataset
     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 MyDataset = CType(MyBase.Clone,MyDataset)
         cln.InitVars
@@ -135,19 +135,19 @@ Partial Public Class MyDataset
     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 MyDataset
     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 MyDataset
     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.tableTBVEKTOR_INDEX = CType(MyBase.Tables("TBVEKTOR_INDEX"),TBVEKTOR_INDEXDataTable)
         If (initTable = true) Then
@@ -197,7 +197,7 @@ Partial Public Class MyDataset
     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 = "MyDataset"
         Me.Prefix = ""
@@ -209,13 +209,13 @@ Partial Public Class MyDataset
     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 ShouldSerializeTBVEKTOR_INDEX() 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 MyDataset
     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 MyDataset = New MyDataset()
         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -272,7 +272,7 @@ Partial Public Class MyDataset
         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 TBVEKTOR_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_INDEXRowChangeEvent)
     
     '''<summary>
@@ -288,7 +288,7 @@ Partial Public Class MyDataset
         Private columnValue 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 = "TBVEKTOR_INDEX"
@@ -298,7 +298,7 @@ Partial Public Class MyDataset
         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
@@ -316,14 +316,14 @@ Partial Public Class MyDataset
         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 IndexnameColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnIndexname
@@ -331,7 +331,7 @@ Partial Public Class MyDataset
         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 ValueColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnValue
@@ -339,7 +339,7 @@ Partial Public Class MyDataset
         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
@@ -348,33 +348,33 @@ Partial Public Class MyDataset
         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 TBVEKTOR_INDEXRow
             Get
                 Return CType(Me.Rows(index),TBVEKTOR_INDEXRow)
             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 TBVEKTOR_INDEXRowChanging As TBVEKTOR_INDEXRowChangeEventHandler
         
-        <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 TBVEKTOR_INDEXRowChanged As TBVEKTOR_INDEXRowChangeEventHandler
         
-        <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 TBVEKTOR_INDEXRowDeleting As TBVEKTOR_INDEXRowChangeEventHandler
         
-        <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 TBVEKTOR_INDEXRowDeleted As TBVEKTOR_INDEXRowChangeEventHandler
         
         <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 AddTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow)
             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 AddTBVEKTOR_INDEXRow(ByVal Indexname As String, ByVal Value As String) As TBVEKTOR_INDEXRow
             Dim rowTBVEKTOR_INDEXRow As TBVEKTOR_INDEXRow = CType(Me.NewRow,TBVEKTOR_INDEXRow)
             Dim columnValuesArray() As Object = New Object() {Indexname, Value}
@@ -384,7 +384,7 @@ Partial Public Class MyDataset
         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 TBVEKTOR_INDEXDataTable = CType(MyBase.Clone,TBVEKTOR_INDEXDataTable)
             cln.InitVars
@@ -392,20 +392,20 @@ Partial Public Class MyDataset
         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 TBVEKTOR_INDEXDataTable()
         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.columnIndexname = MyBase.Columns("Indexname")
             Me.columnValue = MyBase.Columns("Value")
         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.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnIndexname)
@@ -414,25 +414,25 @@ Partial Public Class MyDataset
         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 NewTBVEKTOR_INDEXRow() As TBVEKTOR_INDEXRow
             Return CType(Me.NewRow,TBVEKTOR_INDEXRow)
         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 TBVEKTOR_INDEXRow(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(TBVEKTOR_INDEXRow)
         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.TBVEKTOR_INDEXRowChangedEvent) Is Nothing) Then
@@ -441,7 +441,7 @@ Partial Public Class MyDataset
         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.TBVEKTOR_INDEXRowChangingEvent) Is Nothing) Then
@@ -450,7 +450,7 @@ Partial Public Class MyDataset
         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.TBVEKTOR_INDEXRowDeletedEvent) Is Nothing) Then
@@ -459,7 +459,7 @@ Partial Public Class MyDataset
         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.TBVEKTOR_INDEXRowDeletingEvent) Is Nothing) Then
@@ -468,13 +468,13 @@ Partial Public Class MyDataset
         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 RemoveTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow)
             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()
@@ -549,14 +549,14 @@ Partial Public Class MyDataset
         Private tableTBVEKTOR_INDEX As TBVEKTOR_INDEXDataTable
         
         <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.tableTBVEKTOR_INDEX = CType(Me.Table,TBVEKTOR_INDEXDataTable)
         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 Indexname() As String
             Get
                 Try 
@@ -571,7 +571,7 @@ Partial Public Class MyDataset
         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 Value() As String
             Get
                 Try 
@@ -586,25 +586,25 @@ Partial Public Class MyDataset
         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 IsIndexnameNull() As Boolean
             Return Me.IsNull(Me.tableTBVEKTOR_INDEX.IndexnameColumn)
         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 SetIndexnameNull()
             Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = 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 IsValueNull() As Boolean
             Return Me.IsNull(Me.tableTBVEKTOR_INDEX.ValueColumn)
         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 SetValueNull()
             Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = Global.System.Convert.DBNull
         End Sub
@@ -613,7 +613,7 @@ Partial Public Class MyDataset
     '''<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 TBVEKTOR_INDEXRowChangeEvent
         Inherits Global.System.EventArgs
         
@@ -622,7 +622,7 @@ Partial Public Class MyDataset
         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 TBVEKTOR_INDEXRow, ByVal action As Global.System.Data.DataRowAction)
             MyBase.New
             Me.eventRow = row
@@ -630,7 +630,7 @@ Partial Public Class MyDataset
         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 TBVEKTOR_INDEXRow
             Get
                 Return Me.eventRow
@@ -638,7 +638,7 @@ Partial Public Class MyDataset
         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

app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj

@@ -1,5 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.props" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" />
   <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -11,7 +12,7 @@
     <AssemblyName>DDWDResultHandler</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Console</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <TargetFrameworkProfile />
     <NuGetPackageImportStamp>
@@ -52,13 +53,13 @@
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\DDModules\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.2.0\lib\net45\EntityFramework.dll</HintPath>
+      <HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll</HintPath>
     </Reference>
     <Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
-      <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+      <HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.SqlServer.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -68,8 +69,8 @@
     <Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
       <HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
-    <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.5.8\lib\net45\NLog.dll</HintPath>
+      <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
@@ -104,6 +105,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="DDWDResultHandler.vb">
       <SubType>Component</SubType>
@@ -182,6 +184,14 @@
     </ProjectReference>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.props'))" />
+    <Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.targets'))" />
+  </Target>
+  <Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.targets" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

app/DDWDResultHandler/clsPMRefresh.vb

@@ -10,7 +10,7 @@ Public Class clsPMRefresh
     Private oConfigIDXName_DocID
     Private oConfigIDXName_Created
     'Private oConfigWMDrive
-    Private oConfigLOGERRONLY As Boolean
+    Private oConfigLOG_DEBUG As Boolean
     Sub New(theLogger As LogConfig)
         MyLogger = theLogger
         Logger = MyLogger.GetLogger()
@@ -32,12 +32,12 @@ Public Class clsPMRefresh
                         oConfigIDXName_DocID = oDTPM_CONFIG.Rows(0).Item("SERVICE_IDXNAME_DOCID").ToString
                         oConfigIDXName_Created = oDTPM_CONFIG.Rows(0).Item("SERVICE_IDXNAME_CREATED").ToString
                         'oConfigWMDrive = oDTPM_CONFIG.Rows(0).Item("SERVICE_WMDRIVE_LETTER").ToString
-                        oConfigLOGERRONLY = oDTPM_CONFIG.Rows(0).Item("SERVICE_LOG_ERRORS_ONLY")
+                        oConfigLOG_DEBUG = Not (oDTPM_CONFIG.Rows(0).Item("SERVICE_LOG_ERRORS_ONLY"))
                         Dim oSplit As String()
                         oSplit = oConfigschedule.Split(";")
                         Dim oTimespan = oSplit(0)
                         Dim oDays = oSplit(1)
-                        If oConfigLOGERRONLY = False Then
+                        If oConfigLOG_DEBUG = True Then
                             MyLogger.Debug = True
                             Logger.Info("Detaillog Service PMRefresh is ON!")
                         Else
@@ -75,6 +75,8 @@ Public Class clsPMRefresh
                                 Return True
                             Else
                                 Logger.Info($"No run of PMRefresh as hour is not in timespan ({CInt(Now.Hour)} >= {oMinHour} And {CInt(Now.Hour)} < {oMaxHour})")
+                                Logger.Info($"Check TBPM_KONFIGURATION Column SERVICE_SCHEDULE")
+
                             End If
                         Else
                             Logger.Info($"No run of PMRefresh as today Is Not configured as RUN")
@@ -97,6 +99,68 @@ Public Class clsPMRefresh
         End Try
 
     End Function
+    Public Function GetSearchDocumentsDTviaSQL(ByVal pSQLCommand As String) As DataTable
+        Dim dtresult As New DataTable
+        dtresult.Columns.Add("DOC_ID", GetType(Integer))
+        dtresult.Columns.Add("PATH", GetType(String))
+        dtresult.Columns.Add("CREATED", GetType(String))
+
+        Try
+            Dim oSQLRESULT As DataTable = _database.Return_Datatable(pSQLCommand)
+            If IsNothing(oSQLRESULT) Then
+                Return dtresult
+            End If
+            'If returnDT = True Then
+            If oSQLRESULT.Rows.Count > 0 Then
+
+                For Each oDocRow As DataRow In oSQLRESULT.Rows
+                    Dim oDOC_ID As Int64
+                    Try
+                        oDOC_ID = oDocRow.Item("IDB_OBJ_ID")
+                    Catch ex As Exception
+                        Try
+                            oDOC_ID = oDocRow.Item("DocID")
+                        Catch ex1 As Exception
+                            Logger.Warn("Could not get DocID-Column: " & ex.Message)
+                            Return dtresult
+                        End Try
+                    End Try
+                    Dim oCreated
+                    Try
+                        oCreated = oDocRow.Item("ADDED_WHEN")
+                    Catch ex As Exception
+                        Try
+                            oCreated = oDocRow.Item("AddedWhen")
+                        Catch ex1 As Exception
+                            Logger.Warn($"(GetSearchDocumentsDTviaSQL)Could not get AddedWhen-Column: [{ex.Message}] - SQL-Command: [{pSQLCommand}]")
+                            Return dtresult
+                        End Try
+                    End Try
+
+                    Dim oPath As String
+                    Try
+                        oPath = oDocRow.Item("DocRelativePath")
+                    Catch ex As Exception
+                        Try
+                            oPath = oDocRow.Item("FULL_FILENAME")
+                        Catch ex1 As Exception
+                            Logger.Warn($"(GetSearchDocumentsDTviaSQL)Could not get FULL_FILENAME-Column: [{ex.Message}] - SQL-Command: [{pSQLCommand}]")
+                            Return dtresult
+                        End Try
+                    End Try
+                    Logger.Debug($"Adding DocInfo {oDOC_ID.ToString}|{oPath}|{oCreated}")
+                    dtresult.Rows.Add(oDOC_ID, oPath, oCreated)
+                Next
+                dtresult.AcceptChanges()
+            End If
+            Return dtresult
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Warn($"Error Getting Docs via SLQ ({pSQLCommand})")
+            Return dtresult
+        End Try
+    End Function
+
     Public Function Refresh_Data()
         Dim oStep As String
         Try
@@ -134,7 +198,13 @@ Public Class clsPMRefresh
                         '---------------------- Die Dateien auslesen ------------------------
                         Dim oDTWM_Results As DataTable
                         oStep = "4c"
+                        If WD_Search.Contains("wdf") Or WD_Search.Contains("wdfx") Then
                             oDTWM_Results = _windream.GetSearchDocumentsDT(WD_Search, oConfigIDXName_DocID, oConfigIDXName_Created, True)
+                        Else
+                            Logger.Debug("Search via SQL")
+                            oDTWM_Results = GetSearchDocumentsDTviaSQL(WD_Search)
+                        End If
+
                         oStep = "4d"
                         Dim oDocCount As Integer = 0
                         If IsNothing(oDTWM_Results) Then
@@ -195,7 +265,7 @@ Public Class clsPMRefresh
                                         oDocCount += 1
                                     Next
 
-                                    Logger.Info($"Profile '{Profile_Row.Item("NAME")} refreshed - FileCount {oDocCount.ToString}")
+                                    Logger.Info($"Profile [{Profile_Row.Item("NAME")}] refreshed - FileCount [{oDocCount.ToString}]")
 
                                 Else
                                     oStep = "4g"
@@ -234,11 +304,11 @@ Public Class clsPMRefresh
                 _database.Execute_non_Query("EXEC PRPM_REMOVE_NE_FILES", My.Settings.SQLSERVER_CS_PMRefresh)
                 oStep = "4k"
             Else
-                Logger.Debug("oDTPROFILES has no rows!")
+                Logger.Info("PM Refresh - No active profiles")
             End If
 
         Catch ex As Exception
-            Logger.Info("Unexpected Error in RUNJob")
+            Logger.Info("Unexpected Error in Refresh_Data")
             Logger.Warn("Error in RunJob- laststep: " & oStep)
             Logger.Error(ex)
         End Try

app/DDWDResultHandler/packages.config

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="EntityFramework" version="6.2.0" targetFramework="net461" />
+  <package id="EntityFramework" version="6.4.4" targetFramework="net461" />
   <package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" />
-  <package id="NLog" version="4.5.8" targetFramework="net461" />
+  <package id="NLog" version="5.0.5" targetFramework="net462" />
 </packages>

app/ResultHandler_Konfig/App.config

@@ -4,15 +4,15 @@
     <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
       <section name="ResultHandler_Konfig.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
     </sectionGroup>
-    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
     <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
+    <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="ResultHandler_Konfig.My.MySettings.SQLSERVER_CS" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd"
+    <add name="ResultHandler_Konfig.My.MySettings.SQLSERVER_CS" 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>
   <startup>
-    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />
   </startup>
   <userSettings>
     <ResultHandler_Konfig.My.MySettings>
@@ -22,6 +22,9 @@
       <setting name="EmailTestReceipiant" serializeAs="String">
         <value />
       </setting>
+      <setting name="Debug_Active" serializeAs="String">
+        <value>False</value>
+      </setting>
     </ResultHandler_Konfig.My.MySettings>
   </userSettings>
   <system.data>
@@ -56,6 +59,10 @@
         <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
 </configuration>

app/ResultHandler_Konfig/ApplicationEvents.vb

@@ -0,0 +1,10 @@
+Namespace My
+    ' Für MyApplication sind folgende Ereignisse verfügbar:
+    ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
+    ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst.  Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
+    ' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
+    ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist. 
+    ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
+    Partial Friend Class MyApplication
+    End Class
+End Namespace

app/ResultHandler_Konfig/My Project/AssemblyInfo.vb

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

app/ResultHandler_Konfig/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()>  _

app/ResultHandler_Konfig/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -54,17 +54,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In"& _ 
-            "fo=True;User ID=sa;Password=dd")>  _
-        Public ReadOnly Property SQLSERVER_CS() As String
-            Get
-                Return CType(Me("SQLSERVER_CS"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("")>  _
@@ -88,6 +77,29 @@ Namespace My
                 Me("EmailTestReceipiant") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property Debug_Active() As Boolean
+            Get
+                Return CType(Me("Debug_Active"),Boolean)
+            End Get
+            Set
+                Me("Debug_Active") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
+            "rity Info=True;User ID=sa;Password=dd")>  _
+        Public ReadOnly Property SQLSERVER_CS() As String
+            Get
+                Return CType(Me("SQLSERVER_CS"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

app/ResultHandler_Konfig/My Project/Settings.settings

@@ -2,19 +2,22 @@
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
   <Settings>
-    <Setting Name="SQLSERVER_CS" 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;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;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=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd</Value>
-    </Setting>
     <Setting Name="BNSAPI_HOST" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
     <Setting Name="EmailTestReceipiant" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="Debug_Active" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="SQLSERVER_CS" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&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>
   </Settings>
 </SettingsFile>

app/ResultHandler_Konfig/My Project/licenses.licx

@@ -1 +1 @@
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/ResultHandler_Konfig/My Project/licenses.licx.bak

@@ -0,0 +1 @@
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/ResultHandler_Konfig/MyDataset.xsc

@@ -9,27 +9,30 @@
     <TableUISetting Name="TBWMRH_PROFIL">
       <ColumnUISettings>
         <ColumnUISetting Name="Reihenfolge">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
     <TableUISetting Name="TBWMRH_PROFIL_FILE_JOB">
       <ColumnUISettings>
         <ColumnUISetting Name="REIHENFOLGE">
-          <ControlSettings>
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
               <BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
+            </ControlSetting></ControlSettings>
-          </ControlSettings>
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
     <TableUISetting Name="TBWMRH_PROFIL_JOB">
       <ColumnUISettings>
+        <ColumnUISetting Name="STRING2">
+          <ControlSettings>
+            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
+              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+            </ControlSetting>
+          </ControlSettings>
+        </ColumnUISetting>
         <ColumnUISetting Name="REIHENFOLGE">
           <ControlSettings>
             <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">

app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj

@@ -1,5 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.props" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" />
   <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -11,7 +12,7 @@
     <AssemblyName>ResultHandler_Konfig</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <TargetFrameworkProfile />
     <NuGetPackageImportStamp>
@@ -54,22 +55,36 @@
     <ApplicationIcon>ico638.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Pdf.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.RichEdit.v21.2.Export, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DigitalData.Modules.Logging">
+    <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DigitalData.Modules.Base, Version=1.0.0.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Messaging, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
     </Reference>
     <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
-      <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.dll</HintPath>
+      <HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.dll</HintPath>
     </Reference>
     <Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
-      <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+      <HintPath>..\packages\EntityFramework.6.4.4\lib\net45\EntityFramework.SqlServer.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -87,12 +102,15 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="Mail">
-    <Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
-      <HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+    <Reference Include="Microsoft.CSharp" />
-      <HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
+    <Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
+    </Reference>
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
@@ -126,6 +144,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ApplicationEvents.vb" />
     <Compile Include="frmMain.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -137,6 +156,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -225,6 +245,14 @@
     </ProjectReference>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.props'))" />
+    <Error Condition="!Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.4.4\build\EntityFramework.targets'))" />
+  </Target>
+  <Import Project="..\packages\EntityFramework.6.4.4\build\EntityFramework.targets" Condition="Exists('..\packages\EntityFramework.6.4.4\build\EntityFramework.targets')" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj.bak

@@ -0,0 +1,242 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{85F6D07F-4C83-41C6-AEF1-66F228C13C25}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>ResultHandler_Konfig.My.MyApplication</StartupObject>
+    <RootNamespace>ResultHandler_Konfig</RootNamespace>
+    <AssemblyName>ResultHandler_Konfig</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>ResultHandler_Konfig.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>ResultHandler_Konfig.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>ico638.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Pdf.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Office.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.RichEdit.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.RichEdit.v18.1.Export, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Sparkline.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DigitalData.Modules.Logging">
+      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Messaging">
+      <HintPath>..\..\..\DDMonorepo\Message\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+    </Reference>
+    <Reference Include="Interop.WINDREAMLib">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Interop.WMOBRWSLib">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOBRWSLib.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Interop.WMOSRCHLib">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOSRCHLib.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Interop.WMOTOOLLib">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
+    </Reference>
+    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
+    <Reference Include="System.Configuration" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.ServiceProcess" />
+    <Reference Include="System.Transactions" />
+    <Reference Include="System.Web.Services" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="frmMain.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmMain.Designer.vb">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="MyDataset.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>MyDataset.xsd</DependentUpon>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmMain.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="MyDataset.xsc">
+      <DependentUpon>MyDataset.xsd</DependentUpon>
+    </None>
+    <None Include="MyDataset.xsd">
+      <SubType>Designer</SubType>
+      <Generator>MSDataSetGenerator</Generator>
+      <LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="MyDataset.xss">
+      <DependentUpon>MyDataset.xsd</DependentUpon>
+    </None>
+    <None Include="packages.config" />
+    <None Include="Resources\flag_green.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\arrow_refresh.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\arrow_switch.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\save.bmp" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\add.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="bin\Debug\x64\SQLite.Interop.dll" />
+    <Content Include="ico638.ico" />
+    <None Include="Resources\refresh_16xMD.png" />
+    <None Include="Resources\folder_Open_16xMD.png" />
+    <None Include="Resources\book_open.png" />
+    <None Include="Resources\key_go.png" />
+    <None Include="Resources\email_go.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <WCFMetadata Include="Connected Services\" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\ClassWMResulthandler\DD_WMResulthandler.vbproj">
+      <Project>{b3190aec-8dc4-4822-9609-54df5b976262}</Project>
+      <Name>DD_WMResulthandler</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

app/ResultHandler_Konfig/frmMain.Designer.vb

@@ -220,7 +220,6 @@ Partial Class frmMain
         Me.TBWMRH_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.PDF_TK_LOCATIONTextBox = New System.Windows.Forms.TextBox()
         Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.WD_LAUFWERKTextBox = New System.Windows.Forms.TextBox()
         Me.GEAENDERTWANNTextBox3 = New System.Windows.Forms.TextBox()
         Me.GEAENDERT_WERTextBox = New System.Windows.Forms.TextBox()
@@ -238,7 +237,7 @@ Partial Class frmMain
         Me.Button4 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.txtTestmail = New System.Windows.Forms.TextBox()
+        Me.txtTestmailTo = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnsendtestmail = New System.Windows.Forms.Button()
         Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
@@ -276,6 +275,7 @@ Partial Class frmMain
         Me.TBWMRH_PROFILTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBWMRH_PROFILTableAdapter()
         Me.TBDD_EMAIL_ACCOUNTTableAdapter = New ResultHandler_Konfig.MyDatasetTableAdapters.TBDD_EMAIL_ACCOUNTTableAdapter()
         Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog()
+        Me.STRING2ComboBox = New System.Windows.Forms.ComboBox()
         GUIDLabel = New System.Windows.Forms.Label()
         ProfilnameLabel = New System.Windows.Forms.Label()
         ObjekttypLabel = New System.Windows.Forms.Label()
@@ -454,7 +454,7 @@ Partial Class frmMain
         JOB_TYPLabel.AutoSize = True
         JOB_TYPLabel.Location = New System.Drawing.Point(299, 61)
         JOB_TYPLabel.Name = "JOB_TYPLabel"
-        JOB_TYPLabel.Size = New System.Drawing.Size(47, 13)
+        JOB_TYPLabel.Size = New System.Drawing.Size(48, 13)
         JOB_TYPLabel.TabIndex = 7
         JOB_TYPLabel.Text = "Job Typ:"
         '
@@ -518,7 +518,7 @@ Partial Class frmMain
         STEP_TYPLabel.AutoSize = True
         STEP_TYPLabel.Location = New System.Drawing.Point(317, 72)
         STEP_TYPLabel.Name = "STEP_TYPLabel"
-        STEP_TYPLabel.Size = New System.Drawing.Size(53, 13)
+        STEP_TYPLabel.Size = New System.Drawing.Size(54, 13)
         STEP_TYPLabel.TabIndex = 8
         STEP_TYPLabel.Text = "Step-Typ:"
         '
@@ -586,7 +586,7 @@ Partial Class frmMain
         LAST_TICKLabel.AutoSize = True
         LAST_TICKLabel.Location = New System.Drawing.Point(322, 18)
         LAST_TICKLabel.Name = "LAST_TICKLabel"
-        LAST_TICKLabel.Size = New System.Drawing.Size(120, 13)
+        LAST_TICKLabel.Size = New System.Drawing.Size(121, 13)
         LAST_TICKLabel.TabIndex = 2
         LAST_TICKLabel.Text = "Last Tick des Dienstes:"
         '
@@ -650,7 +650,7 @@ Partial Class frmMain
         EMAIL_SMTPLabel.AutoSize = True
         EMAIL_SMTPLabel.Location = New System.Drawing.Point(360, 79)
         EMAIL_SMTPLabel.Name = "EMAIL_SMTPLabel"
-        EMAIL_SMTPLabel.Size = New System.Drawing.Size(71, 13)
+        EMAIL_SMTPLabel.Size = New System.Drawing.Size(72, 13)
         EMAIL_SMTPLabel.TabIndex = 9
         EMAIL_SMTPLabel.Text = "SMTP Server:"
         '
@@ -735,7 +735,7 @@ Partial Class frmMain
         PDF_TK_LOCATIONLabel.AutoSize = True
         PDF_TK_LOCATIONLabel.Location = New System.Drawing.Point(6, 61)
         PDF_TK_LOCATIONLabel.Name = "PDF_TK_LOCATIONLabel"
-        PDF_TK_LOCATIONLabel.Size = New System.Drawing.Size(103, 13)
+        PDF_TK_LOCATIONLabel.Size = New System.Drawing.Size(104, 13)
         PDF_TK_LOCATIONLabel.TabIndex = 12
         PDF_TK_LOCATIONLabel.Text = "Speicherort PDFTK:"
         '
@@ -777,7 +777,7 @@ Partial Class frmMain
         'ToolStripStatusLabelVersion
         '
         Me.ToolStripStatusLabelVersion.Name = "ToolStripStatusLabelVersion"
-        Me.ToolStripStatusLabelVersion.Size = New System.Drawing.Size(120, 17)
+        Me.ToolStripStatusLabelVersion.Size = New System.Drawing.Size(119, 17)
         Me.ToolStripStatusLabelVersion.Text = "ToolStripStatusLabel1"
         '
         'TabControlMain
@@ -833,6 +833,7 @@ Partial Class frmMain
         Me.ListViewProfile.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.ListViewProfile.FullRowSelect = True
         Me.ListViewProfile.GridLines = True
+        Me.ListViewProfile.HideSelection = False
         Me.ListViewProfile.Location = New System.Drawing.Point(3, 31)
         Me.ListViewProfile.Name = "ListViewProfile"
         Me.ListViewProfile.Size = New System.Drawing.Size(987, 465)
@@ -894,6 +895,8 @@ Partial Class frmMain
         '
         'TabPage5
         '
+        Me.TabPage5.AutoScroll = True
+        Me.TabPage5.Controls.Add(Me.STRING2ComboBox)
         Me.TabPage5.Controls.Add(Me.REIHENFOLGENumericUpDown)
         Me.TabPage5.Controls.Add(Me.GridControl3)
         Me.TabPage5.Controls.Add(Me.STRING4TextBox)
@@ -1083,6 +1086,7 @@ Partial Class frmMain
         '
         Me.ToolStripTextBox1.AccessibleName = "Position"
         Me.ToolStripTextBox1.AutoSize = False
+        Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
         Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23)
         Me.ToolStripTextBox1.Text = "0"
@@ -1260,7 +1264,7 @@ Partial Class frmMain
         'BOOL1CheckBox
         '
         Me.BOOL1CheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBWMRH_PROFIL_JOBBindingSource, "BOOL1", True))
-        Me.BOOL1CheckBox.Location = New System.Drawing.Point(767, 113)
+        Me.BOOL1CheckBox.Location = New System.Drawing.Point(559, 116)
         Me.BOOL1CheckBox.Name = "BOOL1CheckBox"
         Me.BOOL1CheckBox.Size = New System.Drawing.Size(70, 24)
         Me.BOOL1CheckBox.TabIndex = 18
@@ -1270,7 +1274,7 @@ Partial Class frmMain
         'STRING2TextBox
         '
         Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "STRING2", True))
-        Me.STRING2TextBox.Location = New System.Drawing.Point(254, 159)
+        Me.STRING2TextBox.Location = New System.Drawing.Point(253, 160)
         Me.STRING2TextBox.Name = "STRING2TextBox"
         Me.STRING2TextBox.Size = New System.Drawing.Size(467, 22)
         Me.STRING2TextBox.TabIndex = 12
@@ -1287,7 +1291,7 @@ Partial Class frmMain
         '
         Me.JOB_TYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "JOB_TYP", True))
         Me.JOB_TYPComboBox.FormattingEnabled = True
-        Me.JOB_TYPComboBox.Items.AddRange(New Object() {"Export HDD", "Create Mail Attachment", "BNS json Download", "Concat Files to one pdf", "Send concatted file via mail", "Send to printer", "Send InfoMail with WM-Search"})
+        Me.JOB_TYPComboBox.Items.AddRange(New Object() {"Export HDD", "Create Mail Attachment", "BNS json Download", "Concat Files to one pdf", "Send concatted file via mail", "Send to printer", "Send InfoMail with WM-Search", "Archive Document X years from Indexdate"})
         Me.JOB_TYPComboBox.Location = New System.Drawing.Point(302, 77)
         Me.JOB_TYPComboBox.Name = "JOB_TYPComboBox"
         Me.JOB_TYPComboBox.Size = New System.Drawing.Size(251, 21)
@@ -1474,6 +1478,7 @@ Partial Class frmMain
         '
         Me.ToolStripTextBox2.AccessibleName = "Position"
         Me.ToolStripTextBox2.AutoSize = False
+        Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
         Me.ToolStripTextBox2.Size = New System.Drawing.Size(50, 23)
         Me.ToolStripTextBox2.Text = "0"
@@ -1634,7 +1639,7 @@ Partial Class frmMain
         'STRING1TextBoxFile_Job
         '
         Me.STRING1TextBoxFile_Job.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "STRING1", True))
-        Me.STRING1TextBoxFile_Job.Location = New System.Drawing.Point(253, 129)
+        Me.STRING1TextBoxFile_Job.Location = New System.Drawing.Point(253, 130)
         Me.STRING1TextBoxFile_Job.Name = "STRING1TextBoxFile_Job"
         Me.STRING1TextBoxFile_Job.Size = New System.Drawing.Size(299, 22)
         Me.STRING1TextBoxFile_Job.TabIndex = 41
@@ -1841,7 +1846,7 @@ Partial Class frmMain
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(247, 178)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(54, 13)
+        Me.Label2.Size = New System.Drawing.Size(55, 13)
         Me.Label2.TabIndex = 1
         Me.Label2.Text = "Start-Typ:"
         '
@@ -2060,6 +2065,7 @@ Partial Class frmMain
         '
         Me.BindingNavigatorPositionItem.AccessibleName = "Position"
         Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
         Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
         Me.BindingNavigatorPositionItem.Text = "0"
@@ -2223,7 +2229,6 @@ Partial Class frmMain
         Me.GroupBox2.Controls.Add(PDF_TK_LOCATIONLabel)
         Me.GroupBox2.Controls.Add(Me.PDF_TK_LOCATIONTextBox)
         Me.GroupBox2.Controls.Add(Me.Button3)
-        Me.GroupBox2.Controls.Add(Me.Button1)
         Me.GroupBox2.Controls.Add(WD_LAUFWERKLabel)
         Me.GroupBox2.Controls.Add(Me.WD_LAUFWERKTextBox)
         Me.GroupBox2.Controls.Add(Me.GEAENDERTWANNTextBox3)
@@ -2292,18 +2297,6 @@ Partial Class frmMain
         Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button3.UseVisualStyleBackColor = True
         '
-        'Button1
-        '
-        Me.Button1.Image = Global.ResultHandler_Konfig.My.Resources.Resources.book_open
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(221, 159)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(110, 23)
-        Me.Button1.TabIndex = 10
-        Me.Button1.Text = "Open LogFile"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.UseVisualStyleBackColor = True
-        '
         'WD_LAUFWERKTextBox
         '
         Me.WD_LAUFWERKTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_KONFIGURATIONBindingSource, "WD_LAUFWERK", True))
@@ -2344,7 +2337,9 @@ Partial Class frmMain
         '
         'LOG_ERRORS_ONLYCheckBox
         '
+        Me.LOG_ERRORS_ONLYCheckBox.Checked = Global.ResultHandler_Konfig.My.MySettings.Default.Debug_Active
         Me.LOG_ERRORS_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBWMRH_KONFIGURATIONBindingSource, "LOG_ERRORS_ONLY", True))
+        Me.LOG_ERRORS_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.ResultHandler_Konfig.My.MySettings.Default, "Debug_Active", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.LOG_ERRORS_ONLYCheckBox.Location = New System.Drawing.Point(9, 158)
         Me.LOG_ERRORS_ONLYCheckBox.Name = "LOG_ERRORS_ONLYCheckBox"
         Me.LOG_ERRORS_ONLYCheckBox.Size = New System.Drawing.Size(129, 24)
@@ -2372,7 +2367,7 @@ Partial Class frmMain
         Me.TabPage4.Controls.Add(Label5)
         Me.TabPage4.Controls.Add(Me.txtnewpasswort)
         Me.TabPage4.Controls.Add(Me.Button4)
-        Me.TabPage4.Controls.Add(Me.txtTestmail)
+        Me.TabPage4.Controls.Add(Me.txtTestmailTo)
         Me.TabPage4.Controls.Add(Me.Label1)
         Me.TabPage4.Controls.Add(Me.btnsendtestmail)
         Me.TabPage4.Controls.Add(GUIDLabel3)
@@ -2409,7 +2404,7 @@ Partial Class frmMain
         '
         'Button6
         '
-        Me.Button6.Location = New System.Drawing.Point(872, 347)
+        Me.Button6.Location = New System.Drawing.Point(555, 357)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(30, 23)
         Me.Button6.TabIndex = 38
@@ -2418,7 +2413,7 @@ Partial Class frmMain
         '
         'txtAttachment
         '
-        Me.txtAttachment.Location = New System.Drawing.Point(395, 347)
+        Me.txtAttachment.Location = New System.Drawing.Point(78, 357)
         Me.txtAttachment.Name = "txtAttachment"
         Me.txtAttachment.Size = New System.Drawing.Size(471, 22)
         Me.txtAttachment.TabIndex = 37
@@ -2426,15 +2421,15 @@ Partial Class frmMain
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(392, 331)
+        Me.Label6.Location = New System.Drawing.Point(75, 341)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(91, 13)
+        Me.Label6.Size = New System.Drawing.Size(92, 13)
         Me.Label6.TabIndex = 36
         Me.Label6.Text = "Test Attachment:"
         '
         'Button5
         '
-        Me.Button5.Location = New System.Drawing.Point(294, 381)
+        Me.Button5.Location = New System.Drawing.Point(284, 391)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(95, 23)
         Me.Button5.TabIndex = 35
@@ -2449,7 +2444,7 @@ Partial Class frmMain
         Me.AUTH_TYPEComboBox.Items.AddRange(New Object() {"SSL", "TLS", "None"})
         Me.AUTH_TYPEComboBox.Location = New System.Drawing.Point(688, 95)
         Me.AUTH_TYPEComboBox.Name = "AUTH_TYPEComboBox"
-        Me.AUTH_TYPEComboBox.Size = New System.Drawing.Size(121, 21)
+        Me.AUTH_TYPEComboBox.Size = New System.Drawing.Size(178, 21)
         Me.AUTH_TYPEComboBox.TabIndex = 34
         '
         'TBDD_EMAIL_ACCOUNTBindingSource
@@ -2490,21 +2485,24 @@ Partial Class frmMain
         Me.EncryptToolStripMenuItem.Size = New System.Drawing.Size(114, 22)
         Me.EncryptToolStripMenuItem.Text = "encrypt"
         '
-        'txtTestmail
+        'txtTestmailTo
         '
-        Me.txtTestmail.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ResultHandler_Konfig.My.MySettings.Default, "EmailTestReceipiant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.txtTestmailTo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-        Me.txtTestmail.Location = New System.Drawing.Point(78, 347)
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtTestmail.Name = "txtTestmail"
+        Me.txtTestmailTo.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ResultHandler_Konfig.My.MySettings.Default, "EmailTestReceipiant", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txtTestmail.Size = New System.Drawing.Size(311, 22)
+        Me.txtTestmailTo.Location = New System.Drawing.Point(78, 315)
-        Me.txtTestmail.TabIndex = 29
+        Me.txtTestmailTo.Multiline = True
-        Me.txtTestmail.Text = Global.ResultHandler_Konfig.My.MySettings.Default.EmailTestReceipiant
+        Me.txtTestmailTo.Name = "txtTestmailTo"
+        Me.txtTestmailTo.Size = New System.Drawing.Size(1300, 23)
+        Me.txtTestmailTo.TabIndex = 29
+        Me.txtTestmailTo.Text = Global.ResultHandler_Konfig.My.MySettings.Default.EmailTestReceipiant
         '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(75, 331)
+        Me.Label1.Location = New System.Drawing.Point(75, 299)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(85, 13)
+        Me.Label1.Size = New System.Drawing.Size(86, 13)
         Me.Label1.TabIndex = 28
         Me.Label1.Text = "Testempfänger:"
         '
@@ -2512,7 +2510,7 @@ Partial Class frmMain
         '
         Me.btnsendtestmail.Image = Global.ResultHandler_Konfig.My.Resources.Resources.email_go
         Me.btnsendtestmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnsendtestmail.Location = New System.Drawing.Point(78, 375)
+        Me.btnsendtestmail.Location = New System.Drawing.Point(78, 385)
         Me.btnsendtestmail.Name = "btnsendtestmail"
         Me.btnsendtestmail.Size = New System.Drawing.Size(200, 35)
         Me.btnsendtestmail.TabIndex = 27
@@ -2535,7 +2533,7 @@ Partial Class frmMain
         Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "NAME", True))
         Me.NAMETextBox.Location = New System.Drawing.Point(78, 54)
         Me.NAMETextBox.Name = "NAMETextBox"
-        Me.NAMETextBox.Size = New System.Drawing.Size(276, 22)
+        Me.NAMETextBox.Size = New System.Drawing.Size(588, 22)
         Me.NAMETextBox.TabIndex = 6
         '
         'EMAIL_FROMTextBox
@@ -2692,6 +2690,7 @@ Partial Class frmMain
         '
         Me.ToolStripTextBox3.AccessibleName = "Position"
         Me.ToolStripTextBox3.AutoSize = False
+        Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
         Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 23)
         Me.ToolStripTextBox3.Text = "0"
@@ -2789,6 +2788,15 @@ Partial Class frmMain
         '
         Me.OpenFileDialog2.FileName = "OpenFileDialog2"
         '
+        'STRING2ComboBox
+        '
+        Me.STRING2ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "STRING2", True))
+        Me.STRING2ComboBox.FormattingEnabled = True
+        Me.STRING2ComboBox.Location = New System.Drawing.Point(254, 160)
+        Me.STRING2ComboBox.Name = "STRING2ComboBox"
+        Me.STRING2ComboBox.Size = New System.Drawing.Size(178, 21)
+        Me.STRING2ComboBox.TabIndex = 110
+        '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2987,7 +2995,6 @@ Partial Class frmMain
     Friend WithEvents TBWMRH_PROFIL_FILE_JOBTableAdapter As MyDatasetTableAdapters.TBWMRH_PROFIL_FILE_JOBTableAdapter
     Friend WithEvents TBWMRH_PROFIL_JOBTableAdapter As MyDatasetTableAdapters.TBWMRH_PROFIL_JOBTableAdapter
     Friend WithEvents WD_LAUFWERKTextBox As TextBox
-    Friend WithEvents Button1 As Button
     Friend WithEvents lblString2 As Label
     Friend WithEvents btnTestCon As Button
     Friend WithEvents lblndexname As Label
@@ -3027,7 +3034,7 @@ Partial Class frmMain
     Friend WithEvents CHANGED_WHOTextBox As TextBox
     Friend WithEvents CHANGED_WHENTextBox As TextBox
     Friend WithEvents btnsendtestmail As Button
-    Friend WithEvents txtTestmail As TextBox
+    Friend WithEvents txtTestmailTo As TextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents Button4 As Button
     Friend WithEvents txtnewpasswort As TextBox
@@ -3069,4 +3076,5 @@ Partial Class frmMain
     Friend WithEvents txtAttachment As TextBox
     Friend WithEvents Label6 As Label
     Friend WithEvents Button6 As Button
+    Friend WithEvents STRING2ComboBox As ComboBox
 End Class

app/ResultHandler_Konfig/frmMain.resx

@@ -252,68 +252,12 @@
   <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>440, 95</value>
   </metadata>
-  <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+  <metadata name="TBWMRH_PROFIL_JOBBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>330, 95</value>
+    <value>238, 17</value>
+  </metadata>
+  <metadata name="TBWMRH_PROFIL_JOBBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>238, 17</value>
   </metadata>
-  <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
-        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
-        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI
-        DAAAAk1TRnQBSQFMAgEBAwEAAXgBAwF4AQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
-        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
-        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
-        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
-        AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
-        AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
-        AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
-        ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
-        AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
-        AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
-        AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
-        AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
-        AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
-        AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
-        AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
-        AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
-        ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
-        Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
-        AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
-        AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
-        AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
-        ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
-        Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
-        AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
-        AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
-        AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
-        AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
-        AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
-        AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wIAAf8B7wH3AfQFAAFy
-        AU8BSQGSAf8CAAH/Ae8B9wH0BgAB/wLvAf8CAAH/Ae8B9wH0BQABFwQgAUYRAAH/AQcB8QEHAbwBkQKL
-        AZEBcgF4AZcBSQHzAgAB/wEHAfEBBwG9ARYCFwEWARoBBwHxAe8B/wIAAf8BBwHxAQcBvAGRAosBkQEg
-        AUcDRgEgEgAB9AHwAQcFiwFyAngBlwFPAfQCAAH0AfABBwHjARYClAEWAW8CBwH0BAAB9AHwAQcFiwEg
-        ARcDRgEgEgAB8QGRAYsFtAFyAZgBlwGYAZcBTwIAARoBFgGUAZMB4wEXAUcBFwKTAW8BGgQAAfEBkQGL
-        BbQB+QEXAkcBFwEgEQAB9AG0Aa0BtAG1AfEC/wHxAZcBmAF4AZgBlwFPAQAB9AEWApQBFgG9Av8BGwHj
-        AhYB4wH0AgAB9AG0Aa0BtAG1AfEC/wHxAfkEFwEgEQABvAGzAbQBtQX/AZcCmAF4AXIB9AEAAb0BFgGU
-        ARYG/wHjAZMB4wEaAgABvAGzAbQBtQX/AeME+QEXEQABtQG0AbUBGQL0AQcB8wH/AZcCmAGXAfcCAAKU
-        AeMBGgL/AQcB9AL/Ab0BFwIWAgABtQG0AbUBGQL0AQcB8wH/ARkBCQK0AbUSAAK0AbUD9ALsAbwDlwK0
-        AgABFgGUARcC/wH0AuwB8AH/AfQBRwGUARcCAAK0AbUD9ALsAbwB/wEZA7QSAAK0AbUB9AL/AewB7wHs
-        AQcBCAO0AgABFgGUAeMD/wHsAe8B7AG8AfQBRwGUARcCAAK0AbUB9AL/AewB7wHsAQcBGQO0EgABuwG0
-        AbsBGQH/AfQBkgH0Af8B7wEZAbUBtAG7AgAClAEWARsC/wGSAv8BBwEaAeMCFgIAAbsBtAG7ARkB/wH0
-        AZIB9AH/Ae8BGQG1AbQBuxIAAfABtAG7AQkB/wH0AfID/wK7AbQB8AIAARoBFgKUAv8B8wP/ARYBlAHj
-        Ab0CAAHwAbQBuwEJAf8B9AHyA/8CuwG0AfARAAH0AVgBUgG7AgkB8wL0AfMBCQG7ARwBUgF5Af8B9AJS
-        A5QB8wL/AfMClAF1AVIBeQH/AfQBWAFSAbsCCQHzAvQB8wEJAbsBHAFSAXkB/xAAARoBmgF6AVIDCQK1
-        AgkBuwFYARoBegH/ARoBmgF6AVMBlAGaAZQC4wEWAZQBdQFTARoBegH/ARoBmgF6AVIDCQK1AgkBuwFY
-        ARoBegH/EAABGgF6AcMBegFYAdwECQG7AVICmgF6Af8BGgF6AcMBegFTARYElAEWAVMCmgF6Af8BGgF6
-        AcMBegFYAdwECQG7AVICmgF6Af8QAAH/ARoBegHDAXoBmQEJAtwBCQGZAXoBmgF6AfYBAAH/ARoBegHD
-        AnoBlAIWAZQCegGaAXoB9gEAAf8BGgF6AcMBegGZAQkC3AEJAZkBegGaAXoB9hIAAf8BGgFZAXoB/wQA
-        Af8BWQF6AfYDAAH/ARoBWQF6Af8EAAH/AVkBegH2AwAB/wEaAVkBegH/BAAB/wFZAXoB9hIAAUIBTQE+
-        BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAGHAcEBhwHhAYcBwAIAAYABAQGAAQEBgAMA
-        AcABAAHAAQMBwAMAAcABAAHAAQMBwAMAAYABAAGAAQEBgAMAAYABAAGAAQEBgAMAAYABAQGAAQEBgAEB
-        AgABgAEBAYABAQGAAQECAAGAAQEBgAEBAYABAQIAAYABAQGAAQEBgAEBAgABgAEBAYABAQGAAQEbAAEB
-        AQABAQEAAQECAAGDAcMBgwHDAYMBwwIACw==
-</value>
-  </data>
   <metadata name="TBWMRH_PROFIL_JOBBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>238, 17</value>
   </metadata>
@@ -395,6 +339,86 @@
         dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII=
 </value>
   </data>
+  <metadata name="TBPROFIL_FILE_JOBBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="TBWMRH_PROFILBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>496, 56</value>
+  </metadata>
+  <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1108, 95</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>440, 95</value>
+  </metadata>
+  <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>330, 95</value>
+  </metadata>
+  <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
+        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI
+        DAAAAk1TRnQBSQFMAgEBAwEAAagBAwGoAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+        AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+        AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+        AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+        ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+        AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+        AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+        AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+        AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+        AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+        AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+        AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+        AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+        ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+        Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+        AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+        AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+        AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+        ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+        Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+        AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+        AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+        AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+        AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+        AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+        AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wIAAf8B7wH3AfQFAAFy
+        AU8BSQGSAf8CAAH/Ae8B9wH0BgAB/wLvAf8CAAH/Ae8B9wH0BQABFwQgAUYRAAH/AQcB8QEHAbwBkQKL
+        AZEBcgF4AZcBSQHzAgAB/wEHAfEBBwG9ARYCFwEWARoBBwHxAe8B/wIAAf8BBwHxAQcBvAGRAosBkQEg
+        AUcDRgEgEgAB9AHwAQcFiwFyAngBlwFPAfQCAAH0AfABBwHjARYClAEWAW8CBwH0BAAB9AHwAQcFiwEg
+        ARcDRgEgEgAB8QGRAYsFtAFyAZgBlwGYAZcBTwIAARoBFgGUAZMB4wEXAUcBFwKTAW8BGgQAAfEBkQGL
+        BbQB+QEXAkcBFwEgEQAB9AG0Aa0BtAG1AfEC/wHxAZcBmAF4AZgBlwFPAQAB9AEWApQBFgG9Av8BGwHj
+        AhYB4wH0AgAB9AG0Aa0BtAG1AfEC/wHxAfkEFwEgEQABvAGzAbQBtQX/AZcCmAF4AXIB9AEAAb0BFgGU
+        ARYG/wHjAZMB4wEaAgABvAGzAbQBtQX/AeME+QEXEQABtQG0AbUBGQL0AQcB8wH/AZcCmAGXAfcCAAKU
+        AeMBGgL/AQcB9AL/Ab0BFwIWAgABtQG0AbUBGQL0AQcB8wH/ARkBCQK0AbUSAAK0AbUD9ALsAbwDlwK0
+        AgABFgGUARcC/wH0AuwB8AH/AfQBRwGUARcCAAK0AbUD9ALsAbwB/wEZA7QSAAK0AbUB9AL/AewB7wHs
+        AQcBCAO0AgABFgGUAeMD/wHsAe8B7AG8AfQBRwGUARcCAAK0AbUB9AL/AewB7wHsAQcBGQO0EgABuwG0
+        AbsBGQH/AfQBkgH0Af8B7wEZAbUBtAG7AgAClAEWARsC/wGSAv8BBwEaAeMCFgIAAbsBtAG7ARkB/wH0
+        AZIB9AH/Ae8BGQG1AbQBuxIAAfABtAG7AQkB/wH0AfID/wK7AbQB8AIAARoBFgKUAv8B8wP/ARYBlAHj
+        Ab0CAAHwAbQBuwEJAf8B9AHyA/8CuwG0AfARAAH0AVgBUgG7AgkB8wL0AfMBCQG7ARwBUgF5Af8B9AJS
+        A5QB8wL/AfMClAF1AVIBeQH/AfQBWAFSAbsCCQHzAvQB8wEJAbsBHAFSAXkB/xAAARoBmgF6AVIDCQK1
+        AgkBuwFYARoBegH/ARoBmgF6AVMBlAGaAZQC4wEWAZQBdQFTARoBegH/ARoBmgF6AVIDCQK1AgkBuwFY
+        ARoBegH/EAABGgF6AcMBegFYAdwECQG7AVICmgF6Af8BGgF6AcMBegFTARYElAEWAVMCmgF6Af8BGgF6
+        AcMBegFYAdwECQG7AVICmgF6Af8QAAH/ARoBegHDAXoBmQEJAtwBCQGZAXoBmgF6AfYBAAH/ARoBegHD
+        AnoBlAIWAZQCegGaAXoB9gEAAf8BGgF6AcMBegGZAQkC3AEJAZkBegGaAXoB9hIAAf8BGgFZAXoB/wQA
+        Af8BWQF6AfYDAAH/ARoBWQF6Af8EAAH/AVkBegH2AwAB/wEaAVkBegH/BAAB/wFZAXoB9hIAAUIBTQE+
+        BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAGHAcEBhwHhAYcBwAIAAYABAQGAAQEBgAMA
+        AcABAAHAAQMBwAMAAcABAAHAAQMBwAMAAYABAAGAAQEBgAMAAYABAAGAAQEBgAMAAYABAQGAAQEBgAEB
+        AgABgAEBAYABAQGAAQECAAGAAQEBgAEBAYABAQIAAYABAQGAAQEBgAEBAgABgAEBAYABAQGAAQEbAAEB
+        AQABAQEAAQECAAGDAcMBgwHDAYMBwwIACw==
+</value>
+  </data>
+  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>547, 95</value>
+  </metadata>
+  <metadata name="TBWMRH_PROFIL_FILE_JOBBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>760, 17</value>
+  </metadata>
   <metadata name="TBWMRH_PROFIL_FILE_JOBBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>760, 17</value>
   </metadata>
@@ -475,6 +499,9 @@
   <metadata name="TBWMRH_PROFILBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>269, 56</value>
   </metadata>
+  <metadata name="TBWMRH_PROFILBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>269, 56</value>
+  </metadata>
   <metadata name="TBWMRH_PROFILBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>496, 56</value>
   </metadata>
@@ -552,6 +579,12 @@
   <metadata name="TBWMRH_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>739, 56</value>
   </metadata>
+  <metadata name="TBWMRH_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>739, 56</value>
+  </metadata>
+  <metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
   <metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 134</value>
   </metadata>

app/ResultHandler_Konfig/frmMain.vb

@@ -1,14 +1,15 @@
 Imports System.ServiceProcess
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Messaging
 Imports DD_WMResulthandler
 Imports System.Net.Mail
 Imports System.Net
+Imports DigitalData.Modules.Messaging.Mail
 
 Public Class frmMain
     Private _windream As clsWindream_allgemein
     Private _database As clsDatabase
     Private _profil As clsProfil
-    Private _email As clsEmail
     Dim MyLogger As LogConfig
     Dim Logger As Logger
     Dim switchRecord As Boolean = True
@@ -30,12 +31,16 @@ Public Class frmMain
         '        DB_Path()
         '    End If
         'End If
-        MyLogger = New LogConfig(LogConfig.PathType.AppData, Nothing, "Log")
+        MyLogger = New LogConfig(LogConfig.PathType.CustomPath,
+                                       Application.LocalUserAppDataPath & "\Log",
+                                        Nothing,
+                                        My.Application.Info.CompanyName,
+                                        My.Application.Info.ProductName)
+        MyLogger.Debug = True
         Logger = MyLogger.GetLogger()
         Load_Constring()
         _database = New clsDatabase(MyLogger)
-        _email = New clsEmail(MyLogger)
+        Logger.Info("WMKonfig started: " & Now.ToString)
-        Logger.Info("Konfig started: " & Now.ToString)
         Try
             ' Windream instanziieren
             _windream = New clsWindream_allgemein(MyLogger)
@@ -127,7 +132,7 @@ Public Class frmMain
         Try
             'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBWMRH_TBKONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.
             Me.TBWMRH_KONFIGURATIONTableAdapter.Fill(Me.MyDataset.TBWMRH_KONFIGURATION)
-            clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
+            clsCURRENT.LogErrorsOnly = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
             clsCURRENT.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
@@ -479,7 +484,9 @@ Public Class frmMain
         lblString3.Text = ""
         lblString4.Text = ""
         lblString5.Text = ""
+        BOOL1CheckBox.Visible = False
         STRING1TextBox.Visible = False
+        STRING1TextBox.Size = New Size(466, 22)
         STRING2TextBox.Visible = False
         STRING3TextBox.Visible = False
         STRING4TextBox.Visible = False
@@ -487,6 +494,7 @@ Public Class frmMain
         STRING3TextBox.Multiline = False
         STRING3TextBox1.Visible = False
         STRING5TextBox.Visible = False
+        STRING2ComboBox.Visible = False
 
         Select Case JOB_TYPComboBox.Text.ToUpper
             Case "Export HDD".ToUpper
@@ -503,8 +511,10 @@ Public Class frmMain
                 lblString4.Visible = True
                 STRING3TextBox.Visible = False
                 STRING3TextBox1.Visible = True
-
                 STRING4TextBox.Visible = True
+                STRING5TextBox.Visible = True
+                lblString5.Text = "Benennung Datei:"
+                lblString5.Visible = True
             Case "BNS json Download".ToUpper 'json BNS
                 lblString1.Text = "User Kunde:"
                 STRING1TextBox.Visible = True
@@ -541,6 +551,37 @@ Public Class frmMain
                 STRING4TextBox.Visible = True
                 lblString5.Text = "Pfad zu WM-Suche:"
                 STRING5TextBox.Visible = True
+            Case "Archive Document X years from Indexdate".ToUpper
+                lblString1.Text = "Archivdauer in Jahren:"
+                STRING1TextBox.Size = New Size(53, 22)
+                STRING1TextBox.Visible = True
+                lblString2.Text = "Index mit Startdatum:"
+                STRING2ComboBox.Items.Clear()
+                Dim indexe = _windream.GetIndicesByObjecttype(ObjekttypComboBox.Text)
+                If indexe IsNot Nothing Then
+                    For Each index As String In indexe
+                        Select Case _windream.GetTypeOfIndexAsIntByName(index)
+                            Case 3 'Float
+                                '
+                            Case 4
+                            '    Me.STRING2ComboBox.Items.Add(index)
+                            Case 1
+                            '    Me.STRING2ComboBox.Items.Add(index)
+                            Case 2
+                            '    Me.STRING2ComboBox.Items.Add(index)
+                            Case 5
+                                Me.STRING2ComboBox.Items.Add(index)
+                            Case Else
+                                'MsgBox(_windream.GetTypeOfIndexAsIntByName(index))
+                        End Select
+
+
+                    Next
+                End If
+                STRING2ComboBox.Visible = True
+                BOOL1CheckBox.Text = "Nach Ablauf der Archivierungsdauer automatisch löschen"
+                'BOOL1CheckBox.Visible = True
+
         End Select
     End Sub
     Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
@@ -613,6 +654,7 @@ Public Class frmMain
                     STRING1TextBoxFile_Job.Visible = True
                     STRING2TextBoxProfil_FileJob.Visible = True
                     lblString2FileJobs.Visible = True
+
             End Select
 
         End If
@@ -675,9 +717,9 @@ Public Class frmMain
                 If DT.Rows.Count = 1 Then
                     clsCURRENT.DT_TBWMRH_KONFIGURATION = DT
                     clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
-                    DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
+                    DD_WMResulthandler.clsCURRENT.LogErrorsOnly = DT.Rows(0).Item("LOG_ERRORS_ONLY")
-                    MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
+                    'MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
-                    If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
+                    If DD_WMResulthandler.clsCURRENT.LogErrorsOnly = False Then
                         Logger.Debug("Detaillog is ON!")
                     End If
                     DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
@@ -691,7 +733,7 @@ Public Class frmMain
                         For Each DR As DataRow In DT.Rows
                             clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
                             'Und nun das Profil durchlaufen
-                            Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID)
+                            Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID, True)
                             If initresult = True Then
                                 _profil.Profil_Durchlauf(True)
                             ElseIf initresult = False Then
@@ -741,7 +783,7 @@ Public Class frmMain
 
     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)
         Try
             Process.Start(MyLogger.LogFile)
         Catch ex As Exception
@@ -843,7 +885,7 @@ Public Class frmMain
 
             mymesssage.From = New MailAddress(EMAIL_FROMTextBox.Text)
             mymesssage.Subject = "TestSubject from RAW Method"
-            mymesssage.To.Add(New MailAddress(txtTestmail.Text))
+            mymesssage.To.Add(New MailAddress(txtTestmailTo.Text))
 
             If txtAttachment.Text <> String.Empty Then
                 Dim oAttment As String = txtAttachment.Text.Replace("W:\", "\\windream\objects\")
@@ -869,22 +911,41 @@ Public Class frmMain
 
     End Sub
     Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click
+        '   Dim _ss2email As New Email(MyLogger)
+        Dim oSender As New MailSender(MyLogger)
 
-
+        If txtTestmailTo.Text <> String.Empty Then
-        If txtTestmail.Text <> String.Empty Then
             My.Settings.Save()
             Dim wrapper As New clsEncryption("!35452didalog=")
 
             Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
-
+            Dim oSession = oSender.Connect(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text)
-
+            If oSession.Connected = True Then
-            If _email.Email_Send("Testmail from GUI WMResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
+                Dim oSendto As New List(Of String)
-                                EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, txtAttachment.Text, True) = True Then
+                oSendto.Add(txtTestmailTo.Text)
-                MsgBox("Email(s) has/have been sent successfully.", MsgBoxStyle.Information)
+                Dim oAttMt As New List(Of String)
+                If txtAttachment.Text <> String.Empty Then
+                    oAttMt.Add(txtAttachment.Text)
+                End If
+                If oSender.SendMail(oSendto, EMAIL_FROMTextBox.Text, "Testmail from GUI WMResultHandler", "TEST", Now, oAttMt, 1) = True Then
+                    MsgBox("Email has been sent successfully.", MsgBoxStyle.Information)
                 Else
                     MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
                 End If
+                oSender.Disconnect()
+            Else
+                MsgBox("Could not connect to server. Please check the log.", MsgBoxStyle.Exclamation)
+
             End If
+            ' Dim oSMTP As SmtpClient = llmail.New_SMTPConnection(Nothing, EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, PORTTextBox.Text)
+            'If _ss2email.NewEmail(txtTestmailTo.Text, "Testmail from GUI WMResultHandler", "This is the body (text will be replaced within profile)", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text,
+            '                      PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "GUI WMRH - Test") = True Then
+            '        MsgBox("Email(s) has/have been sent successfully.", MsgBoxStyle.Information)
+            '    Else
+            '        MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
+            '    End If
+        End If
+
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
@@ -987,7 +1048,8 @@ Public Class frmMain
     End Sub
 
     Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
-
+        My.Settings.Debug_Active = LOG_ERRORS_ONLYCheckBox.Checked
+        My.Settings.Save()
     End Sub
 
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

app/ResultHandler_Konfig/packages.config

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="EntityFramework" version="6.2.0" targetFramework="net461" />
+  <package id="EntityFramework" version="6.4.4" targetFramework="net461" />
-  <package id="Newtonsoft.Json" version="10.0.3" targetFramework="net451" />
+  <package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" />
-  <package id="NLog" version="4.5.8" targetFramework="net461" />
+  <package id="NLog" version="5.0.5" targetFramework="net462" />
   <package id="System.Data.SQLite" version="1.0.94.1" targetFramework="net461" />
 </packages>

app/packages/EntityFramework.6.2.0/content/net40/App.config.transform

@@ -1,5 +0,0 @@
-<configuration>
-    <configSections>
-        <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
-    </configSections>
-</configuration>

app/packages/EntityFramework.6.2.0/content/net40/Web.config.transform

@@ -1,5 +0,0 @@
-<configuration>
-    <configSections>
-        <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
-    </configSections>
-</configuration>

app/packages/EntityFramework.6.2.0/tools/about_EntityFramework.help.txt

@@ -1,48 +0,0 @@
-TOPIC
-    about_EntityFramework
-
-SHORT DESCRIPTION
-    Provides information about Entity Framework commands.
-
-LONG DESCRIPTION
-    This topic describes the Entity Framework commands. Entity Framework is
-    Microsoft's recommended data access technology for new applications.
-
-    The following Entity Framework cmdlets are used with Entity Framework
-    Migrations.
-
-        Cmdlet              Description
-        -----------------   ---------------------------------------------------
-        Enable-Migrations   Enables Code First Migrations in a project.
-
-        Add-Migration       Scaffolds a migration script for any pending model
-                            changes.
-
-        Update-Database     Applies any pending migrations to the database.
-
-        Get-Migrations      Displays the migrations that have been applied to
-                            the target database.
-
-    The following Entity Framework cmdlets are used by NuGet packages that
-    install Entity Framework providers. These commands are not usually used as
-    part of normal application development.
-
-        Cmdlet                          Description
-        ------------------------------  ---------------------------------------
-        Add-EFProvider                  Adds or updates an Entity Framework
-                                        provider entry in the project config
-                                        file.
-
-        Add-EFDefaultConnectionFactory  Adds or updates an Entity Framework
-                                        default connection factory in the
-                                        project config file.
-
-        Initialize-EFConfiguration      Initializes the Entity Framework
-                                        section in the project config file and
-                                        sets defaults.
-
-SEE ALSO
-    Enable-Migrations
-    Add-Migration
-    Update-Database
-    Get-Migrations

app/packages/EntityFramework.6.2.0/tools/init.ps1

@@ -1,155 +0,0 @@
-param($installPath, $toolsPath, $package, $project)
-
-if (Get-Module | ?{ $_.Name -eq 'EntityFramework' })
-{
-    Remove-Module EntityFramework
-}
-
-Import-Module (Join-Path $toolsPath EntityFramework.psd1)
-
-# SIG # Begin signature block
-# MIIa3gYJKoZIhvcNAQcCoIIazzCCGssCAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
-# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
-# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUjXj4E03IfImYfKMB4CA3DfY0
-# KZmgghWAMIIEwjCCA6qgAwIBAgITMwAAAMDeLD0HlORJeQAAAAAAwDANBgkqhkiG
-# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
-# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
-# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTYwOTA3MTc1ODUw
-# WhcNMTgwOTA3MTc1ODUwWjCBsjELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
-# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
-# b3JhdGlvbjEMMAoGA1UECxMDQU9DMScwJQYDVQQLEx5uQ2lwaGVyIERTRSBFU046
-# N0FCNS0yREYyLURBM0YxJTAjBgNVBAMTHE1pY3Jvc29mdCBUaW1lLVN0YW1wIFNl
-# cnZpY2UwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDoiKVSfklVAB4E
-# Oc9+r95kl32muXNITYcTbaRtuJl+MQzEnD0eU2JUXx2mI06ONnTfFW39ZQPF1pvU
-# WkHBrS6m8oKy7Em4Ol91RJ5Knwy1VvY2Tawqh+VxwdARRgOeFtFm0S+Pa+BrXtVU
-# hTtGl0BGMsKGEQKdDNGJD259Iq47qPLw3CmllE3/YFw1GGoJ9C3ry+I7ntxIjJYB
-# LXA122vw93OOD/zWFh1SVq2AejPxcjKtHH2hjoeTKwkFeMNtIekrUSvhbuCGxW5r
-# 54KW0Yus4o8392l9Vz8lSEn2j/TgPTqD6EZlzkpw54VSwede/vyqgZIrRbat0bAh
-# b8doY8vDAgMBAAGjggEJMIIBBTAdBgNVHQ4EFgQUFf5K2jOJ0xmF1WRZxNxTQRBP
-# tzUwHwYDVR0jBBgwFoAUIzT42VJGcArtQPt2+7MrsMM1sw8wVAYDVR0fBE0wSzBJ
-# oEegRYZDaHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9jcmwvcHJvZHVjdHMv
-# TWljcm9zb2Z0VGltZVN0YW1wUENBLmNybDBYBggrBgEFBQcBAQRMMEowSAYIKwYB
-# BQUHMAKGPGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
-# b2Z0VGltZVN0YW1wUENBLmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG
-# 9w0BAQUFAAOCAQEAGeJAuzJMR+kovMi8RK/LtfrKazWlR5Lx02hM9GFmMk1zWCSc
-# pfVY6xqfzWFllCFHBtOaJZqLiV97jfNCLpG0PULz24CWSkG7jJ+mZaCSicZ7ZC3b
-# WDh1zpc54llYVyyTkRVYx/mtc9GujqbS8CBZgjaT/JsECnvGAPUcLYuSGt53CU1b
-# UuiNwuzAhai4glcYyq3/7qMmmAtbnbCZhR5ySoMy7BwdzN70drLtafCJQncfAHXV
-# O5r6SX4U/2J2zvWhA8lqhZu9SRulFGRvf81VTf+k5rJ2TjL6dYtSchooJ5YVvUk6
-# i7bfV0VBN8xpaUhk8jbBnxhDPKIvDvnZlhPuJjCCBOswggPToAMCAQICEzMAAAF4
-# JVq1zSPGX5UAAQAAAXgwDQYJKoZIhvcNAQEFBQAweTELMAkGA1UEBhMCVVMxEzAR
-# BgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1p
-# Y3Jvc29mdCBDb3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2ln
-# bmluZyBQQ0EwHhcNMTcwODExMjAxMTE1WhcNMTgwODExMjAxMTE1WjCBgjELMAkG
-# A1UEBhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQx
-# HjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjEMMAoGA1UECxMDQU9DMR4w
-# HAYDVQQDExVNaWNyb3NvZnQgQ29ycG9yYXRpb24wggEiMA0GCSqGSIb3DQEBAQUA
-# A4IBDwAwggEKAoIBAQCZbh1TVaudsrIbXUPPB9c8S+E+dKSbskHKYlG6SGTH8jhT
-# hpuvGiAO87F2b9GHVN+DvszaMkGy/xQgHaGEJLfpnb3kpakic7E0bjDHdG4KnHRb
-# no/wfUkGLfS79o+cw//RY8Ck6yE+0czDBcxp0Gbw5JyGP+KFqvzRR/3Tv3nt/5x0
-# 5ZnEOHYP+eDVikDvn/DH+oxxtiCfX3tkvtm/yX4eOb47YdmYKQjCgz2+Nil/lupY
-# vU0QFIjvke3jshqQINDng/vO9ys2qA0ex/q5hlLKQTST99dGoM86Ge6F723ReToq
-# KnGLN8kiCG7uNapOAIQrpCHZq96CVumiaA5ZvxU9AgMBAAGjggFgMIIBXDATBgNV
-# HSUEDDAKBggrBgEFBQcDAzAdBgNVHQ4EFgQUjuhtD3FD7tk/RKloJFX05cpgLjcw
-# UQYDVR0RBEowSKRGMEQxDDAKBgNVBAsTA0FPQzE0MDIGA1UEBRMrMjI5ODAzKzFh
-# YmY5ZTVmLWNlZDAtNDJlNi1hNjVkLWQ5MzUwOTU5ZmUwZTAfBgNVHSMEGDAWgBTL
-# EejK0rQWWAHJNy4zFha5TJoKHzBWBgNVHR8ETzBNMEugSaBHhkVodHRwOi8vY3Js
-# Lm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0cy9NaWNDb2RTaWdQQ0FfMDgt
-# MzEtMjAxMC5jcmwwWgYIKwYBBQUHAQEETjBMMEoGCCsGAQUFBzAChj5odHRwOi8v
-# d3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY0NvZFNpZ1BDQV8wOC0zMS0y
-# MDEwLmNydDANBgkqhkiG9w0BAQUFAAOCAQEAYnG/oHG/xgZYR8NAMHZ/vE9GM0e4
-# 7YdhuTea2uY7pSGwM707wp8Wan0Fa6evK1PWfcd/XNOh2BpEv5o8RmKDoEsG0ECP
-# 13Jug7cklfKreBVHQ+Djg43VVFLZpuo7aOAVK6wjlcnpPUtn+SfH9K0aM2FjDKVJ
-# FW6XFKXBat5R+Zp6uOxWTxpSeMTeDC5zF6IY6ogR1uzU+9EQoRlAvkwX6po+exEL
-# nMLr4++P+fqOxIU+PODIoB8ijClAqwwKvLlMPa3qlrNHt+LweTMu7lvGC/RA18wU
-# zzXAeomuZ03blUw+bkOiVgWOk4S0RN7EnW7zjJV8gd/+G2dbToUi1cB/fTCCBbww
-# ggOkoAMCAQICCmEzJhoAAAAAADEwDQYJKoZIhvcNAQEFBQAwXzETMBEGCgmSJomT
-# 8ixkARkWA2NvbTEZMBcGCgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMk
-# TWljcm9zb2Z0IFJvb3QgQ2VydGlmaWNhdGUgQXV0aG9yaXR5MB4XDTEwMDgzMTIy
-# MTkzMloXDTIwMDgzMTIyMjkzMloweTELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldh
-# c2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBD
-# b3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2lnbmluZyBQQ0Ew
-# ggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCycllcGTBkvx2aYCAgQpl2
-# U2w+G9ZvzMvx6mv+lxYQ4N86dIMaty+gMuz/3sJCTiPVcgDbNVcKicquIEn08Gis
-# TUuNpb15S3GbRwfa/SXfnXWIz6pzRH/XgdvzvfI2pMlcRdyvrT3gKGiXGqelcnNW
-# 8ReU5P01lHKg1nZfHndFg4U4FtBzWwW6Z1KNpbJpL9oZC/6SdCnidi9U3RQwWfjS
-# jWL9y8lfRjFQuScT5EAwz3IpECgixzdOPaAyPZDNoTgGhVxOVoIoKgUyt0vXT2Pn
-# 0i1i8UU956wIAPZGoZ7RW4wmU+h6qkryRs83PDietHdcpReejcsRj1Y8wawJXwPT
-# AgMBAAGjggFeMIIBWjAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBTLEejK0rQW
-# WAHJNy4zFha5TJoKHzALBgNVHQ8EBAMCAYYwEgYJKwYBBAGCNxUBBAUCAwEAATAj
-# BgkrBgEEAYI3FQIEFgQU/dExTtMmipXhmGA7qDFvpjy82C0wGQYJKwYBBAGCNxQC
-# BAweCgBTAHUAYgBDAEEwHwYDVR0jBBgwFoAUDqyCYEBWJ5flJRP8KuEKU5VZ5KQw
-# UAYDVR0fBEkwRzBFoEOgQYY/aHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9j
-# cmwvcHJvZHVjdHMvbWljcm9zb2Z0cm9vdGNlcnQuY3JsMFQGCCsGAQUFBwEBBEgw
-# RjBEBggrBgEFBQcwAoY4aHR0cDovL3d3dy5taWNyb3NvZnQuY29tL3BraS9jZXJ0
-# cy9NaWNyb3NvZnRSb290Q2VydC5jcnQwDQYJKoZIhvcNAQEFBQADggIBAFk5Pn8m
-# Rq/rb0CxMrVq6w4vbqhJ9+tfde1MOy3XQ60L/svpLTGjI8x8UJiAIV2sPS9MuqKo
-# VpzjcLu4tPh5tUly9z7qQX/K4QwXaculnCAt+gtQxFbNLeNK0rxw56gNogOlVuC4
-# iktX8pVCnPHz7+7jhh80PLhWmvBTI4UqpIIck+KUBx3y4k74jKHK6BOlkU7IG9KP
-# cpUqcW2bGvgc8FPWZ8wi/1wdzaKMvSeyeWNWRKJRzfnpo1hW3ZsCRUQvX/TartSC
-# Mm78pJUT5Otp56miLL7IKxAOZY6Z2/Wi+hImCWU4lPF6H0q70eFW6NB4lhhcyTUW
-# X92THUmOLb6tNEQc7hAVGgBd3TVbIc6YxwnuhQ6MT20OE049fClInHLR82zKwexw
-# o1eSV32UjaAbSANa98+jZwp0pTbtLS8XyOZyNxL0b7E8Z4L5UrKNMxZlHg6K3RDe
-# ZPRvzkbU0xfpecQEtNP7LN8fip6sCvsTJ0Ct5PnhqX9GuwdgR2VgQE6wQuxO7bN2
-# edgKNAltHIAxH+IOVN3lofvlRxCtZJj/UBYufL8FIXrilUEnacOTj5XJjdibIa4N
-# XJzwoq6GaIMMai27dmsAHZat8hZ79haDJLmIz2qoRzEvmtzjcT3XAH5iR9HOiMm4
-# GPoOco3Boz2vAkBq/2mbluIQqBC0N1AI1sM9MIIGBzCCA++gAwIBAgIKYRZoNAAA
-# AAAAHDANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZImiZPyLGQBGRYDY29tMRkwFwYK
-# CZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQDEyRNaWNyb3NvZnQgUm9vdCBD
-# ZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMDcwNDAzMTI1MzA5WhcNMjEwNDAzMTMw
-# MzA5WjB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
-# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEwHwYD
-# VQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwggEiMA0GCSqGSIb3DQEBAQUA
-# A4IBDwAwggEKAoIBAQCfoWyx39tIkip8ay4Z4b3i48WZUSNQrc7dGE4kD+7Rp9FM
-# rXQwIBHrB9VUlRVJlBtCkq6YXDAm2gBr6Hu97IkHD/cOBJjwicwfyzMkh53y9Gcc
-# LPx754gd6udOo6HBI1PKjfpFzwnQXq/QsEIEovmmbJNn1yjcRlOwhtDlKEYuJ6yG
-# T1VSDOQDLPtqkJAwbofzWTCd+n7Wl7PoIZd++NIT8wi3U21StEWQn0gASkdmEScp
-# ZqiX5NMGgUqi+YSnEUcUCYKfhO1VeP4Bmh1QCIUAEDBG7bfeI0a7xC1Un68eeEEx
-# d8yb3zuDk6FhArUdDbH895uyAc4iS1T/+QXDwiALAgMBAAGjggGrMIIBpzAPBgNV
-# HRMBAf8EBTADAQH/MB0GA1UdDgQWBBQjNPjZUkZwCu1A+3b7syuwwzWzDzALBgNV
-# HQ8EBAMCAYYwEAYJKwYBBAGCNxUBBAMCAQAwgZgGA1UdIwSBkDCBjYAUDqyCYEBW
-# J5flJRP8KuEKU5VZ5KShY6RhMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAXBgoJ
-# kiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290IENl
-# cnRpZmljYXRlIEF1dGhvcml0eYIQea0WoUqgpa1Mc1j0BxMuZTBQBgNVHR8ESTBH
-# MEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0
-# cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEESDBGMEQGCCsGAQUF
-# BzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jvc29m
-# dFJvb3RDZXJ0LmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG9w0BAQUF
-# AAOCAgEAEJeKw1wDRDbd6bStd9vOeVFNAbEudHFbbQwTq86+e4+4LtQSooxtYrhX
-# AstOIBNQmd16QOJXu69YmhzhHQGGrLt48ovQ7DsB7uK+jwoFyI1I4vBTFd1Pq5Lk
-# 541q1YDB5pTyBi+FA+mRKiQicPv2/OR4mS4N9wficLwYTp2OawpylbihOZxnLcVR
-# DupiXD8WmIsgP+IHGjL5zDFKdjE9K3ILyOpwPf+FChPfwgphjvDXuBfrTot/xTUr
-# XqO/67x9C0J71FNyIe4wyrt4ZVxbARcKFA7S2hSY9Ty5ZlizLS/n+YWGzFFW6J1w
-# lGysOUzU9nm/qhh6YinvopspNAZ3GmLJPR5tH4LwC8csu89Ds+X57H2146SodDW4
-# TsVxIxImdgs8UoxxWkZDFLyzs7BNZ8ifQv+AeSGAnhUwZuhCEl4ayJ4iIdBD6Svp
-# u/RIzCzU2DKATCYqSCRfWupW76bemZ3KOm+9gSd0BhHudiG/m4LBJ1S2sWo9iaF2
-# YbRuoROmv6pH8BJv/YoybLL+31HIjCPJZr2dHYcSZAI9La9Zj7jkIeW1sMpjtHhU
-# BdRBLlCslLCleKuzoJZ1GtmShxN1Ii8yqAhuoFuMJb+g74TKIdbrHk/Jmu5J4PcB
-# ZW+JC33Iacjmbuqnl84xKf8OxVtc2E0bodj6L54/LlUWa8kTo/0xggTIMIIExAIB
-# ATCBkDB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
-# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSMwIQYD
-# VQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBDQQITMwAAAXglWrXNI8ZflQAB
-# AAABeDAJBgUrDgMCGgUAoIHhMBkGCSqGSIb3DQEJAzEMBgorBgEEAYI3AgEEMBwG
-# CisGAQQBgjcCAQsxDjAMBgorBgEEAYI3AgEVMCMGCSqGSIb3DQEJBDEWBBTq02RG
-# y+pjEYntEMXja7SF8TbmOjCBgAYKKwYBBAGCNwIBDDFyMHCgUoBQAEUAbgB0AGkA
-# dAB5ACAARgByAGEAbQBlAHcAbwByAGsAIABUAG8AbwBsAHMAIABmAG8AcgAgAFYA
-# aQBzAHUAYQBsACAAUwB0AHUAZABpAG+hGoAYaHR0cDovL21zZG4uY29tL2RhdGEv
-# ZWYgMA0GCSqGSIb3DQEBAQUABIIBAHQSKzEL3TItnbRhSBIYMFwe3udOxpA/S2dB
-# gUgxV1NkH+j0UbOnslGkt8gDBIlFre+2F+b7U4dnBiOjhizMyeAKSHYGdHqSoDJ0
-# lM4D5tuTSnoJ8FZtem/IjyBgKCmFMv05/ivF2StQ/nBhLj0QYcF4S9NZXj6JKFNa
-# WZJjFRaMRbkyvyD+p22Y1FyvcZPetZfoBYXs7GoaDdLvwrvfjKFwv4YGZ40WIGDX
-# 566IZCmnpMNJ2bfj8rNZUQBi8SZocFfAPw+9r/FLz51UTrKB0YRCBTXeWMYOJRpt
-# 6is5bbSLYJz7Y/BvoLy1Lt+BaqJEntP2lB3RvSsEm+BZOtDCcAahggIoMIICJAYJ
-# KoZIhvcNAQkGMYICFTCCAhECAQEwgY4wdzELMAkGA1UEBhMCVVMxEzARBgNVBAgT
-# Cldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29m
-# dCBDb3Jwb3JhdGlvbjEhMB8GA1UEAxMYTWljcm9zb2Z0IFRpbWUtU3RhbXAgUENB
-# AhMzAAAAwN4sPQeU5El5AAAAAADAMAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMx
-# CwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0xNzEwMjMyMDEzNDVaMCMGCSqG
-# SIb3DQEJBDEWBBSn3QkcYO648MmwXthSXKh2NV8R9TANBgkqhkiG9w0BAQUFAASC
-# AQCnYTuQPUR6cHCGZStrauV4FQS+OC0dCo7D+mHETHYnDfgRKAloSQFBSqCm4C2+
-# GH20vmak1LgnN48Gc7YBQ4tXyW0HXo8yfCJDBeaF1tYGGLIMPthq3Pqu0+mqrJ2C
-# rklJw6+cKsF9+ESo9hoTCf3qztNjbEtaXrsakX+dALcMzJ4ism2oh5bUHd6CxWfF
-# Z/xLn4VQxzmZUSPbnhkIAoPwauAswHi1jgqo7Qd0HSIKHGNex7SOGgBfTWD4gCe4
-# IzGJlFFmCT6pFsjvreEnaQLNBv+yOj9P1Pf4MDVrNQn0OLeWSxfpf+XfgECLi0LS
-# QMxcy5Q0PezBaxQKzBTp39mT
-# SIG # End signature block

app/packages/EntityFramework.6.2.0/tools/install.ps1

@@ -1,154 +0,0 @@
-param($installPath, $toolsPath, $package, $project)
-
-Initialize-EFConfiguration $project
-Add-EFProvider $project 'System.Data.SqlClient' 'System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer'
-
-Write-Host
-Write-Host "Type 'get-help EntityFramework' to see all available Entity Framework commands."
-
-# SIG # Begin signature block
-# MIIa3gYJKoZIhvcNAQcCoIIazzCCGssCAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
-# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
-# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUt8mwpdjiFmu2B4KBh+vEeQ+V
-# VnSgghWAMIIEwjCCA6qgAwIBAgITMwAAALu2dyRxSiAAIAAAAAAAuzANBgkqhkiG
-# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
-# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
-# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTYwOTA3MTc1ODQ3
-# WhcNMTgwOTA3MTc1ODQ3WjCBsjELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
-# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
-# b3JhdGlvbjEMMAoGA1UECxMDQU9DMScwJQYDVQQLEx5uQ2lwaGVyIERTRSBFU046
-# MERFOC0yREM1LTNDQTkxJTAjBgNVBAMTHE1pY3Jvc29mdCBUaW1lLVN0YW1wIFNl
-# cnZpY2UwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQC48+U38sLxQNu8
-# OO1wnT9mKeHv+f/jxafTFXzx9VF59IK/n/jLv4HIXt8ucy3KjBTM5Jf6D0nQlI4h
-# Sizjrn6lO61q+V8oZiYYhjgR258rg8MDIrPpZMxK6OmD0d1wtksHW1cG21YKg5jg
-# idT2hmQBpiL9Cra3ccY5keu0kl6OfZFoj4DF0i0JRVFSy1C9gKP4H950XIjlA2Yo
-# TWN0LuHEHYMvwD1mOpAq2dVwPZh6xeNnpV8U/qLneyb9I/SqY/87tsZCn4FH7R3x
-# 0TgK2eRwpWXfwGbUb1R/UTLd20aQ+my4NWwSsndeG+0vsYwaF40heB2lo1ThmByr
-# OTBmEosTAgMBAAGjggEJMIIBBTAdBgNVHQ4EFgQUj9yNX+4+R8GZ7rcy4MdnJHXO
-# KkswHwYDVR0jBBgwFoAUIzT42VJGcArtQPt2+7MrsMM1sw8wVAYDVR0fBE0wSzBJ
-# oEegRYZDaHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9jcmwvcHJvZHVjdHMv
-# TWljcm9zb2Z0VGltZVN0YW1wUENBLmNybDBYBggrBgEFBQcBAQRMMEowSAYIKwYB
-# BQUHMAKGPGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
-# b2Z0VGltZVN0YW1wUENBLmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG
-# 9w0BAQUFAAOCAQEAcMI8Q0PxQVvxZSD1fjszuD6VF/qPZjKZj9WLTjWjZT2k9lzG
-# yvSL7vy9J7lnyMATrbm5ptqAfdonNygLaBm05MnrIvgPJYK89wyTIyS1u71ro7z+
-# EVrGPaKZiD+WvH8SWP+OWZQNf55fEL8tZo+a1oHm3lUARi5rR916OQvb4UnCENyV
-# g8IfmupnwpxHcmIBUWZtTKAuKmuX/c8G2z4KJ8WhruYjPDWYQXJrQ5t7PhZa19Ge
-# kOOtigge9EKIAWhZUJkw9fnfRm2IFX0gWtOzRXVNhR109ISacbNxd0oUboRYHmlq
-# wGrOz64/3SDdOeN7PjvLwFmThuoXIsxrjQD8ODCCBOswggPToAMCAQICEzMAAAF4
-# JVq1zSPGX5UAAQAAAXgwDQYJKoZIhvcNAQEFBQAweTELMAkGA1UEBhMCVVMxEzAR
-# BgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1p
-# Y3Jvc29mdCBDb3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2ln
-# bmluZyBQQ0EwHhcNMTcwODExMjAxMTE1WhcNMTgwODExMjAxMTE1WjCBgjELMAkG
-# A1UEBhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQx
-# HjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjEMMAoGA1UECxMDQU9DMR4w
-# HAYDVQQDExVNaWNyb3NvZnQgQ29ycG9yYXRpb24wggEiMA0GCSqGSIb3DQEBAQUA
-# A4IBDwAwggEKAoIBAQCZbh1TVaudsrIbXUPPB9c8S+E+dKSbskHKYlG6SGTH8jhT
-# hpuvGiAO87F2b9GHVN+DvszaMkGy/xQgHaGEJLfpnb3kpakic7E0bjDHdG4KnHRb
-# no/wfUkGLfS79o+cw//RY8Ck6yE+0czDBcxp0Gbw5JyGP+KFqvzRR/3Tv3nt/5x0
-# 5ZnEOHYP+eDVikDvn/DH+oxxtiCfX3tkvtm/yX4eOb47YdmYKQjCgz2+Nil/lupY
-# vU0QFIjvke3jshqQINDng/vO9ys2qA0ex/q5hlLKQTST99dGoM86Ge6F723ReToq
-# KnGLN8kiCG7uNapOAIQrpCHZq96CVumiaA5ZvxU9AgMBAAGjggFgMIIBXDATBgNV
-# HSUEDDAKBggrBgEFBQcDAzAdBgNVHQ4EFgQUjuhtD3FD7tk/RKloJFX05cpgLjcw
-# UQYDVR0RBEowSKRGMEQxDDAKBgNVBAsTA0FPQzE0MDIGA1UEBRMrMjI5ODAzKzFh
-# YmY5ZTVmLWNlZDAtNDJlNi1hNjVkLWQ5MzUwOTU5ZmUwZTAfBgNVHSMEGDAWgBTL
-# EejK0rQWWAHJNy4zFha5TJoKHzBWBgNVHR8ETzBNMEugSaBHhkVodHRwOi8vY3Js
-# Lm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0cy9NaWNDb2RTaWdQQ0FfMDgt
-# MzEtMjAxMC5jcmwwWgYIKwYBBQUHAQEETjBMMEoGCCsGAQUFBzAChj5odHRwOi8v
-# d3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY0NvZFNpZ1BDQV8wOC0zMS0y
-# MDEwLmNydDANBgkqhkiG9w0BAQUFAAOCAQEAYnG/oHG/xgZYR8NAMHZ/vE9GM0e4
-# 7YdhuTea2uY7pSGwM707wp8Wan0Fa6evK1PWfcd/XNOh2BpEv5o8RmKDoEsG0ECP
-# 13Jug7cklfKreBVHQ+Djg43VVFLZpuo7aOAVK6wjlcnpPUtn+SfH9K0aM2FjDKVJ
-# FW6XFKXBat5R+Zp6uOxWTxpSeMTeDC5zF6IY6ogR1uzU+9EQoRlAvkwX6po+exEL
-# nMLr4++P+fqOxIU+PODIoB8ijClAqwwKvLlMPa3qlrNHt+LweTMu7lvGC/RA18wU
-# zzXAeomuZ03blUw+bkOiVgWOk4S0RN7EnW7zjJV8gd/+G2dbToUi1cB/fTCCBbww
-# ggOkoAMCAQICCmEzJhoAAAAAADEwDQYJKoZIhvcNAQEFBQAwXzETMBEGCgmSJomT
-# 8ixkARkWA2NvbTEZMBcGCgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMk
-# TWljcm9zb2Z0IFJvb3QgQ2VydGlmaWNhdGUgQXV0aG9yaXR5MB4XDTEwMDgzMTIy
-# MTkzMloXDTIwMDgzMTIyMjkzMloweTELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldh
-# c2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBD
-# b3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2lnbmluZyBQQ0Ew
-# ggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCycllcGTBkvx2aYCAgQpl2
-# U2w+G9ZvzMvx6mv+lxYQ4N86dIMaty+gMuz/3sJCTiPVcgDbNVcKicquIEn08Gis
-# TUuNpb15S3GbRwfa/SXfnXWIz6pzRH/XgdvzvfI2pMlcRdyvrT3gKGiXGqelcnNW
-# 8ReU5P01lHKg1nZfHndFg4U4FtBzWwW6Z1KNpbJpL9oZC/6SdCnidi9U3RQwWfjS
-# jWL9y8lfRjFQuScT5EAwz3IpECgixzdOPaAyPZDNoTgGhVxOVoIoKgUyt0vXT2Pn
-# 0i1i8UU956wIAPZGoZ7RW4wmU+h6qkryRs83PDietHdcpReejcsRj1Y8wawJXwPT
-# AgMBAAGjggFeMIIBWjAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBTLEejK0rQW
-# WAHJNy4zFha5TJoKHzALBgNVHQ8EBAMCAYYwEgYJKwYBBAGCNxUBBAUCAwEAATAj
-# BgkrBgEEAYI3FQIEFgQU/dExTtMmipXhmGA7qDFvpjy82C0wGQYJKwYBBAGCNxQC
-# BAweCgBTAHUAYgBDAEEwHwYDVR0jBBgwFoAUDqyCYEBWJ5flJRP8KuEKU5VZ5KQw
-# UAYDVR0fBEkwRzBFoEOgQYY/aHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9j
-# cmwvcHJvZHVjdHMvbWljcm9zb2Z0cm9vdGNlcnQuY3JsMFQGCCsGAQUFBwEBBEgw
-# RjBEBggrBgEFBQcwAoY4aHR0cDovL3d3dy5taWNyb3NvZnQuY29tL3BraS9jZXJ0
-# cy9NaWNyb3NvZnRSb290Q2VydC5jcnQwDQYJKoZIhvcNAQEFBQADggIBAFk5Pn8m
-# Rq/rb0CxMrVq6w4vbqhJ9+tfde1MOy3XQ60L/svpLTGjI8x8UJiAIV2sPS9MuqKo
-# VpzjcLu4tPh5tUly9z7qQX/K4QwXaculnCAt+gtQxFbNLeNK0rxw56gNogOlVuC4
-# iktX8pVCnPHz7+7jhh80PLhWmvBTI4UqpIIck+KUBx3y4k74jKHK6BOlkU7IG9KP
-# cpUqcW2bGvgc8FPWZ8wi/1wdzaKMvSeyeWNWRKJRzfnpo1hW3ZsCRUQvX/TartSC
-# Mm78pJUT5Otp56miLL7IKxAOZY6Z2/Wi+hImCWU4lPF6H0q70eFW6NB4lhhcyTUW
-# X92THUmOLb6tNEQc7hAVGgBd3TVbIc6YxwnuhQ6MT20OE049fClInHLR82zKwexw
-# o1eSV32UjaAbSANa98+jZwp0pTbtLS8XyOZyNxL0b7E8Z4L5UrKNMxZlHg6K3RDe
-# ZPRvzkbU0xfpecQEtNP7LN8fip6sCvsTJ0Ct5PnhqX9GuwdgR2VgQE6wQuxO7bN2
-# edgKNAltHIAxH+IOVN3lofvlRxCtZJj/UBYufL8FIXrilUEnacOTj5XJjdibIa4N
-# XJzwoq6GaIMMai27dmsAHZat8hZ79haDJLmIz2qoRzEvmtzjcT3XAH5iR9HOiMm4
-# GPoOco3Boz2vAkBq/2mbluIQqBC0N1AI1sM9MIIGBzCCA++gAwIBAgIKYRZoNAAA
-# AAAAHDANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZImiZPyLGQBGRYDY29tMRkwFwYK
-# CZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQDEyRNaWNyb3NvZnQgUm9vdCBD
-# ZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMDcwNDAzMTI1MzA5WhcNMjEwNDAzMTMw
-# MzA5WjB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
-# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEwHwYD
-# VQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwggEiMA0GCSqGSIb3DQEBAQUA
-# A4IBDwAwggEKAoIBAQCfoWyx39tIkip8ay4Z4b3i48WZUSNQrc7dGE4kD+7Rp9FM
-# rXQwIBHrB9VUlRVJlBtCkq6YXDAm2gBr6Hu97IkHD/cOBJjwicwfyzMkh53y9Gcc
-# LPx754gd6udOo6HBI1PKjfpFzwnQXq/QsEIEovmmbJNn1yjcRlOwhtDlKEYuJ6yG
-# T1VSDOQDLPtqkJAwbofzWTCd+n7Wl7PoIZd++NIT8wi3U21StEWQn0gASkdmEScp
-# ZqiX5NMGgUqi+YSnEUcUCYKfhO1VeP4Bmh1QCIUAEDBG7bfeI0a7xC1Un68eeEEx
-# d8yb3zuDk6FhArUdDbH895uyAc4iS1T/+QXDwiALAgMBAAGjggGrMIIBpzAPBgNV
-# HRMBAf8EBTADAQH/MB0GA1UdDgQWBBQjNPjZUkZwCu1A+3b7syuwwzWzDzALBgNV
-# HQ8EBAMCAYYwEAYJKwYBBAGCNxUBBAMCAQAwgZgGA1UdIwSBkDCBjYAUDqyCYEBW
-# J5flJRP8KuEKU5VZ5KShY6RhMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAXBgoJ
-# kiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290IENl
-# cnRpZmljYXRlIEF1dGhvcml0eYIQea0WoUqgpa1Mc1j0BxMuZTBQBgNVHR8ESTBH
-# MEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0
-# cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEESDBGMEQGCCsGAQUF
-# BzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jvc29m
-# dFJvb3RDZXJ0LmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG9w0BAQUF
-# AAOCAgEAEJeKw1wDRDbd6bStd9vOeVFNAbEudHFbbQwTq86+e4+4LtQSooxtYrhX
-# AstOIBNQmd16QOJXu69YmhzhHQGGrLt48ovQ7DsB7uK+jwoFyI1I4vBTFd1Pq5Lk
-# 541q1YDB5pTyBi+FA+mRKiQicPv2/OR4mS4N9wficLwYTp2OawpylbihOZxnLcVR
-# DupiXD8WmIsgP+IHGjL5zDFKdjE9K3ILyOpwPf+FChPfwgphjvDXuBfrTot/xTUr
-# XqO/67x9C0J71FNyIe4wyrt4ZVxbARcKFA7S2hSY9Ty5ZlizLS/n+YWGzFFW6J1w
-# lGysOUzU9nm/qhh6YinvopspNAZ3GmLJPR5tH4LwC8csu89Ds+X57H2146SodDW4
-# TsVxIxImdgs8UoxxWkZDFLyzs7BNZ8ifQv+AeSGAnhUwZuhCEl4ayJ4iIdBD6Svp
-# u/RIzCzU2DKATCYqSCRfWupW76bemZ3KOm+9gSd0BhHudiG/m4LBJ1S2sWo9iaF2
-# YbRuoROmv6pH8BJv/YoybLL+31HIjCPJZr2dHYcSZAI9La9Zj7jkIeW1sMpjtHhU
-# BdRBLlCslLCleKuzoJZ1GtmShxN1Ii8yqAhuoFuMJb+g74TKIdbrHk/Jmu5J4PcB
-# ZW+JC33Iacjmbuqnl84xKf8OxVtc2E0bodj6L54/LlUWa8kTo/0xggTIMIIExAIB
-# ATCBkDB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
-# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSMwIQYD
-# VQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBDQQITMwAAAXglWrXNI8ZflQAB
-# AAABeDAJBgUrDgMCGgUAoIHhMBkGCSqGSIb3DQEJAzEMBgorBgEEAYI3AgEEMBwG
-# CisGAQQBgjcCAQsxDjAMBgorBgEEAYI3AgEVMCMGCSqGSIb3DQEJBDEWBBSYs3+C
-# WsAb+LOoocEiqHmU0Q3ALzCBgAYKKwYBBAGCNwIBDDFyMHCgUoBQAEUAbgB0AGkA
-# dAB5ACAARgByAGEAbQBlAHcAbwByAGsAIABUAG8AbwBsAHMAIABmAG8AcgAgAFYA
-# aQBzAHUAYQBsACAAUwB0AHUAZABpAG+hGoAYaHR0cDovL21zZG4uY29tL2RhdGEv
-# ZWYgMA0GCSqGSIb3DQEBAQUABIIBABPzPT3kEODvGlQjfMBKfQudfoZrNqovPz0Y
-# cdler/amP+mg1mtJd+v+zn+UQXQi1DbBmqGuxQYj18vdb6eBGBZAlwYag91Lkp95
-# ILAZ926dAn0DXTLoXlZL1AVpRM8+/kqsHFCboI+Q1vO8FTO4/XpwuaCfwlvGAXxH
-# AcUVLEnmJeZvBv0npW8NghCkfrAVT3G2nE+4mjP/cRHlukWUDiogHhkcWZOrWYBk
-# aEEbojPYO1I+NW16NNp0Fq3VZO1Crr96I2HbrT2ogR2EJOWpPH0IyogZv4b0+E7S
-# VXX33Lp5YpzbzgdIPUvsFpKfidoRzLmi4SD0Tc8S46NlgXotFM6hggIoMIICJAYJ
-# KoZIhvcNAQkGMYICFTCCAhECAQEwgY4wdzELMAkGA1UEBhMCVVMxEzARBgNVBAgT
-# Cldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29m
-# dCBDb3Jwb3JhdGlvbjEhMB8GA1UEAxMYTWljcm9zb2Z0IFRpbWUtU3RhbXAgUENB
-# AhMzAAAAu7Z3JHFKIAAgAAAAAAC7MAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMx
-# CwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0xNzEwMjMyMDEzMzlaMCMGCSqG
-# SIb3DQEJBDEWBBR5eDKlzjbXG+gQhPSdEMDmmjY6BTANBgkqhkiG9w0BAQUFAASC
-# AQB777+HNR9jVbg2sXZm72fSrm3jxSLugzhcA4OxhZObW96AnJknlduQvAGqcDV+
-# Lt9CyaYLMt6I89MGkP9PBv8t5xhW0rHuBykna+5tTL8wvYrKd7r4ZvXT7YtHrqxO
-# c+WLBPUD8XvSxI2wEsXt6uPCt44sd8PdO7VMiRNWth9aWo7rWaP0kGGAt0qhspI8
-# 6mhsnam+SRGuDCpoLYcMTc1vVVKu1zZ9wgfxNCaf9YVswKmFc7Mj7VNpA3qd6Te0
-# RNAEkgZr84KzCf8CYtWMsSy9k68drBbP0JosTxCLrJ9/zud6fykp5UcljzdKHKdU
-# LMT4QBU8ya4StU9IgrUFBBcI
-# SIG # End signature block

app/packages/Newtonsoft.Json.10.0.3/LICENSE.md

@@ -1,20 +0,0 @@
-The MIT License (MIT)
-
-Copyright (c) 2007 James Newton-King
-
-Permission is hereby granted, free of charge, to any person obtaining a copy of
-this software and associated documentation files (the "Software"), to deal in
-the Software without restriction, including without limitation the rights to
-use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
-the Software, and to permit persons to whom the Software is furnished to do so,
-subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included in all
-copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
-FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
-COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
-IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.