Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1Service.cls.xml	(revision 29095)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.FlatpackV1Service">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefDraagPlaatVoorOnderdelen">
+<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 DraagPlaatBepaler = ##class(zTryout.WV.FPV1.DOM.DraagPlaatBepaler).%New()
+	Quit DraagPlaatBepaler.GeefDraagPlaat(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
+]]></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.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.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>
+
+<Method name="BepaalSlicedBodemInfo2">
+<Description>
+ *** DEMO code *** 
+
+Bodem Sliced berekening zonder de DraagPlaat te kennen (wordt hier wel 'in de black box' berekend) </Description>
+<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,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)
+	
+	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
+	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedte(OnderdelenAfmetingenBepaler.GeefAfmetingLangsteOnderdeel(),OnderdelenAfmetingenBepaler.GeefAfmetingBreedsteOnderdeel())
+	
+	Do ..BepaalTeZagenBodemBreedte(NettoAfgewerkteBodemBreedte,StapelbareBreedte)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalSlicedBodemInfo3">
+<Description>
+ *** DEMO code *** 
+
+Bodem Sliced berekening met reeds berekende DraagPlaat </Description>
+<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set StapelbareBreedteBepaler = ##class(zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New()
+	#dim StapelbareBreedte As %Numeric = StapelbareBreedteBepaler.GeefStapelbareBreedteVoorDraagPlaat(DraagPlaat)
+	
+	Do ..BepaalTeZagenBodemBreedte(NettoAfgewerkteBodemBreedte,StapelbareBreedte)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTeZagenBodemBreedte">
+<FormalSpec>NettoAfgewerkteBodemBreedte:%Numeric,StapelbareBreedte:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.SlicedBodemBepaler).%New()
+	Do SlicedBodemBepaler.GeefSlicedBodemInfo(NettoAfgewerkteBodemBreedte,StapelbareBreedte)
+	#dim TeZagenBodemBreedte As %Numeric = SlicedBodemBepaler.TotaalNodigeBreedte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>