Index: vhTest/Fake/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r44126 -r44207
--- vhTest/Fake/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44126)
+++ vhTest/Fake/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44207)
@@ -28,12 +28,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSOPRKindInCache">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefVervangProductDoorSOPRInAX">
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="IsSOPRKindInCache">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r44133 -r44207
--- AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44133)
+++ AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44207)
@@ -184,15 +184,13 @@
 
 <Method name="IsSOPRKindInCache">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ($E($$$PRGet($$$IdentNummer))=6)&&($LL(..GetVHProds(PRNr,1))>1)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSOPRKindInCache">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	Quit:'..IsSOPRInCache(PRNr) ""
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r43634 -r44207
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 43634)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 44207)
@@ -26,6 +26,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StatistiekPRNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PalletAantal">
 <Type>%Decimal</Type>
 <Private>1</Private>
@@ -41,6 +46,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VoorraadInstelling">
 <Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling</Type>
 <Private>1</Private>
@@ -58,16 +68,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..SoprConvertor= ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Calculate">
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling</ReturnType>
 <Implementation><![CDATA[
 	Set ..VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
 	Set ..PRNr = PRNr
+	Set ..StatistiekPRNr=..SoprConvertor.GeefSOPRKindInCache(..PRNr)
+	Set:..StatistiekPRNr="" ..StatistiekPRNr=..PRNr
 
 	Set ..GGWeekVerkoop=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
 	Set ..VoorraadInstelling.JaarVerkoop = ..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
-	Set ..StandaardAfwijking = ##class(DW.StockWaarde).StandaardAfwijking(..PRNr,26)
+	Set ..StandaardAfwijking = ##class(DW.StockWaarde).StandaardAfwijking(..StatistiekPRNr,26)
 	Do ..BerekenLevertermijn()
 	Set ..VoorraadInstelling.VeiligheidsVoorraad = ..VeiligheidsVoorraad()
 	Set ..PalletAantal = $$$ProductGet(..PRNr,$$$PalletQty)
@@ -133,8 +153,8 @@
 	#dim Key,Rec As %String
 	Set Begin = $H-150
 	Set Key=""
-	For  Set Key=$O(^PRHIST(..PRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
-	. Set Rec=^PRHIST(..PRNr,Key)
+	For  Set Key=$O(^PRHIST(..StatistiekPRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
+	. Set Rec=^PRHIST(..StatistiekPRNr,Key)
 	. If +$P(Rec,"\")<Begin Set Key="" Quit
 	. If ($P(Rec,"\",5)'="M")&&($P(Rec,"\",5)'="W")&&($P(Rec,"\",5)'="K") Quit
 	. If ($P(Rec,"\",4)'="I") Quit
Index: vhTest/Mock/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml
===================================================================
diff -u -r44126 -r44207
--- vhTest/Mock/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44126)
+++ vhTest/Mock/AX/Uitgaand/PM/impl/Convertor/Sopr/ProductConvertor.cls.xml	(.../ProductConvertor.cls.xml)	(revision 44207)
@@ -29,12 +29,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSOPRKindInCache">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefSOPRKindInCache",PRNr)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVervangProductDoorSOPRInAX">
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVervangProductDoorSOPRInAX",PRNr)
 ]]></Implementation>
 </Method>
+
+<Method name="IsSOPRKindInCache">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsSOPRKindInCache",PRNr)
+]]></Implementation>
+</Method>
 </Class>