Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35839 -r36264
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35839)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36264)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EDI.Bestel.impl.BestelService.UnishopBesteller">
-<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="OfferteService">
 <Type>APPS.VKP.OfferteService</Type>
@@ -37,7 +37,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PlaatsBestelling">
+<Method name="MaakOfferte">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
@@ -48,10 +48,10 @@
 	set ..Aanvraag = Aanvraag
 	
 	#dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
+	
 	try {
 		do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order,Aanvraag.Header.PersonalityID)
 		do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
-		do ..ExterneVerkoopService.BestelOfferte(Offerte.OfferteID,Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
 		set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -63,6 +63,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestelOfferte">
+<FormalSpec>OfferteID:%String,Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<Implementation><![CDATA[	Do ..ExterneVerkoopService.BestelOfferte(OfferteID, Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
+]]></Implementation>
+</Method>
+
 <Method name="ZetHoofding">
 <FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order,PersonalityID:DOM.common.enu.Personality</FormalSpec>
 <Private>1</Private>
@@ -97,7 +103,7 @@
 <FormalSpec>OfferteID:%String,Order:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Quit:$$$Not($IsObject(Order))	
+	Quit:$$$Not($IsObject(Order))
 	
 	Set ValueList = ##class(TECH.KeyValue.List).%New()
 	Do ValueList.InsertKeyValue("Product.LadeType","LBX")
Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r35738 -r36264
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35738)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36264)
@@ -7,6 +7,25 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller</Super>
 
+<Method name="BestelOfferte">
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebOrder">
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferte">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="PlaatsBestelling">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r35738 -r36264
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 35738)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36264)
@@ -9,10 +9,22 @@
 <Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="PlaatsBestelling">
+<Method name="BestelOfferte">
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestelOfferte")
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebOrder">
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWebOrder")
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferte">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("PlaatsBestelling",Aanvraag)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakOfferte",Aanvraag)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r35748 -r36264
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 35748)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36264)
@@ -35,8 +35,15 @@
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
-	//Do ..TandemboxBesteller.PlaatsBestelling(Aanvraag)
-	Quit ..UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim ResultaatTBX As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..TandemboxBesteller.MaakOfferte(Aanvraag)
+	#dim ResultaatUNI As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..UnishopBesteller.MaakOfferte(Aanvraag)
+	
+	If $$$Not($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie)){
+		Do ..TandemboxBesteller.BestelOfferte()
+		Do ..UnishopBesteller.BestelOfferte(ResultaatUNI.OfferteID, Aanvraag)
+	}
+	
+	Quit ResultaatUNI
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35738 -r36264
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35738)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36264)
@@ -21,7 +21,7 @@
 	Do VerkoopAPI.IndienMethodCall("GeefKlant",..#KlantID).DanReturn(StandaardKlant)
 	
 	Set TandemboxBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New(VerkoopAPI)
-	Do TandemboxBesteller.PlaatsBestelling(Aanvraag)
+	Do TandemboxBesteller.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().KLNummer,StandaardKlant.GeefCode())
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().BonType,"BBON")
@@ -47,11 +47,9 @@
 	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do VerkoopAPI.IndienMethodCall("GeefKlant",..#KlantID).DanReturn(StandaardKlant)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("RequestedDeliveryDate not valid")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
-	
 	Set TandemboxBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New(VerkoopAPI)
-	Do TandemboxBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = TandemboxBesteller.MaakOfferte(Aanvraag)
+	Do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving(),"RequestedDeliveryDate not valid. (2011.42.42)")
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35724 -r36264
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35724)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36264)
@@ -14,6 +14,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestelOfferte">
+<FormalSpec>OfferteID:%String,Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferte">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeLijn">
 <FormalSpec>OfferteID:%String,Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35926 -r36264
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35926)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36264)
@@ -8,124 +8,158 @@
 <Default>1000</Default>
 </Parameter>
 
-<Method name="Test: geen lijnen">
+<Method name="Test: UnishopBesteller geeft fout, TBXBesteller geeft fout">
 <Implementation><![CDATA[
-	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	
 	#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 UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	Do UnishopBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
+	Do UnishopBestellerStub.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(0)
+	#dim TandemboxBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()	
+	Do TandemboxBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
+	Do TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte").ExactAantalKeer(0)	
+	
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
+	Do BestelService.PlaatsBestelling(Aanvraag)
+	
+	Do UnishopBestellerStub.Verifieer()
+	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 LBX lijn">
+<Method name="Test: UnishopBesteller geeft geen fout,TBXBesteller geeft fout">
 <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
 	
-	#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 UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	Do UnishopBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())
+	Do UnishopBestellerStub.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(0)
+	#dim TandemboxBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()	
+	Do TandemboxBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
+	Do TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte").ExactAantalKeer(0)
+	
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
+	Do BestelService.PlaatsBestelling(Aanvraag)
+	
+	Do UnishopBestellerStub.Verifieer()
+	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 2 LBX lijnen">
+<Method name="Test: UnishopBesteller geeft fout,TBXBesteller geeft geen fout">
 <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
 	
-	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
+	#dim UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	Do UnishopBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
+	Do UnishopBestellerStub.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(0)
+	#dim TandemboxBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()	
+	Do TandemboxBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())
+	Do TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte").ExactAantalKeer(0)
 	
-	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
+	Do BestelService.PlaatsBestelling(Aanvraag)
+	
+	Do UnishopBestellerStub.Verifieer()
+	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 LBX en 1 TAX lijn">
+<Method name="Test: UnishopBesteller geeft geen fout,TBXBesteller geeft geen fout">
 <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
 	
-	#dim UnishopBestellerSpy As vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBestellerSpy).%New()
-	Do UnishopBestellerSpy.PlaatsBestelling(Aanvraag)
+	#dim UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	Do UnishopBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())
+	Do UnishopBestellerStub.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(1)
+	#dim TandemboxBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()	
+	Do TandemboxBestellerStub.VerwachtMethodCall("MaakOfferte",Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())
+	Do TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte").ExactAantalKeer(1)
 	
-	Do $$$AssertEquals(UnishopBestellerSpy.AantalKeerVoegToeLijnOpgeroepen,2)
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
+	Do BestelService.PlaatsBestelling(Aanvraag)
+	
+	Do UnishopBestellerStub.Verifieer()
+	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 LBX en 1 TBX en 1 TAX lijn">
+<Method name="GeefAanvraag">
+<Private>1</Private>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
 <Implementation><![CDATA[
-	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	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"
 	
-	#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)
+	Quit Aanvraag
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 3 TBX lijnen">
+<Method name="GeefResultaatMetExceptie">
+<Private>1</Private>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
-	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("oink")
+	Set Resultaat.Exceptie = Exceptie
+	Set Resultaat.OfferteID = ""
 	
-	#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)
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAanvraag">
+<Method name="GeefResultaatZonderExceptie">
 <Private>1</Private>
-<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</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"
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set Resultaat.OfferteID = "1234"
 	
-	quit Aanvraag
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
 <Method name="VoegLadeTypeToe">
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	If LadeType = "TBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%New()
+	} ElseIf LadeType = "LBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	} Else {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).%New()
+	}
+	
 	Set Product.LadeType = LadeType
 	Set Product.LadeKleur = "MG"
 	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()
 	Set Orderlijn.Product = Product
 	Do OrderLijnen.Insert(Orderlijn)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegLadeTypeToeMetFouteData">
+<FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If LadeType = "TBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%New()
+	} ElseIf LadeType = "LBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	} Else {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).%New()
+	}
+	
+	Set Product.LadeType = "Fout"
+	Set Product.LadeKleur = "MG"
+	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()
+	Set Orderlijn.Product = Product
+	Do OrderLijnen.Insert(Orderlijn)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35625 -r36264
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35625)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36264)
@@ -9,10 +9,16 @@
 <Super>APPS.EDI.Bestel.impl.BestelService.UnishopBesteller,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="PlaatsBestelling">
+<Method name="BestelOfferte">
+<FormalSpec>OfferteID:%String,Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BestelOfferte",OfferteID,Aanvraag)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferte">
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("PlaatsBestelling",Aanvraag)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakOfferte",Aanvraag)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36171 -r36264
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36171)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36264)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller">
 <IncludeCode>APPS.TBXWeb.DomeinNamen</IncludeCode>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="Aanvraag">
 <Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</Type>
@@ -56,20 +56,38 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PlaatsBestelling">
-<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<Method name="MaakOfferte">
+<FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
-	Set ..Aanvraag = Aanvraag
-	
-	Do ..ZetHoofding()
-	Do ..ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, ..WebOrder)
-	Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
-	
-	Do ..OrderVerwerker.ConverteerWebOrderNaarOfferte(..WebOrder)
-	
-	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(..WebOrder.mID)
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Try {
+		Set ..Aanvraag = Aanvraag
+		
+		Do ..ZetHoofding()
+		Do ..ProductlijnToevoeger.VoegToeLijnen(Aanvraag.Order, ..WebOrder)
+		Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
+		Set Resultaat.OfferteID = ..WebOrder.mID
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	 	Set Resultaat.Exceptie = Exception
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
 
+<Method name="BestelOfferte">
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Try {
+		Do ..OrderVerwerker.ConverteerWebOrderNaarOfferte(..WebOrder)
+		Set Resultaat.OfferteID = ..WebOrder.mID
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	 	Set Resultaat.Exceptie = Exception
+	}
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35840 -r36264
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35840)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36264)
@@ -12,13 +12,10 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID)
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 
-	do ExterneVerkoopServiceMock.IndienMethodCall("WisOfferte","OfferteID").DanDoeNiks()
-	
 	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(..GeefAanvraag())
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(..GeefAanvraag())
 	
 	if ($IsObject(Resultaat.Exceptie)) {
 		// Enkel bedoeld om gemakkelijker te kunnen debuggen indien een fout opgetreden. Anders weet je niks van de exceptie. 
@@ -41,7 +38,7 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 		
 	set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.PlaatsBestelling(..GeefAanvraag())
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(..GeefAanvraag())
 	
 	do $$$AssertEquals(Resultaat.OfferteID,"")
 	do $$$AssertNotEquals(Resultaat.Exceptie,"")
@@ -60,7 +57,7 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	set Aanvraag.Order.GevraagdeLeverdatum = "UT_Ongeldig"
 	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	if $$$AssertTrue($IsObject(Resultaat.Exceptie)) {
 		do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving() ,"RequestedDeliveryDate not valid. 'UT_Ongeldig'")
@@ -74,7 +71,6 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -90,7 +86,7 @@
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(1)
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceStub)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceStub.Verifieer()
@@ -101,7 +97,6 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -118,7 +113,7 @@
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(2)
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceStub)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceStub.Verifieer()
@@ -129,7 +124,6 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -144,7 +138,7 @@
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(0)
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceStub)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceStub.Verifieer()
@@ -155,7 +149,6 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -171,7 +164,7 @@
 	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(0)
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceStub)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceStub.Verifieer()
@@ -182,7 +175,6 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -200,7 +192,7 @@
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(1)
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceStub)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceStub.Verifieer()
@@ -211,7 +203,6 @@
 <Implementation><![CDATA[
 	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.ExterneVerkoopService).%New()
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -231,18 +222,117 @@
 	Do OfferteServiceStub.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceStub.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,$$$ElkeWaarde,"","").ExactAantalKeer(3)
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceStub)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.PlaatsBestelling(Aanvraag)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteServiceStub.Verifieer()
 ]]></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)
+]]></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
+	
+	#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)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 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
+	
+	#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)
+]]></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
+	
+	#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)
+]]></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
+	
+	#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)
+]]></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)
+]]></Implementation>
+</Method>
+
 <Method name="VoegLadeTypeToe">
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	If LadeType = "TBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%New()
+	} ElseIf LadeType = "LBX" {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%New()
+	} Else {
+		Set Product = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).%New()
+	}
 	Set Product.LadeType = LadeType
 	Set Orderlijn = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.OrderLijn).%New()
 	Set Orderlijn.Product = Product