Index: BL/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r29059 -r40246
--- BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 29059)
+++ BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 40246)
@@ -331,7 +331,7 @@
  		If +Voorraad '= +Waarde
  		{ 
  			#dim StockMutatie As %Integer = Waarde-Voorraad                     ;stockmutatie van een gewoon product
- 	 		Do STORE^PRSTOCK("W","O",ProductID,StockMutatie,"VoorraadTelling Halux")
+ 	 		Do ..STORExPRSTOCK("W","O",ProductID,StockMutatie,"VoorraadTelling Halux")
  		}
 	}Else{
 	 	Do ..DetailMP(VoorraadTelling,Waarde)	
@@ -345,6 +345,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="STORExPRSTOCK">
+<FormalSpec>StockTyp,Aktie,PRNr,Aantal,Ref</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New CUserId,CorFakt,KatPr
+	Do STORE^PRSTOCK(StockTyp,Aktie,PRNr,Aantal,Ref)
+]]></Implementation>
+</Method>
+
 <Method name="DetailMP">
 <Description>
 Verdelen van de getelde voorraden over de subproducten van een product</Description>