MS

app/DD-Record-Organizer/frmWM_IndexFile.vb

@@ -3,7 +3,6 @@ Imports System.Security.AccessControl
 Imports System.Security.Principal
 Imports System.Data.SqlClient
 Imports Oracle.ManagedDataAccess.Client
-'Imports DD_LIB_Standards
 Imports DigitalData.Modules.Windream
 
 Public Class frmWM_IndexFile
@@ -246,6 +245,14 @@ Public Class frmWM_IndexFile
 
                     If indexierung_erfolgreich = True Then
                     LOGGER.Info("File was correctly imported and indexed: " & CURRENT_FILEIN_WD)
+                    Dim oReldocpath = ClassHelper.GetRelPath(CURRENT_FILEIN_WD)
+                    LOGGER.Info("oReldocpath: " & oReldocpath)
+                    CURRENT_WM_OBJECT = WMMOD.GetFileByPath(oReldocpath)
+                    If IsNothing(CURRENT_WM_OBJECT) Then
+                        MsgBox("Attention in Work-File:" & vbNewLine & "Could not create final windream-object!", MsgBoxStyle.Critical)
+                        Return False
+                    End If
+                    LOGGER.Info("..CURRENT_WM_OBJECT created: " & oReldocpath)
                     Dim stg As String = "Datei erfolgreich nach windream übertragen"
                         Dim stg1 As String = "Erfolgsmeldung"
                         If USER_LANGUAGE <> "de-DE" Then
@@ -309,7 +316,7 @@ Public Class frmWM_IndexFile
                                 MsgBox(stg, MsgBoxStyle.Critical, stg1)
                             Else
                                 sw = New SW("Setting_Rights")
-                                If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_DOC_ID, CURRENT_FILEIN_WD, odeleteRights) = False Then
+                                If ClassDOC_SEARCH.SET_WD_RIGHTS(CURRENT_WM_OBJECT, CURRENT_DOC_ID, CURRENT_FILEIN_WD, odeleteRights) = False Then
                                     MsgBox("The rights for the new file could not be created! Please check the logfile!" & vbNewLine &
                                            "ADDI will try to give You at least reading rights!", MsgBoxStyle.Exclamation)
                                     DD_Rights.ClassRights.SetRightExplicit(CURRENT_DOC_ID, CURRENT_FILEIN_WD, USER_USERNAME, 1)
@@ -1131,7 +1138,7 @@ Public Class frmWM_IndexFile
             LOGGER.Debug("frmWD_Index_Dokart_Load")
             chkdelete_origin.Checked = False
             chkdelete_origin.Visible = False
-            _wm = New Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, "", "", "", "")
+            _wm = New Windream(LOGCONFIG, False, WMDriveLetter, WMPATH_PREFIX, True, WM_SERVER, WM_USER, WM_USER_PW, WM_DOMAIN)
             Dim HandleType As String
             For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
                 If row.Item("GUID") = CURRENT_FILEID Then