Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49367 -r49677
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49367)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49677)
@@ -97,7 +97,11 @@
 
 <Method name="VerwijderViaID">
 <FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerwijderViaID() nog niet geïmplementeerd"))
+<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)
 ]]></Implementation>
 </Method>