Index: EXT/Optima/CalculPrix/ServiceWeb.cls.xml
===================================================================
diff -u -r32058 -r32076
--- EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(.../ServiceWeb.cls.xml)	(revision 32058)
+++ EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(.../ServiceWeb.cls.xml)	(revision 32076)
@@ -41,14 +41,23 @@
 	
 	Try {
 		#dim EDIAanvraag As APPS.EDI.PrijsBerekening.dto.Aanvraag = RequestVerwerker.Verwerk(Request)
-		#dim EDIResultaat As APPS.EDI.PrijsBerekening.dto.Resultaat = Service.GeefPrijs(EDIAanvraag)
+		
+		Try {
+			#dim EDIResultaat As APPS.EDI.PrijsBerekening.dto.Resultaat = Service.GeefPrijs(EDIAanvraag)
+		} Catch {
+			#dim EDIException As TECH.ObjectUtils.ObjectConverterException = ##class(TECH.ExceptionHandler).Catch("TECH.ObjectUtils.ObjectConverterException")
+			#dim NewException As TECH.Exceptions.Exception = EDIException.ConverteerInputExceptionsNaarOutput()
+			Do ##class(TECH.ExceptionHandler).Throw(NewException)
+		}
+		
 		#dim Response As EXT.Optima.CalculPrix.dto.Response = ResponseVerwerker.Verwerk(EDIResultaat)
 	}
 	Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.ObjectUtils.ObjectConverterException","EXT.Optima.CalculPrix.impl.EdiException")
+		#dim Exception As TECH.ObjectUtils.ObjectConverterException = ##class(TECH.ExceptionHandler).Catch()
 		
 		If Exception.%Extends("TECH.ObjectUtils.ObjectConverterException") {
-			#dim BinaireFoutWaarde As %BigInt = ..GeefBinaireFoutWaarde(Exception)
+			#dim RequestDataException As TECH.Exceptions.Exception = Exception.ConverteerOutputExceptionsNaarInput(RequestVerwerker.GeefConvertData(),Request.Lade.%ClassName($$$True))
+			#dim BinaireFoutWaarde As %BigInt = ..GeefBinaireFoutWaarde(RequestDataException)
 			If BinaireFoutWaarde > 0 {
 				Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(BinaireFoutWaarde_";Ongeldige Kenmerkwaarden")
 			}