Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml
===================================================================
diff -u -r29059 -r29642
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml	(.../HFBodemOndersteuningv001.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml	(.../HFBodemOndersteuningv001.cls.xml)	(revision 29642)
@@ -7,11 +7,8 @@
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim Aantal As %Decimal = 1
-	If IngegevenKenmerken.InterneBreedte < 300 { Set Aantal = 0 }
-	If ((IngegevenKenmerken.InterneBreedte > 800) && (IngegevenKenmerken.InterneBreedte <= 1200)) { Set Aantal = 2 }
-	If (IngegevenKenmerken.InterneBreedte > 1200) { Set Aantal = 3 }
-	Set HalffabItem.Aantal = Aantal
+	set BodemOndersteuningBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New()
+	Set HalffabItem.Aantal = BodemOndersteuningBepaler.Bepaal(IngegevenKenmerken)
 	If (IngegevenKenmerken.IsBinnenlade) {
 		Set HalffabItem.OpnemenInEindproduct = 1
 		Set HalffabItem.BuilderBepaaltOpnemenInEindproduct = 1
Index: vhTest/Mock/DOM/PM/Maatwerk/Lade/BodemOndersteuningAantalBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/Lade/BodemOndersteuningAantalBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/Lade/BodemOndersteuningAantalBepaler.cls.xml	(revision 29642)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.Lade.BodemOndersteuningAantalBepaler">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Lade.BodemOndersteuningAantalBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bepaal">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",IngegevenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TAX/impl/BodemOndersteuningAantalBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TAX/impl/BodemOndersteuningAantalBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TAX/impl/BodemOndersteuningAantalBepaler.cls.xml	(revision 29642)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.BodemOndersteuningAantalBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Decimal = 1
+	If IngegevenKenmerken.InterneBreedte < 300 { Set Aantal = 0 }
+	If ((IngegevenKenmerken.InterneBreedte > 800) && (IngegevenKenmerken.InterneBreedte <= 1200)) { Set Aantal = 2 }
+	If (IngegevenKenmerken.InterneBreedte > 1200) { Set Aantal = 3 }
+	quit Aantal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Lade/BodemOndersteuningAantalBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Lade/BodemOndersteuningAantalBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Lade/BodemOndersteuningAantalBepaler.cls.xml	(revision 29642)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Lade.BodemOndersteuningAantalBepaler">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Bepaal">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml
===================================================================
diff -u -r29059 -r29642
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Front.cls.xml	(.../Front.cls.xml)	(revision 29642)
@@ -75,7 +75,9 @@
 
 <Method name="GeefAantalBodemOndersteuningen">
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..Lade.GeefAantalBodemOndersteuningen()
+<Implementation><![CDATA[
+	quit ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New().Bepaal(..Kenmerken)
+	quit ..Lade.GeefAantalBodemOndersteuningen()
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r29059 -r29642
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 29642)
@@ -58,7 +58,9 @@
 
 <Method name="GeefAantalBodemOndersteuningen">
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..Lade.GeefAantalBodemOndersteuningen()
+<Implementation><![CDATA[
+	quit ##class(DOM.PM.Maatwerk.TAX.impl.BodemOndersteuningAantalBepaler).%New().Bepaal(..Kenmerken)
+	quit ..Lade.GeefAantalBodemOndersteuningen()
 ]]></Implementation>
 </Method>