Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml =================================================================== diff -u -r58731 -r58748 --- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml (.../TestCalculator.cls.xml) (revision 58731) +++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml (.../TestCalculator.cls.xml) (revision 58748) @@ -169,7 +169,6 @@ Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"08. De lengte van de wikkel is correct") Do $$$AssertEquals(WikkelInfo.GeefAantal(),4,"08. Het aantal wikkels is correct") - Do ##class(Tools.Wlip).%New(207).String("") Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TAOR(),0,"M","",564,700) Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),1250,"09. De lengte van de wikkel is correct") Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"09. Het aantal wikkels is correct") Index: APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml =================================================================== diff -u -r58731 -r58748 --- APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml (.../Calculator.cls.xml) (revision 58731) +++ APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml (.../Calculator.cls.xml) (revision 58748) @@ -381,7 +381,6 @@ #define OverlapLengte 75 #dim VerpakkingHoogte As %Float =..GeefVerpakkingHoogte(LadeVariant,IsBinnenlade,LadeHoogte,LadeZijkantHoogte) #dim WikkelLengte As %Float = LadeBreedte + (2*VerpakkingHoogte) + (2*$$$OverlapLengte) ; LadeBreedte slechts 1x rekenen, want lade wordt niet volledig omwikkeld - Do ##class(Tools.Wlip).%New(207).String("wikkellengte = " _ WikkelLengte) #dim Aantal as %Decimal = 1 If WikkelLengte '> 900 { Set:((LadeDiepte '< 700)) Aantal = 2