Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r53956 -r53959
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53956)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53959)
@@ -100,29 +100,28 @@
 				Set BestaandLeverAdres = ..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer)
 				If (##class(TECH.Config.ConfigMgr).Instance().GetString("DOM.common.ProjectSettingsAPI_IsActiefIsPrimaryDlvAddrViaAx2AdminKlantSync")) {
 					If ((Address.IsPrimaryDlvAddr = "Yes") && ($$$Not(BestaandLeverAdres.GeefKlantAdresNr() = "1"))) {
-						Do ..VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1(BestaandLeverAdres)
+						Do ..VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1(BestaandLeverAdres, Klant)
 					}
 				}
+				Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
 			} Else {
 				If (##class(TECH.Config.ConfigMgr).Instance().GetString("DOM.common.ProjectSettingsAPI_IsActiefIsPrimaryDlvAddrViaAx2AdminKlantSync")) {
 					If Address.IsPrimaryDlvAddr = "Yes" {
-						Do ..VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1(Adres)
+						Do ..VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1(Adres, Klant)
 					}
 				}
-				Set BestaandLeverAdres = Adres
+				Do ..AdresZetter.ZetAdres(Adres, Address, Cust, Adres, $$$False)
 			}
 			
-			Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
-			
 			If $$$Not(BestaatLeverAdres) {
-				If $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetString("DOM.common.ProjectSettingsAPI_IsActiefIsPrimaryDlvAddrViaAx2AdminKlantSync")) {
-					Do Klant.VoegToeLeverAdres(Adres)
-				} Else {
+				If (##class(TECH.Config.ConfigMgr).Instance().GetString("DOM.common.ProjectSettingsAPI_IsActiefIsPrimaryDlvAddrViaAx2AdminKlantSync")) {
 					If Address.IsPrimaryDlvAddr = "Yes" {
-						Do Klant.VoegToeLeverAdres(Adres, Adres.GeefKlantAdresNr())
+						Do Klant.VoegToeLeverAdres(Adres, +Adres.GeefKlantAdresNr())
 					} Else {
 						Do Klant.VoegToeLeverAdres(Adres)
 					}
+				} Else {
+					Do Klant.VoegToeLeverAdres(Adres)
 				}
 			} Else {
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
@@ -186,8 +185,18 @@
 </Method>
 
 <Method name="VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1">
-<FormalSpec>LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<FormalSpec>LeverAdres:DOM.VKP.LeverAdres,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantId As DOM.common.PartijID = Klant.GeefID()
+	
+	If (..LeveradresRepository.BestaatViaKlantIdEnKlantAdresNr(KlantId, "1")) {
+		#dim TeVerplaatsenAdres As DOM.VKP.LeverAdres = ..LeveradresRepository.GeefViaKlantIdEnKlantAdresNr(KlantId, "1")
+		#dim VolgendVrijKlantAdresNr As %String = Klant.GeefVolgendVrijKlantAdresNr()
+	} Else {
+		Do LeverAdres.ZetKlantAdresNr("1")
+	}
+]]></Implementation>
 </Method>
 </Class>
 
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml
===================================================================
diff -u -r53949 -r53959
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53949)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressen/Test.cls.xml	(.../Test.cls.xml)	(revision 53959)
@@ -355,6 +355,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Adres heeft IsPrimaryDlvAddr -&gt; Yes en het bestond nog niet -&gt; VoegToeLeverAdres gebruikt 1 als 2e parameter zijnde KlantAdresNr">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	#dim AdresLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(AdresLijst)
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres, 1)
+	
+	#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.IndienMethodCall("MaakLeverAdres").DanReturn(Adres)
+	
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresIdEnKlantNummer",..#AxLocationId1,..#KlantNummer).ExactAantalKeer(0)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("BestaatViaKlantIdEnKlantAdresNr", "K||1234", 1).ExactAantalKeer(1).DanReturn($$$False)
+	
+	#dim IsPrimaryDlvAddrInbegrepen As %Boolean = $$$True
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1), IsPrimaryDlvAddrInbegrepen)
+	
+	Set AdresZetterMock = ##class(vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	Do AdresZetterMock.VerwachtMethodCall("ZetAdres",Adres,Cust.PostalAddress.GetAt(1),Cust,Adres,$$$False).ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(,LeverAdresFactoryStub,LeverAdresRepositoryMock,,AdresZetterMock)
+	Do LeverAdresUtils.ZetLeverAdressen(Klant,Cust)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do Klant.Verifieer()
+	Do AdresZetterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlantMetLeveradressen">
 <FormalSpec>IdLijst:%List</FormalSpec>
 <Private>1</Private>
@@ -393,7 +427,7 @@
 </Method>
 
 <Method name="GeefAxCustMetAxLocationIds">
-<FormalSpec>AxLocationIdLijst:%List</FormalSpec>
+<FormalSpec>AxLocationIdLijst:%List,InsertPrimaryDlvAddr:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</ReturnType>
 <Implementation><![CDATA[
@@ -405,6 +439,7 @@
 		Set AxLocationID = LijstIterator.Next()
 		Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
 		Set AxPostalAddress.LocationId = AxLocationID
+		Set AxPostalAddress.IsPrimaryDlvAddr = $$$If(AxLocationID=..#AxLocationId1,$$$If(InsertPrimaryDlvAddr, "Yes", "No"),"No")
 		Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
 		Set AxRole.Name = "Delivery"
 		Do AxPostalAddress.Role.Insert(AxRole)