Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r51454 -r57792
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 51454)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 57792)
@@ -107,7 +107,10 @@
 		If ($Length(Variant) = 0) {
 			Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Gelieve bij Verpakking een variant te selecteren.")
 		} Else {
-			Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Probleem bij ophalen van Halffabrikaten specificaties. Gebruikte gegevens: Familie: '" _ Familie _ "'; Variant: '" _ Variant _ "'")
+			Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(
+				"Probleem bij ophalen van Halffabrikaten specificaties. Gebruikte gegevens: Familie: '" _ Familie 
+				_ "'; Variant: '" _ Variant _ "'; BerekeningWijze: '" _ BerekeningsSpecificatie.BerekeningWijze 
+				_ "'; BerekenTag: '" _ HalffabRepositoryInput.BerekenTag _ "'; BerekenDatum: '" _ HalffabRepositoryInput.BerekenTag _ "'")
 		}
 		
 		Do Exception.VoegToeInnerExceptie(OorspronkelijkeException)
Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml
===================================================================
diff -u -r31600 -r57792
--- DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml	(.../HalffabRepository.cls.xml)	(revision 31600)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml	(.../HalffabRepository.cls.xml)	(revision 57792)
@@ -68,7 +68,8 @@
 		{
 			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere HalffabSpecInfo objecten gevonden"))
 		}
-		Set HalffabSpec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%OpenId(HalffabSpecInfoID).GeefHalffabSpec()
+		Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%OpenId(HalffabSpecInfoID)
+		Set HalffabSpec = HalffabSpecInfo.GeefHalffabSpec()
 	}
 	Else
 	{
Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml
===================================================================
diff -u -r31600 -r57792
--- DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml	(.../HalffabSpecInfo.cls.xml)	(revision 31600)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabSpecInfo.cls.xml	(.../HalffabSpecInfo.cls.xml)	(revision 57792)
@@ -74,7 +74,17 @@
 
 <Method name="GeefHalffabSpec">
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</ReturnType>
-<Implementation><![CDATA[	Quit $zobjclassmethod(..HalffabSpec,"%New")
+<Implementation><![CDATA[
+	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec
+	Try {
+		Set HalffabSpec = $zobjclassmethod(..HalffabSpec,"%New")
+	} Catch {
+		#dim OorspronkelijkeException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("New van HalffabSpec klasse '" _ ..HalffabSpec _ "' is mislukt.")
+		Do Exception.VoegToeInnerExceptie(OorspronkelijkeException)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Quit HalffabSpec
 ]]></Implementation>
 </Method>