Index: WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml
===================================================================
diff -u -r70020 -r70085
--- WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml	(.../ProductUpdater.cls.xml)	(revision 70020)
+++ WSimpl/AX/CalculatedProduct/ProductUpdater.cls.xml	(.../ProductUpdater.cls.xml)	(revision 70085)
@@ -122,12 +122,13 @@
 <FormalSpec>ProductId:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Lock +(^KPR(ProductId)#"S"):5
-	Do ..LockProductBouwsteen(ProductId)
+	#dim LockBericht as %String
+	Lock +(^KPR(ProductId)#"S"):1 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))
 	
-	If $Test = 0  {
-		Do ##Class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalUsageException).%New("Er zit een exclusive lock op "_$Name(^KPR(ProductId))_". Product wordt NIET geüpdate."))
-	}
+	Do ..LockProductBouwsteen(ProductId)
 ]]></Implementation>
 </Method>
 
@@ -136,6 +137,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ..UnlockProductBouwsteen(ProductId)
+	
 	Lock -(^KPR(ProductId)#"S")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml
===================================================================
diff -u -r70020 -r70085
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 70020)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 70085)
@@ -372,9 +372,6 @@
 	
 	#dim ProductVolgensAxAttribuutBepaler As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler = ..GeefProductVolgensAxAttribuutBepaler()
 	#dim ProductVolgensAxAttribuut As DOM.PM.Product = ProductVolgensAxAttribuutBepaler.GeefProductVolgensAttrVsAdminProdNr(Request)
-	
-	Do $$$AssertEquals(ProductVolgensAxAttribuut.GeefPRNr(), ..#RandomNieuwProductId)
-	Do ..ProductService.Verifieer()
 ]]></Implementation>
 </Method>