Index: vhTest/Fake/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml	(revision 0)
+++ vhTest/Fake/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml	(revision 35014)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter</Super>
+
+<Method name="Convert">
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<ReturnType>AXdixf.Vendor.Vendor</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter/Convert.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter/Convert.cls.xml	(revision 35014)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter.Convert">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Leverancier">
+<Type>vhTest.Mock.DOM.AKP.Leverancier</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxLeverancier">
+<Type>AXdixf.Vendor.Vendor</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Partij">
+<Type>vhTest.Mock.DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EasyFormDataService">
+<Type>vhTest.Mock.APPS.BKH.AankoopFactuurArchivering.EasyFormDataService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	set ..Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	do ..Partij.IndienMethodCall("GeefID").DanReturn("L||5002")
+	do ..Partij.IndienMethodCall("GeefCode").DanReturn(100)
+	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Een Willekeurige naam")
+	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
+	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("123456789")
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+	do ..Partij.IndienMethodCall("GeefAanspreking").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")	
+	do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefGsm").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
+]]></Implementation>
+</Method>
+
+<Method name="Test CountryRegionID ">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+
+	Set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+		
+	Do $$$AssertEquals(..AxLeverancier.CountryRegionId,"BEL")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - Belgisch BTW-Nr">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	
+	set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"BTW BE 0402.775.276")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - Geen BTW-Nr">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - Buitenlands BTW-Nr">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"814120313B01")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - Niet-Belgisch BTW-Nr met meer dan 2 letters vooraan">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("AT U35695903")
+	
+	set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"U35695903")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - G">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("G")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - GEEN">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("GEEN")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: BTW variaties - BE met nullen">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0000000000")
+	
+	Set Converter = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter).%New()
+	Set ..AxLeverancier = Converter.Convert(..Partij)
+	
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"BE 0000.000.097")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml	(revision 0)
+++ vhTest/Mock/AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml	(revision 35014)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Convert">
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
+<ReturnType>AXdixf.Vendor.Vendor</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Convert",Partij)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfGenerator.cls.xml	(revision 35014)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	#dim LeverancierIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancierIterator(),,"(Item.GeefActiefNiveau()="""")&&(Item.GeefBTWnr()'=""G"")&&(Item.GeefBTWnr()'=""GEEN"")&&(Item.GeefBTWnr()'="""")")
+	do ..Generate(LeverancierIterator)
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>LeverancierIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	Set AxLeverancierIterator = ##class(AX.Uitgaand.AKP.LeverancierBTWnummer.impl.AxLeverancierBTWnummerIterator).%New(LeverancierIterator)
+		
+	Set Headers = ##class(TECH.KeyValue.List).%New()
+	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "CountryRegionId")
+	Do Headers.InsertKeyValue("AXdixf.Vendor.Vendor", "VATNum")
+		
+	#dim AXLeverancierData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXLeverancierData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Set AXLeverancierData.ScheidingsTeken = ";"	
+	Set AXLeverancierData.Iterator = AxLeverancierIterator
+	Set AXLeverancierData.DataVelden = Headers
+	Set AXLeverancierData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"LeverancierBTWnummer.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXLeverancierData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfGenerator.cls.xml
===================================================================
diff -u -r34738 -r35014
--- AX/Uitgaand/AKP/Leverancier/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 34738)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 35014)
@@ -52,7 +52,7 @@
 	Set AXLeverancierData.ScheidingsTeken = ";"	
 	Set AXLeverancierData.Iterator = AxLeverancierIterator
 	Set AXLeverancierData.DataVelden = Headers
-	Set AXLeverancierData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"lev8.csv")
+	Set AXLeverancierData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"Leverancier.csv")
 	
 	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
 	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
Index: AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/AKP/LeverancierBTWnummer/impl/DixfConverter.cls.xml	(revision 35014)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.AKP.LeverancierBTWnummer.impl.DixfConverter">
+<Super>TECH.Mockable</Super>
+
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
+<ReturnType>AXdixf.Vendor.Vendor</ReturnType>
+<Implementation><![CDATA[
+	Set AxLeverancier = ##class(AXdixf.Vendor.Vendor).%New()
+	#dim Adres As DOM.common.Adres = Partij.GeefAdres()
+	Set AxLeverancier.CountryRegionId = Adres.GeefLand().GeefIso3()
+	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())_..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
+	
+	Quit AxLeverancier
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/AKP/LeverancierBTWnummer/impl/AxLeverancierBTWnummerIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/AKP/LeverancierBTWnummer/impl/AxLeverancierBTWnummerIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/AKP/LeverancierBTWnummer/impl/AxLeverancierBTWnummerIterator.cls.xml	(revision 35014)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.AKP.LeverancierBTWnummer.impl.AxLeverancierBTWnummerIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="LeverancierIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.AKP.Leverancier.impl.DixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LeverancierIterator:TECH.Iterator,Converter:AX.Uitgaand.AKP.Leverancier.impl.DixfConverter,PartijAPI:DOM.PARTIJ.PartijAPI</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.LeverancierBTWnummer.impl.DixfConverter).%New())
+	Set ..PartijAPI = $$$Inject(PartijAPI, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..LeverancierIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.Vendor.Vendor</ReturnType>
+<Implementation><![CDATA[
+	#dim NextPartij As DOM.PARTIJ.Partij
+	Set NextPartij = ..PartijAPI.GeefPartij(..LeverancierIterator.Next().GeefID())
+	
+	quit ..Converter.Convert(NextPartij)
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	quit ..LeverancierIterator.Reset()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>