Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r46503 -r46523
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46503)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 46523)
@@ -99,6 +99,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	
 	Write PRNr," ",$$$PRGet($$$KortTekst),!
 	Set bl = ..%New()
 	Set VI = bl.Calculate(PRNr) Do DumpObject^%apiOBJ(bl), DumpObject^%apiOBJ(VI)
@@ -299,15 +300,27 @@
 <Method name="GebruiktDoorHalux">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit "BESLAGCOMPONENT"
-	Set JaarVerkoopHalux=$$PROD^STAT(..PRNr,$$$KlantHalux,..BeginDatumGebruik,"",1)
-	Set JaarVerkoop=$$PROD^STAT(..PRNr,0,..BeginDatumGebruik,"",1)
+	Set JaarVerkoopHalux=..AantalVerkocht(..PRNr,$$$KlantHalux,..BeginDatumGebruik)
+	Set JaarVerkoop=..AantalVerkocht(..PRNr,0,..BeginDatumGebruik)
 	Quit:JaarVerkoopHalux<(JaarVerkoop*.05) "BESLAG"
 	Quit:JaarVerkoopHalux<(JaarVerkoop*.5) "BESLAGCOMPONENT"
 	Quit "COMPONENT"
 ]]></Implementation>
 </Method>
 
+<Method name="AantalVerkocht">
+<FormalSpec>PRNr,KLNr,Begin</FormalSpec>
+<Implementation><![CDATA[
+	Set Maand=$O(^KSTPR(PRNr,KLNr,Begin),-1)
+ 	Set Cumul=0
+ 	For  Set Maand=$O(^KSTPR(PRNr,KLNr,Maand)) Quit:Maand=""  Do
+ 	. Set Rec=^KSTPR(PRNr,KLNr,Maand)
+ 	. Set Cumul=Cumul+$P(Rec,"\",1)
+ 
+ 	Quit Cumul
+]]></Implementation>
+</Method>
+
 <Method name="VeiligheidsVoorraadMetStdAfwijking">
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>