MS4

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -760,6 +760,7 @@ Public Class frmConstructor_Main
                 RecordKopierenToolStripMenuItem.Enabled = True
                 PropertiesToolStripMenuItem.Enabled = True
                 tslblLocked.Visible = False
+                tslblFileslocked.Visible = False
                 TabFollowUp.PageEnabled = True
 
                 TabWindream.PageEnabled = True
@@ -846,6 +847,7 @@ Public Class frmConstructor_Main
                         End Try
                         If RIGHT_WINDREAM_FORBIDDEN = True Then
                             ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
+                            tslblFileslocked.Visible = True
                             TabWindream.PageEnabled = False
                             WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
                         End If
@@ -1286,6 +1288,7 @@ Public Class frmConstructor_Main
                 tsslblRecord.Text = "Adding record ......"
                 RIGHT_ONLY_READ = False
                 tslblLocked.Visible = False
+                tslblFileslocked.Visible = False
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in Insert: " & ex.Message)
@@ -3913,7 +3916,7 @@ Public Class frmConstructor_Main
         End If
     End Sub
     Sub Drag_Drop(e As DragEventArgs)
-        If act_FormViewID <> 0 And RIGHT_ONLY_READ = False And RIGHT_WINDREAM_FORBIDDEN = False Then
+        If act_FormViewID <> 0 And RIGHT_WINDREAM_FORBIDDEN = False Then
             Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID
             If ClassDatabase.Execute_Scalar(sql, True) = 0 Then
                 MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
@@ -3969,9 +3972,9 @@ Public Class frmConstructor_Main
 
             End If
         Else
-            If RIGHT_ONLY_READ = True Then
-                ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False)
-            End If
+            'If RIGHT_ONLY_READ = True Then
+            '    ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False)
+            'End If
             If RIGHT_WINDREAM_FORBIDDEN = True Then
                 ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
             End If
@@ -4929,4 +4932,14 @@ Public Class frmConstructor_Main
     Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
         Drag_Drop(e)
     End Sub
+
+    Private Sub tslblFileslocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblFileslocked.VisibleChanged
+        If tslblFileslocked.Visible = True Then
+            Dim msg = "Kein Dateizugriff"
+            If USER_LANGUAGE <> "de-DE" Then
+                msg = "File-access not granted"
+            End If
+            tslblFileslocked.Text = msg
+        End If
+    End Sub
 End Class