From 5f965857c8811dca4553774377f6d1d878c71daf Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Fri, 16 May 2025 11:54:13 +0200
Subject: [PATCH] MS Parameter renaming

---
 Global_Indexer/frmIndex.vb | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index e2f8b9f..3b5be9f 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -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