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)
+			}
 		}
 	}
 	
Index: vhUnitTest/APPS/common/StockOverKinderen.cls.xml
===================================================================
diff -u -r33084 -r33652
--- vhUnitTest/APPS/common/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33084)
+++ vhUnitTest/APPS/common/StockOverKinderen.cls.xml	(.../StockOverKinderen.cls.xml)	(revision 33652)
@@ -5,14 +5,26 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="PRNrVanHaluxHalffabZonderStock">
+<Type>%String</Type>
+<Default>1016</Default>
+</Parameter>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	 do ##super()
 	 do ..CreatePRBS()	
-	 do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1015)
+	 do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1016)
+	 do ..StelInHaluxHalffabZonderStock()
 ]]></Implementation>
 </Method>
 
+<Method name="StelInHaluxHalffabZonderStock">
+<Private>1</Private>
+<Implementation><![CDATA[	 set $Piece( ^KPR(..#PRNrVanHaluxHalffabZonderStock,0), "\", 23 ) = "HHZ"
+]]></Implementation>
+</Method>
+
 <Method name="CreatePRBS">
 <Implementation><![CDATA[
   	do ..DeletePRBS()
@@ -22,6 +34,7 @@
   	set ^PRBS("BS",1000,"KIND.002")="1011\1\K\\\\\\\\P\"
   	set ^PRBS("BS",1000,"KIND.003")="1012\2\K\\\\\\\\P\"
   	set ^PRBS("BS",1000,"KIND.004")="1013\4\K\\\\\\\\P\"
+  	set ^PRBS("BS",1000,"KIND.005")=..#PRNrVanHaluxHalffabZonderStock _ "\4\K\\\\\\\\P\"
 
 	set ^PRBS("BS",1001)="M\KP"
   	set ^PRBS("BS",1001,"KIND.001")="1010\3\K\\\\\\\\P\"
@@ -73,7 +86,7 @@
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
  	do ..DeletePRBS()
- 	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1015)
+ 	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1016)
 	Do ##super()
 ]]></Implementation>
 </Method>