Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r41545 -r41546
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41545)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41546)
@@ -150,7 +150,7 @@
 	Set AxProduct.InventTableModulePurchEndDisc = "Ja"
 	Set AxProduct.InventTableModulePurchOverDeliveryPct = ..BepaalInventTableModulePurchOverDeliveryPct(Product)
 	Set AxProduct.InventTableModulePurchTaxItemGroupId = "G3"
-	Set AxProduct.InventTableModulePurchUnderDeliveryPct = "50"
+	Set AxProduct.InventTableModulePurchUnderDeliveryPct = ..BepaalInventTableModulePurchUnderDeliveryPct(Product)
 	Set AxProduct.InventTableModulePurchUnitId = "STK"
 	Set AxProduct.InventTableModuleSalesEndDisc = "Ja"
 	Set AxProduct.InventTableModuleSalesPriceUnit = "1"
@@ -272,7 +272,7 @@
 	Set AxProduct.InventTableModulePurchEndDisc = "Ja"
 	Set AxProduct.InventTableModulePurchOverDeliveryPct = ..BepaalInventTableModulePurchOverDeliveryPct(Product)
 	Set AxProduct.InventTableModulePurchTaxItemGroupId = "G3"
-	Set AxProduct.InventTableModulePurchUnderDeliveryPct = "50"
+	Set AxProduct.InventTableModulePurchUnderDeliveryPct = ..BepaalInventTableModulePurchUnderDeliveryPct(Product)
 	Set AxProduct.InventTableModulePurchUnitId = "STK"
 	Set AxProduct.InventTableModuleSalesEndDisc = "Ja"
 	Set AxProduct.InventTableModuleSalesPriceUnit = "1"
@@ -615,6 +615,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalInventTableModulePurchUnderDeliveryPct">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $$$If(Product.Basis.LeverancierNummer = "5002",20,10)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalInventItemSalesSetupLowestQtyVH">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r41545 -r41546
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41545)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41546)
@@ -93,7 +93,6 @@
 	Do $$$AssertEquals(ConvertedProduct.InventTableModuleInventUnitId,"STK")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchEndDisc,"Ja")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchTaxItemGroupId,"G3")
-	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchUnderDeliveryPct,"50")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchUnitId,"STK")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesEndDisc,"Ja")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesPriceUnit,"1")
@@ -187,7 +186,6 @@
 	Do $$$AssertEquals(ConvertedProduct.InventTableModuleInventUnitId,"STK")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchEndDisc,"Ja")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchTaxItemGroupId,"G3")
-	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchUnderDeliveryPct,"50")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchUnitId,"STK")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesEndDisc,"Ja")
 	Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesPriceUnit,"1")
@@ -815,6 +813,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als Leverancier 5002 zijnde Agoform is dan moet InventTableModulePurchUnderDeliveryPct 20 zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim InventTableModulePurchUnderDeliveryPct As %String = Converter.BepaalInventTableModulePurchUnderDeliveryPct(AxProduct)
+	
+	Do $$$AssertEquals(InventTableModulePurchUnderDeliveryPct,"20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als Leverancier NIET 5002 zijnde Agoform is dan moet InventTableModulePurchUnderDeliveryPct 10 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()
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim InventTableModulePurchUnderDeliveryPct As %String = Converter.BepaalInventTableModulePurchUnderDeliveryPct(AxProduct)
+	
+	Do $$$AssertEquals(InventTableModulePurchUnderDeliveryPct,"10")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als voor Van Hoecke StockNietStock NIET 1 is dan moet InventItemSalesSetupLowestQty MinimumBestelhoeveelheid zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()