Index: vhUnitTest/AXimpl/Controle/Order/AdminOrderLijnIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Controle/Order/AdminOrderLijnIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Controle/Order/AdminOrderLijnIterator/Test.cls.xml	(revision 42994)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Controle.Order.AdminOrderLijnIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Er zijn geen orders">
+<Implementation><![CDATA[
+	#dim OrderApi As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApi.IndienMethodCall("GeefOrderIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()))
+	
+	#dim AdminOrderLijnIterator As AXimpl.Controle.Order.AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.AdminOrderLijnIterator).%New(OrderApi)
+	
+	Do $$$AssertFalse(AdminOrderLijnIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is enkel een order zonder lijnen">
+<Implementation><![CDATA[
+	#dim OrderApi As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	
+	Set Orders = ##class(%ListOfObjects).%New()
+	Do Orders.Insert(##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding())
+	
+	Do OrderApi.IndienMethodCall("GeefOrderIterator").DanReturn(##class(TECH.ListIterator).%New(Orders))
+	
+	#dim AdminOrderLijnIterator As AXimpl.Controle.Order.AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.AdminOrderLijnIterator).%New(OrderApi)
+	
+	Do $$$AssertFalse(AdminOrderLijnIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Er is enkel een standaard order">
+<Implementation><![CDATA[
+	#dim OrderApi As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	
+	Set Orders = ##class(%ListOfObjects).%New()
+	Do Orders.Insert(##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder())
+	
+	Do OrderApi.IndienMethodCall("GeefOrderIterator").DanReturn(##class(TECH.ListIterator).%New(Orders))
+	
+	#dim Converter As AXimpl.Controle.Order.AdminOrderLijnConverter = ##class(vhTest.Dummy.AXimpl.Controle.Order.AdminOrderLijnConverter).%New()
+	
+	#dim AdminOrderLijnIterator As AXimpl.Controle.Order.AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.AdminOrderLijnIterator).%New(OrderApi,Converter)
+	
+	if $$$AssertTrue(AdminOrderLijnIterator.HasNext()) {
+		Do $$$AssertEquals($ClassName(AdminOrderLijnIterator.Next()),"AXimpl.Controle.Order.OrderLijn")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Dummy/AXimpl/Controle/Order/AdminOrderLijnConverter.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/AXimpl/Controle/Order/AdminOrderLijnConverter.cls.xml	(revision 0)
+++ vhTest/Dummy/AXimpl/Controle/Order/AdminOrderLijnConverter.cls.xml	(revision 42994)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.AXimpl.Controle.Order.AdminOrderLijnConverter">
+<Super>TECH.RegisteredObject,AXimpl.Controle.Order.AdminOrderLijnConverter</Super>
+
+<Method name="Convert">
+<FormalSpec>AdminOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<ReturnType>AXimpl.Controle.Order.OrderLijn</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AXimpl.Controle.Order.OrderLijn).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/Order/AdminOrderLijnIterator.cls.xml
===================================================================
diff -u -r42987 -r42994
--- AXimpl/Controle/Order/AdminOrderLijnIterator.cls.xml	(.../AdminOrderLijnIterator.cls.xml)	(revision 42987)
+++ AXimpl/Controle/Order/AdminOrderLijnIterator.cls.xml	(.../AdminOrderLijnIterator.cls.xml)	(revision 42994)
@@ -14,7 +14,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Converter:AXimpl.Controle.Order.AdminOrderLijnConverter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -23,7 +23,7 @@
 	Set OrderApi = $$$Inject(OrderApi,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	#dim OrderIterator As TECH.Iterator = OrderApi.GeefOrderIterator()
 	Set ..CombinedIterator = ##class(TECH.CombinedIterator).%New(OrderIterator,"AXimpl.Controle.Order.OrderLijnIterator")
-	Set ..Converter = ##class(AXimpl.Controle.Order.AdminOrderLijnConverter).%New()
+	Set ..Converter = $$$Inject(Converter,##class(AXimpl.Controle.Order.AdminOrderLijnConverter).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/DOM/VKP/ProductOrderlijn.cls.xml
===================================================================
diff -u -r42947 -r42994
--- vhTest/Utils/DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 42947)
+++ vhTest/Utils/DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 42994)
@@ -14,6 +14,7 @@
 	Do ProductOrderLijn.IndienMethodCall("GeefLeverdag").DanReturn($$INTDATE^vhLib.DataTypes("06/07/2017"))
 	Do ProductOrderLijn.IndienMethodCall("GeefOrder").DanReturn($$$If($IsObject(Order),Order,##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()))
 	Do ProductOrderLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do ProductOrderLijn.IndienMethodCall("GeefType").DanReturn(##class(DOM.VKP.enu.OrderLijnType).Product())
 	
 	Quit ProductOrderLijn
 ]]></Implementation>