Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstelling.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstelling.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstelling.cls.xml	(revision 41595)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="JaarVerkoop">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="BestelMinimum">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="BestelVeelvoud">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="VeiligheidsVoorraad">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="LeveringsDagen">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="ExtraLeveringsDagen">
+<Type>%Decimal</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml
===================================================================
diff -u -r41589 -r41595
--- AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 41589)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VoorraadInstellingCalculator.cls.xml	(.../VoorraadInstellingCalculator.cls.xml)	(revision 41595)
@@ -14,40 +14,16 @@
 <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>
@@ -63,73 +39,75 @@
 <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>
+<Property name="VoorraadInstelling">
+<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling</Type>
+<Private>1</Private>
+</Property>
 
 <Method name="test">
 <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)
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[	Set VI = ..%New().Calculate(PRNr) Do DumpObject^%apiOBJ(VI)
 ]]></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 ..ServiceGraad = 2
+
 	Set ..GGWeekVerkoop=$P($$$ProductGet(..PRNr,$$$GGWeekVerkoop),"#")
-	Set ..JaarVerkoop=..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
-	Set ..StandaardAfwijking=##class(DW.StockWaarde).StandaardAfwijking(..PRNr,26)
+	Set ..VoorraadInstelling.JaarVerkoop = ..AfrondingTotBeduidendeCijfers(..GGWeekVerkoop*48,3)
+	Set ..StandaardAfwijking = ##class(DW.StockWaarde).StandaardAfwijking(..PRNr,26)
 	Do ..BerekenLevertermijn()
-	Set ..VeiligheidsVoorraad=..VeiligheidsVoorraad()
-	Set ..PalletAantal=$$$ProductGet(..PRNr,$$$PalletQty)
-	Set ..BestelVeelvoud=$$$ProductGet(..PRNr,$$$GrootVerpakking)
-	Set ..BestelMinimum=$$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)
+	Set ..VoorraadInstelling.VeiligheidsVoorraad = ..VeiligheidsVoorraad()
+	Set ..PalletAantal = $$$ProductGet(..PRNr,$$$PalletQty)
+	Set ..VoorraadInstelling.BestelVeelvoud = $$$ProductGet(..PRNr,$$$GrootVerpakking)
+	Set ..VoorraadInstelling.BestelMinimum = $$$ProductGet(..PRNr,$$$MinimumBestelHoeveelheid)
 	
 	If $$$ProductGet(..PRNr,$$$StockType)  ; stock of beperkt
 	{
-		Set ..VeiligheidsVoorraad=..VeiligheidsVoorraad()
-		Set ..BerekendBestelQty=..BerekenBestelQty()
-		If +$$$ProductGet(..PRNr,$$$ScanType)>0
+		Set ..VoorraadInstelling.VeiligheidsVoorraad = ..VeiligheidsVoorraad()
+		Set ..BerekendBestelQty = ..BerekenBestelQty()
+		If +$$$ProductGet(..PRNr,$$$ScanType) > 0
 		{
-			Set ..Calc="L"
-			Set ..VeiligheidsVoorraad=+$$$ProductGet(..PRNr,$$$ScanType)
-			Set ..JaarVerkoop=0
+			Set ..Calc = "L"
+			Set ..VoorraadInstelling.VeiligheidsVoorraad = +$$$ProductGet(..PRNr,$$$ScanType)
+			Set ..VoorraadInstelling.JaarVerkoop = 0
 		}
-		ElseIf ..BerekendBestelQty<..BestelMinimum
+		ElseIf ..BerekendBestelQty < ..VoorraadInstelling.BestelMinimum
 		{
 			; volgens definitie van de leverancier
-			Set ..Calc=1
-			Set ..BestelMinimum=..BerekendBestelQty
+			Set ..Calc = 1
+			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
 
 		}
-		ElseIf (..BerekendBestelQty>..PalletAantal)&&(..PalletAantal>0)	
+		ElseIf (..BerekendBestelQty > ..PalletAantal) && (..PalletAantal > 0)	
 		{
-			Set ..BestelVeelvoud=..PalletAantal
-			Set ..BestelMinimum=..BerekendBestelQty
-			Set ..Calc=2
+			Set ..VoorraadInstelling.BestelVeelvoud = ..PalletAantal
+			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
+			Set ..Calc = 2
 		}
 		Else 
 		{
-			Set ..BestelMinimum=..BerekendBestelQty
-			Set ..Calc=3
+			Set ..VoorraadInstelling.BestelMinimum = ..BerekendBestelQty
+			Set ..Calc = 3
 		}
 	}
 	Else ; niet stock
 	{
-		Set ..VeiligheidsVoorraad=0
-		Set ..Calc="N"
+		Set ..VoorraadInstelling.VeiligheidsVoorraad = 0
+		Set ..Calc = "N"
 
 	}
+	
+	quit ..VoorraadInstelling
 ]]></Implementation>
 </Method>
 
@@ -141,7 +119,7 @@
 <Method name="AankoopStatistiek">
 <Private>1</Private>
 <Implementation><![CDATA[
- Set Begin=$H-150
+ Set Begin = $H-150
  Set Key=""
  For  Set Key=$O(^PRHIST(..PRNr,Key),-1) Quit:Key=""  Do  Quit:Key=""
  . Set Rec=^PRHIST(..PRNr,Key)
@@ -169,38 +147,39 @@
 </Method>
 
 <Method name="AfrondingTotBeduidendeCijfers">
-<FormalSpec>Getal:%Decimal,MinBeduidendeCijfers:%Integer,AfrondenBeduidendeCijfers</FormalSpec>
+<FormalSpec>Getal:%Decimal,MinBeduidendeCijfers:%Integer,AfrondenBeduidendeCijfers:%Integer</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)
+	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><![CDATA[	Quit +$J(Getal / (10**Nauwkeurigheid),0,0) * (10**Nauwkeurigheid)
 ]]></Implementation>
 </Method>
 
 <Method name="VeiligheidsVoorraad">
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	Set VeiligheidsVoorraad=..ServiceGraad*((..LeveringsDagen+..ExtraLeveringsDagen)**.5)*..StandaardAfwijking
-	Set VeiligheidsVoorraad=..AfrondingTotBeduidendeCijfers(VeiligheidsVoorraad,2)
+	#dim VeiligheidsVoorraad As %Decimal = ..ServiceGraad * ((..VoorraadInstelling.LeveringsDagen + ..VoorraadInstelling.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)
+	#dim BLID As %String = $$GetBlumID^BLPROD(..PRNr)
+	#dim LeveringsDagen As %Integer = $S(BLID'="":$P($G(^BLProd("D",BLID)),"\",10),1:"")
+	If LeveringsDagen = "" Set LeveringsDagen = $$$ProductGet(..PRNr,$$$LeveringsTermijn) * 5
+	Set ..VoorraadInstelling.LeveringsDagen = LeveringsDagen+$S(BLID="":0,1:2)
+	Set ..VoorraadInstelling.ExtraLeveringsDagen = $S(BLID="":6,1:3)
 ]]></Implementation>
 </Method>
 </Class>