Version 2.4.2.6

Global_Indexer.sln

@@ -5,8 +5,6 @@ VisualStudioVersion = 16.0.29728.190
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}"
 EndProject
-Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{5BF6646D-6F46-45E5-8806-8783F030F311}"
-EndProject
 Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}"
 EndProject
 Global
@@ -53,31 +51,6 @@ Global
 		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
 		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Any CPU.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.Build.0 = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Any CPU.ActiveCfg = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Any CPU.Build.0 = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86

Global_Indexer/App.config

@@ -1,11 +1,52 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
   <configSections>
+    <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
+      <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+    </sectionGroup>
   </configSections>
+  <applicationSettings>
+    <DevExpress.LookAndFeel.Design.AppSettings>
+      <setting name="DefaultAppSkin" serializeAs="String">
+        <value>Skin/Office 2019 Colorful</value>
+      </setting>
+      <setting name="DefaultPalette" serializeAs="String">
+        <value>Fire Brick</value>
+      </setting>
+      <setting name="TouchUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="CompactUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="TouchScaleFactor" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DirectX" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="RegisterUserSkins" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="RegisterBonusSkins" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="FontBehavior" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DefaultAppFont" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DPIAwarenessMode" serializeAs="String">
+        <value>System</value>
+      </setting>
+      <setting name="CustomPaletteCollection" serializeAs="Xml">
+        <value />
+      </setting>
+    </DevExpress.LookAndFeel.Design.AppSettings>
+  </applicationSettings>
   <connectionStrings>
-        <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
+    <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
-            connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
-            providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />

Global_Indexer/ClassControls.vb

@@ -50,7 +50,7 @@ Public Class ClassControls
             Return chk
         Catch ex As Exception
             LOGGER.Info("Unhandled Exception in AddCheckBox: " & ex.Message)
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
             Return Nothing
         End Try
     End Function
@@ -59,71 +59,71 @@ Public Class ClassControls
         PrepareDependingControl(sender)
     End Sub
 
-    Public Function AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Multiselect As Boolean, DataType As String, Optional Vorgabe As String = "", Optional AddNewValues As Boolean = False, Optional PreventDuplicateValues As Boolean = False, Optional SQLSuggestion As Boolean = False) As Control
+    'Public Function AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Multiselect As Boolean, DataType As String, Optional Vorgabe As String = "", Optional AddNewValues As Boolean = False, Optional PreventDuplicateValues As Boolean = False, Optional SQLSuggestion As Boolean = False) As Control
-        Try
+    '    Try
-            Dim oSql As String = sql_Vorschlag
+    '        Dim oSql As String = sql_Vorschlag
-            Dim oConnectionString As String
+    '        Dim oConnectionString As String
-            Dim oControl As New DigitalData.Controls.LookupGrid.LookupControl2 With {
+    '        Dim oControl As New DigitalData.Controls.LookupGrid.LookupControl3 With {
-                .MultiSelect = Multiselect,
+    '            .MultiSelect = Multiselect,
-                .AllowAddNewValues = AddNewValues,
+    '            .AllowAddNewValues = AddNewValues,
-                .PreventDuplicates = PreventDuplicateValues,
+    '            .PreventDuplicates = PreventDuplicateValues,
-                .Location = New Point(11, y),
+    '            .Location = New Point(11, y),
-                .Size = New Size(300, 27),
+    '            .Size = New Size(300, 27),
-                .Name = "cmbMulti" & indexname,
+    '            .Name = "cmbMulti" & indexname,
-                .Tag = New ControlMeta() With {
+    '            .Tag = New ControlMeta() With {
-                    .IndexName = indexname,
+    '                .IndexName = indexname,
-                    .IndexType = DataType
+    '                .IndexType = DataType
-                }
+    '            }
-            }
+    '        }
-            oControl.Properties.AppearanceFocused.BackColor = Color.Lime
+    '        oControl.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
 
-            If Not String.IsNullOrEmpty(Vorgabe) Then
+    '        If Not String.IsNullOrEmpty(Vorgabe) Then
-                Dim oDefaultValues As New List(Of String)
+    '            Dim oDefaultValues As New List(Of String)
 
-                If Vorgabe.Contains(",") Then
+    '            If Vorgabe.Contains(",") Then
-                    oDefaultValues = Vorgabe.
+    '                oDefaultValues = Vorgabe.
-                        Split(",").ToList().
+    '                    Split(",").ToList().
-                        Select(Function(item) item.Trim()).
+    '                    Select(Function(item) item.Trim()).
-                        ToList()
+    '                    ToList()
-                Else
+    '            Else
-                    oDefaultValues = Vorgabe.
+    '                oDefaultValues = Vorgabe.
-                        Split(ClassConstants.VECTORSEPARATOR).ToList().
+    '                    Split(ClassConstants.VECTORSEPARATOR).ToList().
-                        Select(Function(item) item.Trim()).
+    '                    Select(Function(item) item.Trim()).
-                        ToList()
+    '                    ToList()
-                End If
+    '            End If
-                oControl.SelectedValues = oDefaultValues
+    '            oControl.SelectedValues = oDefaultValues
-            End If
+    '        End If
 
-            AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
+    '        AddHandler oControl.SelectedValuesChanged, AddressOf Lookup_SelectedValuesChanged
 
-            oConnectionString = ClassFormFunctions.GetConnectionString(conid)
+    '        oConnectionString = ClassFormFunctions.GetConnectionString(conid)
 
-            If oConnectionString IsNot Nothing And oSql.Length > 0 And SQLSuggestion = True Then
+    '        If oConnectionString IsNot Nothing And oSql.Length > 0 And SQLSuggestion = True Then
-                LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
+    '            LOGGER.Debug("Connection String (redacted): [{0}]", oConnectionString.Substring(0, 30))
 
-                If ClassPatterns.HasComplexPatterns(oSql) Then
+    '            If ClassPatterns.HasComplexPatterns(oSql) Then
-                    LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
+    '                LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
-                Else
+    '            Else
-                    oSql = ClassPatterns.ReplaceInternalValues(oSql)
+    '                oSql = ClassPatterns.ReplaceInternalValues(oSql)
-                    oSql = ClassPatterns.ReplaceUserValues(oSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
+    '                oSql = ClassPatterns.ReplaceUserValues(oSql, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_DOKART_ID)
 
-                    Dim oDatatable = ClassDatabase.Return_Datatable_Combined(oSql, oConnectionString, False)
+    '                Dim oDatatable = ClassDatabase.Return_Datatable_Combined(oSql, oConnectionString, False)
-                    oControl.DataSource = oDatatable
+    '                oControl.DataSource = oDatatable
-                End If
+    '            End If
-            Else
+    '        Else
-                LOGGER.Warn("Connection String for control [{0}] is empty!", oControl.Name)
+    '            LOGGER.Warn("Connection String for control [{0}] is empty!", oControl.Name)
-            End If
+    '        End If
 
-            Return oControl
+    '        Return oControl
-        Catch ex As Exception
+    '    Catch ex As Exception
-            LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+    '        LOGGER.Info(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.Message)
+    '        LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
+    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
-            Return Nothing
+    '        Return Nothing
-        End Try
+    '    End Try
-    End Function
+    'End Function
 
-    Private Sub Lookup_SelectedValuesChanged(sender As LookupControl2, SelectedValues As List(Of String))
+    Private Sub Lookup_SelectedValuesChanged(sender As LookupControl3, SelectedValues As List(Of String))
         PrepareDependingControl(sender)
     End Sub
 
@@ -157,7 +157,7 @@ Public Class ClassControls
 
     Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
         Dim cmb As ComboBox = sender
-        cmb.BackColor = Color.Lime
+        cmb.BackColor = Color.FromArgb(255, 214, 49)
     End Sub
 
     Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
@@ -295,7 +295,7 @@ Public Class ClassControls
             End If
         Catch ex As Exception
             LOGGER.Info(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
         End Try
     End Sub
@@ -333,7 +333,7 @@ Public Class ClassControls
 
     Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
         Dim oTextbox As DevExpress.XtraEditors.TextEdit = sender
-        oTextbox.BackColor = Color.Lime
+        oTextbox.BackColor = Color.FromArgb(255, 214, 49)
         oTextbox.SelectAll()
     End Sub
 
@@ -383,7 +383,7 @@ Public Class ClassControls
             oPicker.EditValue = Vorgabe
         End If
 
-        oPicker.Properties.AppearanceFocused.BackColor = Color.Lime
+        oPicker.Properties.AppearanceFocused.BackColor = Color.FromArgb(255, 214, 49)
 
         Return oPicker
     End Function
@@ -474,9 +474,9 @@ Public Class ClassControls
                             DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
                         End If
                     End If
-                Case GetType(LookupControl2).Name
+                Case GetType(LookupControl3).Name
                     LOGGER.Debug("Setting Value for LookupControl [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
-                    DirectCast(oFoundControl, LookupControl2).DataSource = oDatatable
+                    DirectCast(oFoundControl, LookupControl3).Properties.DataSource = oDatatable
                 Case GetType(ComboBox).Name
                     LOGGER.Debug("Setting Value for Combobox [{0}]: [{1}]", oFoundControl.Name, "DATATABLE")
                     DirectCast(oFoundControl, ComboBox).DataSource = oDatatable

Global_Indexer/ClassDatabase.vb

@@ -109,7 +109,7 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
-    Public Shared Function Return_Datatable_CS(sql_command As String, ConString As String, Optional userInput As Boolean = False)
+    Public Shared Function Return_Datatable_CS(sql_command As String, ConString As String, Optional userInput As Boolean = False) As DataTable
         Try
             Dim SQLconnect As New SqlConnection
             Dim SQLcommand As SqlCommand
@@ -138,7 +138,7 @@ Public Class ClassDatabase
                 LOGGER.Info("#SQL: " & sql_command)
             End If
 
-            Return False
+            Return Nothing
         Catch ex As Exception
             If userInput = True Then
                 MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
@@ -268,7 +268,7 @@ Public Class ClassDatabase
             Return result
         Catch ex As Exception
             LOGGER.Info("Unexpected error in OracleExecute_Scalar: " & ex.Message)
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
             LOGGER.Info("#SQL: " & cmdscalar)
             Return Nothing
         End Try

Global_Indexer/ClassEmail.vb

@@ -66,7 +66,7 @@ Public Class ClassEmail
             Return True
         Catch ex As Exception
             LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function

Global_Indexer/ClassEmailHeaderExtractor.vb

@@ -1,112 +1,105 @@
-Imports Independentsoft
+Imports Limilabs.Mail
+Imports Limilabs.Mail.MSG
 Imports System.Text.RegularExpressions
 
 Public Class ClassEmailHeaderExtractor
-    ''' <summary>
+    '''' <summary>
-    ''' Extrahiert die Headerinformationen aus einer .msg Datei mithilfe der MSG.NET Klasse
+    '''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
-    ''' </summary>
+    '''' </summary>
-    ''' <param name="path">Der Pfad einer .msg Datei</param>
+    '''' <param name="msg">Eine Email vom Typ Msg.Message</param>
-    ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
+    '''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
-    Public Shared Function getMessageHeaders(path As String)
+    'Public Shared Function getMessageHeaders(msg As Msg.Message)
-        Try
+    '    Try
-            Dim msg As New Msg.Message(path)
+    '        Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
-            Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
+    '        Return headers
-            Return headers
+    '    Catch ex As Exception
-        Catch ex As Exception
+    '        Return Nothing
-            Return Nothing
+    '    End Try
-        End Try
+    'End Function
-    End Function
 
-    ''' <summary>
+    '''' <summary>
-    ''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse
+    '''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
-    ''' </summary>
+    '''' </summary>
-    ''' <param name="msg">Eine Email vom Typ Msg.Message</param>
+    '''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
-    ''' <returns>Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist.</returns>
+    '''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    Public Shared Function getMessageHeaders(msg As Msg.Message)
+    '''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-        Try
+    '''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-            Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ")
+    'Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-            Return headers
+    '    If IsNothing(messageHeaders) Then
-        Catch ex As Exception
+    '        Return Nothing
-            Return Nothing
+    '    End If
-        End Try
-    End Function
 
-    ''' <summary>
+    '    For Each rx In RegexList
-    ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse.
+    '        Dim match As Match = rx.Match(messageHeaders)
-    ''' </summary>
+    '        Dim email As String = match.Groups(RegexGroup).Value
-    ''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
-    Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(messageHeaders) Then
-            Return Nothing
-        End If
 
-        For Each rx In RegexList
+    '        If Not String.IsNullOrWhiteSpace(email) Then
-            Dim match As Match = rx.Match(messageHeaders)
+    '            Return email
-            Dim email As String = match.Groups(RegexGroup).Value
+    '        End If
+    '    Next
 
-            If Not String.IsNullOrWhiteSpace(email) Then
+    '    Return Nothing
-                Return email
+    'End Function
-            End If
+    'Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
-        Next
+    '    Try
+    '        Dim result = Nothing
+    '        Dim i As Integer = 0
+    '        If IsNothing(messageHeaders) Then
+    '            Return Nothing
+    '        End If
+    '        ' einen Regulären Ausdruck laden
+    '        Dim strRegex As String = Regex
+    '        Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace Or RegexOptions.IgnoreCase)
+    '        Dim strTargetString As String = messageHeaders.Trim
+    '        ' die Vorkommen im String auslesen
+    '        For Each myMatch As Match In myRegex.Matches(strTargetString)
+    '            If myMatch.Success Then
+    '                LOGGER.Debug("Match success. Matched Value: [{0}]", myMatch.Value)
 
-        Return Nothing
+    '                If myMatch.Value <> "" Then
-    End Function
+    '                    If i = 0 Then
-    Public Shared Function extractFromHeader(messageHeaders As String, Regex As String)
+    '                        result = myMatch.Value.ToString
-        Try
+    '                    Else
-            Dim result
+    '                        result = result & ";" & myMatch.Value.ToString
-            Dim i As Integer = 0
+    '                    End If
-            If IsNothing(messageHeaders) Then
+    '                    i += 1
-                Return Nothing
+    '                End If
-            End If
+    '            Else
-            ' einen Regulären Ausdruck laden
+    '                LOGGER.Debug("Match failed!")
-            Dim strRegex As String = Regex
+    '            End If
-            Dim myRegex As New Regex(strRegex, RegexOptions.IgnorePatternWhitespace)
+    '        Next
-            Dim strTargetString As String = messageHeaders.Trim
-            ' die Vorkommen im String auslesen
-            For Each myMatch As Match In myRegex.Matches(strTargetString)
-                If myMatch.Success Then
-                    If myMatch.Value <> "" Then
-                        If i = 0 Then
-                            result = myMatch.Value.ToString
-                        Else
-                            result = result & ";" & myMatch.Value.ToString
-                        End If
-                        i += 1
-                    End If
-                End If
-            Next
-            Return result
-        Catch ex As Exception
-            MsgBox("Unexpected Error in extractFromHeader: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return Nothing
-        End Try
 
-    End Function
+    '        LOGGER.Debug("Extracted value: [{0}]", result)
 
-    ''' <summary>
+    '        Return result
-    ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
+    '    Catch ex As Exception
-    ''' </summary>
+    '        LOGGER.Error(ex)
-    ''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
+    '        MsgBox("Unexpected Error in extractFromHeader: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-    ''' <param name="RegexList">Eine Liste von Regular Expressions</param>
+    '        Return Nothing
-    ''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
+    '    End Try
-    ''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
+    'End Function
-    Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
-        If IsNothing(messageHeaders) Then
-            Return Nothing
-        End If
 
-        For Each rx In RegexList
+    '''' <summary>
-            Dim match As Match = rx.Match(messageHeaders)
+    '''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse.
-            Dim email As String = match.Groups(RegexGroup).Value
+    '''' </summary>
+    '''' <param name="messageHeaders">Headerinformationen die von getMessageHeaders erzeugt wurden.</param>
+    '''' <param name="RegexList">Eine Liste von Regular Expressions</param>
+    '''' <param name="RegexGroup">Die Ergebnisgruppe, die die Adresse enthält</param>
+    '''' <returns>Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte.</returns>
+    'Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    '    If IsNothing(messageHeaders) Then
+    '        Return Nothing
+    '    End If
 
-            If Not String.IsNullOrWhiteSpace(email) Then
+    '    For Each rx In RegexList
-                Return email
+    '        Dim match As Match = rx.Match(messageHeaders)
-            End If
+    '        Dim email As String = match.Groups(RegexGroup).Value
-        Next
 
-        Return Nothing
+    '        If Not String.IsNullOrWhiteSpace(email) Then
-    End Function
+    '            Return email
+    '        End If
+    '    Next
+
+    '    Return Nothing
+    'End Function
 End Class

Global_Indexer/ClassFileDrop.vb

@@ -11,13 +11,13 @@ Public Class ClassFileDrop
 
     Public Shared Function Drop_File(e As DragEventArgs)
         Try
-            LOGGER.Info("Available Drop Formats:")
+            LOGGER.Debug("Available Drop Formats:")
 
             For Each oFormat As String In e.Data.GetFormats()
-                LOGGER.Info(oFormat)
+                LOGGER.Debug(oFormat)
             Next
 
-            LOGGER.Info(">> Drop_File")
+            LOGGER.Info("Drop_File")
             files_dropped = Nothing
             If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                 Dim MyFiles() As String
@@ -26,7 +26,7 @@ Public Class ClassFileDrop
                 MyFiles = e.Data.GetData(DataFormats.FileDrop)
                 ' Loop through the array and add the files to the list. 
                 For i = 0 To MyFiles.Length - 1
-                    LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
+                    LOGGER.Info("Simple FileDrop - File: " & MyFiles(i))
                     ReDim Preserve files_dropped(i)
                     files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
                     ' ListBox1.Items.Add(MyFiles(i))
@@ -53,7 +53,7 @@ Public Class ClassFileDrop
                 Loop
                 stmInput.Close()
                 'Sonderzeichen entfernen
-                Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString)
+                Dim Tempfilename = DigitalData.Modules.Language.Utils.RemoveInvalidCharacters(stbFileName.ToString)
                 Dim anhaenge = e.Data.GetDataPresent("FileContents")
                 'Dim path As String = "C:\VBProjekte\Dateien"
                 '// put the zip file into the temp directory
@@ -85,24 +85,26 @@ Public Class ClassFileDrop
                     If (finTemp.Exists = True) Then
                         ReDim Preserve files_dropped(0)
                         files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
-                        LOGGER.Info(">> Drop an Attachment - File: " & strOutFile)
+                        LOGGER.Info("Drop an Attachment - File: " & strOutFile)
                         Return True
                     Else
-                        LOGGER.Info(">> Attachment File from Outlook could not be created")
+                        LOGGER.Info("Attachment File from Outlook could not be created")
                     End If
                 End If
             End If
             If e.Data.GetDataPresent("FileGroupDescriptor") Then
-                Dim oApp
+                Dim oApp As Outlook.Application
                 Try
                     oApp = New Outlook.Application()
                 Catch ex As Exception
+                    LOGGER.Error(ex)
                     MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
+                    Return False
                 End Try
 
-                LOGGER.Info(">> Drop of msg")
+                LOGGER.Info(" Drop of msg")
                 'supports a drop of a Outlook message 
-                Dim myobj As Object
+                Dim myobj As Outlook.MailItem
                 For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
                     myobj = oApp.ActiveExplorer.Selection.Item(i)
                     Dim subj As String = myobj.Subject
@@ -115,36 +117,44 @@ Public Class ClassFileDrop
                     If subj.Contains("/") Then
                         subj = subj.Replace("/", "-")
                     End If
+
                     'Sonderzeichen entfernen
-                    subj = ClassFilehandle.InvalidCharacters(subj)
+                    subj = DigitalData.Modules.Language.Utils.RemoveInvalidCharacters(subj)
                     'hardcode a destination path for testing
-                    Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
+                    Dim oFilename As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
-                    strFile = strFile.Replace("?", "")
+
-                    strFile = strFile.Replace("!", "")
+                    oFilename = oFilename.Replace("?", "")
-                    strFile = strFile.Replace("%", "")
+                    oFilename = oFilename.Replace("!", "")
-                    strFile = strFile.Replace("$", "")
+                    oFilename = oFilename.Replace("%", "")
-                    LOGGER.Info(">> Drop of msg - File:" & strFile)
+                    oFilename = oFilename.Replace("$", "")
+                    LOGGER.Info("Drop of msg - File:" & oFilename)
                     Try
-                        myobj.SaveAs(strFile)
+                        myobj.SaveAs(oFilename)
                     Catch ex As Exception
-                        MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                        LOGGER.Error(ex)
-                        Return False
+                        MsgBox("Die Email konnte aufgrund einer Sicherheitseinstellung im Outlook nicht abgelegt werden! " &
+                                   "Bitte wenden Sie sich an Ihren Administrator, " &
+                                   "um den programmatischen Zugriff auf Outlook zuzulassen. " &
+                                   "Weitere Informationen finden Sie im Log.", MsgBoxStyle.Critical, "Global Indexer")
                     End Try
 
                     ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
+                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & oFilename
                 Next
+
+
                 Return True
                 'Drop eines Outlook Attachments
             End If
+
         Catch ex As Exception
             MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
 
-
     End Function
 
+
     'Private Sub DragDrop_HandleTobit(e As DragEventArgs)
     '    If e.Data.GetDataPresent("#TobitMsgData") Then
     '        Dim Quellpfad As String = ""

Global_Indexer/ClassFilehandle.vb

@@ -1,46 +1,41 @@
 Imports System.IO
+Imports System.Guid
 Imports System.Text.RegularExpressions
-Imports Independentsoft
+Imports DevExpress.XtraEditors
+Imports DigitalData.Modules.Language
+Imports Limilabs.Mail
 
 Public Class ClassFilehandle
-    ''' <summary>
+    Public Shared Function Decide_FileHandle(pFilename As String, pHandletype As String)
-    ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String
-    ''' die in Dateinamen nicht erlaubt sind.
-    ''' </summary>
-    ''' <param name="Input">Der zu prüfende String</param>
-    ''' <returns>String ohne nichterlaubte Zeichen</returns>
-    Public Shared Function InvalidCharacters(Input As String) As String
-        Dim replacement = ""
-        'Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
-        Dim regexSearch = New String(Path.GetInvalidFileNameChars()) & New String(Path.GetInvalidPathChars())
-        Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
-        Return r.Replace(Input, replacement)
-    End Function
-    Public Shared Function Decide_FileHandle(filename As String, handletype As String)
         Try
-            If filename.EndsWith(".msg") Then
+            If pFilename.ToUpper.EndsWith(".MSG") Or pFilename.ToUpper.EndsWith(".EML") Then
                 CURRENT_MESSAGEID = ""
-                Dim _msg As New Msg.Message(filename)
+                Dim oMail As IMail = EMAIL.Load_Email(pFilename)
-                If _msg.Attachments.Count > 0 Then
+                If oMail.Attachments.Count > 0 Then
-                    Dim result As MsgBoxResult
+                    Dim oTitle As String
+                    Dim oMessage As String
 
                     If USER_LANGUAGE = "de-DE" Then
-                        result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        oTitle = "Nachfrage zur Indexierung:"
+                        oMessage = "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?"
                     Else
-                        result = MessageBox.Show(New Form With {.TopMost = True}, "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                        oTitle = "Question about Indexing:"
+                        oMessage = "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?"
                     End If
+                    Dim oResult As DialogResult
 
-                    If result = MsgBoxResult.Yes Then
+                    ' Weird hack to force messagebox to be topmost
-                        If handletype.StartsWith("|FW") Then
+                    ' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp
-                            Return Email_Decay(filename, True)
+                    oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
-                        Else
+
-                            Return Email_Decay(filename)
+                    If oResult = MsgBoxResult.Yes Then
-                        End If
+                        Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
+                        Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
                     End If
                 End If
             End If
 
-            If filename.ToUpper.EndsWith(".LNK") Then
+            If pFilename.ToUpper.EndsWith(".LNK") Then
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
                 Else
@@ -49,103 +44,166 @@ Public Class ClassFilehandle
                 Return False
             End If
 
-            Return Insert_GI_File(filename, handletype)
+            Return Insert_GI_File(pFilename, pHandletype)
         Catch ex As Exception
             MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
             Return False
         End Try
     End Function
-    Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+
+    Private Shared Function Save_EmailAndAttachmentsToDisk(pEmailFilePath As String, Optional pFolderWatch As Boolean = False) As Boolean
         Try
-            Dim msgonly As String = "|MSGONLY|"
+            Dim oMessageOnlyMarker As String = "|MSGONLY|"
-            Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
+            Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|"
-            If FW = True Then
+            If pFolderWatch = True Then
-                msgonly = "|FW_MSGONLY|"
+                oMessageOnlyMarker = "|FW_MSGONLY|"
-                ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+                oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|"
             End If
-            Dim erfolgreich As Boolean = False
+            Dim oSuccess As Boolean = False
-            Dim msg As New Msg.Message(msgname)
 
-            If Not msg.InternetMessageId Is Nothing Then
+            LOGGER.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath)
-                CURRENT_MESSAGEID = msg.InternetMessageId
+            Dim oEmail As IMail = EMAIL.Load_Email(pEmailFilePath)
+
+            If oEmail.MessageID IsNot Nothing Then
+                CURRENT_MESSAGEID = oEmail.MessageID
             Else
-                LOGGER.Info(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+                LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
-                Dim sGUID As String
+                CURRENT_MESSAGEID = NewGuid.ToString()
-                sGUID = System.Guid.NewGuid.ToString()
-                CURRENT_MESSAGEID = sGUID
             End If
 
-            'Nur die MSGDatei ablegen
+            Dim oEmailFilePathWithoutAttachments = EMAIL.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments")
-            Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+            TEMP_FILES.Add(oEmailFilePathWithoutAttachments)
 
-            If File.Exists(tempfile) Then
+            If Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then
-                File.Delete(tempfile)
+                oSuccess = True
-            End If
-            Dim _msgEXAtt As New Msg.Message(msgname)
-            _msgEXAtt.Attachments.Clear()
-            _msgEXAtt.Save(tempfile)
-            'Datei in Array zum Templöschen speichern
-            TEMP_FILES.Add(tempfile)
 
-            If Insert_GI_File(tempfile, msgonly) = True Then
+                Dim oAttachments As List(Of String) = EMAIL.Save_AttachmentsToDisk(pEmailFilePath)
-                erfolgreich = True
-                'Hier nun die Anhänge herauslösen
-                Dim _msg As New Msg.Message(msgname)
-                Dim i1 As Integer = 1
 
-                LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
+                LOGGER.Debug("Saved [{0}] attachments to disk.", oAttachments.Count)
-                For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+
-                    If erfolgreich = False Then
+                For Each oAttachment In oAttachments
+                    TEMP_FILES.Add(oAttachment)
+                    LOGGER.Debug("Saved attachment [{0}].", oAttachment)
+                    oSuccess = Insert_GI_File(oAttachment, oExtractedAttachmentMarker)
+
+                    If oSuccess = False Then
+                        LOGGER.Warn("Saving attachment to disk failed: [{0}]", oAttachment)
                         Exit For
                     End If
-                    Dim attachment_name As String
-                    If attachment.LongFileName Is Nothing Then
-                        attachment_name = attachment.DisplayName
-                    Else
-                        attachment_name = attachment.LongFileName
-                    End If
-                    If attachment.EmbeddedMessage IsNot Nothing Then
-                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
-                        tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
-                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
-
-                        If tempfile <> String.Empty Then
-                            Dim oMessage = attachment.EmbeddedMessage
-                            oMessage.Save(tempfile)
-                            TEMP_FILES.Add(tempfile)
-                            LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
-                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
-                            i1 += 1
-                        End If
-                    ElseIf Not attachment_name.Contains("inline") Then
-                        'Sonderzeichen entfernen
-                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
-                        tempfile = Path.Combine(Path.GetTempPath, attachment_name)
-                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
-                        If tempfile <> "" Then
-                            attachment.Save(tempfile)
-                            'Datei in Array zum Templöschen speichern
-                            TEMP_FILES.Add(tempfile)
-                            LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
-                            'nun der Insert des Anhanges
-                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
-                            i1 += 1
-                        End If
-                    End If
                 Next
             End If
-            Return erfolgreich
+
+            Return oSuccess
         Catch ex As Exception
-            MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Warn("Saving email to disk failed (Email_Decay)")
+            LOGGER.Error(ex)
+
+            Return False
         End Try
     End Function
 
+    'Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+    '    Try
+    '        Dim msgonly As String = "|MSGONLY|"
+    '        Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
+    '        If FW = True Then
+    '            msgonly = "|FW_MSGONLY|"
+    '            ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+    '        End If
+    '        Dim erfolgreich As Boolean = False
+    '        Dim msg As New MSG.Message(msgname)
+
+    '        If msg.InternetMessageId IsNot Nothing Then
+    '            CURRENT_MESSAGEID = msg.InternetMessageId
+    '        Else
+    '            LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+    '            Dim sGUID As String
+    '            sGUID = System.Guid.NewGuid.ToString()
+    '            CURRENT_MESSAGEID = sGUID
+    '        End If
+
+    '        'Nur die MSGDatei ablegen
+    '        Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+
+    '        If File.Exists(tempfile) Then
+    '            File.Delete(tempfile)
+    '        End If
+    '        Dim _msgEXAtt As New Msg.Message(msgname)
+    '        _msgEXAtt.Attachments.Clear()
+    '        _msgEXAtt.Save(tempfile)
+    '        'Datei in Array zum Templöschen speichern
+    '        TEMP_FILES.Add(tempfile)
+
+    '        If Insert_GI_File(tempfile, msgonly) = True Then
+    '            erfolgreich = True
+    '            'Hier nun die Anhänge herauslösen
+    '            Dim _msg As New Msg.Message(msgname)
+    '            Dim i1 As Integer = 1
+
+    '            LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
+    '            For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+    '                If erfolgreich = False Then
+    '                    Exit For
+    '                End If
+    '                Dim attachment_name As String
+    '                If attachment.LongFileName Is Nothing Then
+    '                    attachment_name = attachment.DisplayName
+    '                Else
+    '                    attachment_name = attachment.LongFileName
+    '                End If
+    '                If attachment.EmbeddedMessage IsNot Nothing Then
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+    '                    If tempfile <> String.Empty Then
+    '                        Dim oMessage = attachment.EmbeddedMessage
+    '                        oMessage.IsEmbedded = False
+    '                        oMessage.Save(tempfile)
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                ElseIf Not attachment_name.Contains("inline") Then
+    '                    'Sonderzeichen entfernen
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name)
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+    '                    If tempfile <> "" Then
+    '                        attachment.Save(tempfile)
+    '                        'Datei in Array zum Templöschen speichern
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        'nun der Insert des Anhanges
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                End If
+    '            Next
+    '        End If
+    '        Return erfolgreich
+    '    Catch ex As Exception
+    '        MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
+    'End Function
+
     Private Shared Function Insert_GI_File(filename As String, handleType As String)
         Try
             filename = filename.Replace("'", "''")
 
+            Dim oHash As String = String.Empty
+
+            If File.Exists(filename) Then
+                If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+                    oHash = FILESYSTEM.GetChecksumFromString(filename)
+                Else
+                    oHash = FILESYSTEM.GetChecksum(filename)
+                End If
+            End If
+
             Dim filename_only As String = Path.GetFileName(filename)
-            Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
+            Dim ins As String = $"INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH) VALUES ('{filename}','{Environment.UserName}','{handleType}','{filename_only}', '{oHash}')"
             Return ClassDatabase.Execute_non_Query(ins, True)
 
         Catch ex As Exception
@@ -157,7 +215,7 @@ Public Class ClassFilehandle
         ' Prüft, ob die angegeben Datei aktuell durch eine
         ' andere Anwendung in Benutzung ist
         Dim ff As Integer = FreeFile()
-        If System.IO.File.Exists(fullFilePath) Then
+        If File.Exists(fullFilePath) Then
             Try
                 ' Versuchen, die Datei mit *exklusiven* Lese- und
                 ' Schreibrechten zu öffnen
@@ -182,7 +240,7 @@ Public Class ClassFilehandle
         Try
             Dim version As Integer = 1
 
-            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname)
+            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname).Trim()
             extension = Path.GetExtension(Dateiname)
 
             Dim _neuername As String = Stammname
@@ -200,7 +258,7 @@ Public Class ClassFilehandle
             Return _NewFileString & extension
         Catch ex As Exception
             LOGGER.Info(" - Error in versioning file - error: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
             Return ""
         End Try

Global_Indexer/ClassFolderWatcher.vb

@@ -1,5 +1,4 @@
 Imports System.IO
-Imports Independentsoft
 Imports System.Threading
 
 Public Class ClassFolderWatcher
@@ -24,7 +23,7 @@ Public Class ClassFolderWatcher
             End If
         Catch ex As Exception
             LOGGER.Info($"Error in Restart_FolderWatch: {ex.Message}")
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
         End Try
     End Function
     Public Shared Function Restart_FolderWatchSCAN()
@@ -44,7 +43,7 @@ Public Class ClassFolderWatcher
             End If
         Catch ex As Exception
             LOGGER.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
-            LOGGER.Error(ex.Message)
+            LOGGER.Error(ex)
         End Try
     End Function
     Public Shared Function StartStop_FolderWatch()
@@ -122,7 +121,7 @@ Public Class ClassFolderWatcher
                 End If
             End If
             If FolderWatcher_SCAN Is Nothing Then
-                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                FolderWatcher_SCAN = New FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
                 LOGGER.Info(" >> FolderWatch Scan Gestartet")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
@@ -134,7 +133,7 @@ Public Class ClassFolderWatcher
             If FolderWatcher_SCAN.EnableRaisingEvents = False Then
                 ' Dim watcher As New FileSystemWatcher()
                 ' watcher.Path = CURRENT_FOLDERWATCH
-                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                FolderWatcher_SCAN = New FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
                 LOGGER.Info(" >> FolderWatch Scan Gestartet")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
@@ -185,20 +184,18 @@ Public Class ClassFolderWatcher
                 End If
             Next
 
-            Dim handleType As String
+            Dim oHandleType As String
             If e.FullPath.ToLower.EndsWith(".msg") Then
-                handleType = "|FW_OUTLOOK_MESSAGE|"
+                oHandleType = "|FW_OUTLOOK_MESSAGE|"
             Else
-                handleType = "|FW_SIMPLEINDEXER|"
+                oHandleType = "|FW_SIMPLEINDEXER|"
             End If
             'Die Datei übergeben
             LOGGER.Info(">> OnCreated-File:" & e.FullPath)
-            If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then
-                ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
-            Else
-                LOGGER.Info(">> Folderwatcher: File already exists:" & e.FullPath)
-            End If
 
+            If ClassIndexFunctions.CheckDuplicateFiles(e.FullPath, "FolderWatch/Scan") Then
+                ClassFilehandle.Decide_FileHandle(e.FullPath, oHandleType)
+            End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
         End Try

Global_Indexer/ClassFormFunctions.vb

@@ -54,7 +54,7 @@ Public Class ClassFormFunctions
 
         Catch ex As Exception
             LOGGER.Info(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
 
         End Try

Global_Indexer/ClassHelper.vb

@@ -14,7 +14,7 @@ Public Class ClassHelper
             Return utf8Encoding.GetString(encodedString)
         Catch ex As Exception
             LOGGER.Info("Unexpected error in encode_utf8: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             Return Nothing
         End Try
 
@@ -28,7 +28,7 @@ Public Class ClassHelper
             Return bytes
         Catch ex As Exception
             LOGGER.Info("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             Return Nothing
         End Try
 
@@ -40,7 +40,7 @@ Public Class ClassHelper
             Return matches.Count
         Catch ex As Exception
             LOGGER.Info("Unexpected error in CheckSpecialSigns: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             Return 0
         End Try
     End Function

Global_Indexer/ClassIndexFunctions.vb

@@ -1,19 +1,86 @@
-
+Imports System.IO
 
 Public Class ClassIndexFunctions
-    Public Shared Function FileExistsinDropTable(Filename As String)
+    Public Shared Function FileExistsinDropTable(pFilename As String, pHandleType As String) As Date
-        Dim check As String
+        Dim oSQL As String
+        Dim oHash As String
+
         Try
-            If Filename.Contains("'") Then
+            If pFilename.Contains("'") Then
-                Filename = Filename.Replace("'", "''")
+                pFilename = pFilename.Replace("'", "''")
             End If
-            check = "SELECT COUNT(*) FROM TBGI_FILES_USER WHERE UPPER(FILENAME2WORK) = UPPER('" & Filename & "') AND WORKED = 0"
+
-            Dim result = ClassDatabase.Execute_Scalar(check, MyConnectionString, True)
+            If pFilename.ToUpper.EndsWith(".MSG") And (pHandleType = "|OUTLOOK_MESSAGE|" Or pHandleType = "|MSGONLY|") Then
-            Return result
+                ' MSG Files cannot be hashed based on filecontents, so we use the filename instead
+                oHash = FILESYSTEM.GetChecksumFromString(pFilename)
+            Else
+                ' If file cannot be accessed, checksum cannot be generated
+                ' In this case, the file should be treated as not yet existing
+                oHash = FILESYSTEM.GetChecksum(pFilename)
+            End If
+
+            If oHash Is Nothing Then
+                LOGGER.Warn("Checksum for file {0} could not be generated. Treating as new file.", pFilename)
+                Return Nothing
+            End If
+
+            'oSQL = "SELECT *  FROM TBGI_FILES_USER WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') AND WORKED = 0 ORDER BY ADDED_WHEN"
+            'Dim oResult As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+
+            'If oResult Is Nothing Then
+            'Return Nothing
+            'End If
+
+            'If oResult.Rows.Count = 0 Then
+            oSQL = "SELECT * FROM TBGI_HISTORY WHERE UPPER(FILE_HASH) = UPPER('" & oHash & "') ORDER BY ADDED_WHEN"
+            Dim oResult = ClassDatabase.Return_Datatable_CS(oSQL, MyConnectionString, True)
+
+            If oResult Is Nothing Then
+                Return Nothing
+            End If
+
+            If oResult.Rows.Count = 0 Then
+                Return Nothing
+            Else
+                Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+                Return oFirstRow.Item("ADDED_WHEN")
+            End If
+            'Else
+            'Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+            'Return oFirstRow.Item("ADDED_WHEN")
+            'End If
         Catch ex As Exception
-            MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & check, MsgBoxStyle.Critical)
+            MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & oSQL, MsgBoxStyle.Critical)
             Return Nothing
         End Try
+    End Function
 
+    Public Shared Function CheckDuplicateFiles(pFilepath As String, pModuleTitle As String, Optional pHandleType As String = "")
+        Dim oFileInfo As New FileInfo(pFilepath)
+        Dim oFilename As String = oFileInfo.Name
+        Dim oFileExists As Date = FileExistsinDropTable(pFilepath, pHandleType)
+
+        If oFileExists.Equals(Date.MinValue) Then
+            Return True
+        Else
+            Dim oResult As DialogResult
+            Dim oDate As String = oFileExists.ToString("d")
+            Dim oBoxTitle = $"GLOBIX - {pModuleTitle}"
+            Dim oMessage As String
+
+            If USER_LANGUAGE = "de-DE" Then
+                oMessage = $"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?"
+            Else
+                oMessage = $"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?"
+            End If
+
+            oResult = MessageBox.Show(oMessage, oBoxTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+
+            If oResult = DialogResult.Yes Then
+                Return True
+            End If
+        End If
+
+        Return False
     End Function
 End Class

Global_Indexer/ClassInit.vb

@@ -1,8 +1,10 @@
 Imports System.ComponentModel
-Imports DLLLicenseManager
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Windream
+Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Messaging
+Imports DLLLicenseManager
 
 Public Class ClassInit
     Public _lizenzManager As ClassLicenseManager
@@ -65,6 +67,9 @@ Public Class ClassInit
         Dim configResult As Boolean
         configResult = Load_BasicConfig()
 
+        FILESYSTEM = New File(LOGCONFIG)
+        EMAIL = New Email2(LOGCONFIG)
+
         If configResult = False Then
             If USER_LANGUAGE = "de-DE" Then
                 Throw New Exception("Unerwarteter Fehler beim Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
@@ -301,7 +306,7 @@ Public Class ClassInit
 
         Catch ex As Exception
             LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
             START_INCOMPLETE = True
         End Try

Global_Indexer/ClassLayout.vb

@@ -81,7 +81,7 @@ Public Class ClassWindowLocation
             Return result
         Catch ex As Exception
             LOGGER.Info("Error in IsVisibleOnAnyScreen: " & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function

Global_Indexer/ClassLicence.vb

@@ -1,4 +1,5 @@
-Imports DLLLicenseManager
+Imports System.Globalization
+Imports DLLLicenseManager
 Public Class ClassLicence
     Public Shared License_Date As Date
     Private Shared _lizenzManager As ClassLicenseManager
@@ -7,21 +8,26 @@ Public Class ClassLicence
             _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
             Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
 
-            Dim lic As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
+            Dim licEncoded As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
-            Dim licString = _lizenzManager.DecodeLicenseKey(lic)
+            Dim licString As String = _lizenzManager.DecodeLicenseKey(licEncoded)
-            Dim split() = licString.ToString.Split("#")
+            Dim licArray() As String = licString.ToString.Split("#")
 
-            If lic <> "" Then
+            If licEncoded <> "" Then
-                LICENSE_COUNT = split(0)
+                LICENSE_COUNT = licArray(0)
             Else
                 LICENSE_COUNT = 0
             End If
-            License_Date = CDate(split(1))
+
-            If CDate(split(1)) < CDate(Now.ToShortDateString) Then
+            LOGGER.Debug("License Date is {0}", licArray(1))
+
+            License_Date = Date.ParseExact(licArray(1), "dd.MM.yyyy", CultureInfo.InvariantCulture)
+            'License_Date = CDate(split(1))
+
+            If License_Date < Now Then
                 If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
+                    MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & licArray(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
                 Else
-                    MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & split(1) & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
+                    MsgBox("Your license has expired!" & vbNewLine & "Last Valid Date: " & licArray(1) & vbNewLine & "Please contact Digital Data", MsgBoxStyle.Exclamation)
                 End If
                 START_INCOMPLETE = True
                 LICENSE_EXPIRED = True
@@ -29,13 +35,14 @@ Public Class ClassLicence
             End If
 
             'tslblLicenses.Text = "Anzahl Lizenzen: " & licenseanzahl
-            LICENSE_DOCTYPE_COUNT = split(2)
+            LICENSE_DOCTYPE_COUNT = licArray(2)
             Try
-                LicenseHotKey = split(3)
+                LicenseHotKey = licArray(3)
             Catch ex As Exception
                 LicenseHotKey = 0
             End Try
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Unexpected error in Licensemanager:")
             START_INCOMPLETE = True
         End Try

Global_Indexer/ClassPatterns.vb

@@ -1,6 +1,7 @@
 Imports System.Text.RegularExpressions
 Imports DevExpress.XtraEditors
 Imports DigitalData.Controls.LookupGrid
+Imports DigitalData.GUIs.GlobalIndexer
 Imports WINDREAMLib
 
 ''' <summary>
@@ -184,7 +185,7 @@ Public Class ClassPatterns
                         Continue For
                     End If
 
-                    Dim oMeta = TryCast(oControl.Tag, ClassControls.ControlMeta)
+                    Dim oMeta = TryCast(oControl.Tag, ControlCreator.ControlMeta)
 
                     LOGGER.Debug("Metadata IndexName: [{0}]", oMeta.IndexName)
                     LOGGER.Debug("Metadata IndexType: [{0}]", oMeta.IndexType)
@@ -223,26 +224,26 @@ Public Class ClassPatterns
                             LOGGER.Error(ex)
                             LOGGER.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
                         End Try
-                    ElseIf TypeOf oFoundControl Is LookupControl2 Then
+                    ElseIf TypeOf oFoundControl Is LookupControl3 Then
                         Try
-                            Dim oLookupControl = DirectCast(oFoundControl, LookupControl2)
+                            Dim oLookupControl = DirectCast(oFoundControl, LookupControl3)
 
-                            If oLookupControl.MultiSelect Then
+                            If oLookupControl.Properties.MultiSelect Then
                                 Select Case oFoundType
                                     Case "INTEGER"
-                                        oValue = String.Join(",", oLookupControl.SelectedValues)
+                                        oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
                                     Case "VARCHAR"
-                                        Dim oWrapped = oLookupControl.SelectedValues
+                                        Dim oWrapped = oLookupControl.Properties.SelectedValues
                                         oValue = String.Join(",", oWrapped)
                                     Case Else
                                         LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
                                 End Select
                             Else
-                                oValue = NotNull(oLookupControl.SelectedValues.Item(0), "")
+                                oValue = NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
                             End If
                         Catch ex As Exception
                             LOGGER.Error(ex)
-                            LOGGER.Warn("Control Value for LookupControl2 [{0}] could not be retrieved!", oFoundControl.Name)
+                            LOGGER.Warn("Control Value for LookupControl3 [{0}] could not be retrieved!", oFoundControl.Name)
                         End Try
                     Else
                         LOGGER.Debug("Unknown Control type for type [{0}], setting value to empty string.", oFoundControl.Name)

Global_Indexer/Global_Indexer.vbproj

@@ -13,6 +13,8 @@
     <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <TargetFrameworkProfile />
     <PublishUrl>publish\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
@@ -25,10 +27,8 @@
     <MapFileExtensions>true</MapFileExtensions>
     <ApplicationRevision>0</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>false</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
-    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -63,7 +63,7 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
+    <ApplicationIcon>Resources\DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup>
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
@@ -157,6 +157,9 @@
     <Reference Include="DigitalData.Controls.LookupGrid">
       <HintPath>..\..\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.GUIs.GlobalIndexer">
+      <HintPath>..\..\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
@@ -164,10 +167,20 @@
       <HintPath>..\..\DDMonorepo\Modules.Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
       <SpecificVersion>False</SpecificVersion>
     </Reference>
+    <Reference Include="DigitalData.Modules.Language, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Logging, Version=2.0.0.1, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.Messaging">
+      <HintPath>..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Windows">
+      <HintPath>..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Windream, Version=1.0.0.5, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\DDMonorepo\Modules.Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
@@ -176,10 +189,6 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Msg, Version=2.0.570.21482, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll</HintPath>
-    </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
       <EmbedInteropTypes>False</EmbedInteropTypes>
@@ -188,9 +197,13 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+    <Reference Include="Mail, Version=3.0.21189.1553, Culture=neutral, PublicKeyToken=6dc438ab78a525b3, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
@@ -198,13 +211,18 @@
     <Reference Include="PresentationCore" />
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Data.Linq" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.DirectoryServices.AccountManagement" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression" />
     <Reference Include="System.Runtime.Remoting" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Transactions" />
     <Reference Include="System.Web.Services" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
@@ -447,12 +465,19 @@
     <EmbeddedResource Include="frmIndex.en-US.resx">
       <DependentUpon>frmIndex.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmIndex.en.resx">
+      <DependentUpon>frmIndex.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmIndex.resx">
       <DependentUpon>frmIndex.vb</DependentUpon>
       <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.en-US.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmIndexFileList.en.resx">
+      <DependentUpon>frmIndexFileList.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
@@ -751,7 +776,12 @@
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
     <Content Include="globe_handdrawn.ico" />
+    <Content Include="MailLicense.xml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Resources\DD_Icons_ICO_GLOBIX_1.ico" />
+    <None Include="Resources\itemtypechecked.svg" />
+    <None Include="Resources\trackingchanges_next.svg" />
     <None Include="Resources\GLOBIX_short.png" />
     <None Include="Resources\Close_16xMD.png" />
     <None Include="Resources\Close_16xLG.png" />

Global_Indexer/MailLicense.xml

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<License>
+  <Id>4dc5ef40-f1a9-468b-994c-b7ed600ad878</Id>
+  <ProductName>Mail.dll</ProductName>
+  <SubscriptionUntil>2022-07-29</SubscriptionUntil>
+  <RegisteredTo>Digital Data GmbH</RegisteredTo>
+  <LicenseType>single developer</LicenseType>
+  <BuyerName>Digital Data GmbH</BuyerName>
+  <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
+    <SignedInfo>
+      <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />
+      <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />
+      <Reference URI="">
+        <Transforms>
+          <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />
+        </Transforms>
+        <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
+        <DigestValue>75MRtl4ipYelIZYlpT8O7QDX9Zc=</DigestValue>
+      </Reference>
+    </SignedInfo>
+    <SignatureValue>Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo=</SignatureValue>
+  </Signature>
+</License>

Global_Indexer/ModuleCURRENT.vb

@@ -1,5 +1,7 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Messaging
 
 Module ModuleCURRENT
     Public ERROR_STATE As String
@@ -7,12 +9,15 @@ Module ModuleCURRENT
     Public CURRENT_FILENAME As String
     Public CURRENT_NEWFILENAME As String
     Public CURRENT_WORKFILE_GUID As Integer
+    Public CURRENT_WORKFILE_HASH As String
     Public CURRENT_WORKFILE As String
     Public CURR_WORKFILE_EXTENSION As String
 
     Public CONFIG As ConfigManager(Of ClassConfig)
     Public LOGCONFIG As LogConfig
     Public LOGGER As Logger
+    Public FILESYSTEM As File
+    Public EMAIL As Email2
 
     Public CURRENT_DOKART_ID As Integer
     Public CURRENT_DOKART_DUPLICATE_HANDLING As String = "Default"

Global_Indexer/My Project/AssemblyInfo.vb

@@ -14,8 +14,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
-<Assembly: AssemblyCopyright("Copyright © 2020")>
+<Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2201")>
+<Assembly: AssemblyTrademark("2420")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.0.0")>
+<Assembly: AssemblyVersion("2.4.2.6")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/My Project/Resources.Designer.vb

@@ -500,6 +500,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property itemtypechecked() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("itemtypechecked", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -610,6 +620,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property trackingchanges_next() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("trackingchanges_next", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Global_Indexer/My Project/Resources.resx

@@ -136,9 +136,6 @@
   <data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="DD_Icons-GLOBIX" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\DD_Icons-GLOBIX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -154,6 +151,9 @@
   <data name="arrow_Forward_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -187,14 +187,17 @@
   <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="trackingchanges_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\trackingchanges_next.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -217,6 +220,9 @@
   <data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -283,7 +289,7 @@
   <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="GLOBIX_short" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

Global_Indexer/MyDataset.Designer.vb

@@ -4556,6 +4556,8 @@ Partial Public Class MyDataset
         
         Private columnSQL_ACTIVE As Global.System.Data.DataColumn
         
+        Private columnSEQUENCE As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Sub New()
@@ -4735,6 +4737,14 @@ Partial Public Class MyDataset
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnSEQUENCE
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -4790,9 +4800,10 @@ Partial Public Class MyDataset
                     ByVal Indexiert As Boolean,  _
                     ByVal Indexwert As String,  _
                     ByVal VALUE As String,  _
-                    ByVal SQL_ACTIVE As Boolean) As VWDDINDEX_AUTOMRow
+                    ByVal SQL_ACTIVE As Boolean,  _
+                    ByVal SEQUENCE As Byte) As VWDDINDEX_AUTOMRow
             Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow)
-            Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE}
+            Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE, SQL_ACTIVE, SEQUENCE}
             rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray
             Me.Rows.Add(rowVWDDINDEX_AUTOMRow)
             Return rowVWDDINDEX_AUTOMRow
@@ -4839,6 +4850,7 @@ Partial Public Class MyDataset
             Me.columnIndexwert = MyBase.Columns("Indexwert")
             Me.columnVALUE = MyBase.Columns("VALUE")
             Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
+            Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -4880,6 +4892,8 @@ Partial Public Class MyDataset
             MyBase.Columns.Add(Me.columnVALUE)
             Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnSQL_ACTIVE)
+            Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnSEQUENCE)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.columnGUID.AllowDBNull = false
             Me.columnGUID.Unique = true
@@ -4904,6 +4918,7 @@ Partial Public Class MyDataset
             Me.columnIndexwert.DefaultValue = CType("",String)
             Me.columnVALUE.MaxLength = 2000
             Me.columnSQL_ACTIVE.AllowDBNull = false
+            Me.columnSEQUENCE.AllowDBNull = false
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5067,6 +5082,8 @@ Partial Public Class MyDataset
         
         Private columnSQL_ACTIVE As Global.System.Data.DataColumn
         
+        Private columnSEQUENCE As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Sub New()
@@ -5206,6 +5223,14 @@ Partial Public Class MyDataset
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnSEQUENCE
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -5243,9 +5268,9 @@ Partial Public Class MyDataset
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As TBDD_INDEX_AUTOMRow
+        Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As TBDD_INDEX_AUTOMRow
             Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE}
+            Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE}
             If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then
                 columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0)
             End If
@@ -5290,6 +5315,7 @@ Partial Public Class MyDataset
             Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
             Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT")
             Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
+            Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5321,6 +5347,8 @@ Partial Public Class MyDataset
             MyBase.Columns.Add(Me.columnSQL_RESULT)
             Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnSQL_ACTIVE)
+            Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnSEQUENCE)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.columnGUID.AutoIncrement = true
             Me.columnGUID.AllowDBNull = false
@@ -5331,6 +5359,7 @@ Partial Public Class MyDataset
             Me.columnINDEXNAME.DefaultValue = CType("Auto-Index wählen",String)
             Me.columnINDEXNAME.MaxLength = 50
             Me.columnVALUE.MaxLength = 2000
+            Me.columnCONNECTION_ID.AllowDBNull = false
             Me.columnCONNECTION_ID.DefaultValue = CType(0,Short)
             Me.columnCOMMENT.MaxLength = 400
             Me.columnACTIVE.AllowDBNull = false
@@ -5338,10 +5367,13 @@ Partial Public Class MyDataset
             Me.columnADDED_WHO.AllowDBNull = false
             Me.columnADDED_WHO.MaxLength = 50
             Me.columnCHANGED_WHO.MaxLength = 50
+            Me.columnSQL_RESULT.AllowDBNull = false
             Me.columnSQL_RESULT.DefaultValue = CType("",String)
             Me.columnSQL_RESULT.MaxLength = 2000
             Me.columnSQL_ACTIVE.AllowDBNull = false
             Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean)
+            Me.columnSEQUENCE.AllowDBNull = false
+            Me.columnSEQUENCE.DefaultValue = CType(0,Byte)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -7752,6 +7784,8 @@ Partial Public Class MyDataset
         
         Private columnFILENAME_ONLY As Global.System.Data.DataColumn
         
+        Private columnFILE_HASH As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Sub New()
@@ -7851,6 +7885,14 @@ Partial Public Class MyDataset
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public ReadOnly Property FILE_HASHColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnFILE_HASH
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -7888,9 +7930,9 @@ Partial Public Class MyDataset
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow
+        Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String, ByVal FILE_HASH As String) As TBGI_FILES_USERRow
             Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY}
+            Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY, FILE_HASH}
             rowTBGI_FILES_USERRow.ItemArray = columnValuesArray
             Me.Rows.Add(rowTBGI_FILES_USERRow)
             Return rowTBGI_FILES_USERRow
@@ -7927,6 +7969,7 @@ Partial Public Class MyDataset
             Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE")
             Me.columnDelete = MyBase.Columns("Delete")
             Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY")
+            Me.columnFILE_HASH = MyBase.Columns("FILE_HASH")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -7950,6 +7993,8 @@ Partial Public Class MyDataset
             MyBase.Columns.Add(Me.columnDelete)
             Me.columnFILENAME_ONLY = New Global.System.Data.DataColumn("FILENAME_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnFILENAME_ONLY)
+            Me.columnFILE_HASH = New Global.System.Data.DataColumn("FILE_HASH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnFILE_HASH)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.columnGUID.AutoIncrement = true
             Me.columnGUID.AutoIncrementSeed = -1
@@ -7963,6 +8008,7 @@ Partial Public Class MyDataset
             Me._columnUSER_WORK.MaxLength = 50
             Me.columnWORKED.AllowDBNull = false
             Me.columnADDED_WHEN.AllowDBNull = false
+            Me.columnHANDLE_TYPE.AllowDBNull = false
             Me.columnHANDLE_TYPE.MaxLength = 50
             Me.columnDelete.DefaultValue = CType(false,Boolean)
             Me.columnFILENAME_ONLY.AllowDBNull = false
@@ -11939,6 +11985,17 @@ Partial Public Class MyDataset
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property SEQUENCE() As Byte
+            Get
+                Return CType(Me(Me.tableVWDDINDEX_AUTOM.SEQUENCEColumn),Byte)
+            End Get
+            Set
+                Me(Me.tableVWDDINDEX_AUTOM.SEQUENCEColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Function IsCOMMENTNull() As Boolean
@@ -12127,11 +12184,7 @@ Partial Public Class MyDataset
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Property CONNECTION_ID() As Short
             Get
-                Try 
                 Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short)
-                Catch e As Global.System.InvalidCastException
-                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
-                End Try
             End Get
             Set
                 Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value
@@ -12224,11 +12277,7 @@ Partial Public Class MyDataset
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Property SQL_RESULT() As String
             Get
-                Try 
                 Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String)
-                Catch e As Global.System.InvalidCastException
-                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_RESULT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e)
-                End Try
             End Get
             Set
                 Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value
@@ -12246,6 +12295,17 @@ Partial Public Class MyDataset
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Property SEQUENCE() As Byte
+            Get
+                Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn),Byte)
+            End Get
+            Set
+                Me(Me.tableTBDD_INDEX_AUTOM.SEQUENCEColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
@@ -12269,18 +12329,6 @@ Partial Public Class MyDataset
             Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull
         End Sub
         
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Function IsCONNECTION_IDNull() As Boolean
-            Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn)
-        End Function
-        
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Sub SetCONNECTION_IDNull()
-            Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Global.System.Convert.DBNull
-        End Sub
-        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Function IsCOMMENTNull() As Boolean
@@ -12328,18 +12376,6 @@ Partial Public Class MyDataset
         Public Sub SetCHANGED_WHENNull()
             Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull
         End Sub
-        
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Function IsSQL_RESULTNull() As Boolean
-            Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn)
-        End Function
-        
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Sub SetSQL_RESULTNull()
-            Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull
-        End Sub
     End Class
     
     '''<summary>
@@ -13499,11 +13535,7 @@ Partial Public Class MyDataset
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
         Public Property HANDLE_TYPE() As String
             Get
-                Try 
                 Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String)
-                Catch e As Global.System.InvalidCastException
-                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HANDLE_TYPE in Tabelle TBGI_FILES_USER ist DBNull.", e)
-                End Try
             End Get
             Set
                 Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value
@@ -13538,15 +13570,18 @@ Partial Public Class MyDataset
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
-        Public Function IsHANDLE_TYPENull() As Boolean
+        Public Property FILE_HASH() As String
-            Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn)
+            Get
-        End Function
+                Try 
-        
+                    Return CType(Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn),String)
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+                Catch e As Global.System.InvalidCastException
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+                    Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILE_HASH in Tabelle TBGI_FILES_USER ist DBNull.", e)
-        Public Sub SetHANDLE_TYPENull()
+                End Try
-            Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull
+            End Get
-        End Sub
+            Set
+                Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = value
+            End Set
+        End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
@@ -13559,6 +13594,18 @@ Partial Public Class MyDataset
         Public Sub SetDeleteNull()
             Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull
         End Sub
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Function IsFILE_HASHNull() As Boolean
+            Return Me.IsNull(Me.tableTBGI_FILES_USER.FILE_HASHColumn)
+        End Function
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        Public Sub SetFILE_HASHNull()
+            Me(Me.tableTBGI_FILES_USER.FILE_HASHColumn) = Global.System.Convert.DBNull
+        End Sub
     End Class
     
     '''<summary>
@@ -17955,6 +18002,7 @@ Namespace MyDatasetTableAdapters
             tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
             tableMapping.ColumnMappings.Add("VALUE", "VALUE")
             tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
+            tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
             Me._adapter.TableMappings.Add(tableMapping)
         End Sub
         
@@ -17973,8 +18021,8 @@ Namespace MyDatasetTableAdapters
             Me._commandCollection(0).Connection = Me.Connection
             Me._commandCollection(0).CommandText = "SELECT        GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ 
                 "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ 
-                "SULT, VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            VWDDINDEX_AU"& _ 
+                "SULT, VALUE, SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            VW"& _ 
-                "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (DOCTYPE_ID = @DOCTYPE)"
+                "DDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (DOCTYPE_ID = @DOCTYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub
@@ -18146,20 +18194,50 @@ Namespace MyDatasetTableAdapters
             tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
             tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
             tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
+            tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
-            Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID)"
+            Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID]"& _ 
+                " = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_V"& _ 
+                "ALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_I"& _ 
+                "D] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _ 
+                "R ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED"& _ 
+                "_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ 
+                "LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND "& _ 
+                "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _ 
+                "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _ 
+                "NGED_WHEN)) AND ([SQL_RESULT] = @Original_SQL_RESULT) AND ([SQL_ACTIVE] = @Origi"& _ 
+                "nal_SQL_ACTIVE))"
             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
-            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INDEXNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_VALUE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
+            Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.InsertCommand.Connection = Me.Connection
             Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         (DOCTYPE_ID, INDEXNAME, VA"& _ 
-                "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ 
+                "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ 
-                "       (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ 
+                "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@DOCTYPE_ID,@INDEXNAME,"& _ 
-                ",@SQL_RESULT,@SQL_ACTIVE);  "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT"& _ 
+                "@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHAN"& _ 
-                "ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R"& _ 
+                "GED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAM"& _ 
-                "ESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())"
+                "E, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ 
+                "ANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDE"& _ 
+                "NTITY()) ORDER BY SEQUENCE"
             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -18168,17 +18246,23 @@ Namespace MyDatasetTableAdapters
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.UpdateCommand.Connection = Me.Connection
             Me._adapter.UpdateCommand.CommandText = "UPDATE       TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET                DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ 
                 "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ 
-                "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         "& _ 
+                "MMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         ADDE"& _ 
-                "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Origin"& _ 
+                "D_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, "& _ 
-                "al_GUID);  "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, "& _ 
+                "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ 
-                "ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I"& _ 
+                "       (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CON"& _ 
-                "NDEX_AUTOM WHERE (GUID = @GUID)"
+                "NECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ 
+                "QL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUEN"& _ 
+                "CE"
             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -18186,9 +18270,13 @@ Namespace MyDatasetTableAdapters
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
         End Sub
@@ -18207,8 +18295,9 @@ Namespace MyDatasetTableAdapters
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(0).Connection = Me.Connection
             Me._commandCollection(0).CommandText = "SELECT        GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ 
-                " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ 
+                " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUE"& _ 
-                "           TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (DOCTYPE_ID = @DOCTYPE_ID)"
+                "NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (DOCTYPE_ID = @DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ 
+                "ORDER BY SEQUENCE"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub
@@ -18271,8 +18360,62 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
-        Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
+        Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_DOCTYPE_ID As Integer, ByVal Original_INDEXNAME As String, ByVal Original_VALUE As String, ByVal Original_CONNECTION_ID As Short, ByVal Original_COMMENT As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SQL_RESULT As String, ByVal Original_SQL_ACTIVE As Boolean) As Integer
             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
+            Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_DOCTYPE_ID,Integer)
+            If (Original_INDEXNAME Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("Original_INDEXNAME")
+            Else
+                Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_INDEXNAME,String)
+            End If
+            If (Original_VALUE Is Nothing) Then
+                Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
+                Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
+                Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_VALUE,String)
+            End If
+            Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CONNECTION_ID,Short)
+            If (Original_COMMENT Is Nothing) Then
+                Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
+                Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
+                Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_COMMENT,String)
+            End If
+            Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE,Boolean)
+            If (Original_ADDED_WHO Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
+            Else
+                Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String)
+            End If
+            If (Original_ADDED_WHEN.HasValue = true) Then
+                Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
+                Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date)
+            Else
+                Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
+                Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
+            End If
+            If (Original_CHANGED_WHO Is Nothing) Then
+                Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object)
+                Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object)
+                Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String)
+            End If
+            If (Original_CHANGED_WHEN.HasValue = true) Then
+                Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
+                Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date)
+            Else
+                Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
+                Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
+            End If
+            If (Original_SQL_RESULT Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("Original_SQL_RESULT")
+            Else
+                Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_SQL_RESULT,String)
+            End If
+            Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_SQL_ACTIVE,Boolean)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -18292,7 +18435,7 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
-        Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer
+        Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte) As Integer
             Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
             If (INDEXNAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18304,11 +18447,7 @@ Namespace MyDatasetTableAdapters
             Else
                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String)
             End If
-            If (CONNECTION_ID.HasValue = true) Then
+            Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short)
-                Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short)
-            Else
-                Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
-            End If
             If (COMMENT Is Nothing) Then
                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
             Else
@@ -18320,12 +18459,28 @@ Namespace MyDatasetTableAdapters
             Else
                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String)
             End If
-            If (SQL_RESULT Is Nothing) Then
+            If (ADDED_WHEN.HasValue = true) Then
-                Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
+                Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date)
             Else
-                Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT,String)
+                Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
             End If
-            Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean)
+            If (CHANGED_WHO Is Nothing) Then
+                Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String)
+            End If
+            If (CHANGED_WHEN.HasValue = true) Then
+                Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date)
+            Else
+                Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
+            End If
+            If (SQL_RESULT Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("SQL_RESULT")
+            Else
+                Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_RESULT,String)
+            End If
+            Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
+            Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -18345,7 +18500,7 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
-        Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
+        Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal SEQUENCE As Byte, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
             If (INDEXNAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18357,30 +18512,42 @@ Namespace MyDatasetTableAdapters
             Else
                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String)
             End If
-            If (CONNECTION_ID.HasValue = true) Then
+            Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short)
-                Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short)
-            Else
-                Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
-            End If
             If (COMMENT Is Nothing) Then
                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
             Else
                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String)
             End If
             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean)
-            If (CHANGED_WHO Is Nothing) Then
+            If (ADDED_WHO Is Nothing) Then
-                Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
+                Throw New Global.System.ArgumentNullException("ADDED_WHO")
             Else
-                Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String)
+                Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String)
+            End If
+            If (ADDED_WHEN.HasValue = true) Then
+                Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date)
+            Else
+                Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
+            End If
+            If (CHANGED_WHO Is Nothing) Then
+                Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
+            Else
+                Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String)
+            End If
+            If (CHANGED_WHEN.HasValue = true) Then
+                Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date)
+            Else
+                Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
             End If
             If (SQL_RESULT Is Nothing) Then
-                Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
+                Throw New Global.System.ArgumentNullException("SQL_RESULT")
             Else
-                Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT,String)
+                Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_RESULT,String)
             End If
-            Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean)
+            Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
-            Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
-            Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -20422,6 +20589,7 @@ Namespace MyDatasetTableAdapters
             tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
             tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE")
             tableMapping.ColumnMappings.Add("FILENAME_ONLY", "FILENAME_ONLY")
+            tableMapping.ColumnMappings.Add("FILE_HASH", "FILE_HASH")
             Me._adapter.TableMappings.Add(tableMapping)
         End Sub
         
@@ -20439,8 +20607,8 @@ Namespace MyDatasetTableAdapters
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(0).Connection = Me.Connection
             Me._commandCollection(0).CommandText = "SELECT        GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FI"& _ 
-                "LENAME_ONLY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (WORKED = 0) AND (UPP"& _ 
+                "LENAME_ONLY, FILE_HASH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBGI_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (WORKED = "& _ 
-                "ER(USER@WORK) = UPPER(@USERNAME))"
+                "0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub

Global_Indexer/MyDataset.vb

@@ -1,6 +1,9 @@
 
 
 Partial Public Class MyDataset
+    Partial Public Class TBDD_INDEX_AUTOMDataTable
+    End Class
+
     Partial Public Class TBDD_INDEX_MANDataTable
     End Class
 

Global_Indexer/MyDataset.xsd

@@ -591,15 +591,16 @@ WHERE        (DOK_ID = @DokID)</CommandText>
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWDDINDEX_AUTOMTableAdapter" GeneratorDataComponentClassName="VWDDINDEX_AUTOMTableAdapter" Name="VWDDINDEX_AUTOM" UserDataComponentName="VWDDINDEX_AUTOMTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWDDINDEX_AUTOM" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.VWDDINDEX_AUTOM" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>SELECT        GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, VALUE, 
+                    <CommandText>SELECT        GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, VALUE, SQL_ACTIVE, 
-                         SQL_ACTIVE
+                         SEQUENCE
 FROM            VWDDINDEX_AUTOM
-WHERE        (DOCTYPE_ID = @DOCTYPE)</CommandText>
+WHERE        (DOCTYPE_ID = @DOCTYPE)
+ORDER BY SEQUENCE</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.VWDDINDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM_TEST.dbo.VWDDINDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </SelectCommand>
@@ -622,69 +623,95 @@ WHERE        (DOCTYPE_ID = @DOCTYPE)</CommandText>
               <Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
               <Mapping SourceColumn="VALUE" DataSetColumn="VALUE" />
               <Mapping SourceColumn="SQL_ACTIVE" DataSetColumn="SQL_ACTIVE" />
+              <Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
             </Mappings>
             <Sources />
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_INDEX_AUTOMTableAdapter" GeneratorDataComponentClassName="TBDD_INDEX_AUTOMTableAdapter" Name="TBDD_INDEX_AUTOM" UserDataComponentName="TBDD_INDEX_AUTOMTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_AUTOM" 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">
+              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_INDEX_AUTOM" 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 TBDD_INDEX_AUTOM
+                    <CommandText>DELETE FROM [TBDD_INDEX_AUTOM] WHERE (([GUID] = @Original_GUID) AND ([DOCTYPE_ID] = @Original_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ((@IsNull_VALUE = 1 AND [VALUE] IS NULL) OR ([VALUE] = @Original_VALUE)) AND ([CONNECTION_ID] = @Original_CONNECTION_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([SQL_RESULT] = @Original_SQL_RESULT) AND ([SQL_ACTIVE] = @Original_SQL_ACTIVE))</CommandText>
-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" />
+                      <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="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_VALUE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="VALUE" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@Original_CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_COMMENT" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
                   </DbCommand>
                 </DeleteCommand>
                 <InsertCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>INSERT INTO TBDD_INDEX_AUTOM
-                         (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)
+                         (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)
-VALUES        (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@SQL_RESULT,@SQL_ACTIVE);  
+VALUES        (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); 
-SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())</CommandText>
+SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>SELECT        GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE
+                    <CommandText>SELECT        GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE
 FROM            TBDD_INDEX_AUTOM
-WHERE        (DOCTYPE_ID = @DOCTYPE_ID)</CommandText>
+WHERE        (DOCTYPE_ID = @DOCTYPE_ID)
+ORDER BY SEQUENCE</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM_TEST.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </SelectCommand>
                 <UpdateCommand>
-                  <DbCommand CommandType="Text" ModifiedByUser="true">
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>UPDATE       TBDD_INDEX_AUTOM
-SET                DOCTYPE_ID = @DOCTYPE_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @COMMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, 
+SET                DOCTYPE_ID = @DOCTYPE_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @COMMENT, ACTIVE = @ACTIVE, ADDED_WHO = @ADDED_WHO, 
-                         SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE
+                         ADDED_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE
 WHERE        (GUID = @Original_GUID); 
-SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)</CommandText>
+SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUENCE</CommandText>
                     <Parameters>
-                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="DOCTYPE_ID" ColumnName="DOCTYPE_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="INDEXNAME" ColumnName="INDEXNAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@INDEXNAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="INDEXNAME" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="VALUE" ColumnName="VALUE" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(400)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="400" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="true" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHEN" ColumnName="ADDED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" 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="true" AutogeneratedName="CHANGED_WHEN" ColumnName="CHANGED_WHEN" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_AUTOM" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_ACTIVE" ColumnName="SQL_ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SQL_ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SQL_ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="" DataTypeServer="tinyint" DbType="Byte" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="TinyInt" Scale="0" Size="1" SourceColumn="SEQUENCE" 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>
@@ -704,6 +731,7 @@ SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED
               <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
               <Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
               <Mapping SourceColumn="SQL_ACTIVE" DataSetColumn="SQL_ACTIVE" />
+              <Mapping SourceColumn="SEQUENCE" DataSetColumn="SEQUENCE" />
             </Mappings>
             <Sources />
           </TableAdapter>
@@ -1054,10 +1082,10 @@ WHERE        (USER_ID = @USER_ID) ORDER BY NAME</CommandText>
           </TableAdapter>
           <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_FILES_USERTableAdapter" GeneratorDataComponentClassName="TBGI_FILES_USERTableAdapter" Name="TBGI_FILES_USER" UserDataComponentName="TBGI_FILES_USERTableAdapter">
             <MainSource>
-              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_FILES_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
+              <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBGI_FILES_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
-                    <CommandText>SELECT        GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY
+                    <CommandText>SELECT        GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH
 FROM            TBGI_FILES_USER
 WHERE        (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText>
                     <Parameters>
@@ -1075,6 +1103,7 @@ WHERE        (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText
               <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
               <Mapping SourceColumn="HANDLE_TYPE" DataSetColumn="HANDLE_TYPE" />
               <Mapping SourceColumn="FILENAME_ONLY" DataSetColumn="FILENAME_ONLY" />
+              <Mapping SourceColumn="FILE_HASH" DataSetColumn="FILE_HASH" />
             </Mappings>
             <Sources />
           </TableAdapter>
@@ -1764,6 +1793,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
                 </xs:simpleType>
               </xs:element>
               <xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" />
+              <xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
@@ -1786,7 +1816,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" default="0" minOccurs="0" />
+              <xs:element name="CONNECTION_ID" msprop:Generator_ColumnVarNameInTable="columnCONNECTION_ID" msprop:Generator_ColumnPropNameInRow="CONNECTION_ID" msprop:Generator_ColumnPropNameInTable="CONNECTION_IDColumn" msprop:Generator_UserColumnName="CONNECTION_ID" type="xs:short" default="0" />
               <xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
@@ -1811,7 +1841,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
                 </xs:simpleType>
               </xs:element>
               <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
-              <xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT" default="" minOccurs="0">
+              <xs:element name="SQL_RESULT" msprop:Generator_ColumnVarNameInTable="columnSQL_RESULT" msprop:Generator_ColumnPropNameInRow="SQL_RESULT" msprop:Generator_ColumnPropNameInTable="SQL_RESULTColumn" msprop:Generator_UserColumnName="SQL_RESULT" default="">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="2000" />
@@ -1819,6 +1849,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
                 </xs:simpleType>
               </xs:element>
               <xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" default="false" />
+              <xs:element name="SEQUENCE" msprop:Generator_ColumnVarNameInTable="columnSEQUENCE" msprop:Generator_ColumnPropNameInRow="SEQUENCE" msprop:Generator_ColumnPropNameInTable="SEQUENCEColumn" msprop:Generator_UserColumnName="SEQUENCE" type="xs:unsignedByte" default="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>
@@ -2140,7 +2171,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
               </xs:element>
               <xs:element name="WORKED" msprop:Generator_ColumnVarNameInTable="columnWORKED" msprop:Generator_ColumnPropNameInRow="WORKED" msprop:Generator_ColumnPropNameInTable="WORKEDColumn" msprop:Generator_UserColumnName="WORKED" type="xs:boolean" />
               <xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
-              <xs:element name="HANDLE_TYPE" msprop:Generator_ColumnVarNameInTable="columnHANDLE_TYPE" msprop:Generator_ColumnPropNameInRow="HANDLE_TYPE" msprop:Generator_ColumnPropNameInTable="HANDLE_TYPEColumn" msprop:Generator_UserColumnName="HANDLE_TYPE" minOccurs="0">
+              <xs:element name="HANDLE_TYPE" msprop:Generator_ColumnVarNameInTable="columnHANDLE_TYPE" msprop:Generator_ColumnPropNameInRow="HANDLE_TYPE" msprop:Generator_ColumnPropNameInTable="HANDLE_TYPEColumn" msprop:Generator_UserColumnName="HANDLE_TYPE">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="50" />
@@ -2155,6 +2186,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
+              <xs:element name="FILE_HASH" msprop:Generator_ColumnVarNameInTable="columnFILE_HASH" msprop:Generator_ColumnPropNameInRow="FILE_HASH" msprop:Generator_ColumnPropNameInTable="FILE_HASHColumn" msprop:Generator_UserColumnName="FILE_HASH" type="xs:string" minOccurs="0" />
             </xs:sequence>
           </xs:complexType>
         </xs:element>

Global_Indexer/MyDataset.xss

@@ -4,30 +4,30 @@
      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="-11" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="251" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:TBDD_USER" ZOrder="10" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_USER" ZOrder="12" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="12" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
+    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="14" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
-    <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="16" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="17" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
     <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="29" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
     <Shape ID="DesignTable:TBDD_MODULES" ZOrder="28" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="5" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="3" X="456" Y="638" Height="360" Width="244" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
     <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="27" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="8" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
+    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="11" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
     <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="25" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="9" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="2" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="22" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="17" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="4" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="3" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="7" X="719" Y="25" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="2" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="6" X="135" Y="27" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="4" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="8" X="1040" Y="71" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="11" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
+    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="13" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="14" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="1" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="1" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
+    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="5" X="120" Y="153" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="7" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="10" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
     <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="23" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
     <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="19" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <Shape ID="DesignTable:TBAD_Users" ZOrder="13" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
+    <Shape ID="DesignTable:TBAD_Users" ZOrder="15" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
   </Shapes>
   <Connectors>
     <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11">
@@ -106,7 +106,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="15" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>397</X>
@@ -118,7 +118,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="6" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="9" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/Resources/itemtypechecked.svg

@@ -0,0 +1,30 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.Red{fill:#D11C1C;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+</style>
+  <g id="ItemTypeChecked">
+    <g>
+      <g>
+        <rect x="20" y="8" width="10" height="4" rx="0" ry="0" class="Black" />
+        <rect x="20" y="22" width="10" height="4" rx="0" ry="0" class="Black" />
+        <path d="M15,18H3c-0.5,0-1,0.5-1,1v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V19C16,18.5,15.5,18,15,18z M14,30H4V20     h10V30z" class="Black" />
+        <path d="M14,10.8V14H4V4h8.2l2-2H3C2.5,2,2,2.5,2,3v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V8.8L14,10.8z" class="Black" />
+      </g>
+      <g>
+        <rect x="20" y="8" width="10" height="4" rx="0" ry="0" class="Black" />
+        <rect x="20" y="22" width="10" height="4" rx="0" ry="0" class="Black" />
+        <path d="M15,18H3c-0.5,0-1,0.5-1,1v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V19C16,18.5,15.5,18,15,18z M14,30H4V20     h10V30z" class="Black" />
+        <path d="M14,10.8V14H4V4h8.2l2-2H3C2.5,2,2,2.5,2,3v12c0,0.5,0.5,1,1,1h12c0.5,0,1-0.5,1-1V8.8L14,10.8z" class="Black" />
+      </g>
+    </g>
+    <polygon points="6,5 6,8 10,12 18,4 18,1 10,9  " class="Green" />
+  </g>
+</svg>

Global_Indexer/Resources/trackingchanges_next.svg

@@ -0,0 +1,14 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#3575BB;}
+	.Black{fill:#737374;}
+	.White{fill:#FFFFFF;}
+	.Yellow{fill:#FCB01B;}
+	.Red{fill:#D02027;}
+	.Green{fill:#129C49;}
+	.st0{opacity:0.5;}
+</style>
+  <path d="M31,2H11c-0.5,0-1,0.5-1,1v9h2V4h18v24H12v-8h-2v9c0,0.5,0.5,1,1,1h20c0.5,0,1-0.5,1-1V3C32,2.5,31.5,2,31,2z  " class="Black" />
+  <polygon points="4,14 14,14 14,8 22,16 14,24 14,18 4,18 " class="Blue" />
+</svg>

Global_Indexer/frmAdministration.Designer.vb

@@ -45,6 +45,7 @@ Partial Class frmAdministration
         Dim COMMENTLabel2 As System.Windows.Forms.Label
         Dim IDXMAN_IDLabel As System.Windows.Forms.Label
         Dim GUIDLabel5 As System.Windows.Forms.Label
+        Dim Label12 As System.Windows.Forms.Label
         Dim GUIDLabel4 As System.Windows.Forms.Label
         Dim INDEXNAMELabel As System.Windows.Forms.Label
         Dim COMMENTLabel1 As System.Windows.Forms.Label
@@ -142,6 +143,7 @@ Partial Class frmAdministration
         Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.MyDataset = New Global_Indexer.MyDataset()
         Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colAKTIV = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.colBEZEICHNUNG = New DevExpress.XtraGrid.Columns.GridColumn()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
@@ -180,9 +182,11 @@ Partial Class frmAdministration
         Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPageManualIndex = New DevExpress.XtraTab.XtraTabPage()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox()
+        Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.txtManIndexSQL = New System.Windows.Forms.TextBox()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.lbManIndexDefaultValueParameter = New System.Windows.Forms.ListBox()
-        Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox()
         Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
         Me.VKT_PREVENT_MULTIPLE_VALUESCheckbox = New System.Windows.Forms.CheckBox()
@@ -229,7 +233,9 @@ Partial Class frmAdministration
         Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox()
         Me.GUIDTextBox4 = New System.Windows.Forms.TextBox()
         Me.XtraTabPageAutoIndex = New DevExpress.XtraTab.XtraTabPage()
+        Me.txtAutomIndexConnectionId = New System.Windows.Forms.TextBox()
         Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.txtAutomIndexSQLResult = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.ListBoxControl4 = New DevExpress.XtraEditors.ListBoxControl()
         Me.btnAddWindowsVariable = New System.Windows.Forms.Button()
@@ -239,6 +245,7 @@ Partial Class frmAdministration
         Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox()
         Me.btnSQLViewAuto = New System.Windows.Forms.Button()
         Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
         Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox()
         Me.VALUETextBox = New System.Windows.Forms.TextBox()
         Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox()
@@ -302,10 +309,6 @@ Partial Class frmAdministration
         Me.TBGI_REGEX_DOCTYPETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPage8 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.txtManIndexConnectionId = New System.Windows.Forms.TextBox()
-        Me.txtManIndexSQL = New System.Windows.Forms.TextBox()
-        Me.txtAutomIndexConnectionId = New System.Windows.Forms.TextBox()
-        Me.txtAutomIndexSQLResult = New System.Windows.Forms.TextBox()
         GUIDLabel = New System.Windows.Forms.Label()
         GUIDLabel1 = New System.Windows.Forms.Label()
         NAMELabel = New System.Windows.Forms.Label()
@@ -327,6 +330,7 @@ Partial Class frmAdministration
         COMMENTLabel2 = New System.Windows.Forms.Label()
         IDXMAN_IDLabel = New System.Windows.Forms.Label()
         GUIDLabel5 = New System.Windows.Forms.Label()
+        Label12 = New System.Windows.Forms.Label()
         GUIDLabel4 = New System.Windows.Forms.Label()
         INDEXNAMELabel = New System.Windows.Forms.Label()
         COMMENTLabel1 = New System.Windows.Forms.Label()
@@ -1009,7 +1013,7 @@ Partial Class frmAdministration
         Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
         Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Khaki
         Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
-        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG})
+        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colAKTIV, Me.colBEZEICHNUNG})
         Me.GridView1.GridControl = Me.GridControl1
         Me.GridView1.Name = "GridView1"
         Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
@@ -1022,6 +1026,12 @@ Partial Class frmAdministration
         Me.GridView1.OptionsView.ShowColumnHeaders = False
         Me.GridView1.OptionsView.ShowGroupPanel = False
         '
+        'colAKTIV
+        '
+        resources.ApplyResources(Me.colAKTIV, "colAKTIV")
+        Me.colAKTIV.FieldName = "AKTIV"
+        Me.colAKTIV.Name = "colAKTIV"
+        '
         'colBEZEICHNUNG
         '
         resources.ApplyResources(Me.colBEZEICHNUNG, "colBEZEICHNUNG")
@@ -1335,6 +1345,31 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Name = "Panel1"
         '
+        'txtManIndexConnectionId
+        '
+        Me.txtManIndexConnectionId.BackColor = System.Drawing.SystemColors.Control
+        Me.txtManIndexConnectionId.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtManIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CONNECTION_ID", True))
+        resources.ApplyResources(Me.txtManIndexConnectionId, "txtManIndexConnectionId")
+        Me.txtManIndexConnectionId.ForeColor = System.Drawing.SystemColors.Control
+        Me.txtManIndexConnectionId.Name = "txtManIndexConnectionId"
+        Me.txtManIndexConnectionId.TabStop = False
+        '
+        'TBDD_INDEX_MANBindingSource
+        '
+        Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
+        Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
+        '
+        'txtManIndexSQL
+        '
+        Me.txtManIndexSQL.BackColor = System.Drawing.SystemColors.Control
+        Me.txtManIndexSQL.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtManIndexSQL.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SQL_RESULT", True))
+        resources.ApplyResources(Me.txtManIndexSQL, "txtManIndexSQL")
+        Me.txtManIndexSQL.ForeColor = System.Drawing.SystemColors.Control
+        Me.txtManIndexSQL.Name = "txtManIndexSQL"
+        Me.txtManIndexSQL.TabStop = False
+        '
         'Button3
         '
         Me.Button3.Image = Global.Global_Indexer.My.Resources.Resources.arrow_previous_16xLG
@@ -1349,11 +1384,6 @@ Partial Class frmAdministration
         Me.lbManIndexDefaultValueParameter.Items.AddRange(New Object() {resources.GetString("lbManIndexDefaultValueParameter.Items"), resources.GetString("lbManIndexDefaultValueParameter.Items1"), resources.GetString("lbManIndexDefaultValueParameter.Items2"), resources.GetString("lbManIndexDefaultValueParameter.Items3"), resources.GetString("lbManIndexDefaultValueParameter.Items4"), resources.GetString("lbManIndexDefaultValueParameter.Items5"), resources.GetString("lbManIndexDefaultValueParameter.Items6"), resources.GetString("lbManIndexDefaultValueParameter.Items7"), resources.GetString("lbManIndexDefaultValueParameter.Items8")})
         Me.lbManIndexDefaultValueParameter.Name = "lbManIndexDefaultValueParameter"
         '
-        'TBDD_INDEX_MANBindingSource
-        '
-        Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN"
-        Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset
-        '
         'ACTIVECheckBox
         '
         Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True))
@@ -1799,7 +1829,9 @@ Partial Class frmAdministration
         Me.XtraTabPageAutoIndex.Controls.Add(Me.INDEXNAME_AutoIndexCMB)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.btnSQLViewAuto)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.SQL_ACTIVECheckBox)
+        Me.XtraTabPageAutoIndex.Controls.Add(Label12)
         Me.XtraTabPageAutoIndex.Controls.Add(GUIDLabel4)
+        Me.XtraTabPageAutoIndex.Controls.Add(Me.TextBox8)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.GUIDAUTO_INDEXTextbox)
         Me.XtraTabPageAutoIndex.Controls.Add(INDEXNAMELabel)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.VALUETextBox)
@@ -1819,11 +1851,31 @@ Partial Class frmAdministration
         Me.XtraTabPageAutoIndex.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
         Me.XtraTabPageAutoIndex.Name = "XtraTabPageAutoIndex"
         '
+        'txtAutomIndexConnectionId
+        '
+        Me.txtAutomIndexConnectionId.BackColor = System.Drawing.SystemColors.Control
+        Me.txtAutomIndexConnectionId.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtAutomIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CONNECTION_ID", True))
+        resources.ApplyResources(Me.txtAutomIndexConnectionId, "txtAutomIndexConnectionId")
+        Me.txtAutomIndexConnectionId.ForeColor = System.Drawing.SystemColors.Control
+        Me.txtAutomIndexConnectionId.Name = "txtAutomIndexConnectionId"
+        Me.txtAutomIndexConnectionId.TabStop = False
+        '
         'TBDD_INDEX_AUTOMBindingSource
         '
         Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM"
         Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset
         '
+        'txtAutomIndexSQLResult
+        '
+        Me.txtAutomIndexSQLResult.BackColor = System.Drawing.SystemColors.Control
+        Me.txtAutomIndexSQLResult.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtAutomIndexSQLResult.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_RESULT", True))
+        resources.ApplyResources(Me.txtAutomIndexSQLResult, "txtAutomIndexSQLResult")
+        Me.txtAutomIndexSQLResult.ForeColor = System.Drawing.SystemColors.Control
+        Me.txtAutomIndexSQLResult.Name = "txtAutomIndexSQLResult"
+        Me.txtAutomIndexSQLResult.TabStop = False
+        '
         'Label6
         '
         resources.ApplyResources(Me.Label6, "Label6")
@@ -1883,11 +1935,22 @@ Partial Class frmAdministration
         Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox"
         Me.SQL_ACTIVECheckBox.UseVisualStyleBackColor = True
         '
+        'Label12
+        '
+        resources.ApplyResources(Label12, "Label12")
+        Label12.Name = "Label12"
+        '
         'GUIDLabel4
         '
         resources.ApplyResources(GUIDLabel4, "GUIDLabel4")
         GUIDLabel4.Name = "GUIDLabel4"
         '
+        'TextBox8
+        '
+        Me.TextBox8.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SEQUENCE", True))
+        resources.ApplyResources(Me.TextBox8, "TextBox8")
+        Me.TextBox8.Name = "TextBox8"
+        '
         'GUIDAUTO_INDEXTextbox
         '
         Me.GUIDAUTO_INDEXTextbox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True))
@@ -2402,46 +2465,6 @@ Partial Class frmAdministration
         Me.RibbonPage8.Name = "RibbonPage8"
         resources.ApplyResources(Me.RibbonPage8, "RibbonPage8")
         '
-        'txtManIndexConnectionId
-        '
-        Me.txtManIndexConnectionId.BackColor = System.Drawing.SystemColors.Control
-        Me.txtManIndexConnectionId.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtManIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CONNECTION_ID", True))
-        resources.ApplyResources(Me.txtManIndexConnectionId, "txtManIndexConnectionId")
-        Me.txtManIndexConnectionId.ForeColor = System.Drawing.SystemColors.Control
-        Me.txtManIndexConnectionId.Name = "txtManIndexConnectionId"
-        Me.txtManIndexConnectionId.TabStop = False
-        '
-        'txtManIndexSQL
-        '
-        Me.txtManIndexSQL.BackColor = System.Drawing.SystemColors.Control
-        Me.txtManIndexSQL.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtManIndexSQL.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SQL_RESULT", True))
-        resources.ApplyResources(Me.txtManIndexSQL, "txtManIndexSQL")
-        Me.txtManIndexSQL.ForeColor = System.Drawing.SystemColors.Control
-        Me.txtManIndexSQL.Name = "txtManIndexSQL"
-        Me.txtManIndexSQL.TabStop = False
-        '
-        'txtAutomIndexConnectionId
-        '
-        Me.txtAutomIndexConnectionId.BackColor = System.Drawing.SystemColors.Control
-        Me.txtAutomIndexConnectionId.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtAutomIndexConnectionId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CONNECTION_ID", True))
-        resources.ApplyResources(Me.txtAutomIndexConnectionId, "txtAutomIndexConnectionId")
-        Me.txtAutomIndexConnectionId.ForeColor = System.Drawing.SystemColors.Control
-        Me.txtAutomIndexConnectionId.Name = "txtAutomIndexConnectionId"
-        Me.txtAutomIndexConnectionId.TabStop = False
-        '
-        'txtAutomIndexSQLResult
-        '
-        Me.txtAutomIndexSQLResult.BackColor = System.Drawing.SystemColors.Control
-        Me.txtAutomIndexSQLResult.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtAutomIndexSQLResult.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_RESULT", True))
-        resources.ApplyResources(Me.txtAutomIndexSQLResult, "txtAutomIndexSQLResult")
-        Me.txtAutomIndexSQLResult.ForeColor = System.Drawing.SystemColors.Control
-        Me.txtAutomIndexSQLResult.Name = "txtAutomIndexSQLResult"
-        Me.txtAutomIndexSQLResult.TabStop = False
-        '
         'frmAdministration
         '
         Me.Appearance.Options.UseFont = True
@@ -2755,4 +2778,6 @@ Partial Class frmAdministration
     Friend WithEvents txtManIndexSQL As TextBox
     Friend WithEvents txtAutomIndexConnectionId As TextBox
     Friend WithEvents txtAutomIndexSQLResult As TextBox
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents colAKTIV As DevExpress.XtraGrid.Columns.GridColumn
 End Class

Global_Indexer/frmAdministration.resx

@@ -307,7 +307,7 @@
     <value>170</value>
   </data>
   <data name="gridAvailableGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 239</value>
+    <value>1072, 246</value>
   </data>
   <data name="gridAvailableGroups.TabIndex" type="System.Int32, mscorlib">
     <value>88</value>
@@ -358,7 +358,7 @@
     <value>Panel2</value>
   </data>
   <data name="SplitContainerControl2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 554</value>
+    <value>1072, 561</value>
   </data>
   <data name="SplitContainerControl2.TabIndex" type="System.Int32, mscorlib">
     <value>88</value>
@@ -1049,13 +1049,13 @@
     <value>Grundeinstellungen</value>
   </data>
   <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1310, 158</value>
+    <value>1310, 157</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 772</value>
+    <value>0, 774</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1310, 24</value>
+    <value>1310, 22</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -1184,7 +1184,7 @@
     <value>150</value>
   </data>
   <data name="gridAvailableUsers.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 270</value>
+    <value>1072, 277</value>
   </data>
   <data name="gridAvailableUsers.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -1238,7 +1238,7 @@
     <value>Panel2</value>
   </data>
   <data name="SplitContainerControl5.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 554</value>
+    <value>1072, 561</value>
   </data>
   <data name="SplitContainerControl5.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -1259,13 +1259,13 @@
     <value>Fill</value>
   </data>
   <data name="SplitContainerControl4.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 158</value>
+    <value>0, 157</value>
   </data>
   <metadata name="TBDD_DOKUMENTARTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>244, 17</value>
+    <value>127, 17</value>
   </metadata>
   <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>134, 17</value>
+    <value>17, 17</value>
   </metadata>
   <data name="GridControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -1291,6 +1291,15 @@
   <data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 30</value>
   </data>
+  <data name="colAKTIV.Caption" xml:space="preserve">
+    <value>Aktiv</value>
+  </data>
+  <data name="colAKTIV.Visible" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="colAKTIV.VisibleIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
   <data name="colBEZEICHNUNG.Caption" xml:space="preserve">
     <value>Profil</value>
   </data>
@@ -1298,13 +1307,13 @@
     <value>True</value>
   </data>
   <data name="colBEZEICHNUNG.VisibleIndex" type="System.Int32, mscorlib">
-    <value>0</value>
+    <value>1</value>
   </data>
   <data name="colBEZEICHNUNG.Width" type="System.Int32, mscorlib">
     <value>277</value>
   </data>
   <data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>224, 584</value>
+    <value>224, 587</value>
   </data>
   <data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
     <value>93</value>
@@ -2237,13 +2246,13 @@
     <value>Bottom</value>
   </data>
   <data name="XtraTabControl2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 276</value>
+    <value>0, 281</value>
   </data>
   <data name="XtraTabPageManualIndex.AutoScroll" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
   <metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
+    <value>457, 56</value>
   </metadata>
   <data name="txtManIndexConnectionId.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -3210,7 +3219,7 @@ der Datei</value>
     <value>150, 0</value>
   </data>
   <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>922, 278</value>
+    <value>922, 280</value>
   </data>
   <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
     <value>96</value>
@@ -3234,7 +3243,7 @@ der Datei</value>
     <value>0, 0</value>
   </data>
   <data name="ListBoxControl3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>150, 278</value>
+    <value>150, 280</value>
   </data>
   <data name="ListBoxControl3.TabIndex" type="System.Int32, mscorlib">
     <value>95</value>
@@ -3269,7 +3278,7 @@ der Datei</value>
 </value>
   </data>
   <data name="XtraTabPageManualIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 278</value>
+    <value>1072, 280</value>
   </data>
   <data name="XtraTabPageManualIndex.Text" xml:space="preserve">
     <value>manuelle Indexe</value>
@@ -3296,7 +3305,7 @@ der Datei</value>
     <value>True</value>
   </data>
   <metadata name="TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>511, 173</value>
+    <value>1121, 95</value>
   </metadata>
   <data name="ListBox1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Left</value>
@@ -3305,7 +3314,7 @@ der Datei</value>
     <value>0, 0</value>
   </data>
   <data name="ListBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>150, 278</value>
+    <value>150, 280</value>
   </data>
   <data name="ListBox1.TabIndex" type="System.Int32, mscorlib">
     <value>97</value>
@@ -3383,7 +3392,7 @@ der Datei</value>
     <value>2</value>
   </data>
   <metadata name="TBWHDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1187, 173</value>
+    <value>17, 134</value>
   </metadata>
   <data name="ComboBox2.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -4202,7 +4211,7 @@ der Datei</value>
 </value>
   </data>
   <data name="XtraTabPageManualIndexFunctions.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 278</value>
+    <value>1072, 280</value>
   </data>
   <data name="XtraTabPageManualIndexFunctions.Text" xml:space="preserve">
     <value>Nachbearbeitungsfunktionen manueller Index</value>
@@ -4229,7 +4238,7 @@ der Datei</value>
     <value>True</value>
   </data>
   <metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 173</value>
+    <value>627, 95</value>
   </metadata>
   <data name="txtAutomIndexConnectionId.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -4314,7 +4323,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>0, 0</value>
   </data>
   <data name="ListBoxControl4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>150, 278</value>
+    <value>150, 280</value>
   </data>
   <data name="ListBoxControl4.TabIndex" type="System.Int32, mscorlib">
     <value>90</value>
@@ -4541,6 +4550,42 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
   <data name="&gt;&gt;SQL_ACTIVECheckBox.ZOrder" xml:space="preserve">
     <value>10</value>
   </data>
+  <metadata name="Label12.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+  <data name="Label12.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="Label12.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt, style=Italic</value>
+  </data>
+  <data name="Label12.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Label12.Location" type="System.Drawing.Point, System.Drawing">
+    <value>268, 69</value>
+  </data>
+  <data name="Label12.Size" type="System.Drawing.Size, System.Drawing">
+    <value>72, 15</value>
+  </data>
+  <data name="Label12.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="Label12.Text" xml:space="preserve">
+    <value>Reihenfolge:</value>
+  </data>
+  <data name="&gt;&gt;Label12.Name" xml:space="preserve">
+    <value>Label12</value>
+  </data>
+  <data name="&gt;&gt;Label12.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label12.Parent" xml:space="preserve">
+    <value>XtraTabPageAutoIndex</value>
+  </data>
+  <data name="&gt;&gt;Label12.ZOrder" xml:space="preserve">
+    <value>11</value>
+  </data>
   <metadata name="GUIDLabel4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
   </metadata>
@@ -4572,7 +4617,31 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;GUIDLabel4.ZOrder" xml:space="preserve">
-    <value>11</value>
+    <value>12</value>
+  </data>
+  <data name="TextBox8.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Tahoma, 8.25pt</value>
+  </data>
+  <data name="TextBox8.Location" type="System.Drawing.Point, System.Drawing">
+    <value>271, 86</value>
+  </data>
+  <data name="TextBox8.Size" type="System.Drawing.Size, System.Drawing">
+    <value>90, 21</value>
+  </data>
+  <data name="TextBox8.TabIndex" type="System.Int32, mscorlib">
+    <value>5</value>
+  </data>
+  <data name="&gt;&gt;TextBox8.Name" xml:space="preserve">
+    <value>TextBox8</value>
+  </data>
+  <data name="&gt;&gt;TextBox8.Type" xml:space="preserve">
+    <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;TextBox8.Parent" xml:space="preserve">
+    <value>XtraTabPageAutoIndex</value>
+  </data>
+  <data name="&gt;&gt;TextBox8.ZOrder" xml:space="preserve">
+    <value>13</value>
   </data>
   <data name="GUIDAUTO_INDEXTextbox.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt</value>
@@ -4596,7 +4665,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;GUIDAUTO_INDEXTextbox.ZOrder" xml:space="preserve">
-    <value>12</value>
+    <value>14</value>
   </data>
   <metadata name="INDEXNAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -4626,7 +4695,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;INDEXNAMELabel.ZOrder" xml:space="preserve">
-    <value>13</value>
+    <value>15</value>
   </data>
   <data name="VALUETextBox.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -4650,7 +4719,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;VALUETextBox.ZOrder" xml:space="preserve">
-    <value>14</value>
+    <value>16</value>
   </data>
   <metadata name="COMMENTLabel1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -4680,7 +4749,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;COMMENTLabel1.ZOrder" xml:space="preserve">
-    <value>15</value>
+    <value>17</value>
   </data>
   <data name="COMMENTTextBox1.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -4704,7 +4773,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;COMMENTTextBox1.ZOrder" xml:space="preserve">
-    <value>16</value>
+    <value>18</value>
   </data>
   <data name="ACTIVECheckBox1.Location" type="System.Drawing.Point, System.Drawing">
     <value>163, 44</value>
@@ -4728,7 +4797,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;ACTIVECheckBox1.ZOrder" xml:space="preserve">
-    <value>17</value>
+    <value>19</value>
   </data>
   <metadata name="ADDED_WHOLabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -4761,7 +4830,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;ADDED_WHOLabel3.ZOrder" xml:space="preserve">
-    <value>18</value>
+    <value>20</value>
   </data>
   <data name="ADDED_WHOTextBox3.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9pt, style=Italic</value>
@@ -4785,7 +4854,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;ADDED_WHOTextBox3.ZOrder" xml:space="preserve">
-    <value>19</value>
+    <value>21</value>
   </data>
   <metadata name="ADDED_WHENLabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -4818,7 +4887,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;ADDED_WHENLabel3.ZOrder" xml:space="preserve">
-    <value>20</value>
+    <value>22</value>
   </data>
   <data name="ADDED_WHENTextBox3.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9pt, style=Italic</value>
@@ -4842,7 +4911,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;ADDED_WHENTextBox3.ZOrder" xml:space="preserve">
-    <value>21</value>
+    <value>23</value>
   </data>
   <metadata name="CHANGED_WHOLabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -4875,7 +4944,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;CHANGED_WHOLabel3.ZOrder" xml:space="preserve">
-    <value>22</value>
+    <value>24</value>
   </data>
   <data name="CHANGED_WHOTextBox3.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9pt, style=Italic</value>
@@ -4899,7 +4968,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;CHANGED_WHOTextBox3.ZOrder" xml:space="preserve">
-    <value>23</value>
+    <value>25</value>
   </data>
   <metadata name="CHANGED_WHENLabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>
@@ -4932,7 +5001,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;CHANGED_WHENLabel3.ZOrder" xml:space="preserve">
-    <value>24</value>
+    <value>26</value>
   </data>
   <data name="CHANGED_WHENTextBox3.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9pt, style=Italic</value>
@@ -4956,7 +5025,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;CHANGED_WHENTextBox3.ZOrder" xml:space="preserve">
-    <value>25</value>
+    <value>27</value>
   </data>
   <data name="INDEXNAME_AutoIndexTXT.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
@@ -4980,7 +5049,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>XtraTabPageAutoIndex</value>
   </data>
   <data name="&gt;&gt;INDEXNAME_AutoIndexTXT.ZOrder" xml:space="preserve">
-    <value>26</value>
+    <value>28</value>
   </data>
   <data name="XtraTabPageAutoIndex.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
@@ -5004,7 +5073,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
 </value>
   </data>
   <data name="XtraTabPageAutoIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 278</value>
+    <value>1072, 280</value>
   </data>
   <data name="XtraTabPageAutoIndex.Text" xml:space="preserve">
     <value>automatische/feste Indexe</value>
@@ -5441,7 +5510,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
 </value>
   </data>
   <data name="XtraTabPageFolderPath.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 278</value>
+    <value>1072, 280</value>
   </data>
   <data name="XtraTabPageFolderPath.Text" xml:space="preserve">
     <value>Dynamischer Ordnerpfad</value>
@@ -5573,7 +5642,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>3</value>
   </data>
   <metadata name="TBGI_REGEX_DOCTYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 290</value>
+    <value>1396, 134</value>
   </metadata>
   <data name="TextBox2.Location" type="System.Drawing.Point, System.Drawing">
     <value>867, 162</value>
@@ -5896,7 +5965,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
 </value>
   </data>
   <data name="XtraTabPageProfileRegex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 278</value>
+    <value>1072, 280</value>
   </data>
   <data name="XtraTabPageProfileRegex.Text" xml:space="preserve">
     <value>Automatische Profilauswahl</value>
@@ -6328,7 +6397,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>3, 4, 3, 4</value>
   </data>
   <data name="XtraTabPageProfiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 582</value>
+    <value>1074, 587</value>
   </data>
   <data name="XtraTabPageProfiles.Text" xml:space="preserve">
     <value>Profil-Verwaltung</value>
@@ -6346,7 +6415,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>0</value>
   </data>
   <data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1076, 614</value>
+    <value>1076, 617</value>
   </data>
   <data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>
@@ -6385,7 +6454,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
 </value>
   </data>
   <data name="tabPageUsers.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 554</value>
+    <value>1072, 561</value>
   </data>
   <data name="tabPageUsers.Text" xml:space="preserve">
     <value>Gruppen-Zuordnung</value>
@@ -6403,7 +6472,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>1</value>
   </data>
   <data name="XtraTabControl3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 582</value>
+    <value>1074, 587</value>
   </data>
   <data name="XtraTabControl3.TabIndex" type="System.Int32, mscorlib">
     <value>89</value>
@@ -6433,7 +6502,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
 </value>
   </data>
   <data name="tabPageGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1072, 554</value>
+    <value>1072, 561</value>
   </data>
   <data name="tabPageGroups.Text" xml:space="preserve">
     <value>Benutzer-Zuordnung</value>
@@ -6485,7 +6554,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>3, 4, 3, 4</value>
   </data>
   <data name="XtraTabPageUsersGroups.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1074, 582</value>
+    <value>1074, 587</value>
   </data>
   <data name="XtraTabPageUsersGroups.Text" xml:space="preserve">
     <value>Profil-Zuordnung</value>
@@ -6518,7 +6587,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>Panel2</value>
   </data>
   <data name="SplitContainerControl4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1310, 614</value>
+    <value>1310, 617</value>
   </data>
   <data name="SplitContainerControl4.TabIndex" type="System.Int32, mscorlib">
     <value>4</value>
@@ -6536,70 +6605,70 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>0</value>
   </data>
   <metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
+    <value>17, 95</value>
   </metadata>
   <metadata name="TBDD_EINGANGSARTENBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1192, 17</value>
+    <value>804, 17</value>
   </metadata>
   <metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>635, 95</value>
+    <value>921, 56</value>
   </metadata>
   <metadata name="VWGI_DOCTYPE_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>506, 251</value>
+    <value>1132, 134</value>
   </metadata>
   <metadata name="TBDD_MODULESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1025, 56</value>
-  </metadata>
-  <metadata name="TBDD_DOKART_MODULEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>494, 56</value>
-  </metadata>
-  <metadata name="VWGI_USER_GROUPS_RELATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>755, 212</value>
-  </metadata>
-  <metadata name="TBGI_CONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1019, 95</value>
-  </metadata>
-  <metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>499, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>748, 17</value>
-  </metadata>
-  <metadata name="TBDD_EINGANGSARTENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>
   </metadata>
+  <metadata name="TBDD_DOKART_MODULEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1325, 17</value>
+  </metadata>
+  <metadata name="VWGI_USER_GROUPS_RELATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>521, 134</value>
+  </metadata>
+  <metadata name="TBGI_CONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1305, 56</value>
+  </metadata>
+  <metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>382, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>631, 17</value>
+  </metadata>
+  <metadata name="TBDD_EINGANGSARTENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1067, 17</value>
+  </metadata>
   <metadata name="TBDD_DOKART_MODULETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>762, 56</value>
+    <value>1593, 17</value>
   </metadata>
   <metadata name="TBDD_MODULESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1248, 56</value>
+    <value>240, 56</value>
   </metadata>
   <metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>252, 95</value>
+    <value>692, 56</value>
   </metadata>
   <metadata name="TBDD_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>830, 95</value>
+    <value>1116, 56</value>
   </metadata>
   <metadata name="TBGI_CONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1276, 95</value>
+    <value>1562, 56</value>
   </metadata>
   <metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>946, 134</value>
+    <value>325, 95</value>
   </metadata>
   <metadata name="TBDD_INDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>267, 173</value>
+    <value>877, 95</value>
   </metadata>
   <metadata name="TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>852, 173</value>
+    <value>1462, 95</value>
   </metadata>
   <metadata name="TBWHDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 212</value>
+    <value>272, 134</value>
   </metadata>
   <metadata name="VWGI_USER_GROUPS_RELATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1063, 212</value>
+    <value>829, 134</value>
   </metadata>
   <metadata name="TBGI_REGEX_DOCTYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>271, 290</value>
+    <value>17, 173</value>
   </metadata>
   <data name="RibbonPage2.Text" xml:space="preserve">
     <value>RibbonPage2</value>
@@ -6611,7 +6680,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
     <value>True</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>201</value>
+    <value>115</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
     <value>7, 17</value>
@@ -7018,6 +7087,12 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
   <data name="&gt;&gt;GridView1.Type" xml:space="preserve">
     <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;colAKTIV.Name" xml:space="preserve">
+    <value>colAKTIV</value>
+  </data>
+  <data name="&gt;&gt;colAKTIV.Type" xml:space="preserve">
+    <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;colBEZEICHNUNG.Name" xml:space="preserve">
     <value>colBEZEICHNUNG</value>
   </data>

Global_Indexer/frmAdministration.vb

@@ -9,6 +9,8 @@ Public Class frmAdministration
     Private SourceAttributes As List(Of String)
     Private SourceObjectTypes As List(Of String)
 
+    Private Current_ObjectType As String = ""
+
     Private GroupToDelete As Integer = Nothing
     Private IsInsert As Boolean = False
     Dim frmloaded As Boolean = False
@@ -61,10 +63,15 @@ Public Class frmAdministration
         ComboBox3.DataSource = oDatatable
 
         Try
-            Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
+            'Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
+            Load_Dokart()
+            LOGGER.Debug("...Done Load_Dokart")
             Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
+            LOGGER.Debug("...Done TBDD_EINGANGSARTEN")
             Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
+            LOGGER.Debug("...Done TBDD_MODULES")
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
         If IDB_ACTIVE = False Then
@@ -300,6 +307,8 @@ Public Class frmAdministration
     Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
         If WINDREAM_DIRECTCheckBox.Checked = True Then
             load_WDIndices()
+
+            Current_ObjectType = OBJEKTTYPComboBox.Text
         End If
     End Sub
     Sub load_WDIndices()
@@ -309,14 +318,14 @@ Public Class frmAdministration
                 Me.WD_INDEXComboBox.Items.Add("")
                 Me.INDEXNAME_AutoIndexCMB.Items.Clear()
 
-                If SourceAttributes Is Nothing Then
+                If SourceAttributes Is Nothing Or Current_ObjectType <> OBJEKTTYPComboBox.Text Then
                     SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
                 End If
 
                 If SourceAttributes IsNot Nothing Then
-                    For Each index As String In SourceAttributes
+                    For Each oIndex As String In SourceAttributes
-                        Me.WD_INDEXComboBox.Items.Add(index)
+                        Me.WD_INDEXComboBox.Items.Add(oIndex)
-                        INDEXNAME_AutoIndexCMB.Items.Add(index)
+                        INDEXNAME_AutoIndexCMB.Items.Add(oIndex)
                     Next
                 End If
             End If
@@ -426,6 +435,34 @@ Public Class frmAdministration
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Man Index: ")
         End Try
     End Sub
+
+    Sub Save_Regex()
+        If Not IsInsert Then
+            TextBox4.Text = Environment.UserName
+        End If
+
+        Try
+            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+        Catch ex As Exception
+            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            Exit Sub
+        End Try
+
+        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
+            Try
+                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+            Catch ex As Exception
+                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            End Try
+            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
+            SetStatus("Profilzuordnung gespeichert!")
+        Else
+            ClearStatus()
+        End If
+
+        IsInsert = False
+    End Sub
+
     Sub Save_IndexAuto()
         Try
             Me.TBDD_INDEX_AUTOMBindingSource.EndEdit()
@@ -787,25 +824,6 @@ Public Class frmAdministration
                     Case 7 : value = "$Usercode"
                 End Select
 
-                'Select Case lbFileparameter.SelectedItem.ToString.ToUpper
-                '    Case "Dateiname (mit Endung)".ToUpper
-                '        value = "$filename_ext"
-                '    Case "Dateiname (ohne Endung)".ToUpper
-                '        value = "$filename"
-                '    Case "Dateiendung".ToUpper
-                '        value = "$extension"
-                '    Case "Datei Erstelldatum".ToUpper
-                '        value = "$FileCreateDate"
-                '    Case "Datei Erstellt wer".ToUpper
-                '        value = "$FileCreatedWho"
-                '    Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
-                '        value = "$DateDDMMYYY"
-                '    Case "Username"
-                '        value = "$Username"
-                '    Case "Usercode"
-                '        value = "$Usercode"
-                'End Select
-
                 If value <> "" Then
                     VALUETextBox.Text = value
                     Save_IndexAuto()
@@ -1036,30 +1054,7 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem13_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
-        If Not IsInsert Then
+        Save_Regex()
-            TextBox4.Text = Environment.UserName
-        End If
-
-        Try
-            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-        Catch ex As Exception
-            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-            Exit Sub
-        End Try
-
-        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
-            Try
-                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
-            Catch ex As Exception
-                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
-            End Try
-            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
-            SetStatus("Profilzuordnung gespeichert!")
-        Else
-            ClearStatus()
-        End If
-
-        IsInsert = False
     End Sub
 
     Private Sub BarButtonItem14_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
@@ -1320,4 +1315,89 @@ Public Class frmAdministration
             DEFAULT_VALUETextBox.Text = oValue
         End If
     End Sub
+
+    Private Sub GridView1_BeforeLeaveRow(sender As Object, e As RowAllowEventArgs) Handles GridView1.BeforeLeaveRow
+        Dim oRowView As DataRowView = GridView1.GetRow(e.RowHandle)
+        Dim oProfileName As String = oRowView?.Row.Item("BEZEICHNUNG")
+
+        If oRowView Is Nothing Then
+            Exit Sub
+        End If
+
+        Check_HasChanges(oProfileName)
+    End Sub
+
+    Private Function Check_HasChanges(ProfileName As String) As Boolean
+        TBDD_DOKUMENTARTBindingSource.EndEdit()
+        If MyDataset.TBDD_DOKUMENTART.GetChanges IsNot Nothing Then
+            If Ask_SaveChanges("Dokumentarten", ProfileName) Then
+                Save_Dokumentart()
+                Return True
+            Else
+                MyDataset.TBDD_DOKUMENTART.RejectChanges()
+                Return False
+            End If
+        End If
+
+        TBDD_INDEX_MANBindingSource.EndEdit()
+        If MyDataset.TBDD_INDEX_MAN.GetChanges IsNot Nothing Then
+            If Ask_SaveChanges("Manuelle Indexe", ProfileName) Then
+                Save_IndexMan()
+                Return True
+            Else
+                MyDataset.TBDD_INDEX_MAN.RejectChanges()
+                Return False
+            End If
+        End If
+
+        TBDD_INDEX_AUTOMBindingSource.EndEdit()
+        If MyDataset.TBDD_INDEX_AUTOM.GetChanges() IsNot Nothing Then
+            If Ask_SaveChanges("Automatische Indexe", ProfileName) Then
+                Save_IndexAuto()
+                Return True
+            Else
+                MyDataset.TBDD_INDEX_AUTOM.RejectChanges()
+                Return False
+            End If
+        End If
+
+        TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
+        If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.GetChanges() IsNot Nothing Then
+            If Ask_SaveChanges("Nachbearbeitung", ProfileName) Then
+                Save_PostProcessing()
+                Return True
+            Else
+                MyDataset.TBDD_INDEX_AUTOM.RejectChanges()
+                Return False
+            End If
+        End If
+
+        TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges() IsNot Nothing Then
+            If Ask_SaveChanges("Automatische Profilauswahl", ProfileName) Then
+                Save_Regex()
+                Return True
+            Else
+                MyDataset.TBGI_REGEX_DOCTYPE.RejectChanges()
+                Return False
+            End If
+        End If
+
+        Return True
+    End Function
+
+    Private Function Ask_SaveChanges(Entity As String, ProfileName As String) As Boolean
+        Dim oMessage = $"Sie haben im Profil '{ProfileName}' ungespeicherte Änderungen im Bereich '{Entity}'. Wollen Sie die Änderungen speichern?"
+        Dim oResult = MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text)
+
+        If oResult = MsgBoxResult.Yes Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+
+    Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Check_HasChanges(BEZEICHNUNGTextBox.Text)
+    End Sub
 End Class

Global_Indexer/frmConfig_Basic.vb

@@ -251,7 +251,7 @@ Public Class frmConfig_Basic
                 End If
             Catch ex As Exception
                 LOGGER.Info(" >> Unexpected error in CheckFolder: " & mypath)
-                LOGGER.Error(ex.Message)
+                LOGGER.Error(ex)
                 LOGGER.Info(" >> " & ex.Message)
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox("Unexpected error in ECheckFolder: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -370,6 +370,8 @@ Public Class frmConfig_Basic
     End Sub
     Sub Load_Basics()
         Try
+            chkLogErrorsOnly.Checked = CONFIG.Config.LogErrorsOnly
+
             If Not MyConnectionString = String.Empty Then
                 Dim csb As New SqlClient.SqlConnectionStringBuilder
                 csb.ConnectionString = MyConnectionString
@@ -514,11 +516,4 @@ Public Class frmConfig_Basic
         ' Navigate to a URL.
         System.Diagnostics.Process.Start("http://www.didalog.de/Support")
     End Sub
-
-    'Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged
-    '    If CURR_DELETE_ORIGIN <> chkdelete_origin.Checked Then
-    '        CURR_DELETE_ORIGIN = chkdelete_origin.Checked
-    '        SaveConfigValue("Delete_OriginFile", CURR_DELETE_ORIGIN)
-    '    End If
-    'End Sub
 End Class

Global_Indexer/frmIndex.designer.vb

@@ -24,13 +24,14 @@ Partial Class frmIndex
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndex))
+        Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
+        Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
+        Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
         Me.pnlIndex = New System.Windows.Forms.Panel()
-        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ComboboxDoctype = New DevExpress.XtraEditors.ComboBoxEdit()
-        Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
         Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
         Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
@@ -50,6 +51,8 @@ Partial Class frmIndex
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.checkMultiindex = New DevExpress.XtraEditors.CheckEdit()
         Me.btnOK = New DevExpress.XtraEditors.SimpleButton()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         Me.MyDataset = New Global_Indexer.MyDataset()
@@ -65,10 +68,10 @@ Partial Class frmIndex
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
-        Me.Panel1.SuspendLayout()
+        CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
         CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -84,7 +87,7 @@ Partial Class frmIndex
         'SplitContainer1.Panel1
         '
         Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex)
-        Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.ComboboxDoctype)
         Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2)
         '
         'SplitContainer1.Panel2
@@ -97,47 +100,17 @@ Partial Class frmIndex
         Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight
         Me.pnlIndex.Name = "pnlIndex"
         '
-        'Panel1
+        'ComboboxDoctype
         '
-        Me.Panel1.BackColor = System.Drawing.Color.Transparent
+        resources.ApplyResources(Me.ComboboxDoctype, "ComboboxDoctype")
-        Me.Panel1.Controls.Add(Me.cmbDokumentart)
+        Me.ComboboxDoctype.MenuManager = Me.RibbonControl1
-        Me.Panel1.Controls.Add(Me.Label1)
+        Me.ComboboxDoctype.Name = "ComboboxDoctype"
-        resources.ApplyResources(Me.Panel1, "Panel1")
+        SerializableAppearanceObject1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
-        Me.Panel1.Name = "Panel1"
+        SerializableAppearanceObject1.Options.UseBackColor = True
-        '
+        Me.ComboboxDoctype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("ComboboxDoctype.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines), resources.GetString("ComboboxDoctype.Properties.Buttons1"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons2"), Integer), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons3"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons4"), Boolean), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons5"), Boolean), EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, resources.GetString("ComboboxDoctype.Properties.Buttons6"), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons7"), Object), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons8"), DevExpress.Utils.SuperToolTip), CType(resources.GetObject("ComboboxDoctype.Properties.Buttons9"), DevExpress.Utils.ToolTipAnchor))})
-        'cmbDokumentart
+        Me.ComboboxDoctype.Properties.ButtonsStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
-        '
+        Me.ComboboxDoctype.Properties.NullText = resources.GetString("ComboboxDoctype.Properties.NullText")
-        resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart")
+        Me.ComboboxDoctype.Properties.Padding = New System.Windows.Forms.Padding(5)
-        Me.cmbDokumentart.DisplayMember = "DOKART_ID"
-        Me.cmbDokumentart.FormattingEnabled = True
-        Me.cmbDokumentart.Name = "cmbDokumentart"
-        Me.cmbDokumentart.ValueMember = "DOKART_ID"
-        '
-        'Label1
-        '
-        resources.ApplyResources(Me.Label1, "Label1")
-        Me.Label1.Name = "Label1"
-        '
-        'Panel2
-        '
-        Me.Panel2.BackColor = System.Drawing.Color.Transparent
-        Me.Panel2.Controls.Add(Me.checkMultiindex)
-        Me.Panel2.Controls.Add(Me.btnOK)
-        resources.ApplyResources(Me.Panel2, "Panel2")
-        Me.Panel2.Name = "Panel2"
-        '
-        'checkMultiindex
-        '
-        resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
-        Me.checkMultiindex.MenuManager = Me.RibbonControl1
-        Me.checkMultiindex.Name = "checkMultiindex"
-        Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.Khaki
-        Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
-        Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
-        Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
-        Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
-        Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
-        Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
         '
         'RibbonControl1
         '
@@ -280,6 +253,27 @@ Partial Class frmIndex
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
         '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.Transparent
+        Me.Panel2.Controls.Add(Me.checkMultiindex)
+        Me.Panel2.Controls.Add(Me.btnOK)
+        resources.ApplyResources(Me.Panel2, "Panel2")
+        Me.Panel2.Name = "Panel2"
+        '
+        'checkMultiindex
+        '
+        resources.ApplyResources(Me.checkMultiindex, "checkMultiindex")
+        Me.checkMultiindex.MenuManager = Me.RibbonControl1
+        Me.checkMultiindex.Name = "checkMultiindex"
+        Me.checkMultiindex.Properties.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
+        Me.checkMultiindex.Properties.Appearance.Font = CType(resources.GetObject("checkMultiindex.Properties.Appearance.Font"), System.Drawing.Font)
+        Me.checkMultiindex.Properties.Appearance.ForeColor = System.Drawing.Color.DarkRed
+        Me.checkMultiindex.Properties.Appearance.Options.UseBackColor = True
+        Me.checkMultiindex.Properties.Appearance.Options.UseFont = True
+        Me.checkMultiindex.Properties.Appearance.Options.UseForeColor = True
+        Me.checkMultiindex.Properties.Caption = resources.GetString("checkMultiindex.Properties.Caption")
+        '
         'btnOK
         '
         resources.ApplyResources(Me.btnOK, "btnOK")
@@ -291,6 +285,7 @@ Partial Class frmIndex
         'DocumentViewer1
         '
         resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
+        Me.DocumentViewer1.FileLoaded = False
         Me.DocumentViewer1.Name = "DocumentViewer1"
         '
         'MyDataset
@@ -354,11 +349,10 @@ Partial Class frmIndex
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
-        Me.Panel1.ResumeLayout(False)
+        CType(Me.ComboboxDoctype.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel1.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)
         CType(Me.checkMultiindex.Properties, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -368,12 +362,7 @@ Partial Class frmIndex
         Me.PerformLayout()
 
     End Sub
-
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox
     Friend WithEvents VWINDEX_MANBindingSource As System.Windows.Forms.BindingSource
-
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
     Friend WithEvents TBCONNECTIONBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents VWINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource
 
@@ -414,4 +403,5 @@ Partial Class frmIndex
     Friend WithEvents btnOK As DevExpress.XtraEditors.SimpleButton
     Friend WithEvents checkMultiindex As DevExpress.XtraEditors.CheckEdit
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ComboboxDoctype As DevExpress.XtraEditors.ComboBoxEdit
 End Class

Global_Indexer/frmIndex.en.resx

@@ -0,0 +1,357 @@
+<?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.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>138, 17</value>
+  </data>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>Please select a profile:</value>
+  </data>
+  <data name="checkItemTopMost.Caption" xml:space="preserve">
+    <value>Cover all other windows</value>
+  </data>
+  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="checkItemTopMost.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEMEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        Pg0KICA8ZyBpZD0iV2luZG93cyI+DQogICAgPHBhdGggZD0iTTE4LDE4LjFWMTZoMnYwLjlDMTkuMywx
+        Ny4yLDE4LjYsMTcuNiwxOCwxOC4xeiBNMTQuNywyNkgyVjE2SDB2MTFjMCwwLjUsMC41LDEsMSwxaDE1
+        LjEgICBDMTUuNSwyNy4zLDE1LjEsMjYuNiwxNC43LDI2eiBNMjQsMThjNS43LDAsOCw2LDgsNnMtMi4z
+        LDYtOCw2Yy01LjcsMC04LTYtOC02UzE4LjMsMTgsMjQsMTggTTI0LDIwYy0zLjMsMC01LjEsMi43LTUu
+        OCw0ICAgYzAuNywxLjMsMi41LDQsNS44LDRjMy4zLDAsNS4xLTIuNyw1LjgtNEMyOS4xLDIyLjcsMjcu
+        MywyMCwyNCwyMEwyNCwyMHogTTI0LDIyYy0xLjEsMC0yLDAuOS0yLDJzMC45LDIsMiwyYzEuMSwwLDIt
+        MC45LDItMiAgIFMyNS4xLDIyLDI0LDIyeiBNMjYsMTYuMlY4aDJ2OC45QzI3LjQsMTYuNiwyNi43LDE2
+        LjQsMjYsMTYuMnogTTEwLDhIOHYyaDJWOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJN
+        MCwxNnYtNWMwLTAuNSwwLjUtMSwxLTFoMThjMC41LDAsMSwwLjUsMSwxdjVIMHogTTI4LDhWM2MwLTAu
+        NS0wLjUtMS0xLTFIOUM4LjUsMiw4LDIuNSw4LDN2NUgyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+
+        DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="checkItemDeleteSource.Caption" xml:space="preserve">
+    <value>Delete Source File</value>
+  </data>
+  <data name="checkItemDeleteSource.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPECAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        Pg0KICA8ZyBpZD0iRGVsZXRlTGlzdCI+DQogICAgPHBhdGggZD0iTTYsMjZWNGgxOHYxMy4ybDItMlYz
+        YzAtMC42LTAuNC0xLTEtMUg1QzQuNCwyLDQsMi40LDQsM3YyNGMwLDAuNiwwLjQsMSwxLDFoOC4ybDIt
+        Mkg2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMjgsMjAgMjYsMTggMjIs
+        MjIgMTgsMTggMTYsMjAgMjAsMjQgMTYsMjggMTgsMzAgMjIsMjYgMjYsMzAgMjgsMjggMjQsMjQgICIg
+        Y2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="checkItemPreselection.Caption" xml:space="preserve">
+    <value>Remember Selected Profile</value>
+  </data>
+  <data name="checkItemPreselection.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
+        aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
+        dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
+        cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
+        PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
+        LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
+        TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
+        TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
+        aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
+        Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
+        IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
+        MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
+        ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
+        MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
+        IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
+        aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
+        LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
+        ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
+        cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="labelError.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg
+        IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy
+        My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx
+        Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z
+        dmc+Cw==
+</value>
+  </data>
+  <data name="labelFilePath.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
+        PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
+        MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
+        Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
+        aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="checkItemPreview.Caption" xml:space="preserve">
+    <value>Filepreview active</value>
+  </data>
+  <data name="checkItemPreview.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHcDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlByZXZpZXciPg0KICAgIDxwYXRoIGQ9Ik0yMS40
+        LDI4SDE4bDAsMGwwLDBIOFY0aDEydjVjMCwwLjYsMC40LDEsMSwxaDV2MTMuNGwyLDJWOWwtNy03SDdD
+        Ni40LDIsNiwyLjQsNiwzdjI2YzAsMC42LDAuNCwxLDEsMWgxNi40ICAgTDIxLjQsMjh6IiBjbGFzcz0i
+        QmxhY2siIC8+DQogICAgPHBhdGggZD0iTTE4LDE0YzMuMywwLDYsMi43LDYsNmMwLDEuMi0wLjQsMi4z
+        LTEsMy4zbDQuNiw0LjZjMC41LDAuNSwwLjUsMS4zLDAsMS43Yy0wLjUsMC41LTEuMywwLjUtMS43LDBM
+        MjEuMywyNSAgIGMtMC45LDAuNi0yLjEsMS0zLjMsMWMtMy4zLDAtNi0yLjctNi02QzEyLDE2LjcsMTQu
+        NywxNCwxOCwxNHogTTE4LDI0YzIuMiwwLDQtMS44LDQtNHMtMS44LTQtNC00cy00LDEuOC00LDRTMTUu
+        OCwyNCwxOCwyNHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
+  <data name="labelNotice.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+        MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+        bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
+        Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
+        MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
+        NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
+        PC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem1.Caption" xml:space="preserve">
+    <value>Skip current file</value>
+  </data>
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMzU3NUJCO30KCS5C
+        bGFja3tmaWxsOiM3MzczNzQ7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuWWVsbG93e2ZpbGw6I0ZD
+        QjAxQjt9CgkuUmVke2ZpbGw6I0QwMjAyNzt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMzEsMkgxMWMtMC41LDAtMSwwLjUtMSwxdjlo
+        MlY0aDE4djI0SDEydi04aC0ydjljMCwwLjUsMC41LDEsMSwxaDIwYzAuNSwwLDEtMC41LDEtMVYzQzMy
+        LDIuNSwzMS41LDIsMzEsMnogICIgY2xhc3M9IkJsYWNrIiAvPg0KICA8cG9seWdvbiBwb2ludHM9IjQs
+        MTQgMTQsMTQgMTQsOCAyMiwxNiAxNCwyNCAxNCwxOCA0LDE4ICIgY2xhc3M9IkJsdWUiIC8+DQo8L3N2
+        Zz4L
+</value>
+  </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>Indexing</value>
+  </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Windows</value>
+  </data>
+  <data name="checkMultiindex.Properties.Caption" xml:space="preserve">
+    <value>Multi-Indexing - Index all follwing files (0) identical</value>
+  </data>
+  <data name="btnOK.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAEQCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFycm93NFJpZ2h0Ij4NCiAgICA8cG9seWdvbiBwb2lu
+        dHM9IjE4LDYgMTIuMyw2IDIwLjMsMTQgNCwxNCA0LDE4IDIwLjMsMTggMTIuMywyNiAxOCwyNiAyOCwx
+        NiAgIiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="btnOK.Text" xml:space="preserve">
+    <value>Index file</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>File Indexing</value>
+  </data>
+</root>

Global_Indexer/frmIndex.resx

@@ -123,7 +123,7 @@
   </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 158</value>
+    <value>0, 157</value>
   </data>
   <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="pnlIndex.AutoScroll" type="System.Boolean, mscorlib">
@@ -133,10 +133,10 @@
     <value>Fill</value>
   </data>
   <data name="pnlIndex.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 57</value>
+    <value>0, 30</value>
   </data>
   <data name="pnlIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>636, 404</value>
+    <value>636, 434</value>
   </data>
   <data name="pnlIndex.TabIndex" type="System.Int32, mscorlib">
     <value>8</value>
@@ -156,90 +156,12 @@
   <data name="&gt;&gt;pnlIndex.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
-  <data name="cmbDokumentart.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+  <data name="ComboboxDoctype.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Top, Left, Right</value>
-  </data>
-  <data name="cmbDokumentart.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 23</value>
-  </data>
-  <data name="cmbDokumentart.Size" type="System.Drawing.Size, System.Drawing">
-    <value>630, 25</value>
-  </data>
-  <data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
-    <value>2</value>
-  </data>
-  <data name="&gt;&gt;cmbDokumentart.Name" xml:space="preserve">
-    <value>cmbDokumentart</value>
-  </data>
-  <data name="&gt;&gt;cmbDokumentart.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;cmbDokumentart.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 3</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>156, 17</value>
-  </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Label1.Text" xml:space="preserve">
-    <value>Bitte wählen Sie ein Profil:</value>
-  </data>
-  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
-    <value>Label1</value>
-  </data>
-  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Top</value>
   </data>
-  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="ComboboxDoctype.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 3, 2, 3</value>
-  </data>
-  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>636, 57</value>
-  </data>
-  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
-    <value>SplitContainer1.Panel1</value>
-  </data>
-  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="checkMultiindex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Left, Right</value>
-  </data>
-  <data name="checkMultiindex.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 20</value>
-  </data>
   <data name="BarToggleSwitchItem1.Caption" xml:space="preserve">
     <value>Lösche Ursprungsdatei</value>
   </data>
@@ -478,13 +400,13 @@
     <value>Start</value>
   </data>
   <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1076, 158</value>
+    <value>1076, 157</value>
   </data>
   <data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 675</value>
+    <value>0, 677</value>
   </data>
   <data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1076, 24</value>
+    <value>1076, 22</value>
   </data>
   <data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
     <value>RibbonStatusBar1</value>
@@ -510,6 +432,64 @@
   <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
+  <assembly alias="DevExpress.Utils.v19.2" name="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="ComboboxDoctype.Properties.Buttons" type="DevExpress.XtraEditors.Controls.ButtonPredefines, DevExpress.Utils.v19.2">
+    <value>Combo</value>
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons1" xml:space="preserve">
+    <value />
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons2" type="System.Int32, mscorlib">
+    <value>20</value>
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons3" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons4" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons5" type="System.Boolean, mscorlib">
+    <value>False</value>
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons6" xml:space="preserve">
+    <value />
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons7" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons8" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="ComboboxDoctype.Properties.Buttons9" type="DevExpress.Utils.ToolTipAnchor, DevExpress.Utils.v19.2">
+    <value>Default</value>
+  </data>
+  <data name="ComboboxDoctype.Properties.NullText" xml:space="preserve">
+    <value>Bitte wählen Sie ein Profil</value>
+  </data>
+  <data name="ComboboxDoctype.Size" type="System.Drawing.Size, System.Drawing">
+    <value>636, 30</value>
+  </data>
+  <data name="ComboboxDoctype.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="&gt;&gt;ComboboxDoctype.Name" xml:space="preserve">
+    <value>ComboboxDoctype</value>
+  </data>
+  <data name="&gt;&gt;ComboboxDoctype.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="&gt;&gt;ComboboxDoctype.Parent" xml:space="preserve">
+    <value>SplitContainer1.Panel1</value>
+  </data>
+  <data name="&gt;&gt;ComboboxDoctype.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="checkMultiindex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Left, Right</value>
+  </data>
+  <data name="checkMultiindex.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 20</value>
+  </data>
   <data name="checkMultiindex.Properties.Appearance.Font" type="System.Drawing.Font, System.Drawing">
     <value>Tahoma, 8.25pt, style=Bold</value>
   </data>
@@ -517,7 +497,7 @@
     <value>Multi-Indexing - Alle nachfolgenden Dateien (0) identisch indexieren</value>
   </data>
   <data name="checkMultiindex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>441, 20</value>
+    <value>441, 18</value>
   </data>
   <data name="checkMultiindex.TabIndex" type="System.Int32, mscorlib">
     <value>12</value>
@@ -585,7 +565,7 @@
     <value>Bottom</value>
   </data>
   <data name="Panel2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 461</value>
+    <value>0, 464</value>
   </data>
   <data name="Panel2.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
     <value>2, 3, 2, 3</value>
@@ -630,7 +610,7 @@
     <value>3, 4, 3, 4</value>
   </data>
   <data name="DocumentViewer1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>436, 517</value>
+    <value>436, 520</value>
   </data>
   <data name="DocumentViewer1.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
@@ -639,7 +619,7 @@
     <value>DocumentViewer1</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.0.3.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.6.3.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel2</value>
@@ -660,7 +640,7 @@
     <value>1</value>
   </data>
   <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1076, 517</value>
+    <value>1076, 520</value>
   </data>
   <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
     <value>636</value>

Global_Indexer/frmIndexFileList.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmIndexFileList
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmIndexFileList
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndexFileList))
@@ -29,24 +29,23 @@ Partial Class frmIndexFileList
         Me.Label1 = New System.Windows.Forms.Label()
         Me.CheckedListBoxControl1 = New DevExpress.XtraEditors.CheckedListBoxControl()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.TBGI_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.MyDataset1 = New Global_Indexer.MyDataset()
         Me.TBGI_FILES_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter()
         Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.btnstartIndex = New System.Windows.Forms.Button()
-        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.TBGI_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.Panel1.SuspendLayout()
         CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Panel1
         '
+        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Controls.Add(Me.Label2)
         Me.Panel1.Controls.Add(Me.Label1)
-        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Name = "Panel1"
         '
         'Label2
@@ -62,6 +61,13 @@ Partial Class frmIndexFileList
         'CheckedListBoxControl1
         '
         resources.ApplyResources(Me.CheckedListBoxControl1, "CheckedListBoxControl1")
+        Me.CheckedListBoxControl1.AppearanceHighlight.BackColor = System.Drawing.Color.Transparent
+        Me.CheckedListBoxControl1.AppearanceHighlight.Options.UseBackColor = True
+        Me.CheckedListBoxControl1.HighlightedItemStyle = DevExpress.XtraEditors.HighlightStyle.Standard
+        Me.CheckedListBoxControl1.HotTrackItems = True
+        Me.CheckedListBoxControl1.HotTrackSelectMode = DevExpress.XtraEditors.HotTrackSelectMode.SelectItemOnHotTrackEx
+        Me.CheckedListBoxControl1.ItemHeight = 30
+        Me.CheckedListBoxControl1.ItemPadding = New System.Windows.Forms.Padding(10)
         Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1"
         '
         'Button1
@@ -111,24 +117,18 @@ Partial Class frmIndexFileList
         Me.btnstartIndex.Name = "btnstartIndex"
         Me.btnstartIndex.UseVisualStyleBackColor = True
         '
-        'btnCancel
-        '
-        resources.ApplyResources(Me.btnCancel, "btnCancel")
-        Me.btnCancel.Image = Global.Global_Indexer.My.Resources.Resources.cancel
-        Me.btnCancel.Name = "btnCancel"
-        Me.btnCancel.UseVisualStyleBackColor = True
-        '
         'frmIndexFileList
         '
         resources.ApplyResources(Me, "$this")
+        Me.Appearance.Options.UseFont = True
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ControlBox = False
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.CheckedListBoxControl1)
-        Me.Controls.Add(Me.btnCancel)
         Me.Controls.Add(Me.btnstartIndex)
         Me.Controls.Add(Me.Panel1)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmIndexFileList.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.itemtypechecked
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmIndexFileList"
@@ -136,8 +136,8 @@ Partial Class frmIndexFileList
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -152,5 +152,4 @@ Partial Class frmIndexFileList
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents Label2 As Label
-    Friend WithEvents btnCancel As Button
 End Class

Global_Indexer/frmIndexFileList.en-US.resx

@@ -117,17 +117,17 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 40</value>
+  </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="Label1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>233, 30</value>
-  </data>
   <data name="Label1.Text" xml:space="preserve">
     <value>The following files will be indexed!
-You can prevent indexing the selected files.</value>
+You can prevent indexing by unchecking files.</value>
   </data>
   <data name="Button1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
@@ -141,19 +141,13 @@ You can prevent indexing the selected files.</value>
   <data name="Button2.Text" xml:space="preserve">
     <value>Select None</value>
   </data>
-  <data name="btnCancel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnCancel.Text" xml:space="preserve">
-    <value>Cancel</value>
-  </data>
   <data name="btnstartIndex.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
   <data name="btnstartIndex.Text" xml:space="preserve">
     <value>Start Indexing</value>
   </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmIndexFileList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
         AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
@@ -206,6 +200,6 @@ You can prevent indexing the selected files.</value>
 </value>
   </data>
   <data name="$this.Text" xml:space="preserve">
-    <value>Files to index:</value>
+    <value>Select Files to Index</value>
   </data>
 </root>

Global_Indexer/frmIndexFileList.en.resx

@@ -0,0 +1,189 @@
+<?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>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>The following files will be indexed!
+You can prevent indexing by unchecking files.</value>
+  </data>
+  <data name="Button1.Text" xml:space="preserve">
+    <value>Select All</value>
+  </data>
+  <data name="Button2.Text" xml:space="preserve">
+    <value>Select None</value>
+  </data>
+  <data name="btnstartIndex.Text" xml:space="preserve">
+    <value>Start Indexing</value>
+  </data>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="frmIndexFileList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
+        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
+        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
+        d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
+        Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
+        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
+        9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
+        AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
+        AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
+        AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
+        AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
+        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
+        AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
+        AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
+        AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
+        AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
+        9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
+        9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
+        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
+        AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
+</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Select Files to Index</value>
+  </data>
+</root>

Global_Indexer/frmIndexFileList.resx

@@ -117,295 +117,39 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <data name="&gt;&gt;Label2.Name" xml:space="preserve">
-    <value>Label2</value>
-  </data>
-  <data name="&gt;&gt;Label2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
-    <value>Label1</value>
-  </data>
-  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Top</value>
-  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>647, 57</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
   <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
     <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
-    <value>5</value>
-  </data>
-  <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt, style=Bold</value>
-  </data>
-  <data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 31</value>
-  </data>
-  <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>522, 17</value>
-  </data>
-  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Label2.Text" xml:space="preserve">
-    <value>Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern.</value>
-  </data>
   <data name="&gt;&gt;Label2.Name" xml:space="preserve">
     <value>Label2</value>
   </data>
-  <data name="&gt;&gt;Label2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
-    <value>True</value>
-  </data>
-  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9.75pt</value>
-  </data>
-  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 9</value>
-  </data>
-  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>326, 17</value>
-  </data>
-  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label1.Text" xml:space="preserve">
-    <value>Folgende Dateien werden zur Indexierung angeboten! </value>
-  </data>
-  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
-    <value>Label1</value>
-  </data>
-  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="CheckedListBoxControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Top, Bottom, Left, Right</value>
-  </data>
-  <data name="CheckedListBoxControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 63</value>
-  </data>
-  <data name="CheckedListBoxControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>647, 261</value>
-  </data>
-  <data name="CheckedListBoxControl1.TabIndex" type="System.Int32, mscorlib">
-    <value>8</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Name" xml:space="preserve">
-    <value>CheckedListBoxControl1</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;CheckedListBoxControl1.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>12, 344</value>
-  </data>
-  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>115, 36</value>
-  </data>
-  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
-    <value>1</value>
-  </data>
-  <data name="Button1.Text" xml:space="preserve">
-    <value>Alle auswählen</value>
-  </data>
   <data name="&gt;&gt;Button1.Name" xml:space="preserve">
     <value>Button1</value>
   </data>
-  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <metadata name="TBGI_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>240, 17</value>
-  </metadata>
-  <metadata name="TBGI_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>357, 17</value>
-  </metadata>
-  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>574, 17</value>
-  </metadata>
-  <data name="Button2.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Left</value>
-  </data>
-  <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>133, 344</value>
-  </data>
   <data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
     <value>115, 36</value>
   </data>
-  <data name="Button2.TabIndex" type="System.Int32, mscorlib">
+  <data name="&gt;&gt;Button1.Type" xml:space="preserve">
-    <value>6</value>
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+    <value>frmIndexFileList</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="CheckedListBoxControl1.TabIndex" type="System.Int32, mscorlib">
+    <value>8</value>
+  </data>
+  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>12, 344</value>
   </data>
   <data name="Button2.Text" xml:space="preserve">
     <value>Alle abwählen</value>
   </data>
-  <data name="&gt;&gt;Button2.Name" xml:space="preserve">
+  <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Button2</value>
+    <value>Segoe UI, 9.75pt, style=Bold</value>
   </data>
-  <data name="&gt;&gt;Button2.Type" xml:space="preserve">
+  <data name="frmIndexFileList.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button2.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="btnstartIndex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Right</value>
-  </data>
-  <data name="btnstartIndex.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt, style=Bold</value>
-  </data>
-  <data name="btnstartIndex.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnstartIndex.Location" type="System.Drawing.Point, System.Drawing">
-    <value>490, 344</value>
-  </data>
-  <data name="btnstartIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>145, 36</value>
-  </data>
-  <data name="btnstartIndex.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnstartIndex.Text" xml:space="preserve">
-    <value>Starte Indexierung</value>
-  </data>
-  <data name="btnstartIndex.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleRight</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Name" xml:space="preserve">
-    <value>btnstartIndex</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnstartIndex.ZOrder" xml:space="preserve">
-    <value>4</value>
-  </data>
-  <data name="btnCancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
-    <value>Bottom, Right</value>
-  </data>
-  <data name="btnCancel.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt, style=Bold</value>
-  </data>
-  <data name="btnCancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
-  <data name="btnCancel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing">
-    <value>289, 344</value>
-  </data>
-  <data name="btnCancel.Size" type="System.Drawing.Size, System.Drawing">
-    <value>195, 36</value>
-  </data>
-  <data name="btnCancel.TabIndex" type="System.Int32, mscorlib">
-    <value>3</value>
-  </data>
-  <data name="btnCancel.Text" xml:space="preserve">
-    <value>Indexierung Abbrechen</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Name" xml:space="preserve">
-    <value>btnCancel</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
-  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>7, 15</value>
-  </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>647, 392</value>
-  </data>
-  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt</value>
-  </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
         AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
@@ -457,37 +201,237 @@
         AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
 </value>
   </data>
-  <data name="$this.Text" xml:space="preserve">
-    <value>Zu indexierende Dateien:</value>
-  </data>
   <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Name" xml:space="preserve">
     <value>TBGI_FILES_USERBindingSource</value>
   </data>
-  <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Type" xml:space="preserve">
+  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
-    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>0</value>
+  </data>
+  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
+    <value>0, 17</value>
+  </data>
+  <data name="&gt;&gt;Button2.Name" xml:space="preserve">
+    <value>Button2</value>
+  </data>
+  <data name="&gt;&gt;Label2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Button2.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label1.Name" xml:space="preserve">
+    <value>Label1</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="CheckedListBoxControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Top, Bottom, Left, Right</value>
+  </data>
+  <data name="Button1.Text" xml:space="preserve">
+    <value>Alle auswählen</value>
+  </data>
+  <data name="Label1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>10, 10, 10, 10</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Button1.Parent" xml:space="preserve">
+    <value>$this</value>
   </data>
   <data name="&gt;&gt;MyDataset1.Name" xml:space="preserve">
     <value>MyDataset1</value>
   </data>
-  <data name="&gt;&gt;MyDataset1.Type" xml:space="preserve">
+  <data name="&gt;&gt;CheckedListBoxControl1.ZOrder" xml:space="preserve">
-    <value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>2</value>
-  </data>
-  <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Name" xml:space="preserve">
-    <value>TBGI_FILES_USERTableAdapter</value>
   </data>
   <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Type" xml:space="preserve">
     <value>Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
+  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
+    <value>7, 15</value>
+  </data>
+  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;TBGI_FILES_USERTableAdapter.Name" xml:space="preserve">
+    <value>TBGI_FILES_USERTableAdapter</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="btnstartIndex.Location" type="System.Drawing.Point, System.Drawing">
+    <value>490, 344</value>
+  </data>
   <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
     <value>TableAdapterManager</value>
   </data>
+  <data name="btnstartIndex.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Right</value>
+  </data>
+  <data name="CheckedListBoxControl1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 63</value>
+  </data>
+  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Top</value>
+  </data>
+  <data name="&gt;&gt;Label1.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt</value>
+  </data>
+  <data name="btnstartIndex.Size" type="System.Drawing.Size, System.Drawing">
+    <value>145, 36</value>
+  </data>
+  <data name="Label1.Text" xml:space="preserve">
+    <value>Folgende Dateien werden zur Indexierung angeboten! 
+Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhindern.</value>
+  </data>
+  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="Button2.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Left</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>133, 344</value>
+  </data>
+  <data name="btnstartIndex.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="btnstartIndex.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleRight</value>
+  </data>
   <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
     <value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
-  <data name="&gt;&gt;$this.Name" xml:space="preserve">
+  <data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>frmIndexFileList</value>
+    <value>NoControl</value>
+  </data>
+  <data name="&gt;&gt;TBGI_FILES_USERBindingSource.Type" xml:space="preserve">
+    <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Button2.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="btnstartIndex.TabIndex" type="System.Int32, mscorlib">
+    <value>3</value>
+  </data>
+  <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="&gt;&gt;MyDataset1.Type" xml:space="preserve">
+    <value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
+  </data>
+  <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
+    <value>3, 31</value>
+  </data>
+  <data name="Label1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9.75pt</value>
+  </data>
+  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 57</value>
+  </data>
+  <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="btnstartIndex.Text" xml:space="preserve">
+    <value>Starte Indexierung</value>
+  </data>
+  <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="$this.Text" xml:space="preserve">
+    <value>Zu indexierende Dateien auswählen</value>
+  </data>
+  <data name="Button2.TabIndex" type="System.Int32, mscorlib">
+    <value>6</value>
+  </data>
+  <data name="&gt;&gt;CheckedListBoxControl1.Name" xml:space="preserve">
+    <value>CheckedListBoxControl1</value>
+  </data>
+  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 57</value>
+  </data>
+  <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="CheckedListBoxControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>647, 261</value>
+  </data>
+  <data name="&gt;&gt;btnstartIndex.Name" xml:space="preserve">
+    <value>btnstartIndex</value>
+  </data>
+  <data name="btnstartIndex.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Segoe UI, 9pt, style=Bold</value>
+  </data>
+  <data name="Label1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
+  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>115, 36</value>
+  </data>
+  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
+    <value>1</value>
+  </data>
+  <data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
+    <value>Bottom, Left</value>
+  </data>
+  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
+    <value>647, 392</value>
   </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;CheckedListBoxControl1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;CheckedListBoxControl1.Type" xml:space="preserve">
+    <value>DevExpress.XtraEditors.CheckedListBoxControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <metadata name="TBGI_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>357, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>574, 17</value>
+  </metadata>
+  <metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>en</value>
+  </metadata>
+  <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>240, 17</value>
+  </metadata>
+  <metadata name="TBGI_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

Global_Indexer/frmIndexFileList.vb

@@ -1,44 +1,94 @@
 Imports System.ComponentModel
+Imports DevExpress.XtraEditors.Controls
 
 Public Class frmIndexFileList
 
     Private Sub frmIndexFileList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset1.TBGI_FILES_USER". Sie können sie bei Bedarf verschieben oder entfernen.
             Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
-            If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
-                CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
-                CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
-                CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
 
+            'If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
+            '    CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
+            '    CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
+            '    CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+            'End If
+
+            CheckedListBoxControl1.DisplayMember = "FileName"
+            CheckedListBoxControl1.ValueMember = "FileName"
+            CheckedListBoxControl1.Items.Clear()
+
+            For Each oFile As DataRow In MyDataset1.TBGI_FILES_USER.Rows
+                Dim oFilename = oFile.Item("FILENAME_ONLY")
+                Dim oPath = oFile.Item("FILENAME2WORK")
+                Dim oHash = oFile.Item("FILE_HASH")
+                Dim oHandleType = oFile.Item("HANDLE_TYPE")
+
+                Dim oImportDate = ClassIndexFunctions.FileExistsinDropTable(oPath, oHandleType)
+                Dim oFileExists As Boolean = True
+
+                If oImportDate = DateTime.MinValue Then
+                    oFileExists = False
                 End If
 
+                CheckedListBoxControl1.Items.Add(New SplitFile With {
+                    .FileName = oFilename,
+                    .Exists = oFileExists,
+                    .[Date] = oImportDate
+                })
+            Next
+
+            CheckedListBoxControl1.CheckAll()
+
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
 
+    Public Class SplitFile
+        Public FileName As String
+        Public Exists As Boolean
+        Public [Date] As Date
+
+        Public Overrides Function ToString() As String
+            If Exists Then
+                Return $"{FileName} (Die Datei wurde bereits am [{[Date]}] verarbeitet)"
+            Else
+                Return FileName
+            End If
+        End Function
+    End Class
+
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
         Try
-            For Each item In CheckedListBoxControl1.CheckedItems
+            LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)
-                Dim row As DataRowView = CType(item, DataRowView)
-                Dim _file = row.Item(1)
-                Dim handletype As String = row.Item("HANDLE_TYPE")
 
-                If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
+            For index = 0 To CheckedListBoxControl1.ItemCount - 1
+                Dim oRow = MyDataset1.TBGI_FILES_USER.Item(index)
+                Dim oChecked = CheckedListBoxControl1.GetItemChecked(index)
+
+                Dim oFilePath = oRow.Item("FILENAME2WORK")
+                Dim oHandletype As String = oRow.Item("HANDLE_TYPE")
+                Dim oGuid = oRow.Item("GUID")
+
+                If oChecked = False Then
+                    If oHandletype = "|MSGONLY|" Or oHandletype = "|ATTMNTEXTRACTED|" Then
                         Try
-                        IO.File.Delete(_file)
+                            IO.File.Delete(oFilePath)
                         Catch ex As Exception
-
+                            LOGGER.Error(ex)
                         End Try
-
                     End If
-                'System.IO.File.Delete(filestring)
+
-                ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True)
+                    LOGGER.Debug("Removing file from user files: [{0}]", oFilePath)
+                    ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & oGuid, True)
+                End If
             Next
+
+            DialogResult = DialogResult.OK
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
         End Try
 
@@ -58,8 +108,22 @@ Public Class frmIndexFileList
         CheckedListBoxControl1.Focus()
     End Sub
 
-    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
+    Private Sub CheckedListBoxControl1_DrawItem(sender As Object, e As DevExpress.XtraEditors.ListBoxDrawItemEventArgs) Handles CheckedListBoxControl1.DrawItem
+        If e.State = (DrawItemState.Selected Or DrawItemState.Checked) Or e.State = DrawItemState.Checked Then
+            e.Appearance.BackColor = Color.LightGreen
+        Else
+            e.Appearance.BackColor = Color.Transparent
+        End If
+    End Sub
+
+    Private Sub frmIndexFileList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If DialogResult = DialogResult.Cancel Then
+            Try
                 ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
-        Close()
+            Catch ex As Exception
+                MsgBox("Error while deleting User Files: " & ex.Message, MsgBoxStyle.Critical, Text)
+                LOGGER.Error(ex)
+            End Try
+        End If
     End Sub
 End Class

Global_Indexer/frmSQLConfigAutoIndex.vb

@@ -116,7 +116,7 @@ Public Class SQLConfigAutoIndex
 
         Catch ex As Exception
             LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
         End Try
     End Sub

Global_Indexer/frmSQLSuggestion.vb

@@ -90,7 +90,7 @@ Public Class frmSQLSuggestion
 
         Catch ex As Exception
             LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex.message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
         End Try
     End Sub

Global_Indexer/frmStart.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
-    Inherits Windows.Forms.Form
+    Inherits DevExpress.XtraEditors.XtraForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -129,6 +129,10 @@ Partial Class frmStart
         Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
         Me.LabelControl1.Appearance.Options.UseFont = True
         resources.ApplyResources(Me.LabelControl1, "LabelControl1")
+        Me.LabelControl1.ImageAlignToText = DevExpress.XtraEditors.ImageAlignToText.LeftCenter
+        Me.LabelControl1.ImageOptions.Alignment = System.Drawing.ContentAlignment.MiddleLeft
+        Me.LabelControl1.ImageOptions.SvgImage = Global.Global_Indexer.My.Resources.Resources.trackingchanges_next
+        Me.LabelControl1.IndentBetweenImageAndText = 10
         Me.LabelControl1.Name = "LabelControl1"
         '
         'OpenFileDialog1
@@ -193,11 +197,14 @@ Partial Class frmStart
         'frmStart
         '
         Me.AllowDrop = True
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.Controls.Add(Me.btnChoosefiles)
         Me.Controls.Add(Me.LabelControl1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.MenuStrip1)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmStart.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.Image = Global.Global_Indexer.My.Resources.Resources.DD_Icons_ICO_GLOBIX_128
         Me.KeyPreview = True
         Me.MaximizeBox = False
         Me.Name = "frmStart"

Global_Indexer/frmStart.en-US.resx

@@ -405,6 +405,25 @@
         /+AAH/////////////////////////////////////////////8=
 </value>
   </data>
+  <assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="LabelControl1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v19.2">
+    <value>None</value>
+  </data>
+  <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 56</value>
+  </data>
+  <data name="LabelControl1.Text" xml:space="preserve">
+    <value>Drag and Drop Files here, or</value>
+  </data>
+  <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 80</value>
+  </data>
+  <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 59</value>
+  </data>
+  <data name="btnChoosefiles.Text" xml:space="preserve">
+    <value>Choose Files..</value>
+  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA
@@ -1297,4 +1316,8 @@
         /////////////wA///////////////////8f////////////////////
 </value>
   </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
 </root>

Global_Indexer/frmStart.en.resx

@@ -118,18 +118,6 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="GlobalIndexerEinstellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="GlobalIndexerEinstellungenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Global Indexer - Configuration</value>
-  </data>
-  <data name="HotkeyEisntellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="HotkeyEisntellungenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Hotkey - Configuration</value>
-  </data>
   <data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>204, 22</value>
   </data>
@@ -142,12 +130,6 @@
   <data name="GrundeinstellungenToolStripMenuItem.Text" xml:space="preserve">
     <value>Basic Configuration User</value>
   </data>
-  <data name="FrmHotkeyAddToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>204, 22</value>
-  </data>
-  <data name="FrmHotkeyAddToolStripMenuItem.Text" xml:space="preserve">
-    <value>Hotkey-Function User</value>
-  </data>
   <data name="HistoryIndexierteDateienToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>204, 22</value>
   </data>
@@ -166,27 +148,12 @@
   <data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
     <value>Configuration</value>
   </data>
-  <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>329, 24</value>
-  </data>
   <data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
     <value>131, 17</value>
   </data>
   <data name="tslblFW.Text" xml:space="preserve">
     <value>folderwatch is active</value>
   </data>
-  <data name="tslblCultureInfo.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 17</value>
-  </data>
-  <data name="tslblCultureInfo.Text" xml:space="preserve">
-    <value />
-  </data>
-  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 123</value>
-  </data>
-  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>329, 22</value>
-  </data>
   <data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA
@@ -474,25 +441,59 @@
         /+AAH/////////////////////////////////////////////8=
 </value>
   </data>
-  <data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>24, 44</value>
-  </data>
   <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>280, 23</value>
+    <value>294, 41</value>
   </data>
   <data name="LabelControl1.Text" xml:space="preserve">
     <value>Place files with drag and drop here or,</value>
   </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="LabelMachine.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelMachine.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="LabelMachine.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="LabelUser.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelUser.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelUser.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="LabelLoggedIn.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelLoggedIn.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelLoggedIn.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
+  <data name="LabelVersion.ImageOptions.ImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelVersion.ImageOptions.LargeImageIndex" type="System.Int32, mscorlib">
+    <value>-1</value>
+  </data>
+  <data name="LabelVersion.ImageOptions.SvgImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
+    <value />
+  </data>
   <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
-    <value>22, 73</value>
+    <value>0, 65</value>
+  </data>
+  <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 74</value>
   </data>
   <data name="btnChoosefiles.Text" xml:space="preserve">
     <value>choose files here</value>
   </data>
-  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>329, 145</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="$this.Icon" type="System.Resources.ResXNullRef, System.Windows.Forms">
     <value />
   </data>

Global_Indexer/frmStart.resx

@@ -121,6 +121,37 @@
     <value>400, 17</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>294, 24</value>
+  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
+    <value>5</value>
+  </data>
+  <data name="MenuStrip1.Text" xml:space="preserve">
+    <value>MenuStrip1</value>
+  </data>
+  <data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve">
+    <value>MenuStrip1</value>
+  </data>
+  <data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>108, 20</value>
+  </data>
+  <data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
+    <value>Konfiguration</value>
+  </data>
   <data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
     <value>221, 22</value>
   </data>
@@ -148,49 +179,9 @@
   <data name="InfoToolStripMenuItem.Text" xml:space="preserve">
     <value>Info</value>
   </data>
-  <data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>108, 20</value>
-  </data>
-  <data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
-    <value>Konfiguration</value>
-  </data>
-  <data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>294, 24</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
-    <value>5</value>
-  </data>
-  <data name="MenuStrip1.Text" xml:space="preserve">
-    <value>MenuStrip1</value>
-  </data>
-  <data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve">
-    <value>MenuStrip1</value>
-  </data>
-  <data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>515, 17</value>
   </metadata>
-  <data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
-    <value>133, 17</value>
-  </data>
-  <data name="tslblFW.Text" xml:space="preserve">
-    <value>FolderWatch ist aktiv</value>
-  </data>
-  <data name="tslblFW.Visible" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
   <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 139</value>
   </data>
@@ -215,6 +206,15 @@
   <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
     <value>2</value>
   </data>
+  <data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
+    <value>133, 17</value>
+  </data>
+  <data name="tslblFW.Text" xml:space="preserve">
+    <value>FolderWatch ist aktiv</value>
+  </data>
+  <data name="tslblFW.Visible" type="System.Boolean, mscorlib">
+    <value>False</value>
+  </data>
   <metadata name="TimerFolderWatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1072, 17</value>
   </metadata>
@@ -518,7 +518,7 @@
     <value>132, 56</value>
   </metadata>
   <data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 12pt</value>
+    <value>Segoe UI, 11.25pt</value>
   </data>
   <assembly alias="DevExpress.XtraEditors.v19.2" name="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
   <data name="LabelControl1.AutoSizeMode" type="DevExpress.XtraEditors.LabelAutoSizeMode, DevExpress.XtraEditors.v19.2">
@@ -532,17 +532,16 @@
     <value>0, 24</value>
   </data>
   <data name="LabelControl1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>15, 10, 15, 10</value>
+    <value>5, 10, 5, 10</value>
   </data>
   <data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>294, 62</value>
+    <value>294, 60</value>
   </data>
   <data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
     <value>8</value>
   </data>
   <data name="LabelControl1.Text" xml:space="preserve">
-    <value>Ziehen Sie Dateien mit Drag and Drop
+    <value>Ziehen Sie Dateien mit Drag and Drop auf dieses Fenster oder...</value>
-auf dieses Fenster oder...</value>
   </data>
   <data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
     <value>LabelControl1</value>
@@ -593,10 +592,10 @@ auf dieses Fenster oder...</value>
     <value>NoControl</value>
   </data>
   <data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 86</value>
+    <value>0, 84</value>
   </data>
   <data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
-    <value>294, 53</value>
+    <value>294, 55</value>
   </data>
   <data name="btnChoosefiles.TabIndex" type="System.Int32, mscorlib">
     <value>9</value>
@@ -628,7 +627,7 @@ auf dieses Fenster oder...</value>
   <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 8.25pt</value>
   </data>
-  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="frmStart.IconOptions.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAPDwAAAEAIABIOgAAFgAAACgAAAA8AAAAeAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
         AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
@@ -886,7 +885,7 @@ auf dieses Fenster oder...</value>
     <value>310, 200</value>
   </data>
   <data name="$this.MinimumSize" type="System.Drawing.Size, System.Drawing">
-    <value>310, 200</value>
+    <value>296, 193</value>
   </data>
   <data name="$this.Text" xml:space="preserve">
     <value>Global Indexer</value>
@@ -1009,6 +1008,6 @@ auf dieses Fenster oder...</value>
     <value>frmStart</value>
   </data>
   <data name="&gt;&gt;$this.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
 </root>

Global_Indexer/frmStart.vb

@@ -1,6 +1,5 @@
 Imports System.IO
 Imports Microsoft.Office.Interop
-Imports Independentsoft
 Imports DLLLicenseManager
 Imports System.Text
 Imports System.Globalization
@@ -159,24 +158,22 @@ Public Class frmStart
 
     Sub Check_Dropped_Files()
         Try
-            ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
+            ClassDatabase.Execute_non_Query($"DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('{Environment.UserName}')")
-            Dim i As Integer
-            For Each Str As Object In ClassFileDrop.files_dropped
-                If Not Str Is Nothing Then
-                    LOGGER.Info(">> Check Drop-File: " & Str.ToString)
-                    Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)
-                    Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1)
-                    If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
-                        ClassFilehandle.Decide_FileHandle(filename, handleType)
-                        i += 1
-                    Else
-                        ' Console.WriteLine("File gibt es bereits")
-                    End If
 
+            For Each oFiledropString As String In ClassFileDrop.files_dropped
+                If oFiledropString IsNot Nothing Then
+                    LOGGER.Info(">> Check Drop-File: " & oFiledropString.ToString)
+                    Dim oLastPipe = oFiledropString.LastIndexOf("|")
+                    Dim oHandleType As String = oFiledropString.Substring(0, oLastPipe + 1)
+                    Dim oFilename As String = oFiledropString.Substring(oLastPipe + 1)
+
+                    If ClassIndexFunctions.CheckDuplicateFiles(oFilename, "Manuelle Ablage", oHandleType) Then
+                        ClassFilehandle.Decide_FileHandle(oFilename, oHandleType)
+                    End If
                 End If
             Next
 
-            Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
+            Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('{Environment.UserName}')"
             DTACTUAL_FILES = Nothing
             DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
             ABORT_INDEXING = False
@@ -191,22 +188,45 @@ Public Class frmStart
 
             If DTACTUAL_FILES.Rows.Count > 1 And oOnlyFilesFromFilesystem = False Then
                 frmIndexFileList.ShowDialog()
+                LOGGER.Debug("Email Indexing Dialog closed, checking for files to be indexed")
+
                 DTACTUAL_FILES = Nothing
                 DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
             End If
 
+            If DTACTUAL_FILES.Rows.Count = 0 Then
+                LOGGER.Debug("No files to be indexed, aborting!")
+
+                If USER_LANGUAGE = "de-DE" Then
+                    MessageBox.Show("Es wurden keine Dateien für die Indexierung ausgewählt. Der Indexierungsvorgang wird beendet.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+                Else
+                    MessageBox.Show("You did not select any files for indexing. Indexing will be stopped.", Text, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+                End If
+            End If
+
             For Each Filerow As DataRow In DTACTUAL_FILES.Rows
-                Dim filestring As String = Filerow.Item("FILENAME2WORK")
+                Dim oFileString As String = Filerow.Item("FILENAME2WORK")
+                LOGGER.Info("Processing user file {0}", oFileString)
+
                 CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
                 CURRENT_WORKFILE_GUID = Filerow.Item(0)
                 CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
+                CURRENT_WORKFILE_HASH = NotNull(Filerow.Item("FILE_HASH"), "")
+
                 LOGGER.Info(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE)
                 If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
                     Open_IndexDialog()
                 End If
+
+                ' If multi-indexing is active, all files have been indexed by now, so we can leave the loop
+                If MULTIINDEXING_ACTIVE Then
+                    Exit For
+                End If
             Next
+
             Show()
         Catch ex As Exception
+            LOGGER.Error(ex)
             MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
@@ -225,8 +245,6 @@ Public Class frmStart
 
     Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
-
-            LOGGER.Info("")
             If START_INCOMPLETE = False Then
                 Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
                 ClassDatabase.Execute_non_Query(Sql, True)
@@ -235,14 +253,17 @@ Public Class frmStart
         Catch ex As Exception
             MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
+
+        EMAIL.Clear_TempFiles()
+
         'TempDateien löschen
+        For Each oFile In TEMP_FILES
             Try
-            For Each _file In TEMP_FILES
+                System.IO.File.Delete(oFile)
-                System.IO.File.Delete(_file)
-            Next
             Catch ex As Exception
                 LOGGER.Error(ex)
             End Try
+        Next
 
         Try
             IndexForm.DisposeViewer()
@@ -265,7 +286,6 @@ Public Class frmStart
 
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
         Cursor = Cursors.WaitCursor
-
         Try
             IndexForm = New frmIndex()
 
@@ -339,36 +359,35 @@ Public Class frmStart
                     LOGGER.Info(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH)
                     Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH)
                     ' Process the list of files found in the directory.
-                    Dim fileName As String
+                    Dim oFileName As String
-                    For Each fileName In fileEntries
+                    For Each oFileName In fileEntries
-                        LOGGER.Info(">> Scanfolder after startup: Checking file:" & fileName)
+                        LOGGER.Info(">> Scanfolder after startup: Checking file:" & oFileName)
                         For Each row As DataRow In DTEXCLUDE_FILES.Rows
                             Dim content As String = row.Item(0).ToString.ToLower
-                            If fileName.ToLower.Contains(content) Then
+                            If oFileName.ToLower.Contains(content) Then
                                 Exit Sub
                             End If
                         Next
-                        Dim handleType As String
+                        Dim oHandleType As String
-                        If fileName.ToLower.EndsWith(".msg") Then
+                        If oFileName.ToLower.EndsWith(".msg") Then
-                            handleType = "|FW_OUTLOOK_MESSAGE|"
+                            oHandleType = "|FW_OUTLOOK_MESSAGE|"
                         Else
-                            handleType = "|FW_SIMPLEINDEXER|"
+                            oHandleType = "|FW_SIMPLEINDEXER|"
                         End If
                         'Die Datei übergeben
-                        LOGGER.Info(">> Adding file from Scanfolder after startup:" & fileName)
+                        LOGGER.Info(">> Adding file from Scanfolder after startup:" & oFileName)
-                        If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
+
-                            ClassFilehandle.Decide_FileHandle(fileName, handleType)
+                        If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "FolderWatch/Scan") Then
-                        Else
+                            ClassFilehandle.Decide_FileHandle(oFileName, oHandleType)
-                            LOGGER.Info(">> Scanfolder Startup: File already exists:" & fileName)
                         End If
-                    Next fileName
+                    Next oFileName
 
                 Else
                     LOGGER.Info(">> FWSCAN not started")
                 End If
             Catch ex As Exception
                 LOGGER.Info(">> Error while starting folderwatch scan: " & ex.Message)
-                LOGGER.Error(ex.Message)
+                LOGGER.Error(ex)
             End Try
 
             Try
@@ -376,36 +395,34 @@ Public Class frmStart
                     LOGGER.Info(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH)
                     Dim fileEntries As String() = Directory.GetFiles(CURRENT_FOLDERWATCH)
                     ' Process the list of files found in the directory.
-                    Dim fileName As String
+                    Dim oFileName As String
-                    For Each fileName In fileEntries
+                    For Each oFileName In fileEntries
-                        LOGGER.Info(">> Folderwach after startup: Checking file:" & fileName)
+                        LOGGER.Info(">> Folderwach after startup: Checking file:" & oFileName)
                         For Each row As DataRow In DTEXCLUDE_FILES.Rows
                             Dim content As String = row.Item(0).ToString.ToLower
-                            If fileName.ToLower.Contains(content) Then
+                            If oFileName.ToLower.Contains(content) Then
                                 Exit Sub
                             End If
                         Next
                         Dim handleType As String
-                        If fileName.ToLower.EndsWith(".msg") Then
+                        If oFileName.ToLower.EndsWith(".msg") Then
                             handleType = "|FW_OUTLOOK_MESSAGE|"
                         Else
                             handleType = "|FW_SIMPLEINDEXER|"
                         End If
                         'Die Datei übergeben
-                        LOGGER.Info(">> Adding file from Folderwatch after startup:" & fileName)
+                        LOGGER.Info(">> Adding file from Folderwatch after startup:" & oFileName)
-                        If ClassIndexFunctions.FileExistsinDropTable(fileName) = False Then
-                            ClassFilehandle.Decide_FileHandle(fileName, handleType)
-                        Else
-                            LOGGER.Info(">> Folderwatch Startup: File already exists:" & fileName)
-                        End If
-                    Next fileName
 
+                        If ClassIndexFunctions.CheckDuplicateFiles(oFileName, "FolderWatch/Scan") Then
+                            ClassFilehandle.Decide_FileHandle(oFileName, handleType)
+                        End If
+                    Next oFileName
                 Else
                     LOGGER.Info(">> FW_started not started")
                 End If
             Catch ex As Exception
                 LOGGER.Info(">> Error while starting folderwatch: " & ex.Message)
-                LOGGER.Error(ex.Message)
+                LOGGER.Error(ex)
             End Try
 
             If TimerFolderWatch.Enabled = False Then
@@ -431,15 +448,21 @@ Public Class frmStart
         frmConfig_Basic.ShowDialog()
         'Wurde die Sprache in der Konfiguration geändert
         If LANGUAGE_CHANGED = True Then
+            Try
                 If USER_LANGUAGE = "de-DE" Then
-                MsgBox("Zur letzendlichen Neukonfiguration der Sprache ist ein Neustart notwendig!", MsgBoxStyle.Information)
+                    MsgBox("Zur letzendlichen Neukonfiguration der Sprache ist ein Neustart notwendig!", MsgBoxStyle.Information, Text)
                 Else
-                MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information)
+                    MsgBox("For the final changing of language, a restart is required!", MsgBoxStyle.Information, Text)
                 End If
                 Application.Restart()
-        End If
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                MsgBox("Please restart the application manually.", MsgBoxStyle.Information, Text)
+            End Try
+        Else
             Start_Folderwatch()
             Me.TopMost = True
+        End If
     End Sub
 
     Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
@@ -489,9 +512,11 @@ Public Class frmStart
                             Dim fileexists As Boolean = System.IO.File.Exists(FileForWork)
                             If fileInUse = False Then
                                 If fileexists = True Then
-                                    CURRENT_WORKFILE = FileForWork
                                     CURRENT_FILENAME = FileForWork
+                                    CURRENT_WORKFILE = FileForWork
                                     CURRENT_WORKFILE_GUID = row.Item("GUID")
+                                    CURRENT_WORKFILE_HASH = row.Item("FILE_HASH")
+
                                     Open_IndexDialog()
                                 Else
                                     LOGGER.Info(">> File not existing - Row will be deleted!")

Global_Indexer/packages.config

@@ -1,4 +1,4 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="NLog" version="4.5.11" targetFramework="net461" />
+  <package id="NLog" version="4.7.10" targetFramework="net461" />
 </packages>

SetupVS19/Product.wxs

@@ -51,8 +51,8 @@
     <Property Id="ARPPRODUCTICON" Value="GlobalIndexer.exe" />
 
     <!-- Liest den Installationsort über die Registry aus -->
-    <Property Id="APPLICATIONFOLDER">
+    <Property Id="INSTALLDIR">
-      <RegistrySearch Key="Software\[Manufacturer]\[ProductName]" Root="HKCU" Type="raw" Id="APPLICATIONFOLDER_REGSEARCH" Name="Path" />
+      <RegistrySearch Key="Software\[Manufacturer]\[ProductName]" Root="HKLM" Type="raw" Id="APPLICATIONFOLDER_REGSEARCH" Name="Path" />
     </Property>
 
     <Directory Id="TARGETDIR" Name="SourceDir">
@@ -110,12 +110,18 @@
       <!--Digital Data Bibliotheken-->
       <Component Id="DigitalDataLibs" Guid="e68a6a14-3917-4989-abec-d30c521a3431">
         <File Id="Logging" Name="DigitalData.Modules.Logging.dll" Source="DigitalData.Modules.Logging.dll" KeyPath="yes" />
+        <File Id="Globix" Name="DigitalData.GUIs.GlobalIndexer.dll" Source="DigitalData.GUIs.GlobalIndexer.dll" KeyPath="no" />
         <File Id="Filesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll" KeyPath="no" />
         <File Id="Config" Name="DigitalData.Modules.Config.dll" Source="DigitalData.Modules.Config.dll" KeyPath="no" />
         <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll" KeyPath="no" />
         <File Id="DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" />
         <File Id="LookupGrid" Name="DigitalData.Controls.LookupGrid.dll" Source="DigitalData.Controls.LookupGrid.dll" KeyPath="no" />
         <File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
+        <File Id="Windows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll" KeyPath="no" />
+        <File Id="Language" Name="DigitalData.Modules.Language.dll" Source="DigitalData.Modules.Language.dll" KeyPath="no" />
+
+        <File Id="Messaging" Name="DigitalData.Modules.Messaging.dll" Source="DigitalData.Modules.Messaging.dll" KeyPath="no" />
+        <File Id="Messaging.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" />
       </Component>
 
       <Component Id="GDPictureLibs" Guid="9ea5ab43-58ff-4813-9a8b-f854784f0275">
@@ -127,8 +133,8 @@
 
       <!--Verschiedene Bibliotheken-->
       <Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275">
-        <File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll" KeyPath="yes" />
         <File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
+        <File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />
       </Component>
 
       <!--WINDREAM Bibliotheken-->
@@ -190,9 +196,22 @@
         <util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
       </Component>
       
+      <Directory Id="resources.en" Name="en">
+        <Component Id="GlobalIndexer.Locales.en" Guid="d89b7f9b-337f-4784-8945-13de108e240f">
+          <File Id="Global_Indexer.resources.en" Name="Global_Indexer.resources.dll" Source="en\Global_Indexer.resources.dll"></File>
+          <File Id="LookupGrid.resources.en" Name="DigitalData.Controls.LookupGrid.resources.dll" Source="en\DigitalData.Controls.LookupGrid.resources.dll"></File>
+        </Component>
+      </Directory>
+      
+      <Directory Id="resources.en_US" Name="en_US">
+        <Component Id="GlobalIndexer.Locales.en_US" Guid="fcb2bdda-a8da-4d65-97d8-c5b9fba4ccb1">
+          <File Id="Global_Indexer.resources.en_US" Name="Global_Indexer.resources.dll" Source="en-US\Global_Indexer.resources.dll"></File>
+        </Component>
+      </Directory>
+    
       <Directory Id="resources.de" Name="de">
         <Component Id="GlobalIndexer.Locales.de" Guid="9E7F8C29-44DF-4D38-AD7B-D64B74990CDB">
-          <File Id="Global_Indexer.resources.de" Name="Global_Indexer.resources.dll" Source="de\Global_Indexer.resources.dll"></File>
+          <File Id="Global_Indexer.resources.de_DE" Name="Global_Indexer.resources.dll" Source="de-DE\Global_Indexer.resources.dll"></File>
         </Component>
       
         <Component Id="Devexpress.Locales.de" Guid="6be5ff05-af76-4249-862a-5b13e3c56c2a">
@@ -236,6 +255,8 @@
       <ComponentRef Id="RegistryKeys"/>
       <ComponentRef Id="ApplicationIco"/>
       <ComponentRef Id="GlobalIndexer.Locales.de" />
+      <ComponentRef Id="GlobalIndexer.Locales.en" />
+      <ComponentRef Id="GlobalIndexer.Locales.en_US" />
       <ComponentRef Id="Devexpress.Locales.de" />
     </Feature>
 

SetupVS19/SetupVS19.wixproj

@@ -14,6 +14,8 @@
     <IntermediateOutputPath>obj\$(Configuration)\</IntermediateOutputPath>
     <DefineConstants>Debug</DefineConstants>
     <LinkerAdditionalOptions>-b "$(SolutionDir)Global_Indexer\bin\$(Configuration)"</LinkerAdditionalOptions>
+    <Cultures>
+    </Cultures>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
     <OutputPath>bin\$(Configuration)\</OutputPath>