Lock

StorageMoveEvents
2017-04-25 10:13:21 +02:00
parent 103f4650e1
commit 2cf199449f
3 changed files with 6 additions and 8 deletions
@@ -6,6 +6,7 @@ Imports DevExpress.ExpressApp.Model

 Public Module LockingModule
    Public Function LockObject(_Paramuow As UnitOfWork, _ParamObjectType As Type, _ParamObjectKey As String, _ParamUser As User) As Boolean
+        UnLockObject(_Paramuow, _ParamObjectType, _ParamObjectKey, _ParamUser)
        Dim _IsLocked As Boolean = False
        Dim _TableName As String
        Dim _LockingObject As LockingObject