Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler/Test.cls.xml
===================================================================
diff -u -r56065 -r56073
--- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56065)
+++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56073)
@@ -53,12 +53,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
 	Set ..OrderApi = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..ProductTypeApi = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
 	Do ..ZetDataOp()
 ]]></Implementation>
 </Method>
@@ -85,32 +91,42 @@
 	#dim SpaceTowerPRNr As %String = ""
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("PRNr", "is geen Spacetowerproduct. FysStock kan niet bepaald worden.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", "").DanDoeNiks()
+	
 	#dim SpaceTowerFysStockBepaler As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler = ..GeefSpaceTowerFysStockBepaler()
 	
 	#dim SpaceTowerFysStock As %String = SpaceTowerFysStockBepaler.GeefSpaceTowerFysStock(SpaceTowerPRNr, AxConfigId)
-	
-	Do $$$AssertEquals(SpaceTowerFysStock, "0")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: AxConfigId is leeg">
 <Implementation><![CDATA[
-	#dim SpaceTowerPRNr As %String = "SpaceTowerPRNr"
+	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr3
 	#dim AxConfigId As %String = ""
 	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("AxConfigId is leeg, maar is noodzakelijk bij een Spacetowerproduct. FysStock kan niet bepaald worden.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr3).DanReturn($$$True)
+	
 	#dim SpaceTowerFysStockBepaler As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler = ..GeefSpaceTowerFysStockBepaler()
 	
 	#dim SpaceTowerFysStock As %String = SpaceTowerFysStockBepaler.GeefSpaceTowerFysStock(SpaceTowerPRNr, AxConfigId)
-	
-	Do $$$AssertEquals(SpaceTowerFysStock, "0")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: SpaceTowerPRNr is niet leeg en komt niet voor in Global ORD">
+<Method name="Test: SpaceTowerPRNr is niet leeg en wel een Spacetower maar komt niet voor in Global ORD">
 <Implementation><![CDATA[
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr4
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr4).DanReturn($$$True)
+	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", "SpaceTowerPRNr").DanReturn($$$True)
+	
 	#dim SpaceTowerFysStockBepaler As AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler = ..GeefSpaceTowerFysStockBepaler()
 	
 	#dim SpaceTowerFysStock As %String = SpaceTowerFysStockBepaler.GeefSpaceTowerFysStock(SpaceTowerPRNr, AxConfigId)
@@ -124,6 +140,8 @@
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr3
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr3).DanReturn($$$True)
+	
 	#dim OrderLijn As DOM.VKP.Orderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 	Do OrderLijn.IndienMethodCall("GeefAxConfigId").DanReturn(AxConfigId)
 	Do OrderLijn.IndienMethodCall("GeefToeleveringLijnNr").DanReturn("KOM")
@@ -148,6 +166,8 @@
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr3
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr3).DanReturn($$$True)
+	
 	#dim Order As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
 	Do Order.IndienMethodCall("GeefStatus").DanReturn(##class(DOM.VKP.enu.OrderStatus).Open())
 	
@@ -166,6 +186,8 @@
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr3
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr3).DanReturn($$$True)
+	
 	#dim OrderLijn As DOM.VKP.Orderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 	Do OrderLijn.IndienMethodCall("GeefAxConfigId").DanReturn("Andere AxConfigId")
 	
@@ -188,6 +210,8 @@
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr3
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr3).DanReturn($$$True)
+	
 	#dim OrderLijn As DOM.VKP.Orderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 	Do OrderLijn.IndienMethodCall("GeefAxConfigId").DanReturn("AxConfigId")
 	Do OrderLijn.IndienMethodCall("GeefToeleveringLijnNr").DanReturn("ToeleveringLijnNr")
@@ -211,6 +235,8 @@
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr1
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr1).DanReturn($$$True)
+	
 	#dim OrderLijn1 As DOM.VKP.Orderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 	Do OrderLijn1.IndienMethodCall("GeefAxConfigId").DanReturn(AxConfigId)
 	Do OrderLijn1.IndienMethodCall("GeefToeleveringLijnNr").DanReturn("KOM")
@@ -241,6 +267,8 @@
 	#dim SpaceTowerPRNr As %String = ..#SpaceTowerPRNr2
 	#dim AxConfigId As %String = "AxConfigId"
 	
+	Do ..ProductTypeApi.IndienMethodCall("IsSpaceTowerProduct", ..#SpaceTowerPRNr2).DanReturn($$$True)
+	
 	#dim OrderLijn1 As DOM.VKP.Orderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
 	Do OrderLijn1.IndienMethodCall("GeefAxConfigId").DanReturn(AxConfigId)
 	Do OrderLijn1.IndienMethodCall("GeefToeleveringLijnNr").DanReturn("KOM")
@@ -273,7 +301,7 @@
 <Method name="GeefSpaceTowerFysStockBepaler">
 <Private>1</Private>
 <ReturnType>AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler).%New(..OrderApi)
+<Implementation><![CDATA[	Quit ##class(AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator.SpaceTowerFysStockBepaler).%New(..OrderApi, ..ProductTypeApi)
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml
===================================================================
diff -u -r56059 -r56073
--- AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml	(.../SpaceTowerFysStockBepaler.cls.xml)	(revision 56059)
+++ AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml	(.../SpaceTowerFysStockBepaler.cls.xml)	(revision 56073)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
+<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.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -30,19 +36,28 @@
 	#dim OrderLijn As DOM.VKP.Orderlijn
 	#dim ORDNrNode As %String = ""
 	#dim OLUNrNode As %String = ""
+	#dim Exception As TECH.Exceptions.Exception
 	
-	If (($$$HasLength(SpaceTowerPRNr)) && ($$$HasLength(AxConfigId))) {
-		For { Set ORDNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode)) Quit:ORDNrNode=""
-			Set Order = ..OrderApi.GeefOrder(ORDNrNode)
-			If (Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Gesloten()) {
-				For { Set OLUNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode,OLUNrNode)) Quit:OLUNrNode=""
-					Set OrderLijn = Order.GeefOrderLijn(OLUNrNode)
-					If ((OrderLijn.GeefAxConfigId() = AxConfigId) && (OrderLijn.GeefToeleveringLijnNr()="KOM")) {
-						Set SpaceTowerFysStock = SpaceTowerFysStock + OrderLijn.GeefAantal()
+	If (..ProductTypeApi.IsSpaceTowerProduct(SpaceTowerPRNr)) {
+		If ($$$HasLength(AxConfigId)) {
+			For { Set ORDNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode)) Quit:ORDNrNode=""
+				Set Order = ..OrderApi.GeefOrder(ORDNrNode)
+				If (Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Gesloten()) {
+					For { Set OLUNrNode = $Order(^ORD("IP",SpaceTowerPRNr,ORDNrNode,OLUNrNode)) Quit:OLUNrNode=""
+						Set OrderLijn = Order.GeefOrderLijn(OLUNrNode)
+						If ((OrderLijn.GeefAxConfigId() = AxConfigId) && (OrderLijn.GeefToeleveringLijnNr()="KOM")) {
+							Set SpaceTowerFysStock = SpaceTowerFysStock + OrderLijn.GeefAantal()
+						}
 					}
 				}
 			}
+		} Else {
+			Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("AxConfigId is leeg, maar is noodzakelijk bij een Spacetowerproduct. FysStock kan niet bepaald worden.")
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
 		}
+	} Else {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("PRNr '" _SpaceTowerPRNr _"' is geen Spacetowerproduct. FysStock kan niet bepaald worden.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
 	Quit SpaceTowerFysStock
Index: vhTest/Mock/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml
===================================================================
diff -u -r56009 -r56073
--- vhTest/Mock/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml	(.../SpaceTowerFysStockBepaler.cls.xml)	(revision 56009)
+++ vhTest/Mock/AXimpl/Dynamics/InventoryOut/Converter/AxInventSyncCreator/SpaceTowerFysStockBepaler.cls.xml	(.../SpaceTowerFysStockBepaler.cls.xml)	(revision 56073)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>