MS Logging, Import windream, Hash-wert

app/DD-Record-Organizer/Classes/ClassDOC_SEARCH.vb

@@ -516,7 +516,7 @@ Public Class ClassDOC_SEARCH
 
     Public Shared Function CREATE_DOC_RELATED_LINKS(DOC_ID As Integer, RECORD_ID As Integer)
         Try
-            Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
+            Dim execute = String.Format("EXEC PROF_DOC_CREATE_UPDATE {0},{1},'{2}','{3}'", DOC_ID, RECORD_ID, USER_USERNAME, CURRENT_FILE_HASH)
             If MYDB_ECM.ExecuteNonQuery(execute) = True Then
                 Return True
             Else