MS Adding documents

app/DD-Record-Organizer/frmWM_IndexFile.vb

@@ -37,6 +37,8 @@ Public Class frmWM_IndexFile
         Try
             CURRENT_DOC_ID = Nothing
             Dim odeleteRights As Boolean = True
+            Dim oSQL = $"SELECT GUID FROM TBPMO_FILES_USER WHERE FILENAME2WORK = '{ImportFilePath}' AND WORKED = 0 AND USER_WORK = '{Environment.UserName}'"
+            CURRENT_FILEID = MYDB_ECM.GetScalarValue(oSQL)
 
             CURRENT_DOKARTSTRING = vDokart
             Dim err As Boolean = False
@@ -293,6 +295,7 @@ Public Class frmWM_IndexFile
                             ClassFileResult.DocID = CURRENT_DOC_ID
                             ClassFileResult.SET_DOCID_INDICES()
                             If ClassDOC_SEARCH.CREATE_DOC_RELATED_LINKS(CURRENT_DOC_ID, CURRENT_RECORD_ID) = False Then
+
                                 stg = "Unerwarteter Fehler: Der Record-Link konnte nicht erzeugt werden! Überprüfen Sie das Log."
                                 If USER_LANGUAGE <> "de-DE" Then
                                     stg = "Unexpected Error: Could not create the recordlink! Please check the log."