AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Automatic Profile by Regex

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-09 16:38:02 +02:00
parent a8531bc454
commit 0f9ad5659b
1 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Global_Indexer/frmIndex.vb
View File

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