Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r36644 -r39813 --- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36644) +++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 39813) @@ -204,6 +204,10 @@ Set DoosLade.Diepte = DoosLade.Diepte + 1 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/LBXVerpakking/TestDoos.cls.xml =================================================================== diff -u -r36243 -r39813 --- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36243) +++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 39813) @@ -234,7 +234,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, 1278.8, 515) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 515) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -248,7 +248,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, 1278.8, 465) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1288.8, 465) Do ..AssertStandaardOnderdelenDoosDiepte450(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]>