Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35658 -r35673
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35658)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35673)
@@ -76,7 +76,6 @@
 	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)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
@@ -86,10 +85,15 @@
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	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)
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -99,7 +103,6 @@
 	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)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(2)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
@@ -110,10 +113,15 @@
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	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)
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -123,7 +131,6 @@
 	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)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(0)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
@@ -133,10 +140,14 @@
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#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)
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -146,7 +157,6 @@
 	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)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(0)
 
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
@@ -157,10 +167,14 @@
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#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)
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -170,22 +184,26 @@
 	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)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
 	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
 	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
-	Set Aanvraag.Order.Lijnen = Orderlijnen
+	Set Aanvraag.Order.Lijnen = Orderlijnen	
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	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)
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -195,7 +213,6 @@
 	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)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("VoegToeMaatwerk","OfferteID",$$$ElkeWaarde,"","").ExactAantalKeer(3)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
@@ -209,10 +226,15 @@
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("GeefIngegevenKenmerken",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub)
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#dim OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	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)
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r35658 -r35673
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35658)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 35673)
@@ -3,6 +3,11 @@
 <Class name="APPS.EDI.Bestel.impl.BestelService.UnishopBesteller">
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ExterneVerkoopService">
 <Type>APPS.EC.ExterneVerkoopService</Type>
 <Private>1</Private>
@@ -19,14 +24,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ExterneVerkoopService:APPS.EC.ExterneVerkoopService,ProductConverter:APPS.EDI.common.ProductConverter</FormalSpec>
+<FormalSpec>ExterneVerkoopService:APPS.EC.ExterneVerkoopService,ProductConverter:APPS.EDI.common.ProductConverter,OfferteService:APPS.VKP.OfferteService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService,##class(APPS.EC.impl.ExterneVerkoopService).%New())
-	set ..ProductConverter = $$$Inject(ProductConverter,##class(APPS.EDI.common.impl.ProductConverter).%New())
+	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService,##class(APPS.EC.impl.ExterneVerkoopService).%New())
+	Set ..ProductConverter = $$$Inject(ProductConverter,##class(APPS.EDI.common.impl.ProductConverter).%New())
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -113,7 +119,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ProductConverter.GeefIngegevenKenmerken(Lijn.Product,..Aanvraag.KlantID,..Aanvraag.PersonalityID)
-	do ..ExterneVerkoopService.VoegToeMaatwerk(OfferteID,IngegevenKenmerken,Lijn.Aantal,Lijn.Referentie)
+	Do ..OfferteService.VoegToeMaatwerk(..OfferteService.GeefOfferte(OfferteID),IngegevenKenmerken,Lijn.Aantal,Lijn.Referentie)
 ]]></Implementation>
 </Method>
 </Class>