Index: vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator/Test.cls.xml	(revision 48108)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Property name="VoorraadInstellingCalculator">
+<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+		
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VeiligheidsVoorraad is de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator indien groter dan 0">
+<Implementation><![CDATA[
+	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
+	Set VoorraadInstelling.VeiligheidsVoorraad = 5
+	
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefVeiligheidsVoorraadCalculator().GeefVeiligheidsVoorraad(AxProductBehoefte)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte,5)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VeiligheidsVoorraad is ScanType indien groter dan 0 als de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator NIET groter dan 0 is">
+<Implementation><![CDATA[
+	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
+	Set VoorraadInstelling.VeiligheidsVoorraad = 0
+	
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.ScanType = 7
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefVeiligheidsVoorraadCalculator().GeefVeiligheidsVoorraad(AxProductBehoefte)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte,7)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VeiligheidsVoorraad is leeg indien de VeiligheidsVoorraad volgens de VoorraadInstellingCalculator NIET groter dan 0 is en ScanType NIET groter dan 0 is">
+<Implementation><![CDATA[
+	Set VoorraadInstelling = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling).%New()
+	Set VoorraadInstelling.VeiligheidsVoorraad = 0
+	
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.ScanType = 0
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = ..GeefVeiligheidsVoorraadCalculator().GeefVeiligheidsVoorraad(AxProductBehoefte)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte,"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProductBehoefte">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProductBehoefte = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	Do AxProductBehoefte.BasisSetObjectId(..#ProductId)
+	Quit AxProductBehoefte
+]]></Implementation>
+</Method>
+
+<Method name="GeefVeiligheidsVoorraadCalculator">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator).%New(..VoorraadInstellingCalculator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/VeiligheidsVoorraadCalculator.cls.xml	(revision 48108)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VoorraadInstellingCalculator">
+<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVeiligheidsVoorraad">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VeiligheidsVoorraad As %String
+	#dim ScanType As %Integer = ProductBehoefte.Basis.ScanType
+	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(ProductBehoefte.BasisGetObjectId())
+	#dim VolgensVoorraadInstellingCalculator As %Integer = VoorraadInstelling.VeiligheidsVoorraad
+	
+	If (VolgensVoorraadInstellingCalculator > 0) {
+		Set VeiligheidsVoorraad = VolgensVoorraadInstellingCalculator
+	} ElseIf (ScanType > 0) {
+		Set VeiligheidsVoorraad = ScanType
+	} Else {
+		Set VeiligheidsVoorraad = ""
+	}
+	
+	Quit VeiligheidsVoorraad
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>