Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47212 -r47232
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47212)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47232)
@@ -227,6 +227,9 @@
 	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 ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType
+	Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee")
 ]]></Implementation>
 </Method>
 
@@ -256,10 +259,7 @@
 	Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeVH(Product)
 	Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product)
 	Set ..AxProduct.InventItemPurchSetupCalendarDays = ..BepaalInventItemPurchSetupCalendarDaysVH(Product)
-	Set ..AxProduct.InventItemSalesDeliveryDateControlType = ..BepaalInventItemSalesDeliveryDateControlTypeVH(Product)
-	Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType
-	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceVH(Product)
-	Set ..AxProduct.InventItemSalesSetupOverride = ..BepaalInventItemSalesSetupOverride(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig
+	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceVH(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig!
 	Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemVH(Product)
 ]]></Implementation>
 </Method>
@@ -290,10 +290,7 @@
 	Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeHLX(Product)
 	Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product)
 	Set ..AxProduct.InventItemPurchSetupCalendarDays = "1"
-	Set ..AxProduct.InventItemSalesDeliveryDateControlType = ..BepaalInventItemSalesDeliveryDateControlTypeHLX(Product)
-	Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType
-	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceHLX(Product)
-	Set ..AxProduct.InventItemSalesSetupOverride = ..BepaalInventItemSalesSetupOverride(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig
+	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceHLX(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig!
 	Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemHLX(Product)
 ]]></Implementation>
 </Method>
@@ -658,40 +655,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalInventItemSalesDeliveryDateControlTypeVH">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim InventItemSalesDeliveryDateControlTypeVH As %String
-	
-	If (..DefaultOrderType = "Aankooporder"){
-		Set InventItemSalesDeliveryDateControlTypeVH = "ATP + uitgiftemarge"
-	} Else {
-		Set InventItemSalesDeliveryDateControlTypeVH = "CTP"
-	}
-	
-	Quit InventItemSalesDeliveryDateControlTypeVH
-]]></Implementation>
-</Method>
-
-<Method name="BepaalInventItemSalesDeliveryDateControlTypeHLX">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim InventItemSalesDeliveryDateControlTypeHLX As %String
-	
-	If (..DefaultOrderType = "Aankooporder"){
-		Set InventItemSalesDeliveryDateControlTypeHLX = "ATP + uitgiftemarge"
-	} Else {
-		Set InventItemSalesDeliveryDateControlTypeHLX = "CTP"
-	}
-	
-	Quit InventItemSalesDeliveryDateControlTypeHLX
-]]></Implementation>
-</Method>
-
 <Method name="BepaalInventItemSalesSetupATPTimeFenceVH">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
@@ -700,7 +663,7 @@
 	#dim InventItemSalesSetupATPTimeFenceVH As %String
 	
 	If (..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"){
-		Set InventItemSalesSetupATPTimeFenceVH = ..InventItemPurchSetupLeadTimeVH + 2
+		Set InventItemSalesSetupATPTimeFenceVH = ..InventItemPurchSetupLeadTimeVH - 1
 	}
 	Else {
 		Set InventItemSalesSetupATPTimeFenceVH = ""
@@ -717,7 +680,7 @@
 	#dim InventItemSalesSetupATPTimeFenceHLX As %String
 	
 	If (..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"){
-		Set InventItemSalesSetupATPTimeFenceHLX = ..InventItemPurchSetupLeadTimeHLX + 2
+		Set InventItemSalesSetupATPTimeFenceHLX = ..InventItemPurchSetupLeadTimeHLX - 1
 	}
 	Else {
 		Set InventItemSalesSetupATPTimeFenceHLX = ""
@@ -726,24 +689,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalInventItemSalesSetupOverride">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim InventItemSalesSetupOverride As %String
-	
-	If (..InventItemSalesDeliveryDateControlType = "ATP + uitgiftemarge"){
-		Set InventItemSalesSetupOverride = "Ja"
-	}
-	Else {
-		Set InventItemSalesSetupOverride = "Nee"
-	}
-	
-	Quit InventItemSalesSetupOverride
-]]></Implementation>
-</Method>
-
 <Method name="BepaalADUProductMainGroupId">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47212 -r47232
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47212)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47232)
@@ -1051,7 +1051,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupATPTimeFence 2 zijn">
+<Method name="Test: Als voor VH InventItemSalesDeliveryDateControlType ATP plusteken uitgiftemarge is dan moet InventItemSalesSetupATPTimeFence InventItemPurchSetupLeadTime min 1 zijn">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
 	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
@@ -1063,16 +1063,41 @@
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New()
+	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,"2")
+	Do $$$AssertEquals(ConvertedProduct.InventItemSalesSetupATPTimeFence,"5")
 ]]></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")
+	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 = "3" // 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,"14")
+]]></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")
@@ -1085,7 +1110,7 @@
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.LinkType = "S"
+	Set AxProduct.Basis.LinkType = "S" // Dit maakt dat InventItemSalesDeliveryDateControlType NIET ATP plusteken uitgiftemarge is
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
 	
@@ -1103,7 +1128,7 @@
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.StockNietStock = ##class(Prod.Product).%New()
+	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()
 	
@@ -1121,7 +1146,7 @@
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.LinkType = "S"
+	Set AxProduct.Basis.LinkType = "S" // Dit maakt dat InventItemSalesDeliveryDateControlType NIET ATP plusteken uitgiftemarge is
 	
 	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()