Index: zTryout/MVI/KPR/Product.cls.xml
===================================================================
diff -u -r33171 -r33224
--- zTryout/MVI/KPR/Product.cls.xml	(.../Product.cls.xml)	(revision 33171)
+++ zTryout/MVI/KPR/Product.cls.xml	(.../Product.cls.xml)	(revision 33224)
@@ -45,6 +45,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVoorraad">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(^KPR(..ProductNummer, 0), "\", 14)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVoorraad">
+<FormalSpec>Voorraad:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set $Piece(^KPR(..ProductNummer, 0), "\", 14) = Voorraad
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductOrderIndexIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
Index: zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml
===================================================================
diff -u -r33171 -r33224
--- zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml	(.../Test.cls.xml)	(revision 33171)
+++ zTryout/MVI/UnitTest/KPR/Product/Test.cls.xml	(.../Test.cls.xml)	(revision 33224)
@@ -45,6 +45,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GeefVoorraad">
+<Implementation><![CDATA[
+	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(..#BestaandProductNummer)
+	
+	Set $Piece(^KPR(..#BestaandProductNummer, 0), "\", 14) = 1000
+	Do $$$AssertEquals(Product.GeefVoorraad(), 1000)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetVoorraad">
+<Implementation><![CDATA[
+	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(..#BestaandProductNummer)
+	Do Product.ZetVoorraad(1000)
+	
+	#dim Voorraad As %Integer = $Piece(^KPR(..#BestaandProductNummer, 0), "\", 14)
+	Do $$$AssertEquals(Voorraad, 1000)
+]]></Implementation>
+</Method>
+
 <Method name="Test: GeefProductOrderIndexIterator">
 <Implementation><![CDATA[
 	#dim Product As zTryout.MVI.KPR.Product = ##class(zTryout.MVI.KPR.Product).%New(568125)