Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49974 -r49999
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49974)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49999)
@@ -47,7 +47,7 @@
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Implementation><![CDATA[
 	If ($$$Not($$$HasLength(LeverAdres.GeefAxLeveradresId()))) {
-		Set Exception = ##class(TECH.Exceptions.IllegalArgumentException).%New("LeverAdres '"_LeverAdres.GeefNaam()_" "_LeverAdres.GeefAanspreking()_"' van klant '"_Klant.GeefID()_"' heeft geen AxLeveradresId en kan daarom niet bewaard worden")
+		Set Exception = ##class(TECH.Exceptions.IllegalArgumentException).%New("LeverAdres '"_LeverAdres.GeefNaam()_" "_LeverAdres.GeefToenaam()_" "_LeverAdres.GeefAanspreking()_"' van klant '"_Klant.GeefID()_"' heeft geen AxLeveradresId en kan daarom niet bewaard worden")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	try {
@@ -234,6 +234,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderLeverAdressenZonderAxLeveradresIdVanKlant">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
+	#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Klant.GeefLeverAdressen())
+	While Iterator.HasNext() {
+		#Dim Adres As DOM.VKP.LeverAdres = Iterator.Next()
+		If $$$Not($$$HasLength(Adres.GeefAxLeveradresId())) {
+			#dim UniekId As %String = Adres.GeefKlantAdresNr()
+			Do ..VerwijderViaID(Adres.GeefUniekId())
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <Private>1</Private>