%RegisteredObject MoederPRNr:%Integer %ArrayOfDataTypes 0) { #dim Aantal = 0 If ##class(DOM.PM.enu.LinkType).HalffabrikaatHaluxZonderStock() '= BS.GeefProduct().GeefLinkType() { #dim KindBSProductID As %String = BS.GeefPRNr() If KinderenMetAantal.IsDefined(KindBSProductID) { Set Aantal = KinderenMetAantal.GetAt(KindBSProductID) } Do KinderenMetAantal.SetAt(Aantal + BS.GeefAantal(), KindBSProductID) } } } Quit KinderenMetAantal ]]>