Index: APPS/PM/MaatwerkAPI.cls.xml
===================================================================
diff -u -r29059 -r30976
--- APPS/PM/MaatwerkAPI.cls.xml	(.../MaatwerkAPI.cls.xml)	(revision 29059)
+++ APPS/PM/MaatwerkAPI.cls.xml	(.../MaatwerkAPI.cls.xml)	(revision 30976)
@@ -15,6 +15,12 @@
 <ReturnType>APPS.PM.Maatwerk.AfbeeldingService</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefBerekeningService">
+<Abstract>1</Abstract>
+<FormalSpec>Type:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.impl.BerekeningService</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/PM/MaatwerkAPI.cls.xml
===================================================================
diff -u -r29059 -r30976
--- vhTest/Mock/APPS/PM/MaatwerkAPI.cls.xml	(.../MaatwerkAPI.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/PM/MaatwerkAPI.cls.xml	(.../MaatwerkAPI.cls.xml)	(revision 30976)
@@ -24,6 +24,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBerekeningService">
+<FormalSpec>Type:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.impl.BerekeningService</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBerekeningService",Type)
+]]></Implementation>
+</Method>
+
 <Method name="GeefIngegevenKenmerkenConverter">
 <ReturnType>APPS.PM.Maatwerk.IngegevenKenmerkenConverter</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefIngegevenKenmerkenConverter")
Index: APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml
===================================================================
diff -u -r29059 -r30976
--- APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 29059)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 30976)
@@ -5,17 +5,42 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.Maatwerk.impl.BerekeningService</Super>
 
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoomCache">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BerekenHalffabItemsBoom">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing=""</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	#dim Familie As DOM.PM.enu.Familie = IngegevenKenmerken.GeefFamilie()
-	#dim Variant As DOM.PM.enu.Variant = IngegevenKenmerken.GeefVariant()
-	
-	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
-	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext,IngegevenKenmerken,MaatwerkAanpassing)
-	
-	Quit HalffabContext.HalffabItemsBoom
+	If $IsObject(MaatwerkAanpassing) {
+		Quit ..BerekenBoom(IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing)
+	}
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
+	#dim CacheKey As %String = ..BerekenCacheKey(IngegevenKenmerken,BerekeningsSpecificatie,MaatwerkAanpassing)
+	if $$$Not($Length(CacheKey)) || $$$Not(..HalffabItemsBoomCache.IsDefined(CacheKey)) {
+		do ..HalffabItemsBoomCache.SetAt(..BerekenBoom(IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing), CacheKey)	
+   }
+   set HalffabItemsBoom = ..HalffabItemsBoomCache.GetAt(CacheKey)
+   quit HalffabItemsBoom
 ]]></Implementation>
 </Method>
 
@@ -30,6 +55,28 @@
 	Quit KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken, MaatwerkAanpassing)
 ]]></Implementation>
 </Method>
+
+<Method name="BerekenCacheKey">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..IngegevenKenmerkenAPI.GeefHash(IngegevenKenmerken)_"#"_BerekeningsSpecificatie.GeefHash()
+]]></Implementation>
+</Method>
+
+<Method name="BerekenBoom">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim Familie As DOM.PM.enu.Familie = IngegevenKenmerken.GeefFamilie()
+	#dim Variant As DOM.PM.enu.Variant = IngegevenKenmerken.GeefVariant()
+	
+	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
+	do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext,IngegevenKenmerken,MaatwerkAanpassing)
+	quit HalffabContext.HalffabItemsBoom
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/Common/BerekeningsSpecificatie.cls.xml
===================================================================
diff -u -r29059 -r30976
--- DOM/PM/Maatwerk/Calc/Common/BerekeningsSpecificatie.cls.xml	(.../BerekeningsSpecificatie.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Common/BerekeningsSpecificatie.cls.xml	(.../BerekeningsSpecificatie.cls.xml)	(revision 30976)
@@ -53,6 +53,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHash">
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $System.Encryption.Base64Encode(..BerekenDatum_"/"_..BerekenTag_"/"_..Hoeveelheid_"/"_..KlantID_"/"_..Personality.GeefID()_"/"_..BerekeningWijze)
+]]></Implementation>
+</Method>
+
 <Method name="ZetBerekeningWijze">
 <FormalSpec>BerekeningWijze:DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze</FormalSpec>
 <Implementation><![CDATA[	Set ..BerekeningWijze = BerekeningWijze
Index: APPS/PM/impl/MaatwerkAPI.cls.xml
===================================================================
diff -u -r29059 -r30976
--- APPS/PM/impl/MaatwerkAPI.cls.xml	(.../MaatwerkAPI.cls.xml)	(revision 29059)
+++ APPS/PM/impl/MaatwerkAPI.cls.xml	(.../MaatwerkAPI.cls.xml)	(revision 30976)
@@ -14,6 +14,30 @@
 <Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.impl.AfbeeldingService).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBerekeningService">
+<FormalSpec>Type:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.impl.BerekeningService</ReturnType>
+<Implementation><![CDATA[
+	if Type ="P" {
+		set r%BerekeningServiceProduct = $$$LazyLoad(r%BerekeningServiceProduct,##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New())
+		quit r%BerekeningServiceProduct
+	} else {
+		set r%BerekeningServiceKenmerken = $$$LazyLoad(r%BerekeningServiceKenmerken,##class(APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken).%New())
+		quit r%BerekeningServiceKenmerken
+	}
+]]></Implementation>
+</Method>
+
+<Property name="BerekeningServiceProduct">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BerekeningServiceKenmerken">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
 </Class>