Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1075 -r1376
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1075)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1376)
@@ -284,7 +284,7 @@
 
 <Method name="IsStockOverKinderen">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit $data(^PRBS("BS",..ProductNummer))>0
+<Implementation><![CDATA[	quit $piece(^KPR(..ProductNummer,0),"\",23)="S"
 ]]></Implementation>
 </Method>