From daadc7771aaf6e728c8bfc801fa0578ea1726a69 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Tue, 19 Nov 2024 13:21:48 +0100
Subject: [PATCH 1/2] MS Windream GetSearchDocuments DocIDIndexname Optional

---
 Windream/My Project/AssemblyInfo.vb | 4 ++--
 Windream/Windream.vb                | 5 ++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Windream/My Project/AssemblyInfo.vb b/Windream/My Project/AssemblyInfo.vb
index d69dd7e2..981f4d2f 100644
--- a/Windream/My Project/AssemblyInfo.vb	
+++ b/Windream/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.9.4.0")>
-<Assembly: AssemblyFileVersion("1.9.4.0")>
+<Assembly: AssemblyVersion("1.9.5.0")>
+<Assembly: AssemblyFileVersion("1.9.5.0")>
diff --git a/Windream/Windream.vb b/Windream/Windream.vb
index e6ddb12f..914b944f 100644
--- a/Windream/Windream.vb
+++ b/Windream/Windream.vb
@@ -890,10 +890,13 @@ Public Class Windream
     ''' <param name="SearchFilePath">Path of a search file (*.wdf)</param>
     ''' <param name="DocIdIndexName">Index containing the Document-ID</param>
     ''' <returns>A datatable of the results with columns PATH and DOCID</returns>
-    Public Function GetSearchDocuments(SearchFilePath As String, DocIdIndexName As String) As DataTable
+    Public Function GetSearchDocuments(SearchFilePath As String, Optional DocIdIndexName As String = "") As DataTable
         Dim oDatatable As New DataTable
         oDatatable.Columns.Add("PATH", GetType(String))
         oDatatable.Columns.Add("DOCID", GetType(Integer))
+        If DocIdIndexName = "" Then
+            DocIdIndexName = "Dokument-ID"
+        End If
 
         If TestSessionLoggedIn() = False Then
             Return oDatatable

From 34ffec6272492ad80a7b5145e3c05b768721263c Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Wed, 20 Nov 2024 13:06:44 +0100
Subject: [PATCH 2/2] MS Database 35.2 GDPicture and Connectionselect Active =
 1

---
 Database/My Project/AssemblyInfo.vb | 4 ++--
 Database/Queries.vb                 | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Database/My Project/AssemblyInfo.vb b/Database/My Project/AssemblyInfo.vb
index c07c695e..10e68531 100644
--- a/Database/My Project/AssemblyInfo.vb	
+++ b/Database/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.3.5.1")>
-<Assembly: AssemblyFileVersion("2.3.5.1")>
+<Assembly: AssemblyVersion("2.3.5.2")>
+<Assembly: AssemblyFileVersion("2.3.5.2")>
diff --git a/Database/Queries.vb b/Database/Queries.vb
index a7e7a2dc..86901b61 100644
--- a/Database/Queries.vb
+++ b/Database/Queries.vb
@@ -1,11 +1,11 @@
 Public Class Queries
     Public Class DD_ECM
         Public Class ThirdPartyModules
-            Public Const GdPictureLicense As String = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'"
+            Public Const GdPictureLicense As String = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' AND ACTIVE = 1"
         End Class
 
         Public Class Connections
-            Public Const AllConnections As String = "SELECT * FROM TBDD_CONNECTION"
+            Public Const AllConnections As String = "SELECT * FROM TBDD_CONNECTION AND AKTIV = 1"
         End Class
     End Class
 End Class