Index: DOM/PM/impl/MaatwerkCalcAPI.cls.xml
===================================================================
diff -u -r30445 -r30620
--- DOM/PM/impl/MaatwerkCalcAPI.cls.xml	(.../MaatwerkCalcAPI.cls.xml)	(revision 30445)
+++ DOM/PM/impl/MaatwerkCalcAPI.cls.xml	(.../MaatwerkCalcAPI.cls.xml)	(revision 30620)
@@ -8,13 +8,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
+	set ..IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -119,13 +125,26 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Hoeveelheid:%Integer=1,KlantID:DOM.VKP.VanHoeckeKlantID=##class(DOM.VKP.enu.Klant).Halux(),Personality:DOM.common.impl.Personality=##class(DOM.common.VanHoeckePersonality).Instance()</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(Hoeveelheid,KlantID,Personality)
-	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
-	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
-	Quit HalffabContext.HalffabItemsBoom
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+	#dim CacheKey As %String = ..IngegevenKenmerkenAPI.GeefHash(IngegevenKenmerken)_"#"_Hoeveelheid_"#"_KlantID_"#"_Personality.GeefID()
+	if $$$Not(..HalffabItemsBoomCache.IsDefined(CacheKey)) {
+		#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie(Hoeveelheid,KlantID,Personality)
+		#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
+		Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
+		set HalffabItemsBoom = HalffabContext.HalffabItemsBoom
+		do ..HalffabItemsBoomCache.SetAt(HalffabItemsBoom, CacheKey)	
+   }
+   set HalffabItemsBoom = ..HalffabItemsBoomCache.GetAt(CacheKey)
+   quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
 
+<Property name="HalffabItemsBoomCache">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefKostItemsBoom">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Hoeveelheid:%Integer=1,KlantID:DOM.VKP.VanHoeckeKlantID=##class(DOM.VKP.enu.Klant).Halux(),Personality:DOM.common.impl.Personality=##class(DOM.common.VanHoeckePersonality).Instance()</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</ReturnType>
Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r30353 -r30620
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 30353)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 30620)
@@ -86,11 +86,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHash">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..BerekenHash(..GeefCanonischeWaarde(IngegevenKenmerken))
+]]></Implementation>
+</Method>
+
 <Method name="GeefIKIDHash">
 <FormalSpec>CanonischeWaarde:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash</ReturnType>
 <Implementation><![CDATA[
-	#dim Hash As %String = $System.Encryption.Base64Encode($System.Encryption.MD5Encode(CanonischeWaarde))
+	#dim Hash As %String = ..BerekenHash(CanonischeWaarde)
 	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(Hash)
 	If ('$IsObject(IKIDHash))
 	{
@@ -100,6 +107,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenHash">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $System.Encryption.Base64Encode($System.Encryption.MD5Encode(CanonischeWaarde))
+]]></Implementation>
+</Method>
+
 <Method name="GeefCanonischeWaarde">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>