Index: vhTest/Utils/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r33552 -r34273
--- vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 33552)
+++ vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 34273)
@@ -16,6 +16,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Nederlands">
+<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(1147)
+	Do LeverAdres.ZetPostcode("4588 KD")
+	Do LeverAdres.ZetStraat("Walsoordensestraat 70")
+	Do LeverAdres.ZetGemeente("Walsoorden")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="EuLid">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34271 -r34273
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34271)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34273)
@@ -47,6 +47,7 @@
 	set DirParty.class = "entity"
 	set DirParty.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
 	set DirParty.Name = $$$Trim(Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ","")_$s(##class(APPS.common.enu.JuridischeVorm).IsValid(Partij.GeefAanspreking()):" "_Partij.GeefAanspreking(),1:""))
+	set:(Partij.GeefAdres().GeefLandNr()=##class(DOM.common.enu.Land).Nederland()) DirParty.DunsNumberRecId = Partij.GeefHandelRegisterNr()
 	
 	set OrganizationName = ##class(AXaif.Customer.AxdEntityOrganizationName).%New()
 	set OrganizationName.class = "entity"
Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/OrganizationCommon/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/OrganizationCommon/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/OrganizationCommon/Test.cls.xml	(revision 34273)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter.OrganizationCommon.Test">
+<Super>vhUnitTest.AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter.TestBase</Super>
+
+<Method name="Test: Handelsregisternummer wordt niet overgenomen voor een belgisch adres">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("1234567")
+
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	do $$$AssertEquals(Party.DunsNumberRecId,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Handelsregister nr wordt niet overgenomen voor een nederlands adres">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands())
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("1234567")
+
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	do $$$AssertEquals(Party.DunsNumberRecId,"1234567")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>