make doctype_id unique for regex_doctype

Global_Indexer/frmIndex.vb

@@ -1482,11 +1482,11 @@ Public Class frmIndex
     End Sub
 
     Private Sub frmIndex_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
-        Me.BringToFront()
-        Me.Focus()
-        Me.Cursor = Cursors.Default
+        BringToFront()
+        Focus()
+        Cursor = Cursors.Default
         Refresh_Dokart()
-        Me.pnlIndex.Controls.Clear()
+        pnlIndex.Controls.Clear()
 
         CURR_DELETE_ORIGIN = CONFIG.Config.DeleteOriginalFile
         checkItemDeleteSource.Enabled = True
@@ -1494,6 +1494,7 @@ Public Class frmIndex
 
         checkItemTopMost.Checked = CONFIG.Config.TopMost
         TopMost = CONFIG.Config.TopMost
+        BringToFront()
 
         FormLoaded = True
 
@@ -1510,7 +1511,9 @@ Public Class frmIndex
                     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.Info($"There is a match on REGEX_DOCTYPE: {oRoW.Item("DOCTYPE")}")
+
+                            LOGGER.Debug("There is a match on REGEX_DOCTYPE: [{0}]", oRoW.Item("DOCTYPE"))
+                            LOGGER.Debug("Regex: [{0}], FileName: [{1}]", oRoW.Item("Regex"), oOnlyFilename)
                             cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(oRoW.Item("DOCTYPE"))
                             Exit For
                         End If
@@ -1521,8 +1524,6 @@ Public Class frmIndex
             LOGGER.Info(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
             LOGGER.Error(ex.Message)
         End Try
-        Me.TopMost = True
-        Me.BringToFront()
     End Sub
     Sub Refresh_Dokart()
         Try