Index: AX/Uitgaand/AKP/LeverancierBTWnummer/impl/GeldigeBTWnummerFilter.cls.xml
===================================================================
diff -u -r35253 -r35365
--- AX/Uitgaand/AKP/LeverancierBTWnummer/impl/GeldigeBTWnummerFilter.cls.xml	(.../GeldigeBTWnummerFilter.cls.xml)	(revision 35253)
+++ AX/Uitgaand/AKP/LeverancierBTWnummer/impl/GeldigeBTWnummerFilter.cls.xml	(.../GeldigeBTWnummerFilter.cls.xml)	(revision 35365)
@@ -9,7 +9,7 @@
 <Implementation><![CDATA[
 	#dim Formatter As AX.common.impl.Formatter = ##class(AX.common.impl.Formatter).%New()
 	
-	Quit Formatter.FormatVATNum(Leverancier.GeefBTWnr())_Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr()) '= ""
+	Quit Formatter.FormatVATNumVoorDIXF(Leverancier.GeefBTWnr())_Formatter.FormatEnterpriseNumber(Leverancier.GeefBTWnr()) '= ""
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r35224 -r35365
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 35224)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 35365)
@@ -87,6 +87,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FormatVATNumVoorDIXF">
+<FormalSpec>BTWNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit:BTWNr="" ""
+	quit:BTWNr="GEEN" ""
+	quit:BTWNr="G" ""
+	quit:(($$$StartsWith(BTWNr,"BE"))&&(+$extract(BTWNr,3,*)=0)) "0000.000.097"
+	quit:$$$StartsWith(BTWNr,"BE") $extract(BTWNr,3,6)_"."_$extract(BTWNr,7,9)_"."_$extract(BTWNr,10,12)
+	quit:((+$extract(BTWNr,3,*)=0)&&($IsValidNum($extract(BTWNr,3,3)))) ""
+	quit $$$Trim($extract(BTWNr,3,*))
+]]></Implementation>
+</Method>
+
 <Method name="FormatLandCode2naar3">
 <FormalSpec>LandCodeIn:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r35204 -r35365
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35204)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35365)
@@ -61,7 +61,7 @@
 	Set AxLeverancier.TeleFax = $$$Trim(Partij.GeefTelefax())
 	Set AxLeverancier.Currency = Partij.GeefMunt()
 	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
-	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())
+	Set AxLeverancier.VATNum = ..Formatter.FormatVATNumVoorDIXF(Partij.GeefBTWNr())
 	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetalingVoorwaarde())
 	Set AxLeverancier.PaymMode = ..ConvertPaymentMode(Partij)
 	Set AxLeverancier.CashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r35224 -r35365
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 35224)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 35365)
@@ -399,7 +399,7 @@
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"BTW BE 0402.775.276")
-	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"0402.775.276")
 ]]></Implementation>
 </Method>
 
@@ -471,7 +471,7 @@
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.EnterpriseNumber,"BTW BE 0000.000.097")
-	Do $$$AssertEquals(..AxLeverancier.VATNum,"")
+	Do $$$AssertEquals(..AxLeverancier.VATNum,"0000.000.097")
 ]]></Implementation>
 </Method>