Index: DOM/VKP/Order/impl/OrderInhoudService.cls.xml
===================================================================
diff -u
--- DOM/VKP/Order/impl/OrderInhoudService.cls.xml	(revision 0)
+++ DOM/VKP/Order/impl/OrderInhoudService.cls.xml	(revision 33685)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Order.impl.OrderInhoudService">
+<Super>TECH.RegisteredObject,DOM.VKP.Order.OrderInhoudService</Super>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI="",ProductTypeAPI:DOM.PM.ProductTypeAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BevatSpaceTowerProduct">
+<FormalSpec>OrderID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatSpaceTower As %Boolean = $$$False
+	
+	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
+	#dim ProductLijnIterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
+	While (ProductLijnIterator.HasNext()) && ($$$Not(BevatSpaceTower)) {
+		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnIterator.Next()
+		Set BevatSpaceTower = ..ProductTypeAPI.IsSpaceTowerProduct(ProductLijn.GeefProductID())
+	}
+	
+	Quit BevatSpaceTower
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/VKP/Order/impl/OrderInhoudService/BevatSpaceTowerProduct/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Order/impl/OrderInhoudService/BevatSpaceTowerProduct/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Order/impl/OrderInhoudService/BevatSpaceTowerProduct/Test.cls.xml	(revision 33685)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Order.impl.OrderInhoudService.BevatSpaceTowerProduct.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>199999</Default>
+</Parameter>
+
+<Property name="OrderMock">
+<Type>vhTest.Mock.DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPIMock">
+<Type>vhTest.Mock.DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPIMock">
+<Type>vhTest.Mock.DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Set ..OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do ..OrderAPIMock.VerwachtMethodCall("GeefOrder",..#OrderID).DanReturn(..OrderMock)
+	
+	Set ..ProductTypeAPIMock = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
+	Do ..ProductTypeAPIMock.IndienMethodCall("IsSpaceTowerProduct","UT_ProductA").DanReturn($$$False)
+	Do ..ProductTypeAPIMock.IndienMethodCall("IsSpaceTowerProduct","UT_ProductB_IsSPT").DanReturn($$$True)
+]]></Implementation>
+</Method>
+
+<Method name="TestOrderZonderLijnen">
+<Implementation><![CDATA[
+	Do ..OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(..GeefProductOrderLijnIteratorZonderLijnen())
+	Do ..AssertBevatSpaceTowerProducten($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="TestZonderSpaceTowerProducten">
+<Implementation><![CDATA[
+	Do ..OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(..GeefProductOrderLijnIterator2())
+	Do ..AssertBevatSpaceTowerProducten($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="TestMetSpaceTowerProduct">
+<Implementation><![CDATA[
+	Do ..OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(..GeefProductOrderLijnIterator3())
+	Do ..AssertBevatSpaceTowerProducten($$$True)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBevatSpaceTowerProducten">
+<FormalSpec>VerwachtResultaat:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OrderInhoudService = ##class(DOM.VKP.Order.impl.OrderInhoudService).%New(..OrderAPIMock,..ProductTypeAPIMock)
+	Do $$$AssertEquals(OrderInhoudService.BevatSpaceTowerProduct(..#OrderID),VerwachtResultaat)
+	
+	Do ..OrderAPIMock.Verifieer()
+	Do ..OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnIteratorZonderLijnen">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	Quit ##class(TECH.ListIterator).%New(ProductOrderLijnen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnIterator2">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("UT_ProductA"))
+	
+	Quit ##class(TECH.ListIterator).%New(ProductOrderLijnen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnIterator3">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("UT_ProductA"))
+	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("UT_ProductB_IsSPT"))
+	
+	Quit ##class(TECH.ListIterator).%New(ProductOrderLijnen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnMock">
+<FormalSpec>ProductID:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnMock As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+	Do ProductOrderLijnMock.IndienMethodCall("GeefProductID").DanReturn(ProductID)
+	Quit ProductOrderLijnMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>