Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml
===================================================================
diff -u -r29173 -r29259
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 29173)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/BodemPlaatBewerktHalffabItemPostProcessor.cls.xml	(.../BodemPlaatBewerktHalffabItemPostProcessor.cls.xml)	(revision 29259)
@@ -49,27 +49,9 @@
 <FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	Quit ..FlatpackV1ServiceGeefSlicedBodemOvermaat(NettoAfgewerkteBodemBreedte,Lade)
-]]></Implementation>
-</Method>
-
-<Method name="FlatpackV1ServiceGeefSlicedBodemOvermaat">
-<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	Set OnderdelenAfmetingenBepaler = ##class(zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler).%New()
-	Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade)
-	
-	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
-	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
-	
-	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.SlicedBodemBepaler).%New()
-	Do SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte)
-	#dim SlicedBodemOvermaat As %Numeric = SlicedBodemBepaler.Overmaat
-
-	Quit SlicedBodemOvermaat
-	;Quit 0
+	Set FlatpackV1Service = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1Service).%New()
+	Quit FlatpackV1Service.GeefSlicedBodemOvermaat(NettoAfgewerkteBodemBreedte,Lade)
 ]]></Implementation>
 </Method>
 </Class>
Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml
===================================================================
diff -u -r29142 -r29259
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29142)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29259)
@@ -15,8 +15,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSlicedBodemOvermaat">
+<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	Set OnderdelenAfmetingenBepaler = ##class(zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler).%New()
+	Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade)
+	
+	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
+	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
+	
+	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.SlicedBodemBepaler).%New()
+	Do SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte)
+	#dim SlicedBodemOvermaat As %Numeric = SlicedBodemBepaler.Overmaat
+
+	Quit SlicedBodemOvermaat
+]]></Implementation>
+</Method>
+
 <Method name="BepaalVerpakkingElementen">
 <Description>
+************************************************************************* 
+
  *** DEMO code *** </Description>
 <FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <Private>1</Private>