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>