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] 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