Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml
===================================================================
diff -u -r39813 -r40964
--- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 39813)
+++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml	(.../TestDoos.cls.xml)	(revision 40964)
@@ -259,8 +259,6 @@
 	
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
-	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
 	
 	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 514)
 	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
@@ -271,10 +269,11 @@
 <Implementation><![CDATA[
 	#define ProductId 1000000
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+
 	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
-	set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
 	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.InterneBreedte = 1170
 	
 	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 514)
 	Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())
@@ -285,10 +284,9 @@
 <Implementation><![CDATA[
 	#define ProductId 1000000
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep()
-	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550()	
+	Set LBXKenmerken.InterneBreedte = 1170
 	
 	Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 565)
 	Do ..AssertStandaardOnderdelenDoosDiepte550(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen())