Version 2.3.9.6

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2395")>
+<Assembly: AssemblyTrademark("2396")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.9.5")>
+<Assembly: AssemblyVersion("2.3.9.6")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmIndex.vb

@@ -1581,8 +1581,9 @@ Public Class frmIndex
 
                     'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
                 End If
-            Else
+            End If
-                If DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
+
+            If ComboboxDoctype.SelectedItem Is Nothing And DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
                 For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
                     Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
                     If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then
@@ -1593,17 +1594,15 @@ Public Class frmIndex
 
                         Dim oFoundDocType = ComboboxDoctype.Properties.Items.
                             Cast(Of DocType)().
-                                Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
+                            Where(Function(dt) dt.Guid = oRoW.Item("DOCTYPE_ID")).
                             FirstOrDefault()
 
                         If oFoundDocType IsNot Nothing Then
                             ComboboxDoctype.SelectedItem = oFoundDocType
-                            End If
-
                             Exit For
                         End If
-                    Next
                     End If
+                Next
             End If
         Catch ex As Exception
             ShowErrorMessage(ex, "Form Shown")
@@ -1626,10 +1625,8 @@ Public Class frmIndex
 
 
             For Each oRow As DataRow In oDoctypes.Rows
-                ComboboxDoctype.Properties.Items.Add(New DocType With {
+                Dim oDocType = New DocType With {.Guid = oRow.Item("DOCTYPE_ID"), .Name = oRow.Item("DOCTYPE")}
-                                                       .Guid = oRow.Item("DOCTYPE_ID"),
+                ComboboxDoctype.Properties.Items.Add(oDocType)
-                                                       .Name = oRow.Item("DOCTYPE")
-                                                   })
             Next
 
             ComboboxDoctype.SelectedIndex = -1