Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47236 -r47239
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47236)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47239)
@@ -975,7 +975,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als DefaultOrderType voor Van Hoecke Aankooporder is dan moet InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge zijn">
+<Method name="Test: Als DefaultOrderType voor Van Hoecke Aankooporder is en het is een stockproduct 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)
@@ -984,6 +984,7 @@
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.LinkType = "S"
+	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New()
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
@@ -1011,14 +1012,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als DefaultOrderType voor Halux Aankooporder is dan moet InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge zijn">
+<Method name="Test: Als DefaultOrderType voor Halux Aankooporder is en het is een stockproduct 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 Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New()
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47236 -r47239
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47236)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47239)
@@ -232,7 +232,7 @@
 	Set ..AxProduct.ADULogsteuer = $$$If(Product.Basis.ScanType = "L","1","0")
 	Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product)
 	Set ..AxProduct.ADUPriceCodexGroupId = ..Utils.ConvertADUPriceCodexGroupId(Product.Basis.ProductNr)
-	Set ..AxProduct.InventItemSalesDeliveryDateControlType = $$$If(..DefaultOrderType="Aankooporder","ATP + uitgiftemarge","CTP")
+	Set ..AxProduct.InventItemSalesDeliveryDateControlType = $$$If(((..DefaultOrderType="Aankooporder")&&(Product.Basis.StockNietStock'="")),"ATP + uitgiftemarge","CTP")
 	Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType
 	Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee")
 ]]></Implementation>