Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u -r1341 -r1349
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1341)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1349)
@@ -24,8 +24,8 @@
 		Set BouwsteenRecord = ..BouwsteenRecord
 		Set $Piece(BouwsteenRecord,"\",1) = Product.GeefPRNr()
 		Set $Piece(BouwsteenRecord,"\",2) = Aantal
-		Set $Piece(BouwsteenRecord,"\",3) = "K"
-		Set $Piece(BouwsteenRecord,"\",11) = "PROD"
+		Set $Piece(BouwsteenRecord,"\",3) = "K"        ; Type 
+		Set $Piece(BouwsteenRecord,"\",11) = "PROD"    ; Groep 
 		Set ..BouwsteenRecord = BouwsteenRecord
 		
 		Set ..Product = Product
@@ -58,7 +58,7 @@
 <Method name="ProductGet">
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
-	If ('$IsObject(i%Product))
+	If ('$IsObject(i%Product))   ; [Review WV - CSC Bouwsteen]  moet dit niet  r%Product zijn  i.p.v. i% ? 
 	{
 		Set i%Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct($Piece(..BouwsteenRecord,"\",1))
 	}
@@ -75,7 +75,7 @@
 		Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 		If (..BouwsteenID = "")
 		{
-			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
+			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 $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
 			Set ..BouwsteenID = BouwsteenID
 		}