Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34307 -r34309
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34307)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34309)
@@ -32,6 +32,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefTelefoon1").DanReturn(" 03/123.45.67")
 	Do ..Leverancier.IndienMethodCall("GeefTelefoon2").DanReturn(" 03/765.43.21")
 	Do ..Leverancier.IndienMethodCall("GeefEmail").DanReturn("everyone@example.com")
+	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
 ]]></Implementation>
 </Method>
 
@@ -299,6 +300,30 @@
 	Do $$$AssertEquals(..AxLeverancier.Email,"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test FaxName en Fax - faxnummer gekend">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn(" 03/112.101")
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+		
+	Do $$$AssertEquals(..AxLeverancier.TeleFaxName,"Fax")
+	Do $$$AssertEquals(..AxLeverancier.TeleFax,"03/112.101")
+]]></Implementation>
+</Method>
+
+<Method name="Test FaxName en Fax - faxnummer niet gekend">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefTelefax").DanReturn("")
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+		
+	Do $$$AssertEquals(..AxLeverancier.TeleFaxName,"")
+	Do $$$AssertEquals(..AxLeverancier.TeleFax,"")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34307 -r34309
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34307)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34309)
@@ -54,6 +54,14 @@
 <Property name="Email">
 <Type>%String</Type>
 </Property>
+
+<Property name="TeleFaxName">
+<Type>%String</Type>
+</Property>
+
+<Property name="TeleFax">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34307 -r34309
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34307)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34309)
@@ -36,6 +36,8 @@
 	Do ..ConvertPhone(Leverancier, AxLeverancier)
 	Set:Leverancier.GeefEmail()'="" AxLeverancier.EmailName = "E-mail adres"
 	Set AxLeverancier.Email = Leverancier.GeefEmail()
+	Set:Leverancier.GeefTelefax()'="" AxLeverancier.TeleFaxName = "Fax"
+	Set AxLeverancier.TeleFax = $$$Trim(Leverancier.GeefTelefax())
 	
 	Quit AxLeverancier
 ]]></Implementation>