Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r35251 -r35382
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35251)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35382)
@@ -1024,6 +1024,58 @@
 	Do $$$AssertEquals(CustTable.CustClassificationId,"HLX")
 ]]></Implementation>
 </Method>
+
+<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")
+
+	#dim AxKlant As AXaif.Customer.AxdCustomer = ..ConvertToAxdCustomer()
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.ADUTaxRegistrationNumber,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Handelsregister nr wordt overgenomen voor een Nederlands adres">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands())
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("12345678")
+
+	#dim AxKlant As AXaif.Customer.AxdCustomer = ..ConvertToAxdCustomer()
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.ADUTaxRegistrationNumber,"12345678")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Handelsregister nr wordt overgenomen voor een Nederlands adres - enkel eerste 8 digits">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands())
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("123.45a67,890")
+
+	#dim AxKlant As AXaif.Customer.AxdCustomer = ..ConvertToAxdCustomer()
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.ADUTaxRegistrationNumber,"12345678")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Handelsregister nr wordt overgenomen voor een Nederlands adres - leftpadden indien nodig">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands())
+	do ..Partij.IndienMethodCall("GeefHandelRegisterNr").DanReturn("1a")
+
+	#dim AxKlant As AXaif.Customer.AxdCustomer = ..ConvertToAxdCustomer()
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	do $$$AssertEquals(CustTable.ADUTaxRegistrationNumber,"00000001")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r35369 -r35382
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35369)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35382)
@@ -78,6 +78,7 @@
 	set Custable.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())
 	
 	set Custable.TaxGroup = ..Utils.ConvertTaxGroup(Klant)
+	set:(Partij.GeefAdres().GeefLandNr()=##class(DOM.common.enu.Land).Nederland()) Custable.ADUTaxRegistrationNumber = ##class(TECH.StringUtils).AlignRight($Extract(##class(TECH.StringUtils).StripAllExceptNumeric(Partij.GeefHandelRegisterNr()),1,8),"0",8)
 		
 	set Custable.WebSalesOrderDisplay = "All"
 	set Custable.PaymTermId = ..Formatter.ConvertPaymTermId(Klant.GeefBetalingwijze(), Klant.GeefBetalingTermijn())
@@ -87,7 +88,6 @@
 	set DirParty.class = "entity"
 	set DirParty.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
 	set DirParty.Name = ..Formatter.FormatPartyName(Partij)
-	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: AXaif/Customer/AxdEntityCustTable.cls.xml
===================================================================
diff -u -r34749 -r35382
--- AXaif/Customer/AxdEntityCustTable.cls.xml	(.../AxdEntityCustTable.cls.xml)	(revision 34749)
+++ AXaif/Customer/AxdEntityCustTable.cls.xml	(.../AxdEntityCustTable.cls.xml)	(revision 35382)
@@ -48,6 +48,13 @@
 <Parameter name="XMLNAME" value="ADUImported"/>
 </Property>
 
+<Property name="ADUTaxRegistrationNumber">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="8"/>
+<Parameter name="MINLEN" value="8"/>
+<Parameter name="XMLNAME" value="ADUTaxRegistrationNumber"/>
+</Property>
+
 <Property name="AffiliatedRU">
 <Type>AXaif.Shared.AxdExtTypeCustAffiliatedRU</Type>
 <Parameter name="XMLNAME" value="Affiliated_RU"/>
@@ -935,8 +942,6 @@
 <State>AxdEntityCustTableState</State>
 <StreamLocation>^AXaif.CustD1F9.AxdEntityCus4AES</StreamLocation>
 <Data name="AxdEntityCustTableState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>DocumentHash</Value>
 </Value>
@@ -1474,6 +1479,9 @@
 <Value name="179">
 <Value>action</Value>
 </Value>
+<Value name="180">
+<Value>ADUTaxRegistrationNumber</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 35382 refers to a dead (removed) revision in file `vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/OrganizationCommon/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?