Index: WS/UNI/SFS/impl/OrderService.cls.xml
===================================================================
diff -u -r60491 -r60590
--- WS/UNI/SFS/impl/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60491)
+++ WS/UNI/SFS/impl/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60590)
@@ -57,13 +57,9 @@
 	Set ..KlantBestelRef = $$$Trim(KlantBestelRef)
 	Set ..User = ..GeefGebruiker()
 	
-	Do ..Logger.Info("Call IN", ..GeefLogDetail())
-	
 	Do ..ValideerGegevens()
 	#dim ConfirmOrderResult As WS.UNI.SFS.ConfirmOrderResult = ..ConfirmOrderIntern()
 	
-	Do ..Logger.Info("Call OUT", ..GeefLogDetail())
-	
 	Quit ConfirmOrderResult
 ]]></Implementation>
 </Method>
Index: WS/WSClientFault.cls.xml
===================================================================
diff -u
--- WS/WSClientFault.cls.xml	(revision 0)
+++ WS/WSClientFault.cls.xml	(revision 60590)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.WSClientFault">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.Fault</Super>
+
+<Method name="%OnNew">
+<FormalSpec>faultstr:%String,service:%String,detail:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..detail = detail
+	Set ..faultactor = service
+	Set ..faultcode = "FaultClient"
+	Set ..faultstring = faultstr
+	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/TBX/HAEFELE/impl/OrderService.cls.xml
===================================================================
diff -u -r60491 -r60590
--- WS/TBX/HAEFELE/impl/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60491)
+++ WS/TBX/HAEFELE/impl/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60590)
@@ -58,13 +58,9 @@
 	Set ..HaefeleBestelRef = $$$Trim(HaefeleBestelRef)
 	Set ..User = ..GeefGebruiker()
 	
-	Do ..Logger.Info("Call IN", ..GeefLogDetail())
-	
 	Do ..ValideerGegevens()
 	Set ConfirmOrderResult = ..ConfirmOrderIntern()
-	
-	Do ..Logger.Info("Call OUT", ..GeefLogDetail())
-	
+		
 	Quit ConfirmOrderResult
 ]]></Implementation>
 </Method>
@@ -182,8 +178,8 @@
 		Do ..ReturnFaultMessage("EDInr is required")
 	}
 	
-	If $$$Not(..IsValidDeliveryDate(..RequestedDeliveryDate))
-	{	Do ..Logger.Warning("RequestedDeliveryDate not valid", ..GeefLogDetail())
+	If $$$Not(..IsValidDeliveryDate(..RequestedDeliveryDate)) {	
+		Do ..Logger.Warning("RequestedDeliveryDate not valid", ..GeefLogDetail())
 		Do ..ReturnFaultMessage("RequestedDeliveryDate not valid "_..RequestedDeliveryDate) 
 	}
 ]]></Implementation>
@@ -194,7 +190,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	quit:($$$UCase(DeliveryDate) = "ASAP") 1   ; ASAP is altijd zuste :D 
+	quit:($$$UCase(DeliveryDate) = "ASAP") $$$True   ; ASAP is altijd zuste :D 
 	
 	#dim result As %Boolean = $L(DeliveryDate) ; date is required 
 	if result set result = $$IsValidEuropeanDate^vhLib.DateTime($$YYYYMMDD2EuropeanDate^vhLib.DateTime(DeliveryDate)) ;
Index: WS/TBX/HAEFELE/OrderService.cls.xml
===================================================================
diff -u -r60369 -r60590
--- WS/TBX/HAEFELE/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60369)
+++ WS/TBX/HAEFELE/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60590)
@@ -5,7 +5,7 @@
 Web service for Haefele (BE + NL) to confirm orders (TBX + Unishop).  This is the external version.</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebService</Super>
+<Super>vhLib.WebService</Super>
 
 <Parameter name="SERVICENAME">
 <Description>
Index: WS/UNI/SFS/OrderService.cls.xml
===================================================================
diff -u -r60361 -r60590
--- WS/UNI/SFS/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60361)
+++ WS/UNI/SFS/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 60590)
@@ -5,7 +5,7 @@
 Web service for SFS to confirm orders.  This is the external version.</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebService</Super>
+<Super>vhLib.WebService</Super>
 
 <Parameter name="SERVICENAME">
 <Description>