Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r44887 -r44935
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44887)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44935)
@@ -834,7 +834,7 @@
 <Implementation><![CDATA[
 	#dim IntraUnit As %String = ""
 	
-	If ((..Intracode = "84659500") || (..Intracode = "85043180") || (..Intracode = "90172039")){
+	If ##class(TECH.StringUtils).Equals(..Intracode,"84659500","85043180","90172039"){
 		Set IntraUnit = "1"
 	}
 	
@@ -849,9 +849,8 @@
 <Implementation><![CDATA[
 	#dim ADUCountableOrDivisible As %String = ""
 	
-	If (Product.Basis.Telbaar '= ""){
-		Set ADUCountableOrDivisible = +Product.Basis.Telbaar
-		Set $Extract(ADUCountableOrDivisible,$Find(ADUCountableOrDivisible,".")-1) = ","
+	If $$$Not(Product.Basis.Telbaar = ""){
+		Set ADUCountableOrDivisible = $Replace(+Product.Basis.Telbaar,".",",")
 	}
 	
 	Quit ADUCountableOrDivisible