Index: vhTest/Mock/DOM/PM/ProductTypeAPI.cls.xml
===================================================================
diff -u -r29059 -r33162
--- vhTest/Mock/DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 33162)
@@ -158,6 +158,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsSpaceTowerProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsSpaceTowerProduct",ProductID)
+]]></Implementation>
+</Method>
+
 <Method name="IsTAORCubicsKindProduct">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/DOM/PM/TestProductBeheerAPI.cls.xml
===================================================================
diff -u -r33029 -r33162
--- vhUnitTest/DOM/PM/TestProductBeheerAPI.cls.xml	(.../TestProductBeheerAPI.cls.xml)	(revision 33029)
+++ vhUnitTest/DOM/PM/TestProductBeheerAPI.cls.xml	(.../TestProductBeheerAPI.cls.xml)	(revision 33162)
@@ -68,6 +68,28 @@
 	Do $$$AssertFalse(ProductTypeAPI.IsTAORIndelingProduct(1031),"Is géén TAOR indeling product")
 ]]></Implementation>
 </Method>
+
+<Method name="TestIsSpaceTowerProduct">
+<Implementation><![CDATA[
+	#define SpaceTowerProductID   1352575
+
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	Do $$$AssertTrue(ProductTypeAPI.IsSpaceTowerProduct($$$SpaceTowerProductID),"Is een SpaceTower product")
+	
+	Do $$$AssertFalse(ProductTypeAPI.IsSpaceTowerProduct(1031),"Is geen SpaceTower product")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefProductTypeVoorSpaceTowerProduct">
+<Implementation><![CDATA[
+	#define SpaceTowerProductID   1352575
+
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	Do $$$AssertEquals(ProductTypeAPI.GeefProductType($$$SpaceTowerProductID),##class(DOM.PM.enu.ProductType).Onbepaald())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r31317 -r33162
--- DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 31317)
+++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml	(.../ProductTypeAPIimpl.cls.xml)	(revision 33162)
@@ -188,6 +188,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsSpaceTowerProduct">
+<Description>
+Geeft TRUE voor het SpaceTower moeder-product; Voor de kind-producten (zijnde LBX of andere lades) geeft deze False terug. </Description>
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..ControleerOfProductBestaat(ProductID)
+	#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+	#dim ClassificatieKnoop As DOM.PM.ClassificatieKnoop = AdministratiefProduct.GeefClassificatieKnoop()
+	#dim IsSpaceTowerProduct As %Boolean = (ClassificatieKnoop.GeefID() = ##class(DOM.PM.enu.Classificatie).SpaceTower())
+	Quit IsSpaceTowerProduct
+]]></Implementation>
+</Method>
+
 <Method name="IsClassificatieKnoopTAORCubicsKindProduct">
 <FormalSpec>ClassificatieKnoop:DOM.PM.ClassificatieKnoop</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/ProductTypeAPI.cls.xml
===================================================================
diff -u -r29059 -r33162
--- DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 29059)
+++ DOM/PM/ProductTypeAPI.cls.xml	(.../ProductTypeAPI.cls.xml)	(revision 33162)
@@ -58,6 +58,12 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="IsSpaceTowerProduct">
+<Abstract>1</Abstract>
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Method name="IsAntislipmatProduct">
 <Abstract>1</Abstract>
 <FormalSpec>ProductID:%String</FormalSpec>