AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Jenne 2018-07-02 16:30:14 +02:00
parent 40d08d2084
commit b1680604f9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -27,6 +27,8 @@ Public Class ClassPMWindream
Const WMObjectVariableValueTypeVector = &H1000 Const WMObjectVariableValueTypeVector = &H1000
Const WMObjectVariableValueTypeFulltext = &H2000 Const WMObjectVariableValueTypeFulltext = &H2000
Const WMObjectVariableValueTypeDefaultValue = &H4000 Const WMObjectVariableValueTypeDefaultValue = &H4000
Const WMObjectEditModeIndexEdit = &H3DA
#End Region #End Region
#Region "+++++ Variablen +++++" #Region "+++++ Variablen +++++"
@ -112,7 +114,12 @@ Public Class ClassPMWindream
Try Try
If Indizes IsNot Nothing And aValues IsNot Nothing Then If Indizes IsNot Nothing And aValues IsNot Nothing Then
If Not oDocument.aLocked 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 i As Integer = 0
Dim indexname As String Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then If aValues.Length = 1 And aValues(0) = "" Then