Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBestellerSpy.cls.xml	(revision 35743)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBestellerSpy">
+<Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller</Super>
+
+<Property name="AantalKeerVoegToeLijnOpgeroepen">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Method name="PlaatsBestelling">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[
+	do ..VoegToeLijnen(Aanvraag.Order)
+	Quit ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(1234)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijn">
+<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..AantalKeerVoegToeLijnOpgeroepen = ..AantalKeerVoegToeLijnOpgeroepen + 1
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijnen">
+<FormalSpec>Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##super(Order)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml
===================================================================
diff -u -r35694 -r35743
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 35694)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 35743)
@@ -5,6 +5,7 @@
 
 <Property name="AantalKeerVoegToeLijnOpgeroepen">
 <Type>%String</Type>
+<InitialExpression>0</InitialExpression>
 </Property>
 
 <Method name="PlaatsBestelling">
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35715 -r35743
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35715)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35743)
@@ -8,14 +8,20 @@
 <Default>1000</Default>
 </Parameter>
 
-<Method name="Test: standaardgedrag, geen controle op inhoud van aanvraag of niets niemendal">
+<Method name="Test: geen lijnen">
 <Implementation><![CDATA[
-	#dim UnishopBestellerStub as vhTest.Mock.APPS.EDI.Bestel.impl.BestelService = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
-	Do UnishopBestellerStub.VerwachtMethodCall("PlaatsBestelling",$$$ElkeWaarde)
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	
-	Do ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub).PlaatsBestelling(..GeefAanvraag())
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Do UnishopBestellerStub.Verifieer()
+	#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>
 
@@ -27,10 +33,13 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	#dim UnishopBestellerSpy as vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
-	
+	#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>
 
@@ -43,10 +52,14 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	#dim UnishopBestellerSpy as vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
+	#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,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>
 
@@ -59,13 +72,59 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	#dim UnishopBestellerSpy as vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
+	#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,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>
 
+<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
+	
+	#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,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>
+
+<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
+	
+	#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,3)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanvraag">
 <Private>1</Private>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r35625 -r35743
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 35625)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 35743)
@@ -13,22 +13,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TandemboxBesteller">
+<Type>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>UnishopBesteller:APPS.EDI.Bestel.impl.BestelService.UnishopBesteller</FormalSpec>
+<FormalSpec>UnishopBesteller:APPS.EDI.Bestel.impl.BestelService.UnishopBesteller,TandemboxBesteller:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..UnishopBesteller = $$$Inject(UnishopBesteller,##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New())	
+	Set ..TandemboxBesteller = $$$Inject(TandemboxBesteller,##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New())	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="PlaatsBestelling">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
-<Implementation><![CDATA[	Quit ..UnishopBesteller.PlaatsBestelling(Aanvraag)
+<Implementation><![CDATA[
+	Do ..TandemboxBesteller.PlaatsBestelling(Aanvraag)
+	Quit ..UnishopBesteller.PlaatsBestelling(Aanvraag)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r35738 -r35743
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35738)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35743)
@@ -38,6 +38,7 @@
 	Set ..WebOrder = ##class(WS.TBX.Order).%New()
 	
 	Do ..ZetHoofding()
+	Do ..VoegToeLijnen(Aanvraag.Order)
 	
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(..WebOrder.mID)
 
@@ -67,6 +68,33 @@
 ]]></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)
+	
+	while FilterIterator.HasNext() {
+		do ..VoegToeLijn(FilterIterator.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLijn">
+<FormalSpec>Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	//als elk lijntje ok is, zal het geheel wel zo slecht niet zijn zeker?
+]]></Implementation>
+</Method>
+
 <Method name="GeefWebOrder">
 <ReturnType>WS.TBX.Order</ReturnType>
 <Implementation><![CDATA[	Quit ..WebOrder