Index: AXBizTalk/Crm/Customer/Customer.cls.xml
===================================================================
diff -u -r38441 -r38445
--- AXBizTalk/Crm/Customer/Customer.cls.xml	(.../Customer.cls.xml)	(revision 38441)
+++ AXBizTalk/Crm/Customer/Customer.cls.xml	(.../Customer.cls.xml)	(revision 38445)
@@ -225,6 +225,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="KVKnummer">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -416,6 +420,9 @@
 <Value name="62">
 <Value>FactuurVerzendingVia</Value>
 </Value>
+<Value name="63">
+<Value>KVKnummer</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r38444 -r38445
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38444)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38445)
@@ -96,6 +96,7 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Taal,"nl-be")	
 	Do $$$AssertEquals(GeconverteerdeKlant.BTWnummer,"9600.001.234")
 	Do $$$AssertEquals(GeconverteerdeKlant.Website,"http://www.example.com")
+	Do $$$AssertEquals(GeconverteerdeKlant.KVKnummer,"")
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking6,"Opmerking6")
 	Do $$$AssertEquals(GeconverteerdeKlant.Opmerking7,"Opmerking7")
@@ -432,6 +433,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: KVK nummer ingevuld indien  Nederlander">
+<Implementation><![CDATA[
+	#dim NLDAdres = ##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New()
+	Do NLDAdres.ZetLandNr(##class(DOM.common.enu.Land).Nederland())
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(NLDAdres)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.KVKnummer,"12345678")
+]]></Implementation>
+</Method>
+
 <Method name="GeefCustomer">
 <FormalSpec>KlantId:%String</FormalSpec>
 <ReturnType>AXBizTalk.Crm.Customer.Customer</ReturnType>
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r38444 -r38445
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 38444)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 38445)
@@ -88,6 +88,7 @@
 	Set ..Customer.Opmerking8 = $$$Replace(..Klant.GeefOpmerking8(),";","-")
 	Set ..Customer.Opmerking9 = $$$Replace(..Klant.GeefOpmerking9(),";","-")
 	Set ..Customer.Website = $$$Replace(..Partij.GeefWebstek(),";",".")
+	set:(..Partij.GeefAdres().GeefLandNr()=##class(DOM.common.enu.Land).Nederland()) ..Customer.KVKnummer = ##class(TECH.StringUtils).AlignRight($Extract(##class(TECH.StringUtils).StripAllExceptNumeric(..Partij.GeefHandelRegisterNr()),1,8),"0",8)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml
===================================================================
diff -u -r38441 -r38445
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 38441)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 38445)
@@ -71,6 +71,7 @@
 	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "LeverstopMotivatie")
 	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "IncassoProcedure")
 	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "FactuurVerzendingVia")
+	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "KVKnummer")
 		
 	#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
 	Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()