Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r50205 -r53949
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 50205)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 53949)
@@ -756,14 +756,7 @@
 <Method name="VoegToeLeverAdres">
 <FormalSpec>LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
 <Implementation><![CDATA[
-	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
-	#dim VolgendNummer As %Integer = ""
-	If $Extract(LaasteAdresKey,1) = "L" {
-		#dim LaatsteNummer As %Integer = $Number($Extract(LaasteAdresKey,2,4),0)
-		Set VolgendNummer = LaatsteNummer + 1
-	}Else{
-		Set VolgendNummer = 1
-	}
+	#dim VolgendNummer As %Integer = ..GeefVolgendVrijKlantAdresNr()
 	#dim AdresNode As %String = ""
 	Set $Piece(AdresNode,"\",1) = VolgendNummer
 	Set $Piece(AdresNode,"\",2) = LeverAdres.GeefNaam()
@@ -794,6 +787,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendVrijKlantAdresNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim VolgendVrijKlantAdresNr As %Integer = ""
+	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
+	
+	If $Extract(LaasteAdresKey,1) = "L" {
+		#dim LaatsteNummer As %Integer = $Number($Extract(LaasteAdresKey,2,4),0)
+		Set VolgendVrijKlantAdresNr = LaatsteNummer + 1
+	}Else{
+		Set VolgendVrijKlantAdresNr = 1
+	}
+	
+	Quit VolgendVrijKlantAdresNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdresObjectVanData">
 <FormalSpec>AdresData:%String</FormalSpec>
 <Private>1</Private>