Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34334 -r34335
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34334)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34335)
@@ -47,26 +47,24 @@
 </Method>
 
 <Method name="ConvertPhone">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier,AxLeverancier:AXdixf.Vendor.Vendor</FormalSpec>
+<FormalSpec><![CDATA[Leverancier:DOM.AKP.Leverancier,&AxLeverancier:AXdixf.Vendor.Vendor]]></FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim PhoneName As %String
-	#dim Phone As %String
+	Set PhoneNames = ##class(%ListOfDataTypes).%New()
+	Set PhoneNrs = ##class(%ListOfDataTypes).%New()
 	
-	Set PhoneName = ""
-	Set Phone = ""
-	
-	if $$$Trim(Leverancier.GeefTelefoon1()) '= "" {
-		Set PhoneName = "Telefoon 1"
-		Set Phone = $$$Trim(Leverancier.GeefTelefoon1())
+	If $$$HasLength($$$Trim(Leverancier.GeefTelefoon1())) {
+		Do PhoneNames.Insert("Telefoon 1")
+		Do PhoneNrs.Insert($$$Trim(Leverancier.GeefTelefoon1()))
 	}
 	
-	if $$$Trim(Leverancier.GeefTelefoon2()) '= "" {
-		Set PhoneName = PhoneName _ $s(PhoneName '= "":",",1:"") _"Telefoon 2"
-		Set Phone = Phone _ $s(Phone '= "":",",1:"") _$$$Trim(Leverancier.GeefTelefoon2())
+	If $$$HasLength(Leverancier.GeefTelefoon2()) {
+		Do PhoneNames.Insert("Telefoon 2")
+		Do PhoneNrs.Insert($$$Trim(Leverancier.GeefTelefoon2()))
 	}
 	
-	Set AxLeverancier.PhoneName = PhoneName
-	Set AxLeverancier.Phone = Phone
+	Set AxLeverancier.PhoneName = ##class(TECH.ListUtils).ListToPieces(PhoneNames,",")
+	Set AxLeverancier.Phone = ##class(TECH.ListUtils).ListToPieces(PhoneNrs,",")
 ]]></Implementation>
 </Method>
 </Class>