From b1680604f91e1e40c66ef879dfcd84d9e985027d Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@didalog.de>
Date: Mon, 2 Jul 2018 16:30:14 +0200
Subject: [PATCH] jj: fix locking of files when validating, use lockFor with
 WMObjectEditModeIndexEdit flag

---
 app/DD_PM_WINDREAM/ClassPMWindream.vb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb
index d0c1c8b..a2a4bdb 100644
--- a/app/DD_PM_WINDREAM/ClassPMWindream.vb
+++ b/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