jj: fix locking of files when validating, use lockFor with WMObjectEditModeIndexEdit flag

app/DD_PM_WINDREAM/ClassPMWindream.vb

@@ -27,6 +27,8 @@ Public Class ClassPMWindream
     Const WMObjectVariableValueTypeVector = &H1000
     Const WMObjectVariableValueTypeFulltext = &H2000
     Const WMObjectVariableValueTypeDefaultValue = &H4000
+
+    Const WMObjectEditModeIndexEdit = &H3DA
 #End Region
 
 #Region "+++++ Variablen +++++"
@@ -112,7 +114,12 @@ Public Class ClassPMWindream
         Try
             If Indizes IsNot Nothing And aValues IsNot Nothing Then
                 If Not oDocument.aLocked Then
-                    oDocument.lock()
+
+                    ' 02.07. Änderung der Lock Methode, um eine Validierung auch zuzulassen, wenn das Recht "Datei ändern"
+                    ' nicht gesetzt ist
+                    'oDocument.lock()
+                    oDocument.LockFor(WMObjectEditModeIndexEdit)
+
                     Dim i As Integer = 0
                     Dim indexname As String
                     If aValues.Length = 1 And aValues(0) = "" Then