Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml =================================================================== diff -u -r58818 -r64150 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml (.../HFBodemOndersteuningv001.cls.xml) (revision 58818) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningv001.cls.xml (.../HFBodemOndersteuningv001.cls.xml) (revision 64150) @@ -42,6 +42,14 @@ } ]]> + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +1 +%Boolean + + Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuning/Test.cls.xml =================================================================== diff -u -r34482 -r64150 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuning/Test.cls.xml (.../Test.cls.xml) (revision 34482) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuning/Test.cls.xml (.../Test.cls.xml) (revision 64150) @@ -15,31 +15,30 @@ - @@ -90,16 +89,27 @@ ; unit #dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFBodemOndersteuningv001 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFBodemOndersteuningv001).%New("") - Do $$$AssertEquals(Builder.Bereken(..TAORKenmerken, ..GeefContext()).Aantal, VerwachtAantal) + #dim Halffab As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = Builder.Bereken(..TAORKenmerken, ..GeefContext()) + //Voor corpusbinnenbreedte <300 wordt geen halffab gemaakt + If Halffab { + Do $$$AssertEquals(Halffab.Aantal, VerwachtAantal) + } Else { + Do $$$AssertEquals(0, VerwachtAantal) + } + ; integratie #dim Builders As DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilderList = ##class(DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilderList).%New() Do Builders.Insert(Builder) #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefCustomizedHalffabItemsBoom(..TAORKenmerken, Builders) #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.BodemOndersteuning) - Do $$$AssertEquals(HalffabItem.Aantal, VerwachtAantal, "Corpusbinnenbreedte = " _ CorpusBinnenbreedte) + If HalffabItem { + Do $$$AssertEquals(HalffabItem.Aantal, VerwachtAantal, "Corpusbinnenbreedte = " _ CorpusBinnenbreedte) + } Else { + Do $$$AssertEquals(0, VerwachtAantal, "Corpusbinnenbreedte = " _ CorpusBinnenbreedte) + } ]]> Index: DOM/PM/Maatwerk/TAX/impl/BodemOndersteuningAantalBepaler.cls.xml =================================================================== diff -u -r53352 -r64150 --- DOM/PM/Maatwerk/TAX/impl/BodemOndersteuningAantalBepaler.cls.xml (.../BodemOndersteuningAantalBepaler.cls.xml) (revision 53352) +++ DOM/PM/Maatwerk/TAX/impl/BodemOndersteuningAantalBepaler.cls.xml (.../BodemOndersteuningAantalBepaler.cls.xml) (revision 64150) @@ -12,7 +12,6 @@ Set Aantal = $$$If(IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel(), 3 , 2) } Else { - If IngegevenKenmerken.InterneBreedte < 300 { Set Aantal = 0 } If ((IngegevenKenmerken.InterneBreedte > 800) && (IngegevenKenmerken.InterneBreedte <= 1200)) { Set Aantal = $$$If(IngegevenKenmerken.LadeDiepte < 300 , 1 ,2 ) } If (IngegevenKenmerken.InterneBreedte > 1200) { Set Aantal = $$$If(IngegevenKenmerken.LadeDiepte < 300 , 2 ,3 ) } }