Leerer Betreff beim Ablegen Emails wird abgefangen - frmIndex

.gitignore

@@ -154,4 +154,5 @@ $RECYCLE.BIN/
 
 # Mac desktop service store files
 .DS_Store
-/.vs/Global_Indexer/v15/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

@@ -0,0 +1,121 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 17
+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
+		CD_ROM|Mixed Platforms = CD_ROM|Mixed Platforms
+		CD_ROM|x86 = CD_ROM|x86
+		Debug|Any CPU = Debug|Any CPU
+		Debug|Mixed Platforms = Debug|Mixed Platforms
+		Debug|x86 = Debug|x86
+		DVD-5|Any CPU = DVD-5|Any CPU
+		DVD-5|Mixed Platforms = DVD-5|Mixed Platforms
+		DVD-5|x86 = DVD-5|x86
+		Release|Any CPU = Release|Any CPU
+		Release|Mixed Platforms = Release|Mixed Platforms
+		Release|x86 = Release|x86
+		SingleImage|Any CPU = SingleImage|Any CPU
+		SingleImage|Mixed Platforms = SingleImage|Mixed Platforms
+		SingleImage|x86 = SingleImage|x86
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|x86.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Any CPU.Build.0 = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|x86.ActiveCfg = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Any CPU.Build.0 = Release|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
+		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Any CPU.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Any CPU.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|x86.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.CD_ROM|x86.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Debug|Any CPU.ActiveCfg = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Debug|x86.ActiveCfg = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Debug|x86.Build.0 = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.DVD-5|Any CPU.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.DVD-5|Any CPU.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.DVD-5|x86.ActiveCfg = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.DVD-5|x86.Build.0 = Debug|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Release|Any CPU.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Release|Mixed Platforms.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Release|Mixed Platforms.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Release|x86.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.Release|x86.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|Any CPU.ActiveCfg = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|Any CPU.Build.0 = Release|x86
+		{54DBCFAE-14B1-4811-94AF-B59FFF61EA73}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
+		{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
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {8909143E-612A-45CA-8ED6-D64A43E8C656}
+	EndGlobalSection
+EndGlobal

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,35 @@
+<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="8.3.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.14.1" />
+    <PackageReference Include="MSTest.TestAdapter" Version="3.9.2" />
+    <PackageReference Include="MSTest.TestFramework" Version="3.9.2" />
+    <PackageReference Include="coverlet.collector" Version="6.0.4">
+      <PrivateAssets>all</PrivateAssets>
+      <IncludeAssets>runtime; build; native; contentfiles; analyzers; buildtransitive</IncludeAssets>
+    </PackageReference>
+  </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.sln

@@ -1,83 +0,0 @@
-
-Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.26228.9
-MinimumVisualStudioVersion = 10.0.40219.1
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}"
-EndProject
-Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{5BF6646D-6F46-45E5-8806-8783F030F311}"
-EndProject
-Global
-	GlobalSection(SolutionConfigurationPlatforms) = preSolution
-		CD_ROM|Any CPU = CD_ROM|Any CPU
-		CD_ROM|Mixed Platforms = CD_ROM|Mixed Platforms
-		CD_ROM|x86 = CD_ROM|x86
-		Debug|Any CPU = Debug|Any CPU
-		Debug|Mixed Platforms = Debug|Mixed Platforms
-		Debug|x86 = Debug|x86
-		DVD-5|Any CPU = DVD-5|Any CPU
-		DVD-5|Mixed Platforms = DVD-5|Mixed Platforms
-		DVD-5|x86 = DVD-5|x86
-		Release|Any CPU = Release|Any CPU
-		Release|Mixed Platforms = Release|Mixed Platforms
-		Release|x86 = Release|x86
-		SingleImage|Any CPU = SingleImage|Any CPU
-		SingleImage|Mixed Platforms = SingleImage|Mixed Platforms
-		SingleImage|x86 = SingleImage|x86
-	EndGlobalSection
-	GlobalSection(ProjectConfigurationPlatforms) = postSolution
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Any CPU.Build.0 = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|x86.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Any CPU.Build.0 = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|x86.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Any CPU.Build.0 = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|x86.ActiveCfg = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Any CPU.Build.0 = Release|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU
-		{7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Any CPU.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.ActiveCfg = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.Build.0 = Debug|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Any CPU.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.Build.0 = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.ActiveCfg = Release|x86
-		{5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.Build.0 = Release|x86
-	EndGlobalSection
-	GlobalSection(SolutionProperties) = preSolution
-		HideSolutionNode = FALSE
-	EndGlobalSection
-EndGlobal

Global_Indexer/AboutBox1.vb

@@ -1,38 +0,0 @@
-Public NotInheritable Class AboutBox1
-
-    Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-        ' Legen Sie den Titel des Formulars fest.
-        Dim ApplicationTitle As String
-        If My.Application.Info.Title <> "" Then
-            ApplicationTitle = My.Application.Info.Title
-        Else
-            ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
-        End If
-
-        If USER_LANGUAGE = "de-DE" Then
-            Me.Text = String.Format("Information zu: {0}", ApplicationTitle)
-        Else
-            Me.Text = String.Format("Informations about: {0}", ApplicationTitle)
-        End If
-
-        ' Initialisieren Sie den gesamten Text, der im Infofeld angezeigt wird.
-        ' TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die 
-        '    Projekteigenschaften (im Menü "Projekt") anpassen.
-        lblProduktname.Text = My.Application.Info.ProductName
-        Me.lblVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
-        Me.lblCompanyName.Text = My.Application.Info.CompanyName
-        Me.txtDescription.Text = My.Application.Info.Description
-    End Sub
-
-    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
-        Me.Close()
-    End Sub
-
-
-    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        ' Specify that the link was visited.
-        Me.LinkLabel1.LinkVisited = True
-        ' Navigate to a URL.
-        System.Diagnostics.Process.Start("http://www.didalog.de")
-    End Sub
-End Class

Global_Indexer/App.config

@@ -1,54 +1,168 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
-    <configSections>
-        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
-        </sectionGroup>
-        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
-        </sectionGroup>
-    </configSections>
-    <connectionStrings>
-        <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
-            connectionString="Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
-            providerName="System.Data.SqlClient" />
-    </connectionStrings>
-    <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
-    </startup>
-    <userSettings>
-        <Global_Indexer.My.MySettings>
-            <setting name="SplitterDistance_Viewer" serializeAs="String">
-                <value>526</value>
-            </setting>
-            <setting name="WDSearch_maximized" serializeAs="String">
-                <value>True</value>
-            </setting>
-            <setting name="Show_IndexResult" serializeAs="String">
-                <value>True</value>
-            </setting>
-            <setting name="DoNot_Show_Documents" serializeAs="String">
-                <value>False</value>
-            </setting>
-            <setting name="AppTerminate" serializeAs="String">
-                <value>False</value>
-            </setting>
-            <setting name="DA_Vorauswahlaktiv" serializeAs="String">
-                <value>False</value>
-            </setting>
-            <setting name="REGEX_Replace" serializeAs="String">
-                <value />
-            </setting>
-            <setting name="FilenameTest" serializeAs="String">
-                <value>myFilename.pdf</value>
-            </setting>
-        </Global_Indexer.My.MySettings>
-    </userSettings>
-    <applicationSettings>
-        <Global_Indexer.My.MySettings>
-            <setting name="Test" serializeAs="String">
-                <value>DigitalData\windream_CLIENT_WMCC_Neustart</value>
-            </setting>
-        </Global_Indexer.My.MySettings>
-    </applicationSettings>
-</configuration>
+  <configSections>
+    <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
+      <section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+      <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+    </sectionGroup>
+    <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
+    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+  </configSections>
+  <applicationSettings>
+    <Global_Indexer.My.MySettings>
+      <setting name="GDPICTURE_VERSION" serializeAs="String">
+        <value>11.2024</value>
+      </setting>
+      <setting name="UseAppConfig" serializeAs="String">
+        <value>False</value>
+      </setting>
+    </Global_Indexer.My.MySettings>
+    <DevExpress.LookAndFeel.Design.AppSettings>
+      <setting name="DefaultAppSkin" serializeAs="String">
+        <value>Skin/Office 2019 White</value>
+      </setting>
+      <setting name="DefaultPalette" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="TouchUI" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="CompactUI" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="TouchScaleFactor" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="DirectX" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="RegisterUserSkins" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="RegisterBonusSkins" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="FontBehavior" serializeAs="String">
+        <value>UseSegoeUI</value>
+      </setting>
+      <setting name="DefaultAppFont" serializeAs="String">
+        <value>
+        </value>
+      </setting>
+      <setting name="DPIAwarenessMode" serializeAs="String">
+        <value>System</value>
+      </setting>
+      <setting name="CustomPaletteCollection" serializeAs="Xml">
+        <value />
+      </setting>
+    </DevExpress.LookAndFeel.Design.AppSettings>
+  </applicationSettings>
+  <connectionStrings>
+    <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" 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" />
+  </startup>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="NLog" publicKeyToken="5120e14c03d0593c" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14.Common" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GdPicture.NET.14.Imaging" publicKeyToken="f52a2e60ad468dbb" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-14.3.3.0" newVersion="14.3.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.5.0" newVersion="4.0.5.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-6.0.3.0" newVersion="6.0.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.5.0" newVersion="4.0.5.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Collections.Immutable" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.6" newVersion="9.0.0.6" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.6.0" newVersion="4.1.6.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Security.Cryptography.Pkcs" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.6" newVersion="9.0.0.6" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.IO.Packaging" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.6" newVersion="9.0.0.6" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.6" newVersion="9.0.0.6" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="FirebirdSql.Data.FirebirdClient" publicKeyToken="3750abcc3150b00c" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-7.5.0.0" newVersion="7.5.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Identity.Client" publicKeyToken="0a613f4dd989e8ae" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.72.1.0" newVersion="4.72.1.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="DocumentFormat.OpenXml.Framework" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-3.3.0.0" newVersion="3.3.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-3.3.0.0" newVersion="3.3.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.ValueTuple" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.5.0" newVersion="4.0.5.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.4.0" newVersion="4.2.4.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.IdentityModel.Abstractions" publicKeyToken="31bf3856ad364e35" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-8.12.0.0" newVersion="8.12.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Diagnostics.DiagnosticSource" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-9.0.0.6" newVersion="9.0.0.6" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+  <entityFramework>
+    <providers>
+      <provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
+      <provider invariantName="FirebirdSql.Data.FirebirdClient" type="EntityFramework.Firebird.FbProviderServices, EntityFramework.Firebird" />
+    </providers>
+    <defaultConnectionFactory type="EntityFramework.Firebird.FbConnectionFactory, EntityFramework.Firebird" />
+  </entityFramework>
+</configuration>

Global_Indexer/Changelog.txt

@@ -0,0 +1,12 @@
+# Changelog
+
+## 2.5.0
+
+* Replace Mail Library
+* Use DigitalData.Modules.Database for DB Access
+* Use DigitalData.Modules.License for License Management
+* Remove clsHotkey.vb
+* Remove ClassLogger.vb
+* Remove DDLLicenseManager
+* Fix jumping selection when refreshing profiles, indicies, etc
+* Fix crash when clicking add twice in admin

Global_Indexer/ClassConfig.vb

@@ -8,10 +8,16 @@ Public Class ClassConfig
     Public Property FolderWatchStarted As Boolean = False
     Public Property FolderWatchScanStarted As Boolean = False
 
-    ' PDF Viewer Settings
+    ' Index Form Settings
     Public Property FilePreview As Boolean = True
+    Public Property SplitterDistanceViewer As Integer = 500
+    Public Property ProfilePreselection As Boolean = False
+    Public Property ShowIndexResult As Boolean = True
+    Public Property DeleteOriginalFile As Boolean = False
+    Public Property TopMost As Boolean = True
 
     ' Misc Settings
-    Public Property DeleteOriginalFile As Boolean = False
-    Public Property LogErrorsOnly As Boolean = True
+    Public Property LogDEBUG As Boolean = True
+    Public Property WindreamSearchMaximized As Boolean = False
+    Public Property MyFormsDesign As String = ""
 End Class

Global_Indexer/ClassConstants.vb

@@ -1,3 +1,7 @@
 Public Class ClassConstants
     Public Const VECTORSEPARATOR = "╚"
+
+    Public Const INDEX_TYPE_BOOLEAN = "BOOLEAN"
+    Public Const INDEX_TYPE_INTEGER = "INTEGER"
+    Public Const INDEX_TYPE_VARCHAR = "VARCHAR"
 End Class

Global_Indexer/ClassControls.vb

@@ -1,32 +0,0 @@
-Public Class ClassControls
-    Public Shared Function AddCheckBox(indexname As String, y As Integer, vorbelegung As String, caption As String)
-        Try
-            Dim value As Boolean = False
-            Dim chk As New CheckBox
-            chk.Name = "chk" & indexname
-            chk.Size = New Size(100, 27)
-            chk.Location = New Point(11, y)
-
-            If caption <> "" Then
-                chk.Text = caption
-                chk.Size = New Size(CInt(caption.Length * 15), 27)
-            End If
-
-            If Boolean.TryParse(vorbelegung, value) = False Then
-                If vorbelegung = "1" Or vorbelegung = "0" Then
-                    chk.Checked = CBool(vorbelegung)
-                Else
-                    chk.Checked = False
-                End If
-            Else
-                chk.Checked = value
-            End If
-
-            Return chk
-        Catch ex As Exception
-            ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
-            Return Nothing
-        End Try
-
-    End Function
-End Class

Global_Indexer/ClassDatabase.vb

@@ -1,262 +0,0 @@
-Imports System.Data.SqlClient
-Imports Oracle.ManagedDataAccess.Client
-Public Class ClassDatabase
-    Private Const NETWORK_TIMEOUT As Integer = -1
-
-    Private Shared SQLSERVERConnectionString As String
-    Private Shared OracleConnectionString As String
-
-    Public Shared DatabaseConnectionTimeout As Boolean = False
-
-    Public Shared Function Init()
-        Try
-            SQLSERVERConnectionString = MyConnectionString
-            Dim SQLconnect As New SqlConnection
-            SQLconnect.ConnectionString = SQLSERVERConnectionString
-            SQLconnect.Open()
-            SQLconnect.Close()
-            Return True
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in Database-Init: " & ex.Message, True)
-            Return False
-        End Try
-    End Function
-
-    Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False)
-        Try
-            Dim SQLconnect As New SqlConnection
-            Dim SQLcommand As SqlCommand
-            SQLconnect.ConnectionString = SQLSERVERConnectionString
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            SQLcommand.CommandText = sql_command
-            Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand)
-            Dim dt As DataTable = New DataTable()
-            adapter1.Fill(dt)
-            SQLconnect.Close()
-
-            ' Reset timeout counter when query was sucessful
-            DatabaseConnectionTimeout = False
-
-            Return dt
-        Catch ex As SqlException
-            Dim handled = CatchDatabaseTimeout(ex, sql_command)
-
-            If Not handled Then
-                If userInput = True Then
-                    MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-                End If
-                ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
-                ClassLogger.Add("#SQL: " & sql_command, False)
-            End If
-
-            Return False
-        Catch ex As Exception
-            If userInput = True Then
-                MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-            End If
-            ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & sql_command, False)
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function Return_Datatable_CS(sql_command As String, ConString As String, Optional userInput As Boolean = False)
-        Try
-            Dim SQLconnect As New SqlConnection
-            Dim SQLcommand As SqlCommand
-            SQLconnect.ConnectionString = ConString
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            SQLcommand.CommandText = sql_command
-
-            Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand)
-            Dim dt As DataTable = New DataTable()
-            adapter1.Fill(dt)
-            SQLconnect.Close()
-
-            ' Reset timeout counter when query was sucessful
-            DatabaseConnectionTimeout = False
-
-            Return dt
-        Catch ex As SqlException
-            Dim handled = CatchDatabaseTimeout(ex, sql_command)
-
-            If Not handled Then
-                If userInput = True Then
-                    MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-                End If
-                ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
-                ClassLogger.Add("#SQL: " & sql_command, False)
-            End If
-
-            Return False
-        Catch ex As Exception
-            If userInput = True Then
-                MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-            End If
-            ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & sql_command, False)
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function Execute_non_Query(sql_command As String, Optional userInput As Boolean = False)
-        Try
-            Dim SQLconnect As New SqlConnection
-            Dim SQLcommand As SqlCommand
-            SQLconnect.ConnectionString = SQLSERVERConnectionString
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            'Update Last Created Record in Foo
-            SQLcommand.CommandText = sql_command
-            SQLcommand.ExecuteNonQuery()
-            SQLcommand.Dispose()
-            SQLconnect.Close()
-
-            ' Reset timeout counter when query was sucessful
-            DatabaseConnectionTimeout = False
-
-            Return True
-        Catch ex As SqlException
-            Dim handled = CatchDatabaseTimeout(ex, sql_command)
-
-            If Not handled Then
-                If userInput = True Then
-                    MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-                End If
-                ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
-                ClassLogger.Add("#SQL: " & sql_command, False)
-            End If
-
-            Return False
-        Catch ex As Exception
-            If userInput = True Then
-                MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-            End If
-            ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & sql_command, False)
-
-            Return False
-        End Try
-    End Function
-    Public Shared Function Execute_Scalar(sql_command As String, ConString As String, Optional userInput As Boolean = False)
-        Dim result
-        Try
-            Dim SQLconnect As New SqlConnection
-            Dim SQLcommand As SqlCommand
-            SQLconnect.ConnectionString = ConString
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            'Update Last Created Record in Foo
-            SQLcommand.CommandText = sql_command
-            result = SQLcommand.ExecuteScalar()
-            SQLcommand.Dispose()
-            SQLconnect.Close()
-
-            ' Reset timeout counter when query was sucessful
-            DatabaseConnectionTimeout = False
-
-            Return result
-        Catch ex As SqlException
-            Dim handled = CatchDatabaseTimeout(ex, sql_command)
-
-            If Not handled Then
-                If userInput = True Then
-                    MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-                End If
-                ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
-                ClassLogger.Add("#SQL: " & sql_command, False)
-            End If
-
-            Return False
-        Catch ex As Exception
-            If userInput = True Then
-                MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
-            End If
-            ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & sql_command, False)
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
-        Dim result
-        Try
-            Dim SQLconnect As New OracleConnection
-            Dim SQLcommand As New OracleCommand
-            SQLconnect.ConnectionString = OracleConnection
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            'Update Last Created Record in Foo
-            SQLcommand.CommandText = cmdscalar
-            result = SQLcommand.ExecuteScalar()
-            SQLcommand.Dispose()
-            SQLconnect.Close()
-            Return result
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in OracleExecute_Scalar: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & cmdscalar, False)
-            Return Nothing
-        End Try
-    End Function
-    Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
-        Try
-            Dim SQLconnect As New OracleConnection
-            Dim SQLcommand As OracleCommand
-            SQLconnect.ConnectionString = OracleConnection
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            'Update Last Created Record in Foo
-            SQLcommand.CommandText = ExecuteCMD
-            SQLcommand.ExecuteNonQuery()
-            SQLcommand.Dispose()
-            SQLconnect.Close()
-            Return True
-        Catch ex As Exception
-            If userInput = True Then
-                MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
-            End If
-            ClassLogger.Add("Unexpected error in OracleExecute_non_Query: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & ExecuteCMD, False)
-
-            Return False
-        End Try
-    End Function
-
-    Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
-        Try
-            Dim SQLconnect As New OracleConnection
-            Dim SQLcommand As OracleCommand
-            SQLconnect.ConnectionString = OracleConnection
-            SQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
-            SQLcommand.CommandText = Select_anweisung
-
-            Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand)
-            Dim dt As DataTable = New DataTable()
-            adapter1.Fill(dt)
-            SQLconnect.Close()
-            Return dt
-        Catch ex As Exception
-            If userInput = True Then
-                MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
-            End If
-            ClassLogger.Add("Unexpected error in Oracle_Return_Datatable: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & Select_anweisung, False)
-            Return Nothing
-        End Try
-    End Function
-
-    Public Shared Function CatchDatabaseTimeout(ex As SqlException, sql_command As String)
-        Dim FatalErrors As New List(Of Integer) From {-1, -2, 121}
-
-        If FatalErrors.Contains(ex.Number) Then
-            DatabaseConnectionTimeout = True
-
-            ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True)
-            ClassLogger.Add("#SQL: " & sql_command, False)
-
-            Return True
-        Else
-            Return False
-        End If
-    End Function
-End Class

Global_Indexer/ClassDatatables.vb

@@ -0,0 +1,139 @@
+Public Class ClassDatatables
+
+#Region "TBDD_GROUP"
+    Public Shared Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"
+                INSERT INTO TBDD_USRGRP_DOKTYPE 
+                (DOCTYPE_ID, GROUP_ID, ADDED_WHO)
+                VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}')
+            "
+            Return DATABASE_ECM.ExecuteNonQuery(oSQL)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}"
+            Return DATABASE_ECM.ExecuteNonQuery(oSQL)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function GetAssignedGroups(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, NAME FROM TBDD_GROUPS
+                WHERE GUID IN
+	            (
+		            SELECT        GROUP_ID
+		            FROM          TBDD_USRGRP_DOKTYPE
+		            WHERE         DOCTYPE_ID = {ProfileId}
+	            )
+            "
+            Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function GetAvailableGroups(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, NAME FROM TBDD_GROUPS
+                WHERE GUID NOT IN
+	            (
+		            SELECT        GROUP_ID
+		            FROM          TBDD_USRGRP_DOKTYPE
+		            WHERE         DOCTYPE_ID = {ProfileId}
+	            )
+            "
+            Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+
+#Region "TBDD_USER"
+
+    Public Shared Function AddUserToProfile(UserId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"
+                INSERT INTO TBDD_USER_DOKTYPE 
+                (DOCTYPE_ID, USER_ID, ADDED_WHO)
+                VALUES ({ProfileId}, {UserId}, '{Environment.UserName}')
+            "
+            Return DATABASE_ECM.ExecuteNonQuery(oSQL)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function RemoveUserFromProfile(UserId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND USER_ID = {UserId}"
+            Return DATABASE_ECM.ExecuteNonQuery(oSQL)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function GetAssignedUsers(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+                WHERE GUID IN (
+		                SELECT        USER_ID
+		                FROM          TBDD_USER_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+                )
+            "
+            Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function GetAvailableUsers(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT GUID, EMAIL, NAME + ', ' + PRENAME AS NAME FROM TBDD_USER
+                WHERE GUID NOT IN (
+		                SELECT        USER_ID
+		                FROM          TBDD_USER_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+	                )
+                AND GUID IN (SELECT USER_ID FROM [dbo].[FNDD_GET_USER_FOR_MODULE] ('fileFLOW', 1))
+            "
+            Dim oDatatable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+#End Region
+
+
+
+
+
+End Class

Global_Indexer/ClassDragDrop.vb

@@ -1,135 +1,93 @@
-Imports System.IO
-Imports Microsoft.Office.Interop
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
+
 Public Class ClassDragDrop
-    Public Shared files_dropped As String()
-    Public Shared Function Drop_File(e As DragEventArgs)
+    Private downHitInfo As GridHitInfo = Nothing
+
+    Public Sub New()
+    End Sub
+
+    Public Sub AddGridView(view As GridView)
+        AddHandler view.MouseDown, AddressOf view_MouseDown
+        AddHandler view.MouseMove, AddressOf view_MouseMove
+        AddHandler view.GridControl.DragOver, AddressOf grid_DragOver
+    End Sub
+
+    Private Sub view_MouseDown(sender As Object, e As MouseEventArgs)
+        Dim view As GridView = sender
+        downHitInfo = Nothing
+        Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+        If Control.ModifierKeys <> Keys.None Then
+            Return
+        End If
+
+        If e.Button = MouseButtons.Left And hitInfo.RowHandle >= 0 Then
+            downHitInfo = hitInfo
+        End If
+    End Sub
+
+    Private Sub view_MouseMove(sender As Object, e As MouseEventArgs)
         Try
-            ClassLogger.Add(">> Drop_File", False)
-            files_dropped = Nothing
-            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
-                Dim MyFiles() As String
-                Dim i As Integer
-                ' Assign the files to an array. 
-                MyFiles = e.Data.GetData(DataFormats.FileDrop)
-                ' Loop through the array and add the files to the list. 
-                For i = 0 To MyFiles.Length - 1
-                    ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
-                    ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
-                    ' ListBox1.Items.Add(MyFiles(i))
-                Next
-                Return True
-            ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
-                '// the first step here is to get the stbFileName
-                '// of the attachment and
-                '// build a full-path name so we can store it
-                '// in the temporary folder
-                '//
-                '// set up to obtain the aryFileGroupDescriptor
-                '// and extract the file name                
-                Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
-                Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
-                stmInput.Read(aryFileGroupDescriptor, 0, 512)
-                '// used to build the stbFileName from the aryFileGroupDescriptor block
-                Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
-                '// this trick gets the stbFileName of the passed attached file
-                Dim intCnt As Integer = 76
-                Do While aryFileGroupDescriptor(intCnt) <> 0
-                    stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
-                    intCnt += 1
-                Loop
-                stmInput.Close()
-                'Sonderzeichen entfernen
-                Dim Tempfilename = ClassFilehandle.InvalidCharacters(stbFileName.ToString)
-                Dim anhaenge = e.Data.GetDataPresent("FileContents")
-                'Dim path As String = "C:\VBProjekte\Dateien"
-                '// put the zip file into the temp directory
-                Dim strOutFile As String = Path.GetTempPath() & Tempfilename
-                '// create the full-path name
-                '//
-                '// Second step:  we have the file name. 
-                '// Now we need to get the actual raw
-                '// data for the attached file and copy it to disk so we work on it.
-                '//
-                '// get the actual raw file into memory
-                Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
-                If msInput Is Nothing = False Then
-                    '// allocate enough bytes to hold the raw date
-                    Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
-                    '// set starting position at first byte and read in the raw data
-                    msInput.Position = 0
-                    msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
-                    '// create a file and save the raw zip file to it
-                    Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
-                    fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
-                    fsOutput.Close() ' // close the file
-                    Dim resultVersion = ClassFilehandle.Versionierung_Datei(strOutFile)
-                    If resultVersion <> "" Then
-                        strOutFile = resultVersion
+            Dim view As GridView = sender
+            Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
+
+            If e.Button = MouseButtons.Left And Not IsNothing(downHitInfo) Then
+                Dim dragSize As Size = SystemInformation.DragSize
+                Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize)
+
+                ' DragRect ist ein kleines Rechteck, dessen Mitte der Punkt ist, wo die Maus geklickt wurde.
+                ' Es soll verhindern, dass durch schnelles Klicken unbeabsichtigt Drag'n'Drop Operationen initiiert werden
+                ' Siehe: https://msdn.microsoft.com/en-us/library/system.windows.forms.systeminformation.dragsize(v=vs.110).aspx
+                If Not dragRect.Contains(New Point(e.X, e.Y)) Then
+                    ' dragDropData enhält eine einzelne Row oder den kompletten View,
+                    ' jenachdem, wie die Drag'n'Drop Operation gestartet wurde.
+                    Dim dragDropData As String
+
+                    ' Wenn keine Zeile markiert ist
+                    If downHitInfo.RowHandle < 0 Then
+                        Exit Sub
                     End If
-                    Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
-                    '// always good to make sure we actually created the file
-                    If (finTemp.Exists = True) Then
-                        ReDim Preserve files_dropped(0)
-                        files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
-                        If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
-                        Return True
-                    Else
-                        ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
+
+                    ' Wenn zwar eine Zeile markiert ist, aber keine über die Checkbox angehakt wurde,
+                    ' wird die markierte Zeile übergeben.
+                    ' Wenn 1 oder n Zeilen über die Checkbox angehakt wurde, werden diese übergeben
+                    Dim row As DataRow = view.GetDataRow(downHitInfo.RowHandle)
+                    Dim source As String = view.GridControl.Name
+
+                    If Not IsNothing(row) Then
+                        Try
+                            dragDropData = row.Item("GUID") & "|" & source
+
+                            view.GridControl.DoDragDrop(dragDropData, DragDropEffects.Move)
+                            downHitInfo = Nothing
+
+                            DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                        End Try
                     End If
                 End If
             End If
-            If e.Data.GetDataPresent("FileGroupDescriptor") Then
-                Dim oApp
-                Try
-                    oApp = New Outlook.Application()
-                Catch ex As Exception
-                    MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
-                End Try
-
-                ClassLogger.Add(">> Drop of msg", False)
-                'supports a drop of a Outlook message 
-                Dim myobj As Object
-                For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
-                    myobj = oApp.ActiveExplorer.Selection.Item(i)
-                    Dim subj As String = myobj.Subject
-                    If subj = "" Then
-                        subj = "NO_SUBJECT"
-                    End If
-                    If subj.Contains("\") Then
-                        subj = subj.Replace("\", "-")
-                    End If
-                    If subj.Contains("/") Then
-                        subj = subj.Replace("/", "-")
-                    End If
-                    'Sonderzeichen entfernen
-                    subj = ClassFilehandle.InvalidCharacters(subj)
-                    'hardcode a destination path for testing
-                    Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
-                    strFile = strFile.Replace("?", "")
-                    strFile = strFile.Replace("!", "")
-                    strFile = strFile.Replace("%", "")
-                    strFile = strFile.Replace("$", "")
-                    ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
-                    Try
-                        myobj.SaveAs(strFile)
-                    Catch ex As Exception
-                        MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Return False
-                    End Try
-
-                    ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
-                Next
-                Return True
-                'Drop eines Outlook Attachments
-            End If
         Catch ex As Exception
-            MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return False
+            LOGGER.Error(ex)
+            MsgBox("Error in view_MouseMove: " & ex.Message, MsgBoxStyle.Critical)
         End Try
-        
+    End Sub
 
-    End Function
-   
+    Private Sub grid_DragOver(sender As Object, e As DragEventArgs)
+        If e.Data.GetDataPresent(DataFormats.Text) Then
+            Dim data As String = e.Data.GetData(DataFormats.Text)
+            Dim source = data.Split("|")(1)
+
+            Dim grid As GridControl = sender
+
+            If grid.Name <> source Then
+                e.Effect = DragDropEffects.Move
+            End If
+        Else
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
 End Class

Global_Indexer/ClassEmail.vb

@@ -1,73 +0,0 @@
-Imports System.Net.Mail
-
-Public Class ClassEmail
-    Public Shared Function Send_Log_Mail(ByVal vBody As String, ByVal vBetreff As String, ByVal emailfrom As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailpw As String, ByVal email_empf As String, Optional test As Boolean = False, Optional Log As Boolean = False)
-        '#### E-MAIL NACHRICHT VERSENDEN
-        Try
-            Dim empfaenger As String()
-            If email_empf.Contains(";") Then
-                empfaenger = email_empf.Split(";")
-            Else
-                ReDim Preserve empfaenger(0)
-                empfaenger(0) = email_empf
-            End If
-            'Für jeden Empfänger eine Neue Mail erzeugen
-            For Each _mailempfaenger As String In empfaenger
-                ' Neue Nachricht erzeugen: 
-                Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _
-                                               "<font face=""Arial"">" & vBody & "<br>>> Version: " & My.Application.Info.Version.ToString & "<br>>> Maschine: " & Environment.MachineName & "<br>" & "<br>>> Domain-Name: " & Environment.UserDomainName & "<br>" & _
-                                               "<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
-                                               My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
-                If test = False Then
-                    If Log = True Then
-                        ' create and add the attachment(s) */
-                        If ClassLogger.logDateiname.Contains("\\") Then
-                            ClassLogger.logDateiname = ClassLogger.logDateiname.Replace("\\", "\")
-                        End If
-                        If IO.File.Exists(ClassLogger.logDateiname) Then
-                            Dim Attachment As Attachment = New Attachment(ClassLogger.logDateiname)
-                            message.Attachments.Add(Attachment)
-                        End If
-                    End If
-                End If
-
-                With message
-                    .IsBodyHtml = True
-                    .Priority = MailPriority.High
-                End With
-
-                'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
-                Dim emailClient As New SmtpClient(emailsmtp)
-                'Email mit Authentifizierung
-                Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain)
-                emailClient.UseDefaultCredentials = False
-                emailClient.Credentials = SMTPUserInfo
-                emailClient.Port = 25
-
-                '*Send the message */
-                emailClient.Send(message)
-                If USER_LANGUAGE = "de-DE" Then
-                    If test = True Then
-                        MsgBox("Die Test-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
-                    End If
-                    If Log = True Then
-                        MsgBox("Die Support-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
-                    End If
-                Else
-                    If test = True Then
-                        MsgBox("Test-Email sucessfully sent!", MsgBoxStyle.Information, "Success:")
-                    End If
-                    If Log = True Then
-                        MsgBox("Support-Email sucessfully sent!", MsgBoxStyle.Information, "Success:")
-                    End If
-                End If
-                'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
-            Next
-            Return True
-        Catch ex As Exception
-            ClassLogger.Add("### Fehler im Mailversand: " & ex.Message)
-            Return False
-        End Try
-    End Function
-
-End Class

Global_Indexer/ClassEmailHeaderExtractor.vb

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

Global_Indexer/ClassFileHandler.vb

@@ -0,0 +1,390 @@
+Imports System.IO
+Imports System.Guid
+Imports System.Text.RegularExpressions
+Imports Limilabs.Mail
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class ClassFileHandler
+    Inherits BaseClass
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Property TempFiles As New List(Of String)
+
+    Private Function GetTempPath(pSourceFilePath As String, pNewFileName As String, pSubfolder As String) As String
+        Try
+            Dim oTempDirectory = Path.GetTempPath()
+            Dim oTempSubDirectory As String = Path.Combine(oTempDirectory, pSubfolder)
+
+            ' Try to create a subdirectory for all temp files so it will be easier to clean up 
+            ' these files by just deleting the whole fucking folder. 🤬
+            If Not Directory.Exists(oTempSubDirectory) Then
+                Try
+                    Directory.CreateDirectory(oTempSubDirectory)
+                Catch ex As Exception
+                    Logger.Error(ex)
+                    ' We could not create a subfolder
+                    ' Set the final directory to the default temp
+                    oTempSubDirectory = oTempDirectory
+                End Try
+            End If
+
+            ' Copy the file to the new location
+            Dim oNewPath = Path.Combine(oTempSubDirectory, pNewFileName)
+            File.Copy(pSourceFilePath, oNewPath)
+
+            Return oNewPath
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
+
+    Public Sub Clear_Tempfiles()
+        For Each oFile In TempFiles
+            Try
+                System.IO.File.Delete(oFile)
+            Catch ex As Exception
+                Logger.Error(ex)
+            End Try
+        Next
+
+        TempFiles.Clear()
+    End Sub
+
+
+    Public Function Decide_FileHandle(pFilepath As String, pHandletype As String) As Boolean
+        Try
+            Logger.Info($"Decide_FileHandle - pFilepath: {pFilepath} - pHandletype: {pHandletype}")
+            ''TODO: Before doing anything, clean the filename
+            'Dim oFilename = IO.Path.GetFileName(pFilepath)
+            'Dim oCleanFileName = Utils.RemoveInvalidCharacters(oFilename)
+            'Dim oTempDirectory = IO.Path.GetTempPath()
+            'Dim oTempFilePath = IO.Path.Combine(oTempDirectory, oCleanFileName)
+
+            'Try
+            '    TEMP_FILES.Add(oTempFilePath)
+            '    LOGGER.Debug("Copying file")
+            '    LOGGER.Debug(pFilepath)
+            '    LOGGER.Debug(oTempFilePath)
+            '    IO.File.Copy(pFilepath, oTempFilePath, True)
+            'Catch ex As Exception
+            '    LOGGER.Error(ex)
+            '    Throw ex
+            'End Try
+
+            Dim oTempFilePath = pFilepath
+
+            Dim oInboxRegex As New Regex("\.INBOX\d+$")
+
+            If oInboxRegex.IsMatch(oTempFilePath) Then
+                Logger.Info("Renaming INBOX file to EML")
+
+                Try
+                    Dim oInfo As New FileInfo(oTempFilePath)
+                    Logger.Info("Old Name: {0}", oInfo.Name)
+                    Dim oNewName = $"{oInfo.Name}.eml"
+                    Logger.Info("New Name: {0}", oNewName)
+                    Dim oTempDirectory = IO.Path.GetTempPath()
+                    Dim oNewPath = IO.Path.Combine(oTempDirectory, oNewName)
+
+                    IO.File.Copy(oInfo.FullName, oNewPath)
+
+                    'TEMP_FILES.Add(oNewPath)
+                    TempFiles.Add(oNewPath)
+
+                    oTempFilePath = oNewPath
+                Catch ex As Exception
+                    Logger.Error(ex)
+                End Try
+            End If
+
+            If oTempFilePath.ToUpper.EndsWith(".MSG") Or oTempFilePath.ToUpper.EndsWith(".EML") Then
+                CURRENT_MESSAGEID = ""
+                Dim oMail As IMail = EMAIL.Load_Email(oTempFilePath)
+                If oMail.Attachments.Count > 0 Then
+                    Dim oTitle As String
+                    Dim oMessage As String
+
+                    If USER_LANGUAGE = "de-DE" Then
+                        oTitle = "Nachfrage zur Indexierung:"
+                        oMessage = "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?"
+                    Else
+                        oTitle = "Question about Indexing:"
+                        oMessage = "Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?"
+                    End If
+                    Dim oResult As DialogResult
+
+                    ' Weird hack to force messagebox to be topmost
+                    ' https://stackoverflow.com/questions/1220882/keep-messagebox-show-on-top-of-other-application-using-c-sharp
+                    oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
+
+
+                    If oResult = MsgBoxResult.Yes Then
+                        Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
+                        Return Save_EmailAndAttachmentsToDisk(oTempFilePath, oIsFolderWatch)
+                    End If
+                End If
+            End If
+
+            If oTempFilePath.ToUpper.EndsWith(".LNK") Then
+                If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "fileFLOW")
+                Else
+                    MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "fileFLOW")
+                End If
+                Return False
+            End If
+
+            Return Insert_GI_File(oTempFilePath, pHandletype)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+
+    Private Function Save_EmailAndAttachmentsToDisk(pEmailFilePath As String, Optional pFolderWatch As Boolean = False) As Boolean
+        Try
+            Dim oMessageOnlyMarker As String = "|MSGONLY|"
+            Dim oExtractedAttachmentMarker As String = "|ATTMNTEXTRACTED|"
+            If pFolderWatch = True Then
+                oMessageOnlyMarker = "|FW_MSGONLY|"
+                oExtractedAttachmentMarker = "|FW_ATTMNTEXTRACTED|"
+            End If
+            Dim oSuccess As Boolean = False
+
+            Logger.Info("Converting file to Eml if needed: [{0}]", pEmailFilePath)
+            Dim oEmail As IMail = EMAIL.Load_Email(pEmailFilePath)
+
+            If oEmail.MessageID IsNot Nothing Then
+                CURRENT_MESSAGEID = oEmail.MessageID
+            Else
+                Logger.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+                CURRENT_MESSAGEID = NewGuid.ToString()
+            End If
+
+            Dim oEmailFilePathWithoutAttachments = EMAIL.Remove_AttachmentsFromEmail(pEmailFilePath, "_excl_attachments")
+
+            TempFiles.Add(oEmailFilePathWithoutAttachments)
+            'TEMP_FILES.Add(oEmailFilePathWithoutAttachments)
+
+            If Insert_GI_File(oEmailFilePathWithoutAttachments, oMessageOnlyMarker) = True Then
+                oSuccess = True
+
+                Dim oAttachments As List(Of String) = EMAIL.Save_AttachmentsToDisk(pEmailFilePath)
+
+                Logger.Debug("Saved [{0}] attachments to disk.", oAttachments.Count)
+
+                For Each oAttachment In oAttachments
+                    'TEMP_FILES.Add(oAttachment)
+                    TempFiles.Add(oAttachment)
+
+                    Logger.Debug("Saved attachment [{0}].", oAttachment)
+                    oSuccess = Insert_GI_File(oAttachment, oExtractedAttachmentMarker)
+
+                    If oSuccess = False Then
+                        Logger.Warn("Saving attachment to disk failed: [{0}]", oAttachment)
+                        Exit For
+                    End If
+                Next
+            End If
+
+            Return oSuccess
+        Catch ex As Exception
+            Logger.Warn("Saving email to disk failed (Email_Decay)")
+            Logger.Error(ex)
+
+            Return False
+        End Try
+    End Function
+
+    'Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+    '    Try
+    '        Dim msgonly As String = "|MSGONLY|"
+    '        Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
+    '        If FW = True Then
+    '            msgonly = "|FW_MSGONLY|"
+    '            ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
+    '        End If
+    '        Dim erfolgreich As Boolean = False
+    '        Dim msg As New MSG.Message(msgname)
+
+    '        If msg.InternetMessageId IsNot Nothing Then
+    '            CURRENT_MESSAGEID = msg.InternetMessageId
+    '        Else
+    '            LOGGER.Info("Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!")
+    '            Dim sGUID As String
+    '            sGUID = System.Guid.NewGuid.ToString()
+    '            CURRENT_MESSAGEID = sGUID
+    '        End If
+
+    '        'Nur die MSGDatei ablegen
+    '        Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+
+    '        If File.Exists(tempfile) Then
+    '            File.Delete(tempfile)
+    '        End If
+    '        Dim _msgEXAtt As New Msg.Message(msgname)
+    '        _msgEXAtt.Attachments.Clear()
+    '        _msgEXAtt.Save(tempfile)
+    '        'Datei in Array zum Templöschen speichern
+    '        TEMP_FILES.Add(tempfile)
+
+    '        If Insert_GI_File(tempfile, msgonly) = True Then
+    '            erfolgreich = True
+    '            'Hier nun die Anhänge herauslösen
+    '            Dim _msg As New Msg.Message(msgname)
+    '            Dim i1 As Integer = 1
+
+    '            LOGGER.Info(">> Anzahl der Attachments: " & _msg.Attachments.Count)
+    '            For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+    '                If erfolgreich = False Then
+    '                    Exit For
+    '                End If
+    '                Dim attachment_name As String
+    '                If attachment.LongFileName Is Nothing Then
+    '                    attachment_name = attachment.DisplayName
+    '                Else
+    '                    attachment_name = attachment.LongFileName
+    '                End If
+    '                If attachment.EmbeddedMessage IsNot Nothing Then
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+    '                    If tempfile <> String.Empty Then
+    '                        Dim oMessage = attachment.EmbeddedMessage
+    '                        oMessage.IsEmbedded = False
+    '                        oMessage.Save(tempfile)
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                ElseIf Not attachment_name.Contains("inline") Then
+    '                    'Sonderzeichen entfernen
+    '                    attachment_name = Utils.RemoveInvalidCharacters(attachment_name)
+    '                    tempfile = Path.Combine(Path.GetTempPath, attachment_name)
+    '                    tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+    '                    If tempfile <> "" Then
+    '                        attachment.Save(tempfile)
+    '                        'Datei in Array zum Templöschen speichern
+    '                        TEMP_FILES.Add(tempfile)
+    '                        LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+    '                        'nun der Insert des Anhanges
+    '                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+    '                        i1 += 1
+    '                    End If
+    '                End If
+    '            Next
+    '        End If
+    '        Return erfolgreich
+    '    Catch ex As Exception
+    '        MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+    '    End Try
+    'End Function
+
+    Private Function Insert_GI_File(filename As String, handleType As String)
+        Try
+            filename = filename.Replace("'", "''")
+
+            Dim oHash As String = String.Empty
+
+            If File.Exists(filename) Then
+                If (filename.ToUpper.EndsWith(".MSG") Or filename.ToUpper.EndsWith(".EML")) And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+                    oHash = FILESYSTEM.GetChecksumFromString(filename)
+                Else
+                    oHash = FILESYSTEM.GetChecksum(filename)
+                End If
+            End If
+
+            Dim filename_only As String = Path.GetFileName(filename)
+            Dim ins As String = $"INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK, HANDLE_TYPE, FILENAME_ONLY, FILE_HASH) VALUES ('{filename}','{Environment.UserName}','{handleType}','{filename_only}', '{oHash}')"
+            Return DATABASE_ECM.ExecuteNonQuery(ins)
+
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+    Public Function IsFileInUse(ByVal fullFilePath As String) As Boolean
+        ' Gibt zurück, ob die übergebene Datei momentan exklusiv zu haben ist.
+        ' Prüft, ob die angegeben Datei aktuell durch eine
+        ' andere Anwendung in Benutzung ist
+        Dim ff As Integer = FreeFile()
+        If File.Exists(fullFilePath) Then
+            Try
+                ' Versuchen, die Datei mit *exklusiven* Lese- und
+                ' Schreibrechten zu öffnen
+                FileOpen(ff, fullFilePath, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+            Catch ex As Exception
+                ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
+                ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
+                ' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
+                Logger.Info(">> FileInUse Message: " & ex.Message)
+                IsFileInUse = True
+            Finally
+                ' Die eventuell geöffnete Datei schließen
+                FileClose(ff)
+            End Try
+            Return False
+        End If
+
+    End Function
+    Public Function Versionierung_Datei(Dateiname As String)
+        Dim extension
+        Dim _NewFileString
+        Try
+            Dim version As Integer = 1
+
+            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname).Trim()
+            extension = Path.GetExtension(Dateiname)
+
+            Dim _neuername As String = Stammname
+            'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
+            'Überprüfen ob File existiert
+            If File.Exists(_neuername & extension) = False Then
+                _NewFileString = _neuername
+            Else
+                Do While File.Exists(_neuername & extension)
+                    version += 1
+                    _neuername = Stammname & "~" & version
+                    _NewFileString = _neuername
+                Loop
+            End If
+            Return _NewFileString & extension
+        Catch ex As Exception
+            Logger.Info(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+            Logger.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
+            Return ""
+        End Try
+
+    End Function
+    '' <summary>
+    ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
+    ''' </summary>
+    ''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
+    ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen 
+    ''' im Dateinamen</param>
+    Public Function CleanFilename(ByVal sFilename As String, Optional ByVal REPLACEChar As String = "") As String
+        Logger.Info(" >> Filename before CleanFilename: '" & sFilename & "'")
+        If sFilename.Contains(".\") Then
+            sFilename = sFilename.Replace(".\", "\")
+        End If
+        'If sFilename.Contains("'") Then
+        '    sFilename = sFilename.Replace("'", "")
+        'End If
+        'If sFilename.Contains("..") Then
+        '    sFilename = sFilename.Replace("..", ".")
+        'End If
+        ' alle nicht zulässigen Zeichen ersetzen
+        sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, REGEX_CLEAN_FILENAME, REPLACEChar)
+        sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
+        'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars()))
+        Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar))
+        Logger.Info(" >> Filename after CleanFilename: '" & sFilename & "'")
+        Return sFilename
+    End Function
+End Class

Global_Indexer/ClassFilehandle.vb

@@ -1,210 +0,0 @@
-Imports System.IO
-Imports Independentsoft
-Imports System.Text.RegularExpressions
-
-Public Class ClassFilehandle
-    ''' <summary>
-    ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String
-    ''' die in Dateinamen nicht erlaubt sind.
-    ''' </summary>
-    ''' <param name="Input">Der zu prüfende String</param>
-    ''' <returns>String ohne nichterlaubte Zeichen</returns>
-    Public Shared Function InvalidCharacters(Input As String) As String
-        Dim replacement = ""
-        'Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
-        Dim regexSearch = New String(Path.GetInvalidFileNameChars()) & New String(Path.GetInvalidPathChars())
-        Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
-        Return r.Replace(Input, replacement)
-    End Function
-    Public Shared Function Decide_FileHandle(filename As String, handletype As String)
-        Try
-            If filename.EndsWith(".msg") Then
-                CURRENT_MESSAGEID = ""
-                Dim _msg As New Msg.Message(filename)
-                If _msg.Attachments.Count > 0 Then
-                    Dim result As MsgBoxResult
-
-                    If USER_LANGUAGE = "de-DE" Then
-                        result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    Else
-                        result = MessageBox.Show("Attention: This Email contains Attachments!" & vbNewLine & "Do you want to extract the attachments and index them seperately?", "Question about Indexing:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-                    End If
-
-                    If result = MsgBoxResult.Yes Then
-                        If handletype.StartsWith("|FW") Then
-                            Return Email_Decay(filename, True)
-                        Else
-                            Return Email_Decay(filename)
-                        End If
-                    End If
-                End If
-            End If
-            Return Insert_GI_File(filename, handletype)
-        Catch ex As Exception
-            MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
-            Return False
-        End Try
-    End Function
-    Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
-        Try
-            Dim msgonly As String = "|MSGONLY|"
-            Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
-            If FW = True Then
-                msgonly = "|FW_MSGONLY|"
-                ATT_EXTR = "|FW_ATTMNTEXTRACTED|"
-            End If
-            Dim erfolgreich As Boolean = False
-            Dim msg As New Msg.Message(msgname)
-
-            If Not msg.InternetMessageId Is Nothing Then
-                CURRENT_MESSAGEID = msg.InternetMessageId
-            Else
-                If LogErrorsOnly = False Then ClassLogger.Add(">> Email_Decay: Es konnte keine Message-ID gelesen werden. Eine GUID wird erzeugt!", False)
-                Dim sGUID As String
-                sGUID = System.Guid.NewGuid.ToString()
-                CURRENT_MESSAGEID = sGUID
-            End If
-
-            'Nur die MSGDatei ablegen
-            Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
-        
-            If File.Exists(tempfile) Then
-                File.Delete(tempfile)
-            End If
-            Dim _msgEXAtt As New Msg.Message(msgname)
-            _msgEXAtt.Attachments.Clear()
-            _msgEXAtt.Save(tempfile)
-            'Datei in Array zum Templöschen speichern
-            TEMP_FILES.Add(tempfile)
-
-            If Insert_GI_File(tempfile, msgonly) = True Then
-                erfolgreich = True
-                'Hier nun die Anhänge herauslösen
-                Dim _msg As New Msg.Message(msgname)
-                Dim i1 As Integer = 1
-
-                If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False)
-                For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
-                    If erfolgreich = False Then
-                        Exit For
-                    End If
-                    Dim attachment_name As String
-                    If attachment.LongFileName Is Nothing Then
-                        attachment_name = attachment.DisplayName
-                    Else
-                        attachment_name = attachment.LongFileName
-                    End If
-                    If Not attachment_name.Contains("inline") Then
-                        'Sonderzeichen entfernen
-                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
-                        tempfile = Path.Combine(Path.GetTempPath, attachment_name)
-                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
-                        If tempfile <> "" Then
-                            attachment.Save(tempfile)
-                            'Datei in Array zum Templöschen speichern
-                            TEMP_FILES.Add(tempfile)
-                            If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
-                            'nun der Insert des Anhanges
-                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
-                            i1 += 1
-                        End If
-                    End If
-                Next
-            End If
-            Return erfolgreich
-        Catch ex As Exception
-            MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Function
-
-    Private Shared Function Insert_GI_File(filename As String, handleType As String)
-        Try
-            filename = filename.Replace("'", "''")
-
-            Dim filename_only As String = Path.GetFileName(filename)
-            Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
-            Return ClassDatabase.Execute_non_Query(ins, True)
-
-        Catch ex As Exception
-            Return False
-        End Try
-    End Function
-    Public Shared Function IsFileInUse(ByVal fullFilePath As String) As Boolean
-        ' Gibt zurück, ob die übergebene Datei momentan exklusiv zu haben ist.
-        ' Prüft, ob die angegeben Datei aktuell durch eine
-        ' andere Anwendung in Benutzung ist
-        Dim ff As Integer = FreeFile()
-        If System.IO.File.Exists(fullFilePath) Then
-            Try
-                ' Versuchen, die Datei mit *exklusiven* Lese- und
-                ' Schreibrechten zu öffnen
-                FileOpen(ff, fullFilePath, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
-            Catch ex As Exception
-                ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
-                ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
-                ' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
-                If LogErrorsOnly = False Then ClassLogger.Add(">> FileInUse Message: " & ex.Message, False)
-                IsFileInUse = True
-            Finally
-                ' Die eventuell geöffnete Datei schließen
-                FileClose(ff)
-            End Try
-            Return False
-        End If
-
-    End Function
-    Public Shared Function Versionierung_Datei(Dateiname As String)
-        Dim extension
-        Dim _NewFileString
-        Try
-            Dim version As Integer = 1
-
-            Dim Stammname As String = Path.GetDirectoryName(Dateiname) & "\" & Path.GetFileNameWithoutExtension(Dateiname)
-            extension = Path.GetExtension(Dateiname)
-
-            Dim _neuername As String = Stammname
-            'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
-            'Überprüfen ob File existiert
-            If File.Exists(_neuername & extension) = False Then
-                _NewFileString = _neuername
-            Else
-                Do While File.Exists(_neuername & extension)
-                    version = version + 1
-                    _neuername = Stammname & "~" & version
-                    _NewFileString = _neuername
-                Loop
-            End If
-            Return _NewFileString & extension
-        Catch ex As Exception
-            ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
-            Return ""
-        End Try
-
-    End Function
-    '' <summary>
-    ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
-    ''' </summary>
-    ''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
-    ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen 
-    ''' im Dateinamen</param>
-    Public Shared Function CleanFilename(ByVal sFilename As String, Optional ByVal REPLACEChar As String = "") As String
-        If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename before CleanFilename: '" & sFilename & "'", False)
-        If sFilename.Contains(".\") Then
-            sFilename = sFilename.Replace(".\", "\")
-        End If
-        'If sFilename.Contains("'") Then
-        '    sFilename = sFilename.Replace("'", "")
-        'End If
-        'If sFilename.Contains("..") Then
-        '    sFilename = sFilename.Replace("..", ".")
-        'End If
-        ' alle nicht zulässigen Zeichen ersetzen
-        sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, REGEX_CLEAN_FILENAME, REPLACEChar)
-        sFilename = System.Text.RegularExpressions.Regex.Replace(sFilename, "[\\/:*?""<>|\r\n]", "", System.Text.RegularExpressions.RegexOptions.Singleline)
-        'Dim oCleanFileName As String = String.Join(REPLACEChar, sFilename.Split(Path.GetInvalidFileNameChars()))
-        Dim oCleanFileName As New System.IO.FileInfo(System.Text.RegularExpressions.Regex.Replace(sFilename, String.Format("[{0}]", String.Join(String.Empty, Path.GetInvalidFileNameChars)), REPLACEChar))
-        If LogErrorsOnly = False Then ClassLogger.Add(" >> Filename after CleanFilename: '" & sFilename & "'", False)
-        Return sFilename
-    End Function
-End Class

Global_Indexer/ClassFolderWatcher.vb

@@ -1,11 +1,25 @@
 Imports System.IO
-Imports Independentsoft
 Imports System.Threading
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
 
 Public Class ClassFolderWatcher
-    Public Shared FolderWatcher As FileSystemWatcher
-    Public Shared FolderWatcher_SCAN As FileSystemWatcher
-    Public Shared Function Restart_FolderWatch()
+    Inherits BaseClass
+
+    Public FolderWatcher As FileSystemWatcher
+    Public FolderWatcher_SCAN As FileSystemWatcher
+
+    Public Event FileCreated As EventHandler(Of FileSystemEventArgs)
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Private Sub OnCreated(source As Object, e As IO.FileSystemEventArgs)
+        RaiseEvent FileCreated(source, e)
+    End Sub
+
+    Public Sub Restart_FolderWatch()
         Try
             If FolderWatcher.EnableRaisingEvents = True Then
                 'Gestartet also Stoppen
@@ -13,39 +27,40 @@ Public Class ClassFolderWatcher
                 FW_started = False
                 'FolderWatch neu instanzieren
                 FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch neu instanziert", False)
+
+                Logger.Info(" >> FolderWatch neu instanziert")
                 FolderWatcher.IncludeSubdirectories = False
                 FolderWatcher.EnableRaisingEvents = True
                 AddHandler FolderWatcher.Created, AddressOf OnCreated
                 FW_started = True
-                'SaveConfigValue("FW_started", "True")
                 CONFIG.Config.FolderWatchStarted = True
                 CONFIG.Save()
             End If
         Catch ex As Exception
-            ClassLogger.Add($"Error in Restart_FolderWatch: {ex.Message}", False)
+            Logger.Info($"Error in Restart_FolderWatch: {ex.Message}")
+            Logger.Error(ex)
         End Try
-    End Function
-    Public Shared Function Restart_FolderWatchSCAN()
+    End Sub
+    Public Sub Restart_FolderWatchSCAN()
         Try
             If FolderWatcher_SCAN.EnableRaisingEvents = True Then
                 'Gestartet also Stoppen
                 FolderWatcher_SCAN.EnableRaisingEvents = False
                 'FolderWatch neu instanzieren
                 FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
+                Logger.Info(" >> FolderWatchScan neu instanziert")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
-                'SaveConfigValue("FWSCAN_started", "True")
                 CONFIG.Config.FolderWatchScanStarted = True
                 CONFIG.Save()
             End If
         Catch ex As Exception
-            ClassLogger.Add($"Error in Restart_FolderWatchSCAN: {ex.Message}", False)
+            Logger.Info($"Error in Restart_FolderWatchSCAN: {ex.Message}")
+            Logger.Error(ex)
         End Try
-    End Function
-    Public Shared Function StartStop_FolderWatch()
+    End Sub
+    Public Function StartStop_FolderWatch() As Integer
         Try
             If CURRENT_FOLDERWATCH = "" Then
                 'MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation)
@@ -53,12 +68,11 @@ Public Class ClassFolderWatcher
             End If
             If FolderWatcher Is Nothing Then
                 FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Gestartet", False)
+                Logger.Info(" >> FolderWatch Gestartet")
                 FolderWatcher.IncludeSubdirectories = False
                 FolderWatcher.EnableRaisingEvents = True
                 AddHandler FolderWatcher.Created, AddressOf OnCreated
                 FW_started = True
-                'SaveConfigValue("FW_started", "True")
                 CONFIG.Config.FolderWatchStarted = True
                 CONFIG.Save()
                 Return 1
@@ -67,12 +81,11 @@ Public Class ClassFolderWatcher
                 ' Dim watcher As New FileSystemWatcher()
                 ' watcher.Path = CURRENT_FOLDERWATCH
                 FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Gestartet", False)
+                Logger.Info(" >> FolderWatch Gestartet")
                 FolderWatcher.IncludeSubdirectories = False
                 FolderWatcher.EnableRaisingEvents = True
                 AddHandler FolderWatcher.Created, AddressOf OnCreated
                 FW_started = True
-                'SaveConfigValue("FW_started", "True")
                 CONFIG.Config.FolderWatchStarted = True
                 CONFIG.Save()
                 Return 1
@@ -80,30 +93,17 @@ Public Class ClassFolderWatcher
                 'Gestartet also Stoppen
                 FolderWatcher.EnableRaisingEvents = False
                 FW_started = False
-                ClassLogger.Add(" >> FolderWatch gestoppt", False)
-                'SaveConfigValue("FW_started", "False")
+                Logger.Info(" >> FolderWatch gestoppt")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
                 Return 0
             End If
-            'If watcher.EnableRaisingEvents = False Then
-            '    watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*")
-            '    ClassLogger.Add(" - vFolderWatch.Gestartet", False)
-            '    watcher.IncludeSubdirectories = False
-            '    watcher.EnableRaisingEvents = True
-            '    AddHandler watcher.Created, AddressOf OnCreated
-            '    Return 1
-            'Else
-            '    'Gestartet also Stoppen
-            '    watcher.EnableRaisingEvents = False
-            '    Return 0
-            'End If
         Catch ex As Exception
             MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return 99
         End Try
     End Function
-    Public Shared Function StartStop_FolderWatchSCAN()
+    Public Function StartStop_FolderWatchSCAN() As Integer
         Try
             If CURRENT_SCAN_FOLDERWATCH = "" Then
                 If FolderWatcher.EnableRaisingEvents = True Then
@@ -120,8 +120,8 @@ Public Class ClassFolderWatcher
                 End If
             End If
             If FolderWatcher_SCAN Is Nothing Then
-                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+                FolderWatcher_SCAN = New FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                Logger.Info(" >> FolderWatch Scan Gestartet")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -132,8 +132,8 @@ Public Class ClassFolderWatcher
             If FolderWatcher_SCAN.EnableRaisingEvents = False Then
                 ' Dim watcher As New FileSystemWatcher()
                 ' watcher.Path = CURRENT_FOLDERWATCH
-                FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
-                ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+                FolderWatcher_SCAN = New FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
+                Logger.Info(" >> FolderWatch Scan Gestartet")
                 FolderWatcher_SCAN.IncludeSubdirectories = False
                 FolderWatcher_SCAN.EnableRaisingEvents = True
                 AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -143,24 +143,23 @@ Public Class ClassFolderWatcher
             Else
                 'Gestartet also Stoppen
                 FolderWatcher_SCAN.EnableRaisingEvents = False
-                ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
-                'SaveConfigValue("FWSCAN_started", "False")
+                Logger.Info(" >> FolderWatch Scan gestoppt")
                 CONFIG.Config.FolderWatchScanStarted = False
                 CONFIG.Save()
                 Return 0
             End If
-           
+
         Catch ex As Exception
             MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             Return 99
         End Try
     End Function
-    Public Shared Function Stop_FWSCAN()
+    Public Function Stop_FWSCAN() As Boolean
         If FolderWatcher.EnableRaisingEvents = True Then
             'Gestartet also Stoppen
             FolderWatcher.EnableRaisingEvents = False
             FW_started = False
-            ClassLogger.Add(" >> FolderWatch gestoppt", False)
+            Logger.Info(" >> FolderWatch gestoppt")
             'SaveConfigValue("FW_started", "False")
             CONFIG.Config.FolderWatchStarted = True
             CONFIG.Save()
@@ -169,38 +168,31 @@ Public Class ClassFolderWatcher
             Return False
         End If
     End Function
-    Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
-        If ClassDatabase.DatabaseConnectionTimeout = True Then
-            ClassLogger.Add(">> File handling aborted because of database timeout error!", False)
-            Exit Sub
-        End If
+    'Private Sub OnCreated(source As Object, e As FileSystemEventArgs)
+    '    Try
+    '        For Each row As DataRow In DTEXCLUDE_FILES.Rows
+    '            Dim content As String = row.Item(0).ToString.ToLower
+    '            If e.FullPath.ToLower.Contains(content) Then
+    '                Exit Sub
+    '            End If
+    '        Next
 
-        Try
-            For Each row As DataRow In DTEXCLUDE_FILES.Rows
-                Dim content As String = row.Item(0).ToString.ToLower
-                If e.FullPath.ToLower.Contains(content) Then
-                    Exit Sub
-                End If
-            Next
+    '        Dim oHandleType As String
+    '        If e.FullPath.ToLower.EndsWith(".msg") Then
+    '            oHandleType = "|FW_OUTLOOK_MESSAGE|"
+    '        Else
+    '            oHandleType = "|FW_SIMPLEINDEXER|"
+    '        End If
+    '        'Die Datei übergeben
+    '        Logger.Info(">> OnCreated-File:" & e.FullPath)
 
-            Dim handleType As String
-            If e.FullPath.ToLower.EndsWith(".msg") Then
-                handleType = "|FW_OUTLOOK_MESSAGE|"
-            Else
-                handleType = "|FW_SIMPLEINDEXER|"
-            End If
-            'Die Datei übergeben
-            If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False)
-            If ClassIndexFunctions.FileExistsinDropTable(e.FullPath) = False Then
-                ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
-            Else
-                ClassLogger.Add(">> Folderwatcher: File already exists:" & e.FullPath, False)
-            End If
+    '        If ClassIndexFunctions.CheckDuplicateFiles(e.FullPath, "FolderWatch/Scan") Then
+    '            FileHandler.Decide_FileHandle(e.FullPath, oHandleType)
+    '        End If
+    '    Catch ex As Exception
+    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
+    '    End Try
 
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
-        End Try
-
-    End Sub
+    'End Sub
 
 End Class

Global_Indexer/ClassFormFunctions.vb

@@ -1,73 +0,0 @@
-Imports System.Text.RegularExpressions
-Public Class ClassFormFunctions
-    Public Shared Function GetConnectionString(id As Integer)
-        Dim connectionString As String = ""
-        Try
-            'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
-            Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
-            If DTConnection.Rows.Count = 1 Then
-                Dim CSType = DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
-                Select Case CSType
-                    Case "MS-SQL".ToUpper
-                        If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
-                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
-                        Else
-                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
-                        End If
-                    Case "MS-SQLServer".ToUpper
-                        If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
-                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
-                        Else
-                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
-                        End If
-
-                    Case "Oracle".ToUpper
-                        If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
-                            connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
-                               DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
-                        Else
-                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True"
-                        End If
-                        'Dim conn As New OracleConnectionStringBuilder
-
-                        'If chkOR_ohne_TNS.Checked Then
-                        '    connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
-                        '        DATENBANKTextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";"
-                        'Else
-                        '    conn.DataSource = DATENBANKTextBox.Text
-                        '    conn.UserID = USERNAMETextBox.Text
-                        '    conn.Password = PASSWORDTextBox.Text
-                        '    conn.PersistSecurityInfo = True
-                        '    conn.ConnectionTimeout = 120
-                        '    connstr = conn.ConnectionString
-                        'End If
-
-
-
-                        'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;
-
-                    Case Else
-                        ClassLogger.Add(" - ConnectionType not integrated", False)
-                        MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:")
-                End Select
-            End If
-
-        Catch ex As Exception
-            ClassLogger.Add(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
-
-        End Try
-        Return connectionString
-    End Function
-    Public Shared Function CleanInput(strIn As String) As String
-        ' Replace invalid characters with empty strings.
-        Try
-            Return Regex.Replace(strIn, "[^\w\.@-]", "")
-            ' If we timeout when replacing invalid characters, 
-            ' we should return String.Empty.
-        Catch e As RegexMatchTimeoutException
-            Return String.Empty
-        End Try
-    End Function
-   
-End Class

Global_Indexer/ClassHelper.vb

@@ -1,62 +0,0 @@
-Imports System.Text
-Imports System.Text.RegularExpressions
-
-Public Class ClassHelper
-    Public Shared Function encode_utf8(ByVal str As String) As String
-        Try
-            'supply True as the construction parameter to indicate
-            'that you wanted the class to emit BOM (Byte Order Mark)
-            'NOTE: this BOM value is the indicator of a UTF-8 string
-            Dim utf8Encoding As New System.Text.UTF8Encoding(True)
-            Dim encodedString() As Byte
-            encodedString = utf8Encoding.GetBytes(str)
-            If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> String {0} was encoded via utf8 to {1}", str, utf8Encoding.GetString(encodedString)), False)
-            Return utf8Encoding.GetString(encodedString)
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in encode_utf8: " & ex.Message)
-            Return Nothing
-        End Try
-
-    End Function
-    Public Shared Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
-        Try
-            Dim bytes() As Byte
-            ' get unicode string as bytes
-            bytes = Encoding.UTF8.GetBytes(strData)
-            ' return byte data
-            Return bytes
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in StringAsUtf8Bytes: " & ex.Message)
-            Return Nothing
-        End Try
-
-    End Function
-    Public Shared Function CheckSpecialSigns(ByVal str As String)
-        Try
-            Dim pattern As String = "[!""#$%&'()*+,\-./:;<=>?@[\\\]^_`{|}~\s]"
-            Dim matches As MatchCollection = Regex.Matches(str, pattern)
-            Return matches.Count
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in CheckSpecialSigns: " & ex.Message)
-            Return 0
-        End Try
-    End Function
-    Public Shared Sub Refresh_RegexTable()
-        CURRENT_DT_REGEX = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FUNCTION_REGEX")
-    End Sub
-
-    ''' <summary>
-    ''' Überprüft einen Wert auf verschiedene Arten von "Null" und gibt einen Standard-Wert zurück, wenn der Wert "Null" ist.
-    ''' </summary>
-    ''' <param name="value">Der zu überprüfende Wert</param>
-    ''' <param name="defaultValue">Der Standard Wert</param>
-    ''' <returns>value oder wenn dieser "Null" ist, defaultValue</returns>
-    Public Shared Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T
-        If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then
-            Return defaultValue
-        Else
-            Return value
-        End If
-    End Function
-
-End Class

Global_Indexer/ClassHotkey.vb

@@ -1,50 +0,0 @@
-Public Class ClassHotkey
-
-#Region "Declarations - WinAPI, Hotkey constant and Modifier Enum"
-    ''' <summary>
-    ''' Declaration of winAPI function wrappers. The winAPI functions are used to register / unregister a hotkey
-    ''' </summary>
-    Public Declare Function RegisterHotKey Lib "user32" _
-    (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
-
-    Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
-
-    Public Const WM_HOTKEY As Integer = &H312
-
-    Enum KeyModifier
-        Alt = &H1
-        Control = &H2
-        Shift = &H4
-        Winkey = &H8
-
-    End Enum 'This enum is just to make it easier to call the registerHotKey function: The modifier integer codes are replaced by a friendly "Alt","Shift" etc.
-#End Region
-
-
-#Region "Hotkey registration, unregistration and handling"
-    Public Shared Sub registerHotkey(ByRef sourceForm As Form, ByVal hotkeyID As Integer, ByVal triggerKey As String, ByVal modifier As KeyModifier)
-        RegisterHotKey(sourceForm.Handle, hotkeyID, modifier, Asc(triggerKey.ToUpper))
-    End Sub
-    Public Shared Sub unregisterHotkeys(ByRef sourceForm As Form)
-        'Try
-        UnregisterHotKey(sourceForm.Handle, 1)  'Remember to call unregisterHotkeys() when closing your application.
-        UnregisterHotKey(sourceForm.Handle, 2)
-        UnregisterHotKey(sourceForm.Handle, 3)
-        'Catch ex As Exception
-        '    ClassLogger.Add("Unerwarteter Fehler in Unregister Hotkeys´: " & ex.Message, True)
-        'End Try
-
-    End Sub
-    'Public Shared Sub handleHotKeyEvent(ByVal hotkeyID As IntPtr)
-    '    Select Case hotkeyID
-    '        Case 1
-    '            MsgBox("The hotkey ALT+W (ID: 1) was pressed")
-    '        Case 2
-    '            MsgBox("The hotkey ALT+E (ID: 2) was pressed")
-    '        Case 3
-    '            MsgBox("The hotkey ALT+R (ID: 3) was pressed")
-    '    End Select
-    'End Sub
-#End Region
-
-End Class

Global_Indexer/ClassHotkey_Windream.vb

@@ -1,336 +0,0 @@
-Imports System.IO
-Imports System.Text
-
-Public Class ClassHotkey_Windream
-    Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr
-    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
-
-    Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
-    Private Declare Function SetForeGroundWindow Lib "user32" (ByVal Hwnd As IntPtr) As Integer
-
-    Private makel As String
-    Public Shared Function GetCaption() As String
-        Dim Caption As New System.Text.StringBuilder(256)
-        Dim hWnd As IntPtr = GetForegroundWindow()
-        GetWindowText(hWnd, Caption, Caption.Capacity)
-        Return Caption.ToString()
-    End Function
-
-    Private Shared fileContents As String
-    Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String)
-        Try
-            Dim Control_Sequence As Integer = 0
-            Dim enumerator1 As New ClassWindowAPI
-            'Jedes Formularwindow durchlaufen
-            For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows()
-                If LogErrorsOnly = False Then ClassLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
-                If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
-                    Control_Sequence = 0
-                    For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
-
-                        If vControl.MainWindowTitle <> "" Then
-                            If Control_Sequence = myControlNo Then
-                                If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then
-                                    Return True
-                                Else
-                                    If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.", False)
-                                    Return False
-                                End If
-                            End If
-                        End If
-                        Control_Sequence += 1
-                    Next vControl
-                    Return False
-                End If
-            Next top
-        Catch ex As Exception
-            MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
-            Return False
-        End Try
-    End Function
-    Private Shared Function Get_windowContent(windowname As String, myControlID As Integer)
-        Try
-            Dim Control_Sequence As Integer = 0
-            Dim enumerator1 As New ClassWindowAPI
-            'Jedes Formularwindow durchlaufen
-            For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows()
-                If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
-                    Control_Sequence = 0
-                    For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
-                        If vControl.MainWindowTitle <> "" Then
-                            If Control_Sequence = myControlID Then
-                                If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle, False)
-                                Return vControl.MainWindowTitle.ToString
-                            End If
-                        End If
-                        Control_Sequence += 1
-                    Next vControl
-                    Return Nothing
-                End If
-            Next top
-        Catch ex As Exception
-            MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add(">> Error in Get_windowContent:" & ex.Message, False)
-            Return Nothing
-        End Try
-    End Function
-    'Fenster position ermitteln/auslesen
-    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
-    Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32
-    Private Structure RECT
-        Dim Left As Integer
-        Dim Top As Integer
-        Dim Right As Integer
-        Dim Bottom As Integer
-    End Structure
-    Private Shared Sub GetWindowClientSize(ByVal hWnd As Long)
-        Dim rc As RECT
-        GetWindowRect(hWnd, rc)
-        'Left = rc.Right - rc.Left
-        'Height = rc.Bottom - rc.Top
-    End Sub
-    Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer)
-        Try
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'", False)
-            Dim DTWD As DataTable
-            Dim Objecttype As String
-            Dim windowname As String
-            Dim HKPROFILE_ID As Integer
-            Dim type As String
-
-
-            Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID
-            DTWD = ClassDatabase.Return_Datatable(_sql)
-            If DTWD.Rows.Count = 0 Then
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...KEINE USER_PROFILES hinterlegt", False)
-                Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
-            End If
-            If DTWD.Rows.Count > 1 Then
-                ClassLogger.Add("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!", True)
-                Return "Uncexpected Error in Hotkey - Check Log for Hotkey"
-            End If
-            If DTWD.Rows(0).Item(0) = "" Then
-                If LogErrorsOnly = False Then ClassLogger.Add(">> KEINE Windream-Suche hinterlegt!", False)
-                Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey"
-            End If
-            Dim BaseSearch = DTWD.Rows(0).Item(0)
-            Dim extension = Path.GetExtension(BaseSearch)
-            HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID")
-            Dim windream_temp_search As String = ""
-            If IO.File.Exists(BaseSearch) = False Then
-                ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True)
-
-                If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical)
-                Else
-                    MsgBox("Windream-Search does not exist or is not accessible", MsgBoxStyle.Critical)
-                End If
-
-                Return Nothing
-            End If
-            windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True)
-            type = ClassDatabase.Execute_Scalar("SELECT OBJECTTYPE FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True)
-            fileContents = ""
-
-            'Eine tempfile generieren
-            Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
-            'Nur den Filenamen ohne Erweiterung
-            Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
-            'tempfile löschen
-            If My.Computer.FileSystem.FileExists(tempFilename1) Then
-                My.Computer.FileSystem.DeleteFile(tempFilename1)
-            End If
-
-            Dim temppath = Path.GetTempPath
-
-            Dim EncodingFormat As Encoding
-            Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True)
-            If WDUnicode = True Then
-                EncodingFormat = Encoding.GetEncoding(1252) '1252
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False)
-            Else
-                If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False)
-                EncodingFormat = Encoding.GetEncoding(65001)
-            End If
-
-            Dim DT_HOOKS As DataTable = ClassDatabase.Return_Datatable("select * from TBHOTKEY_WINDOW_HOOK where HKPROFILE_ID = " & HKPROFILE_ID, True)
-            If DT_HOOKS.Rows.Count > 0 Then
-                Dim RelevantWindow As Boolean = False
-                For Each row As DataRow In DT_HOOKS.Rows
-                    RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE"))
-                    If RelevantWindow = False Then
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Not the relevant window", False)
-                        Return "Not the Relevant window......"
-                    End If
-                Next
-            End If
-
-
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False)
-            fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode
-            If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False)
-            fileContents = fileContents.Replace("Í", "Ö")
-            'Das Array für die PAtterns anpassen
-            _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID
-            Dim DT_PATTERNS As DataTable = ClassDatabase.Return_Datatable(_sql, True)
-            If DT_PATTERNS.Rows.Count > 0 Then
-                Dim i As Integer = 0
-                For Each row As DataRow In DT_PATTERNS.Rows
-                    If type = "COPYPASTE" Then
-                        _sql = "select window_control from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID
-                        Dim copytype = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True)
-                        Dim clipbrd
-                        Dim theHandle As IntPtr = FindWindow(Nothing, CURRENT_FOCUSES_WINDOWNAME)
-                        If theHandle <> IntPtr.Zero Then
-                            Dim theForegroundWindow As Boolean = SetForeGroundWindow(theHandle)
-                            If theForegroundWindow = True Then
-                                Select Case copytype
-                                    Case "strgC"
-                                        ' SetForeGroundWindow(HWND)
-                                        SendKeys.Send("^{c}") 'for Ctrl-C
-
-                                    Case "strA and strgC"
-                                        SendKeys.Send("^{A}")
-                                        'AppActivate(CURRENT_FOCUSES_WINDOWNAME)
-                                        SendKeys.Send("^{c}") 'for Ctrl-C
-                                End Select
-                            End If
-                        End If
-
-
-
-                        clipbrd = Clipboard.GetText
-                        Console.WriteLine(clipbrd.ToString)
-                        If Not clipbrd Is Nothing Then
-                            If clipbrd <> "" Then
-                                _sql = "select PATTERN_WDSEARCH from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID
-                                Dim _pattern = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True)
-                                fileContents = fileContents.Replace(_pattern, clipbrd.ToString)
-                            End If
-
-                        End If
-
-                    Else
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'", False)
-                        Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString)
-                        If Not IsNothing(foundresult) Then
-                            'Die Nachbearbeitungsschritte laden
-                            Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID = " & row.Item("GUID") & " ORDER BY SEQUENCE")
-                            If DTNB Is Nothing = False Then
-                                If DTNB.Rows.Count > 0 Then
-                                    foundresult = ClassPostprocessing.Get_Nachbearbeitung_Wert(foundresult, DTNB)
-                                End If
-                            End If
-                        End If
-                        If Not IsNothing(foundresult) Then
-                            If foundresult.ToString = "<" Or foundresult.ToString = ">" Then
-                                ClassLogger.Add(">> Hot Key received an irregular value.", False)
-                                Return "Hotkey konnte nur einen irregulären Wert auswerten."
-                            End If
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'", False)
-                            fileContents = fileContents.Replace(row.Item(2).ToString, foundresult)
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False)
-                        Else
-                            ClassLogger.Add(">> Hot Key could not read any value.", False)
-                            Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?"
-                        End If
-                    End If
-
-                Next
-            End If
-            Try
-                'Die windream File zusammensetzen
-                windream_temp_search = temppath & tempName & extension
-                Try
-                    'Die File schreiben
-                    My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False)
-                    ' XML-Datei öffnen und laden
-                    Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
-                    Dim Reader As New System.Xml.XmlTextReader(Stream)
-
-                    ' XML-Datei initialisieren
-                    Dim xml As New System.Xml.XmlDocument()
-                    ' XML-Datei öffnen und laden
-                    xml.Load(Reader)
-                    Reader.Close()
-                    xml.Save(windream_temp_search)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False)
-                Catch ex As Exception
-                    ClassLogger.Add("TempFile could not be created: " & ex.Message, True)
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:")
-                End Try
-
-                CURRENT_WD_TEMPSEARCH = windream_temp_search
-                TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH)
-                Try
-                    Dim myhWnd As IntPtr
-                    Dim p As New Process()
-                    p.StartInfo.FileName = windream_temp_search
-                    If My.Settings.WDSearch_maximized = True Then
-                        p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
-                    Else
-                        p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
-                    End If
-                    p.Start()
-
-                    myhWnd = p.MainWindowHandle
-                    Threading.Thread.Sleep(1000)
-                    Dim rctMain As RECT
-                    GetWindowRect(p.MainWindowHandle, rctMain)
-                    If LogErrorsOnly = False Then
-                        ClassLogger.Add(" ...Top-Position: " & rctMain.Top.ToString, False)
-                        ClassLogger.Add(" ...Left-Position: " & rctMain.Left.ToString, False)
-                        ClassLogger.Add(" ...Right-Position: " & rctMain.Right.ToString, False)
-                        ClassLogger.Add(" ...Bottom-Position: " & rctMain.Bottom.ToString, False)
-                    End If
-                Catch ex As Exception
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:")
-                    ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True)
-                    Return "Unexpected error while executing search"
-                End Try
-                Dim psList() As Process
-                Try
-                    psList = Process.GetProcesses()
-
-                    For Each p As Process In psList
-                        Console.WriteLine(p.Id.ToString() + " " + p.ProcessName)
-                        If p.ProcessName.Contains("indream.Find") Then
-                            AppActivate(p.Id)
-                            If My.Settings.WDSearch_maximized = False Then
-                                Dim rctMain As RECT
-                                GetWindowRect(p.MainWindowHandle, rctMain)
-                                If rctMain.Left = 0 Or rctMain.Right = 0 Then
-                                    ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE
-                                End If
-                            End If
-                            ' SetForeGroundWindow( p.MainWindowHandle)
-                        End If
-
-                    Next p
-
-                Catch ex As Exception
-                    ClassLogger.Add("Unexpected error while Setting foreground: " & ex.Message, True)
-                End Try
-                Return ""
-            Catch ex As Exception
-                ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True)
-                MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                Return "Unexpected error in Create Search"
-            End Try
-
-        Catch ex As Exception
-            ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True)
-            MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            Return "Unerwarteter Unexpected error in RUN_WD_SEARCH"
-        End Try
-
-
-    End Function
-
-
-
-
-End Class

Global_Indexer/ClassIDBData.vb

@@ -0,0 +1,241 @@
+Public Class ClassIDBData
+    Public DTVWIDB_BE_ATTRIBUTE As DataTable
+    ''' <summary>
+    ''' Gets all indices by BusinessEntity.
+    ''' </summary>
+    ''' <param name="BusinessEntity">Title of Business Entity</param>
+    ''' <returns>Array with all Indices</returns>
+    ''' <remarks></remarks>
+    ''' 
+    Public Function Init()
+        Dim oSQL = $"SELECT * FROM VWIDB_BE_ATTRIBUTE"
+        'DTVWIDB_BE_ATTRIBUTE = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
+        DTVWIDB_BE_ATTRIBUTE = DATABASE_IDB.GetDatatable(oSQL)
+        Return True
+    End Function
+
+    Public IDBSystemIndices As List(Of String)
+    Public Function GetIndicesByBE(ByVal BusinessEntity As String) As String()
+        Try
+            Dim aNames(4) As String
+            aNames(0) = "ObjectID"
+            aNames(1) = "IDBCreatedWhen"
+            aNames(2) = "IDBCreatedWho"
+            aNames(3) = "IDBChangedWhen"
+            aNames(4) = "IDBChangedWho"
+            IDBSystemIndices = aNames.ToList
+            ' Array für Indizes vorbereiten
+            Dim aIndexNames(DTVWIDB_BE_ATTRIBUTE.Rows.Count + 4) As String
+            Dim oCount As Integer = 0
+            aIndexNames(oCount) = "ObjectID"
+            oCount += 1
+            aIndexNames(oCount) = "IDBCreatedWhen"
+            oCount += 1
+            aIndexNames(oCount) = "IDBCreatedWho"
+            oCount += 1
+            aIndexNames(oCount) = "IDBChangedWhen"
+            oCount += 1
+            aIndexNames(oCount) = "IDBChangedWho"
+            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
+                oCount += 1
+                aIndexNames(oCount) = oRow.Item("ATTR_TITLE")
+
+            Next
+
+
+            ' Indexarray sortiert zurückgeben
+            Array.Sort(aIndexNames)
+            ' Indexarray zurückgeben
+            Return aIndexNames
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error getting the IDB Indicies")
+            Return Nothing
+        End Try
+    End Function
+    Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
+        Try
+            For Each oRow As DataRow In DTVWIDB_BE_ATTRIBUTE.Rows
+                If oRow.Item("ATTR_TITLE") = indexname Then
+                    Dim oType = oRow.Item("TYP_ID")
+                    Return oType
+                End If
+            Next
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function GetVariableValue(oAttributeName As String, Optional oIDBTyp As Integer = 0, Optional FromIDB As Boolean = False) As Object
+        Try
+            Dim oSingleAttribute As Boolean = True
+            Select Case oIDBTyp
+                Case 8
+                    oSingleAttribute = False
+                Case 9
+                    oSingleAttribute = False
+            End Select
+            Dim oAttributeValue
+
+            If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then
+                Try
+                    If oAttributeName = "IDBCreatedWhen" Then
+                        oAttributeName = "ADDED_WHEN"
+                    ElseIf oAttributeName = "IDBCreatedWho" Then
+                        oAttributeName = "ADDED_WHO"
+                    ElseIf oAttributeName = "IDBChangedWhen" Then
+                        oAttributeName = "CHANGED_WHEN"
+                    ElseIf oAttributeName = "IDBChangedWho" Then
+                        oAttributeName = "CHANGED_WHO"
+                    End If
+
+                    oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName)
+                Catch ex As Exception
+                    LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}")
+                End Try
+
+            End If
+            If Not IsNothing(oAttributeValue) Then
+                Return oAttributeValue
+            Else
+                LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
+            End If
+            Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({IDB_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
+
+            'oAttributeValue = ClassDatabase.Return_Datatable_CS(oFNSQL, CONNECTION_STRING_IDB)
+            oAttributeValue = DATABASE_IDB.GetDatatable(oFNSQL)
+
+            Dim odt As DataTable = oAttributeValue
+            If odt.Rows.Count = 1 Then
+                oAttributeValue = odt.Rows(0).Item(0)
+            End If
+            Return oAttributeValue
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function Delete_Term_Object_From_Metadata(oAttributeName As String, oTerm2Delete As String) As Object
+        Try
+            Dim oAttributeValue
+            Dim oID_IS_FOREIGN As Integer
+            oID_IS_FOREIGN = 0
+            If IDB_USES_WMFILESTORE Then
+                oID_IS_FOREIGN = 1
+            End If
+            Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {IDB_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
+
+            'DATABASE_ECM.ExecuteNonQuery_ConStr(oDELSQL, CONNECTION_STRING_IDB)
+            DATABASE_IDB.ExecuteNonQuery(oDELSQL)
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object
+        Try
+            Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'"
+
+            'DATABASE_ECM.ExecuteNonQuery_ConStr(oDELSQL, CONNECTION_STRING_IDB)
+            DATABASE_IDB.ExecuteNonQuery(oDELSQL)
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+
+    End Function
+
+    Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0)
+        Try
+            Dim omytype = oNewValue.GetType.ToString
+            If omytype = "System.Data.DataTable" Then
+                Dim oDTMyNewValues As DataTable = oNewValue
+                Dim oOldAttributeResult
+                Dim oTypeOldResult
+
+                If CheckDeleted = True Then
+                    oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp)
+                    oTypeOldResult = oOldAttributeResult.GetType.ToString
+                    If oTypeOldResult = "System.Data.DataTable" Then
+                        Dim myOldValues As DataTable = oOldAttributeResult
+                        If myOldValues.Rows.Count > 1 Then
+
+                            'now Checking whether the old row still remains in Vector? If not it will be deleted as it cannot be replaced in multivalues
+                            For Each oOldValueRow As DataRow In myOldValues.Rows
+                                Dim oExists As Boolean = False
+                                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                                    Dim oInfo1 = $"Checking oldValue[{oOldValueRow.Item(0)}] vs NewValue [{oNewValueRow.Item(1)}]"
+                                    If oNewValueRow.Item(1).ToString.ToUpper = oOldValueRow.Item(0).ToString.ToUpper Then
+                                        oExists = True
+                                        Exit For
+                                    End If
+                                Next
+
+                                If oExists = False Then
+                                    Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
+                                    LOGGER.Info(oInfo)
+                                    SetVariableValue(IDB_LOG_INDEX, oInfo)
+                                    Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0))
+                                End If
+
+                            Next
+                        End If
+                    Else
+                        If oDTMyNewValues.Rows.Count > 1 Then
+                            Dim oExists As Boolean = False
+                            For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                                Dim oInfo1 = $"Checking oldValue[{oOldAttributeResult}] vs NewValue [{oNewValueRow.Item(1)}]"
+                                If oNewValueRow.Item(1).ToString.ToUpper = oOldAttributeResult.ToString.ToUpper Then
+                                    oExists = True
+                                    Exit For
+                                End If
+                            Next
+                            If oExists = False Then
+                                Dim oInfo2 = $"Value [{oOldAttributeResult}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
+                                LOGGER.Info(oInfo2)
+                                SetVariableValue(IDB_LOG_INDEX, oInfo2)
+                                Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
+                            End If
+                        Else
+                            Dim oInfo = $"Value [{oOldAttributeResult}] of Attribute [{oAttributeName}] obviously was updated during runtime - will be deleted!"
+                            LOGGER.Info(oInfo)
+                            SetVariableValue(IDB_LOG_INDEX, oInfo)
+                            Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
+                        End If
+
+                    End If
+
+                End If
+
+                For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
+                    Dim oSuccess As Boolean = False
+                    Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {IDB_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1)}','{USER_LANGUAGE}',{IDB_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+
+                    'oSuccess = DATABASE_ECM.ExecuteNonQuery_ConStr(oFNSQL, CONNECTION_STRING_IDB)
+                    oSuccess = DATABASE_IDB.ExecuteNonQuery(oFNSQL)
+
+                    If oSuccess = False Then
+                        Return False
+                    End If
+                Next
+                Return True
+            Else
+                Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {IDB_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',{IDB_DOC_ID},@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+
+                'Return DATABASE_ECM.ExecuteNonQuery_ConStr(oFNSQL, CONNECTION_STRING_IDB)
+                Return DATABASE_IDB.ExecuteNonQuery(oFNSQL)
+            End If
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+End Class

Global_Indexer/ClassIndexFunctions.vb

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

Global_Indexer/ClassInit.vb

@@ -1,27 +1,44 @@
-Imports System.ComponentModel
-Imports DLLLicenseManager
-Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Windream
+Imports DigitalData.Modules.Messaging
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Base
 
 Public Class ClassInit
-    Public _lizenzManager As ClassLicenseManager
-    Public Sub New()
+    Private Form As Form
+
+    Public Sub New(pForm As Form)
+        Form = pForm
     End Sub
 
     Public Sub InitLogger()
-        ClassLogger.Init("", Environment.UserName)
-        ClassLogger.Add(">> Programmstart: " & Now, False)
-        ClassLogger.Add(">> Username: " & Environment.UserName, False)
-        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData)
-        LOGGER = LOGCONFIG.GetLogger("Globix")
+        LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
+                                  CompanyName:=My.Application.Info.CompanyName,
+                                  ProductName:=My.Application.Info.ProductName)
+        LOGGER = LOGCONFIG.GetLogger("fileFLOW")
+        LOGGER.Info("Programmstart: " & Now)
         LOGGER.Info("Username: {0}", Environment.UserName)
     End Sub
 
     Public Sub InitConfig()
-        CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath)
+        Dim oUtils = New ConfigUtils(LOGCONFIG)
+        oUtils.MigrateUserAppDataConfig(Application.UserAppDataPath, Application.ProductName, "fileFLOW")
+        oUtils.MigrateCommonAppDataConfig(Application.CommonAppDataPath, Application.ProductName, "fileFLOW")
+        Dim oCommonAppDataPath = Application.CommonAppDataPath
+        Dim oStartupPath = Application.StartupPath
+        If My.Settings.UseAppConfig = True Then
+            LOGGER.Info("Achtung: Anstatt ComputerConfig wird AppConfig benutzt! (UseAppConfig in Appdata)")
+            oCommonAppDataPath = oStartupPath
+        End If
+        CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, oCommonAppDataPath, Application.StartupPath)
+
+        LOGCONFIG.Debug = CONFIG.Config.LogDEBUG
+        LOGGER.Info("Debug log set to: [{0}]", LOGCONFIG.Debug)
 
         MyConnectionString = DecryptConnectionString(CONFIG.Config.ConnectionString)
-        LogErrorsOnly = CONFIG.Config.LogErrorsOnly
+        LogErrorsOnly = CONFIG.Config.LogDEBUG
+
         'myPreviewActive = CONFIG.Config.FilePreview
         FW_started = CONFIG.Config.FolderWatchStarted
         CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
@@ -40,17 +57,28 @@ Public Class ClassInit
         End If
 
         If MyConnectionString <> String.Empty Then
-            dbResult = ClassDatabase.Init()
+            ' === NEW ===
+            DATABASE_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
+            dbResult = DATABASE_ECM.DBInitialized
+
+            ' === OLD ===
+            'dbResult = ClassDatabase.Init()
         Else
             MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
             ERROR_STATE = "NO DB-CONNECTION"
             frmConfig_Basic.ShowDialog()
-            dbResult = ClassDatabase.Init()
+
+            ' === NEW ===
+            DATABASE_ECM = New MSSQLServer(LOGCONFIG, MyConnectionString)
+            dbResult = DATABASE_ECM.DBInitialized
+
+            ' === OLD ===
+            'dbResult = ClassDatabase.Init()
         End If
 
         If dbResult = False Then
             ERROR_STATE = "FAILED DBCONNECTION"
-            ' Fehler wird in frmSplash abgehandelt
+            'Fehler wird in frmSplash abgehandelt
             'MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
             Return False
         Else
@@ -62,25 +90,58 @@ Public Class ClassInit
         Dim configResult As Boolean
         configResult = Load_BasicConfig()
 
+        EMAIL = New Email2(LOGCONFIG)
+        FILESYSTEM = New FilesystemEx(LOGCONFIG)
+
         If configResult = False Then
             If USER_LANGUAGE = "de-DE" Then
                 Throw New Exception("Unerwarteter Fehler beim Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
             Else
                 Throw New Exception("Unexpected error while initializing basic-settings. More info in the log.")
             End If
+        Else
+            If IDB_ACTIVE = False Then
+                Try
+                    WINDREAM = New Windream(LOGCONFIG, False, WMDrive, WINDREAM_BASEPATH, True, "", "", "", "")
+                    If Not IsNothing(WINDREAM) Then
+                        If WINDREAM.SessionLoggedin = True Then
+                            LOGGER.Debug("windream initialisiert")
+                        Else
+                            Throw New Exception("Could not create a windream session")
+                        End If
+                    End If
+                Catch ex As Exception
+                    LOGGER.Warn("CHECKING WMConnectivity: " & ex.Message)
+                    Throw New Exception("Unexpected error in CHECKING WMConnectivity")
+                End Try
+            End If
+
         End If
     End Sub
 
     Public Function Load_BasicConfig()
         Try
-            ClassDatabase.Init()
-            Dim oSql As String = "select * from tbdd_Modules where NAME = 'Global-Indexer'"
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(oSql)
+            'ClassDatabase.Init()
+            Dim oSql As String = "SELECT * FROM TBDD_MODULES WHERE NAME = 'fileFLOW'"
+            Dim DT As DataTable = DATABASE_ECM.GetDatatable(oSql)
+
             If DT.Rows.Count = 1 Then
                 GI_withWindream = DT.Rows(0).Item("BIT1")
-                vWLaufwerk = DT.Rows(0).Item("STRING1")
-
-                DTTBGI_REGEX_DOCTYPE = ClassDatabase.Return_Datatable("SELECT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
+                'vWLaufwerk = DT.Rows(0).Item("STRING1")
+            End If
+            oSql = "SELECT * FROM TBDD_CATALOG"
+            DT = DATABASE_ECM.GetDatatable(oSql)
+            For Each oROW As DataRow In DT.Rows
+                If oROW.Item("CAT_TITLE") = "WM_DB_SERVER" Then
+                    WM_DB_SERVER = oROW.Item("CAT_STRING")
+                End If
+            Next
+            VIEWER_LICENSE = DATABASE_ECM.GetScalarValue($"SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE 
+                    NAME = 'GDPICTURE_FILEFLOW' AND ACTIVE = 1")
+            oSql = "SELECT * FROM TBDD_BASECONFIG"
+            DT = DATABASE_ECM.GetDatatable(oSql)
+            If DT.Rows.Count = 1 Then
+                WMDrive = DT.Rows(0).Item("WM_DRIVE")
                 Return True
             Else
                 Return False
@@ -94,55 +155,59 @@ Public Class ClassInit
 
     Public Sub Init_Folderwatch()
         Try
+            FILE_HANDLER = New ClassFileHandler(LOGCONFIG)
+            FOLDER_WATCHER = New ClassFolderWatcher(LOGCONFIG)
+            AddHandler FOLDER_WATCHER.FileCreated, AddressOf OnCreated
+
             Dim sql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & USER_ID
-            Dim folderwatchPath = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            Dim folderwatchPath = DATABASE_ECM.GetScalarValue(sql)
 
             folderwatchPath = IIf(IsDBNull(folderwatchPath), "", folderwatchPath)
 
             If folderwatchPath = String.Empty Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchPath is empty", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchPath is empty")
                 FW_started = False
                 'SaveConfigValue("FW_started", "False")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
-     
+
             End If
 
             If Not IO.Directory.Exists(folderwatchPath) Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchPath does not exists or is invalid path", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchPath does not exists or is invalid path")
                 FW_started = False
                 'SaveConfigValue("FW_started", "False")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
-               
+
             End If
 
             CURRENT_FOLDERWATCH = folderwatchPath
 
             FW_started = True
             FWFunction_STARTED = True
-            ClassFolderWatcher.StartStop_FolderWatch()
+            FOLDER_WATCHER.StartStop_FolderWatch()
         Catch ex As Exception
             MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatch: {ex.Message}", MsgBoxStyle.Critical)
-            ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True)
+            LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}")
             START_INCOMPLETE = True
         End Try
 
         Try
             Dim sql As String = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_ID
-            Dim folderwatchScanPath = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
+            Dim folderwatchScanPath = DATABASE_ECM.GetScalarValue(sql)
 
             folderwatchScanPath = IIf(IsDBNull(folderwatchScanPath), "", folderwatchScanPath)
 
             If folderwatchScanPath = String.Empty Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchScanPath is empty", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchScanPath is empty")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
                 Exit Sub
             End If
 
             If Not IO.Directory.Exists(folderwatchScanPath) Then
-                ClassLogger.Add("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path", True)
+                LOGGER.Info("Init_Folderwatch: folderwatchScanPath does not exists or is invalid path")
                 CONFIG.Config.FolderWatchStarted = False
                 CONFIG.Save()
                 Exit Sub
@@ -152,99 +217,88 @@ Public Class ClassInit
 
 
             FWFunction_STARTED = True
-            ClassFolderWatcher.StartStop_FolderWatchSCAN()
+            FOLDER_WATCHER.StartStop_FolderWatchSCAN()
         Catch ex As Exception
             MsgBox($"Init_Folderwatch: Unexpected error while starting FolderWatchScan: {ex.Message}", MsgBoxStyle.Critical)
-            ClassLogger.Add($"Init_Folderwatch: Unexpected error: {ex.Message}", True)
+            LOGGER.Info($"Init_Folderwatch: Unexpected error: {ex.Message}")
             START_INCOMPLETE = True
         End Try
-
-
-
-        'Try
-        '    'Die FolderWatch starten
-        'Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USER_ID
-        '    Dim folderwatch = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
-        '    sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USER_ID
-        '    Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
-        '    If Not folderwatch Is Nothing Then
-        '        CURRENT_FOLDERWATCH = folderwatch
-        '        If FW_started = True Then
-        '            If CURRENT_FOLDERWATCH = "" Then
-        '                FW_started = False
-        '                SaveConfigValue("FW_started", "False")
-        '            Else
-        '                FW_ISSTARTED = True
-        '                ClassFolderWatcher.StartStop_FolderWatch()
-        '            End If
-
-        '        End If
-        '    Else
-        '        ClassLogger.Add("Init_Folderwatch: folderwatch path is nothing!", True)
-        '    End If
-        '    If Not folderwatch_SCAN Is Nothing Then
-        '        CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
-        '        If FWSCAN_started = True Then
-        '            FW_ISSTARTED = True
-        '            ClassFolderWatcher.StartStop_FolderWatchSCAN()
-        '        End If
-        '    Else
-        '        ClassLogger.Add("Init_Folderwatch: folderwatch_SCAN path is nothing!", True)
-        '    End If
-        'Catch ex As Exception
-        '    ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
-        '    START_INCOMPLETE = True
-        'End Try
     End Sub
+
+    Private Sub OnCreated(source As Object, e As IO.FileSystemEventArgs)
+        Try
+            For Each row As DataRow In DTEXCLUDE_FILES.Rows
+                Dim content As String = row.Item(0).ToString.ToLower
+                If e.FullPath.ToLower.Contains(content) Then
+                    Exit Sub
+                End If
+            Next
+
+            Dim oHandleType As String
+            If e.FullPath.ToLower.EndsWith(".msg") Then
+                oHandleType = "|FW_OUTLOOK_MESSAGE|"
+            Else
+                oHandleType = "|FW_SIMPLEINDEXER|"
+            End If
+            'Die Datei übergeben
+            LOGGER.Info(">> Adding file from Hotfolder (OnCreated):" & e.FullPath)
+            If ClassIndexFunctions.CheckDuplicateFiles(Form, e.FullPath, "FolderWatch/Scan") Then
+                FILE_HANDLER.Decide_FileHandle(e.FullPath, oHandleType)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in folder_watch_Created")
+        End Try
+
+    End Sub
+
     Public Sub InitUserLogin()
         Try
-            Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
-            sql = sql.Replace("@user", Environment.UserName)
-            ' ClassLogger.Add(">> Username: " & Environment.UserName, False)
+            Dim oSql As String
 
-            USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-            Try
-                Dim USERID = CInt(USER_ID)
-            Catch ex As Exception
-                ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
-                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                'Me.Close()
-                START_INCOMPLETE = True
-                Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
-                Exit Sub
-            End Try
-
-            sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & USER_ID
-            USER_SHORT_NAME = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
-            If IsNothing(USER_SHORT_NAME) Or IsDBNull(USER_SHORT_NAME) Then
-                USER_SHORT_NAME = ""
-            End If
-            'Check_User_Exists_in_GIGroups()
-            sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
-            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
+            oSql = String.Format($"SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{Environment.UserName}','fileFLOW',{1})")
+            Dim DT_CHECKUSER_MODULE As DataTable = DATABASE_ECM.GetDatatable(oSql)
             If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
-                ClassLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
+                LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
                 START_INCOMPLETE = True
                 ERROR_STATE = "NO USER"
                 MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
             If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
-                USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
+
+                Dim oRow As DataRow = DT_CHECKUSER_MODULE.Rows(0)
+
+                If oRow.Item("USER_ID") = 0 And IsDBNull(oRow.Item("USER_SURNAME")) Then
+                    LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration!")
+                    START_INCOMPLETE = True
+                    Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
+                    Exit Sub
+                End If
+                USER_IN_MODULE = oRow.Item("MODULE_ACCESS")
+                USER_ID = oRow.Item("USER_ID")
+                USER_SURNAME = IIf(IsDBNull(oRow.Item("USER_SURNAME")), "", oRow.Item("USER_SURNAME"))
+                USER_PRENAME = IIf(IsDBNull(oRow.Item("USER_PRENAME")), "", oRow.Item("USER_PRENAME"))
+                USER_SHORTNAME = IIf(IsDBNull(oRow.Item("USER_SHORTNAME")), "", oRow.Item("USER_SHORTNAME"))
+                USER_EMAIL = IIf(IsDBNull(oRow.Item("USER_EMAIL")), "", oRow.Item("USER_EMAIL"))
+                USER_LANGUAGE = oRow.Item("USER_LANGUAGE")
+                USER_IN_MODULE = oRow.Item("MODULE_ACCESS")
+                USER_IS_ADMIN = oRow.Item("IS_ADMIN")
+                USERCOUNT_LOGGED_IN = oRow.Item("USERCOUNT_LOGGED_IN")
+                ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
                 If USER_IN_MODULE = False Then
-                    ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
+                    LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!")
                     START_INCOMPLETE = True
 
                     Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
 
                     Exit Sub
                 End If
-                USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
+                USER_IS_ADMIN = oRow.Item("IS_ADMIN")
 
                 ClassLicence.Refresh_Licence()
 
                 Dim sql1 = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1"
-                DOCTYPE_COUNT_ACTUAL = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
+                DOCTYPE_COUNT_ACTUAL = DATABASE_ECM.GetScalarValue(sql1)
                 If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Ihre Anzahl von konfigurierbaren Dokumentarten ist limitiert auf: '" & LICENSE_DOCTYPE_COUNT.ToString & "'." & vbNewLine & "Bitte kontaktieren Sie Digital Data für weitere Details.", MsgBoxStyle.Information)
@@ -252,25 +306,22 @@ Public Class ClassInit
                         MsgBox("Your amount of configurable documenttypes is limited to " & LICENSE_DOCTYPE_COUNT.ToString & " doctypes. You can not add more doctypes!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
                     End If
                 End If
-                USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
+                USER_LANGUAGE = oRow.Item("USER_LANGUAGE")
 
-                sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
-                ClassDatabase.Execute_non_Query(sql, True)
-                sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
-                ClassDatabase.Execute_non_Query(sql)
-                sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
-                Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
-                If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
-                UserLoggedin = CInt(anzahl)
-                UserLoggedin += 1
-                If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
-                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                    ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)
+                oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'fileFLOW'"
+                DATABASE_ECM.ExecuteNonQuery(oSql)
+                oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'fileFLOW', 1)"
+                DATABASE_ECM.ExecuteNonQuery(oSql)
+                oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'fileFLOW'"
+
+                If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
+                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für fileFLOW!")
                     If USER_IS_ADMIN = False Then
                         'Anmeldung wieder herausnehmen
-                        sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
-                        ClassDatabase.Execute_non_Query(sql, True)
-                        ClassLogger.Add(" - Wieder abgemeldet", False)
+                        oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'fileFLOW'"
+                        DATABASE_ECM.ExecuteNonQuery(oSql)
+                        LOGGER.Info(" - Wieder abgemeldet")
                         START_INCOMPLETE = True
                     End If
                 End If
@@ -281,7 +332,8 @@ Public Class ClassInit
 
 
         Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
+            LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message)
+            LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
             START_INCOMPLETE = True
         End Try

Global_Indexer/ClassLayout.vb

@@ -2,7 +2,7 @@
 Imports System.IO
 
 Public Class ClassWindowLocation
-    Public Shared Sub LoadFormLocationSize(ByRef form As Form)
+    Public Shared Sub LoadFormLocationSize(ByRef form As Form, Optional LoadSize As Boolean = True)
         Try
             Dim _path, _pathold As String
 
@@ -53,7 +53,7 @@ Public Class ClassWindowLocation
                     If x >= 0 And y >= 0 Then
                         form.Location = New Point(x, y)
                     End If
-                    If w > 0 And h > 0 Then
+                    If w > 0 And h > 0 And LoadSize = True Then
                         form.Size = New Size(w, h)
                     End If
                 End If
@@ -76,11 +76,12 @@ Public Class ClassWindowLocation
                 End If
             Next
             If result = False Then
-                ClassLogger.Add(">> Saved layout is not fitting to Resolution. Default is loaded.", True)
+                LOGGER.Info(">> Saved layout is not fitting to Resolution. Default is loaded.")
             End If
             Return result
         Catch ex As Exception
-            ClassLogger.Add("Error in IsVisibleOnAnyScreen: " & ex.Message, True)
+            LOGGER.Info("Error in IsVisibleOnAnyScreen: " & ex.Message)
+            LOGGER.Error(ex)
             Return False
         End Try
     End Function
@@ -139,16 +140,17 @@ Public Class ClassSetting
 End Class
 
 Public Class ClassLayout
-    Private _filename As String
+    Private ReadOnly _filename As String
+    Private ReadOnly _settings As XmlWriterSettings
     Private _reader As XmlReader
-    Private _settings As XmlWriterSettings
 
     Public Sub New(filename As String)
         _filename = filename
 
-        _settings = New XmlWriterSettings()
-        _settings.Encoding = System.Text.Encoding.UTF8
-        _settings.Indent = True
+        _settings = New XmlWriterSettings With {
+            .Encoding = System.Text.Encoding.UTF8,
+            .Indent = True
+        }
     End Sub
 
     Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting))

Global_Indexer/ClassLicence.vb

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

Global_Indexer/ClassLogger.vb

@@ -1,215 +0,0 @@
-Imports System.IO
-Public Class ClassLogger
-    Public Shared DateiSpeicherort As String = Nothing
-    Public Shared DateiPrefix As String = ""
-    Public Shared Datei As IO.File = Nothing
-    Public Shared logDateiname As String = ""
-    Private Shared StreamWriter As IO.StreamWriter = Nothing
-    Private Shared HasInformedAboutError As Boolean = False
-    ' eine Art Konstruktor
-    Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
-        ' initialisiert den Speicherort
-        ClassLogger.SetSpeicherort(speicherort)
-        ' wenn ein Prfix gesetzt wurde
-        If Not prefix = "" Then
-            ' initialisiert das Prefix
-            ClassLogger.SetPrefix(prefix)
-        End If
-        Dim str As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
-        Dim anz As Integer = 1
-        Do While File.Exists(str)
-            Dim info As New FileInfo(str)
-            Dim length As Long = info.Length
-            If length > 5000000 Then
-                str = IO.Path.GetDirectoryName(str)
-                str = str & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
-                anz = anz + 1
-            Else
-                Exit Do
-            End If
-        Loop
-        ClassLogger.logDateiname = str
-        If Not appendFile Then
-            ' der Versuch die Datei zu löschen
-            'Try
-            '    My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
-            'Catch ex As Exception
-            '    ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht
-            '    ' ALSO: alles Okay soweit
-            'End Try
-            My.Computer.FileSystem.WriteAllText(ClassLogger.logDateiname, String.Empty, False)
-        End If
-        ' testen ob sich die Datei öffnen und beschreiben lässt
-        'ClassNILogger.CheckIsLogWritable()
-    End Sub
-
-    ' legt den Speicherort fest
-    Public Shared Sub SetSpeicherort(ByVal speicherort As String)
-        Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\Global Indexer\Log"))
-
-        If speicherort = "" Then
-            If f.Exists = False Then
-                IO.Directory.CreateDirectory(f.ToString())
-            End If
-            ClassLogger.DateiSpeicherort = f.ToString()
-        Else
-            ClassLogger.DateiSpeicherort = speicherort
-        End If
-
-        'Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
-        'If speicherort = "" Then
-        '    If f.Exists = False Then
-        '        IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
-        '    End If
-        '    ClassLogger.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\"
-        'Else
-        '    ClassLogger.DateiSpeicherort = speicherort
-        'End If
-    End Sub
-
-    ' legt das Prefix für den Dateinamen fest
-    Public Shared Sub SetPrefix(ByVal prefix As String)
-        ClassLogger.DateiPrefix = prefix
-    End Sub
-
-    Public Shared Sub Add(ByVal information As String, Optional ByVal ACHTUNG As Boolean = True)
-        If ClassLogger.OpenFile Then
-            Try
-                If ACHTUNG Then
-                    ClassLogger.StreamWriter.WriteLine(Now.ToString & "# ATTENTION #: " & information)
-                Else
-                    ClassLogger.StreamWriter.WriteLine(Now.ToString & information)
-                End If
-                ClassLogger.CloseFile()
-            Catch e As Exception
-                ClassLogger.ShowErrorMessage()
-            End Try
-        Else
-            ClassLogger.ShowErrorMessage()
-        End If
-    End Sub
-    Public Shared Sub Add(ByVal ex As Exception)
-        If ClassLogger.OpenFile Then
-            Try
-                ClassLogger.StreamWriter.WriteLine(Now.ToString & "##### Exception ####")
-                ClassLogger.StreamWriter.WriteLine(Now.ToString & "##### Fehler: " & ex.Message & " Source [" & ex.Source & "]")
-                ClassLogger.CloseFile()
-            Catch e As Exception
-                ClassLogger.ShowErrorMessage()
-            End Try
-        Else
-            ClassLogger.ShowErrorMessage()
-        End If
-    End Sub
-    ' öffnet eine Datei zum Schreiben
-    Private Shared Function OpenFile()
-        Try
-            ' wenn ein Speicherort festgelegt wurde
-            If Not ClassLogger.DateiSpeicherort = Nothing Then
-                ' den Dateienamen definieren
-                Dim dateiname As String = ClassLogger.logDateiname
-                ' Datei anlegen wenn noch nicht vorhanden
-                My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
-                ' die Datei zum Schreiben öffnen
-                ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
-            End If
-            ' wenn die Datei erfolgreich geöffnet wurde
-            If ClassLogger.StreamWriter IsNot Nothing Then
-                Return True
-            Else
-                Return False
-            End If
-        Catch ex As Exception
-            Return False
-        End Try
-
-    End Function
-
-    ' öffnet eine Datei zum Schreiben
-    Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String)
-
-        Try
-
-            ' wenn ein Speicherort festgelegt wurde
-            If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then
-
-                ' den Dateienamen definieren
-                Dim dateiname As String = ClassLogger.logDateiname
-                ' Datei anlegen wenn noch nicht vorhanden
-                My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
-
-                ' die Datei zum Schreiben öffnen
-                ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
-            End If
-
-            ' wenn die Datei erfolgreich geöffnet wurde
-            If ClassLogger.StreamWriter IsNot Nothing Then
-                Return True
-            Else
-                Return False
-            End If
-
-        Catch ex As Exception
-            Return False
-        End Try
-
-    End Function
-
-
-    ' schliesst die geöffnete Datei
-    Private Shared Sub CloseFile()
-
-        ' wenn eine Datei geöffnet ist
-        If ClassLogger.StreamWriter IsNot Nothing Then
-            ' die Datei schliessen
-            ClassLogger.StreamWriter.Close()
-            ClassLogger.StreamWriter = Nothing
-        End If
-    End Sub
-
-
-    Public Shared Function CheckIsLogWritable()
-
-        If ClassLogger.OpenFile Then
-            Try
-                ClassLogger.CloseFile()
-            Catch e As Exception
-                ClassLogger.ShowErrorMessage()
-                Return False
-            End Try
-        Else
-            ClassLogger.ShowErrorMessage()
-            Return False
-        End If
-
-        Return True
-    End Function
-
-
-    Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String)
-
-        If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then
-            Try
-                ClassLogger.CloseFile()
-            Catch e As Exception
-                ClassLogger.ShowErrorMessage()
-                Return False
-            End Try
-        Else
-            ClassLogger.ShowErrorMessage()
-            Return False
-        End If
-
-        Return True
-    End Function
-
-
-    Private Shared Sub ShowErrorMessage()
-        If Not ClassLogger.HasInformedAboutError Then
-            MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _
-                   vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _
-                   MsgBoxStyle.Information, "Unexpected error inm Öffnen der Logdatei")
-            ClassLogger.HasInformedAboutError = True
-        End If
-    End Sub
-End Class

Global_Indexer/ClassParamRefresh.vb

@@ -0,0 +1,47 @@
+Imports DigitalData.Modules.Database
+
+Public Class ClassParamRefresh
+    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
+        If DT_CHECKUSER.Rows.Count = 1 Then
+            USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
+            Try
+                WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
+            Catch ex As Exception
+                WORKING_MODE = ""
+            End Try
+
+            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+
+            ' Use For Each loop over words and display them.
+            Dim oMode As String
+            For Each oMode In oSplitWorkMode
+                LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
+                If oMode.StartsWith("IDB_CONID!") Then
+                    Dim oConnectionId = oMode.Replace("GLOBIX.IDB_CONID!", "")
+                    Dim oConString = DATABASE_ECM.Get_ConnectionStringforID(oConnectionId)
+
+                    CONNECTION_STRING_IDB = oConString
+                    DATABASE_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)
+
+                    Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
+                    Dim oDT As DataTable = DATABASE_IDB.GetDatatable(oSQL)
+
+                    If Not IsNothing(oDT) Then
+                        If oDT.Rows.Count > 0 Then
+                            IDB_ACTIVE = True
+                        Else
+                            LOGGER.Warn($"Got an IDB-ConnID [{oConnectionId}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
+                        End If
+                    Else
+                        LOGGER.Warn($"Got an IDB-ConnID [{oConnectionId}] but check DT Attribute is Nothing!!")
+                    End If
+                ElseIf oMode.StartsWith("IDB.LOG_INDEX") Then
+                    IDB_LOG_INDEX = oMode.Replace("IDB.LOG_INDEX!", "")
+                Else
+                    LOGGER.Info($"Wrong oMode: {oMode}")
+                End If
+            Next
+
+        End If
+    End Sub
+End Class

Global_Indexer/ClassPatterns.vb

@@ -0,0 +1,557 @@
+Imports System.Text.RegularExpressions
+Imports DevExpress.XtraEditors
+Imports DigitalData.Controls.LookupGrid
+Imports DigitalData.Modules.Base
+Imports DigitalData.GUIs.GlobalIndexer
+Imports WINDREAMLib
+Imports System.IO
+Imports DevExpress.Data
+
+''' <summary>
+''' Defines common Functions for Checking for and replacing placeholders.
+''' This Class also includes a child class `Pattern` for passing around Patterns.
+''' 
+''' The format of all placeholders is:
+''' {#TYPE#VALUE}
+''' 
+''' Some Examples:
+''' {#INT#USERNAME}
+''' {#CTRL#CMB_2}
+''' {#WMI#String 39}
+''' </summary>
+Public Class ClassPatterns
+    ' Complex patterns that rely on a datasource like a Database or Windream
+    Public Const PATTERN_WMI = "WMI"
+    Public Const PATTERN_IDBA = "IDBA"
+    Public Const PATTERN_CTRL = "CTRL"
+    ' Simple patterns that only rely on .NET functions
+    Public Const PATTERN_INT = "INT"
+    ' Simple patterns that rely on Data from the TBDD_USER table
+    Public Const PATTERN_USER = "USER"
+
+    Public Const USER_VALUE_PRENAME = "PRENAME"
+    Public Const USER_VALUE_SURNAME = "SURNAME"
+    Public Const USER_VALUE_EMAIL = "EMAIL"
+    Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
+    Public Const USER_VALUE_LANGUAGE = "LANGUAGE"
+    Public Const USER_VALUE_USER_ID = "USER_ID"
+    Public Const USER_VALUE_PROFILE_ID = "PROFILE_ID"
+
+    Public Const INT_VALUE_USERNAME = "USERNAME"
+    Public Const INT_VALUE_MACHINE = "MACHINE"
+    Public Const INT_VALUE_DOMAIN = "DOMAIN"
+    Public Const INT_VALUE_DATE = "DATE"
+    Public Const INT_VALUE_WMDocID = "WMDocID"
+    Public Const INT_VALUE_IDBID = "IDBObjID"
+
+    Public Const INT_VALUE_FILENAME_EXT = "FILENAME_EXT"
+    Public Const INT_VALUE_FILENAME = "FILENAME_ONLY"
+    Public Const INT_VALUE_FILEEXT = "FILE_EXT"
+    Public Const INT_VALUE_FILE_DATE = "FILE_DATE"
+
+    Public Const MAX_TRY_COUNT = 20
+
+    Private Shared ReadOnly regex As Regex = New Regex("{#(\w+)#([\.\w\d\s_-]+)}+")
+    Private Shared ReadOnly allPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA, PATTERN_USER, PATTERN_INT}
+    Private Shared ReadOnly complexPatterns As New List(Of String) From {PATTERN_WMI, PATTERN_CTRL, PATTERN_IDBA}
+    Private Shared ReadOnly simplePatterns As New List(Of String) From {PATTERN_USER, PATTERN_INT}
+
+    ''' <summary>
+    ''' Wraps a pattern-type and -value in the common format: {#type#value}
+    ''' </summary>
+    Public Shared Function WrapPatternValue(type As String, value As String) As String
+        Return New Pattern(type, value).ToString
+    End Function
+
+
+    Public Shared Function ReplaceAllValues(input As String, panel As Panel, document As WMObject, prename As Object, surname As Object, shortname As Object, language As Object, email As Object, userId As Object, profileId As Object) As String
+        Try
+            Dim result = input
+            LOGGER.Debug($"inputString BEFORE replacing: [{result}]")
+            result = ReplaceInternalValues(result)
+            result = ReplaceControlValues(result, panel)
+            If Not IsNothing(document) Then result = ReplaceWindreamIndicies(result, document)
+            'result = ReplaceIDBAttributes(result)
+            result = ReplaceUserValues(result, prename, surname, shortname, language, email, userId, profileId)
+            LOGGER.Debug($"inputString AFTER replacing: [{result}]")
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceAllValues:" & ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function ReplaceInternalValues(input As String) As String
+        Try
+            Dim oResult = input
+
+            ' Replace Username(s)
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_USERNAME)
+                oResult = ReplacePattern(oResult, PATTERN_INT, Environment.UserName)
+            End While
+
+            ' Replace Machinename(s)
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_MACHINE)
+                oResult = ReplacePattern(oResult, PATTERN_INT, Environment.MachineName)
+            End While
+
+            ' Replace Domainname(s)
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DOMAIN)
+                oResult = ReplacePattern(oResult, PATTERN_INT, Environment.UserDomainName)
+            End While
+
+            ' Replace CurrentDate(s)
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_DATE)
+                oResult = ReplacePattern(oResult, PATTERN_INT, Now.ToShortDateString)
+            End While
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_WMDocID)
+                oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
+            End While
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_IDBID)
+                oResult = ReplacePattern(oResult, PATTERN_INT, CURRENT_DOC_ID)
+            End While
+
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILENAME_EXT)
+                If Not IsNothing(CURRENT_WORKFILE) Then
+                    If File.Exists(CURRENT_WORKFILE) Then
+                        Dim oFileName As String = Path.GetFileName(CURRENT_WORKFILE)
+                        oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILENAME_EXT, oFileName)
+                    End If
+                End If
+            End While
+
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILENAME)
+                If Not IsNothing(CURRENT_WORKFILE) Then
+                    If File.Exists(CURRENT_WORKFILE) Then
+                        Dim oFileNameOnly As String = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
+                        oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILENAME, oFileNameOnly)
+                    End If
+                End If
+            End While
+
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILEEXT)
+                If Not IsNothing(CURRENT_WORKFILE) Then
+                    If File.Exists(CURRENT_WORKFILE) Then
+                        Dim oFileExt As String = Path.GetExtension(CURRENT_WORKFILE).Substring(1)
+                        oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILEEXT, oFileExt)
+                    End If
+                End If
+            End While
+
+            While ContainsPatternAndValue(oResult, PATTERN_INT, INT_VALUE_FILE_DATE)
+                If Not IsNothing(CURRENT_WORKFILE) Then
+                    If File.Exists(CURRENT_WORKFILE) Then
+                        Dim oCreationDate As DateTime = File.GetCreationTime(CURRENT_WORKFILE)
+                        Dim oDateOnlyString As String = oCreationDate.ToString("yyyy-MM-dd")
+                        oResult = ReplacePlaceholder(PATTERN_INT, oResult, INT_VALUE_FILE_DATE, oDateOnlyString)
+                    End If
+                End If
+            End While
+
+
+
+            LOGGER.Debug("sql after ReplaceInternalValues: " & input)
+            Return oResult
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceInternalValues:" & ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function ReplaceUserValues(input As String, prename As Object, surname As Object, shortname As Object, language As String, email As Object, userId As Object, profileId As Object) As String
+        Try
+            Dim result = input
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PRENAME)
+                result = ReplacePattern(result, PATTERN_USER, prename)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_USER_ID)
+                result = ReplacePattern(result, PATTERN_USER, userId)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
+                result = ReplacePattern(result, PATTERN_USER, surname)
+            End While
+            If IsDBNull(shortname) Then
+                shortname = ""
+            End If
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
+                result = ReplacePattern(result, PATTERN_USER, shortname)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_LANGUAGE)
+                result = ReplacePattern(result, PATTERN_USER, language)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_EMAIL)
+                result = ReplacePattern(result, PATTERN_USER, email)
+            End While
+
+            While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_PROFILE_ID)
+                result = ReplacePattern(result, PATTERN_USER, profileId)
+            End While
+            LOGGER.Debug("sql after ReplaceUserValues: " & input)
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceUserValues:" & ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function ReplaceControlValues(input As String, panel As Panel) As String
+        Try
+            Dim result = input
+            Dim oTryCounter = 0
+
+            LOGGER.Debug("Input String: [{0}]", input)
+
+            While ContainsPattern(result, PATTERN_CTRL)
+                LOGGER.Debug("ReplaceControlValues Try no. [{0}]", oTryCounter)
+
+                If oTryCounter > MAX_TRY_COUNT Then
+                    Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].")
+                End If
+
+                LOGGER.Debug("Getting next pattern..")
+
+                Dim oNextPattern = GetNextPattern(result, PATTERN_CTRL)
+
+                If oNextPattern Is Nothing Then
+                    LOGGER.Debug("No Next Pattern found. Exiting!")
+                    Exit While
+                End If
+
+                LOGGER.Debug("Next Pattern Value: [{0}]", oNextPattern.Value)
+                LOGGER.Debug("Next Pattern Type: [{0}]", oNextPattern.Type)
+
+                Dim controlName As String = oNextPattern.Value
+                Dim oFoundControl As Control = Nothing
+                Dim oFoundType As String = Nothing
+
+                For Each oControl As Control In panel.Controls
+                    If TypeOf oControl Is Label Then
+                        Continue For
+                    End If
+
+                    LOGGER.Debug("Getting control metadata from Control: [{0}]", oControl.Name)
+
+                    If oControl.Tag Is Nothing Then
+                        LOGGER.Warn("No Metadata object found for control [{0}]. Skipping.", oControl.Name)
+                        Continue For
+                    End If
+
+                    Dim oMeta = TryCast(oControl.Tag, ControlCreator.ControlMeta)
+
+                    LOGGER.Debug("Metadata IndexName: [{0}]", oMeta.IndexName)
+                    LOGGER.Debug("Metadata IndexType: [{0}]", oMeta.IndexType)
+                    LOGGER.Debug("Checking Control Name matches..")
+
+                    If oMeta Is Nothing Then
+                        LOGGER.Warn("No Metadata found for control [{0}]. Skipping.", oControl.Name)
+                        Continue For
+                    End If
+
+                    If oMeta.IndexName = controlName Then
+                        LOGGER.Debug("Control Name matches! Matching Control: [{0}]", controlName)
+
+                        oFoundControl = oControl
+                        oFoundType = oMeta.IndexType
+                        Exit For
+                    End If
+                Next
+
+                If oFoundControl IsNot Nothing Then
+                    Dim oValue As String = String.Empty
+                    Dim oTypeString = oFoundControl
+                    LOGGER.Debug("Found Control [{0}], continuing with setting value..", oFoundControl.Name)
+                    If TypeOf (oFoundControl) Is LookupControl3 Then
+                        LOGGER.Debug("oTypeString LookupControl3")
+                    ElseIf TypeOf (oFoundControl) Is CheckBox Then
+                        LOGGER.Debug("oTypeString CheckBox")
+                    ElseIf TypeOf (oFoundControl) Is TextEdit Then
+                        LOGGER.Debug("oTypeString TextEdit")
+                    End If
+                    If TypeOf (oFoundControl) Is LookupControl3 Then
+                        Try
+                            Dim oLookupControl = DirectCast(oFoundControl, LookupControl3)
+
+                            If oLookupControl.Properties.MultiSelect Then
+                                Select Case oFoundType
+                                    Case ClassConstants.INDEX_TYPE_INTEGER
+                                        oValue = String.Join(",", oLookupControl.Properties.SelectedValues)
+                                    Case ClassConstants.INDEX_TYPE_VARCHAR
+                                        Dim oIndex As Integer = 0
+                                        For Each oString As String In oLookupControl.Properties.SelectedValues
+                                            If oIndex = 0 Then
+                                                oValue = "'" + oString + "'"
+                                            Else
+                                                oValue += ", '" + oString + "'"
+                                            End If
+                                            oIndex += 1
+                                        Next
+
+
+                                        'Dim oWrapped = oLookupControl.Properties.SelectedValues
+                                        'oValue = String.Join(",", oWrapped)
+                                    Case Else
+                                        LOGGER.Warn("Lookup Control with [{0}] is not supported!", oFoundType)
+                                End Select
+                            Else
+                                oValue = ObjectEx.NotNull(oLookupControl.Properties.SelectedValues.Item(0), "")
+                            End If
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                            LOGGER.Warn("Control Value for LookupControl3 [{0}] could not be retrieved!", oFoundControl.Name)
+                        End Try
+                    ElseIf TypeOf (oFoundControl) Is TextEdit Then
+                        Try
+                            oValue = DirectCast(oFoundControl, TextEdit).Text
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                            LOGGER.Warn("Control Value for TextBox [{0}] could not be retrieved!", oFoundControl.Name)
+                        End Try
+                    ElseIf TypeOf (oFoundControl) Is CheckBox Then
+                        Try
+                            oValue = IIf(DirectCast(oFoundControl, CheckBox).Checked, 1, 0)
+                        Catch ex As Exception
+                            LOGGER.Error(ex)
+                            LOGGER.Warn("Control Value for CheckBox [{0}] could not be retrieved!", oFoundControl.Name)
+                        End Try
+                    Else
+                        LOGGER.Debug("Unknown Control type for type [{0}], setting value to empty string.", oFoundControl.Name)
+                        oValue = ""
+                    End If
+
+                    LOGGER.Debug("Retrieved Value from Control [{0}] is: [{1}]", controlName, oValue)
+
+                    result = ReplacePattern(result, PATTERN_CTRL, oValue)
+                Else
+                    LOGGER.Warn("Control [{0}] not found!", controlName)
+                End If
+
+                oTryCounter += 1
+            End While
+            LOGGER.Debug($"input after ReplaceControlValues [{input}]")
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceControlValues:" & ex.Message)
+            Return input
+        End Try
+    End Function
+
+    Public Shared Function ReplaceWindreamIndicies(input As String, document As WMObject) As String
+        Try
+            Dim result = input
+            Dim oTryCounter As Integer = 0
+            While ContainsPattern(result, PATTERN_WMI)
+
+                Dim indexName As String = GetNextPattern(result, PATTERN_WMI).Value
+                Dim oWMValue = document.GetVariableValue(indexName)
+                If IsNothing(oWMValue) And oTryCounter = MAX_TRY_COUNT Then
+                    LOGGER.Warn("Exit from ReplaceWindreamIndicies as oWMValue is still nothing and oTryCounter is 500!")
+                    Throw New Exception("Max tries in ReplaceWindreamIndicies exceeded.")
+
+                End If
+                If oWMValue IsNot Nothing Then
+                    result = ReplacePattern(result, PATTERN_WMI, oWMValue)
+                End If
+                oTryCounter += 100
+            End While
+            LOGGER.Debug("sql after ReplaceWindreamIndicies: " & input)
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            LOGGER.Info("Error in ReplaceWindreamIndicies:" & ex.Message)
+        End Try
+    End Function
+    'Public Shared Function ReplaceIDBAttributes(input As String) As String
+    '    Try
+    '        Dim result = input
+    '        Dim oTryCounter As Integer = 0
+    '        While ContainsPattern(result, PATTERN_IDBA)
+
+    '            Dim indexName As String = GetNextPattern(result, PATTERN_IDBA).Value
+    '            Dim oIDBValue
+    '            If indexName = "ObjectID" Then
+    '                oIDBValue = CURRENT_DOC_ID
+    '            ElseIf indexName = "OBJID" Then
+    '                oIDBValue = CURRENT_DOC_ID
+    '            ElseIf indexName = "DocID" Then
+    '                oIDBValue = CURRENT_DOC_ID
+    '            Else
+
+    '                oIDBValue = IDBData.GetVariableValue(indexName)
+    '            End If
+
+    '            If IsNothing(oIDBValue) And oTryCounter = MAX_TRY_COUNT Then
+    '                LOGGER.Warn("Exit from ReplaceIDBIndicies as Value is still nothing and oTryCounter is 500!")
+    '                Throw New Exception("Max tries in ReplaceIDBAttributes exceeded.")
+
+    '            End If
+    '            If oIDBValue IsNot Nothing Then
+    '                Dim oReplaceValue = "{" + $"#{PATTERN_IDBA}#{indexName}" + "}"
+    '                result = result.Replace(oReplaceValue, oIDBValue)
+    '                'result = ReplacePattern(result, oReplaceValue, oIDBValue)
+    '            End If
+    '            oTryCounter += 100
+    '        End While
+    '        LOGGER.Debug("sql after ReplaceIDBAttributes: " & input)
+    '        Return result
+    '    Catch ex As Exception
+    '        LOGGER.Error(ex)
+    '        LOGGER.Info("Error in ReplaceIDBAttributes:" & ex.Message)
+    '    End Try
+    'End Function
+
+    Private Shared Function ContainsPattern(input As String, type As String) As String
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        For Each element As Match In elements
+            Dim t As String = element.Groups(1).Value
+
+            If t = type Then
+                Return True
+            End If
+        Next
+
+        Return False
+    End Function
+
+    Public Shared Function GetNextPattern(input As String, type As String) As Pattern
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        For Each element As Match In elements
+            ' Pattern in input
+            Dim t As String = element.Groups(1).Value
+            Dim v As String = element.Groups(2).Value
+
+            If t = type Then
+                Return New Pattern(t, v)
+            End If
+        Next
+
+        Return Nothing
+    End Function
+
+    Public Shared Function GetAllPatterns(input As String) As List(Of Pattern)
+        Dim elements As MatchCollection = regex.Matches(input)
+        Dim results As New List(Of Pattern)
+
+        For Each element As Match In elements
+            ' Pattern in input
+            Dim t As String = element.Groups(1).Value
+            Dim v As String = element.Groups(2).Value
+
+            results.Add(New Pattern(t, v))
+        Next
+
+        Return results
+    End Function
+    ''' <summary>
+    ''' Ersetzt alle Vorkommen eines Platzhalters im Texttemplate.
+    ''' </summary>
+    ''' <param name="pInput">Der ursprüngliche Text mit Platzhaltern.</param>
+    ''' <param name="pPlaceholder">Der Platzhalter, z. B. "FILENAME_EXT".</param>
+    ''' <param name="pReplacement">Der zu ersetzende Wert.</param>
+    ''' <returns>Der aktualisierte Text.</returns>
+    Public Shared Function ReplacePlaceholder(pPattern As String, pInput As String, pPlaceholder As String, pReplacement As String) As String
+        ' Erzeuge das Regex-Muster für den Platzhalter (z. B. {#INT#FILENAME_EXT})
+        Dim pattern As String = "\{#" & pPattern & "#" & Regex.Escape(pPlaceholder) & "\}"
+
+        ' Ersetze alle Vorkommen mit dem angegebenen Wert
+        Dim result As String = Regex.Replace(pInput, pattern, pReplacement, RegexOptions.IgnoreCase)
+
+        Return result
+    End Function
+    Public Shared Function ReplacePattern(input As String, type As String, replacement As String) As String
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        If IsNothing(replacement) Then
+            Return input
+        End If
+
+        For Each element As Match In elements
+            ' if group 1 contains the 'pattern' the replace whole group with 'replacement'
+            ' and return it
+            If element.Groups(1).Value = type Then
+                Return Regex.Replace(input, element.Groups(0).Value, replacement)
+            End If
+        Next
+
+        ' no replacement made
+        Return input
+    End Function
+
+    Private Shared Function ContainsPatternAndValue(input As String, type As String, value As String) As Boolean
+        Dim elements As MatchCollection = regex.Matches(input)
+
+        For Each element As Match In elements
+            ' Pattern in input
+            Dim t As String = element.Groups(1).Value
+            Dim v As String = element.Groups(2).Value
+
+            If t = type And v = value Then
+                Return True
+            End If
+        Next
+
+        Return False
+    End Function
+
+    Public Shared Function HasAnyPatterns(input) As Boolean
+        Return allPatterns.Any(Function(p)
+                                   Return HasPattern(input, p)
+                               End Function)
+    End Function
+
+    Public Shared Function HasOnlySimplePatterns(input As String) As Boolean
+        Return Not HasComplexPatterns(input)
+    End Function
+
+    Public Shared Function HasComplexPatterns(input As String) As Boolean
+        Return complexPatterns.Any(Function(p)
+                                       Return HasPattern(input, p)
+                                   End Function)
+    End Function
+
+    Public Shared Function HasPattern(input As String, type As String) As Boolean
+        Dim matches = regex.Matches(input)
+
+        For Each match As Match In matches
+            For Each group As Group In match.Groups
+                If group.Value = type Then
+                    Return True
+                End If
+            Next
+        Next
+
+        Return False
+    End Function
+
+    Public Class Pattern
+        Public ReadOnly Property Type As String
+        Public ReadOnly Property Value As String
+
+        Public Sub New(type As String, value As String)
+            Me.Type = type
+            Me.Value = value
+        End Sub
+
+        Public Sub New(stringRepresentation As String)
+            Dim elements As MatchCollection = regex.Matches(stringRepresentation)
+            Dim first As Match = elements.Item(0)
+
+            Dim t As String = first.Groups(1).Value
+            Dim v As String = first.Groups(2).Value
+
+            Type = t
+            Value = v
+        End Sub
+
+        Public Overrides Function ToString() As String
+            Return $"{{#{Type}#{Value}}}"
+        End Function
+    End Class
+End Class

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"
-    Private Const VBREPLACE = "VBREPLACE"
-    Private Const REGEXPRESSION = "REG. EXPRESSION"
+    Public Const VBSPLIT = "VBSPLIT"
+    Public Const VBREPLACE = "VBREPLACE"
+    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
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
 
                         Dim oSeparator As String = oDataRow.Item("TEXT1")
                         Dim oSplitIndex As Integer = 0
@@ -31,82 +39,34 @@ Public Class ClassPostprocessing
                         Dim oFindString = oDataRow.Item("TEXT1")
                         Dim oReplaceString = oDataRow.Item("TEXT2")
 
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'", False)
+                        Logger.Info(" ...Ersetze '" & oFindString & "' mit '" & oReplaceString & "'")
 
                         For Each oIndexValue In oIndexValues
                             Dim oReplaceResult = oIndexValue.Replace(oFindString, oReplaceString)
                             oResult.Add(oReplaceResult)
                         Next
-                    Case REGEXPRESSION
-                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
 
+                    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)
 
-                            If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & oProcessedString, False)
+                            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:")
-            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & idxvalue & " - Fehler: " & vbNewLine & ex.Message)
+            Logger.Error(ex)
         End Try
 
         Return String.Join(ClassConstants.VECTORSEPARATOR, oIndexValues.ToArray)
-
-        'Dim result As String = idxvalue
-        'Try
-        '    For Each row As DataRow In Datatable.Rows
-        '        Select Case row.Item("TYPE").ToString.ToUpper
-        '            Case "VBSPLIT"
-        '                If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit VBSPLIT", False)
-        '                Dim strSplit() As String
-        '                strSplit = result.Split(row.Item("TEXT1"))
-        '                For i As Integer = 0 To strSplit.Length - 1
-        '                    If i = CInt(row.Item("TEXT2")) Then
-        '                        If LogErrorsOnly = False Then ClassLogger.Add(" ...Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False)
-        '                        result = strSplit(i).ToString
-        '                    End If
-        '                Next
-        '            Case "VBREPLACE"
-        '                If LogErrorsOnly = False Then
-        '                    ClassLogger.Add(" ...Nachbearbeitung mit VBREPLACE", False)
-        '                    ClassLogger.Add(" ...Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False)
-        '                    result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '                End If
-
-        '                result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
-        '            Case "REG. EXPRESSION"
-        '                If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
-        '                Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
-        '                Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
-        '                RegexList.Add(Regex)
-        '                '
-        '                Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList)
-        '                If Not IsNothing(resultRegex) Then
-        '                    If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis des RegEx: " & resultRegex.ToString, False)
-        '                    result = resultRegex.ToString
-        '                Else
-        '                    ClassLogger.Add("Postprocessing RegEx konnte kein Ergebnis auswerten!", True)
-        '                End If
-        '        End Select
-        '    Next
-        '    Return result
-        'Catch ex As Exception
-        '    ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
-        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
-        '    Return result
-        'End Try
-
     End Function
 
     ''' <summary>
@@ -116,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/ClassWindowAPI.vb

@@ -1,179 +0,0 @@
-Imports System.Data
-Imports System.Runtime.InteropServices
-Imports System.Text
-Imports System.Collections.Generic
-Public Class ClassWindowAPI
-    Public Class ApiWindow
-        Public MainWindowTitle As String = ""
-        Public ClassName As String = ""
-        Public hWnd As Int32
-    End Class
-
-    Private Delegate Function EnumCallBackDelegate(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer
-
-    ' Top-level windows.
-    Private Declare Function EnumWindows Lib "user32" _
-     (ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
-
-    ' Child windows.
-    Private Declare Function EnumChildWindows Lib "user32" _
-     (ByVal hWndParent As Integer, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
-
-    ' Get the window class.
-    Private Declare Function GetClassName _
-     Lib "user32" Alias "GetClassNameA" _
-     (ByVal hwnd As Integer, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer
-
-    ' Test if the window is visible--only get visible ones.
-    Private Declare Function IsWindowVisible Lib "user32" _
-     (ByVal hwnd As Integer) As Integer
-
-    ' Test if the window's parent--only get the one's without parents.
-    Private Declare Function GetParent Lib "user32" _
-     (ByVal hwnd As Integer) As Integer
-
-    ' Get window text length signature.
-    Private Declare Function SendMessage _
-     Lib "user32" Alias "SendMessageA" _
-     (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
-
-    ' Get window text signature.
-    Private Declare Function SendMessage _
-     Lib "user32" Alias "SendMessageA" _
-     (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As StringBuilder) As Int32
-
-    Private _listChildren As New List(Of ApiWindow)
-    Private _listTopLevel As New List(Of ApiWindow)
-
-    Private _topLevelClass As String = ""
-    Private _childClass As String = ""
-
-    ''' <summary>
-    ''' Get all top-level window information
-    ''' </summary>
-    ''' <returns>List of window information objects</returns>
-    Public Overloads Function GetTopLevelWindows() As List(Of ApiWindow)
-
-        EnumWindows(AddressOf EnumWindowProc, &H0)
-
-        Return _listTopLevel
-
-    End Function
-
-    Public Overloads Function GetTopLevelWindows(ByVal className As String) As List(Of ApiWindow)
-
-        _topLevelClass = className
-
-        Return Me.GetTopLevelWindows()
-
-    End Function
-
-    ''' <summary>
-    ''' Get all child windows for the specific windows handle (hwnd).
-    ''' </summary>
-    ''' <returns>List of child windows for parent window</returns>
-    Public Overloads Function GetChildWindows(ByVal hwnd As Int32) As List(Of ApiWindow)
-
-        ' Clear the window list.
-        _listChildren = New List(Of ApiWindow)
-
-        ' Start the enumeration process.
-        EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0)
-
-        ' Return the children list when the process is completed.
-        Return _listChildren
-
-    End Function
-
-    Public Overloads Function GetChildWindows(ByVal hwnd As Int32, ByVal childClass As String) As List(Of ApiWindow)
-
-        ' Set the search
-        _childClass = childClass
-
-        Return Me.GetChildWindows(hwnd)
-
-    End Function
-
-    ''' <summary>
-    ''' Callback function that does the work of enumerating top-level windows.
-    ''' </summary>
-    ''' <param name="hwnd">Discovered Window handle</param>
-    ''' <returns>1=keep going, 0=stop</returns>
-    Private Function EnumWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
-
-        ' Eliminate windows that are not top-level.
-        If GetParent(hwnd) = 0 AndAlso CBool(IsWindowVisible(hwnd)) Then
-
-            ' Get the window title / class name.
-            Dim window As ApiWindow = GetWindowIdentification(hwnd)
-
-            ' Match the class name if searching for a specific window class.
-            If _topLevelClass.Length = 0 OrElse window.ClassName.ToLower() = _topLevelClass.ToLower() Then
-                _listTopLevel.Add(window)
-            End If
-
-        End If
-
-        ' To continue enumeration, return True (1), and to stop enumeration 
-        ' return False (0).
-        ' When 1 is returned, enumeration continues until there are no 
-        ' more windows left.
-
-        Return 1
-
-    End Function
-
-    ''' <summary>
-    ''' Callback function that does the work of enumerating child windows.
-    ''' </summary>
-    ''' <param name="hwnd">Discovered Window handle</param>
-    ''' <returns>1=keep going, 0=stop</returns>
-    Private Function EnumChildWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
-
-        Dim window As ApiWindow = GetWindowIdentification(hwnd)
-
-        ' Attempt to match the child class, if one was specified, otherwise
-        ' enumerate all the child windows.
-        If _childClass.Length = 0 OrElse window.ClassName.ToLower() = _childClass.ToLower() Then
-            _listChildren.Add(window)
-        End If
-
-        Return 1
-
-    End Function
-
-    ''' <summary>
-    ''' Build the ApiWindow object to hold information about the Window object.
-    ''' </summary>
-    Private Function GetWindowIdentification(ByVal hwnd As Integer) As ApiWindow
-
-        Const WM_GETTEXT As Int32 = &HD
-        Const WM_GETTEXTLENGTH As Int32 = &HE
-
-        Dim window As New ApiWindow()
-
-        Dim title As New StringBuilder()
-
-        ' Get the size of the string required to hold the window title.
-        Dim size As Int32 = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0)
-
-        ' If the return is 0, there is no title.
-        If size > 0 Then
-            title = New StringBuilder(size + 1)
-
-            SendMessage(hwnd, WM_GETTEXT, title.Capacity, title)
-        End If
-
-        ' Get the class name for the window.
-        Dim classBuilder As New StringBuilder(64)
-        GetClassName(hwnd, classBuilder, 64)
-
-        ' Set the properties for the ApiWindow object.
-        window.ClassName = classBuilder.ToString()
-        window.MainWindowTitle = title.ToString()
-        window.hWnd = hwnd
-
-        Return window
-
-    End Function
-End Class

Global_Indexer/Global_Indexer.vbproj

@@ -1,5 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="..\packages\EntityFramework.6.5.1\build\EntityFramework.props" Condition="Exists('..\packages\EntityFramework.6.5.1\build\EntityFramework.props')" />
   <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -8,11 +9,15 @@
     <OutputType>WinExe</OutputType>
     <StartupObject>Global_Indexer.My.MyApplication</StartupObject>
     <RootNamespace>Global_Indexer</RootNamespace>
-    <AssemblyName>Global_Indexer</AssemblyName>
+    <AssemblyName>fileFLOW</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
     <PublishUrl>publish\</PublishUrl>
     <Install>true</Install>
     <InstallFrom>Disk</InstallFrom>
@@ -25,10 +30,8 @@
     <MapFileExtensions>true</MapFileExtensions>
     <ApplicationRevision>0</ApplicationRevision>
     <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>false</IsWebBootstrapper>
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
-    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -37,7 +40,7 @@
     <DefineDebug>true</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>Global_Indexer.xml</DocumentationFile>
+    <DocumentationFile>fileFLOW.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -47,7 +50,7 @@
     <DefineTrace>true</DefineTrace>
     <Optimize>true</Optimize>
     <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>Global_Indexer.xml</DocumentationFile>
+    <DocumentationFile>fileFLOW.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup>
@@ -63,113 +66,234 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
+    <ApplicationIcon>DD_fileFLOW_ICON.ico</ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup>
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
+      <HintPath>..\packages\BouncyCastle.Cryptography.2.6.1\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.DataAccess.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.DataAccess.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.DataAccess.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.DataAccess.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Pdf.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Pdf.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Pdf.v19.2.Drawing, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Pdf.v21.2.Drawing, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.RichEdit.v19.2.Export, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.RichEdit.v21.2.Export, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.RichEdit.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Sparkline.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Spreadsheet.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.DataVisualization.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Spreadsheet.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Utils.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraCharts.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Utils.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraCharts.v19.2.Wizard, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraCharts.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraCharts.v21.2.Wizard, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraNavBar.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.Images.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraPdfViewer.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraSpreadsheet.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.Images.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
     </Reference>
-    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraSpreadsheet.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-    </Reference>
-    <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
     </Reference>
-    <Reference Include="Independentsoft.Msg, Version=2.0.350.20602, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Controls.DocumentViewer, Version=1.9.8.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Controls.DocumentViewer.1.9.8\lib\net462\DigitalData.Controls.DocumentViewer.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Controls.LookupGrid">
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\Controls.LookupGrid\bin\Debug\DigitalData.Controls.LookupGrid.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.GUIs.Common">
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.GUIs.GlobalIndexer">
+      <HintPath>..\..\..\2_DLL Projekte\DDMonorepo\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Base, Version=1.3.8.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Base.1.3.8\lib\net462\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Config, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Config.1.3.0\lib\net462\DigitalData.Modules.Config.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Database, Version=2.3.5.4, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Database.2.3.5.4\lib\net462\DigitalData.Modules.Database.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Encryption, Version=1.3.1.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Encryption.1.3.1\lib\net462\DigitalData.Modules.Encryption.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.License, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\License\bin\Debug\DigitalData.Modules.License.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.6.5.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Logging.2.6.5\lib\net462\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Messaging, Version=1.9.8.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Messaging.1.9.8\lib\net462\DigitalData.Modules.Messaging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Patterns, Version=1.3.1.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Patterns.1.3.1\lib\net462\DigitalData.Modules.Patterns.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Windows, Version=1.5.1.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\DigitalData.Modules.Windows.1.5.1\lib\net462\DigitalData.Modules.Windows.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Windream, Version=1.9.5.2, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Windream\bin\Debug\DigitalData.Modules.Windream.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.ZooFlow, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>P:\Install .Net\0 DD - Bibliotheken\Modules\ZooFlow\DigitalData.Modules.ZooFlow.dll</HintPath>
+    </Reference>
+    <Reference Include="DocumentFormat.OpenXml, Version=3.3.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
+      <HintPath>..\packages\DocumentFormat.OpenXml.3.3.0\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
+    </Reference>
+    <Reference Include="DocumentFormat.OpenXml.Framework, Version=3.3.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
+      <HintPath>..\packages\DocumentFormat.OpenXml.Framework.3.3.0\lib\net46\DocumentFormat.OpenXml.Framework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.5.1\lib\net45\EntityFramework.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.Firebird, Version=6.4.0.0, Culture=neutral, PublicKeyToken=42d22d092898e5f8, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.Firebird.6.4.0\lib\net452\EntityFramework.Firebird.dll</HintPath>
+    </Reference>
+    <Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
+      <HintPath>..\packages\EntityFramework.6.5.1\lib\net45\EntityFramework.SqlServer.dll</HintPath>
+    </Reference>
+    <Reference Include="FirebirdSql.Data.FirebirdClient, Version=7.5.0.0, Culture=neutral, PublicKeyToken=3750abcc3150b00c, processorArchitecture=MSIL">
+      <HintPath>..\packages\FirebirdSql.Data.FirebirdClient.7.5.0\lib\net452\FirebirdSql.Data.FirebirdClient.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.barcode.1d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.1d.writer.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.barcode.2d.writer, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.barcode.2d.writer.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.CAD, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.CAD.DWG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.CAD.DWG.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Common, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Document, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Document.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Email, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Email.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.HTML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.HTML.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging.Formats, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging.Formats.Conversion, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Formats.Conversion.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.Imaging.Rendering, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.Imaging.Rendering.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.MSOfficeBinary, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.MSOfficeBinary.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.OpenDocument, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenDocument.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.OpenXML, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.OpenXML.Templating, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.OpenXML.Templating.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.PDF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.PDF.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.RTF, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.RTF.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.SVG, Version=14.3.3.0, Culture=neutral, PublicKeyToken=f52a2e60ad468dbb, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.SVG.dll</HintPath>
+    </Reference>
+    <Reference Include="GdPicture.NET.14.wia.gateway, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6973b5c22dcf45f7, processorArchitecture=MSIL">
+      <HintPath>..\packages\GdPicture.14.3.3\lib\net462\GdPicture.NET.14.wia.gateway.dll</HintPath>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="IndexRange, Version=1.0.3.0, Culture=neutral, PublicKeyToken=35e6a3c4212514c6, processorArchitecture=MSIL">
+      <HintPath>..\packages\IndexRange.1.0.3\lib\net45\IndexRange.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
@@ -179,23 +303,140 @@
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+    <Reference Include="Mail, Version=3.0.21189.1553, Culture=neutral, PublicKeyToken=6dc438ab78a525b3, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
+      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Limilabs\Mail.dll\Mail.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.9.0.6\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Bcl.Cryptography, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.Cryptography.9.0.6\lib\net462\Microsoft.Bcl.Cryptography.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Bcl.HashCode, Version=6.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.HashCode.6.0.0\lib\net462\Microsoft.Bcl.HashCode.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="Microsoft.Identity.Client, Version=4.72.1.0, Culture=neutral, PublicKeyToken=0a613f4dd989e8ae, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Identity.Client.4.72.1\lib\net462\Microsoft.Identity.Client.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.IdentityModel.Abstractions, Version=8.12.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.IdentityModel.Abstractions.8.12.0\lib\net462\Microsoft.IdentityModel.Abstractions.dll</HintPath>
+    </Reference>
+    <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
+    </Reference>
+    <Reference Include="Newtonsoft.Json.Bson, Version=1.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.Bson.1.0.3\lib\net45\Newtonsoft.Json.Bson.dll</HintPath>
+    </Reference>
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.5.5.0\lib\net46\NLog.dll</HintPath>
+    </Reference>
+    <Reference Include="OpenMcdf, Version=3.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\OpenMcdf.3.0.0\lib\netstandard2.0\OpenMcdf.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
     </Reference>
     <Reference Include="PresentationCore" />
+    <Reference Include="protobuf-net, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
+      <HintPath>..\packages\protobuf-net.3.2.52\lib\net462\protobuf-net.dll</HintPath>
+    </Reference>
+    <Reference Include="protobuf-net.Core, Version=3.0.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
+      <HintPath>..\packages\protobuf-net.Core.3.2.52\lib\net462\protobuf-net.Core.dll</HintPath>
+    </Reference>
+    <Reference Include="RtfPipe, Version=2.0.7677.4303, Culture=neutral, PublicKeyToken=5f6ab4ce530296d2, processorArchitecture=MSIL">
+      <HintPath>..\packages\RtfPipe.2.0.7677.4303\lib\net45\RtfPipe.dll</HintPath>
+    </Reference>
+    <Reference Include="S22.Imap, Version=3.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <HintPath>..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll</HintPath>
+    </Reference>
     <Reference Include="System" />
+    <Reference Include="System.Buffers, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Buffers.4.6.1\lib\net462\System.Buffers.dll</HintPath>
+    </Reference>
+    <Reference Include="System.CodeDom, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.CodeDom.9.0.6\lib\net462\System.CodeDom.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Collections.Immutable, Version=9.0.0.6, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Collections.Immutable.9.0.6\lib\net462\System.Collections.Immutable.dll</HintPath>
+    </Reference>
+    <Reference Include="System.ComponentModel.Composition" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Data.Linq" />
+    <Reference Include="System.Data.Odbc, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Data.Odbc.9.0.6\lib\net462\System.Data.Odbc.dll</HintPath>
+    </Reference>
     <Reference Include="System.Deployment" />
+    <Reference Include="System.Diagnostics.DiagnosticSource, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Diagnostics.DiagnosticSource.9.0.6\lib\net462\System.Diagnostics.DiagnosticSource.dll</HintPath>
+    </Reference>
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.DirectoryServices.AccountManagement" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.Formats.Asn1, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Formats.Asn1.9.0.6\lib\net462\System.Formats.Asn1.dll</HintPath>
+    </Reference>
+    <Reference Include="System.IdentityModel" />
+    <Reference Include="System.IO.Compression" />
+    <Reference Include="System.IO.Packaging, Version=9.0.0.6, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.IO.Packaging.9.0.6\lib\net462\System.IO.Packaging.dll</HintPath>
+    </Reference>
+    <Reference Include="System.IO.Pipelines, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.IO.Pipelines.9.0.6\lib\net462\System.IO.Pipelines.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Management" />
+    <Reference Include="System.Memory, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Memory.4.6.3\lib\net462\System.Memory.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Net.Http" />
+    <Reference Include="System.Net.Http.Formatting, Version=6.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.AspNet.WebApi.Client.6.0.0\lib\net45\System.Net.Http.Formatting.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Numerics" />
+    <Reference Include="System.Numerics.Vectors, Version=4.1.6.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Numerics.Vectors.4.6.1\lib\net462\System.Numerics.Vectors.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Runtime, Version=4.1.1.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.4.3.1\lib\net462\System.Runtime.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Runtime.InteropServices, Version=4.1.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.InteropServices.4.3.0\lib\net462\System.Runtime.InteropServices.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Runtime.InteropServices.RuntimeInformation, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.InteropServices.RuntimeInformation.4.3.0\lib\net45\System.Runtime.InteropServices.RuntimeInformation.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System.Runtime.Remoting" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.Security" />
+    <Reference Include="System.Security.Cryptography.Pkcs, Version=9.0.0.6, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Pkcs.9.0.6\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
+    </Reference>
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Text.Encodings.Web, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Text.Encodings.Web.9.0.6\lib\net462\System.Text.Encodings.Web.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Text.Json, Version=9.0.0.6, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Text.Json.9.0.6\lib\net462\System.Text.Json.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.6.3\lib\net462\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Transactions" />
+    <Reference Include="System.ValueTuple, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.ValueTuple.4.6.1\lib\net462\System.ValueTuple.dll</HintPath>
+    </Reference>
     <Reference Include="System.Web.Services" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
@@ -203,6 +444,7 @@
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
     <Reference Include="UIAutomationClient" />
+    <Reference Include="WindowsBase" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -218,34 +460,27 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="AboutBox1.Designer.vb">
-      <DependentUpon>AboutBox1.vb</DependentUpon>
+    <Compile Include="frmAbout.Designer.vb">
+      <DependentUpon>frmAbout.vb</DependentUpon>
     </Compile>
-    <Compile Include="AboutBox1.vb">
+    <Compile Include="frmAbout.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="ClassConfig.vb" />
     <Compile Include="ClassConstants.vb" />
-    <Compile Include="ClassControls.vb" />
-    <Compile Include="ClassDatabase.vb" />
+    <Compile Include="ClassDatatables.vb" />
     <Compile Include="ClassDragDrop.vb" />
-    <Compile Include="ClassEmail.vb" />
     <Compile Include="ClassEncryption.vb" />
-    <Compile Include="ClassFilehandle.vb" />
+    <Compile Include="ClassFileHandler.vb" />
     <Compile Include="ClassFolderWatcher.vb" />
-    <Compile Include="ClassFormFunctions.vb" />
-    <Compile Include="ClassHelper.vb" />
-    <Compile Include="ClassHotkey_Windream.vb" />
+    <Compile Include="ClassIDBData.vb" />
     <Compile Include="ClassIndexFunctions.vb" />
     <Compile Include="ClassInit.vb" />
     <Compile Include="ClassLayout.vb" />
     <Compile Include="ClassLicence.vb" />
-    <Compile Include="ClassLogger.vb" />
+    <Compile Include="ClassParamRefresh.vb" />
+    <Compile Include="ClassPatterns.vb" />
     <Compile Include="ClassPostprocessing.vb" />
-    <Compile Include="ClassWindowAPI.vb" />
-    <Compile Include="ClassWindream.vb" />
-    <Compile Include="ClassEmailHeaderExtractor.vb" />
-    <Compile Include="clsHotkey.vb" />
     <Compile Include="frmAdministration.Designer.vb">
       <DependentUpon>frmAdministration.vb</DependentUpon>
     </Compile>
@@ -264,24 +499,18 @@
     <Compile Include="frmConnections.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmEmailIndexing.Designer.vb">
+      <DependentUpon>frmEmailIndexing.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEmailIndexing.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmHistory.Designer.vb">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </Compile>
     <Compile Include="frmHistory.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmHotKey_Add.Designer.vb">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotKey_Add.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHotkey_User.Designer.vb">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotkey_User.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmIndex.designer.vb">
       <DependentUpon>frmIndex.vb</DependentUpon>
     </Compile>
@@ -348,32 +577,27 @@
     <Compile Include="frmSQL_Admin.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmSQL_DESIGNER.designer.vb">
+      <DependentUpon>frmSQL_DESIGNER.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSQL_DESIGNER.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmStart.Designer.vb">
       <DependentUpon>frmStart.vb</DependentUpon>
     </Compile>
     <Compile Include="frmStart.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmTestvb.Designer.vb">
-      <DependentUpon>frmTestvb.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTestvb.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.designer.vb">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="ModuleCURRENT.vb" />
-    <Compile Include="ModuleMySettings.vb" />
+    <Compile Include="ModuleRuntime.vb" />
     <Compile Include="ModuleUserSavings.vb" />
     <Compile Include="ModuleWindowHandles.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -405,50 +629,61 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
-    <EmbeddedResource Include="AboutBox1.resx">
-      <DependentUpon>AboutBox1.vb</DependentUpon>
+    <EmbeddedResource Include="frmAbout.resx">
+      <DependentUpon>frmAbout.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.en-US.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmAdministration.resx">
       <DependentUpon>frmAdministration.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.de.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.en-US.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.en.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConfig_Basic.resx">
       <DependentUpon>frmConfig_Basic.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConnections.en-US.resx">
       <DependentUpon>frmConnections.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmConnections.resx">
       <DependentUpon>frmConnections.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmEmailIndexing.resx">
+      <DependentUpon>frmEmailIndexing.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmHistory.en-US.resx">
       <DependentUpon>frmHistory.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmHistory.resx">
       <DependentUpon>frmHistory.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotKey_Add.resx">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.en-US.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndex.en-US.resx">
       <DependentUpon>frmIndex.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmIndex.en.resx">
+      <DependentUpon>frmIndex.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndex.resx">
       <DependentUpon>frmIndex.vb</DependentUpon>
@@ -456,15 +691,22 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.en-US.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmIndexFileList.en.resx">
+      <DependentUpon>frmIndexFileList.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmIndexFileList.resx">
       <DependentUpon>frmIndexFileList.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmLicense.en-US.resx">
       <DependentUpon>frmLicense.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmLicense.resx">
       <DependentUpon>frmLicense.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmLookupGrid.resx">
       <DependentUpon>frmLookupGrid.vb</DependentUpon>
@@ -508,6 +750,9 @@
     <EmbeddedResource Include="frmSQL_Admin.resx">
       <DependentUpon>frmSQL_Admin.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmSQL_DESIGNER.resx">
+      <DependentUpon>frmSQL_DESIGNER.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmStart.de-DE.resx">
       <DependentUpon>frmStart.vb</DependentUpon>
     </EmbeddedResource>
@@ -522,19 +767,14 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmStart.resx">
       <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.en-US.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
     </EmbeddedResource>
     <EmbeddedResource Include="Strings\_frmLicense.en-US.resx">
       <Generator>ResXFileCodeGenerator</Generator>
@@ -572,24 +812,6 @@
     </None>
   </ItemGroup>
   <ItemGroup>
-    <COMReference Include="Microsoft.Office.Core">
-      <Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>
-      <VersionMajor>2</VersionMajor>
-      <VersionMinor>7</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="Microsoft.Office.Interop.Outlook">
-      <Guid>{00062FFF-0000-0000-C000-000000000046}</Guid>
-      <VersionMajor>9</VersionMajor>
-      <VersionMinor>5</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
     <COMReference Include="stdole">
       <Guid>{00020430-0000-0000-C000-000000000046}</Guid>
       <VersionMajor>2</VersionMajor>
@@ -712,12 +934,6 @@
   <ItemGroup>
     <None Include="Resources\arrow_left.png" />
   </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\handdrawn_arrow_left_green.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\handdrawn_arrow_right_green.png" />
-  </ItemGroup>
   <ItemGroup>
     <None Include="Resources\arrow_back_16xMD.png" />
   </ItemGroup>
@@ -749,20 +965,58 @@
     <None Include="Resources\arrow_Up_16xLG.png" />
   </ItemGroup>
   <ItemGroup>
-    <Content Include="DD_Icons_ICO_GLOBIX_1.ico" />
-    <Content Include="DD_Icons_ICO_GLOBIX_128.ico">
+    <Content Include="DD_fileFLOW_ICON.ico">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <Content Include="GdPicture.NET.14.barcode.1d.reader.64.dll" />
+    <Content Include="GdPicture.NET.14.barcode.1d.reader.dll" />
+    <Content Include="GdPicture.NET.14.barcode.2d.reader.64.dll" />
+    <Content Include="GdPicture.NET.14.barcode.2d.reader.dll" />
+    <Content Include="GdPicture.NET.14.filters.64.dll" />
+    <Content Include="GdPicture.NET.14.filters.dll" />
+    <Content Include="GdPicture.NET.14.image.gdimgplug.64.dll" />
+    <Content Include="GdPicture.NET.14.image.gdimgplug.dll" />
+    <Content Include="GdPicture.NET.14.Imaging.ML.64.dll" />
+    <Content Include="GdPicture.NET.14.Imaging.ML.dll" />
+    <Content Include="GdPicture.NET.14.Imaging.Rendering.Skia.64.dll" />
+    <Content Include="GdPicture.NET.14.Imaging.Rendering.Skia.dll" />
+    <Content Include="GdPicture.NET.14.machine.vision.64.dll" />
+    <Content Include="GdPicture.NET.14.machine.vision.dll" />
+    <Content Include="GdPicture.NET.14.twain.client.64.dll" />
+    <Content Include="GdPicture.NET.14.twain.client.dll" />
     <Content Include="globe_handdrawn.ico" />
+    <Content Include="MailLicense.xml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="README.txt" />
+    <None Include="Resources\DD_fileFLOW_BOOT.png" />
+    <None Include="Resources\DD_fileFLOW_ICON.png" />
+    <None Include="Resources\Dropitlikeitshot.png" />
+    <None Include="Resources\SelectAll_32x32.png" />
+    <None Include="Resources\FileFlow_Boot1.png" />
+    <None Include="Resources\FileFlow_Boot.bmp" />
+    <None Include="Resources\file.png" />
+    <None Include="Resources\shipmentawaiting.svg" />
+    <None Include="Resources\initialstate1.svg" />
+    <None Include="Resources\properties1.svg" />
+    <None Include="Resources\highlight1.svg" />
+    <None Include="Resources\highlight.svg" />
+    <None Include="Resources\bo_notifications.svg" />
+    <None Include="Resources\about.svg" />
+    <Content Include="Changelog.txt" />
+    <None Include="Resources\properties.svg" />
+    <None Include="Resources\initialstate.svg" />
+    <None Include="Resources\FileFlow_Icon.png" />
+    <None Include="Resources\FileFlow_Boot.png" />
+    <None Include="Resources\itemtypechecked.svg" />
+    <None Include="Resources\trackingchanges_next.svg" />
+    <None Include="Resources\GLOBIX_short.png" />
     <None Include="Resources\Close_16xMD.png" />
     <None Include="Resources\Close_16xLG.png" />
-    <None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />
     <None Include="Resources\Globix_ico.bmp" />
     <None Include="Resources\email.png" />
-    <None Include="Resources\DD_Icons-GLOBIX.png" />
     <None Include="Resources\action_add_16xMD.png" />
     <None Include="Resources\action_add_16xLG1.png" />
-    <None Include="Resources\globe_handdrawn.png" />
     <None Include="Resources\arrow_previous_16xLG.png" />
     <None Include="Resources\Excel_25ixel.jpg" />
     <None Include="Resources\cancel.png" />
@@ -776,6 +1030,16 @@
     </BootstrapperPackage>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets" Condition="Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\GdPicture.runtimes.windows.14.3.3\build\net462\GdPicture.runtimes.windows.targets'))" />
+    <Error Condition="!Exists('..\packages\EntityFramework.6.5.1\build\EntityFramework.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.5.1\build\EntityFramework.props'))" />
+    <Error Condition="!Exists('..\packages\EntityFramework.6.5.1\build\EntityFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EntityFramework.6.5.1\build\EntityFramework.targets'))" />
+  </Target>
+  <Import Project="..\packages\EntityFramework.6.5.1\build\EntityFramework.targets" Condition="Exists('..\packages\EntityFramework.6.5.1\build\EntityFramework.targets')" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

Global_Indexer/Global_Indexer.vbproj.bak

@@ -1,779 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
-  <PropertyGroup>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{7474B1D2-49A4-4D12-B544-C8674D3F7231}</ProjectGuid>
-    <OutputType>WinExe</OutputType>
-    <StartupObject>Global_Indexer.My.MyApplication</StartupObject>
-    <RootNamespace>Global_Indexer</RootNamespace>
-    <AssemblyName>Global_Indexer</AssemblyName>
-    <FileAlignment>512</FileAlignment>
-    <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
-    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
-    <PublishUrl>publish\</PublishUrl>
-    <Install>true</Install>
-    <InstallFrom>Disk</InstallFrom>
-    <UpdateEnabled>false</UpdateEnabled>
-    <UpdateMode>Foreground</UpdateMode>
-    <UpdateInterval>7</UpdateInterval>
-    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
-    <UpdatePeriodically>false</UpdatePeriodically>
-    <UpdateRequired>false</UpdateRequired>
-    <MapFileExtensions>true</MapFileExtensions>
-    <ApplicationRevision>0</ApplicationRevision>
-    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
-    <IsWebBootstrapper>false</IsWebBootstrapper>
-    <UseApplicationTrust>false</UseApplicationTrust>
-    <BootstrapperEnabled>true</BootstrapperEnabled>
-    <TargetFrameworkProfile />
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugSymbols>true</DebugSymbols>
-    <DebugType>full</DebugType>
-    <DefineDebug>true</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>Global_Indexer.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
-    <DebugType>pdbonly</DebugType>
-    <DefineDebug>false</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <Optimize>true</Optimize>
-    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>Global_Indexer.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionCompare>Text</OptionCompare>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionStrict>Off</OptionStrict>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionInfer>On</OptionInfer>
-  </PropertyGroup>
-  <PropertyGroup>
-    <ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
-  </PropertyGroup>
-  <PropertyGroup>
-    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
-  </PropertyGroup>
-  <ItemGroup>
-    <Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.DataAccess.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.DataAccess.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Pdf.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Pdf.v15.2.Drawing, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.RichEdit.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Spreadsheet.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.Utils.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraRichEdit.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraSpreadsheet.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DevExpress.XtraTreeList.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-    </Reference>
-    <Reference Include="DigitalData.Controls.DocumentViewer">
-      <HintPath>..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Filesystem">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
-    </Reference>
-    <Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
-    </Reference>
-    <Reference Include="Independentsoft.Msg, Version=2.0.350.20602, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll</HintPath>
-    </Reference>
-    <Reference Include="Interop.WINDREAMLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-    </Reference>
-    <Reference Include="Interop.WMOTOOLLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </Reference>
-    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\packages\NLog.4.5.11\lib\net45\NLog.dll</HintPath>
-    </Reference>
-    <Reference Include="Oracle.ManagedDataAccess">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
-    </Reference>
-    <Reference Include="PresentationCore" />
-    <Reference Include="System" />
-    <Reference Include="System.ComponentModel.DataAnnotations" />
-    <Reference Include="System.Data" />
-    <Reference Include="System.Data.Linq" />
-    <Reference Include="System.Deployment" />
-    <Reference Include="System.DirectoryServices" />
-    <Reference Include="System.DirectoryServices.AccountManagement" />
-    <Reference Include="System.Drawing" />
-    <Reference Include="System.Runtime.Remoting" />
-    <Reference Include="System.Web.Services" />
-    <Reference Include="System.Windows.Forms" />
-    <Reference Include="System.Xml" />
-    <Reference Include="System.Core" />
-    <Reference Include="System.Xml.Linq" />
-    <Reference Include="System.Data.DataSetExtensions" />
-    <Reference Include="UIAutomationClient" />
-  </ItemGroup>
-  <ItemGroup>
-    <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System" />
-    <Import Include="System.Collections" />
-    <Import Include="System.Collections.Generic" />
-    <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
-    <Import Include="System.Diagnostics" />
-    <Import Include="System.Windows.Forms" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Threading.Tasks" />
-  </ItemGroup>
-  <ItemGroup>
-    <Compile Include="AboutBox1.Designer.vb">
-      <DependentUpon>AboutBox1.vb</DependentUpon>
-    </Compile>
-    <Compile Include="AboutBox1.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="ClassConfig.vb" />
-    <Compile Include="ClassConstants.vb" />
-    <Compile Include="ClassControls.vb" />
-    <Compile Include="ClassDatabase.vb" />
-    <Compile Include="ClassDragDrop.vb" />
-    <Compile Include="ClassEmail.vb" />
-    <Compile Include="ClassEncryption.vb" />
-    <Compile Include="ClassFilehandle.vb" />
-    <Compile Include="ClassFolderWatcher.vb" />
-    <Compile Include="ClassFormFunctions.vb" />
-    <Compile Include="ClassHelper.vb" />
-    <Compile Include="ClassHotkey_Windream.vb" />
-    <Compile Include="ClassIndexFunctions.vb" />
-    <Compile Include="ClassInit.vb" />
-    <Compile Include="ClassLayout.vb" />
-    <Compile Include="ClassLicence.vb" />
-    <Compile Include="ClassLogger.vb" />
-    <Compile Include="ClassPostprocessing.vb" />
-    <Compile Include="ClassWindowAPI.vb" />
-    <Compile Include="ClassWindream.vb" />
-    <Compile Include="ClassEmailHeaderExtractor.vb" />
-    <Compile Include="clsHotkey.vb" />
-    <Compile Include="frmAdministration.Designer.vb">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmAdministration.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmConfig_Basic.designer.vb">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmConfig_Basic.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmConnections.Designer.vb">
-      <DependentUpon>frmConnections.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmConnections.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHistory.Designer.vb">
-      <DependentUpon>frmHistory.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHistory.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHotKey_Add.Designer.vb">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotKey_Add.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmHotkey_User.Designer.vb">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmHotkey_User.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmIndex.designer.vb">
-      <DependentUpon>frmIndex.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmIndex.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmIndexFileList.Designer.vb">
-      <DependentUpon>frmIndexFileList.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmIndexFileList.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmLicense.designer.vb">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLicense.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmLookupGrid.Designer.vb">
-      <DependentUpon>frmLookupGrid.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLookupGrid.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmMissingInput.Designer.vb">
-      <DependentUpon>frmMissingInput.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmMissingInput.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmNamenkonvention.designer.vb">
-      <DependentUpon>frmNamenkonvention.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmNamenkonvention.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSplash.designer.vb">
-      <DependentUpon>frmSplash.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSplash.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQL-Result.Designer.vb">
-      <DependentUpon>frmSQL-Result.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQL-Result.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQLConfigAutoIndex.Designer.vb">
-      <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQLConfigAutoIndex.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQLSuggestion.Designer.vb">
-      <DependentUpon>frmSQLSuggestion.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQLSuggestion.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmSQL_Admin.designer.vb">
-      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmSQL_Admin.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmStart.Designer.vb">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmStart.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmTestvb.Designer.vb">
-      <DependentUpon>frmTestvb.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmTestvb.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.designer.vb">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmUserKonfig_AddUsers.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="ModuleCURRENT.vb" />
-    <Compile Include="ModuleMySettings.vb" />
-    <Compile Include="ModuleUserSavings.vb" />
-    <Compile Include="ModuleWindowHandles.vb" />
-    <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="My Project\Application.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Application.myapp</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Settings.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Settings.settings</DependentUpon>
-      <DesignTimeSharedInput>True</DesignTimeSharedInput>
-    </Compile>
-    <Compile Include="MyDataset.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </Compile>
-    <Compile Include="MyDataset.vb">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </Compile>
-    <Compile Include="Strings\_frmLicense.en-US.Designer.vb">
-      <DependentUpon>_frmLicense.en-US.resx</DependentUpon>
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-    </Compile>
-    <Compile Include="Strings\_frmLicense.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>_frmLicense.resx</DependentUpon>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
-    <EmbeddedResource Include="AboutBox1.resx">
-      <DependentUpon>AboutBox1.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmAdministration.en-US.resx">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmAdministration.resx">
-      <DependentUpon>frmAdministration.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.de.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.en-US.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.en.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConfig_Basic.resx">
-      <DependentUpon>frmConfig_Basic.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConnections.en-US.resx">
-      <DependentUpon>frmConnections.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmConnections.resx">
-      <DependentUpon>frmConnections.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHistory.en-US.resx">
-      <DependentUpon>frmHistory.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHistory.resx">
-      <DependentUpon>frmHistory.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotKey_Add.resx">
-      <DependentUpon>frmHotKey_Add.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.en-US.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmHotkey_User.resx">
-      <DependentUpon>frmHotkey_User.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndex.en-US.resx">
-      <DependentUpon>frmIndex.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndex.resx">
-      <DependentUpon>frmIndex.vb</DependentUpon>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndexFileList.en-US.resx">
-      <DependentUpon>frmIndexFileList.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmIndexFileList.resx">
-      <DependentUpon>frmIndexFileList.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLicense.en-US.resx">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLicense.resx">
-      <DependentUpon>frmLicense.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLookupGrid.resx">
-      <DependentUpon>frmLookupGrid.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmMissingInput.en-US.resx">
-      <DependentUpon>frmMissingInput.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmMissingInput.resx">
-      <DependentUpon>frmMissingInput.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmNamenkonvention.en-US.resx">
-      <DependentUpon>frmNamenkonvention.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmNamenkonvention.resx">
-      <DependentUpon>frmNamenkonvention.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSplash.resx">
-      <DependentUpon>frmSplash.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL-Result.en-US.resx">
-      <DependentUpon>frmSQL-Result.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL-Result.resx">
-      <DependentUpon>frmSQL-Result.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLConfigAutoIndex.en-US.resx">
-      <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLConfigAutoIndex.resx">
-      <DependentUpon>frmSQLConfigAutoIndex.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLSuggestion.en-US.resx">
-      <DependentUpon>frmSQLSuggestion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQLSuggestion.resx">
-      <DependentUpon>frmSQLSuggestion.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL_Admin.en-US.resx">
-      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmSQL_Admin.resx">
-      <DependentUpon>frmSQL_Admin.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.de-DE.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.de.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.en-US.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.en.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmStart.resx">
-      <DependentUpon>frmStart.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.en-US.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmUserKonfig_AddUsers.resx">
-      <DependentUpon>frmUserKonfig_AddUsers.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
-    <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-    <EmbeddedResource Include="Strings\_frmLicense.en-US.resx">
-      <Generator>ResXFileCodeGenerator</Generator>
-      <LastGenOutput>_frmLicense.en-US.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-    </EmbeddedResource>
-    <EmbeddedResource Include="Strings\_frmLicense.resx">
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <Generator>ResXFileCodeGenerator</Generator>
-      <LastGenOutput>_frmLicense.Designer.vb</LastGenOutput>
-    </EmbeddedResource>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="My Project\app.manifest" />
-    <None Include="My Project\Application.myapp">
-      <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="My Project\Settings.settings">
-      <Generator>SettingsSingleFileGenerator</Generator>
-      <CustomToolNamespace>My</CustomToolNamespace>
-      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="App.config" />
-    <None Include="MyDataset.xsc">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </None>
-    <None Include="MyDataset.xsd">
-      <SubType>Designer</SubType>
-      <Generator>MSDataSetGenerator</Generator>
-      <LastGenOutput>MyDataset.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="MyDataset.xss">
-      <DependentUpon>MyDataset.xsd</DependentUpon>
-    </None>
-  </ItemGroup>
-  <ItemGroup>
-    <COMReference Include="Microsoft.Office.Core">
-      <Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>
-      <VersionMajor>2</VersionMajor>
-      <VersionMinor>7</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="Microsoft.Office.Interop.Outlook">
-      <Guid>{00062FFF-0000-0000-C000-000000000046}</Guid>
-      <VersionMajor>9</VersionMajor>
-      <VersionMinor>5</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="stdole">
-      <Guid>{00020430-0000-0000-C000-000000000046}</Guid>
-      <VersionMajor>2</VersionMajor>
-      <VersionMinor>0</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>primary</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="WMOBRWSLib">
-      <Guid>{25B51999-6DCA-11D4-B815-00104BB52DEA}</Guid>
-      <VersionMajor>1</VersionMajor>
-      <VersionMinor>0</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>tlbimp</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-    <COMReference Include="WMOSRCHLib">
-      <Guid>{BE4F1D13-88A8-11D4-B3FA-0001021F035F}</Guid>
-      <VersionMajor>1</VersionMajor>
-      <VersionMinor>0</VersionMinor>
-      <Lcid>0</Lcid>
-      <WrapperTool>tlbimp</WrapperTool>
-      <Isolated>False</Isolated>
-      <EmbedInteropTypes>True</EmbedInteropTypes>
-    </COMReference>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="packages.config" />
-    <None Include="Resources\database_refresh.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_save.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Einstellungen5.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\delete2.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\add.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_save1.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\delete_12x12.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\gear_32xSM.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\gear_32xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_refresh.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_save2.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\save_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\save_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Save_6530.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\database_connect.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Selectallrowsfrom_tableA__294.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\CheckOutforEdit_13187_32x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Benutzer.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\bell_delete.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\bell_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\folder_Open_32xSM.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Einstellungen6.ico" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\key_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\key.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\folder_link.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\page_red.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\folder_go.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_right.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_left.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\handdrawn_arrow_left_green.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\handdrawn_arrow_right_green.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_back_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_Forward_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Shortcut_8169_16x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\refresh_16xMD.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\Copy_6524.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\bullet_arrow_top.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\WindowsForm_817_12x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\KeyDown_8461_12x.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\action_add_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\arrow_Up_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Content Include="DD_Icons_ICO_GLOBIX_1.ico" />
-    <Content Include="DD_Icons_ICO_GLOBIX_128.ico">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
-    <Content Include="globe_handdrawn.ico" />
-    <None Include="Resources\Close_16xMD.png" />
-    <None Include="Resources\Close_16xLG.png" />
-    <None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />
-    <None Include="Resources\Globix_ico.bmp" />
-    <None Include="Resources\email.png" />
-    <None Include="Resources\DD_Icons-GLOBIX.png" />
-    <None Include="Resources\action_add_16xMD.png" />
-    <None Include="Resources\action_add_16xLG1.png" />
-    <None Include="Resources\globe_handdrawn.png" />
-    <None Include="Resources\arrow_previous_16xLG.png" />
-    <None Include="Resources\Excel_25ixel.jpg" />
-    <None Include="Resources\cancel.png" />
-    <None Include="Resources\refresh_16xLG.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
-      <Visible>False</Visible>
-      <ProductName>.NET Framework 3.5 SP1</ProductName>
-      <Install>false</Install>
-    </BootstrapperPackage>
-  </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
-       Other similar extension points exist, see Microsoft.Common.targets.
-  <Target Name="BeforeBuild">
-  </Target>
-  <Target Name="AfterBuild">
-  </Target>
-  -->
-</Project>

Global_Indexer/MailLicense.xml

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

Global_Indexer/ModuleCURRENT.vb

@@ -1,81 +1,88 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Messaging
 
 Module ModuleCURRENT
-    Public ERROR_STATE As String
-    Public START_INCOMPLETE As Boolean = False
-    Public CURRENT_FILENAME As String
-    Public CURRENT_NEWFILENAME As String
-    Public CURRENT_WORKFILE_GUID As Integer
-    Public CURRENT_WORKFILE As String
-    Public CURR_WORKFILE_EXTENSION As String
+    Public Property ERROR_STATE As String
+    Public Property START_INCOMPLETE As Boolean = False
+    Public Property CURRENT_FILENAME As String
+    Public Property CURRENT_NEWFILENAME As String
+    Public Property CURRENT_WORKFILE_GUID As Integer
+    Public Property CURRENT_WORKFILE_HASH As String
+    Public Property CURRENT_WORKFILE As String
+    Public Property CURR_WORKFILE_EXTENSION As String
 
-    Public CONFIG As ConfigManager(Of ClassConfig)
-    Public LOGCONFIG As LogConfig
-    Public LOGGER As Logger
+    Public Property CONFIG As ConfigManager(Of ClassConfig)
+    Public Property LOGCONFIG As LogConfig
+    Public Property LOGGER As Logger
+    Public Property EMAIL As Email2
+    Public Property FILESYSTEM As FilesystemEx
 
-    Public CURRENT_DOKART_ID As Integer
-    Public CURRENT_DOKART_DUPLICATE_HANDLING As String = "Default"
-    Public CURRENT_LASTDOKART As String = ""
-    Public CURRENT_INDEXMAN As Integer
-    Public CURRENT_INDEXAUTO As Integer
-    Public CURRENT_SQL_CONFIG As String
+    Public Property FILE_HANDLER As ClassFileHandler
+    Public Property FOLDER_WATCHER As ClassFolderWatcher
 
-    Public VERSION_DELIMITER As String
-    Public FILE_DELIMITER As String
-    Public CURRENT_MESSAGEID As String
-    Public CURRENT_MESSAGEDATE As String
-    Public CURRENT_MESSAGESUBJECT As String
-    Public CURRENT_ISATTACHMENT As Boolean = False
+    Public Property CURRENT_DOKART_ID As Integer
+    Public Property CURRENT_DOKART_DUPLICATE_HANDLING As String = "Default"
+    Public Property CURRENT_LASTDOKART As String = ""
+    Public Property CURRENT_INDEXMAN As Integer
+    Public Property CURRENT_INDEXAUTO As Integer
 
-    Public USER_ID
-    Public USER_IN_MODULE As Boolean = False
-    Public USER_IS_ADMIN As Boolean = False
-    Public USER_SHORT_NAME
-    Public UserLoggedin As Integer = 0
-    Public USER_LANGUAGE As String = "DE"
+    Public Property VERSION_DELIMITER As String
+    Public Property FILE_DELIMITER As String
+    Public Property CURRENT_MESSAGEID As String
+    Public Property CURRENT_MESSAGEDATE As String
+    Public Property CURRENT_MESSAGESUBJECT As String
+    Public Property CURRENT_ISATTACHMENT As Boolean = False
 
+    Public Property USER_ID
+    Public Property USER_IN_MODULE As Boolean = False
+    Public Property USER_IS_ADMIN As Boolean = False
 
-    Public CURRENT_FOLDERWATCH As String = ""
-    Public CURRENT_SCAN_FOLDERWATCH As String = ""
+    Public Property USER_SHORTNAME As String = ""
+    Public Property USER_PRENAME As String = ""
+    Public Property USER_SURNAME As String = ""
+    Public Property USER_EMAIL As String = ""
+    Public Property USER_LANGUAGE As String = "DE"
+    Public Property USER_USERNAME As String = ""
+    Public Property USERCOUNT_LOGGED_IN As Integer = 0
 
-    Public FWFunction_STARTED As Boolean = False
+    Public Property CURRENT_FOLDERWATCH As String = ""
+    Public Property CURRENT_SCAN_FOLDERWATCH As String = ""
 
-    Public CURR_DOKART_WD_DIRECT As Boolean = False
-    Public CURR_DOKART_OBJECTTYPE As String
-    Public CURRENT_WD_TEMPSEARCH As String = ""
+    Public Property FWFunction_STARTED As Boolean = False
 
-    Public LICENSE_EXPIRED As Boolean = False
-    Public LICENSE_COUNT As Integer = 0
-    Public LICENSE_DOCTYPE_COUNT As Integer = 0
-    Public DOCTYPE_COUNT_ACTUAL As Integer = 0
-    Public LicenseHotKey As Integer = 0
+    Public Property CURR_DOKART_WD_DIRECT As Boolean = False
+    Public Property CURR_DOKART_OBJECTTYPE As String
 
-    Public CURRENT_HTML_DOC As String
+    Public Property LICENSE_EXPIRED As Boolean = False
+    Public Property LICENSE_COUNT As Integer = 0
+    Public Property LICENSE_DOCTYPE_COUNT As Integer = 0
+    Public Property DOCTYPE_COUNT_ACTUAL As Integer = 0
+    Public Property LicenseHotKey As Integer = 0
 
-    Public MULTIINDEXING_ACTIVE As Boolean = False
-    Public ABORT_INDEXING As Boolean = False
+    Public Property INDEXING_ACTIVE As Boolean = False
+    Public Property MULTIINDEXING_ACTIVE As Boolean = False
+    Public Property ABORT_INDEXING As Boolean = False
 
-    Public DTACTUAL_FILES As DataTable
-    Public DTEXCLUDE_FILES As DataTable
-    Public DTTBGI_REGEX_DOCTYPE As DataTable
+    Public Property DTACTUAL_FILES As DataTable
+    Public Property DTEXCLUDE_FILES As DataTable
+    Public Property DTTBGI_REGEX_DOCTYPE As DataTable
 
-    Public CURRENT_SQLRESULT As String
-    Public DTSQL_RESULT As DataTable
-    Public TEMP_FILES As List(Of String) = New List(Of String)
+    Public Property CURRENT_SQLRESULT As String
+    Public Property DTSQL_RESULT As DataTable
 
-    Public CURRENT_FOCUSES_WINDOWNAME As String
+    Public Property LANGUAGE_CHANGED As Boolean = False
+    Public Property CURR_MISSING_PATTERN_NAME As String
+    Public Property CURR_MISSING_SEARCH_STRING As String
+    Public Property CURR_MISSING_MANUAL_VALUE As String
+    Public Property CURR_DELETE_ORIGIN As Boolean = False
+    Public Property CURRENT_DT_REGEX As DataTable
+    Public Property REGEX_CLEAN_FILENAME As String = "[?*^""<>|]"
+    Public Property CURRENT_DROPTYPE
 
-    Public LANGUAGE_CHANGED As Boolean = False
-    Public CURR_MISSING_PATTERN_NAME As String
-    Public CURR_MISSING_SEARCH_STRING As String
-    Public CURR_MISSING_MANUAL_VALUE As String
-    Public CURR_DELETE_ORIGIN As Boolean = False
-    Public CURRENT_DT_REGEX As DataTable
-    Public REGEX_CLEAN_FILENAME As String = "[?*^""<>|]"
-    Public CURRENT_DROPTYPE
-
-    Public VIEWER_LICENSE As String = ""
+    Public Property VIEWER_LICENSE As String = ""
+    Public CURRENT_DOC_ID As Integer
 End Module
 
 

Global_Indexer/ModuleMySettings.vb

@@ -1,15 +0,0 @@
-Imports System.IO
-Imports System.Xml
-
-Module ModuleMySettings
-    'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
-    Public Const USER_CONFIG_FILE = "UserConfig.xml"
-    Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
-
-    Public MyConnectionString As String = ""
-    Public LogErrorsOnly As Boolean = True
-    Public GI_withWindream As Boolean = False
-    Public vWLaufwerk As String = "W"
-    'Public myPreviewActive As Boolean = True
-    Public FW_started As Boolean = False
-End Module

Global_Indexer/ModuleRuntime.vb

@@ -0,0 +1,35 @@
+Imports System.IO
+Imports System.Xml
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Windream
+Module ModuleRuntime
+    'Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml")
+    Public Const USER_CONFIG_FILE = "UserConfig.xml"
+    Public Const COMPUTER_CONFIG_FILE = "ComputerConfig.xml"
+    Public Const WINDREAM_BASEPATH = "\\windream\objects"
+
+    Public MyConnectionString As String = ""
+    Public LogErrorsOnly As Boolean = True
+    Public GI_withWindream As Boolean = False
+    Public WMDrive As String = "W"
+    Public WM_DB_SERVER As String = ""
+    'Public myPreviewActive As Boolean = True
+    Public Property FW_started As Boolean = False
+    Public IDB_ACTIVE As Boolean = False
+    Public WORKING_MODE As String
+    Public Property CONNECTION_STRING_IDB As String
+
+    Public IDBData As ClassIDBData
+    Public IDB_USES_WMFILESTORE As Boolean = False
+    Public IDB_DOC_DATA_SQL As String
+    Public IDB_DT_DOC_DATA As DataTable
+    Public IDB_DOC_ID As Int64
+    Public IDB_LOG_INDEX As String
+
+
+
+    Public Property WINDREAM As Windream
+
+    Public Property DATABASE_ECM As MSSQLServer
+    Public Property DATABASE_IDB As MSSQLServer
+End Module

Global_Indexer/My Project/AssemblyInfo.vb

@@ -10,12 +10,12 @@ Imports System.Runtime.InteropServices
 
 ' Die Werte der Assemblyattribute überprüfen
 
-<Assembly: AssemblyTitle("Global Indexer")> 
-<Assembly: AssemblyDescription("")> 
-<Assembly: AssemblyCompany("Digital Data")> 
-<Assembly: AssemblyProduct("Global Indexer")>
-<Assembly: AssemblyCopyright("Copyright © 2019")>
-<Assembly: AssemblyTrademark("")> 
+<Assembly: AssemblyTitle("fileFLOW")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("Digital Data")>
+<Assembly: AssemblyProduct("fileFLOW")>
+<Assembly: AssemblyCopyright("Copyright © 2025")>
+<Assembly: AssemblyTrademark("2.8.0.0")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyVersion("2.8.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -60,6 +60,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property about() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("about", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -200,6 +210,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property bo_notifications() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("bo_notifications", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -323,9 +343,9 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
-        Friend ReadOnly Property DD_Icons_GLOBIX() As System.Drawing.Bitmap
+        Friend ReadOnly Property DD_fileFLOW_BOOT() As System.Drawing.Bitmap
             Get
-                Dim obj As Object = ResourceManager.GetObject("DD_Icons-GLOBIX", resourceCulture)
+                Dim obj As Object = ResourceManager.GetObject("DD_fileFLOW_BOOT", resourceCulture)
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
@@ -333,9 +353,9 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
-        Friend ReadOnly Property DD_Icons_ICO_GLOBIX_128() As System.Drawing.Bitmap
+        Friend ReadOnly Property DD_fileFLOW_ICON() As System.Drawing.Bitmap
             Get
-                Dim obj As Object = ResourceManager.GetObject("DD_Icons_ICO_GLOBIX_128", resourceCulture)
+                Dim obj As Object = ResourceManager.GetObject("DD_fileFLOW_ICON", resourceCulture)
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
@@ -360,6 +380,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Dropitlikeitshot() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Dropitlikeitshot", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -400,6 +430,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property file() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("file", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property FileFlow_Boot() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("FileFlow_Boot", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -450,16 +500,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
-        '''</summary>
-        Friend ReadOnly Property globe_handdrawn() As System.Drawing.Bitmap
-            Get
-                Dim obj As Object = ResourceManager.GetObject("globe_handdrawn", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -471,22 +511,52 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
-        Friend ReadOnly Property handdrawn_arrow_left_green() As System.Drawing.Bitmap
+        Friend ReadOnly Property highlight() As DevExpress.Utils.Svg.SvgImage
             Get
-                Dim obj As Object = ResourceManager.GetObject("handdrawn_arrow_left_green", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
+                Dim obj As Object = ResourceManager.GetObject("highlight", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
             End Get
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
         '''</summary>
-        Friend ReadOnly Property handdrawn_arrow_right_green() As System.Drawing.Bitmap
+        Friend ReadOnly Property highlight1() As DevExpress.Utils.Svg.SvgImage
             Get
-                Dim obj As Object = ResourceManager.GetObject("handdrawn_arrow_right_green", resourceCulture)
-                Return CType(obj,System.Drawing.Bitmap)
+                Dim obj As Object = ResourceManager.GetObject("highlight1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property initialstate() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("initialstate", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property initialstate1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("initialstate1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property itemtypechecked() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("itemtypechecked", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
             End Get
         End Property
         
@@ -530,6 +600,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property properties() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("properties", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property properties1() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("properties1", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -580,6 +670,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property SelectAll_32x32() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SelectAll_32x32", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -590,6 +690,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property shipmentawaiting() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("shipmentawaiting", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -600,6 +710,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
+        '''</summary>
+        Friend ReadOnly Property trackingchanges_next() As DevExpress.Utils.Svg.SvgImage
+            Get
+                Dim obj As Object = ResourceManager.GetObject("trackingchanges_next", resourceCulture)
+                Return CType(obj,DevExpress.Utils.Svg.SvgImage)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Global_Indexer/My Project/Resources.resx

@@ -118,169 +118,205 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="save_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="DD_Icons_ICO_GLOBIX_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="DD_Icons-GLOBIX" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DD_Icons-GLOBIX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="gear_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_Forward_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_previous_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_previous_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="globe_handdrawn" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\globe_handdrawn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="folder_Open_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\folder_Open_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="initialstate1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\initialstate1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Copy_6524" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Copy_6524.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Benutzer" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Benutzer.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="initialstate" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\initialstate.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
   <data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="FileFlow_Boot" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\FileFlow_Boot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="save_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="bo_notifications" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bo_notifications.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="trackingchanges_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\trackingchanges_next.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Close_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Close_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="gear_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_Forward_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Benutzer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Benutzer.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="DD_fileFLOW_ICON" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DD_fileFLOW_ICON.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="folder_Open_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\folder_Open_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="properties1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\properties1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="highlight1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\highlight1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\properties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Close_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Close_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="itemtypechecked" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\itemtypechecked.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="file" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\file.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_previous_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_previous_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_connect" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="shipmentawaiting" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\shipmentawaiting.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="KeyDown_8461_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Copy_6524" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Copy_6524.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Dropitlikeitshot" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Dropitlikeitshot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="SelectAll_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SelectAll_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="highlight" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\highlight.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
+  <data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="DD_fileFLOW_BOOT" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DD_fileFLOW_BOOT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

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", "15.7.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.14.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -57,122 +57,30 @@ 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=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _ 
-            "True;User ID=sa;Password=dd")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
+            "Info=True;User ID=sa;Password=dd")>  _
         Public ReadOnly Property DD_ECMConnectionString() As String
             Get
                 Return CType(Me("DD_ECMConnectionString"),String)
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("526"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property SplitterDistance_Viewer() As Integer
+         Global.System.Configuration.DefaultSettingValueAttribute("11.2024")>  _
+        Public ReadOnly Property GDPICTURE_VERSION() As String
             Get
-                Return CType(Me("SplitterDistance_Viewer"),Integer)
+                Return CType(Me("GDPICTURE_VERSION"),String)
             End Get
-            Set
-                Me("SplitterDistance_Viewer") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("True"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property WDSearch_maximized() As Boolean
-            Get
-                Return CType(Me("WDSearch_maximized"),Boolean)
-            End Get
-            Set
-                Me("WDSearch_maximized") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("True"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property Show_IndexResult() As Boolean
-            Get
-                Return CType(Me("Show_IndexResult"),Boolean)
-            End Get
-            Set
-                Me("Show_IndexResult") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property DoNot_Show_Documents() As Boolean
-            Get
-                Return CType(Me("DoNot_Show_Documents"),Boolean)
-            End Get
-            Set
-                Me("DoNot_Show_Documents") = value
-            End Set
         End Property
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("DigitalData\windream_CLIENT_WMCC_Neustart")>  _
-        Public ReadOnly Property Test() As String
-            Get
-                Return CType(Me("Test"),String)
-            End Get
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property AppTerminate() As Boolean
-            Get
-                Return CType(Me("AppTerminate"),Boolean)
-            End Get
-            Set
-                Me("AppTerminate") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property DA_Vorauswahlaktiv() As Boolean
+        Public ReadOnly Property UseAppConfig() As Boolean
             Get
-                Return CType(Me("DA_Vorauswahlaktiv"),Boolean)
+                Return CType(Me("UseAppConfig"),Boolean)
             End Get
-            Set
-                Me("DA_Vorauswahlaktiv") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
-        Public Property REGEX_Replace() As String
-            Get
-                Return CType(Me("REGEX_Replace"),String)
-            End Get
-            Set
-                Me("REGEX_Replace") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("myFilename.pdf")>  _
-        Public Property FilenameTest() As String
-            Get
-                Return CType(Me("FilenameTest"),String)
-            End Get
-            Set
-                Me("FilenameTest") = value
-            End Set
         End Property
     End Class
 End Namespace

Global_Indexer/My Project/Settings.settings

@@ -4,38 +4,17 @@
   <Settings>
     <Setting Name="DD_ECMConnectionString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
-&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
-  &lt;ConnectionString&gt;Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&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;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM_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>
-    <Setting Name="SplitterDistance_Viewer" Roaming="true" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">526</Value>
+    <Setting Name="GDPICTURE_VERSION" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">11.2024</Value>
     </Setting>
-    <Setting Name="WDSearch_maximized" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">True</Value>
-    </Setting>
-    <Setting Name="Show_IndexResult" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">True</Value>
-    </Setting>
-    <Setting Name="DoNot_Show_Documents" Roaming="true" Type="System.Boolean" Scope="User">
+    <Setting Name="UseAppConfig" Type="System.Boolean" Scope="Application">
       <Value Profile="(Default)">False</Value>
     </Setting>
-    <Setting Name="Test" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">DigitalData\windream_CLIENT_WMCC_Neustart</Value>
-    </Setting>
-    <Setting Name="AppTerminate" Roaming="true" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="DA_Vorauswahlaktiv" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="REGEX_Replace" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
-    <Setting Name="FilenameTest" Type="System.String" Scope="User">
-      <Value Profile="(Default)">myFilename.pdf</Value>
-    </Setting>
   </Settings>
 </SettingsFile>

Global_Indexer/My Project/licenses.licx

@@ -1,3 +1,8 @@
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemSearchLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Global_Indexer/My Project/licenses.licx.bak

@@ -1,4 +1,8 @@
-DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.SearchLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Global_Indexer/MyDataset.vb

@@ -1,4 +1,19 @@
 
 
 Partial Public Class MyDataset
+    Partial Public Class TBDD_INDEX_AUTOMDataTable
+    End Class
+
+    Partial Public Class TBDD_INDEX_MANDataTable
+    End Class
+
+    Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGDataTable
+        Private Sub TBDD_INDEX_MAN_POSTPROCESSINGDataTable_ColumnChanging(sender As Object, e As DataColumnChangeEventArgs) Handles Me.ColumnChanging
+            If (e.Column.ColumnName = Me.COMMENTColumn.ColumnName) Then
+                'Benutzercode hier einfügen
+            End If
+
+        End Sub
+
+    End Class
 End Class

Global_Indexer/MyDataset.xsc

@@ -233,20 +233,6 @@
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
-    <TableUISetting Name="TBDD_GROUPS">
-      <ColumnUISettings>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
     <TableUISetting Name="VWGI_USER_GROUPS_RELATION">
       <ColumnUISettings>
         <ColumnUISetting Name="ADDED_WHEN">
@@ -261,103 +247,22 @@
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_PROFILE">
-      <ColumnUISettings>
-        <ColumnUISetting Name="HOTKEY1">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="HOTKEY2">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_PATTERNS">
-      <ColumnUISettings>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_USER_PROFILE">
-      <ColumnUISettings>
-        <ColumnUISetting Name="HOTKEY1">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_PATTERNS_REWORK">
-      <ColumnUISettings>
-        <ColumnUISetting Name="TYPE">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-        <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
-    <TableUISetting Name="TBHOTKEY_WINDOW_HOOK">
-      <ColumnUISettings>
-        <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
-              <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting></ControlSettings>
-        </ColumnUISetting>
-      </ColumnUISettings>
-    </TableUISetting>
     <TableUISetting Name="TBGI_REGEX_DOCTYPE">
       <ColumnUISettings>
         <ColumnUISetting Name="DOCTYPE_ID">
-          <ControlSettings>
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
               <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
-          </ControlSettings>
+            </ControlSetting></ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="ADDED_WHEN">
-          <ControlSettings>
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
               <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
-          </ControlSettings>
+            </ControlSetting></ControlSettings>
         </ColumnUISetting>
         <ColumnUISetting Name="CHANGED_WHEN">
-          <ControlSettings>
-            <ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
+          <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
               <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-            </ControlSetting>
-          </ControlSettings>
+            </ControlSetting></ControlSettings>
         </ColumnUISetting>
       </ColumnUISettings>
     </TableUISetting>

Global_Indexer/MyDataset.xss

@@ -4,41 +4,33 @@
      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="23" ViewPortY="362" 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="8" X="765" Y="247" Height="305" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
-    <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="10" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
-    <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="28" 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="45" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
-    <Shape ID="DesignTable:TBDD_MODULES" ZOrder="44" 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="37" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
-    <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="43" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="6" X="1040" Y="444" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
-    <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="41" 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="7" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="38" 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="29" 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="35" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="33" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBDD_GROUPS" ZOrder="3" X="1096" Y="109" Height="210" Width="233" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
-    <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="4" X="1014" Y="-1" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
-    <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="9" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
-    <Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="5" X="259" Y="220" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
-    <Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="17" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="16" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
-    <Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="20" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="21" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="19" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
-    <Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="15" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="14" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="12" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
-    <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="39" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
-    <Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="32" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
-    <Shape ID="DesignTable:TBAD_Users" ZOrder="11" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
-    <Shape ID="DesignTable:TBGI_REGEX_DOCTYPE" ZOrder="2" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <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="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="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="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="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="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="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="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="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="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="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="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="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="11" X="1027" Y="881" Height="210" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
+    <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="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="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="46" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="30" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>431</X>
@@ -50,19 +42,19 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="42" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="26" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>543</X>
+          <X>535</X>
           <Y>386</Y>
         </Point>
         <Point>
-          <X>543</X>
-          <Y>656</Y>
+          <X>535</X>
+          <Y>638</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="40" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="25" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>397</X>
@@ -74,211 +66,59 @@
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="36" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="22" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>605</X>
-          <Y>656</Y>
+          <X>597</X>
+          <Y>638</Y>
         </Point>
         <Point>
-          <X>605</X>
-          <Y>148</Y>
+          <X>597</X>
+          <Y>104</Y>
         </Point>
         <Point>
-          <X>743</X>
-          <Y>148</Y>
+          <X>719</X>
+          <Y>104</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="34" LineWidth="11">
+    <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="21" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>959</X>
-          <Y>682</Y>
+          <X>293</X>
+          <Y>72</Y>
         </Point>
         <Point>
-          <X>959</X>
-          <Y>374</Y>
+          <X>719</X>
+          <Y>72</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="31" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="19" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>1096</X>
-          <Y>262</Y>
+          <X>978</X>
+          <Y>273</Y>
         </Point>
         <Point>
-          <X>1047</X>
-          <Y>262</Y>
-        </Point>
-        <Point>
-          <X>1047</X>
-          <Y>228</Y>
+          <X>1040</X>
+          <Y>273</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="30" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="17" LineWidth="11">
       <RoutePoints>
         <Point>
-          <X>951</X>
-          <Y>247</Y>
+          <X>397</X>
+          <Y>663</Y>
         </Point>
         <Point>
-          <X>951</X>
-          <Y>211</Y>
-        </Point>
-        <Point>
-          <X>1014</X>
-          <Y>211</Y>
+          <X>456</X>
+          <Y>663</Y>
         </Point>
       </RoutePoints>
     </Connector>
-    <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="27" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>94</X>
-          <Y>0</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>94</X>
-          <Y>0</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="26" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>129</X>
-          <Y>311</Y>
-        </Point>
-        <Point>
-          <X>129</X>
-          <Y>86</Y>
-        </Point>
-        <Point>
-          <X>221</X>
-          <Y>86</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="25" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>183</X>
-          <Y>25</Y>
-        </Point>
-        <Point>
-          <X>221</X>
-          <Y>25</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="24" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>88</X>
-          <Y>311</Y>
-        </Point>
-        <Point>
-          <X>88</X>
-          <Y>-22</Y>
-        </Point>
-        <Point>
-          <X>88</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>88</X>
-          <Y>178</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="23" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>117</X>
-          <Y>-1</Y>
-        </Point>
-        <Point>
-          <X>117</X>
-          <Y>-22</Y>
-        </Point>
-        <Point>
-          <X>117</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>117</X>
-          <Y>178</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="22" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>765</X>
-          <Y>285</Y>
-        </Point>
-        <Point>
-          <X>240</X>
-          <Y>285</Y>
-        </Point>
-        <Point>
-          <X>240</X>
-          <Y>268</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="18" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>409</X>
-          <Y>-36</Y>
-        </Point>
-        <Point>
-          <X>409</X>
-          <Y>-66</Y>
-        </Point>
-        <Point>
-          <X>425</X>
-          <Y>-66</Y>
-        </Point>
-        <Point>
-          <X>425</X>
-          <Y>-3</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="13" LineWidth="11">
-      <RoutePoints>
-        <Point>
-          <X>38</X>
-          <Y>0</Y>
-        </Point>
-        <Point>
-          <X>38</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>38</X>
-          <Y>-30</Y>
-        </Point>
-        <Point>
-          <X>38</X>
-          <Y>0</Y>
-        </Point>
-      </RoutePoints>
-    </Connector>
-    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="1" LineWidth="11">
+    <Connector ID="DesignRelation:FK_TBGI_REGEX_DOCTYPE_DTID" ZOrder="10" LineWidth="11">
       <RoutePoints>
         <Point>
           <X>380</X>

Global_Indexer/README.txt

@@ -0,0 +1,5 @@
+BASE MODULE
+===========
+
+This module is intended for often used constants and datastructures.
+Therefor it is important that this module does not have any dependencies on other modules!!

Global_Indexer/Resources/about.svg

@@ -0,0 +1,19 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{display:none;}
+	.st2{display:inline;fill:#039C23;}
+	.st3{display:inline;fill:#D11C1C;}
+	.st4{display:inline;fill:#727272;}
+</style>
+  <g id="About">
+    <path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M16,6c1.1,0,2,0.9,2,2s-0.9,2-2,2s-2-0.9-2-2   S14.9,6,16,6z M20,24h-8v-2h2v-8h-2v-2h2h4v10h2V24z" class="Blue" />
+  </g>
+</svg>

Global_Indexer/Resources/bo_notifications.svg

@@ -0,0 +1,25 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Blue{fill:#1177D7;}
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Green{fill:#039C23;}
+	.Black{fill:#727272;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.5;}
+	.st1{opacity:0.75;}
+	.st2{display:none;}
+	.st3{display:inline;fill:#FFB115;}
+	.st4{display:inline;}
+	.st5{display:inline;opacity:0.75;}
+	.st6{display:inline;opacity:0.5;}
+	.st7{display:inline;fill:#039C23;}
+	.st8{display:inline;fill:#D11C1C;}
+	.st9{display:inline;fill:#1177D7;}
+	.st10{display:inline;fill:#FFFFFF;}
+</style>
+  <g id="Notifications_1_">
+    <path d="M28,24v2H4v-2l4-4v-8c0-3.7,2.6-6.9,6-7.7c0-0.1,0-0.2,0-0.3c0-1.1,0.9-2,2-2s2,0.9,2,2c0,0.1,0,0.2,0,0.3   c3.5,0.9,6,4,6,7.7v8L28,24z M16,30c1.1,0,2-0.9,2-2h-4C14,29.1,14.9,30,16,30z" class="Yellow" />
+  </g>
+</svg>

Global_Indexer/Resources/highlight.svg

@@ -0,0 +1,20 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+</style>
+  <g id="Highlight">
+    <path d="M6,2H0V0h6V2z M2,2H0v4h2V2z M14,0H8v2h6V0z M22,0h-6v2h6V0z M30,0h-6v2h6V0z M30,2h-2v4h2V2z M30,8h-2v6h2V8   z M30,16h-2v6h2V16z M30,24h-2v6h2V24z M30,28h-6v2h6V28z M16,30h6v-2h-6V30z M8,30h6v-2H8V30z M0,30h6v-2H0V30z M2,24H0v6h2V24z    M2,16H0v6h2V16z M2,8H0v6h2V8z M22,21V9c0-0.6-0.5-1-1-1H9C8.4,8,8,8.4,8,9v12c0,0.5,0.4,1,1,1h12C21.5,22,22,21.5,22,21z" class="Blue" />
+    <g class="st2">
+      <rect x="0" y="0" width="30" height="30" rx="0" ry="0" class="Blue" />
+    </g>
+  </g>
+</svg>

Global_Indexer/Resources/highlight1.svg

@@ -0,0 +1,20 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+</style>
+  <g id="Highlight">
+    <path d="M6,2H0V0h6V2z M2,2H0v4h2V2z M14,0H8v2h6V0z M22,0h-6v2h6V0z M30,0h-6v2h6V0z M30,2h-2v4h2V2z M30,8h-2v6h2V8   z M30,16h-2v6h2V16z M30,24h-2v6h2V24z M30,28h-6v2h6V28z M16,30h6v-2h-6V30z M8,30h6v-2H8V30z M0,30h6v-2H0V30z M2,24H0v6h2V24z    M2,16H0v6h2V16z M2,8H0v6h2V8z M22,21V9c0-0.6-0.5-1-1-1H9C8.4,8,8,8.4,8,9v12c0,0.5,0.4,1,1,1h12C21.5,22,22,21.5,22,21z" class="Blue" />
+    <g class="st2">
+      <rect x="0" y="0" width="30" height="30" rx="0" ry="0" class="Blue" />
+    </g>
+  </g>
+</svg>

Global_Indexer/Resources/initialstate.svg

@@ -0,0 +1,20 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Black{fill:#727272;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.Green{fill:#039C23;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+	.st3{fill:#FFB115;}
+</style>
+  <g />
+  <g id="InitialState">
+    <path d="M16,26c0.2,0.7,0.5,1.4,0.8,2H3c-0.6,0-1-0.4-1-1V12h2v14H16z M26,12v4c0.7,0.2,1.4,0.5,2,0.8V12H26z" class="Black" />
+    <path d="M32,25v-2l-2.2-0.4c-0.2-0.6-0.4-1.3-0.8-1.8l1.3-1.8l-1.4-1.4l-1.8,1.3c-0.5-0.3-1.2-0.6-1.8-0.7L25,16h-2   l-0.4,2.2c-0.6,0.2-1.3,0.4-1.8,0.7L19,17.6L17.6,19l1.3,1.8c-0.3,0.5-0.6,1.2-0.8,1.8L16,23v2l2.2,0.4c0.2,0.6,0.4,1.3,0.8,1.8   L17.7,29l1.4,1.4l1.8-1.3c0.5,0.3,1.2,0.6,1.8,0.7L23,32h2l0.4-2.2c0.6-0.2,1.3-0.4,1.8-0.7l1.8,1.3l1.4-1.4l-1.3-1.8   c0.3-0.5,0.6-1.2,0.8-1.8L32,25z M24,26c-1.1,0-2-0.9-2-2s0.9-2,2-2s2,0.9,2,2S25.1,26,24,26z M27,2H3C2.5,2,2,2.5,2,3v9h26V3   C28,2.5,27.5,2,27,2z M9,9L6,6h6L9,9z" class="Blue" />
+  </g>
+</svg>

Global_Indexer/Resources/initialstate1.svg

@@ -0,0 +1,20 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Yellow{fill:#FFB115;}
+	.Red{fill:#D11C1C;}
+	.Black{fill:#727272;}
+	.Blue{fill:#1177D7;}
+	.White{fill:#FFFFFF;}
+	.Green{fill:#039C23;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+	.st3{fill:#FFB115;}
+</style>
+  <g />
+  <g id="InitialState">
+    <path d="M16,26c0.2,0.7,0.5,1.4,0.8,2H3c-0.6,0-1-0.4-1-1V12h2v14H16z M26,12v4c0.7,0.2,1.4,0.5,2,0.8V12H26z" class="Black" />
+    <path d="M32,25v-2l-2.2-0.4c-0.2-0.6-0.4-1.3-0.8-1.8l1.3-1.8l-1.4-1.4l-1.8,1.3c-0.5-0.3-1.2-0.6-1.8-0.7L25,16h-2   l-0.4,2.2c-0.6,0.2-1.3,0.4-1.8,0.7L19,17.6L17.6,19l1.3,1.8c-0.3,0.5-0.6,1.2-0.8,1.8L16,23v2l2.2,0.4c0.2,0.6,0.4,1.3,0.8,1.8   L17.7,29l1.4,1.4l1.8-1.3c0.5,0.3,1.2,0.6,1.8,0.7L23,32h2l0.4-2.2c0.6-0.2,1.3-0.4,1.8-0.7l1.8,1.3l1.4-1.4l-1.3-1.8   c0.3-0.5,0.6-1.2,0.8-1.8L32,25z M24,26c-1.1,0-2-0.9-2-2s0.9-2,2-2s2,0.9,2,2S25.1,26,24,26z M27,2H3C2.5,2,2,2.5,2,3v9h26V3   C28,2.5,27.5,2,27,2z M9,9L6,6h6L9,9z" class="Blue" />
+  </g>
+</svg>

Global_Indexer/Resources/itemtypechecked.svg

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

Global_Indexer/Resources/properties.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+</style>
+  <g id="Properties">
+    <path d="M30,18v-4l-4.4-0.7c-0.2-0.8-0.5-1.5-0.9-2.1l2.6-3.6l-2.8-2.8l-3.6,2.6c-0.7-0.4-1.4-0.7-2.1-0.9L18,2h-4   l-0.7,4.4c-0.8,0.2-1.5,0.5-2.1,0.9L7.5,4.7L4.7,7.5l2.6,3.6c-0.4,0.7-0.7,1.4-0.9,2.1L2,14v4l4.4,0.7c0.2,0.8,0.5,1.5,0.9,2.1   l-2.6,3.6l2.8,2.8l3.6-2.6c0.7,0.4,1.4,0.7,2.1,0.9L14,30h4l0.7-4.4c0.8-0.2,1.5-0.5,2.1-0.9l3.6,2.6l2.8-2.8l-2.6-3.6   c0.4-0.7,0.7-1.4,0.9-2.1L30,18z M16,20c-2.2,0-4-1.8-4-4c0-2.2,1.8-4,4-4s4,1.8,4,4C20,18.2,18.2,20,16,20z" class="Blue" />
+  </g>
+</svg>

Global_Indexer/Resources/properties1.svg

@@ -0,0 +1,17 @@
+<?xml version='1.0' encoding='UTF-8'?>
+<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
+  <style type="text/css">
+	.Black{fill:#727272;}
+	.Yellow{fill:#FFB115;}
+	.Blue{fill:#1177D7;}
+	.Green{fill:#039C23;}
+	.Red{fill:#D11C1C;}
+	.White{fill:#FFFFFF;}
+	.st0{opacity:0.75;}
+	.st1{opacity:0.5;}
+	.st2{opacity:0.25;}
+</style>
+  <g id="Properties">
+    <path d="M30,18v-4l-4.4-0.7c-0.2-0.8-0.5-1.5-0.9-2.1l2.6-3.6l-2.8-2.8l-3.6,2.6c-0.7-0.4-1.4-0.7-2.1-0.9L18,2h-4   l-0.7,4.4c-0.8,0.2-1.5,0.5-2.1,0.9L7.5,4.7L4.7,7.5l2.6,3.6c-0.4,0.7-0.7,1.4-0.9,2.1L2,14v4l4.4,0.7c0.2,0.8,0.5,1.5,0.9,2.1   l-2.6,3.6l2.8,2.8l3.6-2.6c0.7,0.4,1.4,0.7,2.1,0.9L14,30h4l0.7-4.4c0.8-0.2,1.5-0.5,2.1-0.9l3.6,2.6l2.8-2.8l-2.6-3.6   c0.4-0.7,0.7-1.4,0.9-2.1L30,18z M16,20c-2.2,0-4-1.8-4-4c0-2.2,1.8-4,4-4s4,1.8,4,4C20,18.2,18.2,20,16,20z" class="Blue" />
+  </g>
+</svg>