Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml
===================================================================
diff -u -r38881 -r41531
--- vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml	(.../BestelWinkelkarRequest.cls.xml)	(revision 38881)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/BestelWinkelkarRequest.cls.xml	(.../BestelWinkelkarRequest.cls.xml)	(revision 41531)
@@ -3,13 +3,20 @@
 <Class name="vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="BestelWinkelkarRequest">
+<Method name="StandaardBestelWinkelkarRequest">
 <ClassMethod>1</ClassMethod>
 <ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</ReturnType>
 <Implementation><![CDATA[
-	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest
 	Set BestelWinkelkarRequest = ##class(WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).%New()
-	
+	Set BestelWinkelkarRequest.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).StandaardProduct()
+	Set BestelWinkelkarRequest.BestelOpmerking = "BestelOpmerking"
+	Set BestelWinkelkarRequest.Leverdatum = $$$CurrentDate
+	Set BestelWinkelkarRequest.WensLeverDatum = "31/12/2020"
+	Set BestelWinkelkarRequest.LeverAdres = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.LeverAdres).Belgisch()
+	Set BestelWinkelkarRequest.Winkelkar.CommissieReferentie = "CommissieReferentie"
+	Set BestelWinkelkarRequest.Winkelkar.Referentie = "OrderReferentie"
+	Set BestelWinkelkarRequest.VerzendingMogelijkheidID = "VerzendingMogelijkheidID"
+	Set BestelWinkelkarRequest.OptieKeuze = "OptieKeuze"
 	Quit BestelWinkelkarRequest
 ]]></Implementation>
 </Method>