Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33859 -r34068
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33859)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34068)
@@ -40,6 +40,7 @@
 	do ..Klant.IndienMethodCall("GeefCommercieleStatus").DanReturn(##class(DOM.CRM.enu.CommercieleStatus).Actief())
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
+	do ..Klant.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Aanrekenen())
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30D")
@@ -407,7 +408,7 @@
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
-	do $$$AssertEquals(CustTable.EnterpriseNumber,"")
+	do $$$AssertEquals(CustTable.EnterpriseNumber,"BE 0000.000.097")
 	do $$$AssertEquals(CustTable.VATNum,"")
 ]]></Implementation>
 </Method>
@@ -427,6 +428,8 @@
 
 <Method name="Test: TaxGroup - Een belgisch adres">
 <Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Aanrekenen())
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE 1234.587.369")
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
 	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
@@ -440,6 +443,8 @@
 
 <Method name="Test: TaxGroup - Een land dat lid is van EU">
 <Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Vrijgesteld())
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("NL 1234.587.369")
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 	
 	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
@@ -453,8 +458,11 @@
 
 <Method name="Test: TaxGroup - Een land dat geen lid is van EU">
 <Implementation><![CDATA[
+	do ..Klant.IndienMethodCall("GeefBTWRegime").DanReturn(##class(DOM.VKP.enu.BTWRegimeKlant).Vrijgesteld())
+	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("DE 1234.587.369")
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
 	
+	
 	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)