MS

.gitattributes

@@ -0,0 +1,63 @@
+###############################################################################
+# Set default behavior to automatically normalize line endings.
+###############################################################################
+* text=auto
+
+###############################################################################
+# Set default behavior for command prompt diff.
+#
+# This is need for earlier builds of msysgit that does not have it on by
+# default for csharp files.
+# Note: This is only used by command line
+###############################################################################
+#*.cs     diff=csharp
+
+###############################################################################
+# Set the merge driver for project and solution files
+#
+# Merging from the command prompt will add diff markers to the files if there
+# are conflicts (Merging from VS is not affected by the settings below, in VS
+# the diff markers are never inserted). Diff markers may cause the following 
+# file extensions to fail to load in VS. An alternative would be to treat
+# these files as binary and thus will always conflict and require user
+# intervention with every merge. To do so, just uncomment the entries below
+###############################################################################
+#*.sln       merge=binary
+#*.csproj    merge=binary
+#*.vbproj    merge=binary
+#*.vcxproj   merge=binary
+#*.vcproj    merge=binary
+#*.dbproj    merge=binary
+#*.fsproj    merge=binary
+#*.lsproj    merge=binary
+#*.wixproj   merge=binary
+#*.modelproj merge=binary
+#*.sqlproj   merge=binary
+#*.wwaproj   merge=binary
+
+###############################################################################
+# behavior for image files
+#
+# image files are treated as binary by default.
+###############################################################################
+#*.jpg   binary
+#*.png   binary
+#*.gif   binary
+
+###############################################################################
+# diff behavior for common document formats
+# 
+# Convert binary document formats to text before diffing them. This feature
+# is only available from the command line. Turn it on by uncommenting the 
+# entries below.
+###############################################################################
+#*.doc   diff=astextplain
+#*.DOC   diff=astextplain
+#*.docx  diff=astextplain
+#*.DOCX  diff=astextplain
+#*.dot   diff=astextplain
+#*.DOT   diff=astextplain
+#*.pdf   diff=astextplain
+#*.PDF   diff=astextplain
+#*.rtf   diff=astextplain
+#*.RTF   diff=astextplain

.gitignore

@@ -0,0 +1,156 @@
+## Ignore Visual Studio temporary files, build results, and
+## files generated by popular Visual Studio add-ons.
+
+# User-specific files
+*.suo
+*.user
+*.sln.docstates
+
+# Build results
+
+[Dd]ebug/
+[Rr]elease/
+x64/
+build/
+[Bb]in/
+[Oo]bj/
+
+# Enable "build/" folder in the NuGet Packages folder since NuGet packages use it for MSBuild targets
+!packages/*/build/
+
+# MSTest test Results
+[Tt]est[Rr]esult*/
+[Bb]uild[Ll]og.*
+
+*_i.c
+*_p.c
+*.ilk
+*.meta
+*.obj
+*.pch
+*.pdb
+*.pgc
+*.pgd
+*.rsp
+*.sbr
+*.tlb
+*.tli
+*.tlh
+*.tmp
+*.tmp_proj
+*.log
+*.vspscc
+*.vssscc
+.builds
+*.pidb
+*.log
+*.scc
+
+# Visual C++ cache files
+ipch/
+*.aps
+*.ncb
+*.opensdf
+*.sdf
+*.cachefile
+
+# Visual Studio profiler
+*.psess
+*.vsp
+*.vspx
+
+# Guidance Automation Toolkit
+*.gpState
+
+# ReSharper is a .NET coding add-in
+_ReSharper*/
+*.[Rr]e[Ss]harper
+
+# TeamCity is a build add-in
+_TeamCity*
+
+# DotCover is a Code Coverage Tool
+*.dotCover
+
+# NCrunch
+*.ncrunch*
+.*crunch*.local.xml
+
+# Installshield output folder
+[Ee]xpress/
+
+# DocProject is a documentation generator add-in
+DocProject/buildhelp/
+DocProject/Help/*.HxT
+DocProject/Help/*.HxC
+DocProject/Help/*.hhc
+DocProject/Help/*.hhk
+DocProject/Help/*.hhp
+DocProject/Help/Html2
+DocProject/Help/html
+
+# Click-Once directory
+publish/
+
+# Publish Web Output
+*.Publish.xml
+
+# NuGet Packages Directory
+## TODO: If you have NuGet Package Restore enabled, uncomment the next line
+#packages/
+
+# Windows Azure Build Output
+csx
+*.build.csdef
+
+# Windows Store app package directory
+AppPackages/
+
+# Others
+sql/
+*.Cache
+ClientBin/
+[Ss]tyle[Cc]op.*
+~$*
+*~
+*.dbmdl
+*.[Pp]ublish.xml
+*.pfx
+*.publishsettings
+
+# RIA/Silverlight projects
+Generated_Code/
+
+# Backup & report files from converting an old project file to a newer
+# Visual Studio version. Backup files are not needed, because we have git ;-)
+_UpgradeReport_Files/
+Backup*/
+UpgradeLog*.XML
+UpgradeLog*.htm
+
+# SQL Server files
+App_Data/*.mdf
+App_Data/*.ldf
+
+
+#LightSwitch generated files
+GeneratedArtifacts/
+_Pvt_Extensions/
+ModelManifest.xml
+
+# =========================
+# Windows detritus
+# =========================
+
+# Windows image file caches
+Thumbs.db
+ehthumbs.db
+
+# Folder config file
+Desktop.ini
+
+# Recycle Bin used on file shares
+$RECYCLE.BIN/
+
+# Mac desktop service store files
+.DS_Store

.vs/ProjectSettings.json

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

.vs/VSWorkspaceState.json

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

app/DDWDResultHandler/App.config

@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <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>
+    <!-- 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>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" />
+  </startup>
+  <applicationSettings>
+    <DDWDResultHandler.My.MySettings>
+      <setting name="MyConnection" 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>
+      </setting>
+    </DDWDResultHandler.My.MySettings>
+  </applicationSettings>
+  <system.data>
+    <!--
+        NOTE: The extra "remove" element below is to prevent the design-time
+              support components within EF6 from selecting the legacy ADO.NET
+              provider for SQLite (i.e. the one without any EF6 support).  It
+              appears to only consider the first ADO.NET provider in the list
+              within the resulting "app.config" or "web.config" file.
+    -->
+    <DbProviderFactories>
+      <add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".NET Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
+      <remove invariant="System.Data.SQLite" />
+      <remove invariant="System.Data.SQLite.EF6" />
+      <add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".NET Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
+    </DbProviderFactories>
+  </system.data>
+  <entityFramework>
+    <defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">
+      <parameters>
+        <parameter value="v11.0" />
+      </parameters>
+    </defaultConnectionFactory>
+    <providers>
+      <provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
+      <provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
+    </providers>
+  </entityFramework>
+</configuration>

app/DDWDResultHandler/ClassDatabase.vb

@@ -0,0 +1,80 @@
+Public Class ClassDatabase
+    Private Shared connectionString As String
+
+    Public Shared Function Init()
+        Try
+            connectionString = MyConnectionString
+            Dim SQLconnect As New SqlClient.SqlConnection
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function Return_Datatable(Select_anweisung As String)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True)
+            ClassLogger.Add("SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            If Userinput = True Then
+                MsgBox("Fehler bei Execute_non_Query: " & ex.Message, MsgBoxStyle.Critical)
+            End If
+            ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True)
+            ClassLogger.Add("SQL: " & ExecuteCMD, False)
+            Return False
+        End Try
+    End Function
+    Public Shared Function Execute_Scalar(cmdscalar As String)
+        Dim result
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True)
+            ClassLogger.Add("SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+End Class

app/DDWDResultHandler/ClassLoggerOld.vb

@@ -0,0 +1,216 @@
+Imports System.IO
+
+Public Class ClassLoggerOld
+    Private Shared DateiSpeicherort As String = Nothing
+    Private Shared DateiPrefix As String = ""
+    Private Shared Datei As IO.File = Nothing
+    Private Shared Dateiname As String = ""
+    Private Shared StreamWriter As IO.StreamWriter = Nothing
+    Private Shared HasInformedAboutError As Boolean = False
+    ' eine Art Konstruktor
+    Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
+        SetSpeicherort()
+        ClassLoggerOld.DateiSpeicherort = speicherort
+        ' wenn ein Prfix gesetzt wurde
+        If Not prefix = "" Then
+            ' initialisiert das Prefix
+            ClassLoggerOld.SetPrefix(prefix)
+        End If
+        Dim str As String = ClassLoggerOld.DateiSpeicherort & "\" & ClassLoggerOld.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+        Dim anz As Integer = 1
+        Do While File.Exists(str)
+            Dim info As New FileInfo(str)
+            Dim length As Long = info.Length
+            If length > 5000000 Then
+                str = IO.Path.GetDirectoryName(str)
+                str = str & "\" & ClassLoggerOld.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
+                anz = anz + 1
+            Else
+                Exit Do
+            End If
+        Loop
+        ClassLoggerOld.Dateiname = str
+        If Not appendFile Then
+            ' der Versuch die Datei zu löschen
+            'Try
+            '    My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
+            'Catch ex As Exception
+            '    ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht
+            '    ' ALSO: alles Okay soweit
+            'End Try
+            My.Computer.FileSystem.WriteAllText(ClassLoggerOld.Dateiname, "Neu erstellt - appendfile", False)
+        End If
+        ' testen ob sich die Datei öffnen und beschreiben lässt
+        'ClassNILogger.CheckIsLogWritable()
+    End Sub
+
+    ' legt den Speicherort fest
+    Public Shared Sub SetSpeicherort()
+        Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
+        If f.Exists = False Then
+            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
+        End If
+        ClassLoggerOld.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\"
+    End Sub
+
+    ' legt das Prefix für den Dateinamen fest
+    Public Shared Sub SetPrefix(ByVal prefix As String)
+        ClassLoggerOld.DateiPrefix = prefix
+    End Sub
+
+    Public Shared Sub Add(ByVal text As String, ByVal _error As Boolean, Optional ByVal Funktion As String = "")
+        Try
+            If ClassLoggerOld.OpenFile Then
+                Try
+                    Dim msg As String
+                    If _error = True And Funktion <> "" Then
+                        msg = ">> Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
+                    ElseIf _error = True Then
+                        msg = ">> Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
+                    End If
+                    msg &= text
+
+                    ClassLoggerOld.StreamWriter.WriteLine(msg)
+                    ClassLoggerOld.CloseFile()
+                Catch e As Exception
+                    ClassLoggerOld.WriteErrorMessage()
+                End Try
+            Else
+                ClassLoggerOld.WriteErrorMessage()
+            End If
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+    Public Shared Sub AddDetailLog(ByVal text As String)
+        If ClassLoggerOld.OpenFile Then
+            Try
+                If clsSQLITE.konf_logerrorsonly = False Then
+                    ClassLoggerOld.StreamWriter.WriteLine(">> " & text)
+                    ClassLoggerOld.CloseFile()
+                End If
+            Catch e As Exception
+                ClassLoggerOld.WriteErrorMessage()
+            End Try
+        Else
+            ClassLoggerOld.WriteErrorMessage()
+        End If
+    End Sub
+    ' öffnet eine Datei zum Schreiben
+    Private Shared Function OpenFile()
+        Try
+            ' wenn ein Speicherort festgelegt wurde
+            If Not ClassLoggerOld.DateiSpeicherort = Nothing Then
+                ' den Dateienamen definieren
+                Dim dateiname As String = ClassLoggerOld.Dateiname
+                ' Datei anlegen wenn noch nicht vorhanden
+                My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
+                ' die Datei zum Schreiben öffnen
+                ClassLoggerOld.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
+            End If
+            ' wenn die Datei erfolgreich geöffnet wurde
+            If ClassLoggerOld.StreamWriter IsNot Nothing Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+    ' öffnet eine Datei zum Schreiben
+    Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String)
+        Try
+            ' wenn ein Speicherort festgelegt wurde
+            If Not DateiSpeicherort = Nothing And ClassLoggerOld.CheckIsLogWritable() Then
+                ' den Dateienamen definieren
+                Dim dateiname As String = ClassLoggerOld.Dateiname
+                ' Datei anlegen wenn noch nicht vorhanden
+                My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
+
+                ' die Datei zum Schreiben öffnen
+                ClassLoggerOld.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
+            End If
+            ' wenn die Datei erfolgreich geöffnet wurde
+            If ClassLoggerOld.StreamWriter IsNot Nothing Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            Return False
+        End Try
+
+    End Function
+
+
+    ' schliesst die geöffnete Datei
+    Private Shared Sub CloseFile()
+
+        ' wenn eine Datei geöffnet ist
+        If ClassLoggerOld.StreamWriter IsNot Nothing Then
+            ' die Datei schliessen
+            ClassLoggerOld.StreamWriter.Close()
+            ClassLoggerOld.StreamWriter = Nothing
+        End If
+    End Sub
+
+
+    Public Shared Function CheckIsLogWritable()
+
+        If ClassLoggerOld.OpenFile Then
+            Try
+                ClassLoggerOld.CloseFile()
+            Catch e As Exception
+                ClassLoggerOld.WriteErrorMessage()
+                Return False
+            End Try
+        Else
+            ClassLoggerOld.WriteErrorMessage()
+            Return False
+        End If
+
+        Return True
+    End Function
+
+
+    Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String)
+
+        If ClassLoggerOld.OpenFile(vDateiSpeicherort, vDateiPrefix) Then
+            Try
+                ClassLoggerOld.CloseFile()
+            Catch e As Exception
+                ClassLoggerOld.WriteErrorMessage()
+                Return False
+            End Try
+        Else
+            ClassLoggerOld.WriteErrorMessage()
+            Return False
+        End If
+
+        Return True
+    End Function
+
+
+    Private Shared Sub WriteErrorMessage()
+        If Not ClassLoggerOld.HasInformedAboutError Then
+            Try
+                EventLog.WriteEntry("Windream Result Handler", "Fehler beim Öffnen der Logdatei - Keine Schreibrechte in Verzeichnis??", EventLogEntryType.Warning)
+            Catch ex As Exception
+
+            End Try
+
+            'EventLog1.Source = "Windream Result Handler"
+            'clsSQLITE.Execute_non_Query("INSERT INTO TBLOG (MODUL,MESSAGE) VALUES ('MAIN','" & "Fehler beim Öffnen der Logdatei - Keine Schreibrechte im Verzeichnis? Es wird keine Logdatei angelegt oder beschrieben.")
+            'MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _
+            '       vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf des Dateiimporters nicht zu stören.", _
+            '       MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei")
+            ClassLoggerOld.HasInformedAboutError = True
+        End If
+    End Sub
+
+End Class

app/DDWDResultHandler/DDWDResultHandler.Designer.vb

@@ -0,0 +1,52 @@
+Imports System.ServiceProcess
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DDWDResultHandler
+    Inherits System.ServiceProcess.ServiceBase
+
+    'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    ' Der Haupteinstiegspunkt für den Prozess
+    <MTAThread()> _
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Shared Sub Main()
+        Dim ServicesToRun() As System.ServiceProcess.ServiceBase
+
+        ' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen
+        ' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile,
+        ' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel
+        '
+        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New DDWDResultHandler, New MySecondUserService}
+        '
+        ServicesToRun = New System.ServiceProcess.ServiceBase() {New DDWDResultHandler}
+
+        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+    End Sub
+
+    'Wird vom Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    ' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    ' Das Bearbeiten ist mit dem Komponenten-Designer möglich.  
+    ' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        '
+        'DDWDResultHandler
+        '
+        Me.AutoLog = False
+        Me.ServiceName = "DDWDResultHandler"
+
+    End Sub
+
+End Class

app/DDWDResultHandler/DDWDResultHandler.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

app/DDWDResultHandler/DDWDResultHandler.vb

@@ -0,0 +1,172 @@
+Imports System.IO
+'Imports System.Collections.ObjectModel
+Imports System.ComponentModel
+Imports System.Data.SQLite
+Public Class DDWDResultHandler
+#Region "+++++ Variablen +++++"
+    Public Shared _windream As New clsWindream_allgemein
+    Public Shared threadRunner As BackgroundWorker
+
+    Public Shared _PROFIL_ID As Integer
+    Dim _INTERVALL As Integer
+    'Variablen für Dateiimporter
+
+#End Region
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        If Not System.Diagnostics.EventLog.SourceExists("Windream Result Handler") Then
+            System.Diagnostics.EventLog.CreateEventSource("Windream Result Handler",
+            "DigitalData Log")
+        End If
+        'EventLog1.Source = "Windream Result Handler"
+        'EventLog1.Log = "DigitalData Log"
+    End Sub
+    Protected Overrides Sub OnStart(ByVal args() As String)
+        ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
+        ' ausführen, damit der Dienst gestartet werden kann.
+        'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestartet")
+        Try
+            clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandler_")
+            clsLogger.Add(" ", False)
+            clsLogger.Add("## WindreamResultHandler gestartet - " & Now & " ## ", False)
+
+            If My.Settings.MyConnection = String.Empty Then
+                clsLogger.Add("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.", True)
+            Else
+                If clsSQLITE.Init = False Then
+                    clsLogger.Add("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.MyConnection & "' hergestellt werden!", True)
+                Else
+                    '        '### Thread für Durchlauf generieren
+                    DDWDResultHandler.threadRunner = New BackgroundWorker()
+                    DDWDResultHandler.threadRunner.WorkerReportsProgress = True
+                    DDWDResultHandler.threadRunner.WorkerSupportsCancellation = True
+                    AddHandler threadRunner.DoWork, AddressOf RUN_THREAD
+                    AddHandler threadRunner.RunWorkerCompleted, AddressOf Thread_Completed
+
+                    '        '### Den Timer generieren
+                    Dim Timer_Durchlauf As New System.Timers.Timer()
+                    'Das Event hinterlegen welches bei "Tick" ausgelöst wird
+                    AddHandler Timer_Durchlauf.Elapsed, AddressOf Thread_Run
+                    ' Set the Interval
+                    Timer_Durchlauf.Interval = 60000
+                    'ClassLogger.Add("- Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False)
+                    Timer_Durchlauf.Enabled = True
+                    clsLogger.AddDetailLog("Timer gestartet")
+                    ' Und den Durchlauf das erste Mal starten
+                    threadRunner.RunWorkerAsync()
+                End If
+            End If
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "OnStart")
+        End Try
+
+    End Sub
+    Public Shared Sub Thread_Run()
+        If Not threadRunner.IsBusy Then
+            threadRunner.RunWorkerAsync()
+        End If
+    End Sub
+    Protected Overrides Sub OnStop()
+        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
+        'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestoppt")
+        clsLogger.Add("", False)
+        clsLogger.Add("## WindreamResultHandler wurde gestoppt - " & Now & " ## ", False)
+        clsSQLITE.Execute_non_Query("Update TBPROFIL SET Running = 1 WHERE GUID = " & clsProfil._profGUID)
+        clsLogger.Add("", False)
+        clsLogger.WriteLog()
+    End Sub
+    Public Shared Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Try
+            Dim notcompleted As Boolean = False
+            clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandler_")
+            clsLogger.Add("", False)
+            clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False)
+            clsLogger.Add("", False)
+            'windream initialisieren
+            If _windream.Init() = True Then
+                clsLogger.AddDetailLog("windream vollumfänglich initialisiert!")
+                'Zur sicherheit die DB nochmal initialiseren
+                If clsSQLITE.Init() = True Then
+                    Dim DT As DataTable = clsSQLITE.Return_Datatable("SELECT GUID FROM TBPROFIL WHERE AKTIV = 1 order by REIHENFOLGE")
+                    If DT.Rows.Count > 0 Then
+                        clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
+                        For Each DR As DataRow In DT.Rows
+                            _PROFIL_ID = CInt(DR.Item("GUID"))
+                            'Und nun das Profil durchlaufen
+                            Dim initresult = clsProfil.Init(_PROFIL_ID)
+                            If initresult = True Then
+                                clsLogger.WriteLog()
+                                clsProfil.Profil_Durchlauf()
+                            ElseIf initresult = False Then
+                                clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD")
+                                notcompleted = True
+                            ElseIf initresult = 0 Then
+                                clsLogger.AddDetailLog("initresult: 0")
+                                notcompleted = True
+                            ElseIf initresult = 1 Then
+                                clsLogger.AddDetailLog("initresult: 1")
+                                notcompleted = True
+                            End If
+                        Next
+                    Else
+                        clsLogger.Add("- Keine aktiven Profile vorhanden", False)
+                        notcompleted = True
+                    End If
+                    clsSQLITE.Execute_non_Query("UPDATE TBKONFIGURATION SET LAST_TICK = DATETIME ('now' , 'localtime') WHERE GUID = 1")
+                Else
+                    clsLogger.Add("- clsSQLLite konnte nicht initialisiert werden!", False)
+                    notcompleted = True
+                End If
+            Else
+                clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
+                notcompleted = True
+            End If
+            If notcompleted = True Then
+                clsLogger.WriteLog()
+            End If
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "RUN_THREAD")
+        End Try
+
+    End Sub
+#Region "*** BackgroundWorker DI und NI beenden und Abbrechen ***"
+    Private Shared Sub Thread_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
+        ' This event fires when the DoWork event completes
+        Try
+            Dim result As String = ""
+
+            If e.Cancelled Then
+                clsLogger.Add("## Der Dateiimport wurde durch den Anwender abgebrochen", False)
+                clsLogger.WriteLog()
+            ElseIf e.Error IsNot Nothing Then
+                clsLogger.Add("Fehler bei Durchlauf. Der Vorgang wird abgebrochen.", True, "Thread_Completed")
+                clsLogger.Add(e.Error.Message, True, "Thread_Completed")
+                clsLogger.WriteLog()
+            End If
+
+            'If DI_Verzeichnisloeschen Then
+            '    Try
+            '        My.Computer.FileSystem.DeleteDirectory(DI_Quellordner, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
+            '    Catch ex As Exception
+            '        ClassLogger.Add("ACHTUNG: Der Vorgang wurde abgeschlossen. Das Quellverzeichnis konnte jedoch nicht gelöscht werden, da sich in dem Ordner noch Dateien/Verzeichnisse befinden.", False)
+            '    End Try
+            'End If
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "Thread_Completed")
+        End Try
+    End Sub
+    Public Shared Function Thread_Abbrechen()
+        Try
+            If DDWDResultHandler.threadRunner.IsBusy Then
+                DDWDResultHandler.threadRunner.CancelAsync()
+            End If
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "Thread_Abbrechen")
+            Return False
+        End Try
+    End Function
+#End Region
+End Class

app/DDWDResultHandler/DDWDResultHandler.vbproj

@@ -0,0 +1,210 @@
+<?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>{190A63D1-A129-499D-A863-59D39D9EA58F}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>DDWDResultHandler.DDWDResultHandler</StartupObject>
+    <RootNamespace>DDWDResultHandler</RootNamespace>
+    <AssemblyName>DDWDResultHandler</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Console</MyType>
+    <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+  </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>DDWDResultHandler.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>DDWDResultHandler.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>
+  <ItemGroup>
+    <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.SqlServer">
+      <HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+    </Reference>
+    <Reference Include="Interop.WINDREAMLib">
+      <HintPath>..\..\..\Bibliotheken\DLL\windreamDLL\64bit\Interop.WINDREAMLib.dll</HintPath>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="Oracle.ManagedDataAccess">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
+    <Reference Include="System.Configuration.Install" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.ServiceProcess" />
+    <Reference Include="System.Web.Services" />
+    <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.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ClassLoggerOld.vb" />
+    <Compile Include="clsDatatabase.vb" />
+    <Compile Include="clsDateiverarbeitung.vb" />
+    <Compile Include="clsEmail.vb" />
+    <Compile Include="clsHelper.vb" />
+    <Compile Include="clsLogger.vb" />
+    <Compile Include="clsProfil.vb" />
+    <Compile Include="clsWindream_allgemein.vb" />
+    <Compile Include="clsWindream_Index.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="DDWDResultHandler.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="DDWDResultHandler.Designer.vb">
+      <DependentUpon>DDWDResultHandler.vb</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <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>
+    <Compile Include="ProjectInstaller.Designer.vb">
+      <DependentUpon>ProjectInstaller.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectInstaller.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="RUNTIME_VARIABLES.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="DDWDResultHandler.resx">
+      <DependentUpon>DDWDResultHandler.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ProjectInstaller.resx">
+      <DependentUpon>ProjectInstaller.vb</DependentUpon>
+    </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" />
+    <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" />
+  </ItemGroup>
+  <ItemGroup>
+    <COMReference Include="WMOBRWSLib">
+      <Guid>{25B51999-6DCA-11D4-B815-00104BB52DEA}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOSRCHLib">
+      <Guid>{BE4F1D13-88A8-11D4-B3FA-0001021F035F}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="WMOTOOLLib">
+      <Guid>{A704B4C1-E1C1-11D2-B2A9-00104B066E1A}</Guid>
+      <VersionMajor>1</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
+  </ItemGroup>
+  <ItemGroup>
+    <WCFMetadata Include="Service References\" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\System.Data.SQLite.Core.1.0.94.0\build\net451\System.Data.SQLite.Core.targets" Condition="Exists('..\packages\System.Data.SQLite.Core.1.0.94.0\build\net451\System.Data.SQLite.Core.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/DDWDResultHandler/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.34014
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

app/DDWDResultHandler/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>false</MySubMain>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>3</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

app/DDWDResultHandler/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("DDWDResultHandler")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("DDWDResultHandler")> 
+<Assembly: AssemblyCopyright("Copyright ©  2014")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("1f08708a-1a24-4add-a049-0e53d7fe374e")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

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

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.34014
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+    
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    Friend Module Resources
+
+        Private resourceMan As Global.System.Resources.ResourceManager
+
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DDWDResultHandler.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

app/DDWDResultHandler/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

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

@@ -0,0 +1,83 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <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"& _ 
+            "fo=True;User ID=sa;Password=dd")>  _
+        Public ReadOnly Property MyConnection() As String
+            Get
+                Return CType(Me("MyConnection"),String)
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.DDWDResultHandler.My.MySettings
+            Get
+                Return Global.DDWDResultHandler.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

app/DDWDResultHandler/My Project/Settings.settings

@@ -0,0 +1,9 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="MyConnection" 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>
+    </Setting>
+  </Settings>
+</SettingsFile>

app/DDWDResultHandler/MyDataset.Designer.vb

@@ -0,0 +1,648 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+
+
+'''<summary>
+'''Represents a strongly typed in-memory cache of data.
+'''</summary>
+<Global.System.Serializable(),  _
+ Global.System.ComponentModel.DesignerCategoryAttribute("code"),  _
+ Global.System.ComponentModel.ToolboxItem(true),  _
+ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"),  _
+ Global.System.Xml.Serialization.XmlRootAttribute("MyDataset"),  _
+ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")>  _
+Partial Public Class MyDataset
+    Inherits Global.System.Data.DataSet
+    
+    Private tableTBVEKTOR_INDEX As TBVEKTOR_INDEXDataTable
+
+    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", "4.0.0.0")> _
+    Public Sub New()
+        MyBase.New()
+        Me.BeginInit()
+        Me.InitClass()
+        Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+        AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+        AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
+        Me.EndInit()
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
+            Me.InitVars(False)
+            Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+            AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
+            AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
+            Return
+        End If
+        Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String)
+        If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
+            Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+            ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+            If (Not (ds.Tables("TBVEKTOR_INDEX")) Is Nothing) Then
+                MyBase.Tables.Add(New TBVEKTOR_INDEXDataTable(ds.Tables("TBVEKTOR_INDEX")))
+            End If
+            Me.DataSetName = ds.DataSetName
+            Me.Prefix = ds.Prefix
+            Me.Namespace = ds.Namespace
+            Me.Locale = ds.Locale
+            Me.CaseSensitive = ds.CaseSensitive
+            Me.EnforceConstraints = ds.EnforceConstraints
+            Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add)
+            Me.InitVars()
+        Else
+            Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
+        End If
+        Me.GetSerializationData(info, context)
+        Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
+        AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
+        AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
+        Get
+            Return Me.tableTBVEKTOR_INDEX
+        End Get
+    End Property
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
+        Get
+            Return Me._schemaSerializationMode
+        End Get
+        Set(value As Global.System.Data.SchemaSerializationMode)
+            Me._schemaSerializationMode = value
+        End Set
+    End Property
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
+     Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
+    Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
+        Get
+            Return MyBase.Tables
+        End Get
+    End Property
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
+     Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
+    Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
+        Get
+            Return MyBase.Relations
+        End Get
+    End Property
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Protected Overrides Sub InitializeDerivedDataSet()
+        Me.BeginInit()
+        Me.InitClass()
+        Me.EndInit()
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Public Overrides Function Clone() As Global.System.Data.DataSet
+        Dim cln As MyDataset = CType(MyBase.Clone, MyDataset)
+        cln.InitVars()
+        cln.SchemaSerializationMode = Me.SchemaSerializationMode
+        Return cln
+    End Function
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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()
+            Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
+            ds.ReadXml(reader)
+            If (Not (ds.Tables("TBVEKTOR_INDEX")) Is Nothing) Then
+                MyBase.Tables.Add(New TBVEKTOR_INDEXDataTable(ds.Tables("TBVEKTOR_INDEX")))
+            End If
+            Me.DataSetName = ds.DataSetName
+            Me.Prefix = ds.Prefix
+            Me.Namespace = ds.Namespace
+            Me.Locale = ds.Locale
+            Me.CaseSensitive = ds.CaseSensitive
+            Me.EnforceConstraints = ds.EnforceConstraints
+            Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add)
+            Me.InitVars()
+        Else
+            Me.ReadXml(reader)
+            Me.InitVars()
+        End If
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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))
+        stream.Position = 0
+        Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
+    End Function
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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
+            If (Not (Me.tableTBVEKTOR_INDEX) Is Nothing) Then
+                Me.tableTBVEKTOR_INDEX.InitVars()
+            End If
+        End If
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Private Sub InitClass()
+        Me.DataSetName = "MyDataset"
+        Me.Prefix = ""
+        Me.Namespace = "http://tempuri.org/MyDataset.xsd"
+        Me.EnforceConstraints = True
+        Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
+        Me.tableTBVEKTOR_INDEX = New TBVEKTOR_INDEXDataTable()
+        MyBase.Tables.Add(Me.tableTBVEKTOR_INDEX)
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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()
+        End If
+    End Sub
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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()
+        Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
+        Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+        any.Namespace = ds.Namespace
+        sequence.Items.Add(any)
+        type.Particle = sequence
+        Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+        If xs.Contains(dsSchema.TargetNamespace) Then
+            Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+            Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+            Try
+                Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+                dsSchema.Write(s1)
+                Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+                Do While schemas.MoveNext
+                    schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema)
+                    s2.SetLength(0)
+                    schema.Write(s2)
+                    If (s1.Length = s2.Length) Then
+                        s1.Position = 0
+                        s2.Position = 0
+
+                        Do While ((s1.Position <> s1.Length) _
+                                    AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+                        Loop
+                        If (s1.Position = s1.Length) Then
+                            Return type
+                        End If
+                    End If
+
+                Loop
+            Finally
+                If (Not (s1) Is Nothing) Then
+                    s1.Close()
+                End If
+                If (Not (s2) Is Nothing) Then
+                    s2.Close()
+                End If
+            End Try
+        End If
+        xs.Add(dsSchema)
+        Return type
+    End Function
+
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Public Delegate Sub TBVEKTOR_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_INDEXRowChangeEvent)
+
+    '''<summary>
+    '''Represents the strongly named DataTable class.
+    '''</summary>
+    <Global.System.Serializable(), _
+     Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
+    Partial Public Class TBVEKTOR_INDEXDataTable
+        Inherits Global.System.Data.TypedTableBase(Of TBVEKTOR_INDEXRow)
+
+        Private columnIndexname As Global.System.Data.DataColumn
+
+        Private columnValue As Global.System.Data.DataColumn
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub New()
+            MyBase.New()
+            Me.TableName = "TBVEKTOR_INDEX"
+            Me.BeginInit()
+            Me.InitClass()
+            Me.EndInit()
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Friend Sub New(ByVal table As Global.System.Data.DataTable)
+            MyBase.New()
+            Me.TableName = table.TableName
+            If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
+                Me.CaseSensitive = table.CaseSensitive
+            End If
+            If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
+                Me.Locale = table.Locale
+            End If
+            If (table.Namespace <> table.DataSet.Namespace) Then
+                Me.Namespace = table.Namespace
+            End If
+            Me.Prefix = table.Prefix
+            Me.MinimumCapacity = table.MinimumCapacity
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.0.0.0")> _
+        Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnIndexname
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnValue
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
+         Global.System.ComponentModel.Browsable(False)> _
+        Public ReadOnly Property Count() As Integer
+            Get
+                Return Me.Rows.Count
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Default Public 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", "4.0.0.0")> _
+        Public Event TBVEKTOR_INDEXRowChanging As TBVEKTOR_INDEXRowChangeEventHandler
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBVEKTOR_INDEXRowChanged As TBVEKTOR_INDEXRowChangeEventHandler
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBVEKTOR_INDEXRowDeleting As TBVEKTOR_INDEXRowChangeEventHandler
+
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Event TBVEKTOR_INDEXRowDeleted As TBVEKTOR_INDEXRowChangeEventHandler
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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}
+            rowTBVEKTOR_INDEXRow.ItemArray = columnValuesArray
+            Me.Rows.Add(rowTBVEKTOR_INDEXRow)
+            Return rowTBVEKTOR_INDEXRow
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Overrides Function Clone() As Global.System.Data.DataTable
+            Dim cln As TBVEKTOR_INDEXDataTable = CType(MyBase.Clone, TBVEKTOR_INDEXDataTable)
+            cln.InitVars()
+            Return cln
+        End Function
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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)
+            Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnValue)
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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", "4.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
+                RaiseEvent TBVEKTOR_INDEXRowChanged(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
+                RaiseEvent TBVEKTOR_INDEXRowChanging(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
+                RaiseEvent TBVEKTOR_INDEXRowDeleted(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
+                RaiseEvent TBVEKTOR_INDEXRowDeleting(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action))
+            End If
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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()
+            Dim ds As MyDataset = New MyDataset()
+            Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any1.Namespace = "http://www.w3.org/2001/XMLSchema"
+            any1.MinOccurs = New Decimal(0)
+            any1.MaxOccurs = Decimal.MaxValue
+            any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any1)
+            Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
+            any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
+            any2.MinOccurs = New Decimal(1)
+            any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
+            sequence.Items.Add(any2)
+            Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute1.Name = "namespace"
+            attribute1.FixedValue = ds.Namespace
+            type.Attributes.Add(attribute1)
+            Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
+            attribute2.Name = "tableTypeName"
+            attribute2.FixedValue = "TBVEKTOR_INDEXDataTable"
+            type.Attributes.Add(attribute2)
+            type.Particle = sequence
+            Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
+            If xs.Contains(dsSchema.TargetNamespace) Then
+                Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
+                Try
+                    Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
+                    dsSchema.Write(s1)
+                    Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
+                    Do While schemas.MoveNext
+                        schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema)
+                        s2.SetLength(0)
+                        schema.Write(s2)
+                        If (s1.Length = s2.Length) Then
+                            s1.Position = 0
+                            s2.Position = 0
+
+                            Do While ((s1.Position <> s1.Length) _
+                                        AndAlso (s1.ReadByte = s2.ReadByte))
+
+
+                            Loop
+                            If (s1.Position = s1.Length) Then
+                                Return type
+                            End If
+                        End If
+
+                    Loop
+                Finally
+                    If (Not (s1) Is Nothing) Then
+                        s1.Close()
+                    End If
+                    If (Not (s2) Is Nothing) Then
+                        s2.Close()
+                    End If
+                End Try
+            End If
+            xs.Add(dsSchema)
+            Return type
+        End Function
+    End Class
+
+    '''<summary>
+    '''Represents strongly named DataRow class.
+    '''</summary>
+    Partial Public Class TBVEKTOR_INDEXRow
+        Inherits Global.System.Data.DataRow
+
+        Private tableTBVEKTOR_INDEX As TBVEKTOR_INDEXDataTable
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.0.0.0")> _
+        Public Property Indexname() As String
+            Get
+                Try
+                    Return CType(Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn), String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_INDEX ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As String)
+                Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Property Value() As String
+            Get
+                Try
+                    Return CType(Me(Me.tableTBVEKTOR_INDEX.ValueColumn), String)
+                Catch e As Global.System.InvalidCastException
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBVEKTOR_INDEX ist DBNull.", e)
+                End Try
+            End Get
+            Set(value As String)
+                Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = value
+            End Set
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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", "4.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", "4.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", "4.0.0.0")> _
+        Public Sub SetValueNull()
+            Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = Global.System.Convert.DBNull
+        End Sub
+    End Class
+
+    '''<summary>
+    '''Row event argument class
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+    Public Class TBVEKTOR_INDEXRowChangeEvent
+        Inherits Global.System.EventArgs
+
+        Private eventRow As TBVEKTOR_INDEXRow
+
+        Private eventAction As Global.System.Data.DataRowAction
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public Sub New(ByVal row As TBVEKTOR_INDEXRow, ByVal action As Global.System.Data.DataRowAction)
+            MyBase.New()
+            Me.eventRow = row
+            Me.eventAction = action
+        End Sub
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property Row() As TBVEKTOR_INDEXRow
+            Get
+                Return Me.eventRow
+            End Get
+        End Property
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
+        Public ReadOnly Property Action() As Global.System.Data.DataRowAction
+            Get
+                Return Me.eventAction
+            End Get
+        End Property
+    End Class
+End Class

app/DDWDResultHandler/MyDataset.xsc

@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+  <TableUISettings />
+</DataSetUISetting>

app/DDWDResultHandler/MyDataset.xsd

@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema id="MyDataset" targetNamespace="http://tempuri.org/MyDataset.xsd" xmlns:mstns="http://tempuri.org/MyDataset.xsd" xmlns="http://tempuri.org/MyDataset.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
+  <xs:annotation>
+    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
+      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+        <Connections />
+        <Tables />
+        <Sources />
+      </DataSource>
+    </xs:appinfo>
+  </xs:annotation>
+  <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
+    <xs:complexType>
+      <xs:choice minOccurs="0" maxOccurs="unbounded">
+        <xs:element name="TBVEKTOR_INDEX" msprop:Generator_TableClassName="TBVEKTOR_INDEXDataTable" msprop:Generator_TableVarName="tableTBVEKTOR_INDEX" msprop:Generator_TablePropName="TBVEKTOR_INDEX" msprop:Generator_RowDeletingName="TBVEKTOR_INDEXRowDeleting" msprop:Generator_RowChangingName="TBVEKTOR_INDEXRowChanging" msprop:Generator_RowEvHandlerName="TBVEKTOR_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="TBVEKTOR_INDEXRowDeleted" msprop:Generator_UserTableName="TBVEKTOR_INDEX" msprop:Generator_RowChangedName="TBVEKTOR_INDEXRowChanged" msprop:Generator_RowEvArgName="TBVEKTOR_INDEXRowChangeEvent" msprop:Generator_RowClassName="TBVEKTOR_INDEXRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="Indexname" msprop:Generator_ColumnVarNameInTable="columnIndexname" msprop:Generator_ColumnPropNameInRow="Indexname" msprop:Generator_ColumnPropNameInTable="IndexnameColumn" msprop:Generator_UserColumnName="Indexname" type="xs:string" minOccurs="0" />
+              <xs:element name="Value" msprop:Generator_ColumnVarNameInTable="columnValue" msprop:Generator_ColumnPropNameInRow="Value" msprop:Generator_ColumnPropNameInTable="ValueColumn" msprop:Generator_UserColumnName="Value" type="xs:string" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+  </xs:element>
+</xs:schema>

app/DDWDResultHandler/MyDataset.xss

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool to store the dataset designer's layout information.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-10" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+  <Shapes>
+    <Shape ID="DesignTable:TBVEKTOR_INDEX" ZOrder="1" X="0" Y="0" Height="67" Width="171" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
+  </Shapes>
+  <Connectors />
+</DiagramLayout>

app/DDWDResultHandler/ProjectInstaller.Designer.vb

@@ -0,0 +1,48 @@
+<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
+    Inherits System.Configuration.Install.Installer
+
+    'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Komponenten-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
+        Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
+        '
+        'ServiceProcessInstaller1
+        '
+        Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
+        Me.ServiceProcessInstaller1.Password = Nothing
+        Me.ServiceProcessInstaller1.Username = Nothing
+        '
+        'ServiceInstaller1
+        '
+        Me.ServiceInstaller1.Description = "Führt windream Suchen aus und verarbeitet die gefundenen Dateien nach Profilangab" & _
+    "e"
+        Me.ServiceInstaller1.DisplayName = "DD windream Result Handler"
+        Me.ServiceInstaller1.ServiceName = "DDWDResultHandler"
+        '
+        'ProjectInstaller
+        '
+        Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
+
+    End Sub
+    Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
+    Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller
+
+End Class

app/DDWDResultHandler/ProjectInstaller.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ServiceProcessInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ServiceInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>197, 17</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

app/DDWDResultHandler/ProjectInstaller.vb

@@ -0,0 +1,16 @@
+Imports System.ComponentModel
+Imports System.Configuration.Install
+
+Public Class ProjectInstaller
+
+    Public Sub New()
+        MyBase.New()
+
+        'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
+        InitializeComponent()
+
+        'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen
+
+    End Sub
+
+End Class

app/DDWDResultHandler/RUNTIME_VARIABLES.vb

@@ -0,0 +1,4 @@
+Module RUNTIME_VARIABLES
+    Public EXPORTED_FILENAME As String
+
+End Module

app/DDWDResultHandler/clsDatatabase.vb

@@ -0,0 +1,131 @@
+Imports System.Data.SqlClient
+Imports Oracle.ManagedDataAccess.Client
+
+Public Class clsDatatabase
+    Public Shared Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String)
+        Try
+            ' die nötigen Variablen definieren
+            Dim result As Object = Nothing
+            Dim conn As New OracleConnectionStringBuilder
+
+            Dim Oracle_Conn As OracleConnection = New OracleConnection(CONSTRING)
+            Dim Oracle_Command As OracleCommand = Nothing
+            Dim DataAdapter As OracleDataAdapter = Nothing
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Oracle_Conn.Open()
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonOracleDb(OpenConnection)")
+                Return False
+            End Try
+
+
+            ' SQL-Abfrage definieren
+            Try
+                Oracle_Command = New OracleCommand(plsqlcommand, Oracle_Conn)
+                Oracle_Command.AddToStatementCache = True
+
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.plsqlcommandDefine")
+                Oracle_Conn.Close()
+                Return False
+            End Try
+
+
+            ' *** Ausführen des Command ***
+            If Command() IsNot Nothing Then
+                Try
+                    Oracle_Command.ExecuteNonQuery()
+                    ' DB-Connection schliessen
+                    Oracle_Conn.Close()
+                    Return True
+
+                Catch ex As Exception
+                    clsLogger.Add(ex.Message & vbNewLine & "Execute Command => (" & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
+                    Oracle_Conn.Close()
+
+                    Return False
+                End Try
+
+            Else
+                ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
+                ' Eintrag in Logdatei machen
+                clsLogger.Add("SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
+                Return False
+            End If
+
+
+        Catch ex As Exception
+            clsLogger.Add("Unexpected Error in ExecuteonOracleDb: " & ex.Message & vbNewLine & "(SQL: " & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            Return False
+        End Try
+
+    End Function
+    Public Shared Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String)
+        Try
+
+            ' die nötigen Variablen definieren
+            Dim Connection As SqlConnection = Nothing
+            ' Dim ConnectionString As SqlConnectionStringBuilder = Nothing
+            Dim Command As SqlCommand = Nothing
+            Dim DataAdapter As SqlDataAdapter = Nothing
+
+            '' ConnectionString aufbauen (aus Settings auslesen)
+            'ConnectionString = New SqlConnectionStringBuilder()
+            'ConnectionString.DataSource = datasource
+            'ConnectionString.UserID = User
+            'ConnectionString.Password = pw
+            'ConnectionString.InitialCatalog = init_Cata
+
+
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Connection = New SqlConnection(ConString)
+                Connection.Open()
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(OpenConnection)")
+                Return False
+            End Try
+
+
+            ' SQL-Abfrage definieren
+            Try
+                Command = New SqlCommand(sqlcommand, Connection)
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(DefineCommand)")
+                Return False
+                Connection.Close()
+            End Try
+
+            ' *** Ausführen des Command ***
+            If Command IsNot Nothing Then
+
+                Try
+                    Command.ExecuteNonQuery()
+                    ' DB-Connection schliessen
+                    Connection.Close()
+                    Return True
+                Catch ex As Exception
+                    ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
+                    clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(ExecuteCommand)")
+                    Return False
+                    Connection.Close()
+                End Try
+            Else
+                ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
+                ' Eintrag in Logdatei machen
+                clsLogger.Add("Could not create COMMAND", True, "clsDatatabase.ExecuteonMSSQL")
+                Return False
+                Connection.Close()
+            End If
+        Catch ex As Exception
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.ExecuteonMSSQL")
+            Return False
+        End Try
+
+    End Function
+End Class

app/DDWDResultHandler/clsDateiverarbeitung.vb

@@ -0,0 +1,245 @@
+Imports WINDREAMLib
+Imports System.IO
+Public Class clsDateiverarbeitung
+
+#Region "***** Variablen und Konstanten*****"
+    Public Shared _windream As New clsWindream_allgemein
+
+    Public Shared pr_Profilname, pr_Objekttyp, pr_wdSuche, konfig_WDLaufwerk, konfig_VERSIONSTZ As String
+    Public Shared pr_GUID As Integer
+    Public Shared pr_DTPROFIL_REGELN As DataTable
+    Public Shared aktfile_Exportresult
+
+    Private email As New clsEmail
+    Public Shared CriticalError As Boolean = False
+
+    Private Shared regel_TYP, regel_INDEX_NAME, regel_QUELLE1, regel_FROM1, regel_FROM2 As String
+    Private Shared Indexe() As String = Nothing  ' zum Speichern der Indexe
+    Private Shared NI_Values() As String = Nothing  ' zum Speichern der Werte
+
+    Private Shared WD_aktivesDokument As WMObject
+
+
+    Const WMObjectStreamOpenModeReadWrite = 2
+    Const WMObjectEditModeFileSystem = &H15
+#End Region
+    Public Shared Function InitProfilData()
+        Try
+            pr_Profilname = Nothing
+            pr_Objekttyp = Nothing
+            pr_wdSuche = Nothing
+            pr_DTPROFIL_REGELN = Nothing
+            ' Profildaten der Klasse mitteilen
+            pr_Profilname = clsProfil._Profilname
+            pr_Objekttyp = clsProfil._profObjekttyp
+            pr_wdSuche = clsProfil._profwdSuche
+            pr_GUID = clsProfil._profGUID
+            konfig_WDLaufwerk = clsSQLITE.konf_WDLAUFWERK
+            konfig_VERSIONSTZ = clsSQLITE.konf_VERSIONSTRENNZEICHEN
+            clsLogger.AddDetailLog("InitProfilData Profildaten zugewiesen....")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "cls_DV.InitProfilData")
+            Return False
+        End Try
+    End Function
+    'Kopiert die übergebene Datei in den Zielpfad
+    Public Shared Function Export_File(WDDatei As WMObject, Zielpfad As String)
+        Try
+            If Not Zielpfad.EndsWith("\") Then
+                Zielpfad = Zielpfad & "\"
+            End If
+            clsLogger.Add("", False)
+            clsLogger.Add(">> Verarbeitung von Datei: " & WDDatei.aName, False)
+            'Die Quelle zusammensetzen
+            clsLogger.AddDetailLog("PFAD: " & konfig_WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
+            'Dim Quelle As String = IO.Path.GetDirectoryName(WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
+
+            Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO 
+            clsLogger.AddDetailLog("ExportFileIO erzeugt.....")
+            ' Stream Interface bereitstellen
+            WDDatei.LockFor(WMObjectEditModeFileSystem)
+            Try
+                If Not WDDatei.aLocked Then
+                    WDDatei.lock()
+                End If
+            Catch ex As Exception
+                clsLogger.AddError("Unvorhergesehener Fehler beim Lock-Vorgang: " & ex.Message, "clsDV.Export_File")
+                Return False
+            End Try
+          
+            Dim oWMStream = WDDatei.OpenStream("BinaryObject", WMObjectStreamOpenModeReadWrite)
+            '### VERSIONIERUNG ###
+            Dim version As Integer = 2
+            'Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(Quelle)
+            Dim Filename = WDDatei.aName.Substring(0, WDDatei.aName.LastIndexOf("."))
+            Dim Extension = WDDatei.aName.Substring(WDDatei.aName.LastIndexOf("."))
+            Dim tempFilename As String = Zielpfad & Filename & Extension
+            'Überprüfen ob File existiert
+            Do While IO.File.Exists(tempFilename) = True
+                tempFilename = Zielpfad & Filename & konfig_VERSIONSTZ & version & Extension
+                version = version + 1
+            Loop
+            clsLogger.AddDetailLog("Zieldateiname: " & tempFilename)
+            ' den Dateiinhalt der neuen Datei zuweisen
+            ExportFileIO.aWMStream = oWMStream
+            ExportFileIO.bstrOriginalFileName = tempFilename
+            'Das eigentliche kopieren
+            ExportFileIO.ExportOriginal(True)
+            ' close the windream file stream
+            oWMStream.Close()
+            WDDatei.Save()
+            WDDatei.unlock()
+            EXPORTED_FILENAME = tempFilename
+            clsLogger.Add(">> Datei erfolgreich nach '" & tempFilename & "' verschoben.", False, "clsDV Export_File")
+            aktfile_Exportresult = tempFilename
+            Return True
+        Catch ex As Exception
+            'bei einem Fehler einen Eintrag in der Logdatei machen
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDV.Export_File")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Rename_File(wddok As WMObject, konvention As String)
+        Try
+            clsLogger.AddDetailLog("Konvention: '" & konvention & "'")
+
+            ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+            ' einen Regulären Ausdruck laden
+            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+            ' die Vorkommen im SQL-String auslesen
+            Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(konvention)
+            Dim i As Integer = 0
+            ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+            For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente
+                ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
+                Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
+                reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
+                clsLogger.AddDetailLog("Indexwert aus Index '" & reg_element_Ohne_SZ & "' auslesen....")
+                Dim wdIndexwert
+                ' den Wert des Indexes für das aktuelle Dokument auslesen
+                wdIndexwert = wddok.GetVariableValue(reg_element_Ohne_SZ)
+                If wdIndexwert Is Nothing = False Then
+                    If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
+                        clsLogger.AddDetailLog("Namenkonvention (" & i & ") " & konvention)
+                        wdIndexwert = wdIndexwert.ToString.TrimEnd
+                        wdIndexwert = wdIndexwert.ToString.TrimStart
+                        clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'")
+                        konvention = konvention.Replace(reg_element.Value, wdIndexwert.ToString)
+                        i += 1
+                    Else
+                        clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf")
+                    End If
+                End If
+            Next
+            Dim version As Integer = 2
+            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            clsLogger.AddDetailLog("ZielPfad: " & ZielPfad)
+            Dim Filename = konvention
+            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            clsLogger.AddDetailLog("Extension: " & Extension)
+            Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
+            clsLogger.AddDetailLog("tempFilename: " & tempFilename)
+            'Überprüfen ob File existiert
+            Do While IO.File.Exists(tempFilename) = True
+                tempFilename = ZielPfad & "\" & Filename & konfig_VERSIONSTZ & version & Extension
+                version += 1
+            Loop
+            clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+            My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
+            clsLogger.Add(">> Datei wurde erfolgreich umbenannt.", False, "clsProfil.RenameFile")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.RenameFile")
+            Return False
+        End Try
+    End Function
+    Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
+        Try
+            Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)
+            If result = Nothing Then
+                Return False
+            End If
+
+
+            If clsDatatabase.ExecuteonOracleDb(OracleCS, OracleCommandRAW) = True Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_ORACLE_COMMAND")
+            Return False
+        End Try
+    End Function
+    Public Shared Function RUN_MSSQL_COMMAND(WMFile As WMObject, MSSQLCS As String, SQLCommandRAW As String)
+        Try
+            Dim result = REGEX_REPLACE(WMFile, SQLCommandRAW)
+            If result = Nothing Then
+                Return False
+            End If
+
+
+            If clsDatatabase.ExecuteonMSSQL(MSSQLCS, SQLCommandRAW) = True Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_MSSQL_COMMAND")
+            Return False
+        End Try
+    End Function
+
+    Private Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
+        Try
+            ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+            ' einen Regulären Ausdruck laden
+            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+            ' die Vorkommen im SQL-String auslesen
+            Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(_STRING)
+            Dim i As Integer = 0
+            ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+            For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente
+                ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
+                Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
+                reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
+                clsLogger.AddDetailLog("Indexwert aus Index/Variable '" & reg_element_Ohne_SZ & "' auslesen....")
+                If reg_element_Ohne_SZ = "EXPORTED_FILENAME" Then
+                    If EXPORTED_FILENAME <> "" Then
+                        _STRING = _STRING.Replace(reg_element.Value, EXPORTED_FILENAME)
+                    End If
+                Else
+                    Dim wdIndexwert
+                    ' den Wert des Indexes für das aktuelle Dokument auslesen
+                    wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
+                    If wdIndexwert Is Nothing = False Then
+                        If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
+                            clsLogger.AddDetailLog("Namenkonvention (" & i & ") " & _STRING)
+                            wdIndexwert = wdIndexwert.ToString.TrimEnd
+                            wdIndexwert = wdIndexwert.ToString.TrimStart
+                            clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'")
+                            _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
+                            i += 1
+                        Else
+                            clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf")
+                            Return Nothing
+                        End If
+                    End If
+                End If
+
+
+            Next
+            Return _STRING
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "REGEX_REPLACE")
+            Return Nothing
+        End Try
+    End Function
+
+End Class
+

app/DDWDResultHandler/clsEmail.vb

@@ -0,0 +1,75 @@
+Imports System.Net.Mail
+Public Class clsEmail
+    Private Shared MailAktiv As Boolean = False
+    Private Shared MailSSL As Boolean = False
+    Private Shared MailEmpfaenger, MailFrom, MAilSMTP, MailUser, MailUser_PW As String
+    Public Shared Function Init()
+        Try
+            Dim DT As DataTable = clsSQLITE.Return_Datatable("select * from TBKONFIGURATION where GUID = 1 and EMAIL_AKTIV = 1")
+            If DT.Rows.Count = 1 Then
+                For Each row As DataRow In DT.Rows
+                    MailEmpfaenger = row.Item("EMAIL_EMP")
+                    MailFrom = row.Item("EMAIL_ABS")
+                    MAilSMTP = row.Item("EMAIL_SMTP")
+                    MailSSL = row.Item("EMAIL_SSL")
+                    MailUser = row.Item("EMAIL_USER")
+                    MailUser_PW = row.Item("EMAIL_USER_PW")
+                    MailAktiv = True
+                    Exit For
+                Next
+            Else
+                MailAktiv = False
+            End If
+
+            Return True
+        Catch ex As Exception
+            clsLogger.Add(ex.Message, True, "clsEmail.Init")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Send_EMail(ByVal MailBetreff As String, ByVal vBody As String)
+        '#### E-MAIL NACHRICHT VERSENDEN
+        Try
+            Dim empfaenger As String()
+            If MailEmpfaenger.Contains(";") Then
+                empfaenger = MailEmpfaenger.Split(";")
+            Else
+                ReDim Preserve empfaenger(0)
+                empfaenger(0) = MailEmpfaenger
+            End If
+            'Für jeden Empfänger eine Neue Mail erzeugen
+            For Each _mailempfaenger As String In empfaenger
+                'Neue Nachricht erzeugen: 
+                Dim message As New MailMessage(MailFrom, _mailempfaenger, MailBetreff, _
+                                                         "<font face=""Arial"">" & vBody & "<br>Maschine: " & Environment.MachineName & _
+                                                         "<br>Domain-Name: " & Environment.UserDomainName & "<br>" & _
+                                                         "<br>Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _
+                                                         My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
+                ' create and add the attachment(s) */
+                ' Dim Attachment As Attachment = New Attachment("E:\test\Frachkostenreport.txt")
+                'message.Attachments.Add(Attachment)
+                With message
+                    .IsBodyHtml = True
+                End With
+
+                'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
+                Dim emailClient As New SmtpClient(MAilSMTP)
+                emailClient.EnableSsl = MailSSL
+                'Email mit Authentifizierung
+                Dim SMTPUserInfo As New System.Net.NetworkCredential(MailUser, MailUser_PW) ', My.Settings.vDomain)
+                emailClient.UseDefaultCredentials = False
+                emailClient.Credentials = SMTPUserInfo
+                emailClient.Port = 25
+                clsLogger.Add("==> Fehler Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+                clsLogger.Add("==> Text: " & vBody, False)
+                clsLogger.Add("", False)
+                '*Send the message */
+                emailClient.Send(message)
+                Return True
+            Next
+        Catch ex As Exception
+            clsLogger.Add(ex.Message, True, "cls.SendEmail")
+            Return False
+        End Try
+    End Function
+End Class

app/DDWDResultHandler/clsHelper.vb

@@ -0,0 +1,78 @@
+Imports System.IO
+
+Public Class clsHelper
+    Public Shared Function Check_Folder(path As String)
+        Try
+            If Not IO.Directory.Exists(path) Then
+                ' Nein! Jetzt erstellen...
+                IO.Directory.CreateDirectory(path)
+                clsLogger.Add("Folder: '" & path & "' wurde erfolgreich angelegt", False)
+                ' Ordner wurde korrekt erstellt!
+            End If
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "clsHelper.Check_Folder")
+            Return False
+        End Try
+
+    End Function
+    Public Shared Function Prevent_Null(value)
+        Select Case value.GetType.ToString
+            Case "System.DBNull"
+                Return Nothing
+            Case Else
+                Return value
+        End Select
+    End Function
+    Public Shared Function func_check_file_use(ByVal sub_filename) As Boolean
+        Dim fs As Integer = FreeFile()
+        Dim inuse As Boolean = False
+        If File.Exists(sub_filename) Then
+            Try
+                FileOpen(fs, sub_filename, OpenMode.Binary, _
+                OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+            Catch
+                inuse = True
+            Finally
+                FileClose(fs)
+            End Try
+        End If
+        Return inuse
+    End Function
+    Public Shared Function file_exists(ByVal _file As String)
+        Try
+            If System.IO.File.Exists(_file) Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "clsHelper.file_exists")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Datei_Versionieren(Dateiname As String, LOG_ERR_ONLY As Boolean, modul As String)
+        Try
+            Dim version As Integer = 1
+            Dim extension As String = Path.GetExtension(Dateiname) 'Quelldatei.Substring(Quelldatei.LastIndexOf("."))
+            Dim Stammname As String = Path.GetDirectoryName(Dateiname)
+            Dim neuername As String = Path.GetFileNameWithoutExtension(Dateiname)
+            Dim endgueltigerDateiname As String = neuername & extension
+            'Automatische Versionierung mit Tilde + Version
+            Do While file_exists(Stammname & "\" & neuername & extension) = True
+                clsLogger.Add(" - Datei " & endgueltigerDateiname & " ist vorhanden - Datei wird versioniert", False)
+                neuername = Stammname & clsSQLITE.konf_VERSIONSTRENNZEICHEN & version
+                endgueltigerDateiname = neuername & extension
+                version = version + 1
+            Loop
+            Return Stammname & "\" & neuername & extension
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "clsHelper.Datei_Versionieren")
+            Return Nothing
+        End Try
+
+    End Function
+    Public Shared Function string_Contains(s As String, search As String)
+        Return s.ToLower.Contains(search.ToLower)
+    End Function
+End Class

app/DDWDResultHandler/clsLogger.vb

@@ -0,0 +1,155 @@
+Imports System.IO
+
+Public Class clsLogger
+    Private Shared LogPath As String
+    Private Shared LogFilename As String
+    Private Shared logErr_name As String
+    Private Shared log_string As String
+    Public Shared Function Init(ByVal speicherort As String, ByVal prefix As String)
+        Try
+            'Den Speicherort festlegen
+            SetSpeicherort()
+            Dim logf_name As String = LogPath & "\" & prefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+            logErr_name = LogPath & "\" & "ErrorLog_" & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+            Dim anz As Integer = 1
+            Do While File.Exists(logf_name)
+                Dim info As New FileInfo(logf_name)
+                Dim length As Long = info.Length
+                If length > 5000000 Then
+                    logf_name = IO.Path.GetDirectoryName(logf_name)
+                    logf_name = logf_name & "\" & prefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
+                    anz = anz + 1
+                Else
+                    Exit Do
+                End If
+            Loop
+            LogFilename = logf_name
+            Try
+                'Veruch das Log zu öffnen
+                Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
+                ' --- Stream öffnen
+                Dim w As StreamWriter = New StreamWriter(fs)
+                ' --- Anfügen am Ende
+                w.BaseStream.Seek(0, SeekOrigin.End)
+                ' --- Zeilen schreiben
+                w.WriteLine(" ")
+                ' --- Writer und Stream schließen
+                w.Close()
+                fs.Close()
+            Catch ex As Exception
+                LogEscalation_Error("The Logfile could not be created - Error: " & ex.Message)
+                Return False
+            End Try
+            'Alles Ok 
+            Return True
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in init Logger - Error: " & ex.Message)
+            Return False
+        End Try
+
+    End Function
+    Private Shared Sub LogEscalation_Error(msg As String)
+        Try
+            'Veruch das Log zu öffnen
+            Dim fs As FileStream = New FileStream(logErr_name, FileMode.OpenOrCreate, FileAccess.Write)
+            ' --- Stream öffnen
+            Dim w As StreamWriter = New StreamWriter(fs)
+            ' --- Anfügen am Ende
+            w.BaseStream.Seek(0, SeekOrigin.End)
+            ' --- Zeilen schreiben
+            w.WriteLine(msg)
+            ' --- Writer und Stream schließen
+            w.Close()
+            fs.Close()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    ' legt den Speicherort fest
+    Public Shared Sub SetSpeicherort()
+        Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
+        If f.Exists = False Then
+            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
+        End If
+        LogPath = My.Application.Info.DirectoryPath & "\Log\"
+    End Sub
+    Public Shared Sub Add(ByVal text As String, ByVal _error As Boolean, Optional ByVal Funktion As String = "")
+        Dim msg As String
+        If log_string <> "" Then
+            log_string &= vbNewLine
+        End If
+        'Präfixe schreiben
+        If _error = True And Funktion <> "" Then
+            msg = ">> Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
+        ElseIf _error = True Then
+            msg = ">> Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
+        End If
+        'Präfix und Meldung zusammenstellen
+        msg &= text
+        log_string &= msg
+    End Sub
+    Public Shared Sub AddError(ByVal error_string As String, Optional ByVal Funktion As String = "")
+        Try
+            'Zuerst mal die Details schreiben
+            WriteLog()
+            'Nun den eigentlichen Fehler loggen
+            Dim msg As String
+            'Präfixe schreiben
+            If Funktion <> "" Then
+                msg = ">> Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
+            Else
+                msg = ">> Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
+            End If
+            'Präfix und Meldung zusammenstellen
+            msg &= error_string
+            'Veruch das Log zu öffnen
+            Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
+            ' --- Stream öffnen
+            Dim w As StreamWriter = New StreamWriter(fs)
+            ' --- Anfügen am Ende
+            w.BaseStream.Seek(0, SeekOrigin.End)
+            ' --- Zeilen schreiben
+            w.WriteLine(msg)
+            ' --- Writer und Stream schließen
+            w.Close()
+            fs.Close()
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in AddError - Error: " & ex.Message)
+        End Try
+        
+    End Sub
+
+    Public Shared Sub AddDetailLog(ByVal text As String)
+        Try
+            If clsSQLITE.konf_logerrorsonly = False Then
+                If log_string <> "" Then
+                    log_string &= vbNewLine
+                End If
+                log_string &= ">> " & text
+            End If
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in AddDetailLog - Error: " & ex.Message)
+        End Try
+    End Sub
+
+    Public Shared Sub WriteLog()
+        Try
+            'Veruch das Log zu öffnen
+            Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
+            ' --- Stream öffnen
+            Dim w As StreamWriter = New StreamWriter(fs)
+            ' --- Anfügen am Ende
+            w.BaseStream.Seek(0, SeekOrigin.End)
+            ' --- Zeilen schreiben
+            w.WriteLine(log_string)
+            ' --- Writer und Stream schließen
+            w.Close()
+            fs.Close()
+            SetSpeicherort()
+            'Den Meldungsstring wieder leeren
+            log_string = ""
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in WriteLog - Error: " & ex.Message)
+        End Try
+    End Sub
+End Class

app/DDWDResultHandler/clsProfil.vb

@@ -0,0 +1,370 @@
+Imports WINDREAMLib
+Imports System.IO
+Public Class clsProfil
+
+#Region "***** Variablen *****"
+    Public Shared _Profilname, _profObjekttyp, _profwdSuche, _profDay, _profRunType As String
+    Public Shared _profGUID As Integer
+    Public Shared _proflastRun As Date
+
+
+    Private email As New clsEmail
+    Private Shared CriticalError As Boolean = False
+
+    Private Shared WD_aktivesDokument As WMObject
+#End Region
+    Public Shared Function Init(guid As Integer)
+        Try
+            clsLogger.AddDetailLog("Start Initialisierung Profil für GUID: " & guid.ToString)
+            Dim DT As DataTable = clsSQLITE.Return_Datatable("Select * from TBPROFIL where GUID = " & guid & " AND Running = 0")
+            If DT.Rows.Count > 0 Then
+                For Each DR As DataRow In DT.Rows
+                    _profGUID = guid
+                    _Profilname = CStr(DR.Item("Profilname"))
+                    clsLogger.AddDetailLog("Check Profilname '" & _Profilname & "', GUID: " & _profGUID & " geladen")
+                    ' Überprüfen ob Profil aktiv oder inaktiv
+                    If CBool(DR.Item("Aktiv")) = False Then
+                        clsLogger.Add("## Profil '" & _Profilname & "' ist inaktiv geschaltet", False)
+                        clsLogger.Add("", False)
+                        Return 0
+                    Else
+                        _profObjekttyp = CStr(DR.Item("Objekttyp"))
+                        _profwdSuche = CStr(DR.Item("WindreamSuche"))
+                        _profDay = CStr(DR.Item("Day"))
+                        _profRunType = CStr(DR.Item("Run"))
+                        _proflastRun = DR.Item("Letzter_Durchlauf")
+                        clsLogger.AddDetailLog("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen")
+                        Return True
+                    End If
+                Next
+            Else
+                clsLogger.Add("Achtung - keine Profile für diesen Durchlaufthread verfügbar", False)
+                Return 1
+            End If
+            
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "Profil_Init")
+            Return False
+        End Try
+
+    End Function
+    'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war
+    Public Shared Function Profil_Durchlauf()
+        Dim _error As Boolean = False
+        Try
+            Dim Run_Profile As Boolean = False
+            'Soll die Verarbeitung heute durchgeführt werden??
+            Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
+            If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
+                'Verarbeitung soll heute durchgeführt werden
+                clsLogger.AddDetailLog("Verarbeitung soll heute durchgeführt werden!")
+                clsLogger.AddDetailLog("_RunType: " & _profRunType)
+                Dim arr As String()
+                arr = _profRunType.Split(";")
+                clsLogger.AddDetailLog("arr(1): " & arr(1).ToString)
+                Select Case arr(0)
+                    Case "TIME"
+                        Dim Time_last As DateTime = clsSQLITE.konf_LASTTICK.ToShortTimeString
+                        ' Dim intervall As Integer = clsSQLITE.konf_intervall / 60
+                        clsLogger.AddDetailLog("Intervall: 1 Minute")
+                        Dim Time_next As DateTime = _proflastRun.AddMinutes(1)
+                        Dim _RunTime As Date = CDate(arr(1))
+                        clsLogger.AddDetailLog("ProfilTime: " & _RunTime)
+                        clsLogger.AddDetailLog("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString)
+                        If Time_next.ToString.StartsWith("11.11.1911") Then
+                            clsLogger.AddDetailLog("Manueller Durchlauf des Profils - 11.11.1911")
+                            Run_Profile = True
+                        Else
+                            'Ist die Uhrzeit in der Range
+                            If _RunTime.ToShortTimeString = Now.ToShortTimeString Then
+                                Run_Profile = True
+                            End If
+                        End If
+
+                    Case "INTV"
+                        'Die Differenz berechnen
+                        Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now)
+                        Dim msg As String
+                        msg = "Minutenangaben: " & vbNewLine
+                        msg = msg & "DiffMin: " & DiffMin & vbNewLine
+                        msg = msg & "Intervall: " & arr(1)
+                        clsLogger.AddDetailLog(msg)
+                        If DiffMin >= CInt(arr(1)) Then
+                            'Den Durchlauf erlauben
+                            Run_Profile = True
+                        End If
+                    Case Else
+                        clsLogger.Add(">> _profRunType konnte nicht ausgewertet werden - " & arr(0), False)
+                End Select
+                If Run_Profile = True Then
+                    clsLogger.Add(">> Start des Durchlaufes für Profil '" & _Profilname & "'", False)
+                    'den Durchlaufszeitpunkt speichern
+                    clsSQLITE.Execute_non_Query("Update TBPROFIL SET Running = 1 WHERE GUID = " & _profGUID)
+                    clsLogger.AddDetailLog("Prüfen der windream-Suche.......")
+                    If File.Exists(_profwdSuche) = False Then
+                        clsLogger.Add("Die Windream-Suche '" & _profwdSuche & "' existiert nicht!", True, "clsProfil.Profil_Durchlauf")
+                        'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
+                        If clsSQLITE.konf_EmailAktiv Then
+                            clsEmail.Send_EMail("Fehler in windream-ResultHandler", "<br> >> Profilname: '" & _Profilname & "'<br> >> Die windream-Suche : " & _profwdSuche & " konnte nicht gefunden werden!" & _
+                                                            "<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
+                        End If
+                        Return False
+                    Else
+                        ' windream-Suche für Profil starten
+                        clsLogger.AddDetailLog("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ")
+                        Dim windreamSucheErgebnisse As WMObjects = clsWindream_allgemein.GetSearchDocuments(_profwdSuche)
+
+                        If windreamSucheErgebnisse.Count > 0 Then
+                            clsLogger.Add("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden", False)
+                            clsLogger.AddDetailLog("SELECT * FROM TBPROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
+                            Dim DT_PROFIL_JOB As DataTable = clsSQLITE.Return_Datatable("SELECT * FROM TBPROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
+                            Dim DT_PROFIL_FILE_JOB As DataTable = clsSQLITE.Return_Datatable("SELECT * FROM TBPROFIL_FILE_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
+                            clsLogger.AddDetailLog("DT_PROFIL_JOB und DT_PROFIL_FILE_JOB generiert ")
+                            If DT_PROFIL_JOB.Rows.Count > 0 Then
+                                clsLogger.AddDetailLog("DT_PROFIL_JOB.Rows.Count > 0")
+                                If clsDateiverarbeitung.InitProfilData = True Then
+                                    clsLogger.AddDetailLog("clsDateiverarbeitung.InitProfilData = True")
+                                    For Each dok As WMObject In windreamSucheErgebnisse
+                                        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
+                                                Case "Export HDD".ToUpper
+                                                    clsLogger.AddDetailLog("Case Export HDD")
+                                                    'Für jedes Dokument in der Windream-Ergebnisliste
+                                                    'For Each dok As WMObject In windreamSucheErgebnisse
+                                                    ' aktuelles Dokument zum Export bereitstellen
+                                                    EXPORTED_FILENAME = ""
+                                                    If clsDateiverarbeitung.Export_File(dok, DR_PR_JB.Item("STRING1")) = True Then
+                                                        If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
+                                                            clsLogger.AddDetailLog("Anzahl ")
+                                                            'Für jeden File-Job
+                                                            Dim errorFileJob As Boolean = False
+                                                            For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
+                                                                If errorFileJob = True Then Exit For
+                                                                Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower
+                                                                    Case "Set Index".ToLower
+                                                                        Try
+                                                                            'Überprüfen ob Value bereits gesetzt wurde?
+                                                                            Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString
+                                                                            Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString
+                                                                            If idxvalue.Contains("[%DATETIME]") Then
+                                                                                idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString)
+                                                                            End If
+                                                                            clsLogger.AddDetailLog("Datei soll mit Index '" & idxName & "'indexiert werden...")
+                                                                            Dim arrIndex() As String
+                                                                            ReDim Preserve arrIndex(0)
+                                                                            arrIndex(0) = idxName
+                                                                            clsLogger.AddDetailLog("...nach arrIndex")
+
+                                                                            Dim arrValue() As String
+
+                                                                            Dim aktvalue As Object
+                                                                            aktvalue = dok.GetVariableValue(idxName)
+                                                                            clsLogger.AddDetailLog("...nach aktValue zuweisen..")
+
+                                                                            If aktvalue Is Nothing Then
+                                                                                clsLogger.AddDetailLog("Index '" & idxName & "' ist noch leer.")
+                                                                                ReDim Preserve arrValue(0)
+                                                                                arrValue(0) = idxvalue
+                                                                            Else
+                                                                                clsLogger.AddDetailLog("Index '" & idxName & "' ist bereits gefüllt.")
+                                                                                Dim myArray()
+                                                                                ReDim myArray(0)
+                                                                                myArray(0) = idxvalue
+
+                                                                                Dim VektorArray()
+                                                                                VektorArray = Return_VektorArray(dok, idxName, myArray, True)
+
+                                                                                If VektorArray Is Nothing = False Then
+                                                                                    ReDim arrValue(VektorArray.Length - 1)
+                                                                                    Array.Copy(VektorArray, arrValue, VektorArray.Length)
+                                                                                End If
+
+                                                                            End If
+
+                                                                            If arrValue Is Nothing = False Then
+                                                                                clsWindream_Index.RunIndexing(dok, arrIndex, arrValue, _profObjekttyp)
+                                                                            Else
+                                                                                clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf")
+                                                                            End If
+
+                                                                        Catch ex As Exception
+                                                                            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)")
+                                                                        End Try
+                                                                    Case "Rename File with windream Index".ToLower
+                                                                        clsLogger.AddDetailLog("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
+                                                                        clsDateiverarbeitung.Rename_File(dok, DR_PR_FILE_JOB.Item("STRING1").ToString)
+                                                                    Case "Execute Oracle Command"
+                                                                        Try
+                                                                            Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
+                                                                            Dim oracleCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
+                                                                            errorFileJob = clsDateiverarbeitung.RUN_ORACLE_COMMAND(dok, oracleconnectionstring, oracleCommandRAW)
+                                                                        Catch ex As Exception
+                                                                            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)")
+                                                                        End Try
+                                                                    Case "Execute MSSQL Command"
+                                                                        Try
+                                                                            errorFileJob = clsDateiverarbeitung.RUN_MSSQL_COMMAND(dok, DR_PR_FILE_JOB.Item("STRING1").ToString, DR_PR_FILE_JOB.Item("STRING2").ToString)
+                                                                        Catch ex As Exception
+                                                                            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)")
+                                                                        End Try
+                                                                End Select
+                                                                'Abschluss Bearbeitung File Job
+                                                                clsLogger.WriteLog()
+                                                            Next
+                                                        Else
+                                                            clsLogger.Add(">> KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf")
+                                                            clsLogger.WriteLog()
+                                                        End If
+                                                    Else
+                                                        clsSQLITE.Execute_non_Query("UPDATE TBPROFIL SET Running = 0, LETZTER_DURCHLAUF = DATETIME ('now' , 'localtime') WHERE GUID = " & _profGUID)
+                                                    End If
+                                                    'Next
+
+                                            End Select
+                                            'Abschluss Bearbeitung Job
+                                            clsLogger.WriteLog()
+                                        Next
+                                       
+                                    Next
+                                    
+                                Else
+                                    clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True)
+                                    clsLogger.WriteLog()
+                                End If
+                            Else
+                                clsLogger.Add(">> KEINE JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf")
+                                clsLogger.WriteLog()
+                            End If
+                        Else
+                            ' keine Dateien zum Importieren
+                            clsLogger.Add(">> Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.", False)
+                            clsLogger.Add("", False)
+                            clsLogger.WriteLog()
+                        End If
+                    End If
+
+                End If
+            Else
+                clsLogger.AddDetailLog("Verarbeitung für heute NICHT konfiguriert")
+                clsLogger.WriteLog()
+            End If
+            'Abschluss des Profiles
+            clsSQLITE.Execute_non_Query("UPDATE TBPROFIL SET Running = 0, LETZTER_DURCHLAUF = DATETIME ('now' , 'localtime') WHERE GUID = " & _profGUID)
+            clsLogger.AddDetailLog("'UPDATE TBPROFIL SET Running = 0' ausgeführt")
+            clsLogger.WriteLog()
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf")
+            clsSQLITE.Execute_non_Query("Update TBPROFIL SET Running = 0 WHERE GUID = " & _profGUID)
+            CriticalError = False
+            DDWDResultHandler.threadRunner.CancelAsync()
+            Return False
+        End Try
+    End Function
+    Private Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
+        Try
+            Dim missing As Boolean = False
+            Dim Anzahl As Integer = 0
+            Dim ValueArray()
+            'Jeden Wert des Vektorfeldes durchlaufen
+            Dim wertWD = oDocument.GetVariableValue(vktIndexName)
+            If wertWD Is Nothing = False Then
+                'Nochmals prüfen ob wirklich Array
+                If wertWD.GetType.ToString.Contains("System.Object") Then
+                    'Keine Duplikatprüfung also einfach neues Array füllen
+                    If CheckDuplikat = False Then
+                        For Each value As Object In wertWD
+                            'Das Array anpassen
+                            ReDim Preserve ValueArray(Anzahl)
+                            'Den Wert im Array speichern
+                            ValueArray(Anzahl) = value.ToString
+                            Anzahl += 1
+                        Next
+                        'Und jetzt den/die Neuen Wert(e) anfügen
+                        For Each NewValue As Object In NIIndexe
+                            If NewValue Is Nothing = False Then
+                                'Das Array anpassen
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = NewValue.ToString
+                                Anzahl += 1
+
+                            End If
+                        Next
+                    Else
+                        clsLogger.AddDetailLog("Duplikatprüfung soll durchgeführt werden.")
+                        'Duplikat Prüfung an, also nur anhängen wenn Wert <>
+                        For Each WDValue As Object In wertWD
+                            If WDValue Is Nothing = False Then
+                                'Erst einmal die ALten Werte schreiben
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = WDValue.ToString
+                                clsLogger.AddDetailLog("Value (" & Anzahl & ") " & WDValue.ToString)
+                                Anzahl += 1
+                            End If
+                        Next
+                        'Jetzt die Neuen Werte auf Duplikate überprüfen
+                        For Each NewValue As Object In NIIndexe
+                            If NewValue Is Nothing = False Then
+                                If ValueArray.Contains(NewValue) = False Then
+                                    clsLogger.AddDetailLog("New Value (" & Anzahl & ") " & NewValue.ToString)
+                                    'Das Array anpassen
+                                    ReDim Preserve ValueArray(Anzahl)
+                                    'Den Wert im Array speichern
+                                    ValueArray(Anzahl) = NewValue.ToString
+                                    Anzahl += 1
+                                Else
+                                    clsLogger.AddDetailLog("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
+                                End If
+                            End If
+                        Next
+                    End If
+                End If
+            Else
+                clsLogger.AddDetailLog("Vektorfeld ist noch leer....")
+                'Den/die Neuen Wert(e) anfügen
+                For Each NewValue As Object In NIIndexe
+                    If NewValue Is Nothing = False Then
+                        If CheckDuplikat = True Then
+                            If ValueArray Is Nothing = False Then
+                                If ValueArray.Contains(NewValue) = False Then
+                                    'Das Array anpassen
+                                    ReDim Preserve ValueArray(Anzahl)
+                                    'Den Wert im Array speichern
+                                    ValueArray(Anzahl) = NewValue.ToString
+                                    Anzahl += 1
+                                Else
+                                    clsLogger.AddDetailLog("Value '" & NewValue.ToString & "' bereits in Array enthalten")
+                                End If
+                            Else 'Dererste Wert, also hinzufügen
+                                'Das Array anpassen
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = NewValue.ToString
+                                Anzahl += 1
+
+                            End If
+
+                        Else
+                            'Das Array anpassen
+                            ReDim Preserve ValueArray(Anzahl)
+                            'Den Wert im Array speichern
+                            ValueArray(Anzahl) = NewValue.ToString
+                            Anzahl += 1
+                        End If
+                    End If
+                Next
+            End If
+
+            clsLogger.AddDetailLog("Return ValueArray: length " & ValueArray.Length)
+            Return ValueArray
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "Return_VektorArray")
+            Return Nothing
+        End Try
+    End Function
+
+End Class
+

app/DDWDResultHandler/clsWindream_Index.vb

@@ -0,0 +1,692 @@
+Imports WINDREAMLib
+Imports WMOSRCHLib
+Public Class clsWindream_Index
+    Inherits clsWindream_allgemein
+  
+#Region "+++++ Konstanten +++++"
+    Protected Const WMObjectEditModeObject = &H1F
+    Protected Const WMObjectStreamOpenModeReadWrite = 2
+    Protected Const WMEntityObjectType = 10
+    Protected Const WMEntityDocument = 1
+
+    Const WMObjectVariableValueTypeUndefined = 0
+    Const WMObjectVariableValueTypeString = 1
+    Const WMObjectVariableValueTypeInteger = 2
+    Const WMObjectVariableValueTypeFloat = 3
+    Const WMObjectVariableValueTypeBoolean = 4
+    Const WMObjectVariableValueTypeDate = 5
+    Const WMObjectVariableValueTypeFixedPoint = 6
+    Const WMObjectVariableValueTypeTimeStamp = 7
+    Const WMObjectVariableValueTypeCurrency = 8
+    Const WMObjectVariableValueTypeTime = 9
+    Const WMObjectVariableValueTypeVariant = 10
+    Const WMObjectVariableValueTypeMask = &HFFF
+    Const WMObjectVariableValueFlagMask = &HFFFFF000
+    Const WMObjectVariableValueTypeVector = &H1000
+    Const WMObjectVariableValueTypeFulltext = &H2000
+    Const WMObjectVariableValueTypeDefaultValue = &H4000
+#End Region
+
+#Region "+++++ Variablen +++++"
+    'Private oController = CreateObject("WMOSrch.WMQuickSearch") 'As New WMOSearchController
+    'Private oController As New WMOSearchController
+    Private oController As New WMOSearchController
+    'Dim srchQuick = CreateObject("WMOSrch.WMQuickSearch") 'As WMOSRCHLib.WMQuickSearch
+#End Region
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+    Sub New()
+        MyBase.New()
+    End Sub
+    Private Shared Function IsNotEmpty(ByVal aValue As Object)
+
+        If aValue IsNot Nothing Then
+            Dim itsType As Type = aValue.GetType
+            If itsType Is GetType(String) Then
+
+                If Not aValue = "" Then
+                    Return True
+                End If
+
+                Return False
+            Else
+                Return True
+            End If
+        Else
+            Return False
+        End If
+
+    End Function
+    Private Function return_type(ByVal _wert As Object)
+        Return _wert.GetType
+    End Function
+    Public Function GetIndex_Type(idxName) As String
+        Try
+            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, idxName)
+            'den Variablentyp (String, Integer, ...) auslesen 
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Dim Type As String
+            Select Case (vType)
+                'Case WMObjectVariableValueTypeUndefined
+                Case WMObjectVariableValueTypeString
+                    Type = "String"
+                Case WMObjectVariableValueTypeInteger
+                    Type = "Integer"
+                Case WMObjectVariableValueTypeFloat
+                    Type = "Float"
+                Case WMObjectVariableValueTypeFixedPoint
+                    Type = "Point"
+                Case WMObjectVariableValueTypeBoolean
+                    Type = "Boolean"
+                Case WMObjectVariableValueTypeDate
+                    Type = "Date"
+                Case WMObjectVariableValueTypeTimeStamp
+                    Type = "Timestamp"
+                Case WMObjectVariableValueTypeCurrency
+                    Type = "Currency"
+                Case WMObjectVariableValueTypeTime
+                    Type = "Time"
+                Case WMObjectVariableValueTypeFloat
+                    Type = "Float"
+                Case WMObjectVariableValueTypeVariant
+                    Type = "Varia´nt"
+                Case WMObjectVariableValueTypeFulltext
+                    Type = "Fulltext"
+                Case 4097
+                    Type = "Vektor String"
+                Case 4098
+                    Type = "Vektor Numerisch"
+                Case 4099
+                    Type = "Vektor Float"
+                Case 4101
+                    Type = "Vektor Date"
+                Case 4103
+                    Type = "Vektor DateTime"
+                Case 36865
+                    Type = "Vektor Alpha"
+                Case Else
+                    Type = "String Else"
+            End Select
+            Return Type
+        Catch ex As Exception
+
+        End Try
+    End Function
+    Public Shared Function RunIndexing_Vektor(ByVal oDocument As WMObject, ByVal Indizes As String(), ByVal aValues As String())
+        Try
+            If Indizes IsNot Nothing And aValues IsNot Nothing Then
+                If Not oDocument.aLocked Then
+                    oDocument.lock()
+
+                    If aValues.Length = 1 And aValues(0) = "" Then
+                        clsLogger.Add(" >> RunIndexing_Vektor: Indexwert ist leer/Nothing - Keine Nachindexierung", False)
+                    Else
+                        'Jetzt jeden Indexwert durchlaufen
+                        Dim indexname As String
+                        indexname = Indizes(0)
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: Indexname: " & indexname)
+                        'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays")
+                        ' das entsprechende Attribut aus windream auslesen
+                        Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+                        ' den Variablentyp (String, Integer, ...) auslesen 
+                        Dim vType = oAttribute.getVariableValue("dwAttrType")
+                        Select Case (vType)
+                            Case 4097
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
+                            Case 4098
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4098 Vektor Numerisch")
+                            Case 4099
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4099 Vektor Kommazahl")
+                            Case 4101
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4101 Vektor Date")
+                            Case 4103
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4103 Vektor DateTime")
+                            Case 4107
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4107 Vektor Integer(64bit)")
+                            Case 36865
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
+                        End Select
+                        Dim myArray
+                        Dim Anzahl As Integer = aValues.Length - 1
+                        'Vektorfeld wird mit EINEM Wert gefüllt
+                        If Anzahl = 0 Then
+                            clsLogger.AddDetailLog("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ")
+                            ReDim myArray(0)
+                            Select Case (vType)
+                                Case 4097
+                                    myArray(0) = CStr(aValues(0))
+                                Case 4098
+                                    myArray(0) = CInt(aValues(0).Replace(" ", ""))
+                                Case 4099
+                                    Dim str As String = aValues(0)
+                                    str = str.ToString.Replace(" ", "")
+                                    myArray(0) = CDbl(str.Replace(".", ","))
+
+                                Case 4101
+                                    myArray(0) = CDate(aValues(0))
+                                Case 4103
+                                    myArray(0) = aValues(0)
+                                Case 4107
+                                    myArray(0) = Convert.ToInt64(aValues(0))
+                                Case 36865
+                                    myArray(0) = CStr(aValues(0))
+                            End Select
+                            clsLogger.AddDetailLog("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
+                        Else
+                            clsLogger.AddDetailLog("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ")
+                            'Die Größe des Arrays festlegen
+                            ReDim myArray(Anzahl)
+                            Dim i1 As Integer = 0
+                            For Each aValue As String In aValues
+                                Select Case (vType)
+                                    Case 4107
+                                        Dim wert = aValue.Replace(" ", "")
+                                        wert = Convert.ToInt64(wert) 'ToInt64
+                                        myArray(i1) = wert
+                                    Case 4097
+                                        myArray(i1) = CStr(aValue)
+                                    Case 4098
+                                        Dim wert = aValue.Replace(" ", "")
+                                        Dim convertValue
+                                        If IsNumeric(wert) Then
+                                            Try
+                                                convertValue = CInt(wert)
+                                            Catch ex As Exception
+                                                clsLogger.AddDetailLog("Wert muss in Int64 konvertiert werden")
+                                                convertValue = Convert.ToInt64(wert) 'ToInt64
+                                            End Try
+                                        Else
+                                            '    clsLoggerNI.Add("Indexierungswert '" & wert.ToString & "' kann nicht in Integer konvertiert werden")
+                                            Return False
+                                        End If
+
+                                        myArray(i1) = convertValue
+                                    Case 4099
+                                        myArray(i1) = CDbl(aValue.Replace(".", ",").Replace(" ", ""))
+                                    Case 4101
+                                        myArray(i1) = CDate(aValue)
+                                    Case 4103
+                                        myArray(i1) = aValue
+                                    Case 36865
+                                        myArray(i1) = CStr(aValue)
+                                    Case Else
+                                        myArray(i1) = CStr(aValue)
+                                End Select
+                                i1 += 1
+                            Next
+                        End If
+                        'Jetzt die Nachindexierung für Vektor-Felder
+                        oDocument.SetVariableValue(indexname, myArray)
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich")
+
+                        oDocument.Save()
+                        oDocument.unlock()
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
+                        Return True
+                    End If
+                Else
+                    clsLogger.Add(" >> RunIndexing_Vektor: Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", True)
+                    Return False
+                End If
+            End If
+        Catch ex As Exception
+            clsLogger.AddError("## Fehler in RunIndexing_Vektor - Fehler: " & ex.Message, "RunIndexingVektor")
+            oDocument.Save()
+            oDocument.unlock()
+            Return False
+        End Try
+
+
+    End Function
+    Public Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Objekttyp As String)
+        Try
+            If Indizes IsNot Nothing And aValues IsNot Nothing Then
+                If Not oDocument.aLocked Then
+                    oDocument.lock()
+                    Dim i As Integer = 0
+                    Dim indexname As String
+                    If aValues.Length = 1 And aValues(0) = "" Then
+                        clsLogger.AddDetailLog("Indexwert ist leer/Nothing - Keine Indexierung")
+                    End If
+                    ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
+                    If oDocument.aObjectType.aName <> Objekttyp Then
+                        ' ihr den entsprechenden Dokumenttyp zuweisen
+                        oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
+                        ' WMObject.aObjectType = selectedProfile.Dokumenttyp
+                        clsLogger.AddDetailLog("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
+                    Else
+                        clsLogger.AddDetailLog("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
+                        indexname = aName
+                        ' das entsprechende Attribut aus windream auslesen
+                        Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
+                        ' den Variablentyp (String, Integer, ...) auslesen 
+                        Dim vType = oAttribute.getVariableValue("dwAttrType")
+                        ' wenn in aValues an Position i ein Wert steht
+                        If IsNotEmpty(aValues(i)) Then
+                            Dim _int As Boolean = False
+                            Dim _date As Boolean = False
+                            Dim _dbl As Boolean = False
+                            Dim _bool As Boolean = False
+                            'If indexname = "Tournr" Then
+                            '    MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString)
+                            'End If
+                            clsLogger.AddDetailLog("Indexierung von Index '" & indexname & "'")
+                            'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
+                            Dim value = aValues(i)
+                            Dim convertValue
+                            Dim vektor As Boolean = False
+                            'Den Typ des Index-Feldes auslesen
+                            'MsgBox(value.GetType.ToString)
+                            Select Case (vType)
+                                'Case WMObjectVariableValueTypeUndefined
+                                Case WMObjectVariableValueTypeString
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeString")
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeInteger
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
+                                    value = value.ToString.Replace(" ", "")
+                                    If IsNumeric(value) = False Then
+                                        clsLogger.AddDetailLog("Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!")
+                                    End If
+
+                                    value = value.ToString.Replace(" ", "")
+                                    convertValue = CInt(value)
+                                    _int = True
+                                Case WMObjectVariableValueTypeFloat
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
+                                    value = value.ToString.Replace(" ", "")
+                                    convertValue = CDbl(value)
+                                Case WMObjectVariableValueTypeFixedPoint
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
+                                    value = value.ToString.Replace(" ", "")
+                                    convertValue = CDbl(value)
+                                    _dbl = True
+                                Case WMObjectVariableValueTypeBoolean
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
+                                    convertValue = CBool(value)
+                                    _bool = True
+                                Case WMObjectVariableValueTypeDate
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeDate")
+                                    _date = True
+                                    'Dim _date As Date = value
+                                    convertValue = value
+                                Case WMObjectVariableValueTypeTimeStamp
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
+                                    convertValue = CDbl(value)
+                                Case WMObjectVariableValueTypeCurrency
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeCurrency")
+                                    'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
+                                    Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
+                                    convertValue = aValueWrapper
+                                Case WMObjectVariableValueTypeTime
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeTime")
+                                    'If ((value)) Then
+                                    '    convertValue = CDate(value)
+                                    'Else
+                                    '    convertValue = ""
+                                    'End If
+                                    'Dim _date As Date = value
+                                    convertValue = convertValue '*_date.ToShortTimeString
+                                Case WMObjectVariableValueTypeFloat
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeVariant
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeFulltext
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
+                                    convertValue = CStr(value)
+                                Case 4097
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
+                                    'Vektor alphanumerisch
+                                    vektor = True
+                                Case 4098
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4098 Vektor Numerisch")
+                                    'Vektor Numerisch
+                                    vektor = True
+                                Case 4099
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4099 Vektor Kommazahl")
+                                    'Vektor Kommazahl
+                                    vektor = True
+                                Case 4101
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4101 Vektor Date")
+                                    'Vektor Kommazahl
+                                    vektor = True
+                                Case 4103
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4103 Vektor DateTime")
+                                    'Vektor DateTime
+                                    vektor = True
+                                Case 4107
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4107 Integer 64bit")
+                                    vektor = True
+                                Case 36865
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
+                                    'Vektor Kommazahl
+                                    vektor = True
+                                Case Else
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes konnte nicht bestimmt werden!")
+                                    clsLogger.AddDetailLog("Versuch des Auslesens (vType): " & vType)
+                                    'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
+                                    convertValue = ""
+                            End Select
+                            If vektor = False Then
+                                If convertValue.ToString Is Nothing = False Then
+                                    clsLogger.AddDetailLog("Konvertierter Wert: '" & convertValue.ToString & "'")
+                                End If
+                            End If
+                            '############################################################################################
+                            '####################### Der eigentliche Indexierungsvorgang ################################
+                            '############################################################################################
+                            If vektor = False Then
+                                If convertValue.ToString Is Nothing = False Then
+                                    clsLogger.AddDetailLog("Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")")
+                                    If _int = True Then
+                                        convertValue = convertValue.ToString.Replace(" ", "")
+                                        oDocument.SetVariableValue(aName, CInt(convertValue))
+                                    ElseIf _date = True Then
+                                        oDocument.SetVariableValue(aName, CDate(convertValue))
+                                    ElseIf _bool Then
+                                        oDocument.SetVariableValue(aName, CBool(convertValue))
+                                    ElseIf _dbl Then
+                                        convertValue = convertValue.ToString.Replace(" ", "")
+                                        oDocument.SetVariableValue(aName, CDbl(convertValue))
+                                    Else
+                                        oDocument.SetVariableValue(aName, convertValue)
+                                    End If
+
+                                    clsLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False)
+                                    clsLogger.Add("", False)
+                                Else
+                                    clsLogger.Add(" >> Kein Indexwert vorhanden", False)
+                                End If
+                            Else
+                                'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
+                                clsLogger.AddDetailLog("VEKTORFELD: Vorbereiten des Arrays")
+
+                                Dim myArray()
+                                'Dim DS As DataSet
+                                'Dim DT As DataTable
+                                'Dim DR As DataRow
+                                '' --- DataSet zuweisen
+                                'DS = New MyDataset
+                                '' --- Zugriff auf Tabelle
+                                'DT = DS.Tables("TBVEKTOR_INDEX")
+                                'DT.Clear()
+                                'For Each NewValue As Object In aValues
+
+                                'Next
+                                '' --- den Filter auf den Indexnamen setzen
+                                'Dim expression As String
+                                'expression = "Indexname = '" & aName.ToString & "'"
+                                'Dim foundRows() As DataRow
+                                ' Use the Select method to find all rows matching the filter.
+                                'foundRows = DT.Select(expression)
+                                'For Each row As DataRow In DT.Rows
+                                'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert")))
+                                'Next
+                                Dim Anzahl As Integer = aValues.Length
+                                'Vektorfeld wird mit EINEM Wert gefüllt
+                                If Anzahl = 1 Then
+                                    clsLogger.AddDetailLog("Vektorfeld wird mit EINEM Wert gefüllt ")
+                                    ReDim myArray(0)
+                                    Select Case vType
+                                        Case 36865
+                                            'Umwandeln in String
+                                            myArray(0) = CStr(value)
+                                        Case 4097
+                                            'Umwandeln in String
+                                            myArray(0) = CStr(value)
+                                        Case 4098
+                                            'Umwandeln in Integer
+                                            value = value.ToString.Replace(" ", "")
+                                            myArray(0) = CInt(value)
+                                        Case 4099
+                                            Dim Str As String = value
+                                            Str = Str.ToString.Replace(" ", "")
+                                            'Umwandeln in Double
+                                            myArray(0) = CDbl(Str.Replace(".", ","))
+                                        Case 4101
+                                            'Umwandeln in Date
+                                            myArray(0) = CDate(value)
+                                        Case 4107
+                                            myArray(0) = Convert.ToInt64(value)
+                                        Case 4103
+                                            'Umwandeln in Datum Uhrzeit
+                                            myArray(0) = value
+                                        Case Else
+                                            'Umwandeln in String
+                                            myArray(0) = CStr(value)
+                                    End Select
+                                    clsLogger.AddDetailLog("Konvertierter Wert: " & myArray(0).ToString)
+                                Else
+                                    clsLogger.AddDetailLog("Vektorfeld wird mit MEHREREN Werten gefüllt ")
+                                    Select Case vType
+                                        Case 36865
+                                            'Vektortyp ALPHANUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4097
+                                            'Vektortyp ALPHANUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4107
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = Convert.ToInt64((NewValue))
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4098
+                                            'Vektortyp NUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                Dim v As String = NewValue.ToString.Replace(" ", "")
+                                                myArray(i1) = CInt(v)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4099
+                                            'Vektortyp FLOAT
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                Dim Str As String = NewValue
+                                                Str = Str.ToString.Replace(" ", "")
+                                                myArray(i1) = CDbl(Str.Replace(".", ","))
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4101
+                                            'Vektortyp DATE
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                Dim Str As String = NewValue.ToString
+                                                myArray(i1) = CDate(Str.Replace(".", ","))
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+
+                                            Next
+                                        Case Else
+                                            'Vektortyp ALPHANUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                    End Select
+                                End If
+                                'Jetzt die Nachindexierung für Vektor-Felder
+                                oDocument.SetVariableValue(aName, myArray)
+                                clsLogger.AddDetailLog("'SetVariableValue' für VEKTOR erfolgreich")
+                            End If
+                        Else
+                            clsLogger.AddDetailLog("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
+                        End If
+                        i += 1
+
+                    Next
+
+                    ' oDocument.LockRights()
+
+                    'SetRights(WMObject, User)
+                    oDocument.Save()
+                    oDocument.unlock()
+
+                    clsLogger.AddDetailLog("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
+                    clsLogger.AddDetailLog("")
+
+
+                    Return False
+                Else
+                    clsLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False)
+                    'oDocument.unlock()
+                    Return True
+                End If
+            End If
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
+            oDocument.Save()
+            oDocument.unlock()
+            Return True
+        End Try
+    End Function
+#End Region
+
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+    Public Function GetSearchDocuments(ByVal wdfLocation As String)
+
+        If System.IO.File.Exists(wdfLocation) Then
+
+            Try
+                Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
+                Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
+
+                oController.CheckSearchProfile(wdfLocation.ToLower)
+                Dim suchTyp = oController.SearchProfileTargetProgID
+                Dim ExSettings As Object
+                Dim oSearch As Object
+                ExSettings = oController.SearchProfileExSettings
+                If ExSettings = 0 Then ExSettings = 7
+
+                Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
+                Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
+                Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
+
+                ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
+                Select Case suchTyp.ToString.ToUpper
+                    Case "WMOSRCH.WMQUICKSEARCH"
+                        srchQuick.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+
+                        oConnect.LoginSession(srchQuick.WMSession)
+
+                        srchQuick.ClearSearch()
+                        srchQuick.SearchProfilePath = ProfilePath
+                        srchQuick.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchQuick.GetSearch()
+
+                    Case "WMOSRCH.WMINDEXSEARCH"
+                        srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+
+                        oConnect.LoginSession(srchIndex.WMSession)
+
+                        srchIndex.ClearSearch()
+                        srchIndex.SearchProfilePath = ProfilePath
+                        srchIndex.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchIndex.GetSearch()
+
+                    Case "WMOSRCH.WMOBJECTTYPESEARCH"
+                        srchObjectType.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+
+                        oConnect.LoginSession(srchObjectType.WMSession)
+
+                        srchObjectType.ClearSearch()
+                        srchObjectType.SearchProfilePath = ProfilePath
+                        srchObjectType.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchObjectType.GetSearch()
+
+                    Case Else
+                        clsLogger.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP", True, "GetSearchDocuments")
+                        Return Nothing
+                End Select
+                Dim WMObjects As Object
+                WMObjects = oSearch.Execute
+                Return oSearch.execute
+
+            Catch ex As Exception
+                ' bei einem Fehler einen Eintrag in der Logdatei machen
+                clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "GetSearchDocuments")
+                Return Nothing
+            End Try
+
+        End If
+
+        Return Nothing
+
+    End Function
+    ''' Liefert den Wert eines Indexes als String
+    ''' _indexname = Name des zu überprüfenden Indexfeldes
+    Public Function GetValueforIndex(ByVal _fullfilepath As String, _indexname As String)
+        Try
+            Const WMEntityDocument = 1
+            Dim IndexwertAusWindream As Object = Nothing
+            Dim _dok As WINDREAMLib.WMObject
+            _dok = Nothing
+            _dok = oSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
+            IndexwertAusWindream = _dok.GetVariableValue(_indexname)
+            Return IndexwertAusWindream.ToString
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+End Class

app/DDWDResultHandler/clsWindream_allgemein.vb

@@ -0,0 +1,485 @@
+
+Imports WINDREAMLib
+Imports WINDREAMLib.WMCOMEvent
+Imports WINDREAMLib.WMEntity
+Imports WINDREAMLib.WMObjectEditMode
+Imports WINDREAMLib.WMSearchOperator
+Imports WINDREAMLib.WMSearchRelation
+Imports WMOBRWSLib
+Imports WMOSRCHLib
+Imports System.IO
+
+Public Class clsWindream_allgemein
+
+#Region "+++++ Konstanten +++++"
+    Const DEBUG = AUS
+    Const AUS = 0
+    Const WINDREAM = 1
+    Const VARIABLEN = 2
+#End Region
+
+#Region "+++++ Variablen +++++"
+    Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
+    Public Shared oDokumentTypen As WINDREAMLib.WMObjects
+    Private Shared oController As New WMOSearchController
+#End Region
+
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+
+    ''' <summary>
+    ''' Konstruktor für die windream-Klasse
+    ''' </summary>
+    ''' <remarks></remarks>
+    Sub New()
+        ' wenn ein Fehler bei der Initialisierung auftrat
+        If Not Init() Then
+            ' Nachricht ausgeben
+            clsLogger.Add("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind", True, "clsWindream_allgemein.Init")
+            ' das Programm "abschießen"
+            Process.GetCurrentProcess.Kill()
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Initialisiert die statische Klasse (Login, Session starten, usw.)
+    ''' </summary>
+    ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function Init() As Boolean
+
+        Try
+            Try
+                ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
+                oSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                ' Connection-Objekt instanziieren
+                oConnect = CreateObject("Windream.WMConnect")
+                'MsgBox("windrem init 'ed")
+            Catch ex As Exception
+                Return False
+            End Try
+
+            ' wenn windream nicht angemeldet ist
+            If Not IsLoggedIn() Then
+                ' Art der Anmeldung an windream festlegen
+                '   0x0L (also 0)                   = Standard windream Benutzer
+                '  WM_MODULE_ID_DOCTYPEEDITOR_LIC  = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
+                '  WM_MODULE_ID_INDEXSERVICE       = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
+                oConnect.ModuleID = 0
+
+                ' setzt die minimal erwartete windream-Version 
+                oConnect.MinReqVersion = "3"
+                ' clsLogger.AddDetailLog("Personifizierung'")
+
+                ' -- Impersonifizierung nur möglich mit registry-eintrag --
+                'oConnect.UserName = "\digitaldata\SchreiberM"
+                'oConnect.Password = "pw"
+
+                ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
+                oConnect.LoginSession(oSession)
+                clsLogger.AddDetailLog("windream-Server: '" & GetCurrentServer() & "'")
+                clsLogger.AddDetailLog("windream-UserName: '" & oConnect.UserName & "'")
+
+                If oSession.aLoggedin = False Then
+                    clsLogger.Add("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", True, "clswindream.Init")
+                    Return False
+                End If
+
+                ' AUSGABE VON SYSTEMINFORMATIONEN
+                ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) 
+                ' oder Business-Edition (BE) aus
+                'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
+                '       vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
+
+                'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
+                'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
+
+                '' liefert die Versionsnummer des Clients
+                'MsgBox(WMCtrl.WMWorkstationBuildNo)
+                'MsgBox(WMCtrl.W
+                '' liefert den Servernamen des angemeldeten windreams
+                'MsgBox(WMCtrl.WMServerName)
+
+                Try
+                    oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
+                    ' Ordnertypen ausgelesen werden
+                    oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                Catch ex As Exception
+                    clsLogger.AddError("Problem beim Auslesen der Objekttypen", "clswindream.Init")
+                    Return False
+                End Try
+            End If
+
+            clsLogger.AddDetailLog("Alles OK - Erfolgreich angemeldet und Session aufgebaut")
+            Return True
+
+        Catch ex As Exception
+            If Err.Number = -2147220985 Then
+                clsLogger.AddError("Die installierte windream-Version ist nicht ausreichend für den Betrieb", "clswindream.Init")
+            Else
+                clsLogger.AddError("Fehler beim Login an windream: " & ex.Message, "clswindream.Init")
+            End If
+            Return False
+        End Try
+
+    End Function
+
+#End Region
+
+
+
+#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte.
+    ''' </summary>
+    ''' <returns>Alle Objekttypen als WMObjects-Objekt</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsObjects() As WMObjects
+        Try
+
+            Return oDokumentTypen
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler beim Auslesen der Objekttypen: " & ex.Message, "clswindream.GetObjecttypesAsObjects")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
+    ''' </summary>
+    ''' <returns>Array mit allen Objekttypen als Strings</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsStrings() As String()
+
+        Try
+            Dim objektTypenStr(oDokumentTypen.Count) As String
+
+            For i As Integer = 0 To oDokumentTypen.Count
+                objektTypenStr(i) = oDokumentTypen.Item(i).aName
+            Next
+
+            Return objektTypenStr
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler beim Auslesen der Objekttypen als String: " & ex.Message, "clswindream.GetObjecttypesAsStrings")
+            Return Nothing
+        End Try
+
+    End Function
+
+    ''' <summary>
+    ''' Liefert alle Indexe eines Objekttypen.
+    ''' </summary>
+    ''' <param name="name">Name des Objekttyps</param>
+    ''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
+    ''' <remarks></remarks>
+    Public Function GetIndicesByObjecttype(ByVal name As String) As String()
+        Try
+            Dim oObjectType As WMObject
+            Dim oIndexAttributes As WMObjectRelation
+            Dim oIndexAttribute As WMObject
+            Dim oIndex As WMObject
+            Dim oRelProperties As WMObjectRelationClass
+
+            ' den Objekttyp laden
+            oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
+
+            ' Beziehung zu Indizes des Objekttyp auslesen
+            oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
+
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(oIndexAttributes.Count - 1) As String
+
+            ' alle Indizes durchlaufen
+            For j As Integer = 0 To oIndexAttributes.Count - 1
+
+                ' aktuellen Index auslesen
+                oIndexAttribute = oIndexAttributes.Item(j)
+
+                ' Eigenschaften des Index auslesen
+                oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
+
+                ' Index aus den Eigenschaften auslesen
+                oIndex = oRelProperties.Item(0)
+
+                ' Indexname speichern
+                aIndexNames(j) = oIndex.aName
+            Next
+
+            ' Indexarray zurückgeben
+            Return aIndexNames
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler beim Auslesen der windream-Indexe: " & ex.Message, "clswindream.GetIndicesByObjecttype")
+            Return Nothing
+        End Try
+    End Function
+    ''' <summary>
+    ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
+    ''' </summary>
+    ''' <param name="objekttypName">Name des Objekttyps</param>
+    ''' <returns>Objekttyp als WMObject</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
+        Try
+            ' alle Objekttypen auslesen
+            Dim oObjectTypes As WMObjects = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+
+            ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
+            For Each oObjectType As WMObject In oObjectTypes
+                If oObjectType.aName = objekttypName Then
+                    Return oObjectType
+                End If
+            Next
+
+            Return Nothing
+
+        Catch ex As Exception
+            clsLogger.AddError("Ein Objekttyp kopnnte nicht erstellt werden. Fehler: " & ex.Message, "clswindream.GetObjecttypeByName")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Überprüft ob der angegebene Index im Objekttyp existiert
+    ''' </summary>
+    ''' <param name="objekttyp">Name des zu durchsuchenden Objekttyps</param>
+    ''' <param name="indexname">Name des zu suchenden Indexes</param>
+    ''' <returns>Liefert True wenn der Index im Objekttyp existiert, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean
+        Try
+            Dim indexnamen() As String = GetIndicesByObjecttype(objekttyp)
+
+            If indexnamen Is Nothing Then Return False
+
+            For Each index As String In indexnamen
+                If index = indexname Then Return True
+            Next
+
+        Catch ex As Exception
+            clsLogger.AddError("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten. Fehler: " & ex.Message, "clswindream.ExistIndexInObjekttyp")
+            Return False
+        End Try
+    End Function
+
+#End Region
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist.
+    ''' </summary>
+    ''' <returns>Anmeldestatus als Boolean</returns>
+    ''' <remarks></remarks>
+    Public Function IsLoggedIn() As Boolean
+        Try
+            Return oSession.aLoggedin
+        Catch ex As Exception
+            clsLogger.AddError("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist. Fehler: " & ex.Message, "clswindream.IsLoggedIn")
+        End Try
+
+        Return False
+    End Function
+
+    ''' <summary>
+    ''' Liefert den Servernamen an dem windream aktuell angemeldet ist.
+    ''' </summary>
+    ''' <returns>Servername als String</returns>
+    ''' <remarks></remarks>
+    Public Shared Function GetCurrentServer() As String
+        Try
+            Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
+        Catch ex As Exception
+            clsLogger.AddError("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden. Fehler: " & ex.Message, "clswindream.GetCurrentServer")
+        End Try
+
+        Return ""
+    End Function
+
+    'Public Function GetSharedCurrentServer() As String
+    '    Try
+    '        Return ClassWindream.oBrowser.GetCurrentServer
+    '    Catch ex As Exception
+    '        MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+
+    'Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
+    'Laufwerksbuchstabe mit Doppelpunkt als String</returns>
+    '
+    'Public Function GetWindreamDriveLetter() As String
+
+    '    Try
+    '        Dim oControl As AISCONTROLDATACOMLib.AISControlData
+    '        Dim sDrive As String = ""
+
+    '        '        oControl = New AISCONTROLDATACOMLib.AISControlData
+
+    '        '        sDrive = oControl.GetStringValue(&H10040003)
+
+    '        '        Return sDrive & ":"
+
+    '    Catch ex As Exception
+    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+    ''' <summary>
+    ''' Liefert den Typen eines Indexes als Integer.
+    ''' </summary>
+    ''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
+    ''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
+    ''' <remarks></remarks>
+    Public Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
+        Try
+            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Return vType
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+    Public Function GetValuesfromAuswahlliste(ByVal indexname As String) As Object
+        Try
+            'Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            'Dim vType = oAttribute.getVariableValue("vItems")
+            'Return vType
+            Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, indexname)
+            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
+                Dim Values = oChoiceList
+                Values = oChoiceList.GetVariableValue("vItems")
+                Dim anz As Integer = 0
+
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        anz += 1
+                    End If
+                Next
+                Dim strListe(anz - 1)
+                Dim zahl As Integer = 0
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        strListe(zahl) = CLItem
+                        zahl += 1
+                    End If
+                Next
+                Return strListe
+            Else
+                clsLogger.Add("Auswahlliste: " & indexname & " nicht gefunden.", True, "clswindream.GetValuesfromAuswahlliste")
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler: " & ex.Message, "clswindream.GetValuesfromAuswahlliste")
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function WDObject_exists(wdobj_location As String)
+        Dim WDObject As WMObject
+        Try
+            WDObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, wdobj_location.Substring(2))
+            If WDObject Is Nothing Then
+                Return False
+            Else
+                clsLogger.AddDetailLog("WDObject exists")
+                Return True
+
+            End If
+        Catch ex As Exception
+            ' bei einem Fehler einen Eintrag in der Logdatei machen
+            clsLogger.AddError("Es konnte kein windream-Object erzeugt werden - " & ex.Message, "clswindream.WDObject_exists")
+            Return False
+        End Try
+    End Function
+    Public Shared Function GetSearchDocuments(ByVal wdfLocation As String)
+        'wdfLocation = 'W:\System\Suchen\WDRH\TestPDF.wdf'
+        Try
+            Dim SearchName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
+            Dim SearchPath = wdfLocation.Substring(0, wdfLocation.Length - SearchName.Length)
+
+            If System.IO.File.Exists(wdfLocation.ToLower) Then
+                clsLogger.AddDetailLog("Search exists")
+            Else
+                clsLogger.AddError("windream-search not existing: " & wdfLocation)
+                Return Nothing
+            End If
+            oController.CheckSearchProfile(wdfLocation.ToLower)
+            clsLogger.AddDetailLog("oController erzeugt")
+            Dim suchTyp = oController.SearchProfileTargetProgID
+            Dim ExSettings As Object
+            Dim oSearch As Object
+            ExSettings = oController.SearchProfileExSettings
+            If ExSettings = 0 Then ExSettings = 7
+
+            Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
+            Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
+            Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
+            clsLogger.AddDetailLog("WD Objekte in GetSearchDocuments erzeugt")
+            If suchTyp Is Nothing Then
+                clsLogger.AddError("suchTyp is nothing")
+                Return Nothing
+            End If
+            clsLogger.AddDetailLog(suchTyp.ToString.ToUpper)
+            ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
+            Select Case suchTyp.ToString.ToUpper
+                Case "WMOSRCH.WMQUICKSEARCH"
+                    srchQuick.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                    oConnect.LoginSession(srchQuick.WMSession)
+                    clsLogger.AddDetailLog("Session created...")
+                    srchQuick.ClearSearch()
+                    srchQuick.SearchProfilePath = SearchPath
+                    srchQuick.LoadSearchProfile(SearchName)
+                    oSearch = srchQuick.GetSearch()
+
+                Case "WMOSRCH.WMINDEXSEARCH"
+                    srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                    clsLogger.AddDetailLog("Session created...")
+                    oConnect.LoginSession(srchIndex.WMSession)
+                    srchIndex.ClearSearch()
+                    srchIndex.SearchProfilePath = SearchPath
+                    srchIndex.LoadSearchProfile(SearchName)
+                    oSearch = srchIndex.GetSearch()
+
+                Case "WMOSRCH.WMOBJECTTYPESEARCH"
+                    srchObjectType.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                    oConnect.LoginSession(srchObjectType.WMSession)
+                    clsLogger.AddDetailLog("Session created...")
+                    srchObjectType.ClearSearch()
+                    srchObjectType.SearchProfilePath = SearchPath
+                    srchObjectType.LoadSearchProfile(SearchName)
+                    oSearch = srchObjectType.GetSearch()
+
+                Case Else
+                    clsLogger.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP", True, "clswindream.GetSearchDocuments")
+
+                    Return Nothing
+            End Select
+            Dim WMObjects As Object
+            WMObjects = oSearch.Execute
+            clsLogger.AddDetailLog("WD Objekte werden zurückgegeben")
+            Return oSearch.execute
+
+        Catch ex As Exception
+            ' bei einem Fehler einen Eintrag in der Logdatei machen
+            clsLogger.AddError(ex.Message, "clswindream.GetSearchDocuments")
+            Return Nothing
+        End Try
+
+    End Function
+
+#End Region
+
+End Class
+

app/DDWDResultHandler/packages.config

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="EntityFramework" version="6.1.1" targetFramework="net451" />
+  <package id="System.Data.SQLite" version="1.0.94.1" targetFramework="net451" />
+  <package id="System.Data.SQLite.Core" version="1.0.94.0" targetFramework="net451" />
+  <package id="System.Data.SQLite.EF6" version="1.0.94.0" targetFramework="net451" />
+  <package id="System.Data.SQLite.Linq" version="1.0.94.1" targetFramework="net451" />
+</packages>

app/ResultHandler_Konfig/App.config

@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <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>
+    <!-- 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"
+      providerName="System.Data.SqlClient" />
+  </connectionStrings>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1"/>
+  </startup>
+  <userSettings>
+    <ResultHandler_Konfig.My.MySettings>
+      <setting name="myConnString" 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>
+      </setting>
+    </ResultHandler_Konfig.My.MySettings>
+  </userSettings>
+  <system.data>
+    <!--
+        NOTE: The extra "remove" element below is to prevent the design-time
+              support components within EF6 from selecting the legacy ADO.NET
+              provider for SQLite (i.e. the one without any EF6 support).  It
+              appears to only consider the first ADO.NET provider in the list
+              within the resulting "app.config" or "web.config" file.
+    -->
+    <DbProviderFactories>
+      <add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".NET Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite"/>
+      <remove invariant="System.Data.SQLite"/>
+      <remove invariant="System.Data.SQLite.EF6"/>
+      <add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".NET Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6"/>
+    </DbProviderFactories>
+  </system.data>
+  <entityFramework>
+    <defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">
+      <parameters>
+        <parameter value="v11.0"/>
+      </parameters>
+    </defaultConnectionFactory>
+    <providers>
+      <provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer"/>
+      <provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"/>
+    </providers>
+  </entityFramework>
+</configuration>

app/ResultHandler_Konfig/ClassAllgemeineFunktionen.vb

@@ -0,0 +1,46 @@
+Imports System.IO
+
+Public Class ClassAllgemeineFunktionen
+   
+    Public Function func_check_file_use(ByVal filename) As Boolean
+        Dim fs As Integer = FreeFile()
+        Dim inuse As Boolean = False
+        If File.Exists(filename) Then
+            Try
+                FileOpen(fs, filename, OpenMode.Binary, _
+                OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+            Catch
+                inuse = True
+            Finally
+                FileClose(fs)
+            End Try
+        End If
+        Return inuse
+    End Function
+    Public Function Delete_File(originFile As String)
+        Try
+            If file_exists(originFile, False) = True Then
+                System.IO.File.Delete(originFile)
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler in Funktion Delete_File - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
+    Public Function file_exists(ByVal _file As String, ByVal suche As Boolean)
+        Try
+            If System.IO.File.Exists(_file) Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler in Funktion file_exists - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    
+
+    
+   
+End Class

app/ResultHandler_Konfig/ClassWindream_allgemein.vb

@@ -0,0 +1,398 @@
+Imports WINDREAMLib
+Imports WINDREAMLib.WMCOMEvent
+Imports WINDREAMLib.WMEntity
+Imports WINDREAMLib.WMObjectEditMode
+Imports WINDREAMLib.WMSearchOperator
+Imports WINDREAMLib.WMSearchRelation
+Imports WMOBRWSLib
+
+Public Class ClassWindream_allgemein
+
+#Region "+++++ Konstanten +++++"
+    Const DEBUG = AUS
+    Const AUS = 0
+    Const WINDREAM = 1
+    Const VARIABLEN = 2
+#End Region
+
+#Region "+++++ Variablen +++++"
+    Public oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public oBrowser As New WMOBRWSLib.ServerBrowser
+    Public oDokumentTypen As WINDREAMLib.WMObjects
+#End Region
+
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+
+    ''' <summary>
+    ''' Konstruktor für die windream-Klasse
+    ''' </summary>
+    ''' <remarks></remarks>
+    Sub New()
+        ' wenn ein Fehler bei der Initialisierung auftrat
+        If Not Me.Init() Then
+            ' Nachricht ausgeben
+            MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
+
+            ' das Programm "abschießen"
+            Process.GetCurrentProcess.Kill()
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Initialisiert die statische Klasse (Login, Session starten, usw.)
+    ''' </summary>
+    ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function Init() As Boolean
+        Try
+            Try
+                ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
+                Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
+                'If My.Settings.vDetailLog Then ClassLogger.Add(" >> windream-Server: '" & Me.GetCurrentServer & "'", False)
+                ' Connection-Objekt instanziieren
+                Me.oConnect = CreateObject("Windream.WMConnect")
+                'MsgBox("windrem init 'ed")
+            Catch ex As Exception
+                Return False
+            End Try
+
+
+            ' wenn windream nicht angemeldet ist
+            If Not Me.IsLoggedIn Then
+
+                ' Art der Anmeldung an windream festlegen
+                '   0x0L (also 0)                   = Standard windream Benutzer
+                '   WM_MODULE_ID_DOCTYPEEDITOR_LIC  = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
+                '   WM_MODULE_ID_INDEXSERVICE       = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
+                Me.oConnect.ModuleID = 0
+
+                ' setzt die minimal erwartete windream-Version 
+                Me.oConnect.MinReqVersion = "3"
+
+                ' -- Impersonifizierung nur möglich mit registry-eintrag --
+                ' oConnect.UserName "\schulung\windream"
+                ' oConnect.Password "windream"
+
+                ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
+                Me.oConnect.LoginSession(Me.oSession)
+                If Me.oSession.aLoggedin = False Then
+                    MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden")
+                    Return False
+                End If
+
+                'If My.Settings.vDetailLog Then
+                '    ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
+                'End If
+
+                ' AUSGABE VON SYSTEMINFORMATIONEN
+                ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) 
+                ' oder Business-Edition (BE) aus
+                'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
+                '       vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
+
+                'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
+                'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
+
+                '' liefert die Versionsnummer des Clients
+
+                'MsgBox(WMCtrl.WMWorkstationBuildNo)
+                'MsgBox(WMCtrl.W
+                '' liefert den Servernamen des angemeldeten windreams
+                'MsgBox(WMCtrl.WMServerName)
+
+                Try
+                    Me.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
+                    ' Ordnertypen ausgelesen werden
+                    Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                Catch ex As Exception
+                    Return False
+                End Try
+
+            End If
+
+            Return True
+
+        Catch ex As Exception
+            If Err.Number = -2147220985 Then
+                MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _
+                       "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
+            Else
+                MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
+            End If
+            Return False
+        End Try
+
+    End Function
+
+#End Region
+
+
+
+#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte.
+    ''' </summary>
+    ''' <returns>Alle Objekttypen als WMObjects-Objekt</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsObjects() As WMObjects
+        Try
+
+            Return Me.oDokumentTypen
+
+        Catch ex As Exception
+            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
+    ''' </summary>
+    ''' <returns>Array mit allen Objekttypen als Strings</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsStrings() As String()
+
+        Try
+            Dim objektTypenStr(Me.oDokumentTypen.Count) As String
+
+            For i As Integer = 0 To Me.oDokumentTypen.Count
+                objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName
+            Next
+
+            Return objektTypenStr
+
+        Catch ex As Exception
+            MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String")
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
+        Try
+            Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Return vType
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+    ''' <summary>
+    ''' Liefert alle Indexe eines Objekttypen.
+    ''' </summary>
+    ''' <param name="name">Name des Objekttyps</param>
+    ''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
+    ''' <remarks></remarks>
+    Public Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String()
+        Try
+            Dim oObjectType As WMObject
+            Dim oIndexAttributes As WMObjectRelation
+            Dim oIndexAttribute As WMObject
+            Dim oIndex As WMObject
+            Dim oRelProperties As WMObjectRelationClass
+
+            ' den Objekttyp laden
+            oObjectType = Me.oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name)
+
+            ' Beziehung zu Indizes des Objekttyp auslesen
+            oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
+
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(oIndexAttributes.Count - 1) As String
+
+            ' alle Indizes durchlaufen
+            For j As Integer = 0 To oIndexAttributes.Count - 1
+
+                ' aktuellen Index auslesen
+                oIndexAttribute = oIndexAttributes.Item(j)
+
+                ' Eigenschaften des Index auslesen
+                oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
+
+                ' Index aus den Eigenschaften auslesen
+                oIndex = oRelProperties.Item(0)
+
+                ' Indexname speichern
+                aIndexNames(j) = oIndex.aName
+            Next
+
+            ' Indexarray zurückgeben
+            ' Indexarray zurückgeben
+            Array.Sort(aIndexNames)
+            Return aIndexNames
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe")
+            Return Nothing
+        End Try
+    End Function
+    ''' <summary>
+    ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
+    ''' </summary>
+    ''' <param name="objekttypName">Name des Objekttyps</param>
+    ''' <returns>Objekttyp als WMObject</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
+        Try
+            ' alle Objekttypen auslesen
+            Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+
+            ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
+            For Each oObjectType As WMObject In oObjectTypes
+                If oObjectType.aName = objekttypName Then
+                    Return oObjectType
+                End If
+            Next
+
+            Return Nothing
+
+        Catch ex As Exception
+            MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Überprüft ob der angegebene Index im Objekttyp existiert
+    ''' </summary>
+    ''' <param name="objekttyp">Name des zu durchsuchenden Objekttyps</param>
+    ''' <param name="indexname">Name des zu suchenden Indexes</param>
+    ''' <returns>Liefert True wenn der Index im Objekttyp existiert, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean
+        Try
+            Dim indexnamen() As String = Me.GetIndicesByObjecttype(objekttyp)
+
+            If indexnamen Is Nothing Then Return False
+
+            For Each index As String In indexnamen
+                If index = indexname Then Return True
+            Next
+
+        Catch ex As Exception
+            MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp")
+        End Try
+
+        Return False
+
+    End Function
+
+#End Region
+
+
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist.
+    ''' </summary>
+    ''' <returns>Anmeldestatus als Boolean</returns>
+    ''' <remarks></remarks>
+    Public Function IsLoggedIn() As Boolean
+        Try
+            Return Me.oSession.aLoggedin
+        Catch ex As Exception
+            MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung")
+        End Try
+
+        Return False
+    End Function
+
+    ''' <summary>
+    ''' Liefert den Servernamen an dem windream aktuell angemeldet ist.
+    ''' </summary>
+    ''' <returns>Servername als String</returns>
+    ''' <remarks></remarks>
+    Public Function GetCurrentServer() As String
+        Try
+            Return Me.oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
+        Catch ex As Exception
+            MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
+        End Try
+
+        Return ""
+    End Function
+
+    'Public Function GetSharedCurrentServer() As String
+    '    Try
+    '        Return ClassWindream.oBrowser.GetCurrentServer
+    '    Catch ex As Exception
+    '        MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+
+    ''' <summary>
+    ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
+    ''' </summary>
+    ''' <returns>Laufwerksbuchstabe mit Doppelpunkt als String</returns>
+    ''' <remarks></remarks>
+    'Public Function GetWindreamDriveLetter() As String
+
+    '    Try
+    '        Dim oControl As AISCONTROLDATACOMLib.AISControlData
+    '        Dim sDrive As String = ""
+
+    '        oControl = New AISCONTROLDATACOMLib.AISControlData
+
+    '        sDrive = oControl.GetStringValue(&H10040003)
+
+    '        Return sDrive & ":"
+
+    '    Catch ex As Exception
+    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+    ''' <summary>
+    ''' Liefert den Typen eines Indexes als Integer.
+    ''' </summary>
+    ''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
+    ''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
+    ''' <remarks></remarks>
+
+    Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object
+        Try
+            'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            'Dim vType = oAttribute.getVariableValue("vItems")
+            'Return vType
+            Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste)
+            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
+                Dim Values = oChoiceList
+                Values = oChoiceList.GetVariableValue("vItems")
+                Dim anz As Integer = 0
+
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        anz += 1
+                    End If
+                Next
+                Dim strListe(anz - 1)
+                Dim zahl As Integer = 0
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        strListe(zahl) = CLItem
+                        zahl += 1
+                    End If
+                Next
+                Return strListe
+            Else
+                MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:")
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:")
+            Return Nothing
+        End Try
+    End Function
+#End Region
+End Class

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

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.ResultHandler_Konfig.frmMain
+        End Sub
+    End Class
+End Namespace

app/ResultHandler_Konfig/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-16"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmMain</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

app/ResultHandler_Konfig/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("ResultHandler_Konfig")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("ResultHandler_Konfig")> 
+<Assembly: AssemblyCopyright("Copyright ©  2014")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("06c15fff-8aea-4146-8d72-41e64821ece7")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.1")>
+<Assembly: AssemblyFileVersion("1.0.0.1")>

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

@@ -0,0 +1,113 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ResultHandler_Konfig.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property add() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("add", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property arrow_refresh() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("arrow_refresh", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property arrow_switch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("arrow_switch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_green() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_green", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property save() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("save", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

app/ResultHandler_Konfig/My Project/Resources.resx

@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="arrow_switch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_switch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

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

@@ -0,0 +1,98 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         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"),  _
+         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
+        Public Property myConnString() As String
+            Get
+                Return CType(Me("myConnString"),String)
+            End Get
+            Set
+                Me("myConnString") = 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=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
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.ResultHandler_Konfig.My.MySettings
+            Get
+                Return Global.ResultHandler_Konfig.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

app/ResultHandler_Konfig/My Project/Settings.settings

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="myConnString" Roaming="true" Type="System.String" Scope="User">
+      <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="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>
+  </Settings>
+</SettingsFile>

app/ResultHandler_Konfig/MyDataset.xsc

@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+  <TableUISettings />
+</DataSetUISetting>

app/ResultHandler_Konfig/MyDataset.xsd

@@ -0,0 +1,680 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema id="MyDataset" targetNamespace="http://tempuri.org/MyDataset.xsd" xmlns:mstns="http://tempuri.org/MyDataset.xsd" xmlns="http://tempuri.org/MyDataset.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
+  <xs:annotation>
+    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
+      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+        <Connections>
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="SQLSERVER_CS" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="SQLSERVER_CS (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.ResultHandler_Konfig.My.MySettings.GlobalReference.Default.SQLSERVER_CS" Provider="System.Data.SqlClient" />
+        </Connections>
+        <Tables>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBWMRH_KONFIGURATIONTableAdapter" GeneratorDataComponentClassName="TBWMRH_KONFIGURATIONTableAdapter" Name="TBWMRH_KONFIGURATION" UserDataComponentName="TBWMRH_KONFIGURATIONTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>SELECT        GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, EMAIL_AKTIV, EMAIL_ABS, EMAIL_EMP, EMAIL_SMTP, EMAIL_SSL, EMAIL_USER, EMAIL_USER_PW, LOG_ERRORS_ONLY, GEAENDERT_WER, GEAENDERTWANN
+FROM            TBWMRH_KONFIGURATION
+WHERE        (GUID = 1)</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>UPDATE       TBWMRH_KONFIGURATION
+SET                GUID = @GUID, WD_LAUFWERK = @WD_LAUFWERK, INTERVALL = @INTERVALL, EMAIL_AKTIV = @EMAIL_AKTIV, EMAIL_ABS = @EMAIL_ABS, EMAIL_EMP = @EMAIL_EMP, EMAIL_SMTP = @EMAIL_SMTP, 
+                         EMAIL_SSL = @EMAIL_SSL, EMAIL_USER = @EMAIL_USER, EMAIL_USER_PW = @EMAIL_USER_PW, LOG_ERRORS_ONLY = @LOG_ERRORS_ONLY, GEAENDERT_WER = @GEAENDERT_WER
+WHERE        (GUID = @Original_GUID); 
+SELECT GUID, WD_LAUFWERK, INTERVALL, LAST_TICK, EMAIL_AKTIV, EMAIL_ABS, EMAIL_EMP, EMAIL_SMTP, EMAIL_SSL, EMAIL_USER, EMAIL_USER_PW, LOG_ERRORS_ONLY, GEAENDERT_WER, GEAENDERTWANN FROM TBWMRH_KONFIGURATION WHERE (GUID = @GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="WD_LAUFWERK" ColumnName="WD_LAUFWERK" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(10)" DbType="AnsiString" Direction="Input" ParameterName="@WD_LAUFWERK" Precision="0" ProviderType="VarChar" Scale="0" Size="10" SourceColumn="WD_LAUFWERK" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="INTERVALL" ColumnName="INTERVALL" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@INTERVALL" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="INTERVALL" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="EMAIL_AKTIV" ColumnName="EMAIL_AKTIV" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@EMAIL_AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="EMAIL_AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="EMAIL_ABS" ColumnName="EMAIL_ABS" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_ABS" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="EMAIL_ABS" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="EMAIL_EMP" ColumnName="EMAIL_EMP" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_EMP" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="EMAIL_EMP" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="EMAIL_SMTP" ColumnName="EMAIL_SMTP" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_SMTP" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="EMAIL_SMTP" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="EMAIL_SSL" ColumnName="EMAIL_SSL" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@EMAIL_SSL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="EMAIL_SSL" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="EMAIL_USER" ColumnName="EMAIL_USER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_USER" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="EMAIL_USER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="EMAIL_USER_PW" ColumnName="EMAIL_USER_PW" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@EMAIL_USER_PW" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="EMAIL_USER_PW" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="LOG_ERRORS_ONLY" ColumnName="LOG_ERRORS_ONLY" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@LOG_ERRORS_ONLY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="LOG_ERRORS_ONLY" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="GEAENDERT_WER" ColumnName="GEAENDERT_WER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERT_WER" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="GEAENDERT_WER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_KONFIGURATION" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
+              <Mapping SourceColumn="WD_LAUFWERK" DataSetColumn="WD_LAUFWERK" />
+              <Mapping SourceColumn="INTERVALL" DataSetColumn="INTERVALL" />
+              <Mapping SourceColumn="LAST_TICK" DataSetColumn="LAST_TICK" />
+              <Mapping SourceColumn="EMAIL_AKTIV" DataSetColumn="EMAIL_AKTIV" />
+              <Mapping SourceColumn="EMAIL_ABS" DataSetColumn="EMAIL_ABS" />
+              <Mapping SourceColumn="EMAIL_EMP" DataSetColumn="EMAIL_EMP" />
+              <Mapping SourceColumn="EMAIL_SMTP" DataSetColumn="EMAIL_SMTP" />
+              <Mapping SourceColumn="EMAIL_SSL" DataSetColumn="EMAIL_SSL" />
+              <Mapping SourceColumn="EMAIL_USER" DataSetColumn="EMAIL_USER" />
+              <Mapping SourceColumn="EMAIL_USER_PW" DataSetColumn="EMAIL_USER_PW" />
+              <Mapping SourceColumn="LOG_ERRORS_ONLY" DataSetColumn="LOG_ERRORS_ONLY" />
+              <Mapping SourceColumn="GEAENDERT_WER" DataSetColumn="GEAENDERT_WER" />
+              <Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBWMRH_PROFILTableAdapter" GeneratorDataComponentClassName="TBWMRH_PROFILTableAdapter" Name="TBWMRH_PROFIL" UserDataComponentName="TBWMRH_PROFILTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>DELETE FROM TBWMRH_PROFIL
+WHERE        (GUID = @Original_GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+                <InsertCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>INSERT INTO TBWMRH_PROFIL
+                         (Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER)
+VALUES        (@Profilname,@Aktiv,@Objekttyp,@WindreamSuche,@Day,@Run,@Letzter_Durchlauf,@Running,@Reihenfolge,@ERSTELLTWER); 
+SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL WHERE (GUID = SCOPE_IDENTITY())</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Profilname" ColumnName="Profilname" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Profilname" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Profilname" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="Aktiv" ColumnName="Aktiv" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Aktiv" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Aktiv" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Objekttyp" ColumnName="Objekttyp" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Objekttyp" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Objekttyp" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="WindreamSuche" ColumnName="WindreamSuche" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@WindreamSuche" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="WindreamSuche" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Day" ColumnName="Day" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Day" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Day" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Run" ColumnName="Run" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Run" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Run" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Letzter_Durchlauf" ColumnName="Letzter_Durchlauf" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@Letzter_Durchlauf" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="Letzter_Durchlauf" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Running" ColumnName="Running" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Running" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Running" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Reihenfolge" ColumnName="Reihenfolge" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Reihenfolge" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="Reihenfolge" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </InsertCommand>
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>SELECT        GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN
+FROM            TBWMRH_PROFIL</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>UPDATE       TBWMRH_PROFIL
+SET                Profilname = @Profilname, Aktiv = @Aktiv, Objekttyp = @Objekttyp, WindreamSuche = @WindreamSuche, Day = @Day, Run = @Run, Letzter_Durchlauf = @Letzter_Durchlauf, Running = @Running, Reihenfolge = @Reihenfolge,
+                          GEAENDERTWER = @GEAENDERTWER
+WHERE        (GUID = @Original_GUID); 
+SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL WHERE (GUID = @GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Profilname" ColumnName="Profilname" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Profilname" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Profilname" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="Aktiv" ColumnName="Aktiv" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Aktiv" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Aktiv" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Objekttyp" ColumnName="Objekttyp" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Objekttyp" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Objekttyp" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="WindreamSuche" ColumnName="WindreamSuche" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@WindreamSuche" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WindreamSuche" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Day" ColumnName="Day" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Day" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Day" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Run" ColumnName="Run" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Run" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Run" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Letzter_Durchlauf" ColumnName="Letzter_Durchlauf" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@Letzter_Durchlauf" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="Letzter_Durchlauf" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Running" ColumnName="Running" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Running" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Running" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Reihenfolge" ColumnName="Reihenfolge" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Reihenfolge" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="Reihenfolge" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
+              <Mapping SourceColumn="Profilname" DataSetColumn="Profilname" />
+              <Mapping SourceColumn="Aktiv" DataSetColumn="Aktiv" />
+              <Mapping SourceColumn="Objekttyp" DataSetColumn="Objekttyp" />
+              <Mapping SourceColumn="WindreamSuche" DataSetColumn="WindreamSuche" />
+              <Mapping SourceColumn="Day" DataSetColumn="Day" />
+              <Mapping SourceColumn="Run" DataSetColumn="Run" />
+              <Mapping SourceColumn="Letzter_Durchlauf" DataSetColumn="Letzter_Durchlauf" />
+              <Mapping SourceColumn="Running" DataSetColumn="Running" />
+              <Mapping SourceColumn="Reihenfolge" DataSetColumn="Reihenfolge" />
+              <Mapping SourceColumn="ERSTELLTWER" DataSetColumn="ERSTELLTWER" />
+              <Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
+              <Mapping SourceColumn="GEAENDERTWER" DataSetColumn="GEAENDERTWER" />
+              <Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
+            </Mappings>
+            <Sources>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdateRunningnow" Modifier="Public" Name="cmdUpdateRunningnow" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdUpdateRunningnow">
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>UPDATE       TBWMRH_PROFIL
+SET              Running = 0, LETZTER_DURCHLAUF = '1911-11-11 00:00:00' WHERE        (GUID = @Original_GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </Sources>
+          </TableAdapter>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBWMRH_PROFIL_FILE_JOBTableAdapter" GeneratorDataComponentClassName="TBWMRH_PROFIL_FILE_JOBTableAdapter" Name="TBWMRH_PROFIL_FILE_JOB" UserDataComponentName="TBWMRH_PROFIL_FILE_JOBTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_FILE_JOB" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>DELETE FROM TBWMRH_PROFIL_FILE_JOB
+WHERE        (GUID = @Original_GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+                <InsertCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>INSERT INTO [TBWMRH_PROFIL_FILE_JOB] ([PROFIL_ID], [TYP], [STRING1], [STRING2], [STRING3], [STRING4], [BOOL1], [BOOL2], [BOOL3], [BOOL4], [AKTIV], [REIHENFOLGE], [ERSTELLTWER], [ERSTELLTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@PROFIL_ID, @TYP, @STRING1, @STRING2, @STRING3, @STRING4, @BOOL1, @BOOL2, @BOOL3, @BOOL4, @AKTIV, @REIHENFOLGE, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERTWER, @GEAENDERTWANN);
+SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = SCOPE_IDENTITY())</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ERSTELLTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@GEAENDERTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </InsertCommand>
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>SELECT        GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN
+FROM            TBWMRH_PROFIL_FILE_JOB
+WHERE        (PROFIL_ID = @PID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="PID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_FILE_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>UPDATE       TBWMRH_PROFIL_FILE_JOB
+SET                TYP = @TYP, STRING1 = @STRING1, STRING2 = @STRING2, STRING3 = @STRING3, STRING4 = @STRING4, BOOL1 = @BOOL1, BOOL2 = @BOOL2, BOOL3 = @BOOL3, BOOL4 = @BOOL4, AKTIV = @AKTIV, 
+                         REIHENFOLGE = @REIHENFOLGE, GEAENDERTWER = @GEAENDERTWER
+WHERE        (GUID = @Original_GUID); 
+SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = @GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="TYP" ColumnName="TYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
+              <Mapping SourceColumn="PROFIL_ID" DataSetColumn="PROFIL_ID" />
+              <Mapping SourceColumn="TYP" DataSetColumn="TYP" />
+              <Mapping SourceColumn="STRING1" DataSetColumn="STRING1" />
+              <Mapping SourceColumn="STRING2" DataSetColumn="STRING2" />
+              <Mapping SourceColumn="STRING3" DataSetColumn="STRING3" />
+              <Mapping SourceColumn="STRING4" DataSetColumn="STRING4" />
+              <Mapping SourceColumn="BOOL1" DataSetColumn="BOOL1" />
+              <Mapping SourceColumn="BOOL2" DataSetColumn="BOOL2" />
+              <Mapping SourceColumn="BOOL3" DataSetColumn="BOOL3" />
+              <Mapping SourceColumn="BOOL4" DataSetColumn="BOOL4" />
+              <Mapping SourceColumn="AKTIV" DataSetColumn="AKTIV" />
+              <Mapping SourceColumn="REIHENFOLGE" DataSetColumn="REIHENFOLGE" />
+              <Mapping SourceColumn="ERSTELLTWER" DataSetColumn="ERSTELLTWER" />
+              <Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
+              <Mapping SourceColumn="GEAENDERTWER" DataSetColumn="GEAENDERTWER" />
+              <Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
+            </Mappings>
+            <Sources>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="DeleteForProfil" Modifier="Public" Name="DeleteForProfil" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="DeleteForProfil">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>DELETE FROM TBWMRH_PROFIL_FILE_JOB
+WHERE       PROFIL_ID = @PROFILID</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="PROFILID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_FILE_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFILID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+              </DbSource>
+            </Sources>
+          </TableAdapter>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBWMRH_PROFIL_JOBTableAdapter" GeneratorDataComponentClassName="TBWMRH_PROFIL_JOBTableAdapter" Name="TBWMRH_PROFIL_JOB" UserDataComponentName="TBWMRH_PROFIL_JOBTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>DELETE FROM TBWMRH_PROFIL_JOB
+WHERE        (GUID = @Original_GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+                <InsertCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>INSERT INTO TBWMRH_PROFIL_JOB
+                         (PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER)
+VALUES        (@PROFIL_ID,@JOB_TYP,@STRING1,@STRING2,@STRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER); 
+SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = SCOPE_IDENTITY())</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="true" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </InsertCommand>
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>SELECT        GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN
+FROM            TBWMRH_PROFIL_JOB
+WHERE        (PROFIL_ID = @PID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="true" AutogeneratedName="PID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </SelectCommand>
+                <UpdateCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>UPDATE [TBWMRH_PROFIL_JOB] SET [PROFIL_ID] = @PROFIL_ID, [JOB_TYP] = @JOB_TYP, [STRING1] = @STRING1, [STRING2] = @STRING2, [STRING3] = @STRING3, [STRING4] = @STRING4, [BOOL1] = @BOOL1, [BOOL2] = @BOOL2, [BOOL3] = @BOOL3, [BOOL4] = @BOOL4, [AKTIV] = @AKTIV, [REIHENFOLGE] = @REIHENFOLGE, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PROFIL_ID = 1 AND [PROFIL_ID] IS NULL) OR ([PROFIL_ID] = @Original_PROFIL_ID)) AND ([JOB_TYP] = @Original_JOB_TYP) AND ((@IsNull_BOOL1 = 1 AND [BOOL1] IS NULL) OR ([BOOL1] = @Original_BOOL1)) AND ((@IsNull_BOOL2 = 1 AND [BOOL2] IS NULL) OR ([BOOL2] = @Original_BOOL2)) AND ((@IsNull_BOOL3 = 1 AND [BOOL3] IS NULL) OR ([BOOL3] = @Original_BOOL3)) AND ((@IsNull_BOOL4 = 1 AND [BOOL4] IS NULL) OR ([BOOL4] = @Original_BOOL4)) AND ((@IsNull_AKTIV = 1 AND [AKTIV] IS NULL) OR ([AKTIV] = @Original_AKTIV)) AND ([REIHENFOLGE] = @Original_REIHENFOLGE) AND ((@IsNull_ERSTELLTWER = 1 AND [ERSTELLTWER] IS NULL) OR ([ERSTELLTWER] = @Original_ERSTELLTWER)) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));
+SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = @GUID)</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ERSTELLTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@GEAENDERTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL1" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL2" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL3" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL4" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_AKTIV" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ERSTELLTWER" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ERSTELLTWANN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ERSTELLTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_GEAENDERTWER" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_GEAENDERTWANN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_GEAENDERTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                    </Parameters>
+                  </DbCommand>
+                </UpdateCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="GUID" DataSetColumn="GUID" />
+              <Mapping SourceColumn="PROFIL_ID" DataSetColumn="PROFIL_ID" />
+              <Mapping SourceColumn="JOB_TYP" DataSetColumn="JOB_TYP" />
+              <Mapping SourceColumn="STRING1" DataSetColumn="STRING1" />
+              <Mapping SourceColumn="STRING2" DataSetColumn="STRING2" />
+              <Mapping SourceColumn="STRING3" DataSetColumn="STRING3" />
+              <Mapping SourceColumn="STRING4" DataSetColumn="STRING4" />
+              <Mapping SourceColumn="BOOL1" DataSetColumn="BOOL1" />
+              <Mapping SourceColumn="BOOL2" DataSetColumn="BOOL2" />
+              <Mapping SourceColumn="BOOL3" DataSetColumn="BOOL3" />
+              <Mapping SourceColumn="BOOL4" DataSetColumn="BOOL4" />
+              <Mapping SourceColumn="AKTIV" DataSetColumn="AKTIV" />
+              <Mapping SourceColumn="REIHENFOLGE" DataSetColumn="REIHENFOLGE" />
+              <Mapping SourceColumn="ERSTELLTWER" DataSetColumn="ERSTELLTWER" />
+              <Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
+              <Mapping SourceColumn="GEAENDERTWER" DataSetColumn="GEAENDERTWER" />
+              <Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
+            </Mappings>
+            <Sources>
+              <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="DeleteforPROFIL" Modifier="Public" Name="DeleteforPROFIL" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="DeleteforPROFIL">
+                <DeleteCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                    <CommandText>DELETE FROM TBWMRH_PROFIL_JOB
+WHERE      PROFIL_ID = @PID</CommandText>
+                    <Parameters>
+                      <Parameter AllowDbNull="true" AutogeneratedName="PID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                    </Parameters>
+                  </DbCommand>
+                </DeleteCommand>
+              </DbSource>
+            </Sources>
+          </TableAdapter>
+        </Tables>
+        <Sources />
+      </DataSource>
+    </xs:appinfo>
+  </xs:annotation>
+  <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
+    <xs:complexType>
+      <xs:choice minOccurs="0" maxOccurs="unbounded">
+        <xs:element name="TBWMRH_KONFIGURATION" msprop:Generator_TableClassName="TBWMRH_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBWMRH_KONFIGURATION" msprop:Generator_RowChangedName="TBWMRH_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBWMRH_KONFIGURATION" msprop:Generator_RowDeletingName="TBWMRH_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBWMRH_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBWMRH_KONFIGURATIONRow" msprop:Generator_UserTableName="TBWMRH_KONFIGURATION" msprop:Generator_RowEvArgName="TBWMRH_KONFIGURATIONRowChangeEvent">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
+              <xs:element name="WD_LAUFWERK" msprop:Generator_ColumnVarNameInTable="columnWD_LAUFWERK" msprop:Generator_ColumnPropNameInRow="WD_LAUFWERK" msprop:Generator_ColumnPropNameInTable="WD_LAUFWERKColumn" msprop:Generator_UserColumnName="WD_LAUFWERK">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="10" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="INTERVALL" msprop:Generator_ColumnVarNameInTable="columnINTERVALL" msprop:Generator_ColumnPropNameInRow="INTERVALL" msprop:Generator_ColumnPropNameInTable="INTERVALLColumn" msprop:Generator_UserColumnName="INTERVALL" type="xs:int" />
+              <xs:element name="LAST_TICK" msprop:Generator_ColumnVarNameInTable="columnLAST_TICK" msprop:Generator_ColumnPropNameInRow="LAST_TICK" msprop:Generator_ColumnPropNameInTable="LAST_TICKColumn" msprop:Generator_UserColumnName="LAST_TICK" type="xs:dateTime" />
+              <xs:element name="EMAIL_AKTIV" msprop:Generator_ColumnVarNameInTable="columnEMAIL_AKTIV" msprop:Generator_ColumnPropNameInRow="EMAIL_AKTIV" msprop:Generator_ColumnPropNameInTable="EMAIL_AKTIVColumn" msprop:Generator_UserColumnName="EMAIL_AKTIV" type="xs:boolean" />
+              <xs:element name="EMAIL_ABS" msprop:Generator_ColumnVarNameInTable="columnEMAIL_ABS" msprop:Generator_ColumnPropNameInRow="EMAIL_ABS" msprop:Generator_ColumnPropNameInTable="EMAIL_ABSColumn" msprop:Generator_UserColumnName="EMAIL_ABS" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="EMAIL_EMP" msprop:Generator_ColumnVarNameInTable="columnEMAIL_EMP" msprop:Generator_ColumnPropNameInRow="EMAIL_EMP" msprop:Generator_ColumnPropNameInTable="EMAIL_EMPColumn" msprop:Generator_UserColumnName="EMAIL_EMP" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="EMAIL_SMTP" msprop:Generator_ColumnVarNameInTable="columnEMAIL_SMTP" msprop:Generator_ColumnPropNameInRow="EMAIL_SMTP" msprop:Generator_ColumnPropNameInTable="EMAIL_SMTPColumn" msprop:Generator_UserColumnName="EMAIL_SMTP" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="EMAIL_SSL" msprop:Generator_ColumnVarNameInTable="columnEMAIL_SSL" msprop:Generator_ColumnPropNameInRow="EMAIL_SSL" msprop:Generator_ColumnPropNameInTable="EMAIL_SSLColumn" msprop:Generator_UserColumnName="EMAIL_SSL" type="xs:boolean" />
+              <xs:element name="EMAIL_USER" msprop:Generator_ColumnVarNameInTable="columnEMAIL_USER" msprop:Generator_ColumnPropNameInRow="EMAIL_USER" msprop:Generator_ColumnPropNameInTable="EMAIL_USERColumn" msprop:Generator_UserColumnName="EMAIL_USER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="EMAIL_USER_PW" msprop:Generator_ColumnVarNameInTable="columnEMAIL_USER_PW" msprop:Generator_ColumnPropNameInRow="EMAIL_USER_PW" msprop:Generator_ColumnPropNameInTable="EMAIL_USER_PWColumn" msprop:Generator_UserColumnName="EMAIL_USER_PW" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="LOG_ERRORS_ONLY" msprop:Generator_ColumnVarNameInTable="columnLOG_ERRORS_ONLY" msprop:Generator_ColumnPropNameInRow="LOG_ERRORS_ONLY" msprop:Generator_ColumnPropNameInTable="LOG_ERRORS_ONLYColumn" msprop:Generator_UserColumnName="LOG_ERRORS_ONLY" type="xs:boolean" />
+              <xs:element name="GEAENDERT_WER" msprop:Generator_ColumnVarNameInTable="columnGEAENDERT_WER" msprop:Generator_ColumnPropNameInRow="GEAENDERT_WER" msprop:Generator_ColumnPropNameInTable="GEAENDERT_WERColumn" msprop:Generator_UserColumnName="GEAENDERT_WER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+        <xs:element name="TBWMRH_PROFIL" msprop:Generator_TableClassName="TBWMRH_PROFILDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL" msprop:Generator_RowChangedName="TBWMRH_PROFILRowChanged" msprop:Generator_TablePropName="TBWMRH_PROFIL" msprop:Generator_RowDeletingName="TBWMRH_PROFILRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFILRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFILRowDeleted" msprop:Generator_RowClassName="TBWMRH_PROFILRow" msprop:Generator_UserTableName="TBWMRH_PROFIL" msprop:Generator_RowEvArgName="TBWMRH_PROFILRowChangeEvent">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
+              <xs:element name="Profilname" msprop:Generator_ColumnVarNameInTable="columnProfilname" msprop:Generator_ColumnPropNameInRow="Profilname" msprop:Generator_ColumnPropNameInTable="ProfilnameColumn" msprop:Generator_UserColumnName="Profilname">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Aktiv" msprop:Generator_ColumnVarNameInTable="columnAktiv" msprop:Generator_ColumnPropNameInRow="Aktiv" msprop:Generator_ColumnPropNameInTable="AktivColumn" msprop:Generator_UserColumnName="Aktiv" type="xs:boolean" default="true" minOccurs="0" />
+              <xs:element name="Objekttyp" msprop:Generator_ColumnVarNameInTable="columnObjekttyp" msprop:Generator_ColumnPropNameInRow="Objekttyp" msprop:Generator_ColumnPropNameInTable="ObjekttypColumn" msprop:Generator_UserColumnName="Objekttyp">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="WindreamSuche" msprop:Generator_ColumnVarNameInTable="columnWindreamSuche" msprop:Generator_ColumnPropNameInRow="WindreamSuche" msprop:Generator_ColumnPropNameInTable="WindreamSucheColumn" msprop:Generator_UserColumnName="WindreamSuche">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="500" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Day" msprop:Generator_ColumnVarNameInTable="columnDay" msprop:Generator_ColumnPropNameInRow="Day" msprop:Generator_ColumnPropNameInTable="DayColumn" msprop:Generator_UserColumnName="Day">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Run" msprop:Generator_ColumnVarNameInTable="columnRun" msprop:Generator_ColumnPropNameInRow="Run" msprop:Generator_ColumnPropNameInTable="RunColumn" msprop:Generator_UserColumnName="Run">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="100" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="Letzter_Durchlauf" msprop:Generator_ColumnVarNameInTable="columnLetzter_Durchlauf" msprop:Generator_ColumnPropNameInRow="Letzter_Durchlauf" msprop:Generator_ColumnPropNameInTable="Letzter_DurchlaufColumn" msprop:Generator_UserColumnName="Letzter_Durchlauf" type="xs:dateTime" />
+              <xs:element name="Running" msprop:Generator_ColumnVarNameInTable="columnRunning" msprop:Generator_ColumnPropNameInRow="Running" msprop:Generator_ColumnPropNameInTable="RunningColumn" msprop:Generator_UserColumnName="Running" type="xs:boolean" default="false" />
+              <xs:element name="Reihenfolge" msprop:Generator_ColumnVarNameInTable="columnReihenfolge" msprop:Generator_ColumnPropNameInRow="Reihenfolge" msprop:Generator_ColumnPropNameInTable="ReihenfolgeColumn" msprop:Generator_UserColumnName="Reihenfolge" type="xs:int" default="1" />
+              <xs:element name="ERSTELLTWER" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_UserColumnName="ERSTELLTWER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="GEAENDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWER" msprop:Generator_ColumnPropNameInRow="GEAENDERTWER" msprop:Generator_ColumnPropNameInTable="GEAENDERTWERColumn" msprop:Generator_UserColumnName="GEAENDERTWER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+        <xs:element name="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_TableClassName="TBWMRH_PROFIL_FILE_JOBDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowChangedName="TBWMRH_PROFIL_FILE_JOBRowChanged" msprop:Generator_TablePropName="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowDeletingName="TBWMRH_PROFIL_FILE_JOBRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFIL_FILE_JOBRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFIL_FILE_JOBRowDeleted" msprop:Generator_RowClassName="TBWMRH_PROFIL_FILE_JOBRow" msprop:Generator_UserTableName="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowEvArgName="TBWMRH_PROFIL_FILE_JOBRowChangeEvent">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
+              <xs:element name="PROFIL_ID" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" />
+              <xs:element name="TYP" msprop:Generator_ColumnVarNameInTable="columnTYP" msprop:Generator_ColumnPropNameInRow="TYP" msprop:Generator_ColumnPropNameInTable="TYPColumn" msprop:Generator_UserColumnName="TYP">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING1" msprop:Generator_ColumnVarNameInTable="columnSTRING1" msprop:Generator_ColumnPropNameInRow="STRING1" msprop:Generator_ColumnPropNameInTable="STRING1Column" msprop:Generator_UserColumnName="STRING1" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING2" msprop:Generator_ColumnVarNameInTable="columnSTRING2" msprop:Generator_ColumnPropNameInRow="STRING2" msprop:Generator_ColumnPropNameInTable="STRING2Column" msprop:Generator_UserColumnName="STRING2" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING3" msprop:Generator_ColumnVarNameInTable="columnSTRING3" msprop:Generator_ColumnPropNameInRow="STRING3" msprop:Generator_ColumnPropNameInTable="STRING3Column" msprop:Generator_UserColumnName="STRING3" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING4" msprop:Generator_ColumnVarNameInTable="columnSTRING4" msprop:Generator_ColumnPropNameInRow="STRING4" msprop:Generator_ColumnPropNameInTable="STRING4Column" msprop:Generator_UserColumnName="STRING4" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="BOOL1" msprop:Generator_ColumnVarNameInTable="columnBOOL1" msprop:Generator_ColumnPropNameInRow="BOOL1" msprop:Generator_ColumnPropNameInTable="BOOL1Column" msprop:Generator_UserColumnName="BOOL1" type="xs:boolean" default="true" />
+              <xs:element name="BOOL2" msprop:Generator_ColumnVarNameInTable="columnBOOL2" msprop:Generator_ColumnPropNameInRow="BOOL2" msprop:Generator_ColumnPropNameInTable="BOOL2Column" msprop:Generator_UserColumnName="BOOL2" type="xs:boolean" default="false" />
+              <xs:element name="BOOL3" msprop:Generator_ColumnVarNameInTable="columnBOOL3" msprop:Generator_ColumnPropNameInRow="BOOL3" msprop:Generator_ColumnPropNameInTable="BOOL3Column" msprop:Generator_UserColumnName="BOOL3" type="xs:boolean" default="false" />
+              <xs:element name="BOOL4" msprop:Generator_ColumnVarNameInTable="columnBOOL4" msprop:Generator_ColumnPropNameInRow="BOOL4" msprop:Generator_ColumnPropNameInTable="BOOL4Column" msprop:Generator_UserColumnName="BOOL4" type="xs:boolean" default="false" />
+              <xs:element name="AKTIV" msprop:Generator_ColumnVarNameInTable="columnAKTIV" msprop:Generator_ColumnPropNameInRow="AKTIV" msprop:Generator_ColumnPropNameInTable="AKTIVColumn" msprop:Generator_UserColumnName="AKTIV" type="xs:boolean" default="true" />
+              <xs:element name="REIHENFOLGE" msprop:Generator_ColumnVarNameInTable="columnREIHENFOLGE" msprop:Generator_ColumnPropNameInRow="REIHENFOLGE" msprop:Generator_ColumnPropNameInTable="REIHENFOLGEColumn" msprop:Generator_UserColumnName="REIHENFOLGE" type="xs:int" default="1" />
+              <xs:element name="ERSTELLTWER" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_UserColumnName="ERSTELLTWER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="GEAENDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWER" msprop:Generator_ColumnPropNameInRow="GEAENDERTWER" msprop:Generator_ColumnPropNameInTable="GEAENDERTWERColumn" msprop:Generator_UserColumnName="GEAENDERTWER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+        <xs:element name="TBWMRH_PROFIL_JOB" msprop:Generator_TableClassName="TBWMRH_PROFIL_JOBDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL_JOB" msprop:Generator_RowChangedName="TBWMRH_PROFIL_JOBRowChanged" msprop:Generator_TablePropName="TBWMRH_PROFIL_JOB" msprop:Generator_RowDeletingName="TBWMRH_PROFIL_JOBRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFIL_JOBRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFIL_JOBRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFIL_JOBRowDeleted" msprop:Generator_RowClassName="TBWMRH_PROFIL_JOBRow" msprop:Generator_UserTableName="TBWMRH_PROFIL_JOB" msprop:Generator_RowEvArgName="TBWMRH_PROFIL_JOBRowChangeEvent">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
+              <xs:element name="PROFIL_ID" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" minOccurs="0" />
+              <xs:element name="JOB_TYP" msprop:Generator_ColumnVarNameInTable="columnJOB_TYP" msprop:Generator_ColumnPropNameInRow="JOB_TYP" msprop:Generator_ColumnPropNameInTable="JOB_TYPColumn" msprop:Generator_UserColumnName="JOB_TYP">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING1" msprop:Generator_ColumnVarNameInTable="columnSTRING1" msprop:Generator_ColumnPropNameInRow="STRING1" msprop:Generator_ColumnPropNameInTable="STRING1Column" msprop:Generator_UserColumnName="STRING1" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING2" msprop:Generator_ColumnVarNameInTable="columnSTRING2" msprop:Generator_ColumnPropNameInRow="STRING2" msprop:Generator_ColumnPropNameInTable="STRING2Column" msprop:Generator_UserColumnName="STRING2" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING3" msprop:Generator_ColumnVarNameInTable="columnSTRING3" msprop:Generator_ColumnPropNameInRow="STRING3" msprop:Generator_ColumnPropNameInTable="STRING3Column" msprop:Generator_UserColumnName="STRING3" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="STRING4" msprop:Generator_ColumnVarNameInTable="columnSTRING4" msprop:Generator_ColumnPropNameInRow="STRING4" msprop:Generator_ColumnPropNameInTable="STRING4Column" msprop:Generator_UserColumnName="STRING4" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="BOOL1" msprop:Generator_ColumnVarNameInTable="columnBOOL1" msprop:Generator_ColumnPropNameInRow="BOOL1" msprop:Generator_ColumnPropNameInTable="BOOL1Column" msprop:Generator_UserColumnName="BOOL1" type="xs:boolean" default="false" minOccurs="0" />
+              <xs:element name="BOOL2" msprop:Generator_ColumnVarNameInTable="columnBOOL2" msprop:Generator_ColumnPropNameInRow="BOOL2" msprop:Generator_ColumnPropNameInTable="BOOL2Column" msprop:Generator_UserColumnName="BOOL2" type="xs:boolean" default="false" minOccurs="0" />
+              <xs:element name="BOOL3" msprop:Generator_ColumnVarNameInTable="columnBOOL3" msprop:Generator_ColumnPropNameInRow="BOOL3" msprop:Generator_ColumnPropNameInTable="BOOL3Column" msprop:Generator_UserColumnName="BOOL3" type="xs:boolean" default="false" minOccurs="0" />
+              <xs:element name="BOOL4" msprop:Generator_ColumnVarNameInTable="columnBOOL4" msprop:Generator_ColumnPropNameInRow="BOOL4" msprop:Generator_ColumnPropNameInTable="BOOL4Column" msprop:Generator_UserColumnName="BOOL4" type="xs:boolean" default="false" minOccurs="0" />
+              <xs:element name="AKTIV" msprop:Generator_ColumnVarNameInTable="columnAKTIV" msprop:Generator_ColumnPropNameInRow="AKTIV" msprop:Generator_ColumnPropNameInTable="AKTIVColumn" msprop:Generator_UserColumnName="AKTIV" type="xs:boolean" default="true" minOccurs="0" />
+              <xs:element name="REIHENFOLGE" msprop:Generator_ColumnVarNameInTable="columnREIHENFOLGE" msprop:Generator_ColumnPropNameInRow="REIHENFOLGE" msprop:Generator_ColumnPropNameInTable="REIHENFOLGEColumn" msprop:Generator_UserColumnName="REIHENFOLGE" type="xs:int" default="1" />
+              <xs:element name="ERSTELLTWER" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_UserColumnName="ERSTELLTWER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="ERSTELLTWANN" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWANN" msprop:Generator_ColumnPropNameInRow="ERSTELLTWANN" msprop:Generator_ColumnPropNameInTable="ERSTELLTWANNColumn" msprop:Generator_UserColumnName="ERSTELLTWANN" type="xs:dateTime" minOccurs="0" />
+              <xs:element name="GEAENDERTWER" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWER" msprop:Generator_ColumnPropNameInRow="GEAENDERTWER" msprop:Generator_ColumnPropNameInTable="GEAENDERTWERColumn" msprop:Generator_UserColumnName="GEAENDERTWER" minOccurs="0">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+              <xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+    <xs:unique name="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:TBWMRH_KONFIGURATION" />
+      <xs:field xpath="mstns:GUID" />
+    </xs:unique>
+    <xs:unique name="TBWMRH_PROFIL_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:TBWMRH_PROFIL" />
+      <xs:field xpath="mstns:GUID" />
+    </xs:unique>
+    <xs:unique name="TBWMRH_PROFIL_FILE_JOB_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:TBWMRH_PROFIL_FILE_JOB" />
+      <xs:field xpath="mstns:GUID" />
+    </xs:unique>
+    <xs:unique name="TBWMRH_PROFIL_JOB_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
+      <xs:selector xpath=".//mstns:TBWMRH_PROFIL_JOB" />
+      <xs:field xpath="mstns:GUID" />
+    </xs:unique>
+  </xs:element>
+  <xs:annotation>
+    <xs:appinfo>
+      <msdata:Relationship name="FK_FILE_JOB_PROFILID" msdata:parent="TBWMRH_PROFIL" msdata:child="TBWMRH_PROFIL_FILE_JOB" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_ChildPropName="GetTBWMRH_PROFIL_FILE_JOBRows" msprop:Generator_UserRelationName="FK_FILE_JOB_PROFILID" msprop:Generator_RelationVarName="relationFK_FILE_JOB_PROFILID" msprop:Generator_UserParentTable="TBWMRH_PROFIL" msprop:Generator_ParentPropName="TBWMRH_PROFILRow" />
+      <msdata:Relationship name="FK_TBPROFIL_JOB_PROFILID" msdata:parent="TBWMRH_PROFIL" msdata:child="TBWMRH_PROFIL_JOB" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBWMRH_PROFIL_JOB" msprop:Generator_ChildPropName="GetTBWMRH_PROFIL_JOBRows" msprop:Generator_UserRelationName="FK_TBPROFIL_JOB_PROFILID" msprop:Generator_RelationVarName="relationFK_TBPROFIL_JOB_PROFILID" msprop:Generator_UserParentTable="TBWMRH_PROFIL" msprop:Generator_ParentPropName="TBWMRH_PROFILRow" />
+    </xs:appinfo>
+  </xs:annotation>
+</xs:schema>

app/ResultHandler_Konfig/MyDataset.xss

@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--<autogenerated>
+     This code was generated by a tool to store the dataset designer's layout information.
+     Changes to this file may cause incorrect behavior and will be lost if
+     the code is regenerated.
+</autogenerated>-->
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="0" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+  <Shapes>
+    <Shape ID="DesignTable:TBWMRH_KONFIGURATION" ZOrder="6" X="55" Y="54" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWMRH_PROFIL" ZOrder="5" X="421" Y="55" Height="324" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWMRH_PROFIL_FILE_JOB" ZOrder="1" X="729" Y="143" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBWMRH_PROFIL_JOB" ZOrder="3" X="1136" Y="283" Height="324" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+  </Shapes>
+  <Connectors>
+    <Connector ID="DesignRelation:FK_FILE_JOB_PROFILID" ZOrder="4" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>675</X>
+          <Y>175</Y>
+        </Point>
+        <Point>
+          <X>729</X>
+          <Y>175</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+    <Connector ID="DesignRelation:FK_TBPROFIL_JOB_PROFILID" ZOrder="2" LineWidth="11">
+      <RoutePoints>
+        <Point>
+          <X>675</X>
+          <Y>321</Y>
+        </Point>
+        <Point>
+          <X>1136</X>
+          <Y>321</Y>
+        </Point>
+      </RoutePoints>
+    </Connector>
+  </Connectors>
+</DiagramLayout>

app/ResultHandler_Konfig/RUNTIME_VARIABLES.vb

@@ -0,0 +1,7 @@
+Module RUNTIME_VARIABLES
+    Public EXPORTED_FILENAME As String
+    Public _PROFIL_ID, _profGUID As Integer
+    Public WDLAUFWERK, _profObjekttyp, _profwdSuche, _profDay, _profRunType, _Profilname As String
+    Public _proflastRun As Date
+    Public LOG_ERRORS_ONLY As Boolean = False
+End Module

app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj

@@ -0,0 +1,217 @@
+<?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.5.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="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.SqlServer">
+      <HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+    </Reference>
+    <Reference Include="Interop.WINDREAMLib">
+      <HintPath>..\..\..\Bibliotheken\DLL\windreamDLL\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="Oracle.ManagedDataAccess">
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Data.SQLite, Version=1.0.106.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=x86">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>D:\ProgramFiles\System.Data.SQLite\2005\GAC\System.Data.SQLite.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <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="ClassAllgemeineFunktionen.vb" />
+    <Compile Include="ClassWindream_allgemein.vb" />
+    <Compile Include="clsDatabase.vb" />
+    <Compile Include="clsDateiverarbeitung.vb" />
+    <Compile Include="clsLogger.vb" />
+    <Compile Include="clsProfil.vb" />
+    <Compile Include="clsWindream_allgemein.vb" />
+    <Compile Include="clsWindream_Index.vb" />
+    <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>
+    <Compile Include="RUNTIME_VARIABLES.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmMain.resx">
+      <DependentUpon>frmMain.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <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" />
+  </ItemGroup>
+  <ItemGroup>
+    <WCFMetadata Include="Connected Services\" />
+  </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/clsDatabase.vb

@@ -0,0 +1,350 @@
+Imports System.Data.SqlClient
+Imports Oracle.ManagedDataAccess.Client
+Public Class clsDatatabase
+    Public Shared Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String)
+        Try
+            ' die nötigen Variablen definieren
+            Dim result As Object = Nothing
+            Dim conn As New OracleConnectionStringBuilder
+
+            Dim Oracle_Conn As OracleConnection = New OracleConnection(CONSTRING)
+            Dim Oracle_Command As OracleCommand = Nothing
+            Dim DataAdapter As OracleDataAdapter = Nothing
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Oracle_Conn.Open()
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonOracleDb(OpenConnection)")
+                Return False
+            End Try
+
+
+            ' SQL-Abfrage definieren
+            Try
+                Oracle_Command = New OracleCommand(plsqlcommand, Oracle_Conn)
+                Oracle_Command.AddToStatementCache = True
+
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.plsqlcommandDefine")
+                Oracle_Conn.Close()
+                Return False
+            End Try
+
+
+            ' *** Ausführen des Command ***
+            If Command() IsNot Nothing Then
+                Try
+                    clsLogger.AddDetailLog("Now executing: " & plsqlcommand)
+                    Oracle_Command.ExecuteNonQuery()
+                    ' DB-Connection schliessen
+                    Oracle_Conn.Close()
+                    Return True
+
+                Catch ex As Exception
+                    clsLogger.Add(ex.Message & vbNewLine & "Execute Command => (" & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
+                    Oracle_Conn.Close()
+
+                    Return False
+                End Try
+
+            Else
+                ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
+                ' Eintrag in Logdatei machen
+                clsLogger.Add("SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
+                Return False
+            End If
+
+
+        Catch ex As Exception
+            clsLogger.Add("Unexpected Error in ExecuteonOracleDb: " & ex.Message & vbNewLine & "SQL: " & plsqlcommand, True, "clsDatatabase.ExecuteonOracleDb")
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            Return False
+        End Try
+
+    End Function
+    Public Shared Function Oracle_CS_Test(CONSTRING As String)
+        Try
+            Dim conn As New OracleConnectionStringBuilder
+
+            Dim Oracle_Conn As OracleConnection = New OracleConnection(CONSTRING)
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Oracle_Conn.Open()
+
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.Oracle_CS_Test(OpenConnection)")
+                Return False
+            End Try
+            Oracle_Conn.Close()
+            Return True
+        Catch ex As Exception
+            clsLogger.Add("Unexpected Error in Oracle_CS_Test: " & ex.Message, True, "clsDatatabase.Oracle_CS_Test")
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            Return False
+        End Try
+
+    End Function
+    Public Shared Function MSSQL_CS_Test(CONSTRING As String)
+        Try
+
+            ' die nötigen Variablen definieren
+            Dim Connection As SqlConnection = Nothing
+
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Connection = New SqlConnection(CONSTRING)
+                Connection.Open()
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.MSSQL_CS_Test(OpenConnection)")
+                Return False
+            End Try
+            Connection.Close()
+            Return True
+
+        Catch ex As Exception
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.MSSQL_CS_Test")
+            Return False
+        End Try
+
+    End Function
+    Public Shared Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String)
+        Try
+
+            ' die nötigen Variablen definieren
+            Dim Connection As SqlConnection = Nothing
+            ' Dim ConnectionString As SqlConnectionStringBuilder = Nothing
+            Dim Command As SqlCommand = Nothing
+            Dim DataAdapter As SqlDataAdapter = Nothing
+
+            '' ConnectionString aufbauen (aus Settings auslesen)
+            'ConnectionString = New SqlConnectionStringBuilder()
+            'ConnectionString.DataSource = datasource
+            'ConnectionString.UserID = User
+            'ConnectionString.Password = pw
+            'ConnectionString.InitialCatalog = init_Cata
+
+
+
+            ' Verbindung zur Datenbank aufbauen
+            Try
+                Connection = New SqlConnection(ConString)
+                Connection.Open()
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(OpenConnection)")
+                Return False
+            End Try
+
+
+            ' SQL-Abfrage definieren
+            Try
+                Command = New SqlCommand(sqlcommand, Connection)
+            Catch ex As Exception
+                clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(DefineCommand)")
+                Return False
+                Connection.Close()
+            End Try
+
+            ' *** Ausführen des Command ***
+            If Command IsNot Nothing Then
+
+                Try
+                    Command.ExecuteNonQuery()
+                    ' DB-Connection schliessen
+                    Connection.Close()
+                    Return True
+                Catch ex As Exception
+                    ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
+                    clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(ExecuteCommand)")
+                    Return False
+                    Connection.Close()
+                End Try
+            Else
+                ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
+                ' Eintrag in Logdatei machen
+                clsLogger.Add("Could not create COMMAND", True, "clsDatatabase.ExecuteonMSSQL")
+                Return False
+                Connection.Close()
+            End If
+        Catch ex As Exception
+            ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
+            clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.ExecuteonMSSQL")
+            Return False
+        End Try
+
+    End Function
+    Private Shared connectionString As String
+
+    Public Shared Function Init()
+        Try
+            connectionString = My.Settings.SQLSERVER_CS
+            Dim SQLconnect As New SqlClient.SqlConnection
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            clsLogger.Add("Error in DatabaseInit: " & ex.Message, True)
+            Return False
+        End Try
+    End Function
+
+
+
+    Public Shared Function Return_Datatable(Select_anweisung As String)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+
+
+            SQLconnect.ConnectionString = connectionString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+            SQLcommand.CommandTimeout = 180
+            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+
+            Return dt
+        Catch ex As Exception
+            MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            clsLogger.Add("Error in Return_Datatable: " & ex.Message, True)
+            clsLogger.Add(">> SQL: " & Select_anweisung, False)
+
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function Execute_non_Query(ExecuteCMD As String)
+        Try
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = connectionString
+
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.CommandTimeout = 120
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+
+
+
+            Return True
+        Catch ex As Exception
+            'If Userinput = True Then
+            '    MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            'End If
+            clsLogger.Add("Error in Execute_non_Query: " & ex.Message, True)
+            clsLogger.Add("SQL: " & ExecuteCMD, False)
+
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function Execute_Scalar(cmdscalar As String)
+        Dim result
+        Try
+
+
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+
+            SQLconnect.ConnectionString = connectionString
+
+
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            SQLcommand.CommandTimeout = 120
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+
+
+            Return result
+        Catch ex As Exception
+            'If Userinput = True Then
+            '    MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
+            'End If
+            clsLogger.Add("Error in Execute_Scalar: " & ex.Message, True)
+            clsLogger.Add("SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
+        Dim result
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As New OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            clsLogger.Add("Error in OracleExecute_Scalar: " & ex.Message, True)
+            clsLogger.Add("#SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = ExecuteCMD
+            SQLcommand.ExecuteNonQuery()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return True
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
+            End If
+            clsLogger.Add("Error in OracleExecute_non_Query: " & ex.Message, True)
+            clsLogger.Add("#SQL: " & ExecuteCMD, False)
+
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
+        Try
+            Dim SQLconnect As New OracleConnection
+            Dim SQLcommand As OracleCommand
+            SQLconnect.ConnectionString = OracleConnection
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            SQLcommand.CommandText = Select_anweisung
+
+            Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand)
+            Dim dt As DataTable = New DataTable()
+            adapter1.Fill(dt)
+            SQLconnect.Close()
+            Return dt
+        Catch ex As Exception
+            If userInput = True Then
+                MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+            End If
+            clsLogger.Add("Error in Oracle_Return_Datatable: " & ex.Message, True)
+            clsLogger.Add("#SQL: " & Select_anweisung, False)
+            Return Nothing
+        End Try
+    End Function
+End Class

app/ResultHandler_Konfig/clsDateiverarbeitung.vb

@@ -0,0 +1,291 @@
+Imports WINDREAMLib
+Imports System.IO
+Public Class clsDateiverarbeitung
+
+#Region "***** Variablen und Konstanten*****"
+    Public Shared _windream As New clsWindream_allgemein
+
+
+    Public Shared pr_DTPROFIL_REGELN As DataTable
+    Public Shared aktfile_Exportresult
+
+
+    Public Shared CriticalError As Boolean = False
+
+    Private Shared regel_TYP, regel_INDEX_NAME, regel_QUELLE1, regel_FROM1, regel_FROM2 As String
+    Private Shared Indexe() As String = Nothing  ' zum Speichern der Indexe
+    Private Shared NI_Values() As String = Nothing  ' zum Speichern der Werte
+
+    Private Shared WD_aktivesDokument As WMObject
+
+
+    Const WMObjectStreamOpenModeReadWrite = 2
+    Const WMObjectEditModeFileSystem = &H15
+#End Region
+    Public Shared Function InitProfilData()
+        Try
+            pr_DTPROFIL_REGELN = Nothing
+            ' Profildaten der Klasse mitteilen
+            clsLogger.AddDetailLog("InitProfilData Profildaten zugewiesen....")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "cls_DV.InitProfilData")
+            Return False
+        End Try
+    End Function
+    'Kopiert die übergebene Datei in den Zielpfad
+    Public Shared Function Export_File(WDDatei As WMObject, Zielpfad As String)
+        Try
+            If Not Zielpfad.EndsWith("\") Then
+                Zielpfad = Zielpfad & "\"
+            End If
+            clsLogger.Add("", False)
+            clsLogger.Add(">> Verarbeitung von Datei: " & WDDatei.aName, False)
+            'Die Quelle zusammensetzen
+            clsLogger.AddDetailLog("PFAD: " & WDLAUFWERK & ":" & WDDatei.aPath & "\" & WDDatei.aName)
+            'Dim Quelle As String = IO.Path.GetDirectoryName(WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
+
+            Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO 
+            clsLogger.AddDetailLog("ExportFileIO erzeugt.....")
+            ' Stream Interface bereitstellen
+            WDDatei.LockFor(WMObjectEditModeFileSystem)
+            Try
+                If Not WDDatei.aLocked Then
+                    WDDatei.lock()
+                End If
+            Catch ex As Exception
+                clsLogger.AddError("Unvorhergesehener Fehler beim Lock-Vorgang: " & ex.Message, "clsDV.Export_File")
+                Return False
+            End Try
+          
+            Dim oWMStream = WDDatei.OpenStream("BinaryObject", WMObjectStreamOpenModeReadWrite)
+            '### VERSIONIERUNG ###
+            Dim version As Integer = 2
+            'Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(Quelle)
+            Dim Filename = WDDatei.aName.Substring(0, WDDatei.aName.LastIndexOf("."))
+            Dim Extension = WDDatei.aName.Substring(WDDatei.aName.LastIndexOf("."))
+            Dim tempFilename As String = Zielpfad & Filename & Extension
+            'Überprüfen ob File existiert
+            Do While IO.File.Exists(tempFilename) = True
+                tempFilename = Zielpfad & Filename & "_" & version & Extension
+                version = version + 1
+            Loop
+            clsLogger.AddDetailLog("Zieldateiname: " & tempFilename)
+            ' den Dateiinhalt der neuen Datei zuweisen
+            ExportFileIO.aWMStream = oWMStream
+            ExportFileIO.bstrOriginalFileName = tempFilename
+            'Das eigentliche kopieren
+            ExportFileIO.ExportOriginal(True)
+            ' close the windream file stream
+            oWMStream.Close()
+            WDDatei.Save()
+            WDDatei.unlock()
+            EXPORTED_FILENAME = tempFilename
+            clsLogger.Add(">> Datei erfolgreich nach '" & tempFilename & "' verschoben.", False, "clsDV Export_File")
+            aktfile_Exportresult = tempFilename
+            Return True
+        Catch ex As Exception
+            'bei einem Fehler einen Eintrag in der Logdatei machen
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDV.Export_File")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Rename_File(WMFile As WMObject, konvention As String)
+        Try
+            clsLogger.AddDetailLog("Konvention: '" & konvention & "'")
+
+            'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+            ' einen Regulären Ausdruck laden
+            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+            ' die Vorkommen im SQL-String auslesen
+            Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(konvention)
+            Dim i As Integer = 0
+            ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+            For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente
+                'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
+                Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
+                reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
+                clsLogger.AddDetailLog("Indexwert aus Index '" & reg_element_Ohne_SZ & "' auslesen....")
+                Dim wdIndexwert
+                'den Wert des Indexes für das aktuelle Dokument auslesen
+                wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
+                If wdIndexwert Is Nothing = False Then
+                    If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
+                        clsLogger.AddDetailLog("Namenkonvention (" & i & ") " & konvention)
+                        wdIndexwert = wdIndexwert.ToString.TrimEnd
+                        wdIndexwert = wdIndexwert.ToString.TrimStart
+                        clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'")
+                        konvention = konvention.Replace(reg_element.Value, wdIndexwert.ToString)
+                        i += 1
+                    Else
+                        clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf")
+                    End If
+                End If
+            Next
+            Dim version As Integer = 2
+            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            clsLogger.AddDetailLog("ZielPfad: " & ZielPfad)
+            Dim Filename = konvention
+            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            clsLogger.AddDetailLog("Extension: " & Extension)
+            Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
+            clsLogger.AddDetailLog("tempFilename: " & tempFilename)
+            'Überprüfen ob File existiert
+            Do While IO.File.Exists(tempFilename) = True
+                tempFilename = ZielPfad & "\" & Filename & "~" & version & Extension
+                version += 1
+            Loop
+            clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+            My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
+            clsLogger.Add(">> Datei wurde erfolgreich umbenannt.", False, "clsProfil.RenameFile")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.RenameFile")
+            Return False
+        End Try
+    End Function
+    Public Shared Function Rename_File_Vektor(WMFile As WMObject, WMINDEX_NAME As String)
+        Try
+            Dim WMIndexwert
+            Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
+            clsLogger.AddDetailLog("ZielPfad: " & ZielPfad)
+            Dim Extension = Path.GetExtension(aktfile_Exportresult)
+            clsLogger.AddDetailLog("Extension: " & Extension)
+
+            If WMINDEX_NAME.StartsWith("[%") Then
+                WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "")
+                WMINDEX_NAME = WMINDEX_NAME.Replace("]", "")
+            End If
+            'den Wert des Indexes für das aktuelle Dokument auslesen
+            WMIndexwert = WMFile.GetVariableValue(WMINDEX_NAME)
+            If WMIndexwert.GetType.ToString.Contains("System.Object") Then
+                clsLogger.AddDetailLog("Rename_File_Vektor in Progress for index " & WMINDEX_NAME)
+                Dim anz As Integer = 1
+                Dim copybasefile As String
+                For Each WMvalue As Object In WMIndexwert
+                    'Für jeden Value eine Datei erzeugen
+                    Try
+                        If WMvalue.ToString <> String.Empty Then
+                            Dim tempFilename As String = ZielPfad & "\" & WMvalue & Extension
+                            clsLogger.AddDetailLog("tempFilename: " & tempFilename)
+                            If anz = 1 Then
+                                clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
+                                My.Computer.FileSystem.RenameFile(aktfile_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
+                                    version += 1
+                                Loop
+                                File.Copy(copybasefile, tempFilename, True)
+                            End If
+                            anz += 1
+
+                        End If
+                    Catch ex As Exception
+                        clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.ForEachWMvalue")
+                    End Try
+                Next
+            Else
+                clsLogger.Add(">> Achtung WMIndex " & WMINDEX_NAME & " scheint kein Vektorfeld zu sein!", False, "clsDateiverarbeitung.Rename_File_Vektor")
+                Return False
+            End If
+
+            clsLogger.Add(">> Dateien wurde erfolgreich nach Vektorfeld erzeugt.", False, "clsDateiverarbeitung.Rename_File_Vektor")
+            Return True
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor")
+        End Try
+    End Function
+    Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
+        Try
+            Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)
+            If result = Nothing Then
+                Return False
+            End If
+
+
+            If clsDatatabase.ExecuteonOracleDb(OracleCS, result) = True Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_ORACLE_COMMAND")
+            Return False
+        End Try
+    End Function
+    Public Shared Function RUN_MSSQL_COMMAND(WMFile As WMObject, MSSQLCS As String, SQLCommandRAW As String)
+        Try
+            Dim result = REGEX_REPLACE(WMFile, SQLCommandRAW)
+            If result = Nothing Then
+                Return False
+            End If
+
+
+            If clsDatatabase.ExecuteonMSSQL(MSSQLCS, result) = True Then
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_MSSQL_COMMAND")
+            Return False
+        End Try
+    End Function
+
+    Private Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
+        Try
+            ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
+            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
+            ' einen Regulären Ausdruck laden
+            Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
+            ' die Vorkommen im SQL-String auslesen
+            Dim reg_elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(_STRING)
+            Dim i As Integer = 0
+            ' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
+            For Each reg_element As System.Text.RegularExpressions.Match In reg_elemente
+                ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
+                Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
+                reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
+                clsLogger.AddDetailLog("Indexwert aus Index/Variable '" & reg_element_Ohne_SZ & "' auslesen....")
+                If reg_element_Ohne_SZ = "EXPORTED_FILENAME" Then
+                    If EXPORTED_FILENAME <> "" Then
+                        _STRING = _STRING.Replace(reg_element.Value, EXPORTED_FILENAME)
+                    End If
+                Else
+                    Dim wdIndexwert
+                    ' den Wert des Indexes für das aktuelle Dokument auslesen
+                    wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
+                    If wdIndexwert Is Nothing = False Then
+                        If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
+
+                            wdIndexwert = wdIndexwert.ToString.TrimEnd
+                            wdIndexwert = wdIndexwert.ToString.TrimStart
+                            clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'")
+                            _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
+                            clsLogger.AddDetailLog("Namenkonvention  (" & i & ") " & _STRING)
+                            i += 1
+                        Else
+                            clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf")
+                            Return Nothing
+                        End If
+                    End If
+                End If
+
+
+            Next
+            Return _STRING
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "REGEX_REPLACE")
+            Return Nothing
+        End Try
+    End Function
+
+End Class
+

app/ResultHandler_Konfig/clsLogger.vb

@@ -0,0 +1,155 @@
+Imports System.IO
+
+Public Class clsLogger
+    Private Shared LogPath As String
+    Public Shared LogFilename As String
+    Private Shared logErr_name As String
+    Private Shared log_string As String
+    Public Shared Function Init(ByVal speicherort As String, ByVal prefix As String)
+        Try
+            'Den Speicherort festlegen
+            SetSpeicherort()
+            Dim logf_name As String = LogPath & "\" & prefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+            logErr_name = LogPath & "\" & "ErrorLog_" & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
+            Dim anz As Integer = 1
+            Do While File.Exists(logf_name)
+                Dim info As New FileInfo(logf_name)
+                Dim length As Long = info.Length
+                If length > 5000000 Then
+                    logf_name = IO.Path.GetDirectoryName(logf_name)
+                    logf_name = logf_name & "\" & prefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
+                    anz = anz + 1
+                Else
+                    Exit Do
+                End If
+            Loop
+            LogFilename = logf_name
+            Try
+                'Veruch das Log zu öffnen
+                Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
+                ' --- Stream öffnen
+                Dim w As StreamWriter = New StreamWriter(fs)
+                ' --- Anfügen am Ende
+                w.BaseStream.Seek(0, SeekOrigin.End)
+                ' --- Zeilen schreiben
+                w.WriteLine(" ")
+                ' --- Writer und Stream schließen
+                w.Close()
+                fs.Close()
+            Catch ex As Exception
+                LogEscalation_Error("The Logfile could not be created - Error: " & ex.Message)
+                Return False
+            End Try
+            'Alles Ok 
+            Return True
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in init Logger - Error: " & ex.Message)
+            Return False
+        End Try
+
+    End Function
+    Private Shared Sub LogEscalation_Error(msg As String)
+        Try
+            'Veruch das Log zu öffnen
+            Dim fs As FileStream = New FileStream(logErr_name, FileMode.OpenOrCreate, FileAccess.Write)
+            ' --- Stream öffnen
+            Dim w As StreamWriter = New StreamWriter(fs)
+            ' --- Anfügen am Ende
+            w.BaseStream.Seek(0, SeekOrigin.End)
+            ' --- Zeilen schreiben
+            w.WriteLine(msg)
+            ' --- Writer und Stream schließen
+            w.Close()
+            fs.Close()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    ' legt den Speicherort fest
+    Public Shared Sub SetSpeicherort()
+        Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
+        If f.Exists = False Then
+            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
+        End If
+        LogPath = My.Application.Info.DirectoryPath & "\Log\"
+    End Sub
+    Public Shared Sub Add(ByVal text As String, ByVal _error As Boolean, Optional ByVal Funktion As String = "")
+        Dim msg As String
+        If log_string <> "" Then
+            log_string &= vbNewLine
+        End If
+        'Präfixe schreiben
+        If _error = True And Funktion <> "" Then
+            msg = ">> Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
+        ElseIf _error = True Then
+            msg = ">> Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
+        End If
+        'Präfix und Meldung zusammenstellen
+        msg &= text
+        log_string &= msg
+    End Sub
+    Public Shared Sub AddError(ByVal error_string As String, Optional ByVal Funktion As String = "")
+        Try
+            'Zuerst mal die Details schreiben
+            WriteLog()
+            'Nun den eigentlichen Fehler loggen
+            Dim msg As String
+            'Präfixe schreiben
+            If Funktion <> "" Then
+                msg = ">> Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
+            Else
+                msg = ">> Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
+            End If
+            'Präfix und Meldung zusammenstellen
+            msg &= error_string
+            'Veruch das Log zu öffnen
+            Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
+            ' --- Stream öffnen
+            Dim w As StreamWriter = New StreamWriter(fs)
+            ' --- Anfügen am Ende
+            w.BaseStream.Seek(0, SeekOrigin.End)
+            ' --- Zeilen schreiben
+            w.WriteLine(msg)
+            ' --- Writer und Stream schließen
+            w.Close()
+            fs.Close()
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in AddError - Error: " & ex.Message)
+        End Try
+        
+    End Sub
+
+    Public Shared Sub AddDetailLog(ByVal text As String)
+        Try
+            If LOG_ERRORS_ONLY = False Then
+                If log_string <> "" Then
+                    log_string &= vbNewLine
+                End If
+                log_string &= ">> " & text
+            End If
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in AddDetailLog - Error: " & ex.Message)
+        End Try
+    End Sub
+
+    Public Shared Sub WriteLog()
+        Try
+            'Veruch das Log zu öffnen
+            Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
+            ' --- Stream öffnen
+            Dim w As StreamWriter = New StreamWriter(fs)
+            ' --- Anfügen am Ende
+            w.BaseStream.Seek(0, SeekOrigin.End)
+            ' --- Zeilen schreiben
+            w.WriteLine(log_string)
+            ' --- Writer und Stream schließen
+            w.Close()
+            fs.Close()
+            SetSpeicherort()
+            'Den Meldungsstring wieder leeren
+            log_string = ""
+        Catch ex As Exception
+            LogEscalation_Error("Unexpected Error in WriteLog - Error: " & ex.Message)
+        End Try
+    End Sub
+End Class

app/ResultHandler_Konfig/clsProfil.vb

@@ -0,0 +1,383 @@
+Imports WINDREAMLib
+Imports System.IO
+Public Class clsProfil
+
+#Region "***** Variablen *****"
+
+
+
+
+
+    Private Shared CriticalError As Boolean = False
+
+    Private Shared WD_aktivesDokument As WMObject
+#End Region
+    Public Shared Function Init(guid As Integer)
+        Try
+
+            clsLogger.AddDetailLog("Start Initialisierung Profil für GUID: " & guid.ToString)
+            Dim DT As DataTable = clsDatatabase.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & guid & " AND Running = 0")
+            If DT.Rows.Count > 0 Then
+                For Each DR As DataRow In DT.Rows
+                    _profGUID = guid
+                    _Profilname = CStr(DR.Item("Profilname"))
+                    clsLogger.AddDetailLog("Check Profilname '" & _Profilname & "', GUID: " & _profGUID & " geladen")
+                    ' Überprüfen ob Profil aktiv oder inaktiv
+                    If CBool(DR.Item("Aktiv")) = False Then
+                        clsLogger.Add("## Profil '" & _Profilname & "' ist inaktiv geschaltet", False)
+                        clsLogger.Add("", False)
+                        Return False
+                    Else
+                        _profObjekttyp = CStr(DR.Item("Objekttyp"))
+                        _profwdSuche = CStr(DR.Item("WindreamSuche"))
+                        _profDay = CStr(DR.Item("Day"))
+                        _profRunType = CStr(DR.Item("Run"))
+                        _proflastRun = DR.Item("Letzter_Durchlauf")
+                        clsLogger.AddDetailLog("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen")
+                        Return True
+                    End If
+                Next
+            Else
+                clsLogger.Add("Achtung - keine Profile für diesen Durchlaufthread verfügbar", False)
+                Return False
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "Profil_Init")
+            Return False
+        End Try
+
+    End Function
+    'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war
+    Public Shared Function Profil_Durchlauf()
+        Dim _error As Boolean = False
+        'Try
+        Dim Run_Profile As Boolean = False
+            'Soll die Verarbeitung heute durchgeführt werden??
+            Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
+            If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
+                'Verarbeitung soll heute durchgeführt werden
+                clsLogger.AddDetailLog("Verarbeitung soll heute durchgeführt werden!")
+                clsLogger.AddDetailLog("_RunType: " & _profRunType)
+                Dim arr As String()
+                arr = _profRunType.Split(";")
+                clsLogger.AddDetailLog("arr(1): " & arr(1).ToString)
+                Select Case arr(0)
+                    Case "TIME"
+                        ' Dim intervall As Integer = clsSQLITE.konf_intervall / 60
+                        clsLogger.AddDetailLog("Intervall: 1 Minute")
+                        Dim Time_next As DateTime = _proflastRun.AddMinutes(1)
+                        Dim _RunTime As Date = CDate(arr(1))
+                        clsLogger.AddDetailLog("ProfilTime: " & _RunTime)
+                        clsLogger.AddDetailLog("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString)
+                        If Time_next.ToString.StartsWith("11.11.1911") Then
+                            clsLogger.AddDetailLog("Manueller Durchlauf des Profils - 11.11.1911")
+                            Run_Profile = True
+                        Else
+                            'Ist die Uhrzeit in der Range
+                            If _RunTime.ToShortTimeString = Now.ToShortTimeString Then
+                                Run_Profile = True
+                            End If
+                        End If
+
+                    Case "INTV"
+                        'Die Differenz berechnen
+                        Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now)
+                        Dim msg As String
+                        msg = "Minutenangaben: " & vbNewLine
+                        msg = msg & "DiffMin: " & DiffMin & vbNewLine
+                        msg = msg & "Intervall: " & arr(1)
+                        clsLogger.AddDetailLog(msg)
+                        If DiffMin >= CInt(arr(1)) Then
+                            'Den Durchlauf erlauben
+                            Run_Profile = True
+                        End If
+                    Case Else
+                        clsLogger.Add(">> _profRunType konnte nicht ausgewertet werden - " & arr(0), False)
+                End Select
+                If Run_Profile = True Then
+                    clsLogger.Add(">> Start des Durchlaufes für Profil '" & _Profilname & "'", False)
+                    'den Durchlaufszeitpunkt speichern
+                    clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _profGUID)
+                    clsLogger.AddDetailLog("Prüfen der windream-Suche.......")
+                    If File.Exists(_profwdSuche) = False Then
+                        clsLogger.Add("Die Windream-Suche '" & _profwdSuche & "' existiert nicht!", True, "clsProfil.Profil_Durchlauf")
+                        'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
+                        clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
+                        clsLogger.WriteLog()
+                        Return False
+                    Else
+                        ' windream-Suche für Profil starten
+                        clsLogger.AddDetailLog("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ")
+                        Dim windreamSucheErgebnisse As WMObjects = clsWindream_allgemein.GetSearchDocuments(_profwdSuche)
+                    If windreamSucheErgebnisse Is Nothing Then
+                        clsLogger.Add("windreamSucheErgebnisse is nothing!", True, "clsProfil.Profil_Durchlauf")
+                        clsLogger.WriteLog()
+                        Return False
+                    End If
+                    If windreamSucheErgebnisse.Count > 0 Then
+                            clsLogger.Add("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden", False)
+                            clsLogger.AddDetailLog("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
+                            Dim DT_PROFIL_JOB As DataTable = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
+                            Dim DT_PROFIL_FILE_JOB As DataTable = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_FILE_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
+                            clsLogger.AddDetailLog("DT_PROFIL_JOB und DT_PROFIL_FILE_JOB generiert ")
+                            If DT_PROFIL_JOB.Rows.Count > 0 Then
+                                clsLogger.AddDetailLog("DT_PROFIL_JOB.Rows.Count > 0")
+                                If clsDateiverarbeitung.InitProfilData = True Then
+                                    clsLogger.AddDetailLog("clsDateiverarbeitung.InitProfilData = True")
+                                    For Each dok As WMObject In windreamSucheErgebnisse
+                                        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
+                                                Case "Export HDD".ToUpper
+                                                    clsLogger.AddDetailLog("Case Export HDD")
+                                                    'Für jedes Dokument in der Windream-Ergebnisliste
+                                                    'For Each dok As WMObject In windreamSucheErgebnisse
+                                                    ' aktuelles Dokument zum Export bereitstellen
+                                                    EXPORTED_FILENAME = ""
+                                                    If clsDateiverarbeitung.Export_File(dok, DR_PR_JB.Item("STRING1")) = True Then
+                                                        If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
+                                                        clsLogger.AddDetailLog("Anzahl  DT_PROFIL_FILE_JOB.Rows.Count:" & DT_PROFIL_FILE_JOB.Rows.Count)
+                                                        'Für jeden File-Job
+                                                        Dim FileJobSuccessful As Boolean = True
+                                                        For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
+                                                            If FileJobSuccessful = False Then
+                                                                clsLogger.Add("AUSSTIEG FOR SCHLEIFE...", True)
+                                                                clsLogger.WriteLog()
+                                                                Exit For
+                                                            End If
+                                                            Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower
+                                                                    Case "Set Index".ToLower
+                                                                        Try
+                                                                            'Überprüfen ob Value bereits gesetzt wurde?
+                                                                            Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString
+                                                                            Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString
+                                                                            If idxvalue.Contains("[%DATETIME]") Then
+                                                                                idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString)
+                                                                            End If
+                                                                            clsLogger.AddDetailLog("Datei soll mit Index '" & idxName & "'indexiert werden...")
+                                                                            Dim arrIndex() As String
+                                                                            ReDim Preserve arrIndex(0)
+                                                                            arrIndex(0) = idxName
+                                                                            clsLogger.AddDetailLog("...nach arrIndex")
+
+                                                                            Dim arrValue() As String
+
+                                                                            Dim aktvalue As Object
+                                                                            aktvalue = dok.GetVariableValue(idxName)
+                                                                            clsLogger.AddDetailLog("...nach aktValue zuweisen..")
+
+                                                                            If aktvalue Is Nothing Then
+                                                                                clsLogger.AddDetailLog("Index '" & idxName & "' ist noch leer.")
+                                                                                ReDim Preserve arrValue(0)
+                                                                                arrValue(0) = idxvalue
+                                                                            Else
+                                                                                clsLogger.AddDetailLog("Index '" & idxName & "' ist bereits gefüllt.")
+                                                                                Dim myArray()
+                                                                                ReDim myArray(0)
+                                                                                myArray(0) = idxvalue
+
+                                                                                Dim VektorArray()
+                                                                                VektorArray = Return_VektorArray(dok, idxName, myArray, True)
+
+                                                                                If VektorArray Is Nothing = False Then
+                                                                                    ReDim arrValue(VektorArray.Length - 1)
+                                                                                    Array.Copy(VektorArray, arrValue, VektorArray.Length)
+                                                                                End If
+
+                                                                            End If
+
+                                                                            If arrValue Is Nothing = False Then
+                                                                                clsWindream_Index.RunIndexing(dok, arrIndex, arrValue, _profObjekttyp)
+                                                                            Else
+                                                                                clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf")
+                                                                            End If
+
+                                                                        Catch ex As Exception
+                                                                            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)")
+                                                                        End Try
+                                                                Case "Rename File with windream Index".ToLower
+                                                                    clsLogger.AddDetailLog("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
+                                                                    clsDateiverarbeitung.Rename_File(dok, DR_PR_FILE_JOB.Item("STRING1").ToString)
+                                                                Case "Rename File with WMVector (only one)".ToLower
+                                                                    clsLogger.AddDetailLog("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
+                                                                    clsDateiverarbeitung.Rename_File_Vektor(dok, DR_PR_FILE_JOB.Item("STRING1").ToString)
+                                                                Case "Execute Oracle Command".ToLower
+                                                                    Try
+                                                                        clsLogger.AddDetailLog("Execute Oracle Comman.......")
+                                                                        Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
+                                                                        Dim oracleCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
+                                                                        FileJobSuccessful = clsDateiverarbeitung.RUN_ORACLE_COMMAND(dok, oracleconnectionstring, oracleCommandRAW)
+                                                                    Catch ex As Exception
+                                                                        clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)")
+                                                                        End Try
+                                                                Case "Execute MSSQL Command".ToLower
+                                                                    Try
+                                                                        Dim MSSQLconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
+                                                                        Dim MSSQLCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
+                                                                        clsLogger.AddDetailLog("Execute MSSQL Command.......")
+                                                                        FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(dok, MSSQLconnectionstring, MSSQLCommandRAW)
+                                                                    Catch ex As Exception
+                                                                        clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)")
+                                                                        End Try
+                                                                End Select
+                                                                'Abschluss Bearbeitung File Job
+                                                                clsLogger.WriteLog()
+                                                            Next
+                                                        Else
+                                                            clsLogger.Add(">> KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf")
+                                                            clsLogger.WriteLog()
+                                                        End If
+                                                    Else
+                                                    clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = Getdate() WHERE GUID = " & _profGUID)
+                                                End If
+                                                    'Next
+
+                                            End Select
+                                            'Abschluss Bearbeitung Job
+                                            clsLogger.WriteLog()
+                                        Next
+
+                                    Next
+
+                                Else
+                                    clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True)
+                                    clsLogger.WriteLog()
+                                End If
+                            Else
+                                clsLogger.Add(">> KEINE JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf")
+                                clsLogger.WriteLog()
+                            End If
+                        Else
+                            ' keine Dateien zum Importieren
+                            clsLogger.Add(">> Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.", False)
+                            clsLogger.Add("", False)
+                            clsLogger.WriteLog()
+                        End If
+                    End If
+
+                End If
+            Else
+                clsLogger.AddDetailLog("Verarbeitung für heute NICHT konfiguriert")
+                clsLogger.WriteLog()
+            End If
+        'Abschluss des Profiles
+        clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID)
+        clsLogger.AddDetailLog("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt")
+            clsLogger.WriteLog()
+        Return True
+        'Catch ex As Exception
+        '    clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf")
+        '    clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
+        '    CriticalError = False
+
+        '    Return False
+        'End Try
+
+    End Function
+    Private Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
+        Try
+            Dim missing As Boolean = False
+            Dim Anzahl As Integer = 0
+            Dim ValueArray()
+            'Jeden Wert des Vektorfeldes durchlaufen
+            Dim wertWD = oDocument.GetVariableValue(vktIndexName)
+            If wertWD Is Nothing = False Then
+                'Nochmals prüfen ob wirklich Array
+                If wertWD.GetType.ToString.Contains("System.Object") Then
+                    'Keine Duplikatprüfung also einfach neues Array füllen
+                    If CheckDuplikat = False Then
+                        For Each value As Object In wertWD
+                            'Das Array anpassen
+                            ReDim Preserve ValueArray(Anzahl)
+                            'Den Wert im Array speichern
+                            ValueArray(Anzahl) = value.ToString
+                            Anzahl += 1
+                        Next
+                        'Und jetzt den/die Neuen Wert(e) anfügen
+                        For Each NewValue As Object In NIIndexe
+                            If NewValue Is Nothing = False Then
+                                'Das Array anpassen
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = NewValue.ToString
+                                Anzahl += 1
+
+                            End If
+                        Next
+                    Else
+                        clsLogger.AddDetailLog("Duplikatprüfung soll durchgeführt werden.")
+                        'Duplikat Prüfung an, also nur anhängen wenn Wert <>
+                        For Each WDValue As Object In wertWD
+                            If WDValue Is Nothing = False Then
+                                'Erst einmal die ALten Werte schreiben
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = WDValue.ToString
+                                clsLogger.AddDetailLog("Value (" & Anzahl & ") " & WDValue.ToString)
+                                Anzahl += 1
+                            End If
+                        Next
+                        'Jetzt die Neuen Werte auf Duplikate überprüfen
+                        For Each NewValue As Object In NIIndexe
+                            If NewValue Is Nothing = False Then
+                                If ValueArray.Contains(NewValue) = False Then
+                                    clsLogger.AddDetailLog("New Value (" & Anzahl & ") " & NewValue.ToString)
+                                    'Das Array anpassen
+                                    ReDim Preserve ValueArray(Anzahl)
+                                    'Den Wert im Array speichern
+                                    ValueArray(Anzahl) = NewValue.ToString
+                                    Anzahl += 1
+                                Else
+                                    clsLogger.AddDetailLog("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
+                                End If
+                            End If
+                        Next
+                    End If
+                End If
+            Else
+                clsLogger.AddDetailLog("Vektorfeld ist noch leer....")
+                'Den/die Neuen Wert(e) anfügen
+                For Each NewValue As Object In NIIndexe
+                    If NewValue Is Nothing = False Then
+                        If CheckDuplikat = True Then
+                            If ValueArray Is Nothing = False Then
+                                If ValueArray.Contains(NewValue) = False Then
+                                    'Das Array anpassen
+                                    ReDim Preserve ValueArray(Anzahl)
+                                    'Den Wert im Array speichern
+                                    ValueArray(Anzahl) = NewValue.ToString
+                                    Anzahl += 1
+                                Else
+                                    clsLogger.AddDetailLog("Value '" & NewValue.ToString & "' bereits in Array enthalten")
+                                End If
+                            Else 'Dererste Wert, also hinzufügen
+                                'Das Array anpassen
+                                ReDim Preserve ValueArray(Anzahl)
+                                'Den Wert im Array speichern
+                                ValueArray(Anzahl) = NewValue.ToString
+                                Anzahl += 1
+
+                            End If
+
+                        Else
+                            'Das Array anpassen
+                            ReDim Preserve ValueArray(Anzahl)
+                            'Den Wert im Array speichern
+                            ValueArray(Anzahl) = NewValue.ToString
+                            Anzahl += 1
+                        End If
+                    End If
+                Next
+            End If
+
+            clsLogger.AddDetailLog("Return ValueArray: length " & ValueArray.Length)
+            Return ValueArray
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "Return_VektorArray")
+            Return Nothing
+        End Try
+    End Function
+
+End Class
+

app/ResultHandler_Konfig/clsWindream_Index.vb

@@ -0,0 +1,692 @@
+Imports WINDREAMLib
+Imports WMOSRCHLib
+Public Class clsWindream_Index
+    Inherits clsWindream_allgemein
+  
+#Region "+++++ Konstanten +++++"
+    Protected Const WMObjectEditModeObject = &H1F
+    Protected Const WMObjectStreamOpenModeReadWrite = 2
+    Protected Const WMEntityObjectType = 10
+    Protected Const WMEntityDocument = 1
+
+    Const WMObjectVariableValueTypeUndefined = 0
+    Const WMObjectVariableValueTypeString = 1
+    Const WMObjectVariableValueTypeInteger = 2
+    Const WMObjectVariableValueTypeFloat = 3
+    Const WMObjectVariableValueTypeBoolean = 4
+    Const WMObjectVariableValueTypeDate = 5
+    Const WMObjectVariableValueTypeFixedPoint = 6
+    Const WMObjectVariableValueTypeTimeStamp = 7
+    Const WMObjectVariableValueTypeCurrency = 8
+    Const WMObjectVariableValueTypeTime = 9
+    Const WMObjectVariableValueTypeVariant = 10
+    Const WMObjectVariableValueTypeMask = &HFFF
+    Const WMObjectVariableValueFlagMask = &HFFFFF000
+    Const WMObjectVariableValueTypeVector = &H1000
+    Const WMObjectVariableValueTypeFulltext = &H2000
+    Const WMObjectVariableValueTypeDefaultValue = &H4000
+#End Region
+
+#Region "+++++ Variablen +++++"
+    'Private oController = CreateObject("WMOSrch.WMQuickSearch") 'As New WMOSearchController
+    'Private oController As New WMOSearchController
+    Private oController As New WMOSearchController
+    'Dim srchQuick = CreateObject("WMOSrch.WMQuickSearch") 'As WMOSRCHLib.WMQuickSearch
+#End Region
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+    Sub New()
+        MyBase.New()
+    End Sub
+    Private Shared Function IsNotEmpty(ByVal aValue As Object)
+
+        If aValue IsNot Nothing Then
+            Dim itsType As Type = aValue.GetType
+            If itsType Is GetType(String) Then
+
+                If Not aValue = "" Then
+                    Return True
+                End If
+
+                Return False
+            Else
+                Return True
+            End If
+        Else
+            Return False
+        End If
+
+    End Function
+    Private Function return_type(ByVal _wert As Object)
+        Return _wert.GetType
+    End Function
+    Public Function GetIndex_Type(idxName) As String
+        Try
+            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, idxName)
+            'den Variablentyp (String, Integer, ...) auslesen 
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Dim Type As String
+            Select Case (vType)
+                'Case WMObjectVariableValueTypeUndefined
+                Case WMObjectVariableValueTypeString
+                    Type = "String"
+                Case WMObjectVariableValueTypeInteger
+                    Type = "Integer"
+                Case WMObjectVariableValueTypeFloat
+                    Type = "Float"
+                Case WMObjectVariableValueTypeFixedPoint
+                    Type = "Point"
+                Case WMObjectVariableValueTypeBoolean
+                    Type = "Boolean"
+                Case WMObjectVariableValueTypeDate
+                    Type = "Date"
+                Case WMObjectVariableValueTypeTimeStamp
+                    Type = "Timestamp"
+                Case WMObjectVariableValueTypeCurrency
+                    Type = "Currency"
+                Case WMObjectVariableValueTypeTime
+                    Type = "Time"
+                Case WMObjectVariableValueTypeFloat
+                    Type = "Float"
+                Case WMObjectVariableValueTypeVariant
+                    Type = "Varia´nt"
+                Case WMObjectVariableValueTypeFulltext
+                    Type = "Fulltext"
+                Case 4097
+                    Type = "Vektor String"
+                Case 4098
+                    Type = "Vektor Numerisch"
+                Case 4099
+                    Type = "Vektor Float"
+                Case 4101
+                    Type = "Vektor Date"
+                Case 4103
+                    Type = "Vektor DateTime"
+                Case 36865
+                    Type = "Vektor Alpha"
+                Case Else
+                    Type = "String Else"
+            End Select
+            Return Type
+        Catch ex As Exception
+
+        End Try
+    End Function
+    Public Shared Function RunIndexing_Vektor(ByVal oDocument As WMObject, ByVal Indizes As String(), ByVal aValues As String())
+        Try
+            If Indizes IsNot Nothing And aValues IsNot Nothing Then
+                If Not oDocument.aLocked Then
+                    oDocument.lock()
+
+                    If aValues.Length = 1 And aValues(0) = "" Then
+                        clsLogger.Add(" >> RunIndexing_Vektor: Indexwert ist leer/Nothing - Keine Nachindexierung", False)
+                    Else
+                        'Jetzt jeden Indexwert durchlaufen
+                        Dim indexname As String
+                        indexname = Indizes(0)
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: Indexname: " & indexname)
+                        'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays")
+                        ' das entsprechende Attribut aus windream auslesen
+                        Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+                        ' den Variablentyp (String, Integer, ...) auslesen 
+                        Dim vType = oAttribute.getVariableValue("dwAttrType")
+                        Select Case (vType)
+                            Case 4097
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
+                            Case 4098
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4098 Vektor Numerisch")
+                            Case 4099
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4099 Vektor Kommazahl")
+                            Case 4101
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4101 Vektor Date")
+                            Case 4103
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4103 Vektor DateTime")
+                            Case 4107
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 4107 Vektor Integer(64bit)")
+                            Case 36865
+                                clsLogger.AddDetailLog("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
+                        End Select
+                        Dim myArray
+                        Dim Anzahl As Integer = aValues.Length - 1
+                        'Vektorfeld wird mit EINEM Wert gefüllt
+                        If Anzahl = 0 Then
+                            clsLogger.AddDetailLog("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ")
+                            ReDim myArray(0)
+                            Select Case (vType)
+                                Case 4097
+                                    myArray(0) = CStr(aValues(0))
+                                Case 4098
+                                    myArray(0) = CInt(aValues(0).Replace(" ", ""))
+                                Case 4099
+                                    Dim str As String = aValues(0)
+                                    str = str.ToString.Replace(" ", "")
+                                    myArray(0) = CDbl(str.Replace(".", ","))
+
+                                Case 4101
+                                    myArray(0) = CDate(aValues(0))
+                                Case 4103
+                                    myArray(0) = aValues(0)
+                                Case 4107
+                                    myArray(0) = Convert.ToInt64(aValues(0))
+                                Case 36865
+                                    myArray(0) = CStr(aValues(0))
+                            End Select
+                            clsLogger.AddDetailLog("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
+                        Else
+                            clsLogger.AddDetailLog("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ")
+                            'Die Größe des Arrays festlegen
+                            ReDim myArray(Anzahl)
+                            Dim i1 As Integer = 0
+                            For Each aValue As String In aValues
+                                Select Case (vType)
+                                    Case 4107
+                                        Dim wert = aValue.Replace(" ", "")
+                                        wert = Convert.ToInt64(wert) 'ToInt64
+                                        myArray(i1) = wert
+                                    Case 4097
+                                        myArray(i1) = CStr(aValue)
+                                    Case 4098
+                                        Dim wert = aValue.Replace(" ", "")
+                                        Dim convertValue
+                                        If IsNumeric(wert) Then
+                                            Try
+                                                convertValue = CInt(wert)
+                                            Catch ex As Exception
+                                                clsLogger.AddDetailLog("Wert muss in Int64 konvertiert werden")
+                                                convertValue = Convert.ToInt64(wert) 'ToInt64
+                                            End Try
+                                        Else
+                                            '    clsLoggerNI.Add("Indexierungswert '" & wert.ToString & "' kann nicht in Integer konvertiert werden")
+                                            Return False
+                                        End If
+
+                                        myArray(i1) = convertValue
+                                    Case 4099
+                                        myArray(i1) = CDbl(aValue.Replace(".", ",").Replace(" ", ""))
+                                    Case 4101
+                                        myArray(i1) = CDate(aValue)
+                                    Case 4103
+                                        myArray(i1) = aValue
+                                    Case 36865
+                                        myArray(i1) = CStr(aValue)
+                                    Case Else
+                                        myArray(i1) = CStr(aValue)
+                                End Select
+                                i1 += 1
+                            Next
+                        End If
+                        'Jetzt die Nachindexierung für Vektor-Felder
+                        oDocument.SetVariableValue(indexname, myArray)
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich")
+
+                        oDocument.Save()
+                        oDocument.unlock()
+                        clsLogger.AddDetailLog("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
+                        Return True
+                    End If
+                Else
+                    clsLogger.Add(" >> RunIndexing_Vektor: Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", True)
+                    Return False
+                End If
+            End If
+        Catch ex As Exception
+            clsLogger.AddError("## Fehler in RunIndexing_Vektor - Fehler: " & ex.Message, "RunIndexingVektor")
+            oDocument.Save()
+            oDocument.unlock()
+            Return False
+        End Try
+
+
+    End Function
+    Public Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Objekttyp As String)
+        Try
+            If Indizes IsNot Nothing And aValues IsNot Nothing Then
+                If Not oDocument.aLocked Then
+                    oDocument.lock()
+                    Dim i As Integer = 0
+                    Dim indexname As String
+                    If aValues.Length = 1 And aValues(0) = "" Then
+                        clsLogger.AddDetailLog("Indexwert ist leer/Nothing - Keine Indexierung")
+                    End If
+                    ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
+                    If oDocument.aObjectType.aName <> Objekttyp Then
+                        ' ihr den entsprechenden Dokumenttyp zuweisen
+                        oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
+                        ' WMObject.aObjectType = selectedProfile.Dokumenttyp
+                        clsLogger.AddDetailLog("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
+                    Else
+                        clsLogger.AddDetailLog("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
+                        indexname = aName
+                        ' das entsprechende Attribut aus windream auslesen
+                        Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i))
+                        ' den Variablentyp (String, Integer, ...) auslesen 
+                        Dim vType = oAttribute.getVariableValue("dwAttrType")
+                        ' wenn in aValues an Position i ein Wert steht
+                        If IsNotEmpty(aValues(i)) Then
+                            Dim _int As Boolean = False
+                            Dim _date As Boolean = False
+                            Dim _dbl As Boolean = False
+                            Dim _bool As Boolean = False
+                            'If indexname = "Tournr" Then
+                            '    MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString)
+                            'End If
+                            clsLogger.AddDetailLog("Indexierung von Index '" & indexname & "'")
+                            'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
+                            Dim value = aValues(i)
+                            Dim convertValue
+                            Dim vektor As Boolean = False
+                            'Den Typ des Index-Feldes auslesen
+                            'MsgBox(value.GetType.ToString)
+                            Select Case (vType)
+                                'Case WMObjectVariableValueTypeUndefined
+                                Case WMObjectVariableValueTypeString
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeString")
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeInteger
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
+                                    value = value.ToString.Replace(" ", "")
+                                    If IsNumeric(value) = False Then
+                                        clsLogger.AddDetailLog("Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!")
+                                    End If
+
+                                    value = value.ToString.Replace(" ", "")
+                                    convertValue = CInt(value)
+                                    _int = True
+                                Case WMObjectVariableValueTypeFloat
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
+                                    value = value.ToString.Replace(" ", "")
+                                    convertValue = CDbl(value)
+                                Case WMObjectVariableValueTypeFixedPoint
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
+                                    value = value.ToString.Replace(" ", "")
+                                    convertValue = CDbl(value)
+                                    _dbl = True
+                                Case WMObjectVariableValueTypeBoolean
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
+                                    convertValue = CBool(value)
+                                    _bool = True
+                                Case WMObjectVariableValueTypeDate
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeDate")
+                                    _date = True
+                                    'Dim _date As Date = value
+                                    convertValue = value
+                                Case WMObjectVariableValueTypeTimeStamp
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
+                                    convertValue = CDbl(value)
+                                Case WMObjectVariableValueTypeCurrency
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeCurrency")
+                                    'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
+                                    Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
+                                    convertValue = aValueWrapper
+                                Case WMObjectVariableValueTypeTime
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeTime")
+                                    'If ((value)) Then
+                                    '    convertValue = CDate(value)
+                                    'Else
+                                    '    convertValue = ""
+                                    'End If
+                                    'Dim _date As Date = value
+                                    convertValue = convertValue '*_date.ToShortTimeString
+                                Case WMObjectVariableValueTypeFloat
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeVariant
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
+                                    convertValue = CStr(value)
+                                Case WMObjectVariableValueTypeFulltext
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
+                                    convertValue = CStr(value)
+                                Case 4097
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
+                                    'Vektor alphanumerisch
+                                    vektor = True
+                                Case 4098
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4098 Vektor Numerisch")
+                                    'Vektor Numerisch
+                                    vektor = True
+                                Case 4099
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4099 Vektor Kommazahl")
+                                    'Vektor Kommazahl
+                                    vektor = True
+                                Case 4101
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4101 Vektor Date")
+                                    'Vektor Kommazahl
+                                    vektor = True
+                                Case 4103
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4103 Vektor DateTime")
+                                    'Vektor DateTime
+                                    vektor = True
+                                Case 4107
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 4107 Integer 64bit")
+                                    vektor = True
+                                Case 36865
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
+                                    'Vektor Kommazahl
+                                    vektor = True
+                                Case Else
+                                    clsLogger.AddDetailLog("Typ des windream-Indexes konnte nicht bestimmt werden!")
+                                    clsLogger.AddDetailLog("Versuch des Auslesens (vType): " & vType)
+                                    'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
+                                    convertValue = ""
+                            End Select
+                            If vektor = False Then
+                                If convertValue.ToString Is Nothing = False Then
+                                    clsLogger.AddDetailLog("Konvertierter Wert: '" & convertValue.ToString & "'")
+                                End If
+                            End If
+                            '############################################################################################
+                            '####################### Der eigentliche Indexierungsvorgang ################################
+                            '############################################################################################
+                            If vektor = False Then
+                                If convertValue.ToString Is Nothing = False Then
+                                    clsLogger.AddDetailLog("Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")")
+                                    If _int = True Then
+                                        convertValue = convertValue.ToString.Replace(" ", "")
+                                        oDocument.SetVariableValue(aName, CInt(convertValue))
+                                    ElseIf _date = True Then
+                                        oDocument.SetVariableValue(aName, CDate(convertValue))
+                                    ElseIf _bool Then
+                                        oDocument.SetVariableValue(aName, CBool(convertValue))
+                                    ElseIf _dbl Then
+                                        convertValue = convertValue.ToString.Replace(" ", "")
+                                        oDocument.SetVariableValue(aName, CDbl(convertValue))
+                                    Else
+                                        oDocument.SetVariableValue(aName, convertValue)
+                                    End If
+
+                                    clsLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False)
+                                    clsLogger.Add("", False)
+                                Else
+                                    clsLogger.Add(" >> Kein Indexwert vorhanden", False)
+                                End If
+                            Else
+                                'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
+                                clsLogger.AddDetailLog("VEKTORFELD: Vorbereiten des Arrays")
+
+                                Dim myArray()
+                                'Dim DS As DataSet
+                                'Dim DT As DataTable
+                                'Dim DR As DataRow
+                                '' --- DataSet zuweisen
+                                'DS = New MyDataset
+                                '' --- Zugriff auf Tabelle
+                                'DT = DS.Tables("TBVEKTOR_INDEX")
+                                'DT.Clear()
+                                'For Each NewValue As Object In aValues
+
+                                'Next
+                                '' --- den Filter auf den Indexnamen setzen
+                                'Dim expression As String
+                                'expression = "Indexname = '" & aName.ToString & "'"
+                                'Dim foundRows() As DataRow
+                                ' Use the Select method to find all rows matching the filter.
+                                'foundRows = DT.Select(expression)
+                                'For Each row As DataRow In DT.Rows
+                                'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert")))
+                                'Next
+                                Dim Anzahl As Integer = aValues.Length
+                                'Vektorfeld wird mit EINEM Wert gefüllt
+                                If Anzahl = 1 Then
+                                    clsLogger.AddDetailLog("Vektorfeld wird mit EINEM Wert gefüllt ")
+                                    ReDim myArray(0)
+                                    Select Case vType
+                                        Case 36865
+                                            'Umwandeln in String
+                                            myArray(0) = CStr(value)
+                                        Case 4097
+                                            'Umwandeln in String
+                                            myArray(0) = CStr(value)
+                                        Case 4098
+                                            'Umwandeln in Integer
+                                            value = value.ToString.Replace(" ", "")
+                                            myArray(0) = CInt(value)
+                                        Case 4099
+                                            Dim Str As String = value
+                                            Str = Str.ToString.Replace(" ", "")
+                                            'Umwandeln in Double
+                                            myArray(0) = CDbl(Str.Replace(".", ","))
+                                        Case 4101
+                                            'Umwandeln in Date
+                                            myArray(0) = CDate(value)
+                                        Case 4107
+                                            myArray(0) = Convert.ToInt64(value)
+                                        Case 4103
+                                            'Umwandeln in Datum Uhrzeit
+                                            myArray(0) = value
+                                        Case Else
+                                            'Umwandeln in String
+                                            myArray(0) = CStr(value)
+                                    End Select
+                                    clsLogger.AddDetailLog("Konvertierter Wert: " & myArray(0).ToString)
+                                Else
+                                    clsLogger.AddDetailLog("Vektorfeld wird mit MEHREREN Werten gefüllt ")
+                                    Select Case vType
+                                        Case 36865
+                                            'Vektortyp ALPHANUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4097
+                                            'Vektortyp ALPHANUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4107
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = Convert.ToInt64((NewValue))
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4098
+                                            'Vektortyp NUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                Dim v As String = NewValue.ToString.Replace(" ", "")
+                                                myArray(i1) = CInt(v)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4099
+                                            'Vektortyp FLOAT
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                Dim Str As String = NewValue
+                                                Str = Str.ToString.Replace(" ", "")
+                                                myArray(i1) = CDbl(Str.Replace(".", ","))
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                        Case 4101
+                                            'Vektortyp DATE
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                Dim Str As String = NewValue.ToString
+                                                myArray(i1) = CDate(Str.Replace(".", ","))
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+
+                                            Next
+                                        Case Else
+                                            'Vektortyp ALPHANUMERISCH
+                                            'Die Größe des Arrays festlegen
+                                            ReDim myArray(Anzahl - 1)
+                                            Dim i1 As Integer = 0
+                                            'Die Datatable durchlaufen und Werte für den Index in Array schreiben
+                                            For Each NewValue As Object In aValues
+                                                myArray(i1) = CStr(NewValue)
+                                                clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
+                                                i1 = i1 + 1
+                                            Next
+                                    End Select
+                                End If
+                                'Jetzt die Nachindexierung für Vektor-Felder
+                                oDocument.SetVariableValue(aName, myArray)
+                                clsLogger.AddDetailLog("'SetVariableValue' für VEKTOR erfolgreich")
+                            End If
+                        Else
+                            clsLogger.AddDetailLog("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
+                        End If
+                        i += 1
+
+                    Next
+
+                    ' oDocument.LockRights()
+
+                    'SetRights(WMObject, User)
+                    oDocument.Save()
+                    oDocument.unlock()
+
+                    clsLogger.AddDetailLog("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
+                    clsLogger.AddDetailLog("")
+
+
+                    Return False
+                Else
+                    clsLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False)
+                    'oDocument.unlock()
+                    Return True
+                End If
+            End If
+        Catch ex As Exception
+            clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
+            oDocument.Save()
+            oDocument.unlock()
+            Return True
+        End Try
+    End Function
+#End Region
+
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+    Public Function GetSearchDocuments(ByVal wdfLocation As String)
+
+        If System.IO.File.Exists(wdfLocation) Then
+
+            Try
+                Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
+                Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
+
+                oController.CheckSearchProfile(wdfLocation.ToLower)
+                Dim suchTyp = oController.SearchProfileTargetProgID
+                Dim ExSettings As Object
+                Dim oSearch As Object
+                ExSettings = oController.SearchProfileExSettings
+                If ExSettings = 0 Then ExSettings = 7
+
+                Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
+                Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
+                Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
+
+                ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
+                Select Case suchTyp.ToString.ToUpper
+                    Case "WMOSRCH.WMQUICKSEARCH"
+                        srchQuick.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+
+                        oConnect.LoginSession(srchQuick.WMSession)
+
+                        srchQuick.ClearSearch()
+                        srchQuick.SearchProfilePath = ProfilePath
+                        srchQuick.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchQuick.GetSearch()
+
+                    Case "WMOSRCH.WMINDEXSEARCH"
+                        srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+
+                        oConnect.LoginSession(srchIndex.WMSession)
+
+                        srchIndex.ClearSearch()
+                        srchIndex.SearchProfilePath = ProfilePath
+                        srchIndex.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchIndex.GetSearch()
+
+                    Case "WMOSRCH.WMOBJECTTYPESEARCH"
+                        srchObjectType.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+
+                        oConnect.LoginSession(srchObjectType.WMSession)
+
+                        srchObjectType.ClearSearch()
+                        srchObjectType.SearchProfilePath = ProfilePath
+                        srchObjectType.LoadSearchProfile(ProfileName)
+
+                        oSearch = srchObjectType.GetSearch()
+
+                    Case Else
+                        clsLogger.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP", True, "GetSearchDocuments")
+                        Return Nothing
+                End Select
+                Dim WMObjects As Object
+                WMObjects = oSearch.Execute
+                Return oSearch.execute
+
+            Catch ex As Exception
+                ' bei einem Fehler einen Eintrag in der Logdatei machen
+                clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "GetSearchDocuments")
+                Return Nothing
+            End Try
+
+        End If
+
+        Return Nothing
+
+    End Function
+    ''' Liefert den Wert eines Indexes als String
+    ''' _indexname = Name des zu überprüfenden Indexfeldes
+    Public Function GetValueforIndex(ByVal _fullfilepath As String, _indexname As String)
+        Try
+            Const WMEntityDocument = 1
+            Dim IndexwertAusWindream As Object = Nothing
+            Dim _dok As WINDREAMLib.WMObject
+            _dok = Nothing
+            _dok = oSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
+            IndexwertAusWindream = _dok.GetVariableValue(_indexname)
+            Return IndexwertAusWindream.ToString
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+End Class

app/ResultHandler_Konfig/clsWindream_allgemein.vb

@@ -0,0 +1,479 @@
+
+Imports WINDREAMLib
+Imports WINDREAMLib.WMCOMEvent
+Imports WINDREAMLib.WMEntity
+Imports WINDREAMLib.WMObjectEditMode
+Imports WINDREAMLib.WMSearchOperator
+Imports WINDREAMLib.WMSearchRelation
+Imports WMOBRWSLib
+Imports WMOSRCHLib
+Imports System.IO
+
+Public Class clsWindream_allgemein
+
+#Region "+++++ Konstanten +++++"
+    Const DEBUG = AUS
+    Const AUS = 0
+    Const WINDREAM = 1
+    Const VARIABLEN = 2
+#End Region
+
+#Region "+++++ Variablen +++++"
+    Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
+    Public Shared oBrowser As New WMOBRWSLib.ServerBrowser
+    Public Shared oDokumentTypen As WINDREAMLib.WMObjects
+    Private Shared oController As New WMOSearchController
+#End Region
+
+
+#Region "+++++ Allgemeine Methoden und Funktionen +++++"
+
+    ''' <summary>
+    ''' Konstruktor für die windream-Klasse
+    ''' </summary>
+    ''' <remarks></remarks>
+    Sub New()
+        ' wenn ein Fehler bei der Initialisierung auftrat
+        If Not Init() Then
+            ' Nachricht ausgeben
+            clsLogger.Add("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind", True, "clsWindream_allgemein.Init")
+            ' das Programm "abschießen"
+            Process.GetCurrentProcess.Kill()
+        End If
+    End Sub
+
+
+    ''' <summary>
+    ''' Initialisiert die statische Klasse (Login, Session starten, usw.)
+    ''' </summary>
+    ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function Init() As Boolean
+
+        Try
+            Try
+                ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
+                oSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                ' Connection-Objekt instanziieren
+                oConnect = CreateObject("Windream.WMConnect")
+                'MsgBox("windrem init 'ed")
+            Catch ex As Exception
+                Return False
+            End Try
+
+            ' wenn windream nicht angemeldet ist
+            If Not IsLoggedIn() Then
+                ' Art der Anmeldung an windream festlegen
+                '   0x0L (also 0)                   = Standard windream Benutzer
+                '  WM_MODULE_ID_DOCTYPEEDITOR_LIC  = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
+                '  WM_MODULE_ID_INDEXSERVICE       = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
+                oConnect.ModuleID = 0
+
+                ' setzt die minimal erwartete windream-Version 
+                oConnect.MinReqVersion = "3"
+                ' clsLogger.AddDetailLog("Personifizierung'")
+
+                ' -- Impersonifizierung nur möglich mit registry-eintrag --
+                'oConnect.UserName = "\digitaldata\SchreiberM"
+                'oConnect.Password = "pw"
+
+                ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
+                oConnect.LoginSession(oSession)
+                clsLogger.AddDetailLog("windream-Server: '" & GetCurrentServer() & "'")
+                clsLogger.AddDetailLog("windream-UserName: '" & oConnect.UserName & "'")
+
+                If oSession.aLoggedin = False Then
+                    clsLogger.Add("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", True, "clswindream.Init")
+                    Return False
+                End If
+
+                ' AUSGABE VON SYSTEMINFORMATIONEN
+                ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) 
+                ' oder Business-Edition (BE) aus
+                'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
+                '       vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
+
+                'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
+                'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
+
+                '' liefert die Versionsnummer des Clients
+                'MsgBox(WMCtrl.WMWorkstationBuildNo)
+                'MsgBox(WMCtrl.W
+                '' liefert den Servernamen des angemeldeten windreams
+                'MsgBox(WMCtrl.WMServerName)
+
+                Try
+                    oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
+                    ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
+                    ' Ordnertypen ausgelesen werden
+                    oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                Catch ex As Exception
+                    clsLogger.AddError("Problem beim Auslesen der Objekttypen", "clswindream.Init")
+                    Return False
+                End Try
+            End If
+
+            clsLogger.AddDetailLog("Alles OK - Erfolgreich angemeldet und Session aufgebaut")
+            Return True
+
+        Catch ex As Exception
+            If Err.Number = -2147220985 Then
+                clsLogger.AddError("Die installierte windream-Version ist nicht ausreichend für den Betrieb", "clswindream.Init")
+            Else
+                clsLogger.AddError("Fehler beim Login an windream: " & ex.Message, "clswindream.Init")
+            End If
+            Return False
+        End Try
+
+    End Function
+
+#End Region
+
+
+
+#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte.
+    ''' </summary>
+    ''' <returns>Alle Objekttypen als WMObjects-Objekt</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsObjects() As WMObjects
+        Try
+
+            Return oDokumentTypen
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler beim Auslesen der Objekttypen: " & ex.Message, "clswindream.GetObjecttypesAsObjects")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings.
+    ''' </summary>
+    ''' <returns>Array mit allen Objekttypen als Strings</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypesAsStrings() As String()
+
+        Try
+            Dim objektTypenStr(oDokumentTypen.Count) As String
+
+            For i As Integer = 0 To oDokumentTypen.Count
+                objektTypenStr(i) = oDokumentTypen.Item(i).aName
+            Next
+
+            Return objektTypenStr
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler beim Auslesen der Objekttypen als String: " & ex.Message, "clswindream.GetObjecttypesAsStrings")
+            Return Nothing
+        End Try
+
+    End Function
+
+    ''' <summary>
+    ''' Liefert alle Indexe eines Objekttypen.
+    ''' </summary>
+    ''' <param name="name">Name des Objekttyps</param>
+    ''' <returns>Array mit allen Objekttyp zugeordneten Indexen als String</returns>
+    ''' <remarks></remarks>
+    Public Function GetIndicesByObjecttype(ByVal name As String) As String()
+        Try
+            Dim oObjectType As WMObject
+            Dim oIndexAttributes As WMObjectRelation
+            Dim oIndexAttribute As WMObject
+            Dim oIndex As WMObject
+            Dim oRelProperties As WMObjectRelationClass
+
+            ' den Objekttyp laden
+            oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name)
+
+            ' Beziehung zu Indizes des Objekttyp auslesen
+            oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")
+
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(oIndexAttributes.Count - 1) As String
+
+            ' alle Indizes durchlaufen
+            For j As Integer = 0 To oIndexAttributes.Count - 1
+
+                ' aktuellen Index auslesen
+                oIndexAttribute = oIndexAttributes.Item(j)
+
+                ' Eigenschaften des Index auslesen
+                oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")
+
+                ' Index aus den Eigenschaften auslesen
+                oIndex = oRelProperties.Item(0)
+
+                ' Indexname speichern
+                aIndexNames(j) = oIndex.aName
+            Next
+
+            ' Indexarray zurückgeben
+            Return aIndexNames
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler beim Auslesen der windream-Indexe: " & ex.Message, "clswindream.GetIndicesByObjecttype")
+            Return Nothing
+        End Try
+    End Function
+    ''' <summary>
+    ''' Liefert einen Objekttyp als WMObject an Hand dessen Name.
+    ''' </summary>
+    ''' <param name="objekttypName">Name des Objekttyps</param>
+    ''' <returns>Objekttyp als WMObject</returns>
+    ''' <remarks></remarks>
+    Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject
+        Try
+            ' alle Objekttypen auslesen
+            Dim oObjectTypes As WMObjects = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+
+            ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen
+            For Each oObjectType As WMObject In oObjectTypes
+                If oObjectType.aName = objekttypName Then
+                    Return oObjectType
+                End If
+            Next
+
+            Return Nothing
+
+        Catch ex As Exception
+            clsLogger.AddError("Ein Objekttyp kopnnte nicht erstellt werden. Fehler: " & ex.Message, "clswindream.GetObjecttypeByName")
+            Return Nothing
+        End Try
+    End Function
+
+    ''' <summary>
+    ''' Überprüft ob der angegebene Index im Objekttyp existiert
+    ''' </summary>
+    ''' <param name="objekttyp">Name des zu durchsuchenden Objekttyps</param>
+    ''' <param name="indexname">Name des zu suchenden Indexes</param>
+    ''' <returns>Liefert True wenn der Index im Objekttyp existiert, sonst False</returns>
+    ''' <remarks></remarks>
+    Public Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean
+        Try
+            Dim indexnamen() As String = GetIndicesByObjecttype(objekttyp)
+
+            If indexnamen Is Nothing Then Return False
+
+            For Each index As String In indexnamen
+                If index = indexname Then Return True
+            Next
+
+        Catch ex As Exception
+            clsLogger.AddError("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten. Fehler: " & ex.Message, "clswindream.ExistIndexInObjekttyp")
+            Return False
+        End Try
+    End Function
+
+#End Region
+
+#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
+
+    ''' <summary>
+    ''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist.
+    ''' </summary>
+    ''' <returns>Anmeldestatus als Boolean</returns>
+    ''' <remarks></remarks>
+    Public Function IsLoggedIn() As Boolean
+        Try
+            Return oSession.aLoggedin
+        Catch ex As Exception
+            clsLogger.AddError("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist. Fehler: " & ex.Message, "clswindream.IsLoggedIn")
+        End Try
+
+        Return False
+    End Function
+
+    ''' <summary>
+    ''' Liefert den Servernamen an dem windream aktuell angemeldet ist.
+    ''' </summary>
+    ''' <returns>Servername als String</returns>
+    ''' <remarks></remarks>
+    Public Shared Function GetCurrentServer() As String
+        Try
+            clsLogger.AddDetailLog(oBrowser.GetCurrentServer.ToString)
+            Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
+        Catch ex As Exception
+            clsLogger.AddError("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden. Fehler: " & ex.Message, "clswindream.GetCurrentServer")
+        End Try
+
+        Return ""
+    End Function
+
+    'Public Function GetSharedCurrentServer() As String
+    '    Try
+    '        Return ClassWindream.oBrowser.GetCurrentServer
+    '    Catch ex As Exception
+    '        MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+
+    'Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:')
+    'Laufwerksbuchstabe mit Doppelpunkt als String</returns>
+    '
+    'Public Function GetWindreamDriveLetter() As String
+
+    '    Try
+    '        Dim oControl As AISCONTROLDATACOMLib.AISControlData
+    '        Dim sDrive As String = ""
+
+    '        '        oControl = New AISCONTROLDATACOMLib.AISControlData
+
+    '        '        sDrive = oControl.GetStringValue(&H10040003)
+
+    '        '        Return sDrive & ":"
+
+    '    Catch ex As Exception
+    '        MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks")
+    '    End Try
+
+    '    Return ""
+    'End Function
+
+    ''' <summary>
+    ''' Liefert den Typen eines Indexes als Integer.
+    ''' </summary>
+    ''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
+    ''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
+    ''' <remarks></remarks>
+    Public Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
+        Try
+            Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            Dim vType = oAttribute.getVariableValue("dwAttrType")
+            Return vType
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+    Public Function GetValuesfromAuswahlliste(ByVal indexname As String) As Object
+        Try
+            'Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
+            'Dim vType = oAttribute.getVariableValue("vItems")
+            'Return vType
+            Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, indexname)
+            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
+                Dim Values = oChoiceList
+                Values = oChoiceList.GetVariableValue("vItems")
+                Dim anz As Integer = 0
+
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        anz += 1
+                    End If
+                Next
+                Dim strListe(anz - 1)
+                Dim zahl As Integer = 0
+                For Each CLItem In Values
+                    If oChoiceList.aName IsNot Nothing Then
+                        strListe(zahl) = CLItem
+                        zahl += 1
+                    End If
+                Next
+                Return strListe
+            Else
+                clsLogger.Add("Auswahlliste: " & indexname & " nicht gefunden.", True, "clswindream.GetValuesfromAuswahlliste")
+                Return Nothing
+            End If
+
+        Catch ex As Exception
+            clsLogger.AddError("Fehler: " & ex.Message, "clswindream.GetValuesfromAuswahlliste")
+            Return Nothing
+        End Try
+    End Function
+    Public Shared Function WDObject_exists(wdobj_location As String)
+        Dim WDObject As WMObject
+        Try
+            WDObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, wdobj_location.Substring(2))
+            If WDObject Is Nothing Then
+                Return False
+            Else
+                clsLogger.AddDetailLog("WDObject exists")
+                Return True
+
+            End If
+        Catch ex As Exception
+            ' bei einem Fehler einen Eintrag in der Logdatei machen
+            clsLogger.AddError("Es konnte kein windream-Object erzeugt werden - " & ex.Message, "clswindream.WDObject_exists")
+            Return False
+        End Try
+    End Function
+    Public Shared Function GetSearchDocuments(ByVal wdfLocation As String)
+        'wdfLocation = 'W:\System\Suchen\WDRH\TestPDF.wdf'
+        'Try
+        Dim SearchName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
+            Dim SearchPath = wdfLocation.Substring(0, wdfLocation.Length - SearchName.Length)
+
+            If System.IO.File.Exists(wdfLocation.ToLower) Then
+                clsLogger.AddDetailLog("Search exists")
+            End If
+            oController.CheckSearchProfile(wdfLocation.ToLower) 'wdfLocation.ToLower)
+            clsLogger.AddDetailLog("oController erzeugt")
+            Dim suchTyp = oController.SearchProfileTargetProgID
+            Dim ExSettings As Object
+            Dim oSearch As Object
+            ExSettings = oController.SearchProfileExSettings
+            If ExSettings = 0 Then ExSettings = 7
+
+            Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
+            Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
+            Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
+            clsLogger.AddDetailLog("WD Objekte in GetSearchDocuments erzeugt")
+            clsLogger.AddDetailLog(suchTyp.ToString.ToUpper)
+            ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
+            Select Case suchTyp.ToString.ToUpper
+                Case "WMOSRCH.WMQUICKSEARCH"
+                    srchQuick.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                    oConnect.LoginSession(srchQuick.WMSession)
+                    srchQuick.ClearSearch()
+                    srchQuick.SearchProfilePath = SearchPath
+                    srchQuick.LoadSearchProfile(SearchName)
+                    oSearch = srchQuick.GetSearch()
+
+                Case "WMOSRCH.WMINDEXSEARCH"
+                    srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                    clsLogger.AddDetailLog("Session created...")
+                    oConnect.LoginSession(srchIndex.WMSession)
+                    clsLogger.AddDetailLog("LoginSession...")
+                    srchIndex.SearchProfilePath = SearchPath
+                    clsLogger.AddDetailLog("SearchPath...")
+                    srchIndex.LoadSearchProfile(SearchName)
+                    clsLogger.AddDetailLog("LoadSearchProfile...")
+                    oSearch = srchIndex.GetSearch()
+                    clsLogger.AddDetailLog("GetSearch...")
+                Case "WMOSRCH.WMOBJECTTYPESEARCH"
+                    srchObjectType.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
+                    oConnect.LoginSession(srchObjectType.WMSession)
+                    srchObjectType.ClearSearch()
+                    srchObjectType.SearchProfilePath = SearchPath
+                    srchObjectType.LoadSearchProfile(SearchName)
+                    oSearch = srchObjectType.GetSearch()
+
+                Case Else
+                    clsLogger.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP", True, "clswindream.GetSearchDocuments")
+
+                    Return Nothing
+            End Select
+            Dim WMObjects As Object
+            WMObjects = oSearch.Execute
+            clsLogger.AddDetailLog("WD Objekte werden zurückgegeben")
+            Return oSearch.execute
+
+        'Catch ex As Exception
+        '    ' bei einem Fehler einen Eintrag in der Logdatei machen
+        '    clsLogger.AddError(ex.Message, "clswindream.GetSearchDocuments")
+        '    Return Nothing
+        'End Try
+
+    End Function
+
+#End Region
+
+End Class
+

app/ResultHandler_Konfig/frmMain.vb

@@ -0,0 +1,688 @@
+Imports System.ServiceProcess
+Public Class frmMain
+    Private _windream As clsWindream_allgemein
+    Private Sub TBPROFILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPROFILBindingNavigatorSaveItem.Click
+        Save_Profil()
+    End Sub
+
+    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If My.Settings.myConnString = String.Empty Then
+            Dim dbPath As String = Application.StartupPath & "\Database\wdResultHandler.db3"
+            If IO.File.Exists(dbPath) Then
+                My.Settings.myConnString = dbPath
+                My.Settings.Save()
+            Else
+                MsgBox("Achtung: Die SQLite-Database File exisitiert nicht am angegebenen Ort: " & vbNewLine & dbPath, MsgBoxStyle.Critical, "Fehler:")
+                DB_Path()
+            End If
+        End If
+        Load_Constring()
+        Try
+            ' Windream instanziieren
+            _windream = New clsWindream_allgemein()
+            'Windream initialisieren (Connection, Session, ... aufbauen)
+            _windream.Init()
+        Catch ex As Exception
+            MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
+        End Try
+        Load_Profil()
+        Load_Uebersicht()
+        clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandler_")
+    End Sub
+    Sub Load_Uebersicht()
+        ' Try
+        Dim DT As DataTable = MyDataset.TBWMRH_PROFIL
+        '    ClassDIProfile.Init()
+        Dim Count As Integer = 0
+        ListViewProfile.Items.Clear()
+
+
+        Dim running = CheckIfRunning("DDWDResultHandler")
+        If running = False Then
+            ListViewProfile.Columns(3).Width = 150
+        Else
+            ListViewProfile.Columns(3).Width = 80
+        End If
+        For Each row As DataRow In DT.Rows
+            ListViewProfile.Items.Add(row.Item("Profilname"))
+            If running = False Then
+                ListViewProfile.Items(Count).ImageIndex = 2
+            Else
+                If CBool(row.Item("Aktiv")) = True Then
+                    ListViewProfile.Items(Count).ImageIndex = 0
+                Else
+                    ListViewProfile.Items(Count).ImageIndex = 1
+                End If
+            End If
+            Try
+                ListViewProfile.Items(Count).SubItems.Add(row.Item("Aktiv"))
+            Catch ex As Exception
+
+            End Try
+
+            ListViewProfile.Items(Count).SubItems.Add(row.Item("Letzter_Durchlauf"))
+            If running = False Then
+                ListViewProfile.Items(Count).SubItems.Add("Service stopped")
+            Else
+                If CBool(row.Item("Running")) = True Then
+                    ListViewProfile.Items(Count).SubItems.Add("Running")
+                Else
+                    ListViewProfile.Items(Count).SubItems.Add("Waiting")
+                End If
+            End If
+
+            Count += 1
+        Next
+
+        'Catch ex As Exception
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Dateiimport-Profileiste")
+        'End Try
+    End Sub
+    Private Function CheckIfRunning(sServiceName As String) As Boolean
+        Try
+            Dim sc As New ServiceController(sServiceName)
+            If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
+                ' Service is not running
+                Return False
+            Else
+                ' Service is running()
+                Return True
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler inCheckIfRunning")
+        End Try
+    End Function
+    Sub Load_Constring()
+        My.Settings.Save()
+        Me.TBWMRH_KONFIGURATIONTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
+        Me.TBWMRH_PROFILTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
+        Me.TBWMRH_PROFIL_JOBTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
+        Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Connection.ConnectionString = My.Settings.SQLSERVER_CS
+        Load_Grundkonfig()
+    End Sub
+    Sub Load_Grundkonfig()
+        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)
+            LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
+            WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
+        End Try
+    End Sub
+    Sub Load_Profil()
+        Try
+            Me.TBWMRH_PROFILTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Profil:")
+        End Try
+    End Sub
+    Private Sub ObjekttypenEintragen()
+        Me.ObjekttypComboBox.Items.Clear()
+        Try
+            Dim oDokumentTypen As WINDREAMLib.WMObjects = Me._windream.GetObjecttypesAsObjects()
+            If oDokumentTypen Is Nothing Then Exit Sub
+            For Each aType In oDokumentTypen
+                Me.ObjekttypComboBox.Items.Add(aType.aName)
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei ObjekttypenEintragen")
+        End Try
+
+    End Sub
+    Sub Save_Profil()
+        Try
+            Select Case cmbTimeTyp.SelectedIndex
+                Case 0
+                    RunTextBox.Text = "INTV;" & NumericUpDown.Value
+                Case 1
+                    RunTextBox.Text = "TIME;" & dtp_Time.Text
+            End Select
+
+            Me.TBWMRH_PROFILBindingSource.EndEdit()
+            If MyDataset.TBWMRH_PROFIL.GetChanges Is Nothing = False Then
+                Me.GEAENDERTWERTextBox.Text = Environment.UserName
+                Me.TBWMRH_PROFILBindingSource.EndEdit()
+                Me.TBWMRH_PROFILTableAdapter.Update(MyDataset.TBWMRH_PROFIL)
+                statuslabel(True, "Profil erfolgreich gespeichert - " & Now)
+            Else
+                statuslabel(False, "")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save_Profil:")
+        End Try
+
+    End Sub
+    Sub statuslabel(visible As Boolean, Text As String)
+        Me.tsstatus.Visible = visible
+        Me.tsstatus.Text = Text
+    End Sub
+    Private Sub btnDatenbankConnect_Click(sender As Object, e As EventArgs) Handles btnDatenbankConnect.Click
+        DB_Path()
+    End Sub
+    Sub DB_Path()
+        With OpenFileDialog1
+            ' Do
+            .Filter = "Alle Dateien|*.*"
+            .FilterIndex = 1
+            .Title = "Pfad zur Datenbank:"
+            If .ShowDialog() = DialogResult.OK Then
+                Dim dbPath As String = .FileName
+                My.Settings.myConnString = dbPath
+                My.Settings.Save()
+                Load_Constring()
+            End If
+        End With
+    End Sub
+
+    Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
+        With OpenFileDialog1
+            ' Do
+            .Filter = " windream-Suche|*.wdf|Alle Dateien|*.*"
+            .FilterIndex = 1
+            .Title = "Pfad zur windream-suche:"
+            If .ShowDialog() = DialogResult.OK Then
+                Me.WindreamSucheTextBox.Text = .FileName
+            End If
+        End With
+    End Sub
+
+    Private Sub TBPROFILBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs)
+        MyDataset.TBWMRH_PROFIL.ERSTELLTWERColumn.DefaultValue = Environment.UserName
+    End Sub
+
+    Private Sub TBPROFILBindingSource_CurrentItemChanged(sender As Object, e As EventArgs)
+        statuslabel(True, "TBPROFILBindingSource.CurrentItemChanged")
+    End Sub
+
+    Private Sub TBPROFILBindingSource_PositionChanged(sender As Object, e As EventArgs)
+        statuslabel(True, "TBPROFILBindingSource.PositionChanged - " & GUIDTextBox.Text)
+
+        'obj.SelectedIndex = cmbObjekttypen.FindStringExact()
+    End Sub
+
+    Private Sub TabControlMain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
+        Select Case TabControlMain.SelectedIndex
+            Case 0
+                Load_Profil()
+                Load_Uebersicht()
+            Case 1
+                ObjekttypenEintragen()
+                Load_Profil()
+            Case 2
+                Load_Grundkonfig()
+        End Select
+    End Sub
+    Private Sub TBPROFILBindingSource_BindingComplete(sender As Object, e As BindingCompleteEventArgs)
+        statuslabel(True, "TBPROFILBindingSource.BindingComplete - " & GUIDTextBox.Text)
+    End Sub
+    Sub Checkbox_Days()
+        Dim days As String
+        If CheckBox1.Checked Then
+            days = "1"
+        Else
+            days = "0"
+        End If
+        If CheckBox2.Checked Then
+            days = days & "1"
+        Else
+            days = days & "0"
+        End If
+        If CheckBox3.Checked Then
+            days = days & "1"
+        Else
+            days = days & "0"
+        End If
+        If CheckBox4.Checked Then
+            days = days & "1"
+        Else
+            days = days & "0"
+        End If
+        If CheckBox5.Checked Then
+            days = days & "1"
+        Else
+            days = days & "0"
+        End If
+        If CheckBox6.Checked Then
+            days = days & "1"
+        Else
+            days = days & "0"
+        End If
+        If CheckBox7.Checked Then
+            days = days & "1"
+        Else
+            days = days & "0"
+        End If
+        Me.DayTextBox.Text = days
+    End Sub
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        Checkbox_Days()
+    End Sub
+
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
+        Checkbox_Days()
+    End Sub
+    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
+        Checkbox_Days()
+    End Sub
+
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
+        Checkbox_Days()
+    End Sub
+
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
+        Checkbox_Days()
+    End Sub
+
+    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
+        Checkbox_Days()
+    End Sub
+
+    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
+        Checkbox_Days()
+    End Sub
+
+    Private Sub DayTextBox_TextChanged(sender As Object, e As EventArgs) Handles DayTextBox.TextChanged
+        If DayTextBox.Text <> String.Empty Then
+            'Markieren der Checkboxen'
+            If DayTextBox.Text.Substring(0, 1) = 1 Then
+                CheckBox1.Checked = True
+            End If
+            If DayTextBox.Text.Substring(1, 1) = 1 Then
+                CheckBox2.Checked = True
+            End If
+            If DayTextBox.Text.Substring(2, 1) = 1 Then
+                CheckBox3.Checked = True
+            End If
+            If DayTextBox.Text.Substring(3, 1) = 1 Then
+                CheckBox4.Checked = True
+            End If
+            If DayTextBox.Text.Substring(4, 1) = 1 Then
+                CheckBox5.Checked = True
+            End If
+            If DayTextBox.Text.Substring(5, 1) = 1 Then
+                CheckBox6.Checked = True
+            End If
+            If DayTextBox.Text.Substring(6, 1) = 1 Then
+                CheckBox7.Checked = True
+            End If
+        End If
+
+    End Sub
+
+    Private Sub RunTextBox_TextChanged(sender As Object, e As EventArgs) Handles RunTextBox.TextChanged
+        Dim arr As String()
+        arr = RunTextBox.Text.Split(";")
+
+        If RunTextBox.Text.Contains("TIME") Then
+            dtp_Time.Value = CDate("01.01.1900 " & arr(1))
+            Me.cmbTimeTyp.SelectedIndex = 1
+            Me.dtp_Time.Visible = True
+            Me.NumericUpDown.Visible = False
+            lblTimeIntervall.Text = "Uhrzeit:"
+        ElseIf RunTextBox.Text.Contains("INTV") Then 'INTV
+            If arr(1) = "" Then arr(1) = "5"
+            NumericUpDown.Value = arr(1)
+            Me.cmbTimeTyp.SelectedIndex = 0
+            Me.dtp_Time.Visible = False
+            Me.NumericUpDown.Visible = True
+            lblTimeIntervall.Text = "Intervall (Minute):"
+        End If
+
+
+    End Sub
+
+    Private Sub cmbTimeTyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbTimeTyp.SelectedIndexChanged
+        Select Case cmbTimeTyp.SelectedIndex
+            Case 0
+                Me.dtp_Time.Visible = False
+                Me.NumericUpDown.Visible = True
+                RunTextBox.Text = "INTV;" & NumericUpDown.Value
+            Case 1
+                Me.dtp_Time.Visible = True
+                Me.NumericUpDown.Visible = False
+                RunTextBox.Text = "TIME;" & dtp_Time.Text
+        End Select
+    End Sub
+
+    Private Sub Load_Jobs(ProfilID As Integer)
+        Try
+            Me.TBWMRH_PROFIL_JOBTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL_JOB, ProfilID)
+        Catch ex As System.Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load Jobs:")
+        End Try
+    End Sub
+    Private Sub Load_FILE_JOBS(Profil_ID As Integer)
+        Try
+            Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL_FILE_JOB, Profil_ID)
+            Me.STRING1ComboBox.Items.Clear()
+            cmbFileJob_WHIndexe.Items.Clear()
+            Dim indexe = _windream.GetIndicesByObjecttype(ObjekttypComboBox.Text)
+            If indexe IsNot Nothing Then
+                For Each index As String In indexe
+                    Me.STRING1ComboBox.Items.Add(index)
+                    cmbFileJob_WHIndexe.Items.Add(index)
+                Next
+            End If
+        Catch ex As System.Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load File-Jobs:")
+        End Try
+
+    End Sub
+    Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
+        If GUIDTextBox.Text <> String.Empty Then
+            Load_Jobs(GUIDTextBox.Text)
+            Load_FILE_JOBS(GUIDTextBox.Text)
+        End If
+    End Sub
+
+    Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
+        Save_PROFIL_JOB()
+    End Sub
+    Sub Save_PROFIL_JOB()
+        Try
+            Me.TBWMRH_PROFIL_JOBBindingSource.EndEdit()
+            If MyDataset.TBWMRH_PROFIL_JOB.GetChanges Is Nothing = False Then
+                Me.GEAENDERTWERTextBox1.Text = Environment.UserName
+                Me.TBWMRH_PROFIL_JOBBindingSource.EndEdit()
+                Me.TBWMRH_PROFIL_JOBTableAdapter.Update(MyDataset.TBWMRH_PROFIL_JOB)
+                statuslabel(True, "Profil-JOB erfolgreich gespeichert - " & Now)
+            Else
+                statuslabel(False, "")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save PROFIL-JOB:")
+        End Try
+    End Sub
+    Sub Save_File_JOB()
+        Try
+            Me.TBWMRH_PROFIL_FILE_JOBBindingSource.EndEdit()
+            If MyDataset.TBWMRH_PROFIL_FILE_JOB.GetChanges Is Nothing = False Then
+                Me.GEAENDERTWERTextBox2.Text = Environment.UserName
+                Me.TBWMRH_PROFIL_FILE_JOBBindingSource.EndEdit()
+                Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Update(MyDataset.TBWMRH_PROFIL_FILE_JOB)
+                statuslabel(True, "File-JOB erfolgreich gespeichert - " & Now)
+            Else
+                statuslabel(False, "")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save File-JOB:")
+        End Try
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Dim result As MsgBoxResult
+        result = MessageBox.Show("Sind Sie sicher dass Sie diesen Job löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        If result = MsgBoxResult.Yes Then
+            Me.TBWMRH_PROFIL_JOBTableAdapter.Delete(Me.GUIDTextBox1.Text)
+            Load_Jobs(Me.GUIDTextBox.Text)
+            statuslabel(True, "Job wurde erfolgreich gelöscht! - " & Now)
+        End If
+    End Sub
+
+    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
+        Dim result As MsgBoxResult
+        result = MessageBox.Show("Sind Sie sicher dass Sie dieses Profil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        If result = MsgBoxResult.Yes Then
+            Me.TBWMRH_PROFIL_JOBTableAdapter.DeleteforPROFIL(Me.GUIDTextBox.Text)
+            Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.DeleteForProfil(Me.GUIDTextBox.Text)
+            Me.TBWMRH_PROFILTableAdapter.Delete(Me.GUIDTextBox.Text)
+            Load_Profil()
+            statuslabel(True, "Profil wurde erfolgreich gelöscht! - " & Now)
+        End If
+    End Sub
+
+    Private Sub JOB_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JOB_TYPComboBox.SelectedIndexChanged
+        btnJOB_addSpeicherort.Visible = False
+        lblString1.Text = ""
+        lblString2.Text = ""
+        Select Case JOB_TYPComboBox.SelectedIndex
+            Case 0
+                lblString1.Text = "Speicherort für windream-Ergebnisse:"
+                btnJOB_addSpeicherort.Visible = True
+            Case 1
+                lblString1.Text = "Email-Empfänger:"
+            Case 2 'Oracle
+                lblString1.Text = "Connection String Oracle"
+                lblString2.Text = "Command Oracle"
+            Case 3 'MSSQL
+                lblString1.Text = "Connection String MSSQL"
+                lblString2.Text = "Command MSSQL"
+        End Select
+    End Sub
+
+    Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
+        With FolderBrowserDialog1
+            ' Do
+            .Description = "Speicherort für Ergebnis-Dokumente"
+            If .ShowDialog() = DialogResult.OK Then
+                Me.STRING1TextBox.Text = .SelectedPath
+            End If
+        End With
+    End Sub
+
+    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
+        Dim result As MsgBoxResult
+        result = MessageBox.Show("Sind Sie sicher dass Sie diesen File-Job löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        If result = MsgBoxResult.Yes Then
+            Me.TBWMRH_PROFIL_FILE_JOBTableAdapter.Delete(Me.GUIDTextBox2.Text)
+            Load_FILE_JOBS(Me.GUIDTextBox.Text)
+            statuslabel(True, "File-Job wurde erfolgreich gelöscht! - " & Now)
+        End If
+    End Sub
+
+    Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click
+        Save_File_JOB()
+    End Sub
+
+    Private Sub STEP_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STEP_TYPComboBox.SelectedIndexChanged
+        cmbFileJob_WHIndexe.Visible = False
+        btnFileJob_addIndex.Visible = False
+        Me.btnaddDatetime.Visible = False
+        STRING1TextBoxFile_Job.Visible = False
+        STRING2TextBoxProfil_FileJob.Visible = False
+        lblString2FileJobs.Visible = False
+        btnTestCon.Visible = False
+        lblndexname.Visible = False
+        If STEP_TYPComboBox.SelectedIndex <> -1 Then
+            Select Case STEP_TYPComboBox.SelectedIndex
+                Case 0
+                    lblString1FileJobs.Text = "Indexname"
+                    STRING1ComboBox.Visible = True
+
+                    lblString2FileJobs.Text = "Wert"
+                    STRING2TextBoxProfil_FileJob.Visible = True
+                    Me.btnaddDatetime.Visible = True
+
+                Case 1
+                    Renamewithindex()
+                Case 2
+                    Renamewithindex()
+                Case 3 'Oracle
+                    btnTestCon.Visible = True
+                    lblString1FileJobs.Text = "Connection String Oracle"
+                    lblString2FileJobs.Text = "Command Oracle"
+                    STRING1TextBoxFile_Job.Visible = True
+                    STRING2TextBoxProfil_FileJob.Visible = True
+                    lblString2FileJobs.Visible = True
+                Case 4 'MSSQL
+                    btnTestCon.Visible = True
+                    lblString1FileJobs.Text = "Connection String MSSQL"
+                    lblString2FileJobs.Text = "Command MSSQL"
+                    STRING1TextBoxFile_Job.Visible = True
+                    STRING2TextBoxProfil_FileJob.Visible = True
+                    lblString2FileJobs.Visible = True
+            End Select
+
+        End If
+    End Sub
+    Sub Renamewithindex()
+        lblString1FileJobs.Text = "Namenkonvention"
+        STRING1ComboBox.Visible = False
+        STRING1TextBoxFile_Job.Visible = True
+        lblndexname.Visible = True
+
+        cmbFileJob_WHIndexe.Visible = True
+        btnFileJob_addIndex.Visible = True
+    End Sub
+    Private Sub btn_runProfileManual_Click(sender As Object, e As EventArgs) Handles btn_runProfileManual.Click
+        'Try
+        '    Dim result As MsgBoxResult
+        '    If RunningCheckBox.Checked = False Then
+
+        '        result = MessageBox.Show("Bitte bestätigen Sie den manuellen Start des Profils!", "Bestätigung erforderlich:", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
+        '        If result = MsgBoxResult.Ok Then
+        '            Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
+        '            MsgBox("Das Profil wurde für den manuellen Durchlauf markiert. Der Durchlauf sollte innerhalb der nächsten Minute starten.", MsgBoxStyle.Information)
+        '            Load_Profil()
+        '        End If
+        '    Else
+        '        result = MessageBox.Show("Achtung das Profil schein noch zu laufen, dennoch Updaten??", "Bestätigung erforderlich:", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
+        '        If result = MsgBoxResult.Ok Then
+        '            Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
+        '            Load_Profil()
+        '        End If
+        '    End If
+
+        'Catch ex As Exception
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Run Job manually:")
+        'End Try
+        Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
+        Manual()
+    End Sub
+
+    Private Sub tabtn_refreshProfile_Click(sender As Object, e As EventArgs) Handles tabtn_refreshProfile.Click
+        Load_Profil()
+    End Sub
+
+    Private Sub tsbtmrefresh_Uebersicht_Click(sender As Object, e As EventArgs) Handles tsbtmrefresh_Uebersicht.Click
+        Load_Uebersicht()
+    End Sub
+
+    Private Sub btnsave_Grundkonfig_Click(sender As Object, e As EventArgs) Handles btnsave_Grundkonfig.Click
+        Try
+            Me.TBWMRH_KONFIGURATIONBindingSource.EndEdit()
+            If MyDataset.TBWMRH_KONFIGURATION.GetChanges Is Nothing = False Then
+                Me.GEAENDERT_WERTextBox.Text = Environment.UserName
+                Me.TBWMRH_KONFIGURATIONBindingSource.EndEdit()
+                Me.TBWMRH_KONFIGURATIONTableAdapter.Update(MyDataset.TBWMRH_KONFIGURATION)
+                statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
+                Load_Grundkonfig()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Grundkonfig:")
+        End Try
+    End Sub
+
+    Private Sub btnaddDatetime_Click(sender As Object, e As EventArgs) Handles btnaddDatetime.Click
+        Me.STRING2TextBoxProfil_FileJob.Text = STRING2TextBoxProfil_FileJob.Text & "[%DATETIME]"
+    End Sub
+    Private Sub btnFileJob_addIndex_Click(sender As Object, e As EventArgs) Handles btnFileJob_addIndex.Click
+        If cmbFileJob_WHIndexe.SelectedIndex <> -1 Then
+            STRING1TextBoxFile_Job.Text = STRING1TextBoxFile_Job.Text & "[%" & cmbFileJob_WHIndexe.Text & "]"
+        End If
+    End Sub
+    Sub Manual()
+        'Try
+        Dim notcompleted As Boolean = False
+
+        clsLogger.Add("", False)
+        clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False)
+        clsLogger.Add("", False)
+        'windream initialisieren
+        If _windream.Init() = True Then
+                clsLogger.AddDetailLog("windream vollumfänglich initialisiert!")
+            'Zur sicherheit die DB nochmal initialiseren
+            If clsDatatabase.Init() = True Then
+                Dim DT As DataTable = clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE AKTIV = 1 order by REIHENFOLGE")
+                If DT.Rows.Count > 0 Then
+                    clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
+                    For Each DR As DataRow In DT.Rows
+                        _PROFIL_ID = CInt(DR.Item("GUID"))
+                        'Und nun das Profil durchlaufen
+                        Dim initresult = clsProfil.Init(_PROFIL_ID)
+                        If initresult = True Then
+                            clsLogger.WriteLog()
+                            clsProfil.Profil_Durchlauf()
+                        ElseIf initresult = False Then
+                            clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD")
+                            notcompleted = True
+                        ElseIf initresult = 0 Then
+                            clsLogger.AddDetailLog("initresult: 0")
+                            notcompleted = True
+                        ElseIf initresult = 1 Then
+                            clsLogger.AddDetailLog("initresult: 1")
+                            notcompleted = True
+                        End If
+                    Next
+                Else
+                    clsLogger.Add("- Keine aktiven Profile vorhanden", False)
+                    notcompleted = True
+                End If
+                clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
+            Else
+                clsLogger.Add("- clsSQLLite konnte nicht initialisiert werden!", False)
+                    notcompleted = True
+                End If
+            Else
+                clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
+                notcompleted = True
+            End If
+        If notcompleted = True Then
+            clsLogger.WriteLog()
+        End If
+        MsgBox("Run completed!", MsgBoxStyle.Information)
+        'Catch ex As Exception
+        '    clsLogger.AddError(ex.Message, "RUN_THREAD")
+        'End Try
+    End Sub
+
+    Private Sub TBWMRH_PROFIL_JOBBindingSource_AddingNew_1(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_JOBBindingSource.AddingNew
+        MyDataset.TBWMRH_PROFIL_JOB.ERSTELLTWERColumn.DefaultValue = Environment.UserName
+        MyDataset.TBWMRH_PROFIL_JOB.PROFIL_IDColumn.DefaultValue = GUIDTextBox.Text
+    End Sub
+
+    Private Sub TBWMRH_PROFIL_FILE_JOBBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_FILE_JOBBindingSource.AddingNew
+        MyDataset.TBWMRH_PROFIL_FILE_JOB.ERSTELLTWERColumn.DefaultValue = Environment.UserName
+        MyDataset.TBWMRH_PROFIL_FILE_JOB.PROFIL_IDColumn.DefaultValue = GUIDTextBox.Text
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Process.Start(clsLogger.LogFilename)
+    End Sub
+
+    Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
+        If STRING1TextBoxFile_Job.Text = "" Then
+            Exit Sub
+        End If
+        If STEP_TYPComboBox.Text = "Execute Oracle Command" Then
+            If clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
+                MsgBox("Oracle Connection successfull!", MsgBoxStyle.Information)
+                Exit Sub
+            End If
+        ElseIf STEP_TYPComboBox.Text = "Execute MSSQL Command" Then
+            If clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
+                MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
+                Exit Sub
+            End If
+        End If
+        clsLogger.WriteLog()
+        MsgBox("Connection could not be created - Check the log", MsgBoxStyle.Critical)
+
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Try
+            Dim p As New Process()
+            p.StartInfo.FileName = Me.WindreamSucheTextBox.Text
+            p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
+            p.Start()
+            p.WaitForExit()
+            p.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Öffnen der windream-Suche:")
+        End Try
+    End Sub
+End Class

app/ResultHandler_Konfig/packages.config

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="EntityFramework" version="6.1.1" targetFramework="net451" />
+  <package id="System.Data.SQLite" version="1.0.94.1" targetFramework="net461" />
+</packages>

app/packages/EntityFramework.6.1.1/EntityFramework.6.1.1.nuspec

@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+<package xmlns="http://schemas.microsoft.com/packaging/2010/07/nuspec.xsd">
+  <metadata>
+    <id>EntityFramework</id>
+    <version>6.1.1</version>
+    <title>EntityFramework</title>
+    <authors>Microsoft</authors>
+    <owners>Microsoft</owners>
+    <licenseUrl>http://go.microsoft.com/fwlink/?LinkID=320539</licenseUrl>
+    <projectUrl>http://go.microsoft.com/fwlink/?LinkID=320540</projectUrl>
+    <iconUrl>http://go.microsoft.com/fwlink/?LinkID=386613</iconUrl>
+    <requireLicenseAcceptance>true</requireLicenseAcceptance>
+    <description>Entity Framework is Microsoft's recommended data access technology for new applications.</description>
+    <summary>Entity Framework is Microsoft's recommended data access technology for new applications.</summary>
+    <language>en-US</language>
+    <tags>Microsoft EF Database Data O/RM ADO.NET</tags>
+    <frameworkAssemblies>
+      <frameworkAssembly assemblyName="System.ComponentModel.DataAnnotations" targetFramework="" />
+    </frameworkAssemblies>
+  </metadata>
+</package>

app/packages/EntityFramework.6.1.1/content/App.config.transform

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

app/packages/EntityFramework.6.1.1/content/Web.config.transform

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

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

@@ -0,0 +1,48 @@
+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.1.1/tools/init.ps1

@@ -0,0 +1,155 @@
+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
+# MIIa4AYJKoZIhvcNAQcCoIIa0TCCGs0CAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
+# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
+# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUjXj4E03IfImYfKMB4CA3DfY0
+# KZmgghWCMIIEwzCCA6ugAwIBAgITMwAAAEyh6E3MtHR7OwAAAAAATDANBgkqhkiG
+# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
+# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
+# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTMxMTExMjIxMTMx
+# WhcNMTUwMjExMjIxMTMxWjCBszELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
+# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
+# b3JhdGlvbjENMAsGA1UECxMETU9QUjEnMCUGA1UECxMebkNpcGhlciBEU0UgRVNO
+# OkMwRjQtMzA4Ni1ERUY4MSUwIwYDVQQDExxNaWNyb3NvZnQgVGltZS1TdGFtcCBT
+# ZXJ2aWNlMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAsdj6GwYrd6jk
+# lF18D+Z6ppLuilQdpPmEdYWXzMtcltDXdS3ZCPtb0u4tJcY3PvWrfhpT5Ve+a+i/
+# ypYK3EbxWh4+AtKy4CaOAGR7vjyT+FgyeYfSGl0jvJxRxA8Q+gRYtRZ2buy8xuW+
+# /K2swUHbqs559RyymUGneiUr/6t4DVg6sV5Q3mRM4MoVKt+m6f6kZi9bEAkJJiHU
+# Pw0vbdL4d5ADbN4UEqWM5zYf9IelsEEXb+NNdGbC/aJxRjVRzGsXUWP6FZSSml9L
+# KLrmFkVJ6Sy1/ouHr/ylbUPcpjD6KSjvmw0sXIPeEo1qtNtx71wUWiojKP+BcFfx
+# jAeaE9gqUwIDAQABo4IBCTCCAQUwHQYDVR0OBBYEFLkNrbNN9NqfGrInJlUNIETY
+# mOL0MB8GA1UdIwQYMBaAFCM0+NlSRnAK7UD7dvuzK7DDNbMPMFQGA1UdHwRNMEsw
+# SaBHoEWGQ2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3Rz
+# L01pY3Jvc29mdFRpbWVTdGFtcFBDQS5jcmwwWAYIKwYBBQUHAQEETDBKMEgGCCsG
+# AQUFBzAChjxodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jv
+# c29mdFRpbWVTdGFtcFBDQS5jcnQwEwYDVR0lBAwwCgYIKwYBBQUHAwgwDQYJKoZI
+# hvcNAQEFBQADggEBAAmKTgav6O2Czx0HftcqpyQLLa+aWyR/lHEMVYgkGlIVY+KQ
+# TQVKmEqc++GnbWhVgrkp6mmpstXjDNrR1nolN3hnHAz72ylaGpc4KjlWRvs1gbnk
+# PUZajuT8dTdYWUmLTts8FZ1zUkvreww6wi3Bs5tSLeA1xbnBV7PoPaE8RPIjFh4K
+# qlk3J9CVUl6ofz9U8IHh3Jq9ZdV49vdMObvd4NY3DpGah4xz53FkUvc+A9jGzXK4
+# NDSYW4zT9Qim63jGUaANDm/0azxAGmAWLKkGUp0cE5DObwIe6nucs/b4l2DyZdHR
+# H4c6wXXwQo167Yxysnv7LIq0kUdU4i5pzBZUGlkwggTsMIID1KADAgECAhMzAAAA
+# ymzVMhI1xOFVAAEAAADKMA0GCSqGSIb3DQEBBQUAMHkxCzAJBgNVBAYTAlVTMRMw
+# EQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25kMR4wHAYDVQQKExVN
+# aWNyb3NvZnQgQ29ycG9yYXRpb24xIzAhBgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNp
+# Z25pbmcgUENBMB4XDTE0MDQyMjE3MzkwMFoXDTE1MDcyMjE3MzkwMFowgYMxCzAJ
+# BgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25k
+# MR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xDTALBgNVBAsTBE1PUFIx
+# HjAcBgNVBAMTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjCCASIwDQYJKoZIhvcNAQEB
+# BQADggEPADCCAQoCggEBAJZxXe0GRvqEy51bt0bHsOG0ETkDrbEVc2Cc66e2bho8
+# P/9l4zTxpqUhXlaZbFjkkqEKXMLT3FIvDGWaIGFAUzGcbI8hfbr5/hNQUmCVOlu5
+# WKV0YUGplOCtJk5MoZdwSSdefGfKTx5xhEa8HUu24g/FxifJB+Z6CqUXABlMcEU4
+# LYG0UKrFZ9H6ebzFzKFym/QlNJj4VN8SOTgSL6RrpZp+x2LR3M/tPTT4ud81MLrs
+# eTKp4amsVU1Mf0xWwxMLdvEH+cxHrPuI1VKlHij6PS3Pz4SYhnFlEc+FyQlEhuFv
+# 57H8rEBEpamLIz+CSZ3VlllQE1kYc/9DDK0r1H8wQGcCAwEAAaOCAWAwggFcMBMG
+# A1UdJQQMMAoGCCsGAQUFBwMDMB0GA1UdDgQWBBQfXuJdUI1Whr5KPM8E6KeHtcu/
+# gzBRBgNVHREESjBIpEYwRDENMAsGA1UECxMETU9QUjEzMDEGA1UEBRMqMzE1OTUr
+# YjQyMThmMTMtNmZjYS00OTBmLTljNDctM2ZjNTU3ZGZjNDQwMB8GA1UdIwQYMBaA
+# FMsR6MrStBZYAck3LjMWFrlMmgofMFYGA1UdHwRPME0wS6BJoEeGRWh0dHA6Ly9j
+# cmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3RzL01pY0NvZFNpZ1BDQV8w
+# OC0zMS0yMDEwLmNybDBaBggrBgEFBQcBAQROMEwwSgYIKwYBBQUHMAKGPmh0dHA6
+# Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljQ29kU2lnUENBXzA4LTMx
+# LTIwMTAuY3J0MA0GCSqGSIb3DQEBBQUAA4IBAQB3XOvXkT3NvXuD2YWpsEOdc3wX
+# yQ/tNtvHtSwbXvtUBTqDcUCBCaK3cSZe1n22bDvJql9dAxgqHSd+B+nFZR+1zw23
+# VMcoOFqI53vBGbZWMrrizMuT269uD11E9dSw7xvVTsGvDu8gm/Lh/idd6MX/YfYZ
+# 0igKIp3fzXCCnhhy2CPMeixD7v/qwODmHaqelzMAUm8HuNOIbN6kBjWnwlOGZRF3
+# CY81WbnYhqgA/vgxfSz0jAWdwMHVd3Js6U1ZJoPxwrKIV5M1AHxQK7xZ/P4cKTiC
+# 095Sl0UpGE6WW526Xxuj8SdQ6geV6G00DThX3DcoNZU6OJzU7WqFXQ4iEV57MIIF
+# vDCCA6SgAwIBAgIKYTMmGgAAAAAAMTANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZIm
+# iZPyLGQBGRYDY29tMRkwFwYKCZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQD
+# EyRNaWNyb3NvZnQgUm9vdCBDZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMTAwODMx
+# MjIxOTMyWhcNMjAwODMxMjIyOTMyWjB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMK
+# V2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0
+# IENvcnBvcmF0aW9uMSMwIQYDVQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBD
+# QTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBALJyWVwZMGS/HZpgICBC
+# mXZTbD4b1m/My/Hqa/6XFhDg3zp0gxq3L6Ay7P/ewkJOI9VyANs1VwqJyq4gSfTw
+# aKxNS42lvXlLcZtHB9r9Jd+ddYjPqnNEf9eB2/O98jakyVxF3K+tPeAoaJcap6Vy
+# c1bxF5Tk/TWUcqDWdl8ed0WDhTgW0HNbBbpnUo2lsmkv2hkL/pJ0KeJ2L1TdFDBZ
+# +NKNYv3LyV9GMVC5JxPkQDDPcikQKCLHN049oDI9kM2hOAaFXE5WgigqBTK3S9dP
+# Y+fSLWLxRT3nrAgA9kahntFbjCZT6HqqSvJGzzc8OJ60d1ylF56NyxGPVjzBrAlf
+# A9MCAwEAAaOCAV4wggFaMA8GA1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFMsR6MrS
+# tBZYAck3LjMWFrlMmgofMAsGA1UdDwQEAwIBhjASBgkrBgEEAYI3FQEEBQIDAQAB
+# MCMGCSsGAQQBgjcVAgQWBBT90TFO0yaKleGYYDuoMW+mPLzYLTAZBgkrBgEEAYI3
+# FAIEDB4KAFMAdQBiAEMAQTAfBgNVHSMEGDAWgBQOrIJgQFYnl+UlE/wq4QpTlVnk
+# pDBQBgNVHR8ESTBHMEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtp
+# L2NybC9wcm9kdWN0cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEE
+# SDBGMEQGCCsGAQUFBzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2Nl
+# cnRzL01pY3Jvc29mdFJvb3RDZXJ0LmNydDANBgkqhkiG9w0BAQUFAAOCAgEAWTk+
+# fyZGr+tvQLEytWrrDi9uqEn361917Uw7LddDrQv+y+ktMaMjzHxQmIAhXaw9L0y6
+# oqhWnONwu7i0+Hm1SXL3PupBf8rhDBdpy6WcIC36C1DEVs0t40rSvHDnqA2iA6VW
+# 4LiKS1fylUKc8fPv7uOGHzQ8uFaa8FMjhSqkghyT4pQHHfLiTviMocroE6WRTsgb
+# 0o9ylSpxbZsa+BzwU9ZnzCL/XB3Nooy9J7J5Y1ZEolHN+emjWFbdmwJFRC9f9Nqu
+# 1IIybvyklRPk62nnqaIsvsgrEA5ljpnb9aL6EiYJZTiU8XofSrvR4Vbo0HiWGFzJ
+# NRZf3ZMdSY4tvq00RBzuEBUaAF3dNVshzpjHCe6FDoxPbQ4TTj18KUicctHzbMrB
+# 7HCjV5JXfZSNoBtIA1r3z6NnCnSlNu0tLxfI5nI3EvRvsTxngvlSso0zFmUeDord
+# EN5k9G/ORtTTF+l5xAS00/ss3x+KnqwK+xMnQK3k+eGpf0a7B2BHZWBATrBC7E7t
+# s3Z52Ao0CW0cgDEf4g5U3eWh++VHEK1kmP9QFi58vwUheuKVQSdpw5OPlcmN2Jsh
+# rg1cnPCiroZogwxqLbt2awAdlq3yFnv2FoMkuYjPaqhHMS+a3ONxPdcAfmJH0c6I
+# ybgY+g5yjcGjPa8CQGr/aZuW4hCoELQ3UAjWwz0wggYHMIID76ADAgECAgphFmg0
+# AAAAAAAcMA0GCSqGSIb3DQEBBQUAMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAX
+# BgoJkiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290
+# IENlcnRpZmljYXRlIEF1dGhvcml0eTAeFw0wNzA0MDMxMjUzMDlaFw0yMTA0MDMx
+# MzAzMDlaMHcxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
+# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xITAf
+# BgNVBAMTGE1pY3Jvc29mdCBUaW1lLVN0YW1wIFBDQTCCASIwDQYJKoZIhvcNAQEB
+# BQADggEPADCCAQoCggEBAJ+hbLHf20iSKnxrLhnhveLjxZlRI1Ctzt0YTiQP7tGn
+# 0UytdDAgEesH1VSVFUmUG0KSrphcMCbaAGvoe73siQcP9w4EmPCJzB/LMySHnfL0
+# Zxws/HvniB3q506jocEjU8qN+kXPCdBer9CwQgSi+aZsk2fXKNxGU7CG0OUoRi4n
+# rIZPVVIM5AMs+2qQkDBuh/NZMJ36ftaXs+ghl3740hPzCLdTbVK0RZCfSABKR2YR
+# JylmqJfk0waBSqL5hKcRRxQJgp+E7VV4/gGaHVAIhQAQMEbtt94jRrvELVSfrx54
+# QTF3zJvfO4OToWECtR0Nsfz3m7IBziJLVP/5BcPCIAsCAwEAAaOCAaswggGnMA8G
+# A1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFCM0+NlSRnAK7UD7dvuzK7DDNbMPMAsG
+# A1UdDwQEAwIBhjAQBgkrBgEEAYI3FQEEAwIBADCBmAYDVR0jBIGQMIGNgBQOrIJg
+# QFYnl+UlE/wq4QpTlVnkpKFjpGEwXzETMBEGCgmSJomT8ixkARkWA2NvbTEZMBcG
+# CgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMkTWljcm9zb2Z0IFJvb3Qg
+# Q2VydGlmaWNhdGUgQXV0aG9yaXR5ghB5rRahSqClrUxzWPQHEy5lMFAGA1UdHwRJ
+# MEcwRaBDoEGGP2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1
+# Y3RzL21pY3Jvc29mdHJvb3RjZXJ0LmNybDBUBggrBgEFBQcBAQRIMEYwRAYIKwYB
+# BQUHMAKGOGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
+# b2Z0Um9vdENlcnQuY3J0MBMGA1UdJQQMMAoGCCsGAQUFBwMIMA0GCSqGSIb3DQEB
+# BQUAA4ICAQAQl4rDXANENt3ptK132855UU0BsS50cVttDBOrzr57j7gu1BKijG1i
+# uFcCy04gE1CZ3XpA4le7r1iaHOEdAYasu3jyi9DsOwHu4r6PCgXIjUji8FMV3U+r
+# kuTnjWrVgMHmlPIGL4UD6ZEqJCJw+/b85HiZLg33B+JwvBhOnY5rCnKVuKE5nGct
+# xVEO6mJcPxaYiyA/4gcaMvnMMUp2MT0rcgvI6nA9/4UKE9/CCmGO8Ne4F+tOi3/F
+# NSteo7/rvH0LQnvUU3Ih7jDKu3hlXFsBFwoUDtLaFJj1PLlmWLMtL+f5hYbMUVbo
+# nXCUbKw5TNT2eb+qGHpiKe+imyk0BncaYsk9Hm0fgvALxyy7z0Oz5fnsfbXjpKh0
+# NbhOxXEjEiZ2CzxSjHFaRkMUvLOzsE1nyJ9C/4B5IYCeFTBm6EISXhrIniIh0EPp
+# K+m79EjMLNTYMoBMJipIJF9a6lbvpt6Znco6b72BJ3QGEe52Ib+bgsEnVLaxaj2J
+# oXZhtG6hE6a/qkfwEm/9ijJssv7fUciMI8lmvZ0dhxJkAj0tr1mPuOQh5bWwymO0
+# eFQF1EEuUKyUsKV4q7OglnUa2ZKHE3UiLzKoCG6gW4wlv6DvhMoh1useT8ma7kng
+# 9wFlb4kLfchpyOZu6qeXzjEp/w7FW1zYTRuh2Povnj8uVRZryROj/TGCBMgwggTE
+# AgEBMIGQMHkxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
+# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xIzAh
+# BgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNpZ25pbmcgUENBAhMzAAAAymzVMhI1xOFV
+# AAEAAADKMAkGBSsOAwIaBQCggeEwGQYJKoZIhvcNAQkDMQwGCisGAQQBgjcCAQQw
+# HAYKKwYBBAGCNwIBCzEOMAwGCisGAQQBgjcCARUwIwYJKoZIhvcNAQkEMRYEFOrT
+# ZEbL6mMRie0QxeNrtIXxNuY6MIGABgorBgEEAYI3AgEMMXIwcKBSgFAARQBuAHQA
+# aQB0AHkAIABGAHIAYQBtAGUAdwBvAHIAawAgAFQAbwBvAGwAcwAgAGYAbwByACAA
+# VgBpAHMAdQBhAGwAIABTAHQAdQBkAGkAb6EagBhodHRwOi8vbXNkbi5jb20vZGF0
+# YS9lZiAwDQYJKoZIhvcNAQEBBQAEggEAgp8YIEwXo8d1C2hJS1OX9nLxFHxKTtF9
+# n3gnMoqyQ9Cq8nqapIG3LIn8gEzfUgeV3sWhZ4FsZENCqIo/bTWITq7vP5IOT1eb
+# eGP0iudpum8ajts8gxWBdqQRf7+qq1TnU6knpCppn2hFwp/5qsGIMCfqaj0sqIg4
+# cswc5e443uOMXK6viAjC9ZzeLGH4HZX5eK3DnKsUsqT3dHC/aKhbvITK+pw2f5bP
+# rTRjCXMmXoVs5xMcmz0jEMu5d59yFJDGk9b02FqojlvdJ/sYvMPGpAkEmPkOygwW
+# /kmuemZ6sggDQKPs2trsWGa836uWYTucgQ/f+9Di+FgDc/boMGysr6GCAigwggIk
+# BgkqhkiG9w0BCQYxggIVMIICEQIBATCBjjB3MQswCQYDVQQGEwJVUzETMBEGA1UE
+# CBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9z
+# b2Z0IENvcnBvcmF0aW9uMSEwHwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQ
+# Q0ECEzMAAABMoehNzLR0ezsAAAAAAEwwCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJ
+# AzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTE0MDYxMTAwMjcxNFowIwYJ
+# KoZIhvcNAQkEMRYEFKxtHfNR1GPWPqo0yuBPiJ3WZNX2MA0GCSqGSIb3DQEBBQUA
+# BIIBAIE6w+e3xMwwXXRbiSqdleCOsCfkGCFYBYY+3/NT77UTq0C3hVRzulDeINKB
+# PR0MP/VXkekNwxL+rYKZ7le3uoVIby2f64Fg8zz+qPM3TYJrTuC/7pT5ZRfxdc8T
+# 2LovKMOMLj4TJBQkigBhgxtLIXz2kQOzaiM3eezYVrjji2Sim4EijFzFDW05DY7Y
+# pGbpXTPOpFOGYAFwGwdFw0JiD9lc+PgTd+0iPxfMsp98R0uS7/fcQvrLliRWN5HW
+# eUuUnfa/ZzFzQDb91xO1Im7Ds5Vq6LhQ+c8pWkElTv5HLIljXBcACbYeAUbJCJqy
+# oLedtt6C3tuzxxq4MqxfZk92CnU=
+# SIG # End signature block

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

@@ -0,0 +1,154 @@
+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
+# MIIa4AYJKoZIhvcNAQcCoIIa0TCCGs0CAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
+# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
+# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUt8mwpdjiFmu2B4KBh+vEeQ+V
+# VnSgghWCMIIEwzCCA6ugAwIBAgITMwAAAEyh6E3MtHR7OwAAAAAATDANBgkqhkiG
+# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
+# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
+# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTMxMTExMjIxMTMx
+# WhcNMTUwMjExMjIxMTMxWjCBszELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
+# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
+# b3JhdGlvbjENMAsGA1UECxMETU9QUjEnMCUGA1UECxMebkNpcGhlciBEU0UgRVNO
+# OkMwRjQtMzA4Ni1ERUY4MSUwIwYDVQQDExxNaWNyb3NvZnQgVGltZS1TdGFtcCBT
+# ZXJ2aWNlMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAsdj6GwYrd6jk
+# lF18D+Z6ppLuilQdpPmEdYWXzMtcltDXdS3ZCPtb0u4tJcY3PvWrfhpT5Ve+a+i/
+# ypYK3EbxWh4+AtKy4CaOAGR7vjyT+FgyeYfSGl0jvJxRxA8Q+gRYtRZ2buy8xuW+
+# /K2swUHbqs559RyymUGneiUr/6t4DVg6sV5Q3mRM4MoVKt+m6f6kZi9bEAkJJiHU
+# Pw0vbdL4d5ADbN4UEqWM5zYf9IelsEEXb+NNdGbC/aJxRjVRzGsXUWP6FZSSml9L
+# KLrmFkVJ6Sy1/ouHr/ylbUPcpjD6KSjvmw0sXIPeEo1qtNtx71wUWiojKP+BcFfx
+# jAeaE9gqUwIDAQABo4IBCTCCAQUwHQYDVR0OBBYEFLkNrbNN9NqfGrInJlUNIETY
+# mOL0MB8GA1UdIwQYMBaAFCM0+NlSRnAK7UD7dvuzK7DDNbMPMFQGA1UdHwRNMEsw
+# SaBHoEWGQ2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3Rz
+# L01pY3Jvc29mdFRpbWVTdGFtcFBDQS5jcmwwWAYIKwYBBQUHAQEETDBKMEgGCCsG
+# AQUFBzAChjxodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jv
+# c29mdFRpbWVTdGFtcFBDQS5jcnQwEwYDVR0lBAwwCgYIKwYBBQUHAwgwDQYJKoZI
+# hvcNAQEFBQADggEBAAmKTgav6O2Czx0HftcqpyQLLa+aWyR/lHEMVYgkGlIVY+KQ
+# TQVKmEqc++GnbWhVgrkp6mmpstXjDNrR1nolN3hnHAz72ylaGpc4KjlWRvs1gbnk
+# PUZajuT8dTdYWUmLTts8FZ1zUkvreww6wi3Bs5tSLeA1xbnBV7PoPaE8RPIjFh4K
+# qlk3J9CVUl6ofz9U8IHh3Jq9ZdV49vdMObvd4NY3DpGah4xz53FkUvc+A9jGzXK4
+# NDSYW4zT9Qim63jGUaANDm/0azxAGmAWLKkGUp0cE5DObwIe6nucs/b4l2DyZdHR
+# H4c6wXXwQo167Yxysnv7LIq0kUdU4i5pzBZUGlkwggTsMIID1KADAgECAhMzAAAA
+# ymzVMhI1xOFVAAEAAADKMA0GCSqGSIb3DQEBBQUAMHkxCzAJBgNVBAYTAlVTMRMw
+# EQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25kMR4wHAYDVQQKExVN
+# aWNyb3NvZnQgQ29ycG9yYXRpb24xIzAhBgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNp
+# Z25pbmcgUENBMB4XDTE0MDQyMjE3MzkwMFoXDTE1MDcyMjE3MzkwMFowgYMxCzAJ
+# BgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25k
+# MR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xDTALBgNVBAsTBE1PUFIx
+# HjAcBgNVBAMTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjCCASIwDQYJKoZIhvcNAQEB
+# BQADggEPADCCAQoCggEBAJZxXe0GRvqEy51bt0bHsOG0ETkDrbEVc2Cc66e2bho8
+# P/9l4zTxpqUhXlaZbFjkkqEKXMLT3FIvDGWaIGFAUzGcbI8hfbr5/hNQUmCVOlu5
+# WKV0YUGplOCtJk5MoZdwSSdefGfKTx5xhEa8HUu24g/FxifJB+Z6CqUXABlMcEU4
+# LYG0UKrFZ9H6ebzFzKFym/QlNJj4VN8SOTgSL6RrpZp+x2LR3M/tPTT4ud81MLrs
+# eTKp4amsVU1Mf0xWwxMLdvEH+cxHrPuI1VKlHij6PS3Pz4SYhnFlEc+FyQlEhuFv
+# 57H8rEBEpamLIz+CSZ3VlllQE1kYc/9DDK0r1H8wQGcCAwEAAaOCAWAwggFcMBMG
+# A1UdJQQMMAoGCCsGAQUFBwMDMB0GA1UdDgQWBBQfXuJdUI1Whr5KPM8E6KeHtcu/
+# gzBRBgNVHREESjBIpEYwRDENMAsGA1UECxMETU9QUjEzMDEGA1UEBRMqMzE1OTUr
+# YjQyMThmMTMtNmZjYS00OTBmLTljNDctM2ZjNTU3ZGZjNDQwMB8GA1UdIwQYMBaA
+# FMsR6MrStBZYAck3LjMWFrlMmgofMFYGA1UdHwRPME0wS6BJoEeGRWh0dHA6Ly9j
+# cmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3RzL01pY0NvZFNpZ1BDQV8w
+# OC0zMS0yMDEwLmNybDBaBggrBgEFBQcBAQROMEwwSgYIKwYBBQUHMAKGPmh0dHA6
+# Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljQ29kU2lnUENBXzA4LTMx
+# LTIwMTAuY3J0MA0GCSqGSIb3DQEBBQUAA4IBAQB3XOvXkT3NvXuD2YWpsEOdc3wX
+# yQ/tNtvHtSwbXvtUBTqDcUCBCaK3cSZe1n22bDvJql9dAxgqHSd+B+nFZR+1zw23
+# VMcoOFqI53vBGbZWMrrizMuT269uD11E9dSw7xvVTsGvDu8gm/Lh/idd6MX/YfYZ
+# 0igKIp3fzXCCnhhy2CPMeixD7v/qwODmHaqelzMAUm8HuNOIbN6kBjWnwlOGZRF3
+# CY81WbnYhqgA/vgxfSz0jAWdwMHVd3Js6U1ZJoPxwrKIV5M1AHxQK7xZ/P4cKTiC
+# 095Sl0UpGE6WW526Xxuj8SdQ6geV6G00DThX3DcoNZU6OJzU7WqFXQ4iEV57MIIF
+# vDCCA6SgAwIBAgIKYTMmGgAAAAAAMTANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZIm
+# iZPyLGQBGRYDY29tMRkwFwYKCZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQD
+# EyRNaWNyb3NvZnQgUm9vdCBDZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMTAwODMx
+# MjIxOTMyWhcNMjAwODMxMjIyOTMyWjB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMK
+# V2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0
+# IENvcnBvcmF0aW9uMSMwIQYDVQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBD
+# QTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBALJyWVwZMGS/HZpgICBC
+# mXZTbD4b1m/My/Hqa/6XFhDg3zp0gxq3L6Ay7P/ewkJOI9VyANs1VwqJyq4gSfTw
+# aKxNS42lvXlLcZtHB9r9Jd+ddYjPqnNEf9eB2/O98jakyVxF3K+tPeAoaJcap6Vy
+# c1bxF5Tk/TWUcqDWdl8ed0WDhTgW0HNbBbpnUo2lsmkv2hkL/pJ0KeJ2L1TdFDBZ
+# +NKNYv3LyV9GMVC5JxPkQDDPcikQKCLHN049oDI9kM2hOAaFXE5WgigqBTK3S9dP
+# Y+fSLWLxRT3nrAgA9kahntFbjCZT6HqqSvJGzzc8OJ60d1ylF56NyxGPVjzBrAlf
+# A9MCAwEAAaOCAV4wggFaMA8GA1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFMsR6MrS
+# tBZYAck3LjMWFrlMmgofMAsGA1UdDwQEAwIBhjASBgkrBgEEAYI3FQEEBQIDAQAB
+# MCMGCSsGAQQBgjcVAgQWBBT90TFO0yaKleGYYDuoMW+mPLzYLTAZBgkrBgEEAYI3
+# FAIEDB4KAFMAdQBiAEMAQTAfBgNVHSMEGDAWgBQOrIJgQFYnl+UlE/wq4QpTlVnk
+# pDBQBgNVHR8ESTBHMEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtp
+# L2NybC9wcm9kdWN0cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEE
+# SDBGMEQGCCsGAQUFBzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2Nl
+# cnRzL01pY3Jvc29mdFJvb3RDZXJ0LmNydDANBgkqhkiG9w0BAQUFAAOCAgEAWTk+
+# fyZGr+tvQLEytWrrDi9uqEn361917Uw7LddDrQv+y+ktMaMjzHxQmIAhXaw9L0y6
+# oqhWnONwu7i0+Hm1SXL3PupBf8rhDBdpy6WcIC36C1DEVs0t40rSvHDnqA2iA6VW
+# 4LiKS1fylUKc8fPv7uOGHzQ8uFaa8FMjhSqkghyT4pQHHfLiTviMocroE6WRTsgb
+# 0o9ylSpxbZsa+BzwU9ZnzCL/XB3Nooy9J7J5Y1ZEolHN+emjWFbdmwJFRC9f9Nqu
+# 1IIybvyklRPk62nnqaIsvsgrEA5ljpnb9aL6EiYJZTiU8XofSrvR4Vbo0HiWGFzJ
+# NRZf3ZMdSY4tvq00RBzuEBUaAF3dNVshzpjHCe6FDoxPbQ4TTj18KUicctHzbMrB
+# 7HCjV5JXfZSNoBtIA1r3z6NnCnSlNu0tLxfI5nI3EvRvsTxngvlSso0zFmUeDord
+# EN5k9G/ORtTTF+l5xAS00/ss3x+KnqwK+xMnQK3k+eGpf0a7B2BHZWBATrBC7E7t
+# s3Z52Ao0CW0cgDEf4g5U3eWh++VHEK1kmP9QFi58vwUheuKVQSdpw5OPlcmN2Jsh
+# rg1cnPCiroZogwxqLbt2awAdlq3yFnv2FoMkuYjPaqhHMS+a3ONxPdcAfmJH0c6I
+# ybgY+g5yjcGjPa8CQGr/aZuW4hCoELQ3UAjWwz0wggYHMIID76ADAgECAgphFmg0
+# AAAAAAAcMA0GCSqGSIb3DQEBBQUAMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAX
+# BgoJkiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290
+# IENlcnRpZmljYXRlIEF1dGhvcml0eTAeFw0wNzA0MDMxMjUzMDlaFw0yMTA0MDMx
+# MzAzMDlaMHcxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
+# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xITAf
+# BgNVBAMTGE1pY3Jvc29mdCBUaW1lLVN0YW1wIFBDQTCCASIwDQYJKoZIhvcNAQEB
+# BQADggEPADCCAQoCggEBAJ+hbLHf20iSKnxrLhnhveLjxZlRI1Ctzt0YTiQP7tGn
+# 0UytdDAgEesH1VSVFUmUG0KSrphcMCbaAGvoe73siQcP9w4EmPCJzB/LMySHnfL0
+# Zxws/HvniB3q506jocEjU8qN+kXPCdBer9CwQgSi+aZsk2fXKNxGU7CG0OUoRi4n
+# rIZPVVIM5AMs+2qQkDBuh/NZMJ36ftaXs+ghl3740hPzCLdTbVK0RZCfSABKR2YR
+# JylmqJfk0waBSqL5hKcRRxQJgp+E7VV4/gGaHVAIhQAQMEbtt94jRrvELVSfrx54
+# QTF3zJvfO4OToWECtR0Nsfz3m7IBziJLVP/5BcPCIAsCAwEAAaOCAaswggGnMA8G
+# A1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFCM0+NlSRnAK7UD7dvuzK7DDNbMPMAsG
+# A1UdDwQEAwIBhjAQBgkrBgEEAYI3FQEEAwIBADCBmAYDVR0jBIGQMIGNgBQOrIJg
+# QFYnl+UlE/wq4QpTlVnkpKFjpGEwXzETMBEGCgmSJomT8ixkARkWA2NvbTEZMBcG
+# CgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMkTWljcm9zb2Z0IFJvb3Qg
+# Q2VydGlmaWNhdGUgQXV0aG9yaXR5ghB5rRahSqClrUxzWPQHEy5lMFAGA1UdHwRJ
+# MEcwRaBDoEGGP2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1
+# Y3RzL21pY3Jvc29mdHJvb3RjZXJ0LmNybDBUBggrBgEFBQcBAQRIMEYwRAYIKwYB
+# BQUHMAKGOGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
+# b2Z0Um9vdENlcnQuY3J0MBMGA1UdJQQMMAoGCCsGAQUFBwMIMA0GCSqGSIb3DQEB
+# BQUAA4ICAQAQl4rDXANENt3ptK132855UU0BsS50cVttDBOrzr57j7gu1BKijG1i
+# uFcCy04gE1CZ3XpA4le7r1iaHOEdAYasu3jyi9DsOwHu4r6PCgXIjUji8FMV3U+r
+# kuTnjWrVgMHmlPIGL4UD6ZEqJCJw+/b85HiZLg33B+JwvBhOnY5rCnKVuKE5nGct
+# xVEO6mJcPxaYiyA/4gcaMvnMMUp2MT0rcgvI6nA9/4UKE9/CCmGO8Ne4F+tOi3/F
+# NSteo7/rvH0LQnvUU3Ih7jDKu3hlXFsBFwoUDtLaFJj1PLlmWLMtL+f5hYbMUVbo
+# nXCUbKw5TNT2eb+qGHpiKe+imyk0BncaYsk9Hm0fgvALxyy7z0Oz5fnsfbXjpKh0
+# NbhOxXEjEiZ2CzxSjHFaRkMUvLOzsE1nyJ9C/4B5IYCeFTBm6EISXhrIniIh0EPp
+# K+m79EjMLNTYMoBMJipIJF9a6lbvpt6Znco6b72BJ3QGEe52Ib+bgsEnVLaxaj2J
+# oXZhtG6hE6a/qkfwEm/9ijJssv7fUciMI8lmvZ0dhxJkAj0tr1mPuOQh5bWwymO0
+# eFQF1EEuUKyUsKV4q7OglnUa2ZKHE3UiLzKoCG6gW4wlv6DvhMoh1useT8ma7kng
+# 9wFlb4kLfchpyOZu6qeXzjEp/w7FW1zYTRuh2Povnj8uVRZryROj/TGCBMgwggTE
+# AgEBMIGQMHkxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
+# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xIzAh
+# BgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNpZ25pbmcgUENBAhMzAAAAymzVMhI1xOFV
+# AAEAAADKMAkGBSsOAwIaBQCggeEwGQYJKoZIhvcNAQkDMQwGCisGAQQBgjcCAQQw
+# HAYKKwYBBAGCNwIBCzEOMAwGCisGAQQBgjcCARUwIwYJKoZIhvcNAQkEMRYEFJiz
+# f4JawBv4s6ihwSKoeZTRDcAvMIGABgorBgEEAYI3AgEMMXIwcKBSgFAARQBuAHQA
+# aQB0AHkAIABGAHIAYQBtAGUAdwBvAHIAawAgAFQAbwBvAGwAcwAgAGYAbwByACAA
+# VgBpAHMAdQBhAGwAIABTAHQAdQBkAGkAb6EagBhodHRwOi8vbXNkbi5jb20vZGF0
+# YS9lZiAwDQYJKoZIhvcNAQEBBQAEggEAFy52TLBcmieavvWab1nArTK05hXGrx+n
+# qn/Aq3b4WpCD3Kotg6ZcmMDgFoBR3CCxOi8DzXowNjnX4aGMnUgGR8oczgU0DVRN
+# 6e9fIaYthchMgS/bDZEyPZ39H2mSuNPkM4rBiB5K0CkQQgjwEKYCRImwSlnBu0jY
+# nH1J/jF0RnYFZ1uxmY8jpWA/km5kj3fSTwC8CPn24I6H520Cka0CiBGl6iNLRAK+
+# rOokn9Ymw9dbttXINl8WpNCBIR6XBAgBhlyJa6JmTceoXZvIGu1h8KVCWwDv+lKT
+# uRLEKWdVQ5cgNth3csHOUQnBC5FN6TxY9dqozIwcjNUwwOOsqrEW5KGCAigwggIk
+# BgkqhkiG9w0BCQYxggIVMIICEQIBATCBjjB3MQswCQYDVQQGEwJVUzETMBEGA1UE
+# CBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9z
+# b2Z0IENvcnBvcmF0aW9uMSEwHwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQ
+# Q0ECEzMAAABMoehNzLR0ezsAAAAAAEwwCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJ
+# AzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTE0MDYxMTAwMjcxNFowIwYJ
+# KoZIhvcNAQkEMRYEFAMe6WzqHaLPBigGoS/gaG25ANUpMA0GCSqGSIb3DQEBBQUA
+# BIIBAIjoRfbV4BAKmZTIqQHK8YC2BV3xMUlgk7Dg1n4SQ8bHBeqzvHMF7hJL81zJ
+# kmhpg3aH/zDIDRy0yEf0OjvOovaCvlSUq1HaEPAXCF9tNPYSCKY7kMFyoucvXMFV
+# /CIXDZ/CIVecqDuRwwJcVwpX7woBndS6L+ZZ7fD3S5Q+R7OZaLmle0bDLeN7IJoC
+# X3wTU7AfaVUvFJz7GYYa5lC7D3+l4WUiCUJ4uZX08UEPiZrTutPFsFGFH734/OZX
+# yy5Fb1qWTDf/5jhxvtvBI3rLLYYgOZPSZiYqYUK18fIMTPEFCgYaLl0AfcWo2VrN
+# mvqM2HmY0j/IAP02KuuWVK6zWCA=
+# SIG # End signature block

app/packages/System.Data.SQLite.1.0.94.1/System.Data.SQLite.1.0.94.1.nuspec

@@ -0,0 +1,39 @@
+<?xml version="1.0"?>
+<package xmlns="http://schemas.microsoft.com/packaging/2012/06/nuspec.xsd">
+  <metadata>
+    <id>System.Data.SQLite</id>
+    <version>1.0.94.1</version>
+    <title>System.Data.SQLite (x86/x64)</title>
+    <authors>SQLite Development Team</authors>
+    <owners>SQLite Development Team</owners>
+    <licenseUrl>http://www.sqlite.org/copyright.html</licenseUrl>
+    <projectUrl>http://system.data.sqlite.org/</projectUrl>
+    <iconUrl>http://system.data.sqlite.org/images/sqlite128.png</iconUrl>
+    <requireLicenseAcceptance>false</requireLicenseAcceptance>
+    <description>The official SQLite database engine for both x86 and x64 along with the ADO.NET provider.  This package includes support for LINQ and Entity Framework 6.</description>
+    <copyright>Public Domain</copyright>
+    <language>en-US</language>
+    <tags>sqlite database ado.net provider interop</tags>
+    <dependencies>
+      <group targetFramework=".NETFramework2.0">
+        <dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
+        <dependency id="System.Data.SQLite.Linq" version="1.0.94.1" />
+      </group>
+      <group targetFramework=".NETFramework4.0">
+        <dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
+        <dependency id="System.Data.SQLite.Linq" version="1.0.94.1" />
+        <dependency id="System.Data.SQLite.EF6" version="1.0.94.0" />
+      </group>
+      <group targetFramework=".NETFramework4.5">
+        <dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
+        <dependency id="System.Data.SQLite.Linq" version="1.0.94.1" />
+        <dependency id="System.Data.SQLite.EF6" version="1.0.94.0" />
+      </group>
+      <group targetFramework=".NETFramework4.5.1">
+        <dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
+        <dependency id="System.Data.SQLite.Linq" version="1.0.94.1" />
+        <dependency id="System.Data.SQLite.EF6" version="1.0.94.0" />
+      </group>
+    </dependencies>
+  </metadata>
+</package>

app/packages/System.Data.SQLite.Core.1.0.94.0/System.Data.SQLite.Core.1.0.94.0.nuspec

@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+<package xmlns="http://schemas.microsoft.com/packaging/2011/08/nuspec.xsd">
+  <metadata>
+    <id>System.Data.SQLite.Core</id>
+    <version>1.0.94.0</version>
+    <title>System.Data.SQLite Core (x86/x64)</title>
+    <authors>SQLite Development Team</authors>
+    <owners>SQLite Development Team</owners>
+    <licenseUrl>http://www.sqlite.org/copyright.html</licenseUrl>
+    <projectUrl>http://system.data.sqlite.org/</projectUrl>
+    <iconUrl>http://system.data.sqlite.org/images/sqlite128.png</iconUrl>
+    <requireLicenseAcceptance>false</requireLicenseAcceptance>
+    <description>The official SQLite database engine for both x86 and x64 along with the ADO.NET provider.</description>
+    <copyright>Public Domain</copyright>
+    <language>en-US</language>
+    <tags>sqlite database ado.net provider interop</tags>
+  </metadata>
+</package>