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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.4.1")> <Assembly: AssemblyVersion("2.7.4.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <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 'Automatische Indexe Indexieren
Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM
If DTAut.Rows.Count > 0 Then 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 Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows For Each row As DataRow In DTAut.Rows
Dim oIsIndexed = CBool(row.Item("Indexiert")) Dim oIsIndexed = CBool(row.Item("Indexiert"))
@ -859,9 +859,12 @@ 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.Length = 0 Then If oSplitArray.Length = 0 Then
_Logger.Debug("oSplitArray.Length = 0")
oListofString.Add(oIndexValue) oListofString.Add(oIndexValue)
Else Else
_Logger.Debug("oSplitArray is > 0 ...")
For Each oStr In oSplitArray For Each oStr In oSplitArray
_Logger.Debug("oSplitArray - oStr: {0}", oStr)
oListofString.Add(oStr) oListofString.Add(oStr)
Next Next
End If End If
@ -870,6 +873,7 @@ Public Class frmIndex
' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE) ' indexierung_erfolgreich = WINDREAM.SetFileIndex(CURRENT_NEWFILENAME, oIndexName, oIndexValue, CURR_DOKART_OBJECTTYPE)
'Else 'Else
If oOverwrite = False And oExistingItems.Count > 0 Then If oOverwrite = False And oExistingItems.Count > 0 Then
_Logger.Debug("oOverwrite = False and oExistingItems.Count > 0")
oListofString = oExistingItems.Concat(oListofString).ToList() oListofString = oExistingItems.Concat(oListofString).ToList()
End If End If
If oPreventMultipleValues = True Then If oPreventMultipleValues = True Then