Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49909 -r49999
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49909)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49999)
@@ -21,6 +21,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderLeverAdressenZonderAxLeveradresIdVanKlant">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaAXLeverAdresIdEnKlantNummer">
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: DOM/common/impl/AdresUtils.cls.xml
===================================================================
diff -u -r48659 -r49999
--- DOM/common/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 48659)
+++ DOM/common/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 49999)
@@ -50,6 +50,7 @@
 	Set Adres.VerzendingWijze = $piece(AdresData,"\",26)
 	Set Adres.Volmacht = $piece(AdresData,"\",23)
 	Set Adres.AxLeveradresId = $piece(AdresData,"\",29)
+	Do Adres.ZetUniekId($Piece(AdresData,"\",28))
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml
===================================================================
diff -u -r49774 -r49999
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49774)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49999)
@@ -50,7 +50,7 @@
 <Implementation><![CDATA[
 	Do ..VoegToeKlant()
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres ' ' van klant 'K||999999' heeft geen AxLeveradresId en kan daarom niet bewaard worden")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres '  ' van klant 'K||999999' heeft geen AxLeveradresId en kan daarom niet bewaard worden")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.IllegalArgumentException).%ClassName(1),Substrings))
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49909 -r49999
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49909)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49999)
@@ -61,6 +61,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderLeverAdressenZonderAxLeveradresIdVanKlant">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderLeverAdressenZonderAxLeveradresIdVanKlant",KlantID)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaAXLeverAdresId">
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaAXLeverAdresId",AXLeverAdresId)
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>