Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36264 -r36377
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36264)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36377)
@@ -10,8 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="BestelOfferte">
+<FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestelOfferte")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestelOfferte",OfferteID)
 ]]></Implementation>
 </Method>
 
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r36264 -r36377
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36264)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36377)
@@ -65,7 +65,16 @@
 
 <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)
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Try {
+		Do ..ExterneVerkoopService.BestelOfferte(OfferteID, Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	 	Set Resultaat.Exceptie = Exception
+	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r36264 -r36377
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36264)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36377)
@@ -16,7 +16,8 @@
 
 <Method name="BestelOfferte">
 <FormalSpec>OfferteID:%String,Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
-<Implementation><![CDATA[
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml
===================================================================
diff -u -r36333 -r36377
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml	(.../Test.cls.xml)	(revision 36333)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/MaakOfferte/Test.cls.xml	(.../Test.cls.xml)	(revision 36377)
@@ -28,13 +28,13 @@
 	Do TandemboxBesteller.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().KLNummer,StandaardKlant.GeefCode())
-	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().BonType,"BBON")
+	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().BonType,"OFF")
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().Taal,StandaardKlant.GeefTaal())
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().KLNaam,StandaardKlant.GeefNaam())
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().KLEMail,StandaardKlant.GeefEmail())
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().WebDomain,"www.tandem-box.com")
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().Opmerking1,"")
-	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().ShowInHist,"10")
+	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().ShowInHist,"80")
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().LeverTijd,"2011.01.01")
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().LeverTijdID,"62092")
 	Do $$$AssertEquals(TandemboxBesteller.GeefWebOrder().IngaveTijdStip,"2011-06-30 09:15:00")
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36312 -r36377
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36312)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36377)
@@ -12,19 +12,17 @@
 <Implementation><![CDATA[
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
-	#dim UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	#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()	
+	#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)	
+	Do TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(0)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige data")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
+	do $$$AssertEquals(Resultaat.Exceptie.GeefInnerExcepties().Count(),2)
 	
-	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
-	Do BestelService.PlaatsBestelling(Aanvraag)
-	
 	Do UnishopBestellerStub.Verifieer()
 	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
@@ -34,19 +32,17 @@
 <Implementation><![CDATA[
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
-	#dim UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	#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()	
+	#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)
+	Do TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(0)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige data")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
+	do $$$AssertEquals(Resultaat.Exceptie.GeefInnerExcepties().Count(),1)
 	
-	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
-	Do BestelService.PlaatsBestelling(Aanvraag)
-	
 	Do UnishopBestellerStub.Verifieer()
 	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
@@ -56,19 +52,17 @@
 <Implementation><![CDATA[
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
-	#dim UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	#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()	
+	#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 TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(0)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige data")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
+	do $$$AssertEquals(Resultaat.Exceptie.GeefInnerExcepties().Count(),1)
 	
-	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
-	Do BestelService.PlaatsBestelling(Aanvraag)
-	
 	Do UnishopBestellerStub.Verifieer()
 	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
@@ -78,21 +72,62 @@
 <Implementation><![CDATA[
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
-	#dim UnishopBestellerStub As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()	
+	#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()	
+	#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 TandemboxBestellerStub.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())	
 	
-	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)	
-	Do BestelService.PlaatsBestelling(Aanvraag)
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
+	do $$$AssertFalse($isObject(Resultaat.Exceptie))
 	
 	Do UnishopBestellerStub.Verifieer()
 	Do TandemboxBestellerStub.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: TBXBesteller geeft geen fout bij MaakOfferte en wel bij BestelOfferte, UNI doet alles goed">
+<Implementation><![CDATA[
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	
+	#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",1234).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
+	
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
+	do $$$AssertEquals(Resultaat.Exceptie.GeefInnerExcepties().Count(),1)
+	
+	Do UnishopBestellerStub.Verifieer()
+	Do TandemboxBestellerStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBXBesteller geeft geen fout bij MaakOfferte en wel bij BestelOfferte, UNI idem">
+<Implementation><![CDATA[
+	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
+	
+	#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).DanReturn(..GeefResultaatMetExceptie())
+	#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",1234).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
+	
+	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerStub, TandemboxBestellerStub)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
+	do $$$AssertEquals(Resultaat.Exceptie.GeefInnerExcepties().Count(),2)
+	
+	Do UnishopBestellerStub.Verifieer()
+	Do TandemboxBestellerStub.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanvraag">
 <Private>1</Private>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r36264 -r36377
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36264)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 36377)
@@ -11,7 +11,8 @@
 
 <Method name="BestelOfferte">
 <FormalSpec>OfferteID:%String,Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("BestelOfferte",OfferteID,Aanvraag)
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestelOfferte",OfferteID,Aanvraag)
 ]]></Implementation>
 </Method>
 
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r36290 -r36377
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36290)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36377)
@@ -35,13 +35,18 @@
 <FormalSpec>Aanvraag:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set ResultaatTBXBestel = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set ResultaatUNIBestel = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	#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)
-	} Else {		
+		Set ResultaatTBXBestel = ..TandemboxBesteller.BestelOfferte(ResultaatTBX.OfferteID)
+		Set ResultaatUNIBestel = ..UnishopBesteller.BestelOfferte(ResultaatUNI.OfferteID, Aanvraag)
+	} 
+	
+	If ($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie) || ($IsObject(ResultaatTBXBestel)&&$IsObject(ResultaatTBXBestel.Exceptie)) || ($IsObject(ResultaatUNIBestel)&&$IsObject(ResultaatUNIBestel.Exceptie))){
 		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige data")
 		
 		If $IsObject(ResultaatTBX.Exceptie){
@@ -50,10 +55,16 @@
 		If $IsObject(ResultaatUNI.Exceptie){
 			Do Exception.VoegToeInnerExceptie(ResultaatUNI.Exceptie)
 		}
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		If ($IsObject(ResultaatTBXBestel)&&$IsObject(ResultaatTBXBestel.Exceptie)){
+			Do Exception.VoegToeInnerExceptie(ResultaatTBXBestel.Exceptie)
+		}
+		If ($IsObject(ResultaatUNIBestel)&&$IsObject(ResultaatUNIBestel.Exceptie)){
+			Do Exception.VoegToeInnerExceptie(ResultaatUNIBestel.Exceptie)
+		}
+		Set Resultaat.Exceptie = Exception
 	}
 	
-	Quit ResultaatUNI
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 </Class>