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

MS

Browse Source
This commit is contained in:
Developer01 2025-04-28 12:53:37 +02:00
parent b2d6f0d186
commit 9e40e2eccd
3 changed files with 1709 additions and 2941 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.4.1")>
<Assembly: AssemblyVersion("2.7.4.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

4642
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

6
Global_Indexer/frmIndex.vb
View File

@ -834,7 +834,7 @@ Public Class frmIndex
'Automatische Indexe Indexieren
Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM
If DTAut.Rows.Count > 0 Then
_Logger.Debug("Es gibt automatische Atrribute - Anzahl: " & DTAut.Rows.Count.ToString)
_Logger.Debug(" #### Es gibt automatische Atrribute - Anzahl: " & DTAut.Rows.Count.ToString & " #####")
Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows
Dim oIsIndexed = CBool(row.Item("Indexiert"))
@ -859,9 +859,12 @@ Public Class frmIndex
Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR)
Dim oListofString As New List(Of String)
If oSplitArray.Length = 0 Then
_Logger.Debug("oSplitArray.Length = 0")
oListofString.Add(oIndexValue)
Else
_Logger.Debug("oSplitArray is > 0 ...")
For Each oStr In oSplitArray
_Logger.Debug("oSplitArray - oStr: {0}", oStr)
oListofString.Add(oStr)
Next
End If
@ -870,6 +873,7 @@ Public Class frmIndex
' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
'Else
If oOverwrite = False And oExistingItems.Count > 0 Then
_Logger.Debug("oOverwrite = False and oExistingItems.Count > 0")
oListofString = oExistingItems.Concat(oListofString).ToList()
End If
If oPreventMultipleValues = True Then