Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r53949 -r53955
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53949)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 53955)
@@ -90,21 +90,32 @@
 	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
 	While PostalAddressIterator.HasNext() {
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
+		Set BestaatLeverAdres = $$$False
 		
 		If ..RolesContains(Address.Role ,"Delivery" ) {
 			Set Adres = ..LeverAdresFactory.MaakLeverAdres()
 			Set BestaatLeverAdres = ..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, KlantNummer)
 			
 			If BestaatLeverAdres {
 				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)
+					}
+				}
 			} Else {
+				If (##class(TECH.Config.ConfigMgr).Instance().GetString("DOM.common.ProjectSettingsAPI_IsActiefIsPrimaryDlvAddrViaAx2AdminKlantSync")) {
+					If Address.IsPrimaryDlvAddr = "Yes" {
+						Do ..VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1(Adres)
+					}
+				}
 				Set BestaandLeverAdres = Adres
 			}
 			
 			Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
 			
 			If $$$Not(BestaatLeverAdres) {
-				Do Klant.VoegToeLeverAdres(Adres)
+				Do Klant.VoegToeLeverAdres(Adres) // 2e property nog toevoegen!!!
 			} Else {
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
 				Do ##class(TECH.ListUtils).RemoveItemFromList(Address.LocationId,LijstVanAxLocationIds)
@@ -165,6 +176,11 @@
 	Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="VerplaatsAdresOpL1IndienNodigEnGeefThisAdresPositieL1">
+<FormalSpec>LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<Private>1</Private>
+</Method>
 </Class>