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