Index: vhTest/Utils/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(revision 33529)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.LeverAdres">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Belgisch">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdres.ZetLandNr(1019)
+	Do LeverAdres.ZetPostcode("9170")
+	Do LeverAdres.ZetStraat("Kemzekestraat")
+	Do LeverAdres.ZetGemeente("Sint-Gillis-Waas")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="EuLid">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdres.ZetLandNr(1052)
+	Do LeverAdres.ZetPostcode("D-32791")
+	Do LeverAdres.ZetStraat("DIE STRASSE")
+	Do LeverAdres.ZetGemeente("LAGE")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="NietEuLid">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdres.ZetLandNr(1152)
+	Do LeverAdres.ZetPostcode("0793")
+	Do LeverAdres.ZetStraat("186 MAHOENUI VALLEY RD")
+	Do LeverAdres.ZetGemeente("AUCKLAND")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml	(revision 33529)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.Klant.KlantNaarBestand.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..Klant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	do ..Klant.IndienMethodCall("GeefCode").DanReturn(1234)
+	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
+	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
+	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	do ..Klant.IndienMethodCall("GeefID").DanReturn("K||1234")
+	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard data">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefCode").DanReturn(4682)
+	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
+	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
+	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+
+	do $$$AssertEquals(AxKlant.SenderId,"PRBE")
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	do $$$AssertEquals(CustTable.AccountNum,"000004682")
+	do $$$AssertEquals(CustTable.CashDisc,"10D3%")
+	do $$$AssertEquals(CustTable.Currency,"EUR")
+	do $$$AssertEquals(CustTable.CustClassificationId,"R09")
+	do $$$AssertEquals(CustTable.CustGroup,"10")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Belgisch BTW-Nr">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	do $$$AssertEquals(CustTable.EnterpriseNumber,"BE 0402.775.276")
+	do $$$AssertEquals(CustTable.VATNum,"0402.775.276")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen BTW-Nr">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	do $$$AssertEquals(CustTable.EnterpriseNumber,"")
+	do $$$AssertEquals(CustTable.VATNum,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Buitenlands BTW-Nr">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	do $$$AssertEquals(CustTable.EnterpriseNumber,"")
+	do $$$AssertEquals(CustTable.VATNum,"NL814120313B01")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TaxGroup - Een van de specifieke klantnrs">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefID").DanReturn("K||7587")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.TaxGroup,"BUNIT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TaxGroup - Een belgisch adres">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.TaxGroup,"BDOM")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TaxGroup - Een land dat lid is van EU">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.TaxGroup,"BIC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TaxGroup - Een land dat geen lid is van EU">
+<Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
+	
+	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.TaxGroup,"BX")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/Klant/KlantNaarBestand.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/Klant/KlantNaarBestand.cls.xml	(revision 0)
+++ AX/Uitgaand/Klant/KlantNaarBestand.cls.xml	(revision 33529)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.Klant.KlantNaarBestand">
+<Super>TECH.RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/Klant/impl/AifConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(revision 33529)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.Klant.impl.AifConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Convert">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>AXaif.Customer.AxdCustomer</ReturnType>
+<Implementation><![CDATA[
+	set AxKlant = ##class(AXaif.Customer.AxdCustomer).%New()
+	set AxKlant.SenderId = "PRBE"
+	
+	set Custable = ##class(AXaif.Customer.AxdEntityCustTable).%New()
+	set Custable.AccountNum = ##class(TECH.StringUtils).AlignRight(Klant.GeefCode(),0,9)
+	set Custable.CashDisc = Klant.GeefKortingContantTermijn() _ ( +Klant.GeefKortingContantPercentage() ) _"%"
+	set Custable.Currency = "EUR"
+	set Custable.CustClassificationId = "R"_##class(TECH.StringUtils).AlignRight(Klant.GeefRegio(),0,2)
+	set Custable.CustGroup = "10"
+	
+	set Custable.EnterpriseNumber = ..FormatEnterpriseNumber(Klant.GeefBTWNr())
+	set Custable.VATNum = ..FormatVATNum(Klant.GeefBTWNr())
+	set Custable.TaxGroup = ..FormatTaxGroup(Klant)
+
+	do AxKlant.CustTable.Insert(Custable)
+
+	quit AxKlant
+]]></Implementation>
+</Method>
+
+<Method name="FormatEnterpriseNumber">
+<FormalSpec>BTWNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit:$$$Not($$$StartsWith(BTWNr,"BE")) ""
+	quit:BTWNr="" ""
+	quit $extract(BTWNr,1,2)_" "_$extract(BTWNr,3,6)_"."_$extract(BTWNr,7,9)_"."_$extract(BTWNr,10,12)
+]]></Implementation>
+</Method>
+
+<Method name="FormatVATNum">
+<FormalSpec>BTWNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit:BTWNr="" ""
+	quit:$$$Not($$$StartsWith(BTWNr,"BE")) BTWNr
+	quit $extract(BTWNr,3,6)_"."_$extract(BTWNr,7,9)_"."_$extract(BTWNr,10,12)
+]]></Implementation>
+</Method>
+
+<Method name="FormatTaxGroup">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	quit:##class(TECH.StringUtils).Equals(Klant.GeefID(),"K||7587","K||4682","K||1000","K||5069","K||9544") "BUNIT"
+	quit:Klant.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
+	quit:Klant.GeefAdres().GeefLand().IsLidVanEU() "BIC"
+	quit "BX"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>