Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u -r3863 -r3868
--- vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 3863)
+++ vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 3868)
@@ -77,12 +77,49 @@
 		Set fault.detail=detail
 	}
 	
-	Do ##class(vhLib.Logger).%New("").Error("OnInternalFault", ..GeefSoapFaultInfo(fault, $Get(status), $Get(Classname)))
+	// Eerst de oorspronkelijke exception opvangen, i.e. diegene die de SoapFault heeft getriggered.  
+	// Dit gebeurt ook halvelings hierboven reeds, maar willen die werking niet wijzigen/verstoren., dus daarom gebeurt de Catch() hier pas. 
+	#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	
+	Do ..LogSoapInternalFault(fault, $Get(status), $Get(Classname), GecatchteException)
 ]]></Implementation>
 </Method>
 
+<Method name="LogSoapInternalFault">
+<FormalSpec>fault:%SOAP.Fault,status:%Status,Classname:%String,GecatchteException:TECH.Exceptions.Exception=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		If (..SoapFaultAlsWarningLoggen(fault)) {
+			Do ##class(vhLib.Logger).%New("").Warning("OnInternalFault", ..GeefSoapFaultInfo(fault, status, Classname, GecatchteException) )
+		}
+		Else {
+			Do ##class(vhLib.Logger).%New("").Error(  "OnInternalFault", ..GeefSoapFaultInfo(fault, status, Classname, GecatchteException) )
+		}
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do Exception.VoegToeExtraInfo("Er is een error opgetreden in method LogSoapInternalFault()")
+		Do ##class(vhLib.Logger).%New("").ErrorMail("OnInternalFault Error" , Exception.ToStream() )
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SoapFaultAlsWarningLoggen">
+<Description>
+In sommige situaties moet de SoapFault niet als error gelogd worden, maar als warning.</Description>
+<FormalSpec>fault:%SOAP.Fault</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsSoapFaultUserInputValidatie As %Boolean = (##class(TECH.StringUtils).Contains($$$LCase(fault.detail), "<zerror>`1005:invaliduserinput"))
+	
+	Quit IsSoapFaultUserInputValidatie   ; OR ...
+]]></Implementation>
+</Method>
+
 <Method name="GeefSoapFaultInfo">
-<FormalSpec>fault:%SOAP.Fault,status:%Status,Classname:%String</FormalSpec>
+<FormalSpec>fault:%SOAP.Fault,status:%Status,Classname:%String,GecatchteException:TECH.Exceptions.Exception=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Stream</ReturnType>
 <Implementation><![CDATA[
@@ -101,6 +138,10 @@
 		Do Stream.WriteLine("XmlExport van de SoapFault: " _ $$ParseStatus^vhLib(sc))
 	}
 	
+	If $IsObject(GecatchteException) {
+		Do Stream.CopyFrom(GecatchteException.ToStream())
+	}
+	
 	Quit Stream
 ]]></Implementation>
 </Method>