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>