Index: APPS/common/impl/StockOverKinderen.cls.xml =================================================================== diff -u -r33084 -r33652 --- APPS/common/impl/StockOverKinderen.cls.xml (.../StockOverKinderen.cls.xml) (revision 33084) +++ APPS/common/impl/StockOverKinderen.cls.xml (.../StockOverKinderen.cls.xml) (revision 33652) @@ -128,11 +128,13 @@ for { set idxBSKey = $order(^PRBS("BS",MoederPRNr,idxBSKey)) quit:idxBSKey="" set Rec = ^PRBS("BS",MoederPRNr,idxBSKey) - if $piece(Rec,"\",3)="K" { + if $piece(Rec,"\",3) = "K" { set Aantal = $piece(Rec,"\",2) set KindPRNr = $piece(Rec,"\",1) - do arKinderen.SetAt(Aantal,KindPRNr) + if ##class(DOM.PM.enu.LinkType).HalffabrikaatHaluxZonderStock() '= $piece( ^KPR(KindPRNr, 0), "\", 23 ) { + do arKinderen.SetAt(Aantal,KindPRNr) + } } }