Index: vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml =================================================================== diff -u -r36221 -r36243 --- vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36221) +++ vhUnitTest/APPS/Halux/PPS/LBXVerpakking/TestDoos.cls.xml (.../TestDoos.cls.xml) (revision 36243) @@ -151,9 +151,7 @@ #dim DoosLade as DOM.PM.Verpakking.impl.Doos = DoosBerekenaar.GeefDoosLade() #dim DoosLosseOnderdelen as DOM.PM.Verpakking.DoosLosseOnderdelen = DoosBerekenaar.GeefDoosLosseOnderdelen() - Do $$$AssertEquals(DoosLade.Breedte, 346.8) - Do $$$AssertEquals(DoosLade.Hoogte, 90) - Do $$$AssertEquals(DoosLade.Diepte, 270 + (2 * ..#KartonDikte)) + Do ..AssertDoos(DoosBerekenaar.GeefDoosLade() , 90 , 346.8 , 278.4) Do $$$AssertEquals(DoosLosseOnderdelen.Hoogte, 81.6) Do $$$AssertEquals(DoosLosseOnderdelen.Breedte, 88.4) @@ -194,7 +192,7 @@ #dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..MaakLadeCBreedEnDiep() Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550() - Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 558.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 564) Do ..AssertStandaardOnderdelenDoosDiepte550(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -208,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, 1278.8, 509.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 515) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -222,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, 1278.8, 459.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 465) Do ..AssertStandaardOnderdelenDoosDiepte450(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -236,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, 509.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 515) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -250,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, 459.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 465) Do ..AssertStandaardOnderdelenDoosDiepte450(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -264,7 +262,7 @@ 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, 508.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 180, 1244.4, 514) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -278,7 +276,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, 1244.4, 514) Do ..AssertStandaardOnderdelenDoosDiepte500(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> @@ -292,7 +290,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, 1278.8, 559.4) + Do ..AssertDoos(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLade(), 90, 1278.8, 565) Do ..AssertStandaardOnderdelenDoosDiepte550(..GeefDoosBerekenaar(LBXKenmerken, $$$ProductId).GeefDoosLosseOnderdelen()) ]]> Index: APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml =================================================================== diff -u -r36221 -r36243 --- APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36221) +++ APPS/Halux/PPS/LBXVerpakking/impl/DoosBerekenaar.cls.xml (.../DoosBerekenaar.cls.xml) (revision 36243) @@ -197,6 +197,7 @@ If DoosLade.Diepte < DoosLosseOnderdelen.GeefExterneDiepte() { Set DoosLade.Diepte = DoosLosseOnderdelen.GeefExterneDiepte() + Set:(DoosLosseOnderdelen.IsStandaardHuls) DoosLade.Diepte = ##class(TECH.Math).Ceil(DoosLade.Diepte) + 5 } if (DoosLosseOnderdelen.IsStandaardHuls) && ( ..GeenVerhoogdeOfVerlaagdeLade() ) && (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeHoogte,..Enum.LadeHoogte.N,..Enum.LadeHoogte.M)) {