Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml
===================================================================
diff -u -r29339 -r29358
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 29339)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 29358)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FlatpackV1Service">
+<Type>zTryout.WV.FPV1.DOM.impl.FlatpackV1Service</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="SlicedBodemInfo">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</Type>
 <Private>1</Private>
@@ -28,6 +33,7 @@
 	Do ##super(AfmetingAangerekendPerStukBerekenaar,TeBekomenAantal,BewerkteDimensies,TeBekomenAfmetingPerBewerkteDimensies)
 	Set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
 	Set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
+	Set ..FlatpackV1Service = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1Service).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,23 +50,14 @@
 		#dim TeBewerkenDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Breedte()
 		#dim NettoAfgewerkteBodemBreedte As %Numeric = TeBekomenAfmetingPerBewerkteDimensies.GetAt(TeBewerkenDimensie)
 		#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(Context.HalffabItemsBoom, IngegevenKenmerken)
-		Do OvermaatPerBewerkteDimensie.SetAt(..GeefOvermaatVoorBreedte(NettoAfgewerkteBodemBreedte, Lade), TeBewerkenDimensie)
+
+		Set ..SlicedBodemInfo = ..FlatpackV1Service.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,Lade)
+		Do OvermaatPerBewerkteDimensie.SetAt(..SlicedBodemInfo.Overmaat, TeBewerkenDimensie)
 	}
 	Quit OvermaatPerBewerkteDimensie
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOvermaatVoorBreedte">
-<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[
-	Set FlatpackV1Service = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1Service).%New()
-	Set ..SlicedBodemInfo = FlatpackV1Service.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,Lade)
-	Quit ..SlicedBodemInfo.Overmaat
-]]></Implementation>
-</Method>
-
 <Method name="Verwerk">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext]]></FormalSpec>
 <Implementation><![CDATA[