Index: zTryout/WV/FPV1/DOM/dto/FlatpackV1Doos.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/dto/FlatpackV1Doos.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/dto/FlatpackV1Doos.cls.xml	(revision 29094)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Lengte">
+<Description>
+Binnenafmeting </Description>
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="Breedte">
+<Description>
+Binnenafmeting </Description>
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="Hoogte">
+<Description>
+Nog niet nodig </Description>
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductID">
+<Description>
+Nog niet nodig </Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1VorkBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1VorkBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1VorkBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ExacteOpeningBreedte">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vork">
+<Type>zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefVorkVoorOpeningBreedte">
+<FormalSpec>ExacteOpeningBreedte:%Numeric</FormalSpec>
+<ReturnType>zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExacteOpeningBreedte = ExacteOpeningBreedte
+	
+	Do ..BepaalVorkViaOpeningBreedte()
+	Quit ..Vork
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVorkViaOpeningBreedte">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Vork = ##class(zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork).%New()
+	
+	If ..ExacteOpeningBreedte = 190 {
+		Set Vork.OpeningBreedte = 190
+		Set Vork.BuitenBreedte = 250
+	}
+	ElseIf ..ExacteOpeningBreedte = 250 {
+		Set Vork.OpeningBreedte = 250
+		Set Vork.BuitenBreedte = 310
+	}
+	Else {
+		Do ..ThrowExceptionGeenVorkBeschikbaar()
+	}
+	
+	Set ..Vork = Vork
+]]></Implementation>
+</Method>
+
+<Method name="ThrowExceptionGeenVorkBeschikbaar">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Melding As %String = "Geen zijkantvork gevonden voor opening breedte "_..ExacteOpeningBreedte
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Melding))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/dto/DraagPlaat.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/dto/DraagPlaat.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/dto/DraagPlaat.cls.xml	(revision 29094)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.dto.DraagPlaat">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Lengte">
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="Breedte">
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="Dikte">
+<Description>
+Nog niet nodig </Description>
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductID">
+<Description>
+Nog niet nodig </Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/DraagPlaatProductIDBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/DraagPlaatProductIDBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/DraagPlaatProductIDBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.DraagPlaatProductIDBepaler">
+<Super>TECH.RegisteredObject,zTryout.WV.FPV1.DOM.DraagPlaatProductIDBepaler</Super>
+
+<Property name="DraagPlaat">
+<Type>zTryout.WV.FPV1.DOM.dto.DraagPlaat</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefProductID">
+<Description>
+Doos       : 1235132 - VPK.OD1260X310 TAXFLA   B 
+DraagPlaat : 1239487 - VPK.DP1060X250 TAXFLA   B </Description>
+<FormalSpec>DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..DraagPlaat = DraagPlaat
+	#dim Lengte As %Numeric = ..DraagPlaat.Lengte
+	#dim Breedte As %Numeric = ..DraagPlaat.Breedte
+	
+	#dim ProductID As %String = ""
+	
+	If Breedte = 190 {
+		If Lengte     =  700 { Set ProductID = 1230343 }
+		ElseIf Lengte = 1060 { Set ProductID = 1239485 }
+		ElseIf Lengte = 1260 { Set ProductID = 1239501 }
+	}
+	ElseIf Breedte = 250 {
+		If Lengte     =  700 { Set ProductID = 1239484 }
+		ElseIf Lengte = 1060 { Set ProductID = 1239487 }
+		ElseIf Lengte = 1260 { Set ProductID = 1239524 }
+	}
+
+	If (ProductID = "") {
+		Do ..ThrowExceptionGeenDraagPlaatProduct()
+	}
+
+	Quit ProductID
+]]></Implementation>
+</Method>
+
+<Method name="ThrowExceptionGeenDraagPlaatProduct">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Melding As %String = "Geen draagplaat product gevonden voor afmetingen ("_..DraagPlaat.Lengte_" x "_..DraagPlaat.Breedte_")"
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Melding))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1DoosBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1DoosBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1DoosBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ExacteLengte">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExacteBreedte">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Doos">
+<Type>zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefDoos">
+<FormalSpec>ExacteLengte:%Numeric,ExacteBreedte:%Numeric</FormalSpec>
+<ReturnType>zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos</ReturnType>
+<Implementation><![CDATA[
+	Set ..ExacteLengte = ExacteLengte
+	Set ..ExacteBreedte = ExacteBreedte
+	
+	Do ..BepaalDoos()
+	Quit ..Doos
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDoos">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Doos = ##class(zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos).%New()
+	
+	#dim IsValidLengte As %Boolean = (..ExacteLengte=700) || (..ExacteLengte=1060) || (..ExacteLengte=1260)
+	#dim IsValidBreedte As %Boolean = (..ExacteBreedte=250) || (..ExacteBreedte=3100) 
+	If IsValidLengte && IsValidBreedte {
+		Set Doos.Lengte = ..ExacteLengte
+		Set Doos.Breedte = ..ExacteBreedte
+	}
+	Else {
+		Do ..ThrowExceptionGeenDoosBeschikbaar()
+	}
+	
+	Set ..Doos = Doos
+]]></Implementation>
+</Method>
+
+<Method name="ThrowExceptionGeenDoosBeschikbaar">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Melding As %String = "Geen FlatpackV1Doos gevonden voor afmetingen ("_..ExacteLengte_" x "_..ExacteBreedte_")"
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Melding))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/DraagPlaatProductIDBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/DraagPlaatProductIDBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/DraagPlaatProductIDBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.DraagPlaatProductIDBepaler">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefProductID">
+<Abstract>1</Abstract>
+<FormalSpec>DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1VorkProductIDBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1VorkProductIDBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1VorkProductIDBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.FlatpackV1VorkProductIDBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Vork">
+<Type>zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefProductID">
+<FormalSpec>Vork:zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..Vork = Vork
+	#dim OpeningBreedte As %Numeric = ..Vork.OpeningBreedte
+	#dim BuitenBreedte As %Numeric = ..Vork.BuitenBreedte
+	
+	#dim ProductID As %String = ""
+	
+	If (OpeningBreedte=190) || (BuitenBreedte=250) {
+		Set ProductID = 1230357
+	}
+	ElseIf (OpeningBreedte=250) || (BuitenBreedte=310) {
+		Set ProductID = 1239550
+	}
+
+	If (ProductID = "") {
+		Do ..ThrowExceptionGeenVorkProduct()
+	} 
+	
+	Quit ProductID
+]]></Implementation>
+</Method>
+
+<Method name="ThrowExceptionGeenVorkProduct">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Melding As %String = "Geen zijkantvork product gevonden voor afmetingen ("_..Vork.OpeningBreedte_" # "_..Vork.BuitenBreedte_")"
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Melding))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/FlatpackV1DoosProductIDBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/FlatpackV1DoosProductIDBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/FlatpackV1DoosProductIDBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.FlatpackV1DoosProductIDBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Doos">
+<Type>zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefProductID">
+<Description>
+Doos       : 1235132 - VPK.OD1260X310 TAXFLA   B 
+DraagPlaat : 1239487 - VPK.DP1060X250 TAXFLA   B </Description>
+<FormalSpec>Doos:zTryout.WV.FPV1.DOM.dto.FlatpackV1Doos</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ..Doos = Doos
+	#dim Lengte As %Numeric = ..Doos.Lengte
+	#dim Breedte As %Numeric = ..Doos.Breedte
+	
+	#dim ProductID As %String = ""
+
+	If Breedte = 250 {
+		If Lengte     =  700 { Set ProductID = 1230310 }
+		ElseIf Lengte = 1060 { Set ProductID = 1235079 }
+		ElseIf Lengte = 1260 { Set ProductID = 1235098 }
+	}
+	ElseIf Breedte = 310 {
+		If Lengte     =  700 { Set ProductID = 1235069 }
+		ElseIf Lengte = 1060 { Set ProductID = 1235081 }
+		ElseIf Lengte = 1260 { Set ProductID = 1235132 }
+	}
+
+	If (ProductID = "") {
+		Do ..ThrowExceptionGeenDoosProduct()
+	}
+
+	Quit ProductID
+]]></Implementation>
+</Method>
+
+<Method name="ThrowExceptionGeenDoosProduct">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Melding As %String = "Geen FlatpackV1Doos product gevonden voor lengte x breedte = "_..Doos.Lengte_" x "_..Doos.Breedte_" ."
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Melding))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/DraagPlaatBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/DraagPlaatBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/DraagPlaatBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.DraagPlaatBepaler">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefDraagPlaat">
+<Abstract>1</Abstract>
+<FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
+<ReturnType>zTryout.WV.FPV1.DOM.dto.DraagPlaat</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/OnderdelenAfmetingenBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/OnderdelenAfmetingenBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/OnderdelenAfmetingenBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,151 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.OnderdelenAfmetingenBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Lade">
+<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LijstLengtes">
+<Type>%Numeric</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="LijstBreedtes">
+<Type>%Numeric</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="AfmetingLangsteOnderdeel">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AfmetingBreedsteOnderdeel">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="BepaalOnderdelenAfmetingen">
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Implementation><![CDATA[
+	Set ..AfmetingLangsteOnderdeel = ""
+	Set ..AfmetingBreedsteOnderdeel = ""
+
+	Set ..Lade = Lade
+	
+	Do ..VulAfmetingLijsten()
+	Do ..BepaalAfmetingLangsteOnderdeel()
+	Do ..BepaalAfmetingBreedsteOnderdeel()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfmetingLangsteOnderdeel">
+<Implementation><![CDATA[	Quit ..AfmetingLangsteOnderdeel
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfmetingBreedsteOnderdeel">
+<Implementation><![CDATA[	Quit ..AfmetingBreedsteOnderdeel
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAfmetingLangsteOnderdeel">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..LijstLengtes.Count() {
+		Set ..AfmetingLangsteOnderdeel = ##class(TECH.ListUtils).GeefMaximum(..LijstLengtes,##class(TECH.Comparator.IntegerComparator).%New())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAfmetingBreedsteOnderdeel">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..LijstBreedtes.Count() {
+		Set ..AfmetingBreedsteOnderdeel = ##class(TECH.ListUtils).GeefMaximum(..LijstBreedtes,##class(TECH.Comparator.IntegerComparator).%New())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulAfmetingLijsten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeRugAfmetingen()
+	Do ..VoegToeZijkantAfmetingen()
+	Do ..VoegToeFrontAfmetingen()
+	Do ..VoegToeBodemAfmetingen()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeRugAfmetingen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RugIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefRuggen())
+	while RugIterator.HasNext() {
+		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = RugIterator.Next()
+		#dim RugPlatenIterator As TECH.Iterator = Rug.GeefRugPlatenIterator()
+		While RugPlatenIterator.HasNext() {
+			#dim RugPlaat As DOM.PM.Maatwerk.LadeInfo.RugPlaat = RugPlatenIterator.Next()
+			Do ..LijstLengtes.Insert(RugPlaat.GeefBreedteInMM())
+			Do ..LijstBreedtes.Insert(RugPlaat.GeefHoogteInMM())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeZijkantAfmetingen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ZijkantIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefZijkanten())
+	while ZijkantIterator.HasNext() {
+		#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ZijkantIterator.Next()
+		#dim ZijkantPlaatIterator As TECH.Iterator = Zijkant.GeefZijkantPlatenIterator()
+		While ZijkantPlaatIterator.HasNext() {
+			#dim ZijkantPlaat As DOM.PM.Maatwerk.LadeInfo.ZijkantPlaat = ZijkantPlaatIterator.Next()
+			Do ..LijstLengtes.Insert(ZijkantPlaat.GeefLengteInMM())
+			Do ..LijstBreedtes.Insert(ZijkantPlaat.GeefHoogteInMM())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeFrontAfmetingen">
+<Description>
+Front : enkel aanwezig indien binnenlade </Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim FrontIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefFronten())
+	while FrontIterator.HasNext() {
+		#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = FrontIterator.Next()
+		Do ..LijstLengtes.Insert(Front.GeefBreedteInMM())   ; front is (voor)gemonteerd, anders moet de Breedte van FrontPlaat genomen worden. 
+		Do ..LijstBreedtes.Insert(Front.GeefHoogteInMM())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeBodemAfmetingen">
+<Description>
+Bodem : enkel lengte-afmeting nodig </Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BodemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Lade.GeefBodems())
+	While BodemIterator.HasNext() {
+		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = BodemIterator.Next()
+		#dim BodemPlaatIterator As TECH.Iterator = Bodem.GeefBodemPlatenIterator()
+		While BodemPlaatIterator.HasNext() {
+			#dim BodemPlaat As DOM.PM.Maatwerk.LadeInfo.BodemPlaat = BodemPlaatIterator.Next()
+			Do ..LijstLengtes.Insert(BodemPlaat.GeefBreedteInMM())
+			// De Breedte (=LadeDiepte) niet toevoegen, want deze is sowieso te groot en wordt dus steeds gesliced. 
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="ExtraMargeInMM">
+<Type>%Numeric</Type>
+<Default>0</Default>
+</Parameter>
+
+<Property name="DraagPlaatBepaler">
+<Type>zTryout.WV.FPV1.DOM.DraagPlaatBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OnderdelenAfmetingen">
+<Type>TECH.DataTransferObject</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AfmetingLangsteOnderdeel">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AfmetingBreedsteOnderdeel">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DraagPlaatBepaler:zTryout.WV.FPV1.DOM.DraagPlaatBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DraagPlaatBepaler=$$$Implementation(DraagPlaatBepaler,##class(zTryout.WV.FPV1.DOM.DraagPlaatBepaler).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefStapelbareBreedte">
+<FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim DraagPlaat As zTryout.WV.FPV1.DOM.dto.DraagPlaat = ..DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
+	Quit ..GeefStapelbareBreedteVoorDraagPlaat(DraagPlaat)
+]]></Implementation>
+</Method>
+
+<Method name="GeefStapelbareBreedteVoorDraagPlaat">
+<Description>
+Public or Private?</Description>
+<FormalSpec>DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit (DraagPlaat.Breedte - ..#ExtraMargeInMM)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/impl/DraagPlaatBepaler.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/impl/DraagPlaatBepaler.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/impl/DraagPlaatBepaler.cls.xml	(revision 29094)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.impl.DraagPlaatBepaler">
+<Super>TECH.RegisteredObject,zTryout.WV.FPV1.DOM.DraagPlaatBepaler</Super>
+
+<Property name="LengteInclusiefVrijeRuimte">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BreedteInclusiefVrijeRuimte">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DraagPlaat">
+<Type>zTryout.WV.FPV1.DOM.dto.DraagPlaat</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefDraagPlaat">
+<Description>
+Doos       : 1235132 - VPK.OD1260X310 TAXFLA   B 
+DraagPlaat : 1239487 - VPK.DP1060X250 TAXFLA   B </Description>
+<FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
+<ReturnType>zTryout.WV.FPV1.DOM.dto.DraagPlaat</ReturnType>
+<Implementation><![CDATA[
+	Set ..LengteInclusiefVrijeRuimte = ..GeefLengteInclusiefVrijeRuimte(AfmetingLangsteOnderdeel)
+	Set ..BreedteInclusiefVrijeRuimte = ..GeefBreedteInclusiefVrijeRuimte(AfmetingBreedsteOnderdeel)
+
+	Do ..BepaalDraagPlaat()
+	Quit ..DraagPlaat
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDraagPlaat">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set DraagPlaat = ##class(zTryout.WV.FPV1.DOM.dto.DraagPlaat).%New()
+	If ..BreedteInclusiefVrijeRuimte < 190 {
+		Set DraagPlaat.Breedte = 190
+
+		If ..LengteInclusiefVrijeRuimte < 700 {
+			Set DraagPlaat.Lengte = 700
+		}
+		ElseIf ..LengteInclusiefVrijeRuimte < 1060 {
+			Set DraagPlaat.Lengte = 1060
+		}
+		ElseIf ..LengteInclusiefVrijeRuimte < 1260 {
+			Set DraagPlaat.Lengte = 1260
+		}
+		Else {
+			Do ..ThrowExceptionOnderdelenPassenNiet()
+		}
+
+	}
+	ElseIf ..BreedteInclusiefVrijeRuimte < 250 {
+		Set DraagPlaat.Breedte=250
+
+		If ..LengteInclusiefVrijeRuimte < 700 {
+			Set DraagPlaat.Lengte = 700
+		}
+		ElseIf ..LengteInclusiefVrijeRuimte < 1060 {
+			Set DraagPlaat.Lengte = 1060
+		}
+		ElseIf ..LengteInclusiefVrijeRuimte < 1260 {
+			Set DraagPlaat.Lengte = 1260
+		}
+		Else {
+			Do ..ThrowExceptionOnderdelenPassenNiet()
+		}
+		
+	}
+	Else {
+		Do ..ThrowExceptionOnderdelenPassenNiet()
+	}
+	
+	Set ..DraagPlaat = DraagPlaat
+]]></Implementation>
+</Method>
+
+<Method name="ThrowExceptionOnderdelenPassenNiet">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Melding As %String = "Geen draagplaat gevonden waarop de onderdelen passen ("_..LengteInclusiefVrijeRuimte_" x "_..BreedteInclusiefVrijeRuimte_")"
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Melding))
+]]></Implementation>
+</Method>
+
+<Method name="GeefLengteInclusiefVrijeRuimte">
+<FormalSpec>AfmetingLangsteOnderdeel:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit AfmetingLangsteOnderdeel + ((25 + 20) * 2)   ; vork dikte 25mm + marge 20mm (aan beide kanten)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedteInclusiefVrijeRuimte">
+<FormalSpec>AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit AfmetingBreedsteOnderdeel
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/WV/FPV1/DOM/dto/FlatpackV1Vork.cls.xml
===================================================================
diff -u
--- zTryout/WV/FPV1/DOM/dto/FlatpackV1Vork.cls.xml	(revision 0)
+++ zTryout/WV/FPV1/DOM/dto/FlatpackV1Vork.cls.xml	(revision 29094)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.FPV1.DOM.dto.FlatpackV1Vork">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OpeningBreedte">
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="BuitenBreedte">
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="Dikte">
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="Hoogte">
+<Description>
+Nog niet nodig </Description>
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductID">
+<Description>
+Nog niet nodig </Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+</Class>
+
+
+</Export>