Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml
===================================================================
diff -u -r30000 -r31602
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 30000)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 31602)
@@ -38,20 +38,6 @@
 	Quit GewichtInGram
 ]]></Implementation>
 </Method>
-
-<Method name="GeefSlicedBodemInfo">
-<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</ReturnType>
-<Implementation><![CDATA[
-	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
-
-	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = StapelbareBreedteBepaler.GeefDraagPlaat(Lade)
-	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedteVoorDraagPlaat(DraagPlaat)
-	
-	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
-	Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte, DraagPlaat)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml
===================================================================
diff -u -r29999 -r31602
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml	(.../Demo.cls.xml)	(revision 29999)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml	(.../Demo.cls.xml)	(revision 31602)
@@ -26,7 +26,7 @@
 <Method name="BepaalVerpakkingElementen">
 <Description>
 Deze DEMO dient als detail-overzicht hoe de FlatpackV1-verpakkingen en de "SlicedBodemInfo" moet berekend worden vertrekkende van de LadeInfo.Lade 
-Op de FlatpackV1Service zitten ook rechtstreekse methods, nl. GeefDraagPlaatVoorOnderdelen() en GeefSlicedBodemInfo() </Description>
+Op de FlatpackV1Service zitten ook rechtstreekse methods, nl. GeefDraagPlaatVoorOnderdelen() </Description>
 <FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml
===================================================================
diff -u -r29358 -r31602
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 29358)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 31602)
@@ -13,11 +13,6 @@
 <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>
@@ -33,7 +28,6 @@
 	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>
@@ -46,14 +40,19 @@
 <Implementation><![CDATA[
 	#dim OvermaatPerBewerkteDimensie As array of %Numeric = ##super(IngegevenKenmerken,Context)
 
+	#dim TeBewerkenDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Breedte()
+	#dim NettoAfgewerkteBodemBreedte As %Numeric = TeBekomenAfmetingPerBewerkteDimensies.GetAt(TeBewerkenDimensie)
 	If (..BodemSlicedTypeBepaler.GeefBodemSlicedType(IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) {
-		#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)
+		#dim LadeInfoZonderBodem As DOM.PM.Maatwerk.LadeInfo.Lade = ..MaatwerkCalcAPI.GeefLadeInfo(Context.HalffabItemsBoom, IngegevenKenmerken)
 
-		Set ..SlicedBodemInfo = ..FlatpackV1Service.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,Lade)
+		Set ..SlicedBodemInfo = ..GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,LadeInfoZonderBodem)
 		Do OvermaatPerBewerkteDimensie.SetAt(..SlicedBodemInfo.Overmaat, TeBewerkenDimensie)
 	}
+	Else {
+		;Set ..SlicedBodemInfo = ..GeefSlicedBodemInfoVoorNietGesliceteBodem(NettoAfgewerkteBodemBreedte)
+		;Do OvermaatPerBewerkteDimensie.SetAt(..SlicedBodemInfo.Overmaat, TeBewerkenDimensie)
+	}
+	
 	Quit OvermaatPerBewerkteDimensie
 ]]></Implementation>
 </Method>
@@ -65,6 +64,34 @@
 	Set HalffabItem.SlicedBodemInfo = ..SlicedBodemInfo
 ]]></Implementation>
 </Method>
+
+<Method name="GeefSlicedBodemInfo">
+<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</ReturnType>
+<Implementation><![CDATA[
+	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
+
+	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = StapelbareBreedteBepaler.GeefDraagPlaat(Lade)
+	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedteVoorDraagPlaat(DraagPlaat)
+	
+	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
+	Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte, DraagPlaat)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSlicedBodemInfoVoorNietGesliceteBodem">
+<Description>
+Moeilijke schrijfwijze, amai  :-P </Description>
+<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim MaxToegelatenBreedteInMM As %Numeric = 10000
+	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
+	Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,MaxToegelatenBreedteInMM)
+]]></Implementation>
+</Method>
 </Class>