Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34402 -r34405
--- AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34402)
+++ AXdixf/Vendor/Vendor.cls.xml	(.../Vendor.cls.xml)	(revision 34405)
@@ -86,6 +86,10 @@
 <Property name="UseCashDisc">
 <Type>%String</Type>
 </Property>
+
+<Property name="BankAccount">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34402 -r34405
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34402)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34405)
@@ -34,16 +34,17 @@
 	Set AxLeverancier.City = Leverancier.GeefWoonplaats()
 	Set AxLeverancier.Street = Leverancier.GeefStraatNrBus()
 	Do ..ConvertPhone(Leverancier, AxLeverancier)
-	Set:Leverancier.GeefEmail()'="" AxLeverancier.EmailName = "E-mail adres"
+	Set:$$$HasLength(Leverancier.GeefEmail()) AxLeverancier.EmailName = "E-mail adres"
 	Set AxLeverancier.Email = Leverancier.GeefEmail()
-	Set:Leverancier.GeefTelefax()'="" AxLeverancier.TeleFaxName = "Fax"
+	Set:$$$HasLength(Leverancier.GeefTelefax()) AxLeverancier.TeleFaxName = "Fax"
 	Set AxLeverancier.TeleFax = $$$Trim(Leverancier.GeefTelefax())
 	Set AxLeverancier.Currency = Leverancier.GeefMuntkode()
 	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr())
 	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Leverancier.GeefBTWnr())
 	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetaalTermijn())
 	Set AxLeverancier.PaymMode = ..Formatter.ConvertPaymMode(Leverancier.GeefBetaalwijze())
-	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())	
+	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
+	Set:$$$HasLength(Leverancier.GeefBankRekeningNr()) AxLeverancier.BankAccount = "1"
 	
 	Quit AxLeverancier
 ]]></Implementation>
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34402 -r34405
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34402)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34405)
@@ -39,6 +39,7 @@
 	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
+	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE23571113171923")
 ]]></Implementation>
 </Method>
 
@@ -591,6 +592,28 @@
 	Do $$$AssertEquals(..AxLeverancier.UseCashDisc,"08D3%")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: BankAccount = 1 als IBAN &lt;&gt; &apos;&apos;">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE96230050972005")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.BankAccount,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BankAccount = &apos;&apos; als IBAN = &apos;&apos;">
+<Implementation><![CDATA[
+	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.BankAccount,"")
+]]></Implementation>
+</Method>
 </Class>