Index: APPS/common/impl/StockNiveauOverKinderenProdResService.cls.xml =================================================================== diff -u -r33085 -r33653 --- APPS/common/impl/StockNiveauOverKinderenProdResService.cls.xml (.../StockNiveauOverKinderenProdResService.cls.xml) (revision 33085) +++ APPS/common/impl/StockNiveauOverKinderenProdResService.cls.xml (.../StockNiveauOverKinderenProdResService.cls.xml) (revision 33653) @@ -94,11 +94,14 @@ If ($Piece(^PRBS("BS",..PRNr,BSLabel),"\",3) = "K") && ($Piece(^PRBS("BS",..PRNr,BSLabel),"\",2) > 0) { #dim Aantal = 0 #dim ProductID = $Piece(^PRBS("BS",..PRNr,BSLabel),"\",1) - If (KinderenMetAantal.IsDefined(ProductID)) - { - Set Aantal = KinderenMetAantal.GetAt(ProductID) + + 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) } - Do KinderenMetAantal.SetAt(Aantal + $Piece(^PRBS("BS",..PRNr,BSLabel),"\",2), ProductID) } Set BSLabel = $Order(^PRBS("BS",..PRNr,BSLabel)) }