Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r38896 -r38900
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38896)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38900)
@@ -53,6 +53,8 @@
 	#dim BestelWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(VerkoopServiceMock, OfferteRepositoryStub, LegacyPartijAPIStub)
 	
 	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ..GeefBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.BestelOpmerking = "BestelOpmerking"
+	Set BestelWinkelkarRequest.Leverdatum = ..GeefHuidigeDatum()
 	Set BestelWinkelkarRequest.LeverAdres.Aanspreking = "Aanspreking"
 	Set BestelWinkelkarRequest.LeverAdres.Naam = "Naam"
 	Set BestelWinkelkarRequest.LeverAdres.Toenaam = "Toenaam"
@@ -61,6 +63,7 @@
 	Set BestelWinkelkarRequest.LeverAdres.PostCode = "PostCode"  
 	Set BestelWinkelkarRequest.LeverAdres.StraatNrBus = "Straat"
 	Set BestelWinkelkarRequest.LeverAdres.Taal = "Taal"
+	Set BestelWinkelkarRequest.Referentie = "OrderReferentie"
 
 	Do BestelWinkelkar.BestelWinkelkar(BestelWinkelkarRequest)
 
@@ -125,11 +128,11 @@
 <Implementation><![CDATA[
 	#dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New()
 	
-	Set Hoofding.BestelOpmerking = ""
+	Set Hoofding.BestelOpmerking = "BestelOpmerking"
 	
 	Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New()
 	Set Hoofding.LeveringDetail.Datum = ""
-	Set Hoofding.LeveringDetail.WensDatum = ""
+	Set Hoofding.LeveringDetail.WensDatum = ..GeefHuidigeDatum()
 	
 	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
 	Set Hoofding.LeveringDetail.Adres.Aanspreking = "Aanspreking"
@@ -142,12 +145,19 @@
 	Set Hoofding.LeveringDetail.Adres.Taal = "Taal"
 	
 	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
-	Set Hoofding.Referentie.OrderReferentie = ""
+	Set Hoofding.Referentie.OrderReferentie = "OrderReferentie"
 	Set Hoofding.Referentie.KlantOrderNummer = ""
 	Set Hoofding.Referentie.CommissieReferentie = ""
 	Quit Hoofding
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate()
+]]></Implementation>
+</Method>
 </Class>