Index: AXdixf/Product/VoorraadInstellingen.cls.xml
===================================================================
diff -u -r41527 -r41584
--- AXdixf/Product/VoorraadInstellingen.cls.xml	(.../VoorraadInstellingen.cls.xml)	(revision 41527)
+++ AXdixf/Product/VoorraadInstellingen.cls.xml	(.../VoorraadInstellingen.cls.xml)	(revision 41584)
@@ -76,7 +76,8 @@
 
 <Method name="test">
 <Description>
-d ##class(AXdixf.Product.VoorraadInstellingen).test(3551)</Description>
+d ##class(AXdixf.Product.VoorraadInstellingen).test(3551)
+d ##class(AXdixf.Product.VoorraadInstellingen).test(6818) ; minipress</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr</FormalSpec>
 <Implementation><![CDATA[	Set VI=..%New(PRNr) Do DumpObject^%apiOBJ(VI)
@@ -87,7 +88,7 @@
 <Implementation><![CDATA[
 	Set ..GGWeekVerkoop=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
 	Set ..JaarVerkoop=..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
-	Set ..StandaardAfwijking=##class(DW.StockWaarde).StandaardAfwijking(..PRNr,100)
+	Set ..StandaardAfwijking=##class(DW.StockWaarde).StandaardAfwijking(..PRNr,26)
 	Do ..BerekenLevertermijn()
 	Set ..VeiligheidsVoorraad=..VeiligheidsVoorraad()
 	Set ..PalletAantal=$$$ProductGet(..PRNr,$$$PalletQty)
@@ -98,10 +99,17 @@
 	{
 		Set ..VeiligheidsVoorraad=..VeiligheidsVoorraad()
 		Set ..BerekendBestelQty=..BerekenBestelQty()
-		If ..BerekendBestelQty<..BestelMinimum
+		If +$$$ProductGet(..PRNr,$$$ScanType)>0
 		{
+			Set ..Calc="L"
+			Set ..VeiligheidsVoorraad=+$$$ProductGet(..PRNr,$$$ScanType)
+			Set ..JaarVerkoop=0
+		}
+		ElseIf ..BerekendBestelQty<..BestelMinimum
+		{
 			; volgens definitie van de leverancier
 			Set ..Calc=1
+			Set ..BestelMinimum=..BerekendBestelQty
 
 		}
 		ElseIf (..BerekendBestelQty>..PalletAantal)&&(..PalletAantal>0)	
@@ -133,7 +141,7 @@
 <Method name="AankoopStatistiek">
 <Private>1</Private>
 <Implementation><![CDATA[
- Set Begin=$H-600
+ Set Begin=$H-150
  Set Key=""
  For  Set Key=$O(^PRHIST(..PRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
  . Set Rec=^PRHIST(..PRNr,Key)
@@ -143,15 +151,15 @@
  . Set Aantal=+$P(Rec,"\",2)
  . Quit:Aantal<0
  . Set arHist(Aantal)=$g(arHist(Aantal))+1
- k %arHist m %arHist=arHist zw %arHist
+ ;k %arHist m %arHist=arHist zw %arHist
  If $D(arHist) Do
  . Set Aantal=""
  . For  Set Aantal=$O(arHist(Aantal)) Quit:Aantal=""  Do
  . . Set arSort(arHist(Aantal),Aantal)=""
  
  . Set MaxVoorkomen=$O(arSort(""),-1) ; hoogst aantal voorkomen
  . Set MaxAantal=$O(arSort(MaxVoorkomen,"")) ; kleinste aantal
- . k %arSort m %arSort=arSort zw %arSort
+ . ;k %arSort m %arSort=arSort zw %arSort
 
  Else  Do
  . Set MaxAantal=""
Index: DW/StockWaarde.cls.xml
===================================================================
diff -u -r41122 -r41584
--- DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 41122)
+++ DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 41584)
@@ -329,7 +329,7 @@
  . ;Quit:+$P(Rec,"\")<Begin
  . ;Quit:+$P(Rec,"\")>Einde
  . Quit:($P(Rec,"\",5)'="M")&&($P(Rec,"\",5)'="W")
- . If $P(Rec,"\",5)="M" Quit:'$LF($LB("U","K"),$P(Rec,"\",4))
+ . If ($P(Rec,"\",5)="M")||($P(Rec,"\",5)="K") Quit:'$LF($LB("U"),$P(Rec,"\",4))
  . If $P(Rec,"\",5)="W" Quit:'$LF($LB("H"),$P(Rec,"\",4))
  . Set IdxDate = $$CALCDATE^vhLib.DataTypes(+$P(Rec,"\"),"W","MD") ;woensdag
  . Quit:'$D(arHist(IdxDate))