Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger/Test.cls.xml	(revision 35903)
@@ -0,0 +1,200 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantID">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="aTest: 0 lijn toevoegen">
+<Implementation><![CDATA[
+	Set Order = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()	
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+	Set ProductlijnToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger).%New()
+	Do ProductlijnToevoeger.VoegToeLijnen(Order, WebOrder)
+	
+	Do $$$AssertEquals(WebOrder.Lijnen.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: 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 OrderLijn.Product = Product
+	Do Order.Lijnen.SetAt(OrderLijn,1) 
+	
+	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 $$$AssertEquals(WebOrder.Lijnen.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: 0 lijnen toevoegen indien validatie niet 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.CorpusWandDikte = 42
+	
+	Set OrderLijn.Product = Product
+	Do Order.Lijnen.SetAt(OrderLijn,1) 
+	
+	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($$$False)
+	
+	Set ProductlijnToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger).%New()
+	Do ProductlijnToevoeger.VoegToeLijnen(Order, WebOrder)
+	
+	Do $$$AssertEquals(WebOrder.Lijnen.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geen lijnen">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	
+	#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()
+	#dim ProductlijnToevoegerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy).%New(TrueValidator)
+	Do ProductlijnToevoegerSpy.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(ProductlijnToevoegerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: 1 LBX lijn">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", 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()
+	#dim ProductlijnToevoegerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy).%New(TrueValidator)
+	Do ProductlijnToevoegerSpy.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(ProductlijnToevoegerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 LBX lijnen">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("LBX", 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()
+	#dim ProductlijnToevoegerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy).%New(TrueValidator)
+	Do ProductlijnToevoegerSpy.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(ProductlijnToevoegerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 LBX en 1 TAX lijn">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TAX", 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()
+	#dim ProductlijnToevoegerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy).%New(TrueValidator)
+	Do ProductlijnToevoegerSpy.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(ProductlijnToevoegerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 LBX en 1 TBX en 1 TAX lijn">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegLadeTypeToe("TAX", 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()
+	#dim ProductlijnToevoegerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy).%New(TrueValidator)
+	Do ProductlijnToevoegerSpy.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(ProductlijnToevoegerSpy.AantalKeerVoegToeLijnOpgeroepen,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 3 TBX lijnen">
+<Implementation><![CDATA[
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	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()
+	#dim ProductlijnToevoegerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy).%New(TrueValidator)
+	Do ProductlijnToevoegerSpy.VoegToeLijnen(Aanvraag.Order, WebOrder)
+	
+	Do $$$AssertEquals(ProductlijnToevoegerSpy.AantalKeerVoegToeLijnOpgeroepen,3)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAanvraag">
+<Private>1</Private>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
+<Implementation><![CDATA[
+	set Aanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	set Aanvraag.Header.KlantID = ..#KlantID
+	set Aanvraag.Header.PersonalityID = ..#PersonalityID
+	set Aanvraag.Order.GevraagdeLeverdatum = "2011.01.01"
+	
+	quit Aanvraag
+]]></Implementation>
+</Method>
+
+<Method name="VoegLadeTypeToe">
+<FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Product = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.LadeType = LadeType
+	Set Orderlijn = ##class(APPS.EDI.common.dto.ProductLijn).%New()
+	Set Orderlijn.Product = Product
+	Do OrderLijnen.Insert(Orderlijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 35903 refers to a dead (removed) revision in file `vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r35885 -r35903
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35885)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 35903)
@@ -151,8 +151,6 @@
 	}
 	ElseIf (Product.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium()) && (Product.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit()) && (Product.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement()) {
 		Set WebOrderLijn.ItemKV = "ALU.SW"
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verkeerde combinatie voor Zijwandverhoging"))
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoegerSpy.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoegerSpy.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoegerSpy.cls.xml	(revision 35903)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoegerSpy">
+<Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger</Super>
+
+<Property name="AantalKeerVoegToeLijnOpgeroepen">
+<Type>%String</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)
+]]></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>
+
+
+</Export>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r35864 -r35903
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35864)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35903)
@@ -24,14 +24,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductlijnToevoeger">
+<Type>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,ProductlijnToevoeger:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..ProductlijnToevoeger = $$$Inject(ProductlijnToevoeger,##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger).%New())
 	Set ..ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -45,7 +51,7 @@
 	Set ..WebOrder = ##class(WS.TBX.Order).%New()
 	
 	Do ..ZetHoofding()
-	Do ..VoegToeLijnen(Aanvraag.Order)
+	Do ..ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, ..WebOrder)
 	
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(..WebOrder.mID)
 
@@ -75,38 +81,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeLijnen">
-<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Quit:$$$Not($IsObject(Order))	
-	
-	Set ValueList = ##class(TECH.KeyValue.List).%New()
-	Do ValueList.InsertKeyValue("Product.LadeType","TBX")
-	
-	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
-	
-	Set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
-	#dim FilterIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
-	
-	#dim Volgnummer As %Integer = 0
-	while FilterIterator.HasNext() {
-		Set Volgnummer = Volgnummer + 1
-		do ..VoegToeLijn(FilterIterator.Next(), Volgnummer)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeLijn">
-<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn,Volgnummer:%Integer</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)
-]]></Implementation>
-</Method>
-
 <Method name="ZetGevraagdeLeverdatum">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml	(revision 35903)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator,vhTest.Mock.TECH.Validator.Validator</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="IsValid">
+<FormalSpec>Product:APPS.EDI.common.dto.v001.LadeTBX</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsValid",Product)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductlijnToevoeger.cls.xml	(revision 35903)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="WebOrder">
+<Type>WS.TBX.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductConverter">
+<Type>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductValidator">
+<Type>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductValidator:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
+	Set ..ProductValidator = $$$Inject(ProductValidator,##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijnen">
+<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,WebOrder:WS.TBX.Order</FormalSpec>
+<Implementation><![CDATA[
+	Quit:$$$Not($IsObject(Order))	
+	
+	Set ..WebOrder = WebOrder
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	Do ValueList.InsertKeyValue("Product.LadeType","TBX")
+	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
+	#dim FilterIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
+	
+	#dim Volgnummer As %Integer = 0
+	While FilterIterator.HasNext() {
+		#dim Lijn As APPS.EDI.common.dto.ProductLijn = FilterIterator.Next()
+		If ..ProductValidator.IsValid(Lijn.Product) {
+			Set Volgnummer = Volgnummer + 1
+			Do ..VoegToeLijn(Lijn, Volgnummer)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijn">
+<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn,Volgnummer:%Integer</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)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml	(revision 35903)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductValidator</Super>
+
+<Method name="IsValid">
+<FormalSpec>Product:APPS.EDI.common.dto.v001.LadeTBX</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35743 -r35903
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35743)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35903)
@@ -18,10 +18,6 @@
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
 	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
-	
-	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
-	Do TandemboxBestellerSpy.PlaatsBestelling(Aanvraag)
-	Do $$$AssertEquals(TandemboxBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
 ]]></Implementation>
 </Method>
 
@@ -36,10 +32,6 @@
 	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
 	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,1)
-	
-	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
-	Do TandemboxBestellerSpy.PlaatsBestelling(Aanvraag)
-	Do $$$AssertEquals(TandemboxBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
 ]]></Implementation>
 </Method>
 
@@ -56,10 +48,6 @@
 	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
-	
-	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
-	Do TandemboxBestellerSpy.PlaatsBestelling(Aanvraag)
-	Do $$$AssertEquals(TandemboxBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
 ]]></Implementation>
 </Method>
 
@@ -76,10 +64,6 @@
 	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
-	
-	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
-	Do TandemboxBestellerSpy.PlaatsBestelling(Aanvraag)
-	Do $$$AssertEquals(TandemboxBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
 ]]></Implementation>
 </Method>
 
@@ -97,10 +81,6 @@
 	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
-	
-	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
-	Do TandemboxBestellerSpy.PlaatsBestelling(Aanvraag)
-	Do $$$AssertEquals(TandemboxBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,1)
 ]]></Implementation>
 </Method>
 
@@ -118,10 +98,6 @@
 	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
 	
 	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,0)
-	
-	#dim TandemboxBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy).%New()
-	Do TandemboxBestellerSpy.PlaatsBestelling(Aanvraag)
-	Do $$$AssertEquals(TandemboxBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,3)
 ]]></Implementation>
 </Method>