Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r1118 -r1376
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1118)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1376)
@@ -78,6 +78,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#define enuStockType ##class(APPS.common.enu.StockType)
+	#define IsStockOverKinderen $piece(^KPR(..PRNr,0),"\",23)="S"
+	
 	set ..PRNr = PRNr
 	set ..implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(PRNr,Datum)
 	set ..Datum = Datum
@@ -111,7 +113,7 @@
 	quit:$length(..Fysisch) ..Fysisch
 	
 	set Result = 0
-	if $data(^PRBS("BS",..PRNr))>0 { 
+	if $$$IsStockOverKinderen { 
 		do ..implStockOverKinderen.SetStockType($$$enuStockType.Fysisch())
 		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
@@ -129,7 +131,7 @@
 	quit:$length(..FysischMinReservatie) ..FysischMinReservatie
 	
 	set Result = 0
-	if $data(^PRBS("BS",..PRNr))>0 {
+	if $$$IsStockOverKinderen {
 		do ..implStockOverKinderen.SetStockType($$$enuStockType.FysischMinReservaties())
 		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
@@ -147,7 +149,7 @@
 	quit:$length(..Praktisch) ..Praktisch
 	
 	set Result = 0
-	if $data(^PRBS("BS",..PRNr))>0 {
+	if $$$IsStockOverKinderen {
 		do ..implStockOverKinderen.SetStockType($$$enuStockType.Praktisch())
 		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}
@@ -165,7 +167,7 @@
 	quit:$length(..Theoretisch) ..Theoretisch
 	
 	set Result = 0
-	if $data(^PRBS("BS",..PRNr))>0 {
+	if $$$IsStockOverKinderen {
 		do ..implStockOverKinderen.SetStockType($$$enuStockType.Theoretisch())
 		set Result = ..implStockOverKinderen.Beschikbaarheid()
 	}