Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml	(revision 42311)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AXBehoeftePlanning">
+<Type>AXdixf.BehoeftePlanning.BehoeftePlanning</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<ReturnType>AXdixf.BehoeftePlanning.BehoeftePlanning</ReturnType>
+<Implementation><![CDATA[
+	Set ..AXBehoeftePlanning = ##class(AXdixf.BehoeftePlanning.BehoeftePlanning).%New()
+	
+	Do ..ConvertGemeenschappelijk(ProductBehoefte)
+	
+	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+			Do ..ConvertHalux(ProductBehoefte)
+	} Else {
+		If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		Do ..ConvertVanHoecke(ProductBehoefte)
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter = '"_Vestiging_"' <"))
+		}
+	}
+	Quit ..AXBehoeftePlanning
+]]></Implementation>
+</Method>
+
+<Method name="ConvertGemeenschappelijk">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.BehoeftePlanning.BehoeftePlanning</ReturnType>
+<Implementation><![CDATA[
+	Set ..AXBehoeftePlanning.ItemId = ""
+	Set ..AXBehoeftePlanning.MinInventOnhand = ""
+	Set ..AXBehoeftePlanning.ReqGroupId = ""
+	//Set ..AXBehoeftePlanning. = ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertHalux">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.BehoeftePlanning.BehoeftePlanning</ReturnType>
+<Implementation><![CDATA[
+	Set ..AXBehoeftePlanning.InventLocationId = "MAG2"
+	Set ..AXBehoeftePlanning.InventSiteId = ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertVanHoecke">
+<FormalSpec>ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.BehoeftePlanning.BehoeftePlanning</ReturnType>
+<Implementation><![CDATA[
+	Set ..AXBehoeftePlanning.InventLocationId = "MAG1"
+	Set ..AXBehoeftePlanning.InventSiteId = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter/Test.cls.xml	(revision 42311)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijn alle defaults goed voor Halux">
+<Implementation><![CDATA[
+	#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).HaluxNv()
+	
+	#dim ConvertedProductBehoefte As AXdixf.BehoeftePlanning.BehoeftePlanning = Converter.Convert(AxProductBehoefte,Vestiging)
+	
+	Do $$$AssertEquals(ConvertedProductBehoefte.InventLocationId,"MAG2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijn alle defaults goed voor Van Hoecke">
+<Implementation><![CDATA[
+	#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.InventLocationId,"MAG1")
+]]></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="GeefConverter">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter</ReturnType>
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.BehoeftePlanning.impl.BehoeftePlanningDixfConverter).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>