Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderViaID.cls.xml
===================================================================
diff -u -r49684 -r49685
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderViaID.cls.xml	(.../VerwijderViaID.cls.xml)	(revision 49684)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderViaID.cls.xml	(.../VerwijderViaID.cls.xml)	(revision 49685)
@@ -41,8 +41,8 @@
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
 	Do LeveradresRepository.VerwijderViaID(100001)
 	
-	Do $$$AssertEquals($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")),0)
-	Do $$$AssertEquals($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)),0)
+	Do $$$AssertFalse($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertFalse($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
 ]]></Implementation>
 </Method>
 
@@ -56,6 +56,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: 1 leveradres verwijderen van klant met meerdere adressen">
+<Implementation><![CDATA[
+	Do ..VoegToeKlantMetLeveradres(1)
+	Do ..VoegToeKlantMetLeveradres(2)
+	Do ..VoegToeKlantMetLeveradres(3)
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeveradresRepository.VerwijderViaID(100002)
+	
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertFalse($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  2")))
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  3")))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+	Do $$$AssertFalse($Data(^KKL.AdresI("KlantId_AdresVolgNr",100002)))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100003)))
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderData">
 <Private>1</Private>
 <Implementation><![CDATA[