Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r48522 -r49694
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48522)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49694)
@@ -54,6 +54,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaAXLeverAdresId",AXLeverAdresId)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r48517 -r49694
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48517)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49694)
@@ -25,6 +25,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaAXLeverAdresId">
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderViaAxLeverAdresID.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderViaAxLeverAdresID.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderViaAxLeverAdresID.cls.xml	(revision 49694)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.LeverAdresRepository.VerwijderViaAxLeverAdresID">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="TestKlantnaam">
+<Default>TestKlantnaam</Default>
+</Parameter>
+
+<Parameter name="TestKlantnummer">
+<Default>999999</Default>
+</Parameter>
+
+<Parameter name="AxLocationID1">
+<Default>AXID1</Default>
+</Parameter>
+
+<Parameter name="AxLocationID2">
+<Default>AXID2</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard gedrag: bestaand leveradres verwijderen">
+<Implementation><![CDATA[
+	Do ..VoegToeKlantMetLeveradres(1)
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeveradresRepository.VerwijderViaAXLeverAdresId("AXID1")
+	
+	Do $$$AssertFalse($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertFalse($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Proberen een niet bestaand leveradres te verwijderen geeft foutmelding">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Leveradres met AxLocationId '"_..#AxLocationID1_"' werd niet gevonden en kon dus niet verwijderd worden.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalArgumentException", Substrings))
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeveradresRepository.VerwijderViaAXLeverAdresId(..#AxLocationID1)
+]]></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.VerwijderViaAXLeverAdresId(..#AxLocationID2)
+	
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  3")))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100003)))
+	
+	Do $$$AssertFalse($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  2")))
+	Do $$$AssertFalse($Data(^KKL.AdresI("KlantId_AdresVolgNr",100002)))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VerwijderDataPerLeverAdresNummer(1)
+	Do ..VerwijderDataPerLeverAdresNummer(2)
+	Do ..VerwijderDataPerLeverAdresNummer(3)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderDataPerLeverAdresNummer">
+<FormalSpec>LeverAdresNummer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer)
+	Kill ^KK1(..#TestKlantnummer)
+	Kill ^KKL.AdresI("KlantId_AdresVolgNr",100000+LeverAdresNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKlantMetLeveradres">
+<FormalSpec>LeverAdresNummer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_$$$LeftPadding(LeverAdresNummer,3," ")) = $$$DummyString
+	Set $Piece(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_$$$LeftPadding(LeverAdresNummer,3," ")),"\",29) = "AXID"_LeverAdresNummer
+	Set $Piece(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_$$$LeftPadding(LeverAdresNummer,3," ")),"\",28) = 100000+LeverAdresNummer
+	Set ^KKL.AdresI("KlantId_AdresVolgNr",100000+LeverAdresNummer) = $lb("K||"_..#TestKlantnummer,LeverAdresNummer)
+	Set ^KK1(..#TestKlantnummer) = ..#TestKlantnaam_" "_..#TestKlantnummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49684 -r49694
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49684)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49694)
@@ -110,6 +110,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderViaAXLeverAdresId">
+<FormalSpec>AXLeverAdresId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Try {
+		#dim Query As %String = "SELECT UniekID from Derde_Klant.LevAdres where AxLeveradresId = ?"
+		#dim Params As %List = $ListBuild(AXLeverAdresId)
+		#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
+	
+		Do ResultSet.Next()
+		If ResultSet.GetData(1)>0
+			Do ..VerwijderViaID(ResultSet.GetData(1))
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.Exceptions.IllegalArgumentException).Throw("Leveradres met AxLocationId '"_AXLeverAdresId_"' werd niet gevonden en kon dus niet verwijderd worden.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaKlantIdEnAdresVolgnummer">
 <FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>