Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r36644 -r39816 --- APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36644) +++ APPS/Halux/PPS/TAORVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 39816) @@ -224,6 +224,10 @@ Set DoosLade.Breedte = DoosLade.Breedte + 1 } + if (DoosLosseOnderdelen.IsStandaardHuls) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N)) { + Set DoosLade.Breedte = DoosLade.Breedte + 10 + } + If DoosLade.Hoogte < DoosLosseOnderdelen.GeefExterneHoogte() { set DoosLade.Hoogte = ##class(TECH.Math).Ceil(DoosLosseOnderdelen.GeefExterneHoogte(),10) } Index: vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml =================================================================== diff -u -r36596 -r39816 --- vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36596) +++ vhUnitTest/APPS/Halux/PPS/TAORVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 39816) @@ -148,7 +148,7 @@ #define ProductId 1000000 set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.N - do ..AssertDoos(..GeefDoosBerekenaar(..TAORKenmerken, $$$ProductId).GeefDoosLade(),88.4, 678.8, 564) + do ..AssertDoos(..GeefDoosBerekenaar(..TAORKenmerken, $$$ProductId).GeefDoosLade(),88.4, 688.8, 564) do ..AssertStandaardOnderdelenDoosDiepte550(..GeefDoosBerekenaar(..TAORKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M