Index: APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml
===================================================================
diff -u -r41800 -r42823
--- APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 41800)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 42823)
@@ -10,27 +10,67 @@
 <Private>1</Private>
 </Property>
 
-<Property name="HalffabItemsBoomCache">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
-<Collection>array</Collection>
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="CachingActief">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="CacheGrootte">
+<Type>%Integer</Type>
+<InitialExpression>100</InitialExpression>
+<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()
+	Set ..Logger = ##class(vhLib.Logger).%New("")
+	Set:('$IsObject($Get(%HalffabItemsBoomCache))) %HalffabItemsBoomCache = ##class(%ArrayOfObjects).%New()
+	Set:(""=$Get(%CachingHalfFabBomenActief)) %CachingHalfFabBomenActief = "1"
 	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[	Quit ..BerekenBoom(IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing)
+<Implementation><![CDATA[
+	#Dim Boom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom;
+	
+	If $IsObject(MaatwerkAanpassing) {
+		Set Boom = ..BerekenBoom(IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing)
+		Do ..LogBoom("Met MaatwerkAanpassing", IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing, Boom)
+	} ElseIf %CachingHalfFabBomenActief {
+		#Dim CacheKey = ..BerekenCacheKey(IngegevenKenmerken, BerekeningsSpecificatie, )
+		If %HalffabItemsBoomCache.IsDefined(CacheKey)  {
+			Set Boom = %HalffabItemsBoomCache.GetAt(CacheKey)
+			Do ..LogBoom("Gevonden in de cache", IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing, Boom, CacheKey)
+		} Else {
+			Set Boom = ..BerekenBoom(IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing)
+			If %HalffabItemsBoomCache.Count() < ..CacheGrootte {
+			 	Do %HalffabItemsBoomCache.SetAt(Boom, CacheKey)
+				Do ..LogBoom("Toegevoegd aan cache (nr "_%HalffabItemsBoomCache.Count()_")", 
+						IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing, Boom, CacheKey)
+			} Else {
+				Do ..LogBoom("Cache volzet", IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing, Boom, CacheKey)
+			}
+		}
+	} Else {
+		Set Boom = ..BerekenBoom(IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing)
+		Do ..LogBoom("Cache niet actief", IngegevenKenmerken, BerekeningsSpecificatie, MaatwerkAanpassing, Boom)
+	}
+	
+	Quit Boom
 ]]></Implementation>
 </Method>
 
@@ -50,7 +90,7 @@
 <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><![CDATA[	quit ..IngegevenKenmerkenAPI.GeefCanonischeWaarde(IngegevenKenmerken) _ "#" _ BerekeningsSpecificatie.GeefHash()
 ]]></Implementation>
 </Method>
 
@@ -67,6 +107,27 @@
 	quit HalffabContext.HalffabItemsBoom
 ]]></Implementation>
 </Method>
+
+<Method name="ClearCache">
+<Implementation><![CDATA[	Do %HalffabItemsBoomCache.Clear()
+]]></Implementation>
+</Method>
+
+<Method name="ActiveerCache">
+<Implementation><![CDATA[	Set %CachingHalfFabBomenActief="1"
+]]></Implementation>
+</Method>
+
+<Method name="DesactiveerCache">
+<Implementation><![CDATA[	Set %CachingHalfFabBomenActief="0"
+]]></Implementation>
+</Method>
+
+<Method name="LogBoom">
+<FormalSpec>CachingInfo:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing="",Boom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,CacheKey:%String=""</FormalSpec>
+<Implementation><![CDATA[	Do ..Logger.Debug("BerekenBoom", CachingInfo _" ; CacheKey:'"_CacheKey _"'; Boom:'"_Boom _"'; IK:'"_IngegevenKenmerken _"'; IK-ID:'"_IngegevenKenmerken.GeefID() _"'; Tag:'"_BerekeningsSpecificatie.GeefBerekenTag() _"'; Datum:'"_BerekeningsSpecificatie.GeefBerekenDatum() _"'; BerekeningWijze:'"_BerekeningsSpecificatie.GeefBerekeningWijze() _"' ; Cache-tabel:'"_%HalffabItemsBoomCache _"'")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r30286 -r42823
--- vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 30286)
+++ vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 42823)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhTest/Mock/APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml
===================================================================
diff -u -r37975 -r42823
--- vhTest/Mock/APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 37975)
+++ vhTest/Mock/APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 42823)
@@ -3,12 +3,16 @@
 <Class name="vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.Maatwerk.impl.BerekeningServiceIngegevenKenmerken,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="ActiveerCache">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ActiveerCache")
+]]></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>
@@ -22,6 +26,22 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BerekenKostItemsBoom",IngegevenKenmerken,HalffabItemsBoom,BerekeningsSpecificatie,MaatwerkAanpassing)
 ]]></Implementation>
 </Method>
+
+<Method name="ClearCache">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ClearCache")
+]]></Implementation>
+</Method>
+
+<Method name="DesactiveerCache">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("DesactiveerCache")
+]]></Implementation>
+</Method>
+
+<Method name="LogBoom">
+<FormalSpec>CachingInfo:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing="",Boom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,CacheKey:%String=""</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("LogBoom",CachingInfo,IngegevenKenmerken,BerekeningsSpecificatie,MaatwerkAanpassing,Boom,CacheKey)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml
===================================================================
diff -u -r37975 -r42823
--- vhTest/Fake/APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 37975)
+++ vhTest/Fake/APPS/PM/Maatwerk/impl/BerekeningServiceIngegevenKenmerken.cls.xml	(.../BerekeningServiceIngegevenKenmerken.cls.xml)	(revision 42823)
@@ -14,12 +14,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ActiveerCache">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="BerekenKostItemsBoom">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing=""</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostItem</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="ClearCache">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="DesactiveerCache">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="LogBoom">
+<FormalSpec>CachingInfo:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,MaatwerkAanpassing:DOM.PM.Maatwerk.Aanpassing.dto.MaatwerkAanpassing,Boom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,CacheKey:%String=""</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>