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 ) }
}