Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r38868 -r38871
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38868)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38871)
@@ -13,6 +13,7 @@
 	
 	#dim VerkoopServiceStub As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceStub.IndienMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(..GeefMogelijkeLeverdatums())
+	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 
 	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, OfferteRepositoryStub)
 	
@@ -34,6 +35,7 @@
 	Do OfferteRepositoryStub.IndienMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
 	
 	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do VerkoopServiceMock.VerwachtMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(##class(%ListOfDataTypes).%New())
 
 	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, OfferteRepositoryStub)
@@ -54,6 +56,7 @@
 	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
 	
 	#dim VerkoopServiceStub As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	Do VerkoopServiceStub.IndienMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(##class(%ListOfDataTypes).%New())
 
 	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, OfferteRepositoryMock)
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r38865 -r38871
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 38865)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 38871)
@@ -35,11 +35,12 @@
 
 	#dim OfferteID As %String = ..OfferteRepository.GeefViaExterneId(BereidVoorBestellingRequest.Header.WinkelkarId).GeefID()
 
-	#dim Resultaat As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
 	
-	Set Resultaat.MogelijkeLeverdatums = ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID).%ConstructClone()
+	Set Resultaat.MogelijkeLeverdatums = ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID)
 
+	Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest))
+	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
@@ -53,6 +54,38 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="MaakHoofding">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.Hoofding</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New()
+	
+	Set Hoofding.BestelOpmerking = ""
+	
+	Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New()
+	Set Hoofding.LeveringDetail.Datum = ""
+	Set Hoofding.LeveringDetail.WensDatum = ""
+	
+	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
+	Set Hoofding.LeveringDetail.Adres.Aanspreking =  BereidVoorBestellingRequest.LeverAdres.Aanspreking
+	Set Hoofding.LeveringDetail.Adres.Naam = BereidVoorBestellingRequest.LeverAdres.Naam 
+	Set Hoofding.LeveringDetail.Adres.Toenaam = BereidVoorBestellingRequest.LeverAdres.Toenaam 
+	Set Hoofding.LeveringDetail.Adres.LandCode = BereidVoorBestellingRequest.LeverAdres.Land 
+	Set Hoofding.LeveringDetail.Adres.Woonplaats = BereidVoorBestellingRequest.LeverAdres.Woonplaats 
+	Set Hoofding.LeveringDetail.Adres.Postcode = BereidVoorBestellingRequest.LeverAdres.PostCode  
+	Set Hoofding.LeveringDetail.Adres.Straat = BereidVoorBestellingRequest.LeverAdres.StraatNrBus
+	Set Hoofding.LeveringDetail.Adres.Taal = BereidVoorBestellingRequest.LeverAdres.Taal
+	
+	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
+	Set Hoofding.Referentie.OrderReferentie = ""
+	Set Hoofding.Referentie.KlantOrderNummer = ""
+	Set Hoofding.Referentie.CommissieReferentie = ""
+	
+	Quit Hoofding
+]]></Implementation>
+</Method>
 </Class>