Index: vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml
===================================================================
diff -u -r39524 -r39602
--- vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml	(.../MaakWinkelkarRequest.cls.xml)	(revision 39524)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml	(.../MaakWinkelkarRequest.cls.xml)	(revision 39602)
@@ -8,11 +8,7 @@
 <ReturnType>WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</ReturnType>
 <Implementation><![CDATA[
 	#dim MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).%New()
-	set MaakWinkelkarRequest.Header.KlantId = "K||1000"
-	set MaakWinkelkarRequest.Header.GebruikerId = "K||1000||1"
-	set MaakWinkelkarRequest.Header.GebruikerIp = "127.0.0.1"
-	set MaakWinkelkarRequest.Header.RequestId = "1234"
-	set MaakWinkelkarRequest.Header.SessieId = "4567"
+	Set MaakWinkelkarRequest.Header = ##class(vhTest.Utils.WS.Vhisie4.RequestHeader).StandaardHeader()
 	set MaakWinkelkarRequest.WinkelkarId = 1
 	Quit MaakWinkelkarRequest
 ]]></Implementation>
Index: vhTest/Utils/WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/RequestHeader.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/RequestHeader.cls.xml	(revision 39602)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.RequestHeader">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardHeader">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.RequestHeader</ReturnType>
+<Implementation><![CDATA[
+	set Header = ##class(WS.Vhisie4.RequestHeader).%New()
+	set Header.KlantId = "K||1000"
+	set Header.GebruikerId = "K||1000||1"
+	set Header.GebruikerIp = "127.0.0.1"
+	set Header.RequestId = "1234"
+	set Header.SessieId = "4567"
+	quit Header
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>