Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml
===================================================================
diff -u -r49909 -r49910
--- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49909)
+++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml	(.../LeverAdresUtils.cls.xml)	(revision 49910)
@@ -69,56 +69,26 @@
 <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()
-	
-	Do ##class(Tools.Wlip).%New(127).String((Timer.Stop()\1)_" B ")
-	
 			#dim BestaandLeverAdres As DOM.VKP.LeverAdres = $$$If(..LeveradresRepository.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID())),..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.BestaatViaAXLeverAdresIdEnKlantNummer(Address.LocationId, ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Klant.GeefID()))) {
-	
-	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>