Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r38273 -r38342
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 38273)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 38342)
@@ -22,6 +22,22 @@
 <Default>http://vhisie.vanhoecke.be/V4</Default>
 </Parameter>
 
+<Property name="HeaderValidator">
+<Type>WSimpl.Vhisie4.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerkoopHistoriek">
 <Description><![CDATA[
 Geeft een lijst van de laatste jaar gekochte producten die tot het assortiment behoren (bepaalt door GenerationID)
@@ -35,7 +51,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request)
 	Quit bl.GeefResponse()
 ]]></Implementation>
@@ -55,7 +71,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefRecenteOrdersResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeOrdersOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId)
 	Quit bl.GeefData()
 ]]></Implementation>
@@ -75,7 +91,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefRecenteOrdersResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeOrdersOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId)
 	Quit bl.GeefData()
 ]]></Implementation>
@@ -97,7 +113,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId,Request.Periode)
 	Quit bl.GeefData()
 ]]></Implementation>
@@ -119,7 +135,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOffertesResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId,Request.Periode)
 	Quit bl.GeefData()
 ]]></Implementation>
@@ -130,7 +146,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeFacturenOphalen).%New(Request)
 	Quit bl.GeefResponse()
 ]]></Implementation>
@@ -141,6 +157,7 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefDocumentResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New(Request)
 	quit bl.GeefResponse()
 ]]></Implementation>
@@ -151,13 +168,6 @@
 <Implementation><![CDATA[	quit $order(^AX.Uitgaand.EC.Kla7BD6.KlantenD(""),-1)
 ]]></Implementation>
 </Method>
-
-<Method name="ValidateSessie">
-<FormalSpec>SessionID:%String,KlantID:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	;TRAP indien sessie niet OK
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: WS/Vhisie4/KlantProduct/KlantProductService.cls.xml
===================================================================
diff -u -r38278 -r38342
--- WS/Vhisie4/KlantProduct/KlantProductService.cls.xml	(.../KlantProductService.cls.xml)	(revision 38278)
+++ WS/Vhisie4/KlantProduct/KlantProductService.cls.xml	(.../KlantProductService.cls.xml)	(revision 38342)
@@ -13,21 +13,33 @@
 <Default>http://vhisie.vanhoecke.be/V4</Default>
 </Parameter>
 
+<Property name="HeaderValidator">
+<Type>WSimpl.Vhisie4.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantProductReferenties">
 <FormalSpec>Request:WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
+	
 	Set bl=##class(AX.Uitgaand.EC.Data.impl.PakketRefOphalen).%New(Request)
 	Quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
-
-<Method name="ValidateSessie">
-<FormalSpec>SessionID:%String,KlantID:%String</FormalSpec>
-<Private>1</Private>
-</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/HeaderValidator.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/HeaderValidator.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/HeaderValidator.cls.xml	(revision 38342)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.HeaderValidator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..VerkoopApi = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ValidateHeader">
+<FormalSpec>Header:WS.Vhisie4.RequestHeader</FormalSpec>
+<Implementation><![CDATA[	do ..ValidateKlant(Header.KlantId)
+]]></Implementation>
+</Method>
+
+<Method name="ValidateKlant">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VanHoeckeKlantId As %String = "K||"_KlantId
+	If $$$Not(..VerkoopApi.BestaatKlant(VanHoeckeKlantId)) {
+		do ##class(TECH.Exceptions.InvalidInputException).Throw("Klant met id '"_KlantId_"' bestaat niet")	
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r37953 -r38342
--- WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37953)
+++ WS/Vhisie4/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 38342)
@@ -89,10 +89,28 @@
 <Default>http://www.vanhoecke.be/EC/Vhisie4/Winkelkar</Default>
 </Parameter>
 
+<Property name="HeaderValidator">
+<Type>WSimpl.Vhisie4.HeaderValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MaakWinkelkar">
 <FormalSpec>MaakWinkelkarRequest:WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(MaakWinkelkarRequest.Header)
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -112,6 +130,8 @@
 <ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(BereidVoorBestellingRequest.Header)
+	
 	set Response = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
 	
 	Do Response.MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 1 )
@@ -173,6 +193,8 @@
 <ReturnType>WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(HerberekenMaatwerkRequest.Header)
+	
 	Set Response = ##class(WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse).%New()
 	Do Response.MeldingenAanGebruiker.Insert( "De promotie is voorbij." )
 	
@@ -201,6 +223,8 @@
 <ReturnType>WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(BewaarMaatwerkLijnRequest.Header)
+
 	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse).%New()
 	Set Resultaat.EenheidPrijs = 123.45
 	Set Resultaat.TotaalPrijs = 246.91
@@ -218,7 +242,9 @@
 <Method name="BewaarProductLijn">
 <FormalSpec>BewaarProductLijnRequest:WS.Vhisie4.Winkelkar.BewaarProductLijnRequest</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(BewaarProductLijnRequest.Header)
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -235,7 +261,9 @@
 <Method name="VerwijderLijn">
 <FormalSpec>VerwijderLijnRequest:WS.Vhisie4.Winkelkar.VerwijderLijnRequest</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(VerwijderLijnRequest.Header)
+	Quit
 ]]></Implementation>
 </Method>
 </Class>