Index: WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml
===================================================================
diff -u -r70085 -r70089
--- WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml	(.../ProductUpdater.cls.xml)	(revision 70085)
+++ WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml	(.../ProductUpdater.cls.xml)	(revision 70089)
@@ -123,7 +123,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim LockBericht as %String
-	Lock +(^KPR(ProductId)#"S"):1 Else  Do 
+	Lock +(^KPR(ProductId)#"S"):5 Else  Do 
 	. Set LockBericht = "Er zit een exclusive lock op "_$Name(^KPR(ProductId))_". Product wordt NIET geüpdate. " _$$$CRLF
 	. Set LockBericht = LockBericht _$$GebruikerInfoJob^vhLock($$LOCKJOB^vhLock($Name(^KPR(ProductId))))
 	. Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
@@ -147,7 +147,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim LockBericht as %String
-	Lock +^PRBS("BS",+ProductId):1 Else  Do 
+	Lock +^PRBS("BS",+ProductId):5 Else  Do 
 	. Set LockBericht = "De bouwsteen voor ProductId '" _ ProductId _"' is gelocked. Het product kan niet geüpdatet worden. " _$$$CRLF
 	. Set LockBericht = LockBericht _$$GebruikerInfoJob^vhLock($$LOCKJOB^vhLock($Name(^PRBS("BS",+ProductId))))
 	. Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))