Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r1425 -r1435
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1425)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1435)
@@ -69,7 +69,7 @@
 		if Error.ErrorCode["<ECODETRAP>" { set Error.ErrorCode2=$ECODE }
 		Set Error.StackTrace = ##class(TECH.Process).GeefStackTrace(1)
 		Set Error.ErrorCode=$ZERROR
-		Set Error.LogLevel = "E"
+		Set Error.LogLevel = ##class(vhLib.enu.LogNiveau).Error()
 	}
 	
 	Set Error.Device=$I
@@ -119,14 +119,13 @@
 <FormalSpec>Error:TECH.Error.dto.ErrorInfo</FormalSpec>
 <Implementation><![CDATA[
 	#dim ErrorInfoStream As %GlobalCharacterStream = ..GeefErroInfoAlsStream(Error)
-	#dim Info As %String = ErrorInfoStream.Read(32000)
 	#dim FoutLabel As %String = $S(Error.Label="":"NoLabel",1:Error.Label)
 	
 	Set Logger=##class(vhLib.Logger).%New("TECH.Error")
-	If Error.LogLevel = "E" {
-		Do Logger.Error(FoutLabel, Info)
+	If Error.LogLevel = ##class(vhLib.enu.LogNiveau).Error() {
+		Do Logger.Error(FoutLabel, ErrorInfoStream)
 	}Else{
-		Do Logger.Warning(FoutLabel, Info)
+		Do Logger.Warning(FoutLabel, ErrorInfoStream)
 	}
 ]]></Implementation>
 </Method>
@@ -155,11 +154,11 @@
 <Method name="GeefLogLevel">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Exceptie:TECH.IException</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>vhLib.enu.LogNiveau</ReturnType>
 <Implementation><![CDATA[
-	#dim LogLevel As %String = "E"
+	#dim LogLevel As vhLib.enu.LogNiveau = ##class(vhLib.enu.LogNiveau).Error()
 	If Exceptie.%Extends(##class(TECH.Exceptions.InvalidUserInputException).%ClassName(1)) {
-		Set LogLevel = "W"
+		Set LogLevel = ##class(vhLib.enu.LogNiveau).Warning()
 	}
 	Quit LogLevel
 ]]></Implementation>
@@ -203,7 +202,7 @@
 	}	
 	
 	#dim WebServiceRequestStream As %Stream = ##class(vhLib.WebServiceLogger.LogService).GeefWebServiceRequestStream()
-	If $Data(WebServiceRequestStream) && $IsObject(WebServiceRequestStream) && ('WebServiceRequestStream.AtEnd) {
+	If ..HeeftInhoudWebServiceRequestStream(WebServiceRequestStream) {
 		Do Body.WriteLine()
 		Do Body.WriteLine("Webservice Request :")
 		Do Body.WriteLine("--------------------")
@@ -214,6 +213,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftInhoudWebServiceRequestStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WebServiceRequestStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftInhoud As %Boolean = $IsObject($G(WebServiceRequestStream)) 
+	If HeeftInhoud {
+		Do WebServiceRequestStream.Rewind()
+		Set HeeftInhoud = ('WebServiceRequestStream.AtEnd)
+	}
+	Quit HeeftInhoud
+]]></Implementation>
+</Method>
+
 <Method name="GetMailAddress">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Error:TECH.Error.dto.ErrorInfo</FormalSpec>
Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r1425 -r1435
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1425)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1435)
@@ -80,49 +80,49 @@
 <Method name="Warning">
 <FormalSpec>Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("W", .Actie, .Detail , blnSendMail )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Warining(), .Actie, .Detail , blnSendMail )
 ]]></Implementation>
 </Method>
 
 <Method name="WarningMail">
 <FormalSpec>Actie:%String,Detail:%String</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("W", .Actie, .Detail , 1 )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Warining(), .Actie, .Detail , 1 )
 ]]></Implementation>
 </Method>
 
 <Method name="Error">
 <FormalSpec>Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("E",.Actie, .Detail , blnSendMail )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Error(),.Actie, .Detail , blnSendMail )
 ]]></Implementation>
 </Method>
 
 <Method name="ErrorMail">
 <FormalSpec>Actie:%String,Detail:%String</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("E",.Actie, .Detail , 1 )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Error(),.Actie, .Detail , 1 )
 ]]></Implementation>
 </Method>
 
 <Method name="Debug">
 <FormalSpec>Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("D",.Actie, .Detail , blnSendMail )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Debug(),.Actie, .Detail , blnSendMail )
 ]]></Implementation>
 </Method>
 
 <Method name="InfoMail">
 <FormalSpec>Actie:%String,Detail:%String</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("I",.Actie, .Detail , 1 )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Information(),.Actie, .Detail , 1 )
 ]]></Implementation>
 </Method>
 
 <Method name="Info">
 <FormalSpec>Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[	Quit ..AddToLog("I",.Actie, .Detail , blnSendMail )
+<Implementation><![CDATA[	Quit ..AddToLog(##class(vhLib.enu.LogNiveau).Information(),.Actie, .Detail , blnSendMail )
 ]]></Implementation>
 </Method>
 
Index: TECH/Error/dto/ErrorInfo.cls.xml
===================================================================
diff -u -r1425 -r1435
--- TECH/Error/dto/ErrorInfo.cls.xml	(.../ErrorInfo.cls.xml)	(revision 1425)
+++ TECH/Error/dto/ErrorInfo.cls.xml	(.../ErrorInfo.cls.xml)	(revision 1435)
@@ -89,7 +89,7 @@
 </Property>
 
 <Property name="LogLevel">
-<Type>%String</Type>
+<Type>vhLib.enu.LogNiveau</Type>
 <Parameter name="MAXLEN" value="1"/>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>