Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36437 -r36439
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36437)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36439)
@@ -33,7 +33,7 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
 	#dim UnishopBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
-	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
+	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
 	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(0)
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
 	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatMetExceptie())
@@ -56,7 +56,7 @@
 	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatMetExceptie())
 	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(0)
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
-	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
+	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefTBXResultaatZonderExceptie())
 	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(0)
 	
 	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerMock, TandemboxBestellerMock)
@@ -73,18 +73,15 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
 	#dim UnishopBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
-	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
-	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(1)
+	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
+	Do UnishopBestellerMock.IndienMethodCall("BestelOfferte",1234,Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
-	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
-	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(1)
+	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefTBXResultaatZonderExceptie())
+	Do TandemboxBestellerMock.IndienMethodCall("BestelOfferte",1234).DanReturn(..GeefUNIResultaatZonderExceptie())
 	
 	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerMock, TandemboxBestellerMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
-	do $$$AssertFalse($isObject(Resultaat.Exceptie))
-	
-	Do UnishopBestellerMock.Verifieer()
-	Do TandemboxBestellerMock.Verifieer()
+	Do $$$AssertFalse($isObject(Resultaat.Exceptie))
 ]]></Implementation>
 </Method>
 
@@ -93,17 +90,16 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
 	#dim UnishopBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
-	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
-	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(1)
+	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
+	Do UnishopBestellerMock.IndienMethodCall("BestelOfferte",1234,Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
-	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
+	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefTBXResultaatZonderExceptie())
 	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
 	
 	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerMock, TandemboxBestellerMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
 	do $$$AssertEquals(Resultaat.Exceptie.GeefInnerExcepties().Count(),1)
 	
-	Do UnishopBestellerMock.Verifieer()
 	Do TandemboxBestellerMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -113,10 +109,10 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
 	#dim UnishopBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
-	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
+	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
 	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
-	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
+	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefTBXResultaatZonderExceptie())
 	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(1).DanReturn(..GeefResultaatMetExceptie())
 	
 	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerMock, TandemboxBestellerMock)
@@ -133,8 +129,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	
 	#dim UnishopBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
-	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
-	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())
+	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefUNIResultaatZonderExceptie())
+	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",1234,Aanvraag).ExactAantalKeer(1).DanReturn(..GeefUNIResultaatZonderExceptie())
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
 	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefLeegResultaat())
 	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",$$$ElkeWaarde).ExactAantalKeer(0).DanReturn(..GeefResultaatMetExceptie())
@@ -153,10 +149,10 @@
 	
 	#dim UnishopBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New()
 	Do UnishopBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefLeegResultaat())
-	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",$$$ElkeWaarde,Aanvraag).ExactAantalKeer(0).DanReturn(..GeefResultaatZonderExceptie())
+	Do UnishopBestellerMock.VerwachtMethodCall("BestelOfferte",$$$ElkeWaarde,Aanvraag).ExactAantalKeer(0).DanReturn(..GeefUNIResultaatZonderExceptie())
 	#dim TandemboxBestellerMock As vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller).%New()
-	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefResultaatZonderExceptie())
-	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(1).DanReturn(..GeefResultaatZonderExceptie())
+	Do TandemboxBestellerMock.IndienMethodCall("MaakOfferte",Aanvraag).DanReturn(..GeefTBXResultaatZonderExceptie())
+	Do TandemboxBestellerMock.VerwachtMethodCall("BestelOfferte",1234).ExactAantalKeer(1).DanReturn(..GeefTBXResultaatZonderExceptie())
 	
 	Set BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New(UnishopBestellerMock, TandemboxBestellerMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat  = BestelService.PlaatsBestelling(Aanvraag)
@@ -187,16 +183,28 @@
 	Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("ExceptieOmschrijving")
 	Set Resultaat.Exceptie = Exceptie
 	Set Resultaat.OfferteID = ""
+	Set Resultaat.OfferteIDTBX = ""
 	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
 
-<Method name="GeefResultaatZonderExceptie">
+<Method name="GeefTBXResultaatZonderExceptie">
 <Private>1</Private>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+	Set Resultaat.OfferteIDTBX = "1234"
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="GeefUNIResultaatZonderExceptie">
+<Private>1</Private>
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	Set Resultaat.OfferteID = "1234"
 	
 	Quit Resultaat
Index: APPS/EDI/Bestel/BestelService/PlaatsBestelling/Resultaat.cls.xml
===================================================================
diff -u -r32161 -r36439
--- APPS/EDI/Bestel/BestelService/PlaatsBestelling/Resultaat.cls.xml	(.../Resultaat.cls.xml)	(revision 32161)
+++ APPS/EDI/Bestel/BestelService/PlaatsBestelling/Resultaat.cls.xml	(.../Resultaat.cls.xml)	(revision 36439)
@@ -11,14 +11,19 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="OfferteIDTBX">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteID:%String=""</FormalSpec>
+<FormalSpec>OfferteID:%String="",OfferteIDTBX:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..OfferteID = OfferteID
+	Set ..OfferteID = OfferteID
+	Set ..OfferteIDTBX = OfferteIDTBX
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36380 -r36439
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36380)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36439)
@@ -76,7 +76,7 @@
 			Do ..BerekenPrijzen()
 			Set ..WebOrder.BonType = "OFF"
 			Set ..WebOrder.mID = $listget(..WS.WSOrdToWWW(..WebOrder,$$$WSInternalSecureKey),1)		
-			Set Resultaat.OfferteID = ..WebOrder.mID
+			Set Resultaat.OfferteIDTBX = ..WebOrder.mID
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
@@ -96,7 +96,7 @@
 		#dim WebOrder As WS.TBX.Order = ..WS.GetWSOrdFromWWW(OfferteID,$$$WSInternalSecureKey)
 		Set WebOrder.BonType = "BBON"
 		Do ..WS.WSOrdToWWW(WebOrder,$$$WSInternalSecureKey,"Bestel=1;REQ=VHEPN;SHOP=VHEPN")		
-		Set Resultaat.OfferteID = WebOrder.mID
+		Set Resultaat.OfferteIDTBX = WebOrder.mID
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 	 	Set Resultaat.Exceptie = Exception
Index: APPS/EDI/Bestel/impl/BestelService.cls.xml
===================================================================
diff -u -r36437 -r36439
--- APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36437)
+++ APPS/EDI/Bestel/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 36439)
@@ -39,15 +39,21 @@
 	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)
+	#dim ResultaatUNI As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = ..UnishopBesteller.MaakOfferte(Aanvraag)	
 	
-	
 	If $$$Not($IsObject(ResultaatTBX.Exceptie) || $IsObject(ResultaatUNI.Exceptie)){
-		Set:$$$HasLength(ResultaatTBX.OfferteID) ResultaatTBXBestel = ..TandemboxBesteller.BestelOfferte(ResultaatTBX.OfferteID)
-		Set:$$$HasLength(ResultaatUNI.OfferteID) ResultaatUNIBestel = ..UnishopBesteller.BestelOfferte(ResultaatUNI.OfferteID, Aanvraag)
+		If $$$HasLength(ResultaatTBX.OfferteIDTBX) {
+			Set Resultaat.OfferteID = ResultaatTBX.OfferteID
+			Set ResultaatTBXBestel = ..TandemboxBesteller.BestelOfferte(ResultaatTBX.OfferteIDTBX)
+		}
+		If $$$HasLength(ResultaatUNI.OfferteID) {
+			Set Resultaat.OfferteID = ResultaatUNI.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){