Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml
===================================================================
diff -u -r52807 -r53128
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 52807)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 53128)
@@ -46,7 +46,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er is een Adres met als Role Business">
+<Method name="Test: Er is een Adres met als Role Business maar IsPrimory is niet Yes">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -56,10 +56,11 @@
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
 	Set Cust.PostalAddress.GetAt(2).Role.GetAt(1).Name = "Business"
+	Set Cust.PostalAddress.GetAt(2).IsPrimary = "No"
 	
 	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
 	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
-	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$True).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
 	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(3),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
 	
 	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,,,AdresZetterMock)
@@ -70,7 +71,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Er is een Adres maar als Role niet Business">
+<Method name="Test: Er is een Adres met als IsPrimory Yes maar als Role niet Business">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
 	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
@@ -79,7 +80,7 @@
 	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(1)
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
-	Set Cust.PostalAddress.GetAt(2).Role.GetAt(1).Name = "Delivery"
+	Set Cust.PostalAddress.GetAt(2).IsPrimary = "Yes"
 	
 	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
 	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
@@ -94,6 +95,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Er is een Adres met als Role Business en IsPrimory is Yes">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(1)
+	
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3))
+	Set Cust.PostalAddress.GetAt(2).Role.GetAt(1).Name = "Business"
+	Set Cust.PostalAddress.GetAt(2).IsPrimary = "Yes"
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(2),Cust,..Matches.Object(BestaandAdres),$$$True).DanDoeNiks().ExactAantalKeer(1)
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(3),Cust,..Matches.Object(BestaandAdres),$$$False).DanDoeNiks().ExactAantalKeer(0)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,,,AdresZetterMock)
+	#dim PrimairAdres As DOM.VKP.LeverAdres = LeverAdresUtils.MaakPrimairAdres(Cust)
+	
+	Do LeverAdresFactoryStub.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als er geen hoofdadres meegegeven is door AX wordt een error gelogd">
 <Implementation><![CDATA[
 	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r52807 -r53128
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 52807)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53128)
@@ -59,7 +59,7 @@
 	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
 	While PostalAddressIterator.HasNext() {
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
-		If ..RolesContains(Address.Role ,"Business") {
+		If (Address.IsPrimary = "Yes") && ..RolesContains(Address.Role ,"Business") {
 			Set Adres = ..AdresZetter.ZetAdres(Adres, Address, Cust, Adres, $$$True)
 			Set IsAdresGezet = $$$True
 		}