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,29 +1581,28 @@ Public Class frmIndex
 
                     'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART)
                 End If
-            Else
+            End If
-                If 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
 
-                            _Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
+            If ComboboxDoctype.SelectedItem Is Nothing And DTTBGI_REGEX_DOCTYPE.Rows.Count > 0 Then
-                            _Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
+                For Each oRoW As DataRow In DTTBGI_REGEX_DOCTYPE.Rows
-                            'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
+                    Dim oOnlyFilename = Path.GetFileName(CURRENT_WORKFILE)
+                    If Regex.IsMatch(oOnlyFilename, oRoW.Item("Regex")) Then
 
-                            Dim oFoundDocType = ComboboxDoctype.Properties.Items.
+                        _Logger.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
-                                Cast(Of DocType)().
+                        _Logger.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
-                                Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
+                        'cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
-                                FirstOrDefault()
 
-                            If oFoundDocType IsNot Nothing Then
+                        Dim oFoundDocType = ComboboxDoctype.Properties.Items.
-                                ComboboxDoctype.SelectedItem = oFoundDocType
+                            Cast(Of DocType)().
-                            End If
+                            Where(Function(dt) dt.Guid = oRoW.Item("DOCTYPE_ID")).
+                            FirstOrDefault()
 
+                        If oFoundDocType IsNot Nothing Then
+                            ComboboxDoctype.SelectedItem = oFoundDocType
                             Exit For
                         End If
-                    Next
+                    End If
-                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