Index: vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml
===================================================================
diff -u -r42312 -r42326
--- vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42312)
+++ vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42326)
@@ -8,13 +8,26 @@
 <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)
@@ -52,6 +65,445 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Het AX veld ItemId is het IdentNummer">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.IdentNummer = "1.234.567.8"
+
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ItemId,"1.234.567.8")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het AX veld MinInventOnhand moet de VoorraadInstellingCalculator gecalled worden">
+<Implementation><![CDATA[
+	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	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 Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.MinInventOnhand,5)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux StockNietStock 1 is en SubGroep begint met 12AL dan moet ReqGroupId MTS streepje 1W zijn">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Klassificatie.SubGroep = "12ALGroep"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+		
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"MTS-1W")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux SubGroep VPK gevolgd door een slash bevat en DefaultOrderType Aankooporder is dan moet ReqGroupId Handmatig zijn">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "GroepVPK/"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux SubGroep VPA gevolgd door een slash bevat en DefaultOrderType Aankooporder is dan moet ReqGroupId Handmatig zijn">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "GroepVPA/"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux HerbestelSurplus leeg is en HerbestelAfronding leeg is en LeverancierNummer 6051 is dan moet ReqGroupId BTO zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.HerbestelSurplus = ""
+	Set AxProductBehoefte.Basis.HerbestelAfronding = ""
+		
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"BTO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1 voor Van Hoecke is ReqGroupId MTO">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "S"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groep/OL"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"MTO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2a voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "VPK/Groep"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2b voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "VPA/Groep"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3a voor Van Hoecke is ReqGroupId BTO">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "2"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"BTO Blum")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3b voor Van Hoecke is ReqGroupId BTO">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "2"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"BTO ntBlum")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4 voor Van Hoecke is ReqGroupId Min/Max">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "1"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Min/Max")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5a voor Van Hoecke is ReqGroupId Blum06d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "1"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum06d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5b voor Van Hoecke is ReqGroupId Blum11d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "2"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum11d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5c voor Van Hoecke is ReqGroupId Blum16d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "3"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum16d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5d voor Van Hoecke is ReqGroupId Blum21d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "4"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum21d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5e voor Van Hoecke is ReqGroupId Blum26d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "5"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum26d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5f voor Van Hoecke is ReqGroupId Blum31d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "6"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum31d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5g voor Van Hoecke is ReqGroupId Blum36d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "7"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum36d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5h voor Van Hoecke is ReqGroupId Blum41d ND">
+<Implementation><![CDATA[
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	Set AxProductBehoefte.Prijs.LeveringsTermijn = "8"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Blum41d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5i voor Van Hoecke is ReqGroupId BTS Agofor">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"BTS Agofor")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5j voor Van Hoecke is ReqGroupId BTS Baliko">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5938)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.LinkType = "HH"
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	Set AxProductBehoefte.Basis.ScanType = "0"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"BTS Baliko")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5k voor Van Hoecke is ReqGroupId BTS-1W">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Basis.StockNietStock = "1"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"BTS-1W")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 6 voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProductBehoefte As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProductBehoefte()
+	Set AxProductBehoefte.Klassificatie.SubGroep = "Groepje"
+	Set AxProductBehoefte.Basis.LinkType = "S"
+	
+	#dim Converter As AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter = ..GeefConverter()
+	
+	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterenProductBehoefte">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
@@ -65,7 +517,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter</ReturnType>
-<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter).%New()
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter).%New(..VoorraadInstellingCalculator)
 ]]></Implementation>
 </Method>
 </Class>