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

MS Parameter renaming

Browse Source
This commit is contained in:
Developer01 2025-05-16 11:54:13 +02:00
parent 623672ded9
commit 5f965857c8
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Global_Indexer/frmIndex.vb
View File

@ -874,9 +874,9 @@ Public Class frmIndex
Count += 1 Count += 1
' den Typ des Zielindexes auslesen ' den Typ des Zielindexes auslesen
Dim indexType As Integer = WINDREAM.GetIndexType(oIndexName) Dim oIndexType As Integer = WINDREAM.GetIndexType(oIndexName)
_Logger.Debug("WMIndexType: " & indexType.ToString) _Logger.Debug("WMIndexType: " & oIndexType.ToString)
If indexType > 4095 Then If oIndexType > 4095 Then
_Logger.Debug("Es Handelt sich um einen VektorIndex...") _Logger.Debug("Es Handelt sich um einen VektorIndex...")
Dim oExistingItems = WINDREAM.GetIndexValue(CURRENT_NEWFILENAME, oIndexName) Dim oExistingItems = WINDREAM.GetIndexValue(CURRENT_NEWFILENAME, oIndexName)
@ -896,7 +896,7 @@ Public Class frmIndex
'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
If oOverwrite = False And oExistingItems.Count > 0 Then If oOverwrite = False And oExistingItems.Count > 0 And oIndexType <> 4100 Then
_Logger.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count) _Logger.Debug("oOverwrite = False and WMObject already contains [{0}] values in attribute,Values will be concatted", oExistingItems.Count)
oListofString = oExistingItems.Concat(oListofString).ToList() oListofString = oExistingItems.Concat(oListofString).ToList()
End If End If
@ -2419,7 +2419,7 @@ Public Class frmIndex
'Den Zielnamen zusammenbauen 'Den Zielnamen zusammenbauen
If Name_Generieren() = True Then If Name_Generieren() = True Then
'Die Datei verschieben 'Die Datei verschieben
If Move_File2_Target() = True Then If Move_File_and_Index() = True Then
_Logger.Debug(" ...Move_File2_Target durchlaufen") _Logger.Debug(" ...Move_File2_Target durchlaufen")
_Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.") _Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.")
@ -2460,7 +2460,6 @@ Public Class frmIndex
End If End If
Return False Return False
End If End If
'#### Automatische Werte indexieren ####
End If End If
Else Else
If USER_LANGUAGE = LANG_DE Then If USER_LANGUAGE = LANG_DE Then
@ -2537,7 +2536,7 @@ Public Class frmIndex
' End If ' End If
' Me.Cursor = Cursors.Default ' Me.Cursor = Cursors.Default
'End Sub 'End Sub
Private Function Move_File2_Target() Private Function Move_File_and_Index()
Dim oError As Boolean Dim oError As Boolean
Try Try
CURRENT_DOC_ID = 0 CURRENT_DOC_ID = 0
@ -2571,8 +2570,8 @@ Public Class frmIndex
End If End If
End If End If
'Kein Fehler in Export2windream 'Kein Fehler in Export2windream
oError = False oError = False
If Write_Indizes() = True Then If Write_Indizes() = True Then
'Kein Fehler in Setzen der windream-Indizes 'Kein Fehler in Setzen der windream-Indizes
Dim Insert_String As String Dim Insert_String As String