Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u -r32077 -r32121
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32077)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32121)
@@ -49,22 +49,26 @@
 		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..EDIAanvraagConvertor.GeefIngegevenKenmerken(EDIAanvraag)
 	} Catch {
 		#dim IKException As TECH.ObjectUtils.ObjectConverterException = ##class(TECH.ExceptionHandler).Catch("TECH.ObjectUtils.ObjectConverterException")
+		Do ##class(vhLib.Logger).LogExceptie(IKException)
 		#dim NewException As TECH.Exceptions.Exception = IKException.ConverteerOutputExceptionsNaarInput(..EDIAanvraagConvertor.GeefConvertData())
 		Do ##class(TECH.ExceptionHandler).Throw(NewException)
 	}
 
+	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..GeefData(EDIAanvraag.KlantID)
+	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefBerekendeMaatwerkLijn(Data.Winkelkar,IngegevenKenmerken,EDIAanvraag.Aantal)
+	
+	Set Resultaat.OfferteID = ""   ; WinkelkarID   ; ??? 
+	Set Resultaat.LijnID = "VH_Fixed"   ;  Lijn.GeefID() ??? 
+	Set Resultaat.KostPrijs = Lijn.GeefTotaalPrijs()
+ /*	
 	Try {
-		#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..GeefData(EDIAanvraag.KlantID)
-		#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefBerekendeMaatwerkLijn(Data.Winkelkar,IngegevenKenmerken,EDIAanvraag.Aantal)
-		
-		Set Resultaat.OfferteID = ""   ; WinkelkarID   ; ??? 
-		Set Resultaat.LijnID = "VH_Fixed"   ;  Lijn.GeefID() ??? 
-		Set Resultaat.KostPrijs = Lijn.GeefTotaalPrijs()
+		// Niks meer.  Code verplaatst naar hierboven, vanaf #dim Data As ... 
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.GeneralErrorException")
 		Set Resultaat.KostPrijs = ""
 		Set Resultaat.Exceptie = Exception
 	}
+ */
 	Quit Resultaat
 ]]></Implementation>
 </Method>
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
Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r32095 -r32121
--- APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 32095)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 32121)
@@ -97,6 +97,7 @@
 	If Exceptions.Count() {
 		set Exception = ##class(TECH.ObjectUtils.ObjectConverterException).%New("IngegevenKenmerken zijn niet volledig ingevuld '"_$classname(Product)_"' to "_$classname(IngegevenKenmerken) )
 		do Exception.VoegToeInnerExcepties(Exceptions)
+		do ##class(vhLib.Logger).LogExceptie(Exception)
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>