Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml
===================================================================
diff -u -r46100 -r48115
--- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml	(.../BehoeftePlanningIteratorFilter.cls.xml)	(revision 46100)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml	(.../BehoeftePlanningIteratorFilter.cls.xml)	(revision 48115)
@@ -18,8 +18,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VoorraadInstellingCalculator">
-<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Property name="VeiligheidsVoorraadCalculator">
+<Type>AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator</Type>
 <Private>1</Private>
 </Property>
 
@@ -38,7 +38,7 @@
 	Set ..Vestiging = Vestiging
 	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
 	Set ..Utils = ##class(AXimpl.Utils).%New()
-	Set ..VoorraadInstellingCalculator = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Set ..VeiligheidsVoorraadCalculator = ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -77,7 +77,7 @@
 	}}
 	
 	If IsValid {
-		If (..BerekenLeveringsModaliteiten(ProductBehoefte) = "") {
+		If (..VeiligheidsVoorraadCalculator.GeefVeiligheidsVoorraad(ProductBehoefte) = "") {
 			Set IsValid = $$$False
 		}
 	}
@@ -97,28 +97,6 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
-
-<Method name="BerekenLeveringsModaliteiten">
-<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim MinInventOnhand As %String
-	#dim ScanType As %Integer = ProductBehoefte.Basis.ScanType
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(ProductBehoefte.BasisGetObjectId())
-	#dim VeiligheidsVoorraad As %Integer = VoorraadInstelling.VeiligheidsVoorraad
-	
-	If (VeiligheidsVoorraad > 0) {
-		Set MinInventOnhand = VeiligheidsVoorraad
-	} ElseIf (ScanType > 0) {
-		Set MinInventOnhand = ScanType
-	} Else {
-		Set MinInventOnhand = ""
-	}
-	
-	Quit MinInventOnhand
-]]></Implementation>
-</Method>
 </Class>