Index: LEVADR.mac.rou
===================================================================
diff -u -r29059 -r53463
--- LEVADR.mac.rou	(.../LEVADR.mac.rou)	(revision 29059)
+++ LEVADR.mac.rou	(.../LEVADR.mac.rou)	(revision 53463)
@@ -84,18 +84,6 @@
  Set R=$S($TR($P(sFL(1),D,3,99),D,"")="":"NIEUW",1:"EDIT")_"^vhScherm(""LEVADR"",,,,,,3)"
  Do @R
  Set LevAdr=$S(%SC:sFL(1),1:"")
- If ('$P(LevAdr,"\",12)) || ($P(LevAdr,"\",12) = "L"){
-	 #dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
-	 #dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(PartijID)
-	 Set LevAdrOpslaan = $$JaNee^vhTXTPOP("Opslaan","Wilt u het ingegeven leveringsadres opslaan bij klant '"_Partij.GeefNaam()_"' ?")
-	 If LevAdrOpslaan {
-		#dim KlantInstellingenService As APPS.OV.KlantInstellingenService =  ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
- 		new Adres set Adres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
- 		do ##class(DOM.common.impl.AdresUtils).VulInAdresViaDataMString(Adres,LevAdr)
-    	Set Adres.VerzendingWijze = $$SELECT^KLVERZW(,,,,,,,,,,1)
-    	Do KlantInstellingenService.BewaarLeverAdres(KLNr, Adres)	
-	 }
- }
  Quit LevAdr
  ;
  ; Geeft het default leveringsadres terug