Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r31121 -r35039
--- vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 31121)
+++ vhTest/Mock/DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 35039)
@@ -220,6 +220,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMoederProductenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMoederProductenIterator")
+]]></Implementation>
+</Method>
+
 <Method name="GeefMultipleGroepen">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMultipleGroepen")
Index: DOM/PM/SamengesteldProduct.cls.xml
===================================================================
diff -u -r29059 -r35039
--- DOM/PM/SamengesteldProduct.cls.xml	(.../SamengesteldProduct.cls.xml)	(revision 29059)
+++ DOM/PM/SamengesteldProduct.cls.xml	(.../SamengesteldProduct.cls.xml)	(revision 35039)
@@ -4,7 +4,7 @@
 <Abstract>1</Abstract>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.common.Product</Super>
+<Super>DOM.common.Product,TECH.Mockable</Super>
 
 <Method name="GeefBouwsteen">
 <Abstract>1</Abstract>
Index: vhUnitTest/DOM/PM/TestProductBeheerAPI.cls.xml
===================================================================
diff -u -r33162 -r35039
--- vhUnitTest/DOM/PM/TestProductBeheerAPI.cls.xml	(.../TestProductBeheerAPI.cls.xml)	(revision 33162)
+++ vhUnitTest/DOM/PM/TestProductBeheerAPI.cls.xml	(.../TestProductBeheerAPI.cls.xml)	(revision 35039)
@@ -90,6 +90,60 @@
 	Do $$$AssertEquals(ProductTypeAPI.GeefProductType($$$SpaceTowerProductID),##class(DOM.PM.enu.ProductType).Onbepaald())
 ]]></Implementation>
 </Method>
+
+<Method name="Test product zonder moeders is geen lade van Space Tower">
+<Implementation><![CDATA[
+	#dim ProductMockZonderMoeders As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductMockZonderMoeders.IndienMethodCall("GeefMoederProductenIterator").DanReturn( ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New()) )
+	
+	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.IndienMethodCall("GeefProduct",100).DanReturn(ProductMockZonderMoeders)
+	
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	Do $$$AssertFalse(ProductTypeAPI.IsLadeVanSpaceTowerProduct(100))
+]]></Implementation>
+</Method>
+
+<Method name="Test product met niet-spacetower-moeder is geen lade van Space Tower">
+<Implementation><![CDATA[
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ..SetupProductEnMoederEnGeefProductAPIUnderTest()
+	
+	#dim ProductTypeAPIMock As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ProductTypeAPIMock.IndienMethodCall("IsSpaceTowerProduct",101).DanReturn(0)
+	
+	Do $$$AssertFalse(ProductTypeAPI.IsLadeVanSpaceTowerProduct(100))
+]]></Implementation>
+</Method>
+
+<Method name="Test product met wél-spacetower-moeder is wél lade van Space Tower">
+<Implementation><![CDATA[
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ..SetupProductEnMoederEnGeefProductAPIUnderTest()
+	
+	#dim ProductTypeAPIMock As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ProductTypeAPIMock.IndienMethodCall("IsSpaceTowerProduct",101).DanReturn(1)
+	
+	Do $$$AssertTrue(ProductTypeAPI.IsLadeVanSpaceTowerProduct(100))
+]]></Implementation>
+</Method>
+
+<Method name="SetupProductEnMoederEnGeefProductAPIUnderTest">
+<Implementation><![CDATA[
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	#dim NietSpaceTowerMoeder As vhTest.Mock.DOM.PM.SamengesteldProduct = ##class(vhTest.Mock.DOM.PM.SamengesteldProduct).%New()
+	Do NietSpaceTowerMoeder.IndienMethodCall("GeefID").DanReturn( 101 )
+	
+	#dim ProductMock As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductMock.IndienMethodCall("GeefMoederProductenIterator").DanReturn( ##class(TECH.ListUtils).CreateIteratorOfObjects(NietSpaceTowerMoeder) )
+	
+	#dim ProductAPIMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductAPIMock.IndienMethodCall("GeefProduct",100).DanReturn(ProductMock)
+	Do ProductAPIMock.IndienMethodCall("BestaatProduct",101).DanReturn(1)
+	
+	Quit ProductTypeAPI
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/SamengesteldProduct.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/SamengesteldProduct.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/SamengesteldProduct.cls.xml	(revision 35039)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.SamengesteldProduct">
+<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
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.SamengesteldProduct,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefBouwsteen">
+<FormalSpec>BouwsteenID:%String</FormalSpec>
+<ReturnType>DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBouwsteen",BouwsteenID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwsteenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBouwsteenIterator")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKindBouwsteenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKindBouwsteenIterator")
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHalffabrikaten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftHalffabrikaten")
+]]></Implementation>
+</Method>
+
+<Method name="HeeftKinderen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("HeeftKinderen")
+]]></Implementation>
+</Method>
+
+<Method name="IsStockOverKinderen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsStockOverKinderen")
+]]></Implementation>
+</Method>
+
+<Method name="MaakKindBouwsteen">
+<FormalSpec>Product:DOM.PM.Product,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.PM.KindBouwsteen</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakKindBouwsteen",Product,Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Save")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBouwsteen">
+<FormalSpec>Bouwsteen:DOM.PM.Bouwsteen</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwijderBouwsteen",Bouwsteen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>DOM.common.ProductID</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r31116 -r35039
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 31116)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 35039)
@@ -220,6 +220,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMoederProductenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.MoederIterator).%New(..ProductNummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSchaduwVersie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
Index: DOM/PM/ProductTypeAPI.cls.xml
===================================================================
diff -u -r33162 -r35039
--- DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 33162)
+++ DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 35039)
@@ -64,6 +64,12 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="IsLadeVanSpaceTowerProduct">
+<Abstract>1</Abstract>
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Method name="IsAntislipmatProduct">
 <Abstract>1</Abstract>
 <FormalSpec>ProductID:%String</FormalSpec>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r31116 -r35039
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 31116)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 35039)
@@ -92,6 +92,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMoederProductenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefMoederProductenIterator()
+]]></Implementation>
+</Method>
+
 <Method name="GeefSchaduwVersie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Product.GeefSchaduwVersie()
Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r33162 -r35039
--- DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 33162)
+++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 35039)
@@ -202,6 +202,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsLadeVanSpaceTowerProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 #dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
+	 #dim MoederProducten As TECH.Iterator = Product.GeefMoederProductenIterator()
+	 Quit:$$$Not(MoederProducten.HasNext()) 0
+	 Quit ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsSpaceTowerProduct(MoederProducten.Next().GeefID())
+]]></Implementation>
+</Method>
+
 <Method name="IsClassificatieKnoopTAORCubicsKindProduct">
 <FormalSpec>ClassificatieKnoop:DOM.PM.ClassificatieKnoop</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r31116 -r35039
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 31116)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 35039)
@@ -61,6 +61,11 @@
 <ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
+<Method name="GeefMoederProductenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefKostSchaduwBouwstenenIt">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Mock/DOM/PM/ProductTypeAPI.cls.xml
===================================================================
diff -u -r33162 -r35039
--- vhTest/Mock/DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 33162)
+++ vhTest/Mock/DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 35039)
@@ -116,6 +116,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsLadeVanSpaceTowerProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsLadeVanSpaceTowerProduct",ProductID)
+]]></Implementation>
+</Method>
+
 <Method name="IsLanggoedProduct">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhTest/Fake/DOM/PM/SamengesteldProduct.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/SamengesteldProduct.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/SamengesteldProduct.cls.xml	(revision 35039)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.SamengesteldProduct">
+<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>DOM.PM.SamengesteldProduct</Super>
+
+<Method name="GeefBouwsteen">
+<FormalSpec>BouwsteenID:%String</FormalSpec>
+<ReturnType>DOM.PM.Bouwsteen</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefBouwsteenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefKindBouwsteenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHalffabrikaten">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="HeeftKinderen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="IsStockOverKinderen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakKindBouwsteen">
+<FormalSpec>Product:DOM.PM.Product,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.PM.KindBouwsteen</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBouwsteen">
+<FormalSpec>Bouwsteen:DOM.PM.Bouwsteen</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>