Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000.cls.xml =================================================================== diff -u -r39853 -r39937 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000.cls.xml (.../HFSetSchroevenv000.cls.xml) (revision 39853) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000.cls.xml (.../HFSetSchroevenv000.cls.xml) (revision 39937) @@ -59,11 +59,14 @@ If ($IsObject(..IngegevenKenmerken)) { #dim AantalSchroevenPerBodemsteun = 2 + #dim AantalSchroevenPerDiepteVerstelling = 1 #dim AantalSchroevenVoorBodemOndersteuning As %Integer = ..GeefAantalProducten(..Context, ..Enum.Rol.BodemOndersteuning) * AantalSchroevenPerBodemsteun + #dim AantalSchroevenVoorDiepteVerstelling As %Integer = ..GeefAantalProducten(..Context, ..Enum.Rol.DiepteVerstelling) * AantalSchroevenPerDiepteVerstelling #dim AantalSchroevenVoorKoppeling As %Integer = 4 Set:(..GeefConditieBodemOndersteuningSchroef(..IngegevenKenmerken, ..Context)) TotaalAantalSchroeven = TotaalAantalSchroeven + AantalSchroevenVoorBodemOndersteuning Set:(..GeefConditieKoppelingSchroef(..IngegevenKenmerken, ..Context)) TotaalAantalSchroeven = TotaalAantalSchroeven + AantalSchroevenVoorKoppeling + Set:(..GeefConditieDiepteVerstellingSchroef(..IngegevenKenmerken, ..Context)) TotaalAantalSchroeven = TotaalAantalSchroeven + AantalSchroevenVoorDiepteVerstelling } Quit TotaalAantalSchroeven @@ -106,6 +109,16 @@ Quit 0 ]]> + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +1 +%Boolean + 0) + Quit 0 +]]> +