Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml
===================================================================
diff -u -r49763 -r49774
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49763)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml	(.../Bewaar.cls.xml)	(revision 49774)
@@ -72,7 +72,7 @@
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,..LegacyPartijApi, ..PartijApi)
 	Do LeveradresRepository.Bewaar(##class(DOM.VKP.impl.DataM.DataMKlantNative).%New(..#TestKlantnummer), LeverAdres)
 	
-	#dim OpgehaaldLeverAdres As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"1")
+	#dim OpgehaaldLeverAdres As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"1")
 	
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefAanspreking(),LeverAdres.GeefAanspreking())
 	Do $$$AssertEquals(OpgehaaldLeverAdres.GeefAdresKey(),LeverAdres.GeefAdresKey())
@@ -136,7 +136,7 @@
 	Do LeverAdres.ZetVerzendingWijze("OD;4")
 	Do LeverAdres.ZetVolmacht("VOLMACHTGLS")
 	Do LeverAdres.ZetAxLeveradresId("AxLeveradresId")
-	Set LeverAdres.ID = "1"
+	Do LeverAdres.ZetKlantAdresNr("1")
 	
 	Quit LeverAdres
 ]]></Implementation>
Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r48506 -r49774
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48506)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
@@ -8,7 +8,7 @@
 <Super>DOM.VKP.impl.LeverAdresRepository</Super>
 
 <Method name="BestaatViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -19,14 +19,14 @@
 </Method>
 
 <Method name="GeefViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaKlantIdEnAdresVolgnummer">
-<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<Method name="GeefViaKlantIdEnKlantAdresNr">
+<FormalSpec>KlantId:%String,KlantAdresNr:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -37,7 +37,7 @@
 </Method>
 
 <Method name="VerwijderViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49763 -r49774
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49763)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
@@ -46,7 +46,7 @@
 	}
 	try {
 		#dim KlantIndexKKL As %String = ..GeefKlantIndexKKL($Piece(Klant.GeefID(),"||",2))
-		#dim LeverAdresId As %Integer = LeverAdres.ID
+		#dim LeverAdresId As %Integer = LeverAdres.GeefKlantAdresNr()
 		#dim AdresNode As %String = ""
 		Set $Piece(AdresNode,"\",1) = LeverAdresId
 		Set $Piece(AdresNode,"\",2) = LeverAdres.GeefNaam()
@@ -82,30 +82,30 @@
 </Method>
 
 <Method name="BestaatViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("BestaatViaID() nog niet geïmplementeerd"))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefViaKlantIdEnAdresVolgnummer($listget(^KKL.AdresI("KlantId_AdresVolgNr",ID),1), $listget(^KKL.AdresI("KlantId_AdresVolgNr",ID),2))
+<Implementation><![CDATA[	Quit ..GeefViaKlantIdEnKlantAdresNr($listget(^KKL.AdresI("KlantId_AdresVolgNr",UniekId),1), $listget(^KKL.AdresI("KlantId_AdresVolgNr",UniekId),2))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <Implementation><![CDATA[
 	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)
+		#dim KlantNummer As %String = $Piece($ListGet(^KKL.AdresI("KlantId_AdresVolgNr",UniekId),1),"||",2)
+		#dim LeverAdresNummer As %String = $ListGet(^KKL.AdresI("KlantId_AdresVolgNr",UniekId),2)
 		Kill ^KKL(^KK1(KlantNummer),"L"_##class(TECH.StringUtils).AlignRight(LeverAdresNummer," ",3))
-		Kill ^KKL.AdresI("KlantId_AdresVolgNr",ID)
+		Kill ^KKL.AdresI("KlantId_AdresVolgNr",UniekId)
 	} 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.")
+		Do ##class(TECH.Exceptions.IllegalArgumentException).Throw("Leveradres '"_UniekId_"' werd niet gevonden en kon dus niet verwijderd worden.")
 	}
 ]]></Implementation>
 </Method>
@@ -114,7 +114,7 @@
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <Implementation><![CDATA[
 	Try {
-		#dim Query As %String = "SELECT UniekID from Derde_Klant.LevAdres where AxLeveradresId = ?"
+		#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)
 	
@@ -128,20 +128,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaKlantIdEnAdresVolgnummer">
-<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<Method name="GeefViaKlantIdEnKlantAdresNr">
+<FormalSpec>KlantId:%String,KlantAdresNr:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	#dim Key As %String
 	try {
-		Set Key = ^KKL(^KK1($E(KlantId,4,99)),"L"_##class(TECH.StringUtils).AlignRight(AdresVolgNr," ",3))
+		Set Key = ^KKL(^KK1($E(KlantId,4,99)),"L"_##class(TECH.StringUtils).AlignRight(KlantAdresNr," ",3))
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen leveradres voor combinatie KlantId '"_KlantId_"' en AdresVolgnummer '"_AdresVolgNr_"'"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen leveradres voor combinatie KlantId '"_KlantId_"' en AdresVolgnummer '"_KlantAdresNr_"'"))
 	}
 	
 	Set Leveradres = ##class(DOM.VKP.impl.LeverAdres).%New()
-	Do Leveradres.ZetUniekId($Piece(Key,"\",28))
+	Set Leveradres.KlantAdresNr = KlantAdresNr
 	Set Leveradres.Naam = $Piece(Key,"\",2)
 	Set Leveradres.Straat = $Piece(Key,"\",5)
 	Set Leveradres.Postcode = $Piece(Key,"\",6)
@@ -153,6 +153,7 @@
 	Set Leveradres.Opmerking1 = $Piece(Key,"\",24)
 	Set Leveradres.Opmerking2 = $Piece(Key,"\",25)
 	Set Leveradres.AxLeveradresId = $Piece(Key,"\",29)
+	Do Leveradres.ZetUniekId($Piece(Key,"\",28))
 	Do Leveradres.ZetAdresType($Piece(Key,"\",12))
 	Do Leveradres.ZetKlantId(KlantId)
 	
@@ -184,7 +185,7 @@
 	
 	Do ResultSet.Next()
 	Try {
-		Set LeverAdres = ..GeefViaKlantIdEnAdresVolgnummer("K||"_$p(ResultSet.GetData(1),"||",1),##class(TECH.StringUtils).StripAllExceptNumeric($p(ResultSet.GetData(1),"||",2)))
+		Set LeverAdres = ..GeefViaKlantIdEnKlantAdresNr("K||"_$p(ResultSet.GetData(1),"||",1),##class(TECH.StringUtils).StripAllExceptNumeric($p(ResultSet.GetData(1),"||",2)))
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Exception.GeefOmschrijving()_" voor AxLeverAdresId '"_AXLeverAdresId_"'"))
Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml
===================================================================
diff -u -r48507 -r49774
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml	(.../Test.cls.xml)	(revision 48507)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml	(.../Test.cls.xml)	(revision 49774)
@@ -39,7 +39,7 @@
 	Do ..VoegToeLeveradres("1")
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"1")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"1")
 	
 	Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84691")
 	Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A")
@@ -59,7 +59,7 @@
 	Do ..VoegToeLeveradres("2")
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"2")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"2")
 	
 	Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84692")
 	Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A")
@@ -81,7 +81,7 @@
 	Do ..VoegToeLeveradres("1")
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"")
 ]]></Implementation>
 </Method>
 
@@ -93,7 +93,7 @@
 	Do ..VoegToeLeveradres("1")
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("","1")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("","1")
 ]]></Implementation>
 </Method>
 
@@ -103,7 +103,7 @@
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
 	
 	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
-	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"1")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"1")
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49694 -r49774
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49694)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
@@ -8,7 +8,7 @@
 <Super>DOM.VKP.impl.LeverAdresRepository</Super>
 
 <Method name="BestaatViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -27,8 +27,7 @@
 
 <Method name="VerwijderViaAXLeverAdresId">
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefViaAXLeverAdresId">
@@ -38,14 +37,14 @@
 </Method>
 
 <Method name="GeefViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaKlantIdEnAdresVolgnummer">
-<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<Method name="GeefViaKlantIdEnKlantAdresNr">
+<FormalSpec>KlantId:%String,KlantAdresNr:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -56,7 +55,7 @@
 </Method>
 
 <Method name="VerwijderViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49694 -r49774
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49694)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49774)
@@ -16,9 +16,9 @@
 </Method>
 
 <Method name="BestaatViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaID",ID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaID",UniekId)
 ]]></Implementation>
 </Method>
 
@@ -36,16 +36,16 @@
 </Method>
 
 <Method name="GeefViaID">
-<FormalSpec>ID:%String</FormalSpec>
+<FormalSpec>UniekId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",UniekId)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefViaKlantIdEnAdresVolgnummer">
-<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<Method name="GeefViaKlantIdEnKlantAdresNr">
+<FormalSpec>KlantId:%String,KlantAdresNr:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaKlantIdEnAdresVolgnummer",KlantId,AdresVolgNr)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaKlantIdEnKlantAdresNr",KlantId,KlantAdresNr)
 ]]></Implementation>
 </Method>
 
@@ -61,8 +61,8 @@
 </Method>
 
 <Method name="VerwijderViaID">
-<FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",ID)
+<FormalSpec>UniekId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaID",UniekId)
 ]]></Implementation>
 </Method>
 </Class>