Index: DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml =================================================================== diff -u -r29692 -r29708 --- DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml (.../HalffabSpec.cls.xml) (revision 29692) +++ DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml (.../HalffabSpec.cls.xml) (revision 29708) @@ -213,6 +213,8 @@ Set HalffabItem = HFGegegevensVisitor.GeefHalffabItem() } + Set HalffabItem.OpnemenInEindproduct = 1 + Set:$IsObject(HalffabrikaatAanpassing.VerwijderenAanpassing) HalffabItem.OpnemenInEindproduct = 0 #dim HalffabrikaatNietMeeleveren As %Boolean = NietMeeLeveren.IsDefined(HalffabItem.GeefRol()) Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingSchroefv000.cls.xml =================================================================== diff -u -r29686 -r29708 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingSchroefv000.cls.xml (.../HFKoppelingSchroefv000.cls.xml) (revision 29686) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKoppelingSchroefv000.cls.xml (.../HFKoppelingSchroefv000.cls.xml) (revision 29708) @@ -15,16 +15,18 @@ 0) - #dim HeeftSchroefkoppeling As %Boolean = (IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()) - #dim IsNodig As %Boolean = (HeeftSchroefkoppeling && BevatKoppeling) - - Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(IsNodig) - Do HalffabItem.ZetIsMeeTeRekenenInPrijs(IsNodig) - Set HalffabItem.OpnemenInEindproduct = IsNodig - Set HalffabItem.BuilderBepaaltOpnemenInEindproduct = 1 + Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()) + Do HalffabItem.ZetIsMeeTeRekenenInPrijs(IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()) ]]> + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext +1 +%Boolean + 0) +]]> +