Index: vhUnitTest/EXT/Optima/CalculPrix/impl/ResponseVerwerker/Verwerk/Test.cls.xml
===================================================================
diff -u -r31917 -r31930
--- vhUnitTest/EXT/Optima/CalculPrix/impl/ResponseVerwerker/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 31917)
+++ vhUnitTest/EXT/Optima/CalculPrix/impl/ResponseVerwerker/Verwerk/Test.cls.xml	(.../Test.cls.xml)	(revision 31930)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.EXT.Optima.CalculPrix.impl.ResponseVerwerker.Verwerk.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="TestCorrectResultaat">
 <Implementation><![CDATA[
 	#dim DummyKostPrijs As Numeric = 99.99
 	
@@ -19,6 +19,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestResultaatMetExceptie">
+<Implementation><![CDATA[
+	Set ResponseVerwerker = ##class(EXT.Optima.CalculPrix.impl.ResponseVerwerker).%New()
+	Set EDIResultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
+	Set EDIResultaat.Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("-1010;Ongekende bug bij VH")
+
+	#dim Response As EXT.Optima.CalculPrix.dto.Response = ResponseVerwerker.VerwerkExceptie(EDIResultaat.Exceptie)
+	
+	Set VerwachteResponse = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
+	Set VerwachteResponse.KostPrijs = ""
+	Set VerwachteResponse.ErrorCode = -1010
+	Do ..AssertResponse(Response,VerwachteResponse)
+]]></Implementation>
+</Method>
+
 <Method name="AssertResponse">
 <FormalSpec>Response:EXT.Optima.CalculPrix.dto.Response,VerwachteResponse:EXT.Optima.CalculPrix.dto.Response</FormalSpec>
 <Implementation><![CDATA[	Do $$$AssertObject(Response,VerwachteResponse)
Index: EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml
===================================================================
diff -u -r31868 -r31930
--- EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml	(.../ResponseVerwerker.cls.xml)	(revision 31868)
+++ EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml	(.../ResponseVerwerker.cls.xml)	(revision 31930)
@@ -13,6 +13,17 @@
 	Quit Response
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkExceptie">
+<FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
+<ReturnType>EXT.Optima.CalculPrix.dto.Response</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
+	Set Response.KostPrijs = ""
+	Set Response.ErrorCode = $P(Exceptie.GeefOmschrijving(),";",1)
+	Quit Response
+]]></Implementation>
+</Method>
 </Class>