Index: BL/Prod/sub/pxVoorraadIdentificatieDocs.cls.xml
===================================================================
diff -u -r29059 -r55179
--- BL/Prod/sub/pxVoorraadIdentificatieDocs.cls.xml	(.../pxVoorraadIdentificatieDocs.cls.xml)	(revision 29059)
+++ BL/Prod/sub/pxVoorraadIdentificatieDocs.cls.xml	(.../pxVoorraadIdentificatieDocs.cls.xml)	(revision 55179)
@@ -7,7 +7,7 @@
 Basis proxy-object <DOCS> voor de BL.Prod.sub.pxVoorraadTelling klasse ]]></Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
 <Inheritance>right</Inheritance>
 
 <Parameter name="XMLNAME">
@@ -72,8 +72,8 @@
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set Product=##class(Prod.Product).%OpenId(PRNr)
-	Set ProductPrijs=##class(Prod.ProductPrijs).%OpenId(PRNr)
+	Set Product=##class(Prod.Product).%OpenId(PRNr,$$$ConcurrenyNoLocks)
+	Set ProductPrijs=##class(Prod.ProductPrijs).%OpenId(PRNr,$$$ConcurrenyNoLocks)
 	Set PalletAantal=Product.PalletAantal
 	Set GrootVerpakking=ProductPrijs.GrootVerpakking
 	Set AantalStuks=$S(GrootVerpakking>PalletAantal:GrootVerpakking, 1:PalletAantal)
Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml
===================================================================
diff -u -r41845 -r55179
--- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 41845)
+++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 55179)
@@ -4,9 +4,8 @@
 
 <Class name="BL.Prod.sub.pxVoorraadIdentificatie">
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
 <Inheritance>right</Inheritance>
 
 <Parameter name="XMLNAME">
@@ -105,8 +104,8 @@
 	
 	Set ..PrintDatum=$$EXTDATE^vhLib.DataTypes(,"DK")
 	Set ..AantalStuks=AantalStuks
-	Set Product=##class(Prod.Product).%OpenId(PRNr)
-	Set ProductPrijs=##class(Prod.ProductPrijs).%OpenId(PRNr)
+	Set Product=##class(Prod.Product).%OpenId(PRNr,$$$ConcurrenyNoLocks)
+	Set ProductPrijs=##class(Prod.ProductPrijs).%OpenId(PRNr,$$$ConcurrenyNoLocks)
 	Set ..PRNr=PRNr
 	Set ..KortTekst=Product.KortTekst
 	Set ..IdentNummer=Product.IdentNummer