MS

app/DD-Record-Organizer/ClassHelper.vb

@@ -159,10 +159,8 @@ Public Class ClassHelper
         Return System.Text.RegularExpressions.Regex.Replace(
           sFilename, "[?*^""<>|]", REPLACEChar)
     End Function
-    Public Shared Sub File_open(RESULT_DOC_PATH As Object, DocID As String)
+    Public Shared Function File_open(RESULT_DOC_PATH As Object, DocID As String)
         Try
-
-
             RESULT_DOC_PATH = FORMAT_WM_PATH(RESULT_DOC_PATH)
             CURRENT_OFFICE_FILE_CHANGED = False
             If RESULT_DOC_PATH <> Nothing Then
@@ -185,15 +183,18 @@ Public Class ClassHelper
                             OPEN_DOCVIEW(RESULT_DOC_PATH, DocID)
                     End Select
                 End If
+                Return True
             Else
                 MSGBOX_Handler("ERROR", "", "Sorry, but the docpath for doc-id: " & DocID & " is nothing!")
+                Return False
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
             ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
+            Return False
         End Try
-    End Sub
+    End Function
     Public Shared Sub Open_Folder(RESULT_DOC_PATH As Object, DocID As String)
         Try
             If RESULT_DOC_PATH <> Nothing Then

app/DD-Record-Organizer/ClassRightManagement.vb

@@ -2,14 +2,14 @@
     Public Shared Sub Check_Set_Rights(RECORD_ID As Integer, ENTITY_ID As Integer)
         Try
             Dim sw = New SW("Check_Set_Rights")
-            RIGHT_EDIT_R = True
+            RIGHT_EDIT_R = False
-            RIGHT_ADD_R = True
+            RIGHT_ADD_R = False
-            RIGHT_DELETE_R = True
+            RIGHT_DELETE_R = False
             RIGHT_RECORD_AND_FILE_READ_ONLY = False
 
-            RIGHT_ADD_DOC = True
+            RIGHT_ADD_DOC = False
             RIGHT_VIEW_DOC = True
-            RIGHT_DELETE_DOC = True
+            RIGHT_DELETE_DOC = False
             RIGHT_READ_ONLY_DOC = False
             ' Wenn Rechte pro Record defineirt wurden!!!
             If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then

app/DD-Record-Organizer/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.0.3")>
+<Assembly: AssemblyVersion("2.5.0.4")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -4934,7 +4934,6 @@ Public Class frmConstructor_Main
             Load_Level1()
         End If
         sw.Done()
-        TimerFileHandle.Enabled = True
         If LogErrorsOnly = False Then ClassLogger.Add("", False)
 
         FORM_SHOWN = True
@@ -6887,8 +6886,11 @@ Public Class frmConstructor_Main
                 Exit Sub
             End If
             For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
-                ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
+                If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) = True Then
-                If CURRENT_OFFICE_FILE_CHANGED = True Then RUN_WDSEARCH_GRID()
+                    TimerFileHandle.Enabled = True
+                End If
+
+
             Next
         Else
             If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then