Index: APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml =================================================================== diff -u -r58748 -r62894 --- APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml (.../Calculator.cls.xml) (revision 58748) +++ APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml (.../Calculator.cls.xml) (revision 62894) @@ -202,6 +202,52 @@ } } } + ElseIf (LadeVariant=##class(DOM.PM.enu.LadeVariant).MVX()) { + If IsBinnenlade { + If (LadeDiepte '> 550) { + // Binnenlades van 270mm tot 550mm diep + Set OppervlakteAandeel=$Case(LadeHoogte, + "N" : 0.13 , + "M" : 0.14 , + "K" : 0.20 , + "E" : 0.33 , + "F" : 0.50 , + : "") + } + Else { + // Binnenlades groter dan, dus 600mm en 650mm diep + Set OppervlakteAandeel=$Case(LadeHoogte, + "N" : 0.17 , + "M" : 0.20 , + "K" : 0.33 , + "E" : 0.50 , + "F" : 0.50 , + : "") + } + } + Else { + If (LadeDiepte '> 550) { + // Lades van 270mm tot 550mm diep + Set OppervlakteAandeel=$Case(LadeHoogte, + "N" : 0.13 , + "M" : 0.14 , + "K" : 0.20 , + "E" : 0.33 , + "F" : 0.50 , + : "") + } + Else { + // Lades groter dan, dus 600mm en 650mm diep + Set OppervlakteAandeel=$Case(LadeHoogte, + "N" : 0.17 , + "M" : 0.20 , + "K" : 0.33 , + "E" : 0.50 , + "F" : 0.50 , + : "") + } + } + } Else { Set OppervlakteAandeel="" } @@ -361,6 +407,14 @@ "F" : 255 , : "") } + } ElseIf (LadeVariant=##class(DOM.PM.enu.LadeVariant).MVX()) { + Set VerpakkingHoogte=$Case(LadeHoogte, + "N" : 86 , + "M" : 108 , + "K" : 146 , + "E" : 209 , + "F" : 273 , + : "") } Else { Set VerpakkingHoogte="" } Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml =================================================================== diff -u -r58748 -r62894 --- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml (.../TestCalculator.cls.xml) (revision 58748) +++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml (.../TestCalculator.cls.xml) (revision 62894) @@ -20,6 +20,9 @@ Set OppAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),0,650,"D","K") Do $$$AssertTrue($$$ValIsBetween(OppAandeel,0.001,1),"04. Het oppervlakteAandeel ligt tussen 0 en 1") + + Set OppAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).MVX(),0,650,"M",) + Do $$$AssertTrue($$$ValIsBetween(OppAandeel,0.001,1),"05. Het oppervlakteAandeel ligt tussen 0 en 1") Quit ]]> @@ -80,6 +83,9 @@ Set VolumeAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(),1,500,"M","M",840) Do $$$AssertTrue($$$ValIsBetween(VolumeAandeel,0.001,1),"03. Het VolumeAandeel ligt tussen 0 en 100%") + + Set VolumeAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).MVX(),0,500,"M","M",840) + Do $$$AssertTrue($$$ValIsBetween(VolumeAandeel,0.001,1),"04. Het VolumeAandeel ligt tussen 0 en 100%") ]]>