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_"'"))