Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r63989 -r64011
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 63989)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 64011)
@@ -80,13 +80,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeverAdresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..IsNieuweKlant = 1
 	Set ..KlantNummer = KlantNummer
 	Set ..Logger = ##class(vhLib.Logger).%New()
+	Set ..LeverAdresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
 	do ..InitialiseerPartij()
 	Quit $$$OK
 ]]></Implementation>
@@ -829,7 +835,7 @@
 		}
 	}
 	
-	#dim AantalVrijeKlantAdresPlaatsen As %Integer = ..GeefAantalVrijeKlantAdresPlaatsen()
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = ..LeverAdresRepository.GeefAantalVrijeKlantAdresPlaatsen(..GeefID())
 	
 	If (AantalVrijeKlantAdresPlaatsen <= 10) {
 		Do ..Logger.Error("VolgendVrijKlantAdresNr", "Voor klant '"_..GeefID()_"' werd KlantAdresNr '"_VolgendVrijKlantAdresNr_"' correct toegekend, maar er zijn nu slechts '"_AantalVrijeKlantAdresPlaatsen_"' nummers meer over voor volgende adressen! Gelieve ASAP aan bidi te vragen adressen op te kuisen!")
@@ -839,25 +845,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalVrijeKlantAdresPlaatsen">
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim AantalVrijeKlantAdresPlaatsen As %Integer = 0
-	#dim MaximumAantalPlaatsen As %Integer = 999
-	#dim KlantAdresNummer As %Integer = 1
-	#dim IsKlantAdresNummerBezet As %Boolean
-	
-	While (KlantAdresNummer <= MaximumAantalPlaatsen) {
-		Set IsKlantAdresNummerBezet = $Data(^KKL(^KK1(..KlantNummer),"L"_##class(TECH.StringUtils).AlignRight(KlantAdresNummer, " ", 3)))
-		Set AantalVrijeKlantAdresPlaatsen = $$$If(IsKlantAdresNummerBezet, AantalVrijeKlantAdresPlaatsen, AantalVrijeKlantAdresPlaatsen + 1)
-		Set KlantAdresNummer = KlantAdresNummer + 1
-	}
-	
-	Quit AantalVrijeKlantAdresPlaatsen
-]]></Implementation>
-</Method>
-
 <Method name="GeefAdresObjectVanData">
 <FormalSpec>AdresData:%String</FormalSpec>
 <Private>1</Private>