Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u -r1339 -r1341
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1339)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1341)
@@ -25,6 +25,7 @@
 		Set $Piece(BouwsteenRecord,"\",1) = Product.GeefPRNr()
 		Set $Piece(BouwsteenRecord,"\",2) = Aantal
 		Set $Piece(BouwsteenRecord,"\",3) = "K"
+		Set $Piece(BouwsteenRecord,"\",11) = "PROD"
 		Set ..BouwsteenRecord = BouwsteenRecord
 		
 		Set ..Product = Product
@@ -39,6 +40,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetAantal">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set BouwsteenRecord = ..BouwsteenRecord
+	Set $Piece(BouwsteenRecord,"\",2) = Aantal
+	Set ..BouwsteenRecord = BouwsteenRecord
+]]></Implementation>
+</Method>
+
 <Method name="GeefProduct">
 <ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[	Quit ..Product