Index: KPRIJS.mac.rou
===================================================================
diff -u -r47285 -r47864
--- KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 47285)
+++ KPRIJS.mac.rou	(.../KPRIJS.mac.rou)	(revision 47864)
@@ -450,3 +450,24 @@
  . Set J=$O(^KPR(PRNr,"J")),R=^(J),PPL=$P(R,D,19)
  . Set:+PPL=+SchaduwPPL SchaduwPPL=""
  Quit SchaduwPPL
+
+ 
+HeeftNietAlleenKinderen(PRNr,NoSa)
+	New HeeftNietAlleenKinderen,BSKey,BSNode
+ 
+	Quit:($$$ProductGet(PRNr,$$$LinkType)="S") 1 ; stock over kinderen -> de kinderen bepalen de prijs
+ 
+	If $G(NoSa)="S" Do
+	. Set BSNode="BSS"
+	. Set:'$D(^PRBS(BSNode,PRNr)) BSNode="BS"
+	Else  Do
+	. Set BSNode="BS"
+	
+	; als er alleen kinderen zijn dan gaat het over een ministuck liste en dan bepaald de moeder de prijs en niet de som van de bouwstenen
+	Set HeeftNietAlleenKinderen=0
+	Set BSKey=""
+	For  Set BSKey=$O(^PRBS(BSNode,PRNr,BSKey)) Quit:BSKey=""  Do  Quit:HeeftNietAlleenKinderen
+	. Set HeeftNietAlleenKinderen=$P(^PRBS(BSNode,PRNr,BSKey),"\",3)?1(1"H",1"S",1"T") 
+	Quit HeeftNietAlleenKinderen
+ 
+