Index: AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml
===================================================================
diff -u -r47976 -r48295
--- AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 47976)
+++ AXimpl/Admin/DOM/PM/BouwsteenConverter.cls.xml	(.../BouwsteenConverter.cls.xml)	(revision 48295)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AantalBeperker">
+<Type>AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",AantalBeperker:AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..AantalBeperker = $$$Inject(AantalBeperker, ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -59,10 +65,9 @@
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim Aantal As %Decimal = ProductBouwsteen.Aantal
-	#dim AantalBeperker As AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker = ##class(AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker).%New()
 	
-	If (AantalBeperker.IsBeperkt(ProductBouwsteen.KindProduct.IdentNummer)) {
-		Set Aantal = AantalBeperker.GeefAantal(ProductBouwsteen.KindProduct.IdentNummer)
+	If (..AantalBeperker.IsBeperkt(ProductBouwsteen.KindProduct.IdentNummer)) {
+		Set Aantal = ..AantalBeperker.GeefAantal(ProductBouwsteen.KindProduct.IdentNummer)
 	} ElseIf (ProductBouwsteen.%Extends("DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim")) {
 		#dim BouwsteenHalfFabr1Dim As DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim = ProductBouwsteen
 		#dim HalffabricaatProduct As DOM.PM.Product = ..ProductApi.GeefProduct(BouwsteenHalfFabr1Dim.KindProduct.ProductNr)
Index: vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml	(revision 48295)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker</Super>
+
+<Method name="GeefAantal">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="IsBeperkt">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
Index: vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml	(revision 48295)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefAantal">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantal",IdentNummer)
+]]></Implementation>
+</Method>
+
+<Method name="IsBeperkt">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsBeperkt",IdentNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml
===================================================================
diff -u -r47976 -r48295
--- AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml	(.../AantalBeperker.cls.xml)	(revision 47976)
+++ AXimpl/Admin/DOM/PM/BouwsteenConverter/AantalBeperker.cls.xml	(.../AantalBeperker.cls.xml)	(revision 48295)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Admin.DOM.PM.BouwsteenConverter.AantalBeperker">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="AantallenPerIdentNummer">
 <Type>TECH.KeyValue.UniqueList</Type>