Index: EXT/Optima/CalculPrix/ServiceWeb.cls.xml
===================================================================
diff -u -r32100 -r32121
--- EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(.../ServiceWeb.cls.xml)	(revision 32100)
+++ EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(.../ServiceWeb.cls.xml)	(revision 32121)
@@ -33,8 +33,9 @@
 <ReturnType>EXT.Optima.CalculPrix.dto.Response</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())	
 	Quit:(..IsDummyServiceRequest(Request)) ..CalculerTiroirDummy(Request)
-	
+
 	Set RequestVerwerker = ##class(EXT.Optima.CalculPrix.impl.RequestVerwerker).%New()
 	Set Service = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService).%New()
 	Set ResponseVerwerker = ##class(EXT.Optima.CalculPrix.impl.ResponseVerwerker).%New()
@@ -59,11 +60,21 @@
 			#dim RequestDataException As TECH.Exceptions.Exception = Exception.ConverteerOutputExceptionsNaarInput(RequestVerwerker.GeefConvertData(),$classname(Request.Lade))
 			#dim BinaireFoutWaarde As %BigInt = ..GeefBinaireFoutWaarde(RequestDataException)
 			If BinaireFoutWaarde > 0 {
-				Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(BinaireFoutWaarde_";Ongeldige Kenmerkwaarden")
+				Set OptimaException = ##class(TECH.Exceptions.GeneralErrorException).%New(BinaireFoutWaarde_";Ongeldige Kenmerkwaarden")
 			}
 		}
+		ElseIf Exception.%Extends("TECH.Exceptions.GeneralErrorException") {
+			Set OptimaException = ##class(TECH.Exceptions.GeneralErrorException).%New("-1010;Ongekende bug bij VH")
+			Do OptimaException.VoegToeInnerExceptie(Exception)
+		}
+		Else {
+			Set OptimaException = Exception
+		}
 
-		Set Response = ResponseVerwerker.VerwerkExceptie(Exception)
+
+		Do ##class(vhLib.Logger).LogExceptie(OptimaException)
+
+		Set Response = ResponseVerwerker.VerwerkExceptie(OptimaException)
 	}
 
 	Quit Response