MS V2.7.4.1 Betatest

Global_Indexer/frmIndex.vb

@@ -2519,6 +2519,7 @@ Public Class frmIndex
     Private Function Move_File2_Target()
         Dim oError As Boolean
         Try
+            CURRENT_DOC_ID = 0
             Dim oSQL As String = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKART_ID
             Dim oFolderForIndex = DATABASE_ECM.GetScalarValue(oSQL)
             If Not IsDBNull(oFolderForIndex) Then
@@ -2539,8 +2540,18 @@ Public Class frmIndex
                     oExportSuccessful = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
                 End If
                 If oExportSuccessful = True Then
-                    'Kein Fehler in Export2windream
-                    oError = False
+                    Dim ofilename = Path.GetFileName(CURRENT_NEWFILENAME)
+                    Dim odwDocID As Int64
+                    If WM_DB_SERVER <> "" Then
+                        oSQL = $"select max(dwdocid) from {WM_DB_SERVER}.dbo.BaseAttributes where szLongName = '{ofilename}'"
+                        Dim oDocID = DATABASE_ECM.GetScalarValue(oSQL)
+                        If Not IsNothing(oDocID) Then
+                            CURRENT_DOC_ID = oDocID
+                        End If
+                    End If
+
+                        'Kein Fehler in Export2windream
+                        oError = False
                     If Write_Indizes() = True Then
                         'Kein Fehler in Setzen der windream-Indizes
                         Dim Insert_String As String