Index: APPS/common/impl/StockOverKinderen.cls.xml
===================================================================
diff -u -r33652 -r33659
--- APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33652)
+++ APPS/common/impl/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33659)
@@ -121,24 +121,7 @@
 <Method name="BepaalKinderen">
 <FormalSpec>MoederPRNr:%Integer</FormalSpec>
 <ReturnType>%ArrayOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	set arKinderen = ##class(%ArrayOfDataTypes).%New()
-	set idxBSKey = ""
-	
-	for  { set idxBSKey = $order(^PRBS("BS",MoederPRNr,idxBSKey)) quit:idxBSKey=""
-		
-		set Rec = ^PRBS("BS",MoederPRNr,idxBSKey)
-		if $piece(Rec,"\",3) = "K" {
-			set Aantal = $piece(Rec,"\",2)
-			set KindPRNr = $piece(Rec,"\",1)
-			
-			if ##class(DOM.PM.enu.LinkType).HalffabrikaatHaluxZonderStock() '= $piece( ^KPR(KindPRNr, 0), "\", 23 ) {
-				do arKinderen.SetAt(Aantal,KindPRNr)
-			}
-		}
-	}
-	
-	quit arKinderen
+<Implementation><![CDATA[	Quit ##class(APPS.common.impl.KindProductenMetAantallenBepaler).%New().BepaalKinderen(MoederPRNr)
 ]]></Implementation>
 </Method>