Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml
===================================================================
diff -u -r38248 -r38249
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 38248)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 38249)
@@ -27,7 +27,6 @@
 	#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()
@@ -49,7 +48,6 @@
 	#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()
@@ -71,7 +69,6 @@
 	#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()
@@ -221,7 +218,9 @@
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeToe("LBX", Orderlijnen)
 	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Set Orderlijnen.GetAt(2).Product.AantalDwarsverdelingen = "42"
 	Do ..VoegLadeToe("TBX", Orderlijnen)
+	Set Orderlijnen.GetAt(3).Product.AantalDwarsverdelingen = "42"
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -252,12 +251,12 @@
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-	Set Product.Type = LadeType
-	Set Product.LadeKleur = "MG"
-	Set Product.Klasse = "L"
-	Set Product.RugHoogte = "M"
-	Set Product.ZijkantHoogte = "M"
+	#dim Product As APPS.EDI.common.dto.Product
+	Set Product = $Case(LadeType, 	"TBX" : ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLade() , 
+									"LBX" : ##class(vhTest.Utils.APPS.EDI.common.dto.LadeLBX).StandaardLade() , 
+									"TAX" : ##class(vhTest.Utils.APPS.EDI.common.dto.LadeTAX).StandaardLade() ,
+									 : "")
+
 	Set Orderlijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
 	Set Orderlijn.Product = Product
 	Do OrderLijnen.Insert(Orderlijn)