Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47479 -r47484
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47479)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47484)
@@ -1062,18 +1062,51 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	set VoorraadInstelling.LeveringsDagen = "8" // Dit maakt dat InventItemSalesSetupATPTimeFence voor Van Hoecke "8" is
+	
+	set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New() // Dit maakt dat InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is
-	Set AxProduct.Basis.ScanType = "L" // Dit maakt dat InventItemPurchSetupLeadTime voor Van Hoecke "6" is
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
 	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"5")
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"7")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als voor VH InventItemPurchSetupLeadTime 0 is dan moet InventItemSalesSetupATPTimeFence leeg zijn">
+<Implementation><![CDATA[
+	#dim IdentNummerLijst As %List = $ListBuild("1234")
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	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)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	set VoorraadInstelling.LeveringsDagen = "0" // Dit maakt dat InventItemPurchSetupLeadTimeVH voor Van Hoecke "0" is
+	
+	set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New() // Dit maakt dat InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als voor HLX InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupATPTimeFence InventItemPurchSetupLeadTime min 1 zijn">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
@@ -1098,6 +1131,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als voor HLX InventItemPurchSetupLeadTime 0 is dan moet InventItemSalesSetupATPTimeFence leeg zijn">
+<Implementation><![CDATA[
+	#dim IdentNummerLijst As %List = $ListBuild("1234")
+	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
+	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(7407) // Dit maakt dat LeveringsTermijn gebruikt wordt (DefaultOrderType = "Aankooporder")
+	
+	#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() // Dit maakt dat InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is
+	Set AxProduct.Prijs.LeveringsTermijn = "0" // Wordt bij bepaling van BepaalInventItemPurchSetupLeadTimeHLX * 5 gedaan
+	Set AxProduct.Basis.LinkType = "HH" // Dit maakt dat LeveringsTermijn gebruikt wordt (PrimaryVendorId '= "05497")
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als InventItemSalesDeliveryDateControlType NIET ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupATPTimeFence leeg zijn">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47479 -r47484
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47479)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47484)
@@ -626,7 +626,7 @@
 <Implementation><![CDATA[
 	#dim InventItemSalesSetupATPTimeFenceVH As %String
 	
-	If (..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"){
+	If ((..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge")  && $$$Not(..InventItemPurchSetupLeadTimeVH = 0)){
 		Set InventItemSalesSetupATPTimeFenceVH = ..InventItemPurchSetupLeadTimeVH - 1
 	}
 	Else {
@@ -643,7 +643,7 @@
 <Implementation><![CDATA[
 	#dim InventItemSalesSetupATPTimeFenceHLX As %String
 	
-	If (..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"){
+	If ((..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge")  && $$$Not(..InventItemPurchSetupLeadTimeHLX = 0)){
 		Set InventItemSalesSetupATPTimeFenceHLX = ..InventItemPurchSetupLeadTimeHLX - 1
 	}
 	Else {