This commit is contained in:
Developer01 2025-04-03 18:13:47 +02:00
parent b6b0858888
commit f36b591bd1

View File

@ -858,7 +858,7 @@ Public Class frmIndex
Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR) Dim oSplitArray = Split(oIndexValue, ClassConstants.VECTORSEPARATOR)
Dim oListofString As New List(Of String) Dim oListofString As New List(Of String)
If oSplitArray.Count = 0 Then If oSplitArray.Length = 0 Then
oListofString.Add(oIndexValue) oListofString.Add(oIndexValue)
Else Else
For Each oStr In oSplitArray For Each oStr In oSplitArray
@ -866,20 +866,17 @@ Public Class frmIndex
Next Next
End If End If
If oSplitArray.Length <= 1 Then 'If oSplitArray.Length <= 1 Then
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE) ' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
Else 'Else
For Each oStr In oSplitArray If oOverwrite = False And oExistingItems.Count > 0 Then
oListofString.Add(oStr) oListofString = oExistingItems.Concat(oListofString).ToList()
Next
If oOverwrite = False And oExistingItems.Count > 0 Then
oListofString = oExistingItems.Concat(oListofString).ToList()
End If
If oPreventMultipleValues = True Then
oListofString = oListofString.Distinct().ToList()
End If
indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
End If End If
If oPreventMultipleValues = True Then
oListofString = oListofString.Distinct().ToList()
End If
indexierung_erfolgreich = WINDREAM.SetFileIndexLoS(CURRENT_NEWFILENAME, oIndexName, oListofString, CURR_DOKART_OBJECTTYPE)
'End If
Else Else
indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE) indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)