Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml
===================================================================
diff -u -r35904 -r35928
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 35904)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 35928)
@@ -21,21 +21,20 @@
 
 <Method name="Test: 1 lijn toevoegen indien validatie geslaagd is">
 <Implementation><![CDATA[
-	Set Order = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
-	Set OrderLijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
-	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set Product.LadeType = "TBX"
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
 	
-	Set OrderLijn.Product = Product
-	Do Order.Lijnen.SetAt(OrderLijn,1) 
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
+	Set TrueValidator = ##class(vhTest.Fake.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator).%New()
 	Set WebOrder = ##class(WS.TBX.Order).%New()
 	
 	Set ProductValidatorStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator).%New()
 	Do ProductValidatorStub.IndienMethodCall("IsValid",$$$ElkeWaarde).DanReturn($$$True)
 	
 	Set ProductlijnToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger).%New(ProductValidatorStub)
-	Do ProductlijnToevoeger.VoegToeLijnen(Order, WebOrder)
+	Do ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, WebOrder)
 	
 	Do $$$AssertEquals(WebOrder.Lijnen.Count(),1)
 ]]></Implementation>
@@ -189,6 +188,7 @@
 <Implementation><![CDATA[
 	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
 	Set Product.LadeType = LadeType
+	Set Product.LadeKleur = "MG"
 	Set Orderlijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
 	Set Orderlijn.Product = Product
 	Do OrderLijnen.Insert(Orderlijn)