Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34009 -r34068
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34009)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34068)
@@ -27,6 +27,7 @@
 	
 	set Custable = ##class(AXaif.Customer.AxdEntityCustTable).%New()
 	set Custable.class = "entity"
+	set Custable.ADUImported = ##class(AXaif.Shared.AxdEnumNoYes).Yes()
 	set Custable.AccountNum = ..Formatter.FormatCustNumber(Partij.GeefCode())
 	set Custable.Blocked = $$$If(Klant.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"","Invoice")
 	set Custable.CashDisc = ..Formatter.FormatCashDiscount(Klant.GeefKortingContantPercentage(),Klant.GeefKortingContantTermijn())
@@ -168,7 +169,7 @@
 <Implementation><![CDATA[
 	quit:$$$Not($$$StartsWith(BTWNr,"BE")) ""
 	quit:BTWNr="" ""
-	quit:(+$extract(BTWNr,3,*))=0 ""
+	quit:(+$extract(BTWNr,3,*))=0 "BE 0000.000.097"
 	quit "BTW "_$extract(BTWNr,1,2)_" "_$extract(BTWNr,3,6)_"."_$extract(BTWNr,7,9)_"."_$extract(BTWNr,10,12)
 ]]></Implementation>
 </Method>
@@ -192,6 +193,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	quit:Klant.IsLidBTWEenheidVanHoecke() "BUNIT"
+	quit:Klant.GeefBTWRegime()=##class(DOM.VKP.enu.BTWRegimeKlant).Aanrekenen() "BDOM"
 	quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
 	quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
 	quit "BX"
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)