Index: vhTest/Mock/APPS/VKP/OfferteService.cls.xml
===================================================================
diff -u -r38997 -r40594
--- vhTest/Mock/APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 38997)
+++ vhTest/Mock/APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 40594)
@@ -146,6 +146,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",Offerte,ProductID,Aantal,PakketReferentie,ProjectReferentie,ExterneId)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetHoofding">
+<FormalSpec>Offerte:%String,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetHoofding",Offerte,Hoofding)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r40581 -r40594
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 40581)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 40594)
@@ -13,15 +13,15 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID,"").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(1)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID").ExactAantalKeer(0)
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
-	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
-	Do OfferteServiceStub.IndienMethodCall("VoegToeProduct").DanDoeNiks()
-	Do OfferteServiceStub.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").DanDoeNiks()
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.IndienMethodCall("VoegToeProduct").DanDoeNiks()
+	Do OfferteServiceMock.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").DanDoeNiks()
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 
@@ -34,7 +34,7 @@
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceStub,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	If ($IsObject(Resultaat.Exceptie)) {
@@ -47,6 +47,7 @@
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
 	Do OfferteRepositoryMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -70,7 +71,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 		
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -79,22 +79,24 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ##class(vhTest.Utils.APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).BelgischeAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
 	
-	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
-	Do OfferteServiceStub.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2)
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(0)
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
 
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub).ExactAantalKeer(0)
 		
-	Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,OfferteServiceStub,,DummyHoofdingDto,,,,OfferteRepositoryMock)
+	Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,OfferteServiceMock,,DummyHoofdingDto,,,,OfferteRepositoryMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(Resultaat.OfferteID,"")
 	Do $$$AssertNotEquals(Resultaat.Exceptie,"")
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
 	Do OfferteRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -105,7 +107,6 @@
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
@@ -124,6 +125,7 @@
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
 
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub).ExactAantalKeer(0)
@@ -146,7 +148,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("LBX", Orderlijnen)
@@ -163,7 +164,8 @@
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
-
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
+	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
@@ -182,7 +184,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("LBX", Orderlijnen)
@@ -201,7 +202,8 @@
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
-
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
+	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
@@ -227,7 +229,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("LBX", Orderlijnen)
@@ -245,7 +246,8 @@
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2)
-
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
+	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
@@ -263,7 +265,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").ExactAantalKeer(0)
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -278,6 +279,8 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(0)
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
+	
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
@@ -291,8 +294,7 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").ExactAantalKeer(0)
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
-
+	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -307,6 +309,8 @@
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(0)
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
+	
 	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock, ProductConverterStub, OfferteServiceMock,,DummyHoofdingDto)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
@@ -320,7 +324,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -339,7 +342,8 @@
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(1)
-
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
+	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
@@ -357,7 +361,6 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID, "").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -378,7 +381,8 @@
 	Do OfferteStub.IndienMethodCall("ZetLeverAdres",$$$ElkeWaarde).DanDoeNiks()
 	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
 	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(3)
-
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(1)
+	
 	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
 	Do OfferteRepositoryMock.VerwachtMethodCall("Bewaar",OfferteStub)
 	
@@ -583,23 +587,24 @@
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.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",DummyHoofdingDto).ExactAantalKeer(0)
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanException($$$DummyException)
 	
-	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
-	Do OfferteServiceStub.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(2)
-	
-	#dim UnishopBesteller As APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceStub,,DummyHoofdingDto)
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.VerwachtMethodCall("VoegToeMaatwerk",OfferteStub,"","","","").ExactAantalKeer(0)
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
+		
+	#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")
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -659,14 +664,14 @@
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID,"").DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID").ExactAantalKeer(1)
 	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
 	Do OfferteStub.IndienMethodCall("GeefID").DanReturn("OfferteID")
-	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceStub.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
-	Do OfferteServiceStub.IndienMethodCall("VoegToeProduct").DanDoeNiks()
-	Do OfferteServiceStub.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","").DanDoeNiks()
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.IndienMethodCall("VoegToeProduct").DanDoeNiks()
+	Do OfferteServiceMock.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","").DanDoeNiks()
+	Do OfferteServiceMock.VerwachtMethodCall("ZetHoofding",OfferteStub,DummyHoofdingDto).ExactAantalKeer(0)
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 	
@@ -679,10 +684,11 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ##class(vhTest.Utils.APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).BelgischeAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen	
 
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceStub,,DummyHoofdingDto,ProductValidatorStub)
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceMock,,DummyHoofdingDto,ProductValidatorStub)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
 	Do ExterneVerkoopServiceMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r40581 -r40594
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 40581)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 40594)
@@ -102,15 +102,15 @@
 		try {
 			Do ..ZetHoofding(Offerte,Aanvraag.Order,Aanvraag.Header.PersonalityID)
 			Do ..VoegToeLijnen(Offerte,Aanvraag.Order)
-			
 			Do ..ZetLeveringInformatie(Aanvraag, Offerte)
-	
-			Do ..ExterneVerkoopService.ZetOfferteHoofding(Offerte.GeefID(),..OfferteHoofding)
+			Do ..OfferteService.ZetHoofding(Offerte,..OfferteHoofding)
+			
 			Do ..OfferteRepository.Bewaar(Offerte)
 			
 			Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.GeefID())
 		} catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(Tools.Wlip).%New(127).String(Exception.ToString())
 			Do ..ExterneVerkoopService.WisOfferte(Offerte.GeefID())
 		 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 		 	Set Resultaat.Exceptie = Exception
@@ -290,8 +290,6 @@
 <Implementation><![CDATA[
 	If Order.GevraagdeLeverdatum=""{
 		Set ..OfferteHoofding.LeveringDetail.Datum = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatum(..WinkelkarRepository.GeefViaID(Offerte.GeefWinkelkarID()))
-		Do ##class(Tools.Wlip).%New(127).String("nu="_##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
-		Do ##class(Tools.Wlip).%New(127).String(..OfferteHoofding.LeveringDetail.Datum)
 	} Else {
 		#dim OmgezetteLeverdatum As %String = $$YYYYMMDD2EuropeanDate^vhLib.DateTime(Order.GevraagdeLeverdatum)
 		If $$IsValidEuropeanDate^vhLib.DateTime(OmgezetteLeverdatum) {
Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r39591 -r40594
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 39591)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 40594)
@@ -298,6 +298,36 @@
 <Implementation><![CDATA[	Quit ..VerpakkingConvertor.Converteer(..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID)))
 ]]></Implementation>
 </Method>
+
+<Method name="ZetHoofding">
+<FormalSpec>Offerte:%String,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
+<Implementation><![CDATA[
+	#Dim LeverAdresConvertor As APPS.common.impl.LeverAdresConvertor = ##class(APPS.common.impl.LeverAdresConvertor).%New()
+	
+	If ($IsObject(Hoofding.LeveringDetail)) {
+		Do:($$$Not(Hoofding.LeveringDetail.Datum = "")) Offerte.ZetLeverDatum(Hoofding.LeveringDetail.Datum)
+		Do:($$$Not(Hoofding.LeveringDetail.WensDatum = "")) Offerte.ZetWensLeverDatum(Hoofding.LeveringDetail.WensDatum)
+		Do:($IsObject(Hoofding.LeveringDetail.Adres)) Offerte.ZetLeverAdres(LeverAdresConvertor.NaarObject(Hoofding.LeveringDetail.Adres)) 	
+	}
+		
+	Set Offerte.BestelOpmerking = ..GeefOpgekuisteTekst(Hoofding.BestelOpmerking)
+	Set Offerte.DocumentReferenties.OrderReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.OrderReferentie)
+	Set Offerte.DocumentReferenties.KlantOrderNummer = ..GeefOpgekuisteTekst(Hoofding.Referentie.KlantOrderNummer)
+	Set Offerte.DocumentReferenties.CommissieReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.CommissieReferentie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOpgekuisteTekst">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()	
+	#dim OpgekuisteTekst As %String = ##class(TECH.StringUtils).Trim(AdminTekstUtils.MaakTekstAdminVriendelijk(Tekst))
+	Set OpgekuisteTekst = ##class(TECH.StringUtils).Replace(OpgekuisteTekst,$C(160),"")
+	Quit OpgekuisteTekst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/OfferteService.cls.xml
===================================================================
diff -u -r38997 -r40594
--- APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 38997)
+++ APPS/VKP/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 40594)
@@ -135,6 +135,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>OfferteID:%String</FormalSpec>
 </Method>
+
+<Method name="ZetHoofding">
+<Abstract>1</Abstract>
+<FormalSpec>Offerte:%String,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
+</Method>
 </Class>
 
 
Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml
===================================================================
diff -u -r40360 -r40594
--- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 40360)
+++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml	(.../VerkoopService.cls.xml)	(revision 40594)
@@ -198,35 +198,12 @@
 <FormalSpec>OfferteID:%String,Hoofding:APPS.EC.dto.Hoofding</FormalSpec>
 <Implementation><![CDATA[
 	#Dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
-	#Dim LeverAdresConvertor As APPS.common.impl.LeverAdresConvertor = ##class(APPS.common.impl.LeverAdresConvertor).%New()
+	Do ..OfferteService.ZetHoofding(Offerte, Hoofding)
 	
-	If ($IsObject(Hoofding.LeveringDetail)) {
-		Do:($$$Not(Hoofding.LeveringDetail.Datum = "")) Offerte.ZetLeverDatum(Hoofding.LeveringDetail.Datum)
-		Do:($$$Not(Hoofding.LeveringDetail.WensDatum = "")) Offerte.ZetWensLeverDatum(Hoofding.LeveringDetail.WensDatum)
-		Do:($IsObject(Hoofding.LeveringDetail.Adres)) Offerte.ZetLeverAdres(LeverAdresConvertor.NaarObject(Hoofding.LeveringDetail.Adres)) 	
-	}
-		
-	Set Offerte.BestelOpmerking = ..GeefOpgekuisteTekst(Hoofding.BestelOpmerking)
-	Set Offerte.DocumentReferenties.OrderReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.OrderReferentie)
-	Set Offerte.DocumentReferenties.KlantOrderNummer = ..GeefOpgekuisteTekst(Hoofding.Referentie.KlantOrderNummer)
-	Set Offerte.DocumentReferenties.CommissieReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.CommissieReferentie)
-	
 	Do Offerte.Save()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOpgekuisteTekst">
-<FormalSpec>Tekst:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()	
-	#dim OpgekuisteTekst As %String = ##class(TECH.StringUtils).Trim(AdminTekstUtils.MaakTekstAdminVriendelijk(Tekst))
-	Set OpgekuisteTekst = ##class(TECH.StringUtils).Replace(OpgekuisteTekst,$C(160),"")
-	Quit OpgekuisteTekst
-]]></Implementation>
-</Method>
-
 <Method name="GeefMogelijkeLeverdatums">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>