Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml =================================================================== diff -u -r40965 -r40978 --- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 40965) +++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 40978) @@ -206,7 +206,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, 1278.8, 515) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -220,7 +220,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, 1278.8, 465) Do ..AssertStandaardOnderdelenDoosDiepte450(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -259,36 +259,38 @@ #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()) ]]> - + - +