Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml
===================================================================
diff -u -r29822 -r30000
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29822)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 30000)
@@ -7,11 +7,8 @@
 <FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <ReturnType>zTryout.WV.FPV1.DOM.dto.DraagPlaat</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()
-	Quit StapelbareBreedteBepaler.GeefDraagPlaat(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
+	Quit StapelbareBreedteBepaler.GeefDraagPlaat(Lade)
 ]]></Implementation>
 </Method>
 
@@ -46,11 +43,9 @@
 <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 OnderdelenAfmetingenBepaler = ##class(zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler).%New()
-	Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade)
-	
 	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
-	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = StapelbareBreedteBepaler.GeefDraagPlaat(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
+
+	#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()
Index: zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml
===================================================================
diff -u -r29944 -r30000
--- zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(.../StapelbareBreedteBepaler.cls.xml)	(revision 29944)
+++ zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(.../StapelbareBreedteBepaler.cls.xml)	(revision 30000)
@@ -40,15 +40,19 @@
 <FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = ..GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
+	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = ..BepaalDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
 	Quit ..GeefStapelbareBreedteVoorDraagPlaat(DraagPlaat)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDraagPlaat">
-<FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
 <ReturnType>zTryout.WV.FPV1.DOM.dto.DraagPlaat</ReturnType>
-<Implementation><![CDATA[	Quit ..DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel,..VrijeRuimteLengte,..VrijeRuimteBreedte)
+<Implementation><![CDATA[
+	Set OnderdelenAfmetingenBepaler = ##class(zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler).%New()
+	Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade)
+	
+	Quit ..BepaalDraagPlaat(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
 ]]></Implementation>
 </Method>
 
@@ -58,6 +62,14 @@
 <Implementation><![CDATA[	Quit (DraagPlaat.Breedte - ..VrijeRuimteBreedte)
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalDraagPlaat">
+<FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>zTryout.WV.FPV1.DOM.dto.DraagPlaat</ReturnType>
+<Implementation><![CDATA[	Quit ..DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel,..VrijeRuimteLengte,..VrijeRuimteBreedte)
+]]></Implementation>
+</Method>
 </Class>