Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r38239 -r38477
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 38239)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 38477)
@@ -733,10 +733,15 @@
 	Set $Piece(AdresNode,"\",26) = LeverAdres.GeefVerzendingWijze()	
 	Set $Piece(AdresNode,"\",12) = "L"
 	Set $Piece(AdresNode,"\",19) = "."
+	#dim AdresId As %String = $I(^KKL.AdresD)
+	Set $Piece(AdresNode,"\",28) = AdresId
 	#dim Node As %String = "L"_$$$LeftPadding(VolgendNummer,3," ")
 	Set ^KKL(..GeefKlantIndexKKL(),Node) = AdresNode
-	
+ 	
 	Set $Piece(^KKL(..GeefKlantIndexKKL(),0),"\",19) = 1
+	
+	Set ^KKL.AdresI("KlantId_AdresVolgNr",AdresId) = $listbuild(..GeefID(),VolgendNummer)
+ 	Do ##class(DOM.VKP.VanHoeckeKlant.impl.EventRaiser).%New().RaiseKlantAdresGemaaktEvent(AdresId)
 ]]></Implementation>
 </Method>