Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoegerSpy.cls.xml
===================================================================
diff -u -r35903 -r36528
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoegerSpy.cls.xml	(.../ProductlijnToevoegerSpy.cls.xml)	(revision 35903)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoegerSpy.cls.xml	(.../ProductlijnToevoegerSpy.cls.xml)	(revision 36528)
@@ -4,23 +4,15 @@
 <Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger</Super>
 
 <Property name="AantalKeerVoegToeLijnOpgeroepen">
-<Type>%String</Type>
+<Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
 </Property>
 
 <Method name="VoegToeLijn">
-<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn,Volgnummer:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	Set ..AantalKeerVoegToeLijnOpgeroepen = ..AantalKeerVoegToeLijnOpgeroepen + 1
-	Do ##super(Lijn, Volgnummer)
+<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
+<Implementation><![CDATA[	Set ..AantalKeerVoegToeLijnOpgeroepen = ..AantalKeerVoegToeLijnOpgeroepen + 1
 ]]></Implementation>
 </Method>
-
-<Method name="VoegToeLijnen">
-<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,WebOrder:WS.TBX.Order</FormalSpec>
-<Implementation><![CDATA[	Do ##super(Order, WebOrder)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml
===================================================================
diff -u -r36290 -r36528
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 36290)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 36528)
@@ -40,6 +40,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: 2 lijn toevoegen indien validatie geslaagd is">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	
+	#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,$$$ElkeWaarde).DanReturn($$$True)
+	
+	Set ProductlijnToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger).%New(ProductValidatorStub)
+	Do ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	if $$$AssertEquals(WebOrder.Lijnen.Count(),2) {
+		Do $$$AssertTrue(WebOrder.Lijnen.IsDefined(1))
+		Do $$$AssertTrue(WebOrder.Lijnen.IsDefined(2))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: 0 lijnen toevoegen indien validatie niet geslaagd is">
 <Implementation><![CDATA[
 	Set Order = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml
===================================================================
diff -u -r36290 -r36528
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(.../ProductlijnToevoeger.cls.xml)	(revision 36290)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(.../ProductlijnToevoeger.cls.xml)	(revision 36528)
@@ -48,12 +48,10 @@
 	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	#dim ExceptionsSmijten As %Boolean = $$$False
 	
-	#dim Volgnummer As %Integer = 0
 	While FilterIterator.HasNext() {
 		#dim Lijn As APPS.EDI.common.dto.ProductLijn = FilterIterator.Next()
 		If ..ProductValidator.IsValid(Lijn.Product, .Exceptions) {
-			Set Volgnummer = Volgnummer + 1
-			Do ..VoegToeLijn(Lijn, Volgnummer)
+			Do ..VoegToeLijn(Lijn)
 		} Else {
 			Set ExceptionsSmijten = $$$True
 		}
@@ -68,12 +66,12 @@
 </Method>
 
 <Method name="VoegToeLijn">
-<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn,Volgnummer:%Integer</FormalSpec>
+<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ConvertOpties As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
 	Do ConvertOpties.InsertKeyValue("Aantal",Lijn.Aantal)
-	Do ..WebOrder.Lijnen.SetAt(..ProductConverter.Convert(Lijn.Product,, ConvertOpties), Volgnummer)
+	Do ..WebOrder.Lijnen.SetAt(..ProductConverter.Convert(Lijn.Product,, ConvertOpties), ..WebOrder.Lijnen.Count()+1 )
 ]]></Implementation>
 </Method>
 </Class>