Fix Config Migration

.gitignore

@@ -154,5 +154,5 @@ $RECYCLE.BIN/
 
 # Mac desktop service store files
 .DS_Store
-/.vs/Global_Indexer/v15/Server/sqlite3
+
-/.vs/Global_Indexer/v16/Server/sqlite3
+.vs

.vs/ProjectSettings.json

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

.vs/VSWorkspaceState.json

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

FileFlow.sln

@@ -1,12 +1,14 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio Version 16
+# Visual Studio Version 17
-VisualStudioVersion = 16.0.29728.190
+VisualStudioVersion = 17.5.33516.290
 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}") = "SetupVS19", "SetupVS19\SetupVS19.wixproj", "{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer.Test", "Global_Indexer.Test\Global_Indexer.Test.vbproj", "{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		CD_ROM|Any CPU = CD_ROM|Any CPU
@@ -79,6 +81,36 @@ Global
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|Mixed Platforms.Build.0 = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|x86.ActiveCfg = Release|x86
 		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|x86.Build.0 = Release|x86
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Any CPU.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Any CPU.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.CD_ROM|x86.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Debug|x86.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|x86.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.DVD-5|x86.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Any CPU.Build.0 = Release|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|x86.ActiveCfg = Release|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.Release|x86.Build.0 = Release|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Any CPU.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Any CPU.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|x86.ActiveCfg = Debug|Any CPU
+		{8BFA2C72-1A8A-4B80-9666-483CF1CD21B1}.SingleImage|x86.Build.0 = Debug|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

Global_Indexer.Test/ClassPostpostprocessingTest.vb

@@ -0,0 +1,112 @@
+Imports System.Data
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+Imports FluentAssertions
+Imports DigitalData.Modules.Logging
+
+Namespace Global_Indexer.Test
+    <TestClass>
+    Public Class ClassPostprocessingTest
+
+        Private LogConfig As LogConfig
+        Private PostProcessing As ClassPostprocessing
+
+        <TestInitialize()>
+        Sub Init()
+            LogConfig = New LogConfig(LogPath:=LogConfig.PathType.Temp)
+            PostProcessing = New ClassPostprocessing(LogConfig)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBSPLIT_INDEX_0()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBSPLIT, ",", "0")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBSPLIT_INDEX_3()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBSPLIT, ",", "3")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBSPLIT_INDEX_5()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBSPLIT, ",", "5")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1,2,3,4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBREPLACE()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, ",", "_")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1_2_3_4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBREPLACE_NOT_EXISTING()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, ";", "_")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1,2,3,4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBREPLACE_EMPTY_STRING()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, "", "_")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1,2,3,4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBREPLACE_NOTHING1()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, ",", Nothing)
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1,2,3,4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+        <TestMethod>
+        Sub Get_Nachbearbeitung_Wert_VBREPLACE_NOTHING2()
+            Dim oTable = GetDataTable(ClassPostprocessing.VBREPLACE, Nothing, "_")
+            Dim oString = "1,2,3,4"
+            Dim oExpected = "1,2,3,4"
+
+            Dim rString = PostProcessing.Get_Nachbearbeitung_Wert(oString, oTable)
+            rString.Should.Be(oExpected)
+        End Sub
+
+        Private Function GetDataTable(pType As String, pText1 As String, Optional pText2 As String = "") As DataTable
+            Dim oTable As New DataTable()
+            oTable.Columns.Add("TYPE", GetType(String))
+            oTable.Columns.Add("TEXT1", GetType(String))
+            oTable.Columns.Add("TEXT2", GetType(String))
+            oTable.Rows.Add(pType, pText1, pText2)
+            oTable.AcceptChanges()
+
+            Return oTable
+        End Function
+    End Class
+
+
+End Namespace
+

Global_Indexer.Test/Global_Indexer.Test.vbproj

@@ -0,0 +1,32 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <RootNamespace>Global_Indexer.Test</RootNamespace>
+    <TargetFramework>net6.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+    <IsTestProject>true</IsTestProject>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="FluentAssertions" Version="6.12.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.3.2" />
+    <PackageReference Include="MSTest.TestAdapter" Version="2.2.10" />
+    <PackageReference Include="MSTest.TestFramework" Version="2.2.10" />
+    <PackageReference Include="coverlet.collector" Version="3.1.2" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\Global_Indexer\Global_Indexer.vbproj" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <Reference Include="DigitalData.Modules.Base">
+      <HintPath>..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging">
+      <HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+
+</Project>

Global_Indexer/App.config

@@ -46,7 +46,9 @@
     </DevExpress.LookAndFeel.Design.AppSettings>
   </applicationSettings>
   <connectionStrings>
-    <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" />
+    <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
+      connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd"
+      providerName="System.Data.SqlClient" />
   </connectionStrings>
   <startup>
     <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2" />

Global_Indexer/ClassConfig.vb

@@ -19,5 +19,4 @@ Public Class ClassConfig
     ' Misc Settings
     Public Property LogDEBUG As Boolean = True
     Public Property WindreamSearchMaximized As Boolean = False
-    Public Property OverrideLanguage As String = ""
 End Class

Global_Indexer/ClassInit.vb

@@ -1,11 +1,10 @@
-Imports System.ComponentModel
+Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Windream
-Imports DigitalData.Modules.Filesystem
 Imports DigitalData.Modules.Messaging
 Imports DigitalData.Modules.Database
-Imports DLLLicenseManager
+Imports DigitalData.Modules.Base
+
 Public Class ClassInit
     Private Form As Form
 
@@ -23,8 +22,12 @@ Public Class ClassInit
     End Sub
 
     Public Sub InitConfig()
+        Dim oUtils = New ConfigUtils(LOGCONFIG)
+        oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "Global Indexer")
+        oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "Global Indexer")
+
         CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
-        LOGCONFIG.Debug = Not CONFIG.Config.LogDEBUG
+        LOGCONFIG.Debug = CONFIG.Config.LogDEBUG
         LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
 
         MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
@@ -81,8 +84,8 @@ Public Class ClassInit
         Dim configResult As Boolean
         configResult = Load_BasicConfig()
 
-        FILESYSTEM = New File(LOGCONFIG)
         EMAIL = New Email2(LOGCONFIG)
+        FILESYSTEM = New FilesystemEx(LOGCONFIG)
 
         If configResult = False Then
             If USER_LANGUAGE = "de-DE" Then
@@ -237,7 +240,7 @@ Public Class ClassInit
         Try
             Dim oSql As String
 
-            oSql = String.Format($"SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{Environment.UserName}','GLOBIX',{1},'{CONFIG.Config.OverrideLanguage}')")
+            oSql = String.Format($"SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{Environment.UserName}','GLOBIX',{1})")
             Dim DT_CHECKUSER_MODULE As DataTable = DATABASE_ECM.GetDatatable(oSql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                 LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")

Global_Indexer/ClassPostprocessing.vb

@@ -1,12 +1,19 @@
 Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
 
 Public Class ClassPostprocessing
+    Inherits BaseClass
 
-    Private Const VBSPLIT = "VBSPLIT"
+    Public Const VBSPLIT = "VBSPLIT"
-    Private Const VBREPLACE = "VBREPLACE"
+    Public Const VBREPLACE = "VBREPLACE"
-    Private Const REGEXPRESSION = "REG. EXPRESSION"
+    Public Const REGEXPRESSION = "REG. EXPRESSION"
 
-    Public Shared Function Get_Nachbearbeitung_Wert(idxvalue As String, Datatable As DataTable) As String
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Function Get_Nachbearbeitung_Wert(idxvalue As String, Datatable As DataTable) As String
         Dim oIndexValues As List(Of String) = idxvalue.Split(ClassConstants.VECTORSEPARATOR).ToList()
 
         Try
@@ -14,9 +21,10 @@ Public Class ClassPostprocessing
                 Dim oResult As New List(Of String)
                 Dim oType As String = oDataRow.Item("TYPE").ToString.ToUpper
 
+                Logger.Info(" ...Nachbearbeitung mit [{0}]", oType)
+
                 Select Case oType
                     Case VBSPLIT
-                        LOGGER.Info(" ...Nachbearbeitung mit VBSPLIT")
 
                         Dim oSeparator As String = oDataRow.Item("TEXT1")
                         Dim oSplitIndex As Integer = 0
@@ -31,34 +39,31 @@ Public Class ClassPostprocessing
                         Dim oFindString = oDataRow.Item("TEXT1")
                         Dim oReplaceString = oDataRow.Item("TEXT2")
 
-                        LOGGER.Info(" ...Nachbearbeitung mit VBREPLACE")
+                        Logger.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
-                        LOGGER.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
 
                         For Each oIndexValue In oIndexValues
                             Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
                             oResult.Add(oReplaceResult)
                         Next
-                    Case REGEXPRESSION
-                        LOGGER.Info(" ...Nachbearbeitung mit RegEx")
 
+                    Case REGEXPRESSION
                         Dim oRegexList As New List(Of Regex)
                         Dim oRegex As New Regex(oDataRow.Item("TEXT1"), RegexOptions.IgnoreCase)
 
                         oRegexList.Add(oRegex)
 
                         For Each oIndexValue In oIndexValues
-                            Dim oProcessedString = extractFromStringviaRE(oIndexValue, oRegexList)
+                            Dim oProcessedString = ExtractFromStringWithRegex(oIndexValue, oRegexList)
                             oResult.Add(oProcessedString)
 
-                            LOGGER.Info(" ...Ergebnis des RegEx: " & oProcessedString)
+                            Logger.Info(" ...Ergebnis des RegEx: " & oProcessedString)
                         Next
                 End Select
 
                 oIndexValues = oResult
             Next
         Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
+            Logger.Error(ex)
-            LOGGER.Info(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
         End Try
 
         Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
@@ -71,7 +76,7 @@ Public Class ClassPostprocessing
     ''' <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 extractFromStringviaRE(SearchString As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
+    Private Function ExtractFromStringWithRegex(SearchString As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1)
         If IsNothing(SearchString) Then
             Return Nothing
         End If

Global_Indexer/ModuleCURRENT.vb

@@ -1,6 +1,6 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Messaging
 
 Module ModuleCURRENT
@@ -16,8 +16,8 @@ Module ModuleCURRENT
     Public Property CONFIG As ConfigManager(Of ClassConfig)
     Public Property LOGCONFIG As LogConfig
     Public Property LOGGER As Logger
-    Public Property FILESYSTEM As File
     Public Property EMAIL As Email2
+    Public Property FILESYSTEM As FilesystemEx
 
     Public Property FILE_HANDLER As ClassFileHandler
     Public Property FOLDER_WATCHER As ClassFolderWatcher

Global_Indexer/My Project/AssemblyInfo.vb

@@ -14,8 +14,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("File Flow")>
-<Assembly: AssemblyCopyright("Copyright © 2022")>
+<Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("2.6.2.0")>
+<Assembly: AssemblyTrademark("2.6.7.3")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.6.5.0")>
+<Assembly: AssemblyVersion("2.6.7.3")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.5.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -57,8 +57,8 @@ Namespace My
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
-            "rity Info=True;User ID=sa;Password=dd")>  _
+            "Info=True;User ID=sa;Password=dd")>  _
         Public ReadOnly Property DD_ECMConnectionString() As String
             Get
                 Return CType(Me("DD_ECMConnectionString"),String)

Global_Indexer/My Project/Settings.settings

@@ -5,10 +5,10 @@
     <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
-  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
     </Setting>
   </Settings>
 </SettingsFile>

Global_Indexer/MyDataset.Designer.vb

@@ -4558,6 +4558,10 @@ Partial Public Class MyDataset
         
         Private columnSEQUENCE As Global.System.Data.DataColumn
         
+        Private columnVKT_OVERWRITE As Global.System.Data.DataColumn
+        
+        Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
@@ -4745,6 +4749,22 @@ Partial Public Class MyDataset
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public ReadOnly Property VKT_OVERWRITEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnVKT_OVERWRITE
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnVKT_PREVENT_MULTIPLE_VALUES
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -4801,9 +4821,11 @@ Partial Public Class MyDataset
                     ByVal Indexwert As String,  _
                     ByVal VALUE As String,  _
                     ByVal SQL_ACTIVE As Boolean,  _
-                    ByVal SEQUENCE As Byte) As VWDDINDEX_AUTOMRow
+                    ByVal SEQUENCE As Byte,  _
+                    ByVal VKT_OVERWRITE As Boolean,  _
+                    ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean) 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, SEQUENCE}
+            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, VKT_OVERWRITE, VKT_PREVENT_MULTIPLE_VALUES}
             rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray
             Me.Rows.Add(rowVWDDINDEX_AUTOMRow)
             Return rowVWDDINDEX_AUTOMRow
@@ -4851,6 +4873,8 @@ Partial Public Class MyDataset
             Me.columnVALUE = MyBase.Columns("VALUE")
             Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
             Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
+            Me.columnVKT_OVERWRITE = MyBase.Columns("VKT_OVERWRITE")
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -4894,6 +4918,10 @@ Partial Public Class MyDataset
             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.columnVKT_OVERWRITE = New Global.System.Data.DataColumn("VKT_OVERWRITE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnVKT_OVERWRITE)
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES)
             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
@@ -4919,6 +4947,8 @@ Partial Public Class MyDataset
             Me.columnVALUE.MaxLength = 2000
             Me.columnSQL_ACTIVE.AllowDBNull = false
             Me.columnSEQUENCE.AllowDBNull = false
+            Me.columnVKT_OVERWRITE.AllowDBNull = false
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5084,6 +5114,10 @@ Partial Public Class MyDataset
         
         Private columnSEQUENCE As Global.System.Data.DataColumn
         
+        Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn
+        
+        Private columnVKT_OVERWRITE As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
@@ -5231,6 +5265,22 @@ Partial Public Class MyDataset
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnVKT_PREVENT_MULTIPLE_VALUES
+            End Get
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public ReadOnly Property VKT_OVERWRITEColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnVKT_OVERWRITE
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -5268,9 +5318,9 @@ Partial Public Class MyDataset
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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, ByVal SEQUENCE As Byte) 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, ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, ByVal VKT_OVERWRITE As Boolean) 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, SEQUENCE}
+            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, VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE}
             If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then
                 columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0)
             End If
@@ -5316,6 +5366,8 @@ Partial Public Class MyDataset
             Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT")
             Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE")
             Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES")
+            Me.columnVKT_OVERWRITE = MyBase.Columns("VKT_OVERWRITE")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -5349,6 +5401,10 @@ Partial Public Class MyDataset
             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.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES)
+            Me.columnVKT_OVERWRITE = New Global.System.Data.DataColumn("VKT_OVERWRITE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnVKT_OVERWRITE)
             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
@@ -5374,6 +5430,10 @@ Partial Public Class MyDataset
             Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean)
             Me.columnSEQUENCE.AllowDBNull = false
             Me.columnSEQUENCE.DefaultValue = CType(0,Byte)
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false
+            Me.columnVKT_PREVENT_MULTIPLE_VALUES.DefaultValue = CType(false,Boolean)
+            Me.columnVKT_OVERWRITE.AllowDBNull = false
+            Me.columnVKT_OVERWRITE.DefaultValue = CType(false,Boolean)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -11996,6 +12056,28 @@ Partial Public Class MyDataset
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Property VKT_OVERWRITE() As Boolean
+            Get
+                Return CType(Me(Me.tableVWDDINDEX_AUTOM.VKT_OVERWRITEColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableVWDDINDEX_AUTOM.VKT_OVERWRITEColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
+            Get
+                Return CType(Me(Me.tableVWDDINDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableVWDDINDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsCOMMENTNull() As Boolean
@@ -12306,6 +12388,28 @@ Partial Public Class MyDataset
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean
+            Get
+                Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableTBDD_INDEX_AUTOM.VKT_PREVENT_MULTIPLE_VALUESColumn) = value
+            End Set
+        End Property
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
+        Public Property VKT_OVERWRITE() As Boolean
+            Get
+                Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VKT_OVERWRITEColumn),Boolean)
+            End Get
+            Set
+                Me(Me.tableTBDD_INDEX_AUTOM.VKT_OVERWRITEColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow
@@ -18003,6 +18107,8 @@ Namespace MyDatasetTableAdapters
             tableMapping.ColumnMappings.Add("VALUE", "VALUE")
             tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
             tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
+            tableMapping.ColumnMappings.Add("VKT_OVERWRITE", "VKT_OVERWRITE")
+            tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES")
             Me._adapter.TableMappings.Add(tableMapping)
         End Sub
         
@@ -18021,8 +18127,9 @@ 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, 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"& _ 
+                "SULT, VALUE, SQL_ACTIVE, SEQUENCE,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                          VKT_OVERWRITE, VKT"& _ 
-                "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"
+                "_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            VWDDINDEX_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
@@ -18195,6 +18302,8 @@ Namespace MyDatasetTableAdapters
             tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT")
             tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE")
             tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
+            tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES")
+            tableMapping.ColumnMappings.Add("VKT_OVERWRITE", "VKT_OVERWRITE")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -18232,12 +18341,13 @@ Namespace MyDatasetTableAdapters
             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, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ 
-                "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@DOCTYPE_ID,@INDEXNAME,"& _ 
+                "_WHEN, SQL_RESULT, SQL_ACTIVE, SEQUENCE, VKT_PREVENT_MULTIPLE_VALUES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"        "& _ 
-                "@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHAN"& _ 
+                "                 VKT_OVERWRITE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@DOCTYPE_ID,@INDEXNAME,@VALUE,@C"& _ 
-                "GED_WHEN,@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAM"& _ 
+                "ONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WHO,@CHANGED_WHEN,"& _ 
-                "E, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ 
+                "@SQL_RESULT,@SQL_ACTIVE,@SEQUENCE,@VKT_PREVENT_MULTIPLE_VALUES,@VKT_OVERWRITE); "& _ 
-                "ANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDE"& _ 
+                " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, AD"& _ 
-                "NTITY()) ORDER BY SEQUENCE"
+                "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD"& _ 
+                "_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) 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, "", "", ""))
@@ -18252,17 +18362,20 @@ Namespace MyDatasetTableAdapters
             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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_OVERWRITE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_OVERWRITE", 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, ADDED_WHO = @ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         ADDE"& _ 
                 "D_WHEN = @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, "& _ 
-                "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ 
+                "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"    "& _ 
-                "       (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CON"& _ 
+                "                     VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIPLE_VALUES,"& _ 
-                "NECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ 
+                " VKT_OVERWRITE = @VKT_OVERWRITE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID);  "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ 
-                "QL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) ORDER BY SEQUEN"& _ 
+                " GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, "& _ 
-                "CE"
+                "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE FROM TBDD_INDEX_AU"& _ 
+                "TOM WHERE (GUID = @GUID) ORDER BY SEQUENCE"
             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, "", "", ""))
@@ -18277,6 +18390,8 @@ Namespace MyDatasetTableAdapters
             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("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_OVERWRITE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_OVERWRITE", 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
@@ -18296,8 +18411,9 @@ Namespace MyDatasetTableAdapters
             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, SEQUE"& _ 
-                "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)& _ 
+                "NCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         VKT_PREVENT_MULTIPLE_VALUES, VKT_OVERWRITE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ 
-                "ORDER BY SEQUENCE"
+                "            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
@@ -18435,7 +18551,7 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 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
+        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, ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, ByVal VKT_OVERWRITE As Boolean) As Integer
             Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer)
             If (INDEXNAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("INDEXNAME")
@@ -18481,6 +18597,8 @@ Namespace MyDatasetTableAdapters
             End If
             Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
             Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
+            Me.Adapter.InsertCommand.Parameters(13).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
+            Me.Adapter.InsertCommand.Parameters(14).Value = CType(VKT_OVERWRITE,Boolean)
             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
@@ -18500,7 +18618,24 @@ Namespace MyDatasetTableAdapters
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.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 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
+        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 VKT_PREVENT_MULTIPLE_VALUES As Boolean,  _
+                    ByVal VKT_OVERWRITE As Boolean,  _
+                    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")
@@ -18546,8 +18681,10 @@ Namespace MyDatasetTableAdapters
             End If
             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SQL_ACTIVE,Boolean)
             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEQUENCE,Byte)
-            Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(13).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean)
-            Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(14).Value = CType(VKT_OVERWRITE,Boolean)
+            Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(16).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

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="251" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ex:showrelationlabel="False" ViewPortX="417" ViewPortY="-47" 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="12" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
+    <Shape ID="DesignTable:TBDD_USER" ZOrder="13" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <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_DOKUMENTART" ZOrder="15" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
-    <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_EINGANGSARTEN" ZOrder="18" 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="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="11" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
+    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="12" 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:VWDDINDEX_AUTOM" ZOrder="1" 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="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_CONFIGURATION" ZOrder="23" 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="4" 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="5" 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="7" 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="8" 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="6" 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="7" 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="8" 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="9" 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="13" 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="14" 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="1" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
+    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="4" X="1474" Y="-2" Height="336" Width="243" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <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_HISTORY" ZOrder="6" 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="10" 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="11" 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:TBTempFiles2Index" ZOrder="24" 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:TBTEMP_INDEXRESULTS" ZOrder="20" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <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" />
+    <Shape ID="DesignTable:TBAD_Users" ZOrder="16" 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">
@@ -54,7 +54,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="24" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="25" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>397</X>
@@ -66,7 +66,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="21" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="22" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>597</X>
@@ -82,7 +82,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="20" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="21" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>293</X>
@@ -94,7 +94,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="18" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="19" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>978</X>
@@ -106,7 +106,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="17" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>397</X>
@@ -118,7 +118,7 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="9" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="10" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/frmAdministration.Designer.vb

@@ -309,6 +309,8 @@ 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.chkOverwrite = New DevExpress.XtraEditors.CheckEdit()
+        Me.chkPreventMultipleValues = New DevExpress.XtraEditors.CheckEdit()
         GUIDLabel = New System.Windows.Forms.Label()
         GUIDLabel1 = New System.Windows.Forms.Label()
         NAMELabel = New System.Windows.Forms.Label()
@@ -357,12 +359,20 @@ Partial Class frmAdministration
         GEANDERTWERLabel = New System.Windows.Forms.Label()
         GEAENDERTWANNLabel = New System.Windows.Forms.Label()
         CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl2.Panel1.SuspendLayout()
+        CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl2.Panel2.SuspendLayout()
         Me.SplitContainerControl2.SuspendLayout()
         CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl5.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl5.Panel1.SuspendLayout()
+        CType(Me.SplitContainerControl5.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl5.Panel2.SuspendLayout()
         Me.SplitContainerControl5.SuspendLayout()
         CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -370,6 +380,10 @@ Partial Class frmAdministration
         CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControl4.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl4.Panel1.SuspendLayout()
+        CType(Me.SplitContainerControl4.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControl4.Panel2.SuspendLayout()
         Me.SplitContainerControl4.SuspendLayout()
         CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -409,6 +423,8 @@ Partial Class frmAdministration
         CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.chkOverwrite.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GUIDLabel
@@ -421,9 +437,15 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.SplitContainerControl2, "SplitContainerControl2")
         Me.SplitContainerControl2.Horizontal = False
         Me.SplitContainerControl2.Name = "SplitContainerControl2"
+        '
+        'SplitContainerControl2.Panel1
+        '
         Me.SplitContainerControl2.Panel1.Controls.Add(Me.gridAssignedGroups)
         Me.SplitContainerControl2.Panel1.Controls.Add(Me.Label13)
         resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
+        '
+        'SplitContainerControl2.Panel2
+        '
         Me.SplitContainerControl2.Panel2.Controls.Add(Me.gridAvailableGroups)
         Me.SplitContainerControl2.Panel2.Controls.Add(Me.Label14)
         resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
@@ -536,9 +558,15 @@ Partial Class frmAdministration
         resources.ApplyResources(Me.SplitContainerControl5, "SplitContainerControl5")
         Me.SplitContainerControl5.Horizontal = False
         Me.SplitContainerControl5.Name = "SplitContainerControl5"
+        '
+        'SplitContainerControl5.Panel1
+        '
         Me.SplitContainerControl5.Panel1.Controls.Add(Me.gridAssignedUsers)
         Me.SplitContainerControl5.Panel1.Controls.Add(Me.Label2)
         resources.ApplyResources(Me.SplitContainerControl5.Panel1, "SplitContainerControl5.Panel1")
+        '
+        'SplitContainerControl5.Panel2
+        '
         Me.SplitContainerControl5.Panel2.Controls.Add(Me.gridAvailableUsers)
         Me.SplitContainerControl5.Panel2.Controls.Add(Me.Label35)
         resources.ApplyResources(Me.SplitContainerControl5.Panel2, "SplitContainerControl5.Panel2")
@@ -974,9 +1002,15 @@ Partial Class frmAdministration
         '
         resources.ApplyResources(Me.SplitContainerControl4, "SplitContainerControl4")
         Me.SplitContainerControl4.Name = "SplitContainerControl4"
+        '
+        'SplitContainerControl4.Panel1
+        '
         Me.SplitContainerControl4.Panel1.Controls.Add(Me.GridControlProfile)
         Me.SplitContainerControl4.Panel1.Controls.Add(Me.Label3)
         resources.ApplyResources(Me.SplitContainerControl4.Panel1, "SplitContainerControl4.Panel1")
+        '
+        'SplitContainerControl4.Panel2
+        '
         Me.SplitContainerControl4.Panel2.Controls.Add(Me.XtraTabControl1)
         resources.ApplyResources(Me.SplitContainerControl4.Panel2, "SplitContainerControl4.Panel2")
         Me.SplitContainerControl4.SplitterPosition = 224
@@ -1818,6 +1852,8 @@ Partial Class frmAdministration
         Me.XtraTabPageAutoIndex.Appearance.Header.GradientMode = CType(resources.GetObject("XtraTabPageAutoIndex.Appearance.Header.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
         Me.XtraTabPageAutoIndex.Appearance.HeaderActive.GradientMode = CType(resources.GetObject("XtraTabPageAutoIndex.Appearance.HeaderActive.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
         resources.ApplyResources(Me.XtraTabPageAutoIndex, "XtraTabPageAutoIndex")
+        Me.XtraTabPageAutoIndex.Controls.Add(Me.chkPreventMultipleValues)
+        Me.XtraTabPageAutoIndex.Controls.Add(Me.chkOverwrite)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.txtAutomIndexConnectionId)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.txtAutomIndexSQLResult)
         Me.XtraTabPageAutoIndex.Controls.Add(Me.Label6)
@@ -2465,6 +2501,21 @@ Partial Class frmAdministration
         Me.RibbonPage8.Name = "RibbonPage8"
         resources.ApplyResources(Me.RibbonPage8, "RibbonPage8")
         '
+        'chkOverwrite
+        '
+        Me.chkOverwrite.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_OVERWRITE", True))
+        resources.ApplyResources(Me.chkOverwrite, "chkOverwrite")
+        Me.chkOverwrite.MenuManager = Me.RibbonControl1
+        Me.chkOverwrite.Name = "chkOverwrite"
+        Me.chkOverwrite.Properties.Caption = resources.GetString("CheckEdit1.Properties.Caption")
+        '
+        'chkPreventMultipleValues
+        '
+        Me.chkPreventMultipleValues.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_INDEX_AUTOMBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True))
+        resources.ApplyResources(Me.chkPreventMultipleValues, "chkPreventMultipleValues")
+        Me.chkPreventMultipleValues.Name = "chkPreventMultipleValues"
+        Me.chkPreventMultipleValues.Properties.Caption = resources.GetString("CheckEdit2.Properties.Caption")
+        '
         'frmAdministration
         '
         Me.Appearance.Options.UseFont = True
@@ -2477,12 +2528,20 @@ Partial Class frmAdministration
         Me.Name = "frmAdministration"
         Me.Ribbon = Me.RibbonControl1
         Me.StatusBar = Me.RibbonStatusBar1
+        CType(Me.SplitContainerControl2.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl2.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerControl2.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl2.Panel2.ResumeLayout(False)
         CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl2.ResumeLayout(False)
         CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl5.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl5.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerControl5.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl5.Panel2.ResumeLayout(False)
         CType(Me.SplitContainerControl5, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl5.ResumeLayout(False)
         CType(Me.gridAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2490,6 +2549,10 @@ Partial Class frmAdministration
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControl4.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl4.Panel1.ResumeLayout(False)
+        CType(Me.SplitContainerControl4.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControl4.Panel2.ResumeLayout(False)
         CType(Me.SplitContainerControl4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainerControl4.ResumeLayout(False)
         CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2537,6 +2600,8 @@ Partial Class frmAdministration
         CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.chkOverwrite.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.chkPreventMultipleValues.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2779,4 +2844,6 @@ Partial Class frmAdministration
     Friend WithEvents txtAutomIndexSQLResult As TextBox
     Friend WithEvents TextBox8 As TextBox
     Friend WithEvents colAKTIV As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents chkPreventMultipleValues As DevExpress.XtraEditors.CheckEdit
+    Friend WithEvents chkOverwrite As DevExpress.XtraEditors.CheckEdit
 End Class

Global_Indexer/frmAdministration.vb

@@ -369,6 +369,7 @@ Public Class frmAdministration
                 EnableControls(XtraTabPageAutoIndex)
             End If
             CheckIndexAutoWD()
+            SetAutomIndexVectorCheckboxEnabled()
         Catch ex As System.Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
         End Try
@@ -527,12 +528,13 @@ Public Class frmAdministration
 
             Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1")
             Dim oPlaceholders = oDatatable.AsEnumerable().
-                ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX"))
+                ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME"))
 
             Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With {
                 .SQLCommand = oSQLCommand,
                 .SQLConnection = oConnection,
-                .PlaceholdersManual = oPlaceholders
+                .PlaceholdersManual = oPlaceholders,
+                .PlaceholdersManualPrefix = "CTRL"
             }
 
             Dim oResult = oForm2.ShowDialog()
@@ -898,7 +900,7 @@ Public Class frmAdministration
     Private _indexIsVectorField As Boolean = False
 
     Private Sub WD_INDEXComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles WD_INDEXComboBox.SelectedIndexChanged
-        _indexIsVectorField = indexIsVectorField()
+        _indexIsVectorField = indexIsVectorField(WD_INDEXComboBox.Text)
         MULTISELECTCheckBox.Enabled = _indexIsVectorField
 
 
@@ -916,9 +918,9 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Function indexIsVectorField() As Boolean
+    Private Function indexIsVectorField(pIndexName As String) As Boolean
         Try
-            Dim selectedIndexName As String = WD_INDEXComboBox.Text
+            Dim selectedIndexName As String = pIndexName
 
             If selectedIndexName = String.Empty Then
                 Return False
@@ -1453,4 +1455,20 @@ Public Class frmAdministration
     Private Sub frmAdministration_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Check_HasChanges(BEZEICHNUNGTextBox.Text)
     End Sub
+
+    Private Sub INDEXNAME_AutoIndexCMB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles INDEXNAME_AutoIndexCMB.SelectedIndexChanged
+        SetAutomIndexVectorCheckboxEnabled()
+    End Sub
+
+    Private Function SetAutomIndexVectorCheckboxEnabled()
+        _indexIsVectorField = indexIsVectorField(INDEXNAME_AutoIndexCMB.Text)
+
+        If _indexIsVectorField Then
+            chkOverwrite.Enabled = True
+            chkPreventMultipleValues.Enabled = True
+        Else
+            chkOverwrite.Enabled = False
+            chkPreventMultipleValues.Enabled = False
+        End If
+    End Function
 End Class

Global_Indexer/frmIndex.resx

@@ -610,7 +610,7 @@
     <value>DocumentViewer1</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Type" xml:space="preserve">
-    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.8.0.0, Culture=neutral, PublicKeyToken=null</value>
+    <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.2.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
   <data name="&gt;&gt;DocumentViewer1.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel2</value>

Global_Indexer/frmIndex.vb

@@ -3,16 +3,14 @@ Imports System.Text.RegularExpressions
 Imports System.Text
 Imports System.Security.AccessControl
 Imports System.Security.Principal
-Imports System.DirectoryServices
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Language
 Imports DigitalData.Controls.LookupGrid
 Imports DigitalData.GUIs.GlobalIndexer
 Imports DevExpress.XtraEditors.Controls
 Imports Limilabs.Mail
-Imports Limilabs.Mail.Headers
 Imports DevExpress.XtraEditors
 Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.Base
 
 Public Class frmIndex
 #Region "+++++ Variablen ++++++"
@@ -49,6 +47,7 @@ Public Class frmIndex
 
     Private ReadOnly _Logger As Logger
     Private ReadOnly _FormHelper As FormHelper
+    Private ReadOnly _PostProcessing As ClassPostprocessing
 
 #End Region
 
@@ -83,6 +82,7 @@ Public Class frmIndex
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         _Logger = LOGCONFIG.GetLogger()
         _FormHelper = New FormHelper(LOGCONFIG, Me)
+        _PostProcessing = New ClassPostprocessing(LOGCONFIG)
 
         Localizer.Active = New LookupGridLocalizer()
     End Sub
@@ -524,7 +524,7 @@ Public Class frmIndex
                         Dim DTNB As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'ONLY FILE/FOLDER' ORDER BY SEQUENCE")
                         If DTNB Is Nothing = False Then
                             If DTNB.Rows.Count > 0 Then
-                                value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
+                                value_post = _PostProcessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
                                 DR.Item("Indexwert") = wert_in
                                 DR.Item("Indexwert_File") = value_post
                             End If
@@ -534,7 +534,7 @@ Public Class frmIndex
                         DTNB = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'FILE AND INDEX' ORDER BY SEQUENCE")
                         If DTNB Is Nothing = False Then
                             If DTNB.Rows.Count > 0 Then
-                                value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
+                                value_post = _PostProcessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
                                 DR.Item("Indexwert") = value_post
                             End If
                         End If
@@ -551,7 +551,6 @@ Public Class frmIndex
         Try
             _Logger.Debug("#### Name_Generieren ####")
             Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1"
-            Dim oFilesystem As New DigitalData.Modules.Filesystem.File(LOGCONFIG)
             Dim DT1 As DataTable = DATABASE_ECM.GetDatatable(sql)
             For Each row As DataRow In DT1.Rows
                 FILE_DELIMITER = row.Item("FILE_DELIMITER")
@@ -571,7 +570,7 @@ Public Class frmIndex
             CURR_WORKFILE_EXTENSION = extension
 
             oRAWZielordner = WINDREAM.GetNormalizedPath(DT.Rows(0).Item("ZIEL_PFAD"), True)
-            oRAWZielordner = Path.Combine(WINDREAM_BASEPATH, oRAWZielordner)
+            oRAWZielordner = WINDREAM_BASEPATH & oRAWZielordner
 
             '####
             ' Regulären Ausdruck zum Auslesen der Indexe definieren
@@ -725,7 +724,7 @@ Public Class frmIndex
                 End Select
             Next
 
-            CURRENT_NEWFILENAME = oFilesystem.GetCleanFilename(NewFileString)
+            CURRENT_NEWFILENAME = FILESYSTEM.GetCleanFilename(NewFileString)
             'CURRENT_NEWFILENAME = ClassFilehandle.CleanFilename(NewFileString, "")
             CURRENT_NEWFILENAME = Path.Combine(oRAWZielordner, CURRENT_NEWFILENAME)
 
@@ -831,31 +830,47 @@ Public Class frmIndex
             If DTAut.Rows.Count > 0 Then
                 Dim Count As Integer = 0
                 For Each row As DataRow In DTAut.Rows
-                    Dim indexiert = CBool(row.Item("Indexiert"))
+                    Dim oIsIndexed = CBool(row.Item("Indexiert"))
-                    Dim Indexvalue = row.Item("Indexwert").ToString
+                    Dim oIndexValue = row.Item("Indexwert").ToString
-                    Dim indexname = row.Item("INDEXNAME").ToString
+                    Dim oIndexName = row.Item("INDEXNAME").ToString
-                    If indexiert = True And Indexvalue <> "" Then
+                    Dim oOverwrite As Boolean = row.ItemEx("VKT_OVERWRITE", False)
-                        If Indexvalue <> "EMPTY_OI" Then
+                    Dim oPreventMultipleValues As Boolean = row.ItemEx("VKT_PREVENT_MULTIPLE_VALUES", False)
-                            _Logger.Info("Auto Indexname: " & indexname.ToString)
+
-                            _Logger.Info("Indexvalue: " & Indexvalue.ToString)
+                    If oIsIndexed = True And oIndexValue <> "" Then
+                        If oIndexValue <> "EMPTY_OI" Then
+                            _Logger.Info("Auto Indexname: " & oIndexName.ToString)
+                            _Logger.Info("Indexvalue: " & oIndexValue.ToString)
                             Count += 1
 
+
+
                             ' den Typ des Zielindexes auslesen
-                            Dim indexType As Integer = WINDREAM.GetIndexType(indexname)
+                            Dim indexType As Integer = WINDREAM.GetIndexType(oIndexName)
 
                             If indexType < WINDREAM.WMObjectVariableValueTypeVector Then
-                                indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
+                                indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
                             Else
-                                Dim oSplitArray = Split(Indexvalue, ClassConstants.VECTORSEPARATOR)
+                                Dim oExistingItems = WINDREAM.GetIndexValue(CURRENT_NEWFILENAME, oIndexName)
+
+                                Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR)
                                 Dim oListofString As New List(Of String)
                                 If oSplitArray.Count = 0 Then
-                                    oListofString.Add(Indexvalue)
+                                    oListofString.Add(oIndexValue)
                                 Else
                                     For Each oStr In oSplitArray
                                         oListofString.Add(oStr)
                                     Next
                                 End If
-                                indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, oListofString, CURR_DOKART_OBJECTTYPE)
+
+                                If oOverwrite = False Then
+                                    oListofString = oExistingItems.Concat(oListofString).ToList()
+                                End If
+
+                                If oPreventMultipleValues = True Then
+                                    oListofString = oListofString.Distinct().ToList()
+                                End If
+
+                                indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
                             End If
 
                             'indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, indexname, Indexvalue, CURR_DOKART_OBJECTTYPE)
@@ -931,7 +946,14 @@ Public Class frmIndex
             If pIndexAttachment = False Then
                 LOGGER.Debug("Indexing Email File: [{0}]", CURRENT_NEWFILENAME)
 
-                Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
+                ' This cannot use Path.Combine, otherwise the WINDREAM_BASEPATH will be swallowed... lol
+                'Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
+
+                Dim oMsgFilePath As String = CURRENT_NEWFILENAME
+                If CURRENT_NEWFILENAME.StartsWith(WINDREAM_BASEPATH) = False Then
+                    oMsgFilePath = WINDREAM_BASEPATH & oMsgFilePath
+                End If
+
                 Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
 
                 Dim oMessageId As String = oMail.MessageID
@@ -1387,7 +1409,7 @@ Public Class frmIndex
             End If
 
             Dim oStreamSuccessful = WINDREAM.NewFileStream(CURRENT_WORKFILE, CURRENT_NEWFILENAME, CURR_DOKART_OBJECTTYPE)
-            Dim oTempPath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
+            Dim oTempPath As String = WINDREAM_BASEPATH & CURRENT_NEWFILENAME
 
             _Logger.Debug("Checks for file [{0}]", oTempPath)
             _Logger.Debug("File streamed to Windream: {0}", oStreamSuccessful)
@@ -1896,7 +1918,7 @@ Public Class frmIndex
                 Dim AddNewItems As Boolean = oRow.Item("VKT_ADD_ITEM")
                 Dim PreventDuplicates As Boolean = oRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
                 Dim oControlName As String = oRow.Item("NAME")
-                Dim oConnectionId = Utils.NotNull(oRow.Item("CONNECTION_ID"), 0)
+                Dim oConnectionId = oRow.ItemEx("CONNECTION_ID", 0)
                 Dim oSQLSuggestion = oRow.Item("SUGGESTION")
                 Dim oSQLResult = oRow.Item("SQL_RESULT")
 
@@ -2023,9 +2045,9 @@ Public Class frmIndex
                 LOGGER.Debug("Found [{0}] depending controls for [{1}]", oDatatable.Rows.Count, Control.Name)
 
                 For Each oRow As DataRow In oDatatable.Rows
-                    Dim oControlName As String = Utils.NotNull(oRow.Item("NAME"), "")
+                    Dim oControlName As String = oRow.ItemEx("NAME", "")
-                    Dim oConnectionId As Integer = Utils.NotNull(oRow.Item("CONNECTION_ID"), -1)
+                    Dim oConnectionId As Integer = oRow.ItemEx("CONNECTION_ID", -1)
-                    Dim oControlSql As String = Utils.NotNull(oRow.Item("SQL_RESULT"), "")
+                    Dim oControlSql As String = oRow.ItemEx("SQL_RESULT", "")
 
                     If oConnectionId = -1 Or oControlSql = String.Empty Then
                         LOGGER.Warn("Missing SQL Query or ConnectionId for Control [{0}]! Continuing.", oControlName)
@@ -2052,8 +2074,7 @@ Public Class frmIndex
             End If
 
             Dim oConnectionString = DATABASE_ECM.Get_ConnectionStringforID(SqlConnectionId)
-            'Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SqlCommand, oConnectionString)
+            Dim oDatatable As DataTable = DATABASE_ECM.GetDatatableWithConnection(SqlCommand, oConnectionString)
-            Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(SqlCommand)
             Dim oFoundControl As Control = Nothing
 
             For Each oControl As Control In pnlIndex.Controls
@@ -2081,7 +2102,7 @@ Public Class frmIndex
             End If
 
             Select Case oFoundControl.GetType.Name
-                Case GetType(DevExpress.XtraEditors.TextEdit).Name
+                Case GetType(TextEdit).Name
                     If oDatatable.Rows.Count > 0 Then
                         Dim oFirstRow As DataRow = oDatatable.Rows.Item(0)
 
@@ -2089,7 +2110,7 @@ Public Class frmIndex
                             Dim oValue = oFirstRow.Item(0).ToString()
 
                             LOGGER.Debug("Setting Value for TextEdit [{0}]: [{1}]", oFoundControl.Name, oValue)
-                            DirectCast(oFoundControl, DevExpress.XtraEditors.TextEdit).Text = oValue
+                            DirectCast(oFoundControl, TextEdit).Text = oValue
                         End If
                     End If
                 Case GetType(LookupControl3).Name
@@ -2170,19 +2191,19 @@ Public Class frmIndex
             End If
 
             ' 1. Schritt: Einfach-Indexe und Platzhalter ersetzen
-            For Each oAutoIndexRow As DataRow In oDatatable
+            For Each oRow As DataRow In oDatatable
-                _Logger.Info("Working on AutomaticIndex: " & oAutoIndexRow.Item("INDEXNAME") & "...")
+                _Logger.Info("Working on AutomaticIndex: " & oRow.Item("INDEXNAME") & "...")
-                Dim oSqlResult As String = Utils.NotNull(oAutoIndexRow.Item("SQL_RESULT"), "")
+                Dim oSqlResult As String = oRow.ItemEx("SQL_RESULT", "")
-                Dim oSqlActive As Boolean = Utils.NotNull(oAutoIndexRow.Item("SQL_ACTIVE"), False)
+                Dim oSqlActive As Boolean = oRow.ItemEx("SQL_ACTIVE", False)
-                Dim oSqlConnectionId As Integer = Utils.NotNull(oAutoIndexRow.Item("CONNECTION_ID"), -1)
+                Dim oSqlConnectionId As Integer = oRow.ItemEx("CONNECTION_ID", -1)
-                Dim oSqlProvider As String = Utils.NotNull(oAutoIndexRow.Item("SQL_PROVIDER"), "")
+                Dim oSqlProvider As String = oRow.ItemEx("SQL_PROVIDER", "")
                 Dim oEndResult As New List(Of String)
 
                 ' Wenn kein SQL Befehl vorhanden oder aktiv ist, 
                 ' versuchen wir, die Spalte VALUE zu ersetzen
                 If oSqlResult = String.Empty Or oSqlActive = 0 Then
                     Dim oPlaceholderResult As String
-                    Dim oValue As String = Utils.NotNull(oAutoIndexRow.Item("VALUE"), "")
+                    Dim oValue As String = oRow.ItemEx("VALUE", "")
 
                     oPlaceholderResult = GetPlaceholderValue(oValue, CURRENT_WORKFILE, USER_SHORTNAME)
 
@@ -2190,8 +2211,8 @@ Public Class frmIndex
                         oValue = oPlaceholderResult
                     End If
 
-                    oAutoIndexRow.Item("Indexiert") = True
+                    oRow.Item("Indexiert") = True
-                    oAutoIndexRow.Item("Indexwert") = oValue
+                    oRow.Item("Indexwert") = oValue
 
                     Continue For
                 End If
@@ -2264,14 +2285,14 @@ Public Class frmIndex
                         If oIsFirstMatch Then
                             Exit For
                         End If
-                        oAutoIndexRow.Item("Indexiert") = True
+                        oRow.Item("Indexiert") = True
-                        oAutoIndexRow.Item("Indexwert") = String.Join(ClassConstants.VECTORSEPARATOR, oEndResult.ToArray)
+                        oRow.Item("Indexwert") = String.Join(ClassConstants.VECTORSEPARATOR, oEndResult.ToArray)
                     Next
                 Else
                     Dim oResult = GetAutomaticIndexSQLValue(oSqlResult, oSqlConnectionId, oSqlProvider)
                     _Logger.Info("Got a simple SQLResult: " & oResult.ToString)
-                    oAutoIndexRow.Item("Indexiert") = True
+                    oRow.Item("Indexiert") = True
-                    oAutoIndexRow.Item("Indexwert") = oResult
+                    oRow.Item("Indexwert") = oResult
 
                 End If
             Next
@@ -2541,8 +2562,7 @@ Public Class frmIndex
     Private Function CreateFolderForIndex(DynamicFolderConfig As String)
         Try
             Dim oRootFolder As String = Path.GetDirectoryName(CURRENT_NEWFILENAME)
-            Dim oFilesystem As New DigitalData.Modules.Filesystem.File(LOGCONFIG)
+            'Dim oFilesystem As New Filesystem(LOGCONFIG)
-
 
             If DynamicFolderConfig <> String.Empty Then
                 '######
@@ -2570,7 +2590,7 @@ Public Class frmIndex
                                     oManIndexValue = CDate(oManIndexValue).ToString("yyyyMMdd")
                                 End If
 
-                                oManIndexValue = oFilesystem.GetCleanPath(oManIndexValue)
+                                oManIndexValue = FILESYSTEM.GetCleanPath(oManIndexValue)
                                 'oManIndexValue = ClassFilehandle.CleanFilename(oManIndexValue, "")
                                 DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, oManIndexValue)
 
@@ -2592,7 +2612,7 @@ Public Class frmIndex
                             _Logger.Info("Ergebnis/Wert für neuen Ordner: '" & oAutoIndexName & "'")
                             If Not oAutoIndexValue = String.Empty Then
 
-                                oAutoIndexValue = oFilesystem.GetCleanPath(oAutoIndexValue)
+                                oAutoIndexValue = FILESYSTEM.GetCleanPath(oAutoIndexValue)
                                 'oAutoIndexValue = ClassFilehandle.CleanFilename(oAutoIndexValue, "")
                                 If oAutoIndexValue = "EMPTY_OI" Then
                                     DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, "")
@@ -2797,11 +2817,11 @@ Public Class frmIndex
                     Dim DTFiles2Work As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
                     If DTFiles2Work IsNot Nothing Then
                         Dim err = False
-                        For Each filerow As DataRow In DTFiles2Work.Rows
+                        For Each oRow As DataRow In DTFiles2Work.Rows
-                            CURRENT_WORKFILE_GUID = filerow.Item("GUID")
+                            CURRENT_WORKFILE_GUID = oRow.Item("GUID")
-                            CURRENT_WORKFILE = filerow.Item("FILENAME2WORK")
+                            CURRENT_WORKFILE = oRow.Item("FILENAME2WORK")
-                            CURRENT_WORKFILE_HASH = Utils.NotNull(filerow.Item("FILE_HASH"), "")
+                            CURRENT_WORKFILE_HASH = oRow.ItemEx("FILE_HASH", "")
-                            DropType = filerow.Item("HANDLE_TYPE")
+                            DropType = oRow.Item("HANDLE_TYPE")
 
                             If WORK_FILE() = False Then
                                 err = True

Global_Indexer/frmSQLSuggestion.vb

@@ -1,5 +1,30 @@
-Imports Oracle.ManagedDataAccess.Client
+Imports DigitalData.Modules.Logging
+Imports Oracle.ManagedDataAccess.Client
 Public Class frmSQLSuggestion
+    Private _Logger As Logger
+    Private _PostProcessing As ClassPostprocessing
+
+    Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            _Logger = LOGCONFIG.GetLogger()
+            _PostProcessing = New ClassPostprocessing(LOGCONFIG)
+
+            'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
+            Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
+            Dim DT As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN)
+            If DT.Rows.Count = 1 Then
+                Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
+                SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
+                SQL_UEBERPRUEFUNGTextBox.Text = DT.Rows(0).Item("SQL_CHECK")
+            End If
+            lblSave.Visible = False
+        Catch ex As Exception
+            _Logger.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
+        End Try
+    End Sub
+
     Private Sub btnVorschlag_Click(sender As Object, e As EventArgs) Handles btnVorschlag.Click
         TestSQL(cmbConnection.SelectedValue, SQL_ERGEBNISTextBox.Text)
     End Sub
@@ -88,28 +113,13 @@ Public Class frmSQLSuggestion
             End If
 
         Catch ex As Exception
-            LOGGER.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
+            _Logger.Info(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Error(ex)
+            _Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
         End Try
     End Sub
 
-    Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load
+
-        Try
-            'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen.
-            Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION)
-            Dim DT As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN)
-            If DT.Rows.Count = 1 Then
-                Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID")
-                SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT")
-                SQL_UEBERPRUEFUNGTextBox.Text = DT.Rows(0).Item("SQL_CHECK")
-            End If
-            lblSave.Visible = False
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Open Form:")
-        End Try
-    End Sub
 
     Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
         Me.Validate()
@@ -131,10 +141,10 @@ Public Class frmSQLSuggestion
             Dim origConnection = DATABASE_ECM.GetScalarValue("SELECT CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN)
             Dim insresultstring = SQL_ERGEBNISTextBox.Text.Replace("'", "''")
             Dim inscheckstring = SQL_UEBERPRUEFUNGTextBox.Text.Replace("'", "''")
-            If insresultstring <> origresultstring Or _
+            If insresultstring <> origresultstring Or
                 inscheckstring <> origcheckstring Then
                 Dim cmd As String
-                cmd = "UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',SQL_CHECK = '" & inscheckstring & "',CHANGED_WHO = '" & _
+                cmd = "UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',SQL_CHECK = '" & inscheckstring & "',CHANGED_WHO = '" &
                     Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXMAN
                 If DATABASE_ECM.ExecuteNonQuery(cmd) = True Then
                     If USER_LANGUAGE = "de-DE" Then
@@ -157,6 +167,7 @@ Public Class frmSQLSuggestion
                 End If
             End If
         Catch ex As Exception
+            _Logger.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Save SQl IndexMan:")
         End Try
     End Sub
@@ -166,7 +177,7 @@ Public Class frmSQLSuggestion
         Dim DTNB As DataTable = DATABASE_ECM.GetDatatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & CURRENT_INDEXMAN & " ORDER BY SEQUENCE")
         If DTNB Is Nothing = False Then
             If DTNB.Rows.Count > 0 Then
-                Dim value As String = ClassPostprocessing.Get_Nachbearbeitung_Wert(txtTest_idxMan.Text, DTNB)
+                Dim value As String = _PostProcessing.Get_Nachbearbeitung_Wert(txtTest_idxMan.Text, DTNB)
                 MsgBox("Der Rückgabewert - nach Durchlaufen von (" & DTNB.Rows.Count.ToString & ") Nachbearbeitungsfunktionen lautet: '" & value & "'", MsgBoxStyle.Exclamation)
 
                 If USER_LANGUAGE = "de-DE" Then

SetupVS19/Product.wxs

@@ -112,12 +112,10 @@
 				<File Id="Base" Name="DigitalData.Modules.Base.dll" Source="DigitalData.Modules.Base.dll" KeyPath="no" />
 				<File Id="Config" Name="DigitalData.Modules.Config.dll" Source="DigitalData.Modules.Config.dll" KeyPath="no" />
 				<File Id="Database" Name="DigitalData.Modules.Database.dll" Source="DigitalData.Modules.Database.dll" KeyPath="no" />
-				<File Id="Filesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll" KeyPath="no" />
 				<File Id="Language" Name="DigitalData.Modules.Language.dll" Source="DigitalData.Modules.Language.dll" KeyPath="no" />
 				<File Id="License" Name="DigitalData.Modules.License.dll" Source="DigitalData.Modules.License.dll" KeyPath="no" />
 				<File Id="Logging" Name="DigitalData.Modules.Logging.dll" Source="DigitalData.Modules.Logging.dll" KeyPath="yes" />
 				<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" />
 				<File Id="Windows" Name="DigitalData.Modules.Windows.dll" Source="DigitalData.Modules.Windows.dll" KeyPath="no" />
 				<File Id="Windream" Name="DigitalData.Modules.Windream.dll" Source="DigitalData.Modules.Windream.dll" KeyPath="no" />
 				<File Id="DocumentViewer" Name="DigitalData.Controls.DocumentViewer.dll" Source="DigitalData.Controls.DocumentViewer.dll" KeyPath="no" />
@@ -140,6 +138,7 @@
 			<Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275">
 				<File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
 				<File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />
+				<File Id="Limilabs.License" Name="MailLicense.xml" Source="MailLicense.xml" KeyPath="no" />
 			</Component>
 
 			<!--WINDREAM Bibliotheken-->