APPS.common.impl.StockNiveauService %Float 99999999999999 %Numeric %Numeric %Numeric %Numeric 1 %ArrayOfDataTypes 0) { #dim Aantal = 0 If ##class(DOM.PM.enu.LinkType).HalffabrikaatHaluxZonderStock() '= BS.GeefProduct().GeefLinkType() { If (KinderenMetAantal.IsDefined(BS.GeefPRNr())) { Set Aantal = KinderenMetAantal.GetAt(BS.GeefPRNr()) } Do KinderenMetAantal.SetAt(Aantal + BS.GeefAantal(), BS.GeefPRNr()) } } Set BSLabel = $Order(^PRBS("BS",..PRNr,BSLabel)) } Quit KinderenMetAantal ]]> %Numeric %Numeric %Numeric %Numeric