Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r41544 -r41545
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41544)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 41545)
@@ -611,13 +611,7 @@
 <Method name="BepaalInventTableModulePurchOverDeliveryPct">
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim InventTableModulePurchOverDeliveryPct As %String = ""
-	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
-	
-	
-	
-	Quit InventTableModulePurchOverDeliveryPct
+<Implementation><![CDATA[	quit $$$If(Product.Basis.LeverancierNummer = "5002",20,10)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r41544 -r41545
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41544)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41545)
@@ -785,6 +785,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als Leverancier 5002 zijnde Agoform is dan moet InventTableModulePurchOverDeliveryPct 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 InventTableModulePurchOverDeliveryPct As %String = Converter.BepaalInventTableModulePurchOverDeliveryPct(AxProduct)
+	
+	Do $$$AssertEquals(InventTableModulePurchOverDeliveryPct,"20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als Leverancier NIET 5002 zijnde Agoform is dan moet InventTableModulePurchOverDeliveryPct 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 InventTableModulePurchOverDeliveryPct As %String = Converter.BepaalInventTableModulePurchOverDeliveryPct(AxProduct)
+	
+	Do $$$AssertEquals(InventTableModulePurchOverDeliveryPct,"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()