Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml
===================================================================
diff -u -r29817 -r29821
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29817)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(.../FlatpackV1Service.cls.xml)	(revision 29821)
@@ -57,46 +57,6 @@
 	Quit SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte, DraagPlaat)
 ]]></Implementation>
 </Method>
-
-<Method name="BepaalVerpakkingElementen">
-<Description>
-************************************************************************* 
-
- *** DEMO code *** </Description>
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set OnderdelenAfmetingenBepaler = ##class(zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler).%New()
-	Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade)
-	#dim AfmetingLangsteOnderdeel As %Numeric = OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel()
-	#dim AfmetingBreedsteOnderdeel As %Numeric = OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel()
-	
-	Set DraagPlaatBepaler = ##class(zTryout.WV.FPV1.DOM.impl.DraagPlaatBepaler).%New()
-	Set FlatpackV1VorkBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkBepaler).%New()
-	Set FlatpackV1DoosBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosBepaler).%New()
-
-	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
-	#dim Vork As zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork = FlatpackV1VorkBepaler.GeefVorkVoorOpeningBreedte(DraagPlaat.Breedte)
-	#dim Doos As zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos = FlatpackV1DoosBepaler.GeefDoos(DraagPlaat.Lengte, Vork.BuitenBreedte)
-
-	#dim DraagPlaatProductID As %String = ##class(zTryout.WV.FPV1.DOM.impl.DraagPlaatProductIDBepaler).%New().GeefProductID(DraagPlaat)
-	#dim VorkProductID As %String       = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkProductIDBepaler).%New().GeefProductID(Vork)
-	#dim DoosProductID As %String       = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosProductIDBepaler).%New().GeefProductID(Doos)
-	
-	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
-	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
-	
-	#dim NettoAfgewerkteBodemBreedte As %Numeric = "..."   ; Lade.GeefDiepteInMM() - AftrekBodem   ; dit moet je uit de lade-info halen, of rechtstreeks uit de bodem-builder
-	
-	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
-	Do SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte)
-		#dim MaxBreedteZichtkantSlice As %Numeric = SlicedBodemBepaler.MaxBreedteZichtkantSlice
-		#dim AantalSlices As %Numeric = SlicedBodemBepaler.AantalSlices
-		#dim Overmaat As %Numeric = SlicedBodemBepaler.Overmaat
-		#dim NettoBreedteZichtkantSlice As %Numeric = SlicedBodemBepaler.NettoBreedteZichtkantSlice
-	#dim TotaalNodigeBreedte As %Numeric = SlicedBodemBepaler.TotaalNodigeBreedte
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/FlatpackV1Service/Demo.cls.xml	(revision 29821)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.WV.FPV1.DOM.impl.FlatpackV1Service.Demo">
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Base</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set ..TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
+	Set ..TAORKenmerken.LadeDiepte = 500
+	Set ..TAORKenmerken.CorpusBinnenbreedte = 600
+]]></Implementation>
+</Method>
+
+<Method name="TestDEMO">
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..TAORKenmerken
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..GeefLadeInfoLade(TAORKenmerken)
+	
+	Do ..BepaalVerpakkingElementen(Lade)
+]]></Implementation>
+</Method>
+
+<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>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OnderdelenAfmetingenBepaler = ##class(zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler).%New()
+	Do OnderdelenAfmetingenBepaler.BepaalOnderdelenAfmetingen(Lade)
+	#dim AfmetingLangsteOnderdeel As %Numeric = OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel()
+	#dim AfmetingBreedsteOnderdeel As %Numeric = OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel()
+
+		Do $$$AssertEquals(AfmetingLangsteOnderdeel, 569)
+		Do $$$AssertEquals(AfmetingBreedsteOnderdeel, 174.5)
+	
+	Set DraagPlaatBepaler = ##class(zTryout.WV.FPV1.DOM.impl.DraagPlaatBepaler).%New()
+	Set FlatpackV1VorkBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkBepaler).%New()
+	Set FlatpackV1DoosBepaler = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosBepaler).%New()
+
+	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
+	#dim Vork As zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork = FlatpackV1VorkBepaler.GeefVorkVoorOpeningBreedte(DraagPlaat.Breedte)
+	#dim Doos As zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos = FlatpackV1DoosBepaler.GeefDoos(DraagPlaat.Lengte, Vork.BuitenBreedte)
+
+		Do $$$AssertEquals(DraagPlaat.Breedte, 190)
+		Do $$$AssertEquals(DraagPlaat.Lengte , 700)
+		Do $$$AssertEquals(Vork.OpeningBreedte, 190)
+		Do $$$AssertEquals(Vork.BuitenBreedte , 250)
+		Do $$$AssertEquals(Doos.Breedte, 250)
+		Do $$$AssertEquals(Doos.Lengte , 700)
+
+	#dim DraagPlaatProductID As %String = ##class(zTryout.WV.FPV1.DOM.impl.DraagPlaatProductIDBepaler).%New().GeefProductID(DraagPlaat)
+	#dim VorkProductID As %String       = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkProductIDBepaler).%New().GeefProductID(Vork)
+	#dim DoosProductID As %String       = ##class(zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosProductIDBepaler).%New().GeefProductID(Doos)
+
+		Do $$$AssertEquals(DraagPlaatProductID, 1230343)
+		Do $$$AssertEquals(VorkProductID, 1230357)
+		Do $$$AssertEquals(DoosProductID, 1230310)
+	
+	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
+	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
+	
+		Do $$$AssertEquals(StapelbareBreedte, 190)
+	
+	#dim NettoAfgewerkteBodemBreedte As %Numeric = Lade.GeefBodems().GetAt(1).GeefDiepteInMM()   ; Voor deze DEMO is dit voldoende. 
+	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
+	#dim SlicedBodemInfo As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.BodemPlaat.SlicedBodemInfo = SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte,DraagPlaat)
+
+		Do $$$AssertEquals(NettoAfgewerkteBodemBreedte, 480)
+		Do $$$AssertEquals(SlicedBodemBepaler.MaxBreedteZichtkantSlice, 182)
+	
+	// De uiteindelijke uitkomst 
+	Do $$$AssertEquals(SlicedBodemInfo.NettoBreedteZichtkantSlice, 160)
+	Do $$$AssertEquals(SlicedBodemInfo.AantalSlices, 3)
+	Do $$$AssertEquals(SlicedBodemInfo.Overmaat, 31)
+	Do $$$AssertEquals(SlicedBodemInfo.TotaalNodigeBreedte, 511)
+	Do $$$AssertEquals(SlicedBodemInfo.DraagPlaat, DraagPlaat)   ; Voor deze DEMO is dit voldoende.
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeInfoLade">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.Lade</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(TAORKenmerken,1)
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
+	Quit Lade
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>