Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r41601 -r42348
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41601)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42348)
@@ -1554,35 +1554,65 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als StockNietStock niet leeg is dan moet InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge zijn">
+<Method name="Test: Als DefaultOrderType voor Van Hoecke Aankooporder is dan moet InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.StockNietStock = "2"
+	Set AxProduct.Basis.LinkType = "S"
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
-	#dim InventItemSalesDeliveryDateControlType As %String = Converter.BepaalInventItemSalesDeliveryDateControlType(AxProduct)
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertVanHoecke(AxProduct)
 	
-	Do $$$AssertEquals(InventItemSalesDeliveryDateControlType,"ATP + uitgiftemarge")
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesDeliveryDateControlType,"ATP + uitgiftemarge")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als StockNietStock leeg is dan moet InventItemSalesDeliveryDateControlType CTP zijn">
+<Method name="Test: Als DefaultOrderType voor Van Hoecke NIET Aankooporder is dan moet InventItemSalesDeliveryDateControlType CTP 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 AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Basis.LinkType = "S"
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertVanHoecke(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesDeliveryDateControlType,"CTP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderType voor Halux Aankooporder is dan moet InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertHalux(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesDeliveryDateControlType,"ATP + uitgiftemarge")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als DefaultOrderType voor Halux NIET Aankooporder is dan moet InventItemSalesDeliveryDateControlType CTP zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.StockNietStock = ""
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
-	#dim InventItemSalesDeliveryDateControlType As %String = Converter.BepaalInventItemSalesDeliveryDateControlType(AxProduct)
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertHalux(AxProduct)
 	
-	Do $$$AssertEquals(InventItemSalesDeliveryDateControlType,"CTP")
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesDeliveryDateControlType,"CTP")
 ]]></Implementation>
 </Method>
 
@@ -1612,10 +1642,10 @@
 	Do ..DataDefinitieService.IndienMethodCall("GeefDefinitie","OEI",..#ProductId,"AliasI").DanReturn(IdentNummerLijst)
 	
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.StockNietStock = ""
+	Set AxProduct.Basis.LinkType = "S"
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertVanHoecke(AxProduct)
@@ -1642,10 +1672,10 @@
 <Method name="Test: Als InventItemSalesDeliveryDateControlType NIET ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupOverride Nee zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
-	Set AxProduct.Basis.StockNietStock = ""
+	Set AxProduct.Basis.LinkType = "S"
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.ConvertVanHoecke(AxProduct)
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r42347 -r42348
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 42347)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 42348)
@@ -215,7 +215,7 @@
 	Set AxProduct.ADUProductVersion = "1"
 	Set AxProduct.InventItemPurchSetupCalendarDays = ..BepaalInventItemPurchSetupCalendarDaysVH(Product)
 	Set AxProduct.InventItemInventSetupCalendarDays = "1"
-	Set AxProduct.InventItemSalesDeliveryDateControlType = ..BepaalInventItemSalesDeliveryDateControlType(Product)
+	Set AxProduct.InventItemSalesDeliveryDateControlType = ..BepaalInventItemSalesDeliveryDateControlTypeVH(Product)
 	Set ..InventItemSalesDeliveryDateControlType = AxProduct.InventItemSalesDeliveryDateControlType
 	Set AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFence(Product)
 	Set AxProduct.InventItemSalesSetupOverride = ..BepaalInventItemSalesSetupOverride(Product)
@@ -340,7 +340,7 @@
 	Set AxProduct.ADUProductVersion = "1"
 	Set AxProduct.InventItemPurchSetupCalendarDays = "1"
 	Set AxProduct.InventItemInventSetupCalendarDays = "1"
-	Set AxProduct.InventItemSalesDeliveryDateControlType = ..BepaalInventItemSalesDeliveryDateControlType(Product)
+	Set AxProduct.InventItemSalesDeliveryDateControlType = ..BepaalInventItemSalesDeliveryDateControlTypeHLX(Product)
 	Set ..InventItemSalesDeliveryDateControlType = AxProduct.InventItemSalesDeliveryDateControlType
 	Set AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFence(Product)
 	Set AxProduct.InventItemSalesSetupOverride = ..BepaalInventItemSalesSetupOverride(Product)
@@ -874,21 +874,35 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalInventItemSalesDeliveryDateControlType">
+<Method name="BepaalInventItemSalesDeliveryDateControlTypeVH">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim InventItemSalesDeliveryDateControlType As %String
-	#dim StockNietStock As %String = Product.Basis.StockNietStock
+	#dim InventItemSalesDeliveryDateControlTypeVH As %String
 	
-	If (StockNietStock '= ""){
-		Set InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"
+	If (..DefaultOrderTypeVH = "Aankooporder"){
+		Set InventItemSalesDeliveryDateControlTypeVH = "ATP + uitgiftemarge"
+	} Else {
+		Set InventItemSalesDeliveryDateControlTypeVH = "CTP"
 	}
-	Else {
-		Set InventItemSalesDeliveryDateControlType = "CTP"
+	
+	Quit InventItemSalesDeliveryDateControlTypeVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalInventItemSalesDeliveryDateControlTypeHLX">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InventItemSalesDeliveryDateControlTypeHLX As %String
+	
+	If (..DefaultOrderTypeHLX = "Aankooporder"){
+		Set InventItemSalesDeliveryDateControlTypeHLX = "ATP + uitgiftemarge"
+	} Else {
+		Set InventItemSalesDeliveryDateControlTypeHLX = "CTP"
 	}
 	
-	Quit InventItemSalesDeliveryDateControlType
+	Quit InventItemSalesDeliveryDateControlTypeHLX
 ]]></Implementation>
 </Method>