Index: AXdixf/Product/VoorraadInstellingen.cls.xml
===================================================================
diff -u
--- AXdixf/Product/VoorraadInstellingen.cls.xml	(revision 0)
+++ AXdixf/Product/VoorraadInstellingen.cls.xml	(revision 41527)
@@ -0,0 +1,201 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.Product.VoorraadInstellingen">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="PRNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ServiceGraad">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="JaarVerkoop">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="GGWeekVerkoop">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelMinimum">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="BestelVeelvoud">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="VeiligheidsVoorraad">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="StandaardAfwijking">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveringsDagen">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="ExtraLeveringsDagen">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="PalletAantal">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BerekendBestelQty">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Calc">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..PRNr=PRNr
+	Set ..ServiceGraad=2
+	Do ..Calculate()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="test">
+<Description>
+d ##class(AXdixf.Product.VoorraadInstellingen).test(3551)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[	Set VI=..%New(PRNr) Do DumpObject^%apiOBJ(VI)
+]]></Implementation>
+</Method>
+
+<Method name="Calculate">
+<Implementation><![CDATA[
+	Set ..GGWeekVerkoop=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
+	Set ..JaarVerkoop=..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
+	Set ..StandaardAfwijking=##class(DW.StockWaarde).StandaardAfwijking(..PRNr,100)
+	Do ..BerekenLevertermijn()
+	Set ..VeiligheidsVoorraad=..VeiligheidsVoorraad()
+	Set ..PalletAantal=$$$ProductGet(..PRNr,$$$PalletQty)
+	Set ..BestelVeelvoud=$$$ProductGet(..PRNr,$$$GrootVerpakking)
+	Set ..BestelMinimum=$$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)
+	
+	If $$$ProductGet(..PRNr,$$$StockType)  ; stock of beperkt
+	{
+		Set ..VeiligheidsVoorraad=..VeiligheidsVoorraad()
+		Set ..BerekendBestelQty=..BerekenBestelQty()
+		If ..BerekendBestelQty<..BestelMinimum
+		{
+			; volgens definitie van de leverancier
+			Set ..Calc=1
+
+		}
+		ElseIf (..BerekendBestelQty>..PalletAantal)&&(..PalletAantal>0)	
+		{
+			Set ..BestelVeelvoud=..PalletAantal
+			Set ..BestelMinimum=..BerekendBestelQty
+			Set ..Calc=2
+		}
+		Else 
+		{
+			Set ..BestelMinimum=..BerekendBestelQty
+			Set ..Calc=3
+		}
+	}
+	Else ; niet stock
+	{
+		Set ..VeiligheidsVoorraad=0
+		Set ..Calc="N"
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenBestelQty">
+<Implementation><![CDATA[	Quit ..AankoopStatistiek()
+]]></Implementation>
+</Method>
+
+<Method name="AankoopStatistiek">
+<Private>1</Private>
+<Implementation><![CDATA[
+ Set Begin=$H-600
+ Set Key=""
+ For  Set Key=$O(^PRHIST(..PRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
+ . Set Rec=^PRHIST(..PRNr,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
+ . Set Aantal=+$P(Rec,"\",2)
+ . Quit:Aantal<0
+ . Set arHist(Aantal)=$g(arHist(Aantal))+1
+ 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
+
+ Else  Do
+ . Set MaxAantal=""
+
+ Quit MaxAantal
+]]></Implementation>
+</Method>
+
+<Method name="AfrondingTotBeduidendeCijfers">
+<FormalSpec>Getal:%Decimal,MinBeduidendeCijfers:%Integer,AfrondenBeduidendeCijfers</FormalSpec>
+<Implementation><![CDATA[
+	Set:($G(AfrondenBeduidendeCijfers)="")||(AfrondenBeduidendeCijfers>MinBeduidendeCijfers) AfrondenBeduidendeCijfers=MinBeduidendeCijfers
+	Set Getal=+$J(Getal,0,0)
+	Set BeduidendeCijfers=$L(Getal)
+	If BeduidendeCijfers>MinBeduidendeCijfers Do
+	. Set Getal=..Afronding(Getal, BeduidendeCijfers-AfrondenBeduidendeCijfers)
+	Quit Getal
+]]></Implementation>
+</Method>
+
+<Method name="Afronding">
+<FormalSpec>Getal:%Decimal,Nauwkeurigheid:%Integer</FormalSpec>
+<Implementation><![CDATA[	Quit +$J(Getal/(10**Nauwkeurigheid),0,0)*(10**Nauwkeurigheid)
+]]></Implementation>
+</Method>
+
+<Method name="VeiligheidsVoorraad">
+<Implementation><![CDATA[
+	Set VeiligheidsVoorraad=..ServiceGraad*((..LeveringsDagen+..ExtraLeveringsDagen)**.5)*..StandaardAfwijking
+	Set VeiligheidsVoorraad=..AfrondingTotBeduidendeCijfers(VeiligheidsVoorraad,2)
+	Quit VeiligheidsVoorraad
+]]></Implementation>
+</Method>
+
+<Method name="BerekenLevertermijn">
+<Implementation><![CDATA[
+	Set BLID=$$GetBlumID^BLPROD(..PRNr)
+	Set LeveringsDagen=$S(BLID'="":$P($G(^BLProd("D",BLID)),"\",10),1:"")
+	If $G(LeveringsDagen)="" Set LeveringsDagen=$$$ProductGet(..PRNr,$$$LeveringsTermijn)*5
+	Set ..LeveringsDagen=LeveringsDagen+$S(BLID="":0,1:2)
+	Set ..ExtraLeveringsDagen=$S(BLID="":6,1:3)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>