Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49735 -r49907
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49735)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49907)
@@ -8,8 +8,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AxToAdminUtils">
-<Type>AXimpl.AxToAdminUtils</Type>
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -40,7 +40,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	Set ..AdresZetter = $$$Inject(AdresZetter,##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New())
 	Set ..LeverAdresFactory = $$$Inject(LeverAdresFactory,##class(DOM.VKP.impl.LeverAdresFactory).%New())
 	Set ..LeveradresRepository = $$$Inject(LeveradresRepository,##class(DOM.VKP.impl.LeverAdresRepository).%New())
@@ -69,27 +69,56 @@
 <Method name="ZetLeverAdressen">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
 	#dim LijstVanAxLocationIds As %ListOfDataTypes = ..GeefAxLocationIdsVanKlant(Klant)
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 
 	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(Cust.PostalAddress)
 	While PostalAddressIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" while ")
 		#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = PostalAddressIterator.Next()
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" A ")
 		If ..RolesContains(Address.Role ,"Delivery" ) {
 			#dim Adres As DOM.VKP.LeverAdres = ..LeverAdresFactory.MaakLeverAdres()
-			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId),..LeveradresRepository.GeefViaAXLeverAdresId(Address.LocationId),Adres)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" B ")
+	
+			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId),..LeveradresRepository.GeefViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),Adres)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" C ")
+	
 			Do ..AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, $$$False)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" D ")
+	
 			If $$$Not(..LeveradresRepository.BestaatViaAXLeverAdresId(Address.LocationId)) {
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" E ")
+	
 				Do Klant.VoegToeLeverAdres(Adres)
+	
 			} Else {
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" F ")
+	
 				Do ..LeveradresRepository.Bewaar(Klant, Adres)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" G ")
+	
 				Do ##class(TECH.ListUtils).RemoveItemFromList(Address.LocationId,LijstVanAxLocationIds)
+	
+	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" H ")
+	
 			}
 		}
 	}
 	Set LijstVanAxLocationIdsIterator = ##class(TECH.ListIterator).%New(LijstVanAxLocationIds)
 	While LijstVanAxLocationIdsIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 		Do ..LeveradresRepository.VerwijderViaAXLeverAdresId(LijstVanAxLocationIdsIterator.Next())
 	}
+	Do ##class(Tools.Wlip).%New(127).String(Timer.Stop()\1)
 ]]></Implementation>
 </Method>