Index: vhUnitTest/AXimpl/Controle/Order/AdminOrderConverter/Test.cls.xml
===================================================================
diff -u -r42638 -r42926
--- vhUnitTest/AXimpl/Controle/Order/AdminOrderConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42638)
+++ vhUnitTest/AXimpl/Controle/Order/AdminOrderConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42926)
@@ -8,11 +8,26 @@
 <Default>1000</Default>
 </Parameter>
 
-<Property name="ProductApiStub">
+<Property name="OrderApiStub">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Order">
+<Type>DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductRolApiStub">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ProductOrderLijnStub">
+<Type>DOM.VKP.ProductOrderlijn</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	Do ##super()
@@ -24,7 +39,16 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	do ##super(aTestName)
-	Set ..ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Set ..OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Set ..ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Set ..ProductOrderLijnStub = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+	
+	#dim ProductId As %String = ..ProductOrderLijnStub.GeefProductID()
+	#dim Product As DOM.PM.impl.ProductImpl = ..GeefTeConverterenProduct()
+	
+	Do ..ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct",ProductId).DanReturn(Product)
+	Do ..OrderApiStub.IndienMethodCall("GeefOrder",$$$ElkeWaarde).DanReturn(..Order)
 ]]></Implementation>
 </Method>
 
@@ -35,55 +59,44 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method "Test: Converted returned het juiste type"()
-{
-	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+<Method name="Test: Convert returnt het juiste type">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
 	
-	#dim Product As DOM.VKP.ProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
-	Do Product.IndienMethodCall("GeefIdentNr",$$$ElkeWaarde).DanReturn("0.123.456.7")
-	Do ..ProductApiStub.IndienMethodCall("GeefProduct",$$$ElkeWaarde).DanReturn(Product)
-	
-	#dim Converter As AXimpl.Controle.Order.AdminOrderConverter = ..GeefConverter()
-
-	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = Converter.Convert(ProductOrderLijn)
-	
 	do $$$AssertEquals($classname(ConvertedProductOrderLijn),"AXimpl.Controle.Order.OrderLijn")
-}
+]]></Implementation>
+</Method>
 
-Method "Test: Product bevat het IdentNummer"()
-{
-	#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+<Method name="Test: Product bevat het IdentNummer">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
 	
-	#dim Product As DOM.VKP.ProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
-	Do Product.IndienMethodCall("GeefIdentNr",$$$ElkeWaarde).DanReturn("0.123.456.7")
-	Do ..ProductApiStub.IndienMethodCall("GeefProduct",$$$ElkeWaarde).DanReturn(Product)
-	
-	#dim Converter As AXimpl.Controle.Order.AdminOrderConverter = ..GeefConverter()
+	do $$$AssertEquals(ConvertedProductOrderLijn.Product,"0.123.451.0")
+]]></Implementation>
+</Method>
 
-	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = Converter.Convert(ProductOrderLijn)
+<Method name="Test: Klant bevat het KlantNr">
+<Implementation><![CDATA[
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
 	
-	do $$$AssertEquals(ConvertedProductOrderLijn.Product,"0.123.456.7")
-}
-*/
-]]></Content>
-</UDLText>
+	do $$$AssertEquals(ConvertedProductOrderLijn.Klant,"01234")
+]]></Implementation>
+</Method>
 
-<Method name="GeefTeConverterProduct">
+<Method name="GeefTeConverterenProduct">
 <Private>1</Private>
-<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<ReturnType>DOM.PM.impl.ProductImpl</ReturnType>
 <Implementation><![CDATA[
 	Set Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId)
+	
 	Quit Product
 ]]></Implementation>
 </Method>
 
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter</ReturnType>
-<Implementation><![CDATA[	quit ##class(AXimpl.Controle.Order.AdminOrderConverter).%New(..ProductApiStub)
+<Implementation><![CDATA[	quit ##class(AXimpl.Controle.Order.AdminOrderConverter).%New(..ProductRolApiStub,..OrderApiStub)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Controle/Order/AdminOrderIterator.cls.xml
===================================================================
diff -u -r42638 -r42926
--- AXimpl/Controle/Order/AdminOrderIterator.cls.xml	(.../AdminOrderIterator.cls.xml)	(revision 42638)
+++ AXimpl/Controle/Order/AdminOrderIterator.cls.xml	(.../AdminOrderIterator.cls.xml)	(revision 42926)
@@ -24,6 +24,7 @@
 {
 	#Dim SqlStatement as %String
 	Set SqlStatement = "SELECT * FROM Flow_Uitlevering.Lijn"
+	// FOUT !!! MOET DOM.VKP.ProductOrderlijn ZIJN !!!
 	// Filter voor beperkt resultaat
 	_" WHERE ID IN ('300011||101','300011||102','300011||103')"
 
@@ -35,11 +36,11 @@
 	Quit ( ..ResultSet.Next() > 0 )
 }
 
-Method Next() As AXimpl.Controle.Order.Order
+Method Next() As AXimpl.Controle.Order.OrderLijn
 {
-	Set AdminOrder = ##class(DOM.VKP.Orderlijn).%New(..ResultSet.GetData(1))  // ("BonNr"),..ResultSet.Data("UniekOrderLijnNr")) // Nog: GlobalNode As TECH.Persistentie.GlobalNode, Type As %String
-	#dim ConvertedAdminOrder As AXimpl.Controle.Order.Order = ..Converter.Convert(AdminOrder)
-	Quit ConvertedAdminOrder
+	Set AdminOrderLijn = ##class(DOM.VKP.ProductOrderlijn).%New(..ResultSet.GetData(1))
+	#dim ConvertedAdminOrderLijn As AXimpl.Controle.Order.OrderLijn = ..Converter.Convert(AdminOrderLijn)
+	Quit ConvertedAdminOrderLijn
 }
 */
 ]]></Content>
Index: AXimpl/Controle/Order/AdminOrderConverter.cls.xml
===================================================================
diff -u -r42638 -r42926
--- AXimpl/Controle/Order/AdminOrderConverter.cls.xml	(.../AdminOrderConverter.cls.xml)	(revision 42638)
+++ AXimpl/Controle/Order/AdminOrderConverter.cls.xml	(.../AdminOrderConverter.cls.xml)	(revision 42926)
@@ -3,19 +3,32 @@
 <Class name="AXimpl.Controle.Order.AdminOrderConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="ProductApi">
-<Type>DOM.PM.ProductAPI</Type>
+<Property name="AdminToAxUtils">
+<Type>AXimpl.AdminToAxUtils</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductRolApi">
+<Type>DOM.PM.ProductRolAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.ProductAPI</FormalSpec>
+<FormalSpec>ProductRolApi:DOM.PM.ProductRolAPI,OrderApi:DOM.VKP.OrderAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	Set ..ProductRolApi = $$$Inject(ProductRolApi,##class(DOM.DomeinContext).Instance().GeefProductRolAPI())
+	Set ..OrderApi = $$$Inject(OrderApi,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..AdminToAxUtils = ##class(AXimpl.AdminToAxUtils).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,10 +38,32 @@
 <ReturnType>AXimpl.Controle.Order.OrderLijn</ReturnType>
 <Implementation><![CDATA[
 	Set ConvertedAdminOrderLijn = ##class(AXimpl.Controle.Order.OrderLijn).%New()
-	Set ConvertedAdminOrderLijn.Product = ..ProductApi.GeefProduct(AdminOrderLijn.GeefProductID()).GeefIdentNr()
+	
+	Set ConvertedAdminOrderLijn.Klant = ..BepaalKlant(AdminOrderLijn)
+	Set ConvertedAdminOrderLijn.LeverDatum = ""
+	Set ConvertedAdminOrderLijn.Product = ..ProductRolApi.GeefAdministratiefProduct(AdminOrderLijn.GeefProductID()).GeefIdentNr()
+	Set ConvertedAdminOrderLijn.VerkochtAantal = ""
+	Set ConvertedAdminOrderLijn.VerkoopOrderId = ""
+	Set ConvertedAdminOrderLijn.VerkoopOrderLijnId = ""
+	
 	Quit ConvertedAdminOrderLijn
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalKlant">
+<FormalSpec>AdminOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As %String = ""
+	#dim OrderId As %String = AdminOrderLijn.GeefOrder().GeefID()
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderId)
+	
+	Set Klant = ..AdminToAxUtils.ConvertCustomerID(Order.GeefKlantID())
+	
+	Quit Klant
+]]></Implementation>
+</Method>
 </Class>