Index: DOM/AKP/impl/DataM/DataMLeverancier.cls.xml
===================================================================
diff -u -r34517 -r34560
--- DOM/AKP/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 34517)
+++ DOM/AKP/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 34560)
@@ -257,7 +257,9 @@
 
 <Method name="GeefBIC">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece(^DATA(0,"SWIFT",$Piece(..Data2,"\",5),0),"\",1)
+<Implementation><![CDATA[
+	Quit:$Piece(..Data2,"\",5)="" ""
+	Quit $Piece(^DATA(0,"SWIFT",$Piece(..Data2,"\",5),0),"\",1)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/DixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/DixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/DixfGenerator.cls.xml	(revision 34560)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.DixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Generate">
+<Implementation><![CDATA[
+	Set AxLeverancierRekeningNummerIterator = ##class(AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.AxLeverancierRekeningNummerIterator).%New()
+		
+	Set Headers = ##class(TECH.KeyValue.List).%New() 
+	Do Headers.InsertKeyValue("AXdixf.Vendor.VendorBankAccount", "VendAccount")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.VendorBankAccount", "AccountID")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.VendorBankAccount", "AccountNum")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.VendorBankAccount", "BankIBAN")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.VendorBankAccount", "SWIFTNo")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.VendorBankAccount", "RegistrationNum")
+		
+	#dim AXLeverancierRekeningNummerData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXLeverancierRekeningNummerData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Set AXLeverancierRekeningNummerData.ScheidingsTeken = ";"	
+	Set AXLeverancierRekeningNummerData.Iterator = AxLeverancierRekeningNummerIterator
+	Set AXLeverancierRekeningNummerData.DataVelden = Headers
+	Set AXLeverancierRekeningNummerData.BestandVolledigeNaam = "c:\temp\levrekeningnummer5.csv"
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXLeverancierRekeningNummerData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/AxLeverancierRekeningNummerIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/AxLeverancierRekeningNummerIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/AxLeverancierRekeningNummerIterator/Test.cls.xml	(revision 34560)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.AxLeverancierRekeningNummerIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set Leverancier1 = ##class(vhTest.Fake.DOM.AKP.Leverancier).%New()
+	#dim LeverancierIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Leverancier1)
+	
+	Set DixfConverterMock = ##class(vhTest.Mock.AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.DixfConverter).%New()
+	Do DixfConverterMock.VerwachtMethodCall("Convert",Leverancier1).DanReturn(##class(AXdixf.Vendor.VendorBankAccount).%New()).ExactAantalKeer(1)
+	
+	Set AxLeverancierRekeningNummerIterator = ##class(AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.AxLeverancierRekeningNummerIterator).%New(LeverancierIterator, DixfConverterMock)
+	While AxLeverancierRekeningNummerIterator.HasNext() {
+		Do $$$AssertEquals($classname(AxLeverancierRekeningNummerIterator.Next()),"AXdixf.Vendor.VendorBankAccount")
+	}
+	
+	Do DixfConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/AxLeverancierRekeningNummerIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/AxLeverancierRekeningNummerIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/AKP/LeverancierRekeningNummer/impl/AxLeverancierRekeningNummerIterator.cls.xml	(revision 34560)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.AxLeverancierRekeningNummerIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="LeverancierIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.DixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LeverancierIterator:TECH.Iterator,Converter:AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.DixfConverter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LeverancierIterator = $$$Inject(LeverancierIterator,##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancierIterator())
+	Set ..Converter = $$$Inject(Converter,##class(AX.Uitgaand.AKP.LeverancierRekeningNummer.impl.DixfConverter).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..LeverancierIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.Vendor.VendorBankAccount</ReturnType>
+<Implementation><![CDATA[
+	
+	Quit ..Converter.Convert(..LeverancierIterator.Next())
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	quit ..LeverancierIterator.Reset()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>