Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u -r1349 -r1354
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1349)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1354)
@@ -56,13 +56,14 @@
 </Method>
 
 <Method name="ProductGet">
+<Private>1</Private>
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
-	If ('$IsObject(i%Product))   ; [Review WV - CSC Bouwsteen]  moet dit niet  r%Product zijn  i.p.v. i% ? 
+	If ('$IsObject(r%Product)) 
 	{
-		Set i%Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct($Piece(..BouwsteenRecord,"\",1))
+		Set r%Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct($Piece(..BouwsteenRecord,"\",1))
 	}
-	Quit i%Product
+	Quit r%Product
 ]]></Implementation>
 </Method>
 
@@ -75,7 +76,8 @@
 		Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 		If (..BouwsteenID = "")
 		{
-			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)   ; [Review WV - CSC Bouwsteen]  Opgelet: dit loopt fout wanneer er geen subnode "KIND.nnn" aanwezig is. Dus moet ge eerst checken dat $P(BouwsteenID,".",1)="KIND" 
+			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
+			If ($P(BouwsteenID,".",1)'="KIND") { Set BouwsteenID = "KIND.000" }
 			Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
 			Set ..BouwsteenID = BouwsteenID
 		}