Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r44886 -r44887
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44886)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44887)
@@ -210,6 +210,7 @@
 	Set ..AxProduct.ABCValue = Product.Basis.ABCTransport
 	Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product)
 	Set ..AxProduct.ADULogsteuer = $$$If(Product.Basis.ScanType = "L","Ja","Nee")
+	Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product)
 ]]></Implementation>
 </Method>
 
@@ -840,6 +841,22 @@
 	Quit IntraUnit
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalADUCountableOrDivisible">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ADUCountableOrDivisible As %String = ""
+	
+	If (Product.Basis.Telbaar '= ""){
+		Set ADUCountableOrDivisible = +Product.Basis.Telbaar
+		Set $Extract(ADUCountableOrDivisible,$Find(ADUCountableOrDivisible,".")-1) = ","
+	}
+	
+	Quit ADUCountableOrDivisible
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r44886 -r44887
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44886)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44887)
@@ -1371,6 +1371,60 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ADUCountableOrDivisible is leeg als Telbaar leeg is">
+<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 Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Basis.Telbaar = ""
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCountableOrDivisible,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCountableOrDivisible is Telbaar indien het niet leeg is">
+<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 Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Basis.Telbaar = "1"
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCountableOrDivisible,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCountableOrDivisible Telbaar is 0 indien het een niet nummerieke waarde is">
+<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 Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Basis.Telbaar = "V"
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCountableOrDivisible,"0")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>