Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml =================================================================== diff -u -r36199 -r36204 --- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36199) +++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36204) @@ -250,7 +250,7 @@ set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M() set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C() - Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1245.4, 509.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 508.4) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r36199 -r36204 --- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36199) +++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36204) @@ -197,7 +197,7 @@ Set DoosLade.Diepte = DoosLosseOnderdelen.GeefExterneDiepte() } - If DoosLosseOnderdelen.IsStandaardHuls && ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M) { + if (DoosLosseOnderdelen.IsStandaardHuls) && ( ..GeenVerhoogdeOfVerlaagdeLade() ) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M)) { Set DoosLade.Diepte = DoosLade.Diepte + 1 Set DoosLade.Breedte = DoosLade.Breedte + 1 }