Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r40112 -r40113
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 40112)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 40113)
@@ -71,9 +71,14 @@
 	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
-	Set Aanvraag.Order.Lijnen = Orderlijnen	
+	Set Aanvraag.Order.Lijnen = Orderlijnen
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2)
 		
-	Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,,,DummyHoofdingDto)
+	Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,OfferteServiceMock,,DummyHoofdingDto)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(Resultaat.OfferteID,"")
@@ -529,8 +534,12 @@
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanException($$$DummyException)
 	
-	Set WebOrder = ##class(WS.TBX.Order).%New()
-	#dim UnishopBesteller As APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,,,DummyHoofdingDto)
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2)
+	
+	#dim UnishopBesteller As APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceMock,,DummyHoofdingDto)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving(),"Ongeldige data UNIShopBesteller op lijn(en)  2 3")
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r40112 -r40113
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 40112)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 40113)
@@ -97,18 +97,19 @@
 	
 	Do ..MaakLijnenIterator()
 	If ..LijnenIterator.HasNext() {	
-		#dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
+		#dim OfferteDto As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
+		#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteDto.OfferteID)	
 		
 		try {
-			Do ..ZetHoofding(Offerte,Aanvraag.Order,Aanvraag.Header.PersonalityID)
-			Do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
+			Do ..ZetHoofding(OfferteDto,Aanvraag.Order,Aanvraag.Header.PersonalityID)
+			Do ..VoegToeLijnen(OfferteDto.OfferteID,Aanvraag.Order)
 			
-			Do ..ZetLeveringInformatie(Aanvraag, Offerte)
+			Do ..ZetLeveringInformatie(Aanvraag, OfferteDto)
 			
-			Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
+			Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(OfferteDto.OfferteID)
 		} catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			do ..ExterneVerkoopService.WisOfferte(Offerte.OfferteID)
+			do ..ExterneVerkoopService.WisOfferte(OfferteDto.OfferteID)
 		 	set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 		 	set Resultaat.Exceptie = Exception
 		}