Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat.cls.xml
===================================================================
diff -u -r29329 -r29468
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat.cls.xml	(.../BodemPlaat.cls.xml)	(revision 29329)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HalffabItem/BodemPlaat.cls.xml	(.../BodemPlaat.cls.xml)	(revision 29468)
@@ -6,6 +6,17 @@
 <Property name="SlicedBodemInfo">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</Type>
 </Property>
+
+<Method name="GeefAantalSlices">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..SlicedBodemInfo.AantalSlices
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalClickVerbindingen">
+<Implementation><![CDATA[	Quit ..GeefAantalSlices() - 1
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/Multiplier/BodemSlicedAantalClickVerbindingen.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/Multiplier/BodemSlicedAantalClickVerbindingen.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/Multiplier/BodemSlicedAantalClickVerbindingen.cls.xml	(revision 29468)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Kost.impl.TAOR.Multiplier.BodemSlicedAantalClickVerbindingen">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IMultiplier</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Evalueer">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemPlaatHFItem As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat())
+	quit BodemPlaatHFItem.GeefAantalClickVerbindingen()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>