Index: vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml
===================================================================
diff -u -r47151 -r48295
--- vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47151)
+++ vhUnitTest/AXimpl/Admin/DOM/PM/BouwsteenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48295)
@@ -12,7 +12,10 @@
 <Implementation><![CDATA[
 	Do ##super()
 	
-	Set ..BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New()
+	#dim AantalBeperkerStub As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New()
+	Do AantalBeperkerStub.IndienMethodCall("IsBeperkt", $$$ElkeWaarde).DanReturn($$$False)
+	
+	Set ..BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New("", AantalBeperkerStub)
 ]]></Implementation>
 </Method>
 
@@ -43,7 +46,7 @@
 <Method name="Test: Bouwstenen worden altijd meegerekend voor voorraad indien geen BouwsteenHalfFabr">
 <Implementation><![CDATA[
 	#dim BouwsteenKind As DOM.PM.Bouwstenen.Bouwsteen = ##class(DOM.PM.Bouwstenen.BouwsteenKind).%New()
-
+	
 	Do $$$AssertTrue(..BouwsteenConverter.Convert(BouwsteenKind, "").IsMeeTeRekenenVoorVoorraad)
 ]]></Implementation>
 </Method>
@@ -66,7 +69,7 @@
 	
 	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefProductBouwsteenDummy()
 	Set ProductBouwsteenDummy.Aantal = RandomAantal
-	
+
 	Do $$$AssertEquals(..BouwsteenConverter.Convert(ProductBouwsteenDummy, "").Aantal, RandomAantal)
 ]]></Implementation>
 </Method>
@@ -85,14 +88,31 @@
 	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApiStub.IndienMethodCall("GeefProduct", "").DanReturn(ProductStub)
 	
-	Set ..BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub)
+	#dim AantalBeperkerStub As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New()
+	Do AantalBeperkerStub.IndienMethodCall("IsBeperkt", BewerkteProductBouwsteen.KindProduct.IdentNummer).DanReturn($$$False)
 	
+	#dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New(ProductApiStub, AantalBeperkerStub)	
 	#dim VerwachtAantal As %Decimal = RandomDimensieMetUitval / RandomWerkvloerGrootteNetto
 	
-	Do $$$AssertEquals(..BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").Aantal, VerwachtAantal)
+	Do $$$AssertEquals(BouwsteenConverter.Convert(BewerkteProductBouwsteen, "").Aantal, VerwachtAantal)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Aantal wordt bepaald door AantalBeperker indien product gedefinieerd in AantalBeperker">
+<Implementation><![CDATA[
+	#dim RandomAantal As %String = "RandomAantal"
+	#dim ProductBouwsteenDummy As DOM.PM.Bouwstenen.Bouwsteen = ..GeefProductBouwsteenDummy()	
+	
+	#dim AantalBeperkerStub As vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker = ##class(vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New()
+	Do AantalBeperkerStub.IndienMethodCall("IsBeperkt", ProductBouwsteenDummy.KindProduct.IdentNummer).DanReturn($$$True)
+	Do AantalBeperkerStub.IndienMethodCall("GeefAantal", ProductBouwsteenDummy.KindProduct.IdentNummer).DanReturn(RandomAantal)
+	
+	#dim BouwsteenConverter As AXimpl.Admin.DOM.PM.BouwsteenConverter = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter).%New("", AantalBeperkerStub)
+	
+	Do $$$AssertEquals(BouwsteenConverter.Convert(ProductBouwsteenDummy, "").Aantal, RandomAantal)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductBouwsteenDummy">
 <Private>1</Private>
 <ReturnType>DOM.PM.Bouwstenen.Bouwsteen</ReturnType>