Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49677 -r49684
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49677)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49684)
@@ -98,10 +98,15 @@
 <Method name="VerwijderViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim KlantNummer As %String = $Piece($ListGet(^KKL.AdresI("KlantId_AdresVolgNr",ID),1),"||",2)
-	#dim LeverAdresNummer As %String = $ListGet(^KKL.AdresI("KlantId_AdresVolgNr",ID),2)
-	Kill ^KKL(^KK1(KlantNummer),"L"_##class(TECH.StringUtils).AlignRight(LeverAdresNummer," ",3))
-	Kill ^KKL.AdresI("KlantId_AdresVolgNr",ID)
+	Try {
+		#dim KlantNummer As %String = $Piece($ListGet(^KKL.AdresI("KlantId_AdresVolgNr",ID),1),"||",2)
+		#dim LeverAdresNummer As %String = $ListGet(^KKL.AdresI("KlantId_AdresVolgNr",ID),2)
+		Kill ^KKL(^KK1(KlantNummer),"L"_##class(TECH.StringUtils).AlignRight(LeverAdresNummer," ",3))
+		Kill ^KKL.AdresI("KlantId_AdresVolgNr",ID)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.Exceptions.IllegalArgumentException).Throw("Leveradres '"_ID_"' werd niet gevonden en kon dus niet verwijderd worden.")
+	}
 ]]></Implementation>
 </Method>