Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r38871 -r38872
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38871)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38872)
@@ -3,6 +3,39 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: BereidVoorBestelling zet offerte hoofding met de juiste waarden">
+<Implementation><![CDATA[
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	
+	#dim OfferteRepositoryStub As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	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("GeefMogelijkeLeverdatums",$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
+	
+	set HoofdingMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(..GeefHoofding())
+	
+	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","DummyID", HoofdingMatcher).DanDoeNiks()
+
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, OfferteRepositoryStub)
+	
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ..GeefBereidVoorBestellingRequest()
+	Set BereidVoorBestellingRequest.LeverAdres.Aanspreking = "Aanspreking"
+	Set BereidVoorBestellingRequest.LeverAdres.Naam = "Naam"
+	Set BereidVoorBestellingRequest.LeverAdres.Toenaam = "Toenaam"
+	Set BereidVoorBestellingRequest.LeverAdres.Land = "LandCode" 
+	Set BereidVoorBestellingRequest.LeverAdres.Woonplaats = "Woonplaats" 
+	Set BereidVoorBestellingRequest.LeverAdres.PostCode = "PostCode"  
+	Set BereidVoorBestellingRequest.LeverAdres.StraatNrBus = "Straat"
+	Set BereidVoorBestellingRequest.LeverAdres.Taal = "Taal"
+
+	Do BereidVoorBestelling.BereidVoorBestelling(BereidVoorBestellingRequest)
+
+	Do VerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: BereidVoorBestelling geeft opgehaalde leverdatums in het resultaat">
 <Implementation><![CDATA[
 	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
@@ -87,9 +120,9 @@
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</ReturnType>
 <Implementation><![CDATA[
-	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).BereidVoorBestellingRequest()
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest 
+	Set BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).BereidVoorBestellingRequest()
 	Set BereidVoorBestellingRequest.Header.WinkelkarId = "WinkelkarId"
-
 	Quit BereidVoorBestellingRequest
 ]]></Implementation>
 </Method>
@@ -105,6 +138,36 @@
 	Quit MogelijkeLeverdatums
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHoofding">
+<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 = "Aanspreking"
+	Set Hoofding.LeveringDetail.Adres.Naam = "Naam"
+	Set Hoofding.LeveringDetail.Adres.Toenaam = "Toenaam"
+	Set Hoofding.LeveringDetail.Adres.LandCode = "LandCode"
+	Set Hoofding.LeveringDetail.Adres.Woonplaats = "Woonplaats"
+	Set Hoofding.LeveringDetail.Adres.Postcode = "PostCode"
+	Set Hoofding.LeveringDetail.Adres.Straat = "Straat"
+	Set Hoofding.LeveringDetail.Adres.Taal = "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>