Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r67728 -r72575
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 67728)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 72575)
@@ -69,13 +69,6 @@
 	Do $$$AssertTrue(DoosBerekenaar.HeeftFrontBevestiging())
 
 	Do $$$AssertEquals(DoosBerekenaar.GeefKartonSpecificaties().Kinderen.Count(), 2) // er moet een losse onderdeeldoos zijn voor afdekkappen, frontbevestiging
-	
-	#dim DoosLosseOnderdelen As DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 10)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 38.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
 ]]></Implementation>
 </Method>
 
@@ -149,18 +142,8 @@
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
 	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
 	#dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade()
-	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 	
-	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 90 , 346.8 , 278.4)
-		
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 81.6)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 88.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 90)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 96.8)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 278.4)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 60) // Geleider zit met kortste kant in breedte van de doos
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
+	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 90 , 381.8 , 284)
 ]]></Implementation>
 </Method>
 
@@ -170,18 +153,8 @@
 	Set LBXKenmerken.IsBinnenlade = $$$True
 	
 	#dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
-	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
 
-	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 200 , 1224.4 , 608.4)
-	
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 186.6)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 600)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 195) 
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 600 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, DoosLosseOnderdelen.Breedte - 67 - (2 * ..#KartonDikte))
+	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 200 , 1244.4 , 614)
 ]]></Implementation>
 </Method>
 
@@ -206,7 +179,7 @@
 	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	
-	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 515)
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1287.8, 514)
 	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
@@ -220,7 +193,7 @@
 	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	
-	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 465)
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1287.8, 464)
 	Do ..AssertStandaardOnderdelenDoosDiepte450(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
@@ -234,7 +207,7 @@
 	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	
-	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 515)
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1287.8, 514)
 	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
@@ -248,7 +221,7 @@
 	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
 	
-	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 465)
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1287.8, 464)
 	Do ..AssertStandaardOnderdelenDoosDiepte450(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
@@ -290,7 +263,7 @@
 	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
 	
-	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 565)
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1287.8, 564)
 	Do ..AssertStandaardOnderdelenDoosDiepte550(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
@@ -304,46 +277,11 @@
 	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400()
 	
-	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 415)
+	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1287.8, 414)
 	Do ..AssertStandaardOnderdelenDoosDiepte400(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
 ]]></Implementation>
 </Method>
 
-<Method name="Test afmeting Breedte andere van de LO doos MLade met Tip-on Blumotion geleider">
-<Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
-	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()	
-	
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere, 20)
-]]></Implementation>
-</Method>
-
-<Method name="Test afmetingen van de doos en de LO doos KLade met Tip-on Blumotion geleider en set van meenemers en eenheden">
-<Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeMSmalEnOndiep()
-	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
-	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
-	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
-	
-	#Dim DoosBerekenaar as APPS.Halux.PPS.LBXVerpakking.impl.DoosBerekenaar = ..GeefDoosBerekenaar(LBXKenmerken)
-	#dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen()
-	
-	Do ..AssertDoos(DoosBerekenaar.GeefDoosLade(), 140, 318.4, 278.4)
-
-	Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 126.6)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteCorpusProfiel, 67)
-	Do $$$AssertEquals(DoosLosseOnderdelen.BreedteAndere,51.2)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Diepte, 270)
-	Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 60)
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneHoogte(), 60 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneDiepte(), 270 + (2 * ..#KartonDikte))
-	Do $$$AssertEquals(DoosLosseOnderdelen.GeefExterneBreedte(), 126.6 + (2 * ..#KartonDikte))
-]]></Implementation>
-</Method>
-
 <Method name="TestKartonSpecs">
 <Implementation><![CDATA[
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
@@ -358,12 +296,12 @@
 		
 		Set AantalSpecs = AantalSpecs + 1
 		If (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosMetDeksel()) {
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 1681, "Breedte van DoosMetDeksel")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 1961, "Lengte van DoosMetDeksel")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 1692, "Breedte van DoosMetDeksel")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 1981, "Lengte van DoosMetDeksel")
 			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
 		} ElseIf (KartonSpec.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).DoosLosseOnderdelen()) {
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 820, "Breedte van DoosLosseOnderdelen")
-			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 513, "Lengte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeBreedte, 0, 0), 860, "Breedte van DoosLosseOnderdelen")
+			Do $$$AssertEquals(+$J(KartonSpec.NodigeLengte, 0, 0), 467, "Lengte van DoosLosseOnderdelen")
 			Do $$$AssertEquals(KartonSpec.KartonSamenstelling, ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun(), "Kartonsamenstelling = EB")
 		} Else {
 			Do $$$AssertTrue(0, "Alleen DoosMetDeksel en Losse onderdelen zijn mogelijk")