Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r48517 -r48522
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48517)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 48522)
@@ -9,7 +9,43 @@
 </Method>
 
 <Method name="Bewaar">
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Bewaar() nog niet geïmplementeerd"))
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<Implementation><![CDATA[
+	try {
+		#dim KlantIndexKKL As %String = ..GeefKlantIndexKKL($Piece(Klant.GeefID(),"||",2))
+		#dim LeverAdresId As %Integer = LeverAdres.ID
+		#dim AdresNode As %String = ""
+		Set $Piece(AdresNode,"\",1) = LeverAdresId
+		Set $Piece(AdresNode,"\",2) = LeverAdres.GeefNaam()
+		Set $Piece(AdresNode,"\",3) = LeverAdres.GeefToenaam()
+		Set $Piece(AdresNode,"\",4) = LeverAdres.GeefAanspreking()
+		Set $Piece(AdresNode,"\",5) = LeverAdres.GeefStraat()
+		Set $Piece(AdresNode,"\",6) = LeverAdres.GeefPostcode()
+		Set $Piece(AdresNode,"\",7) = LeverAdres.GeefGemeente()
+		Set $Piece(AdresNode,"\",8) = LeverAdres.GeefLand().GeefID()
+		Set $Piece(AdresNode,"\",9) = LeverAdres.GeefTaal()
+		Set $Piece(AdresNode,"\",13) = LeverAdres.GeefTelefoon()
+		Set $Piece(AdresNode,"\",23) = LeverAdres.GeefVolmacht()
+		Set $Piece(AdresNode,"\",24) = LeverAdres.GeefOpmerking1()
+		Set $Piece(AdresNode,"\",25) = LeverAdres.GeefOpmerking2()
+		Set $Piece(AdresNode,"\",26) = LeverAdres.GeefVerzendingWijze()	
+		Set $Piece(AdresNode,"\",12) = "L"
+		Set $Piece(AdresNode,"\",19) = "."
+		Set $Piece(AdresNode,"\",29) = LeverAdres.GeefAxLeveradresId()
+		#dim AdresId As %String = $I(^KKL.AdresD)
+		Set $Piece(AdresNode,"\",28) = AdresId
+		#dim Node As %String = "L"_$$$LeftPadding(LeverAdresId,3," ")
+		Set ^KKL(KlantIndexKKL,Node) = AdresNode
+	 	
+		Set $Piece(^KKL(KlantIndexKKL,0),"\",19) = 1
+		
+		#dim PartijId As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID($Piece(Klant.GeefID(),"||",2))
+		Set ^KKL.AdresI("KlantId_AdresVolgNr",AdresId) = $listbuild(PartijId,LeverAdresId)
+	 	Do ##class(DOM.VKP.VanHoeckeKlant.impl.EventRaiser).%New().RaiseKlantAdresGewijzigdEvent(AdresId)	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("LeverAdres '"_LeverAdres.GeefNaam()_" "_LeverAdres.GeefAanspreking()_"' kan niet bewaard worden"))
+	}
 ]]></Implementation>
 </Method>
 
@@ -86,6 +122,23 @@
 	Quit ..GeefViaKlantIdEnAdresVolgnummer("K||"_$p(ResultSet.GetData(1),"||",1),##class(TECH.StringUtils).StripAllExceptNumeric($p(ResultSet.GetData(1),"||",2)))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKlantIndexKKL">
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNummer)
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(PartijID)
+	#dim KlantIndexKKL As %String = ""
+	If $Data(^KK1(KlantNummer)) {
+		Set KlantIndexKKL = ^KK1(KlantNummer)
+	}Else{
+		Set KlantIndexKKL = $$COMPRES^KLANT(Partij.GeefNaam(),KlantNummer)
+	}
+	Quit KlantIndexKKL
+]]></Implementation>
+</Method>
 </Class>