Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml =================================================================== diff -u -r36198 -r36199 --- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36198) +++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36199) @@ -208,7 +208,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, 1277.8, 508.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 509.4) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -222,7 +222,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, 1277.8, 508.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 509.4) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -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, 1244.4, 508.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1245.4, 509.4) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -264,7 +264,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, 1277.8, 558.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 559.4) Do ..AssertStandaardOnderdelenDoosDiepte550(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r36198 -r36199 --- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36198) +++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36199) @@ -197,6 +197,11 @@ Set DoosLade.Diepte = DoosLosseOnderdelen.GeefExterneDiepte() } + If DoosLosseOnderdelen.IsStandaardHuls && ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M) { + Set DoosLade.Diepte = DoosLade.Diepte + 1 + Set DoosLade.Breedte = DoosLade.Breedte + 1 + } + If DoosLade.Hoogte < DoosLosseOnderdelen.GeefExterneHoogte() { set DoosLade.Hoogte = ##class(TECH.Math).Ceil(DoosLosseOnderdelen.GeefExterneHoogte(),10) }