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