Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r32926 -r32930
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 32926)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 32930)
@@ -117,22 +117,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestBinnenladeDoosEvenBreedMaarHoger">
+<Method name="Test: Doos voor binnenlade is even breed maar hoger dan doos voor standaard lade">
 <Implementation><![CDATA[
-	#dim LBXKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	#dim DoosBerekenaar As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenStd)
-	#dim DoosLadeStd As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelenStd As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	
-	#dim LBXKenmerkenBin As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	#dim LBXKenmerkenStd As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Set LBXKenmerkenStd.InterneBreedte = 1170
+	Set LBXKenmerkenStd.LadeDiepte = 600
+	Set LBXKenmerkenStd.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerkenStd.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+
+	#dim LBXKenmerkenBin As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = LBXKenmerkenStd.%ConstructClone()
 	Set LBXKenmerkenBin.IsBinnenlade = $$$True
+
+	#dim DoosBerekenaarStd As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenStd)
+	#dim DoosLadeStd As DOM.PM.Verpakking.impl.Doos = DoosBerekenaarStd.GeefDoosLade()
+	#dim DoosLosseOnderdelenStd As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaarStd.GeefDoosLosseOnderdelen()
 	
-	Set DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenBin)
+	#dim DoosBerekenaarBin As APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerkenBin)
+	#dim DoosLadeBin As DOM.PM.Verpakking.impl.Doos = DoosBerekenaarBin.GeefDoosLade()
+	#dim DoosLosseOnderdelenBin As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaarBin.GeefDoosLosseOnderdelen()
 	
-	#dim DoosLadeBin As DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelenBin As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	Do $$$AssertEquals(DoosLadeStd.Breedte, DoosLadeBin.Breedte)
 	Do $$$AssertTrue(DoosLadeStd.Hoogte < DoosLadeBin.Hoogte)
+	
 	Do $$$AssertEquals(DoosLosseOnderdelenStd.Hoogte, DoosLosseOnderdelenBin.Hoogte)
 ]]></Implementation>
 </Method>
@@ -334,29 +340,11 @@
 <Method name="MaakLadeCBreedEnDiep">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
-	
-	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set LBXKenmerken.InterneBreedte = 1170 // Voor binnenlade: voorstuk beperkt breedte tot 1170, inschuifelement beperkt tot 1262
-	Set LBXKenmerken.Draagkracht = 40
-	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Drevel()
-	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
-	Set LBXKenmerken.HeeftOpvullijstLinks = $$$False
-	Set LBXKenmerken.HeeftOpvullijstRechts = $$$False
-	Set LBXKenmerken.HeeftZijstabilisering = $$$False
-	Set LBXKenmerken.IsBinnenlade = $$$False
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Set LBXKenmerken.InterneBreedte = 1170
 	Set LBXKenmerken.LadeDiepte = 600
 	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
 	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set LBXKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
-	Set LBXKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-	Set LBXKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
-	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>