Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r63770 -r63989
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 63770)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 63989)
@@ -829,14 +829,35 @@
 		}
 	}
 	
-	If (VolgendVrijKlantAdresNr > 899) {
-		Do ..Logger.Warning("VolgendVrijKlantAdresNr","Voor klant '"_..GeefID()_"' werd KlantAdresNr '"_VolgendVrijKlantAdresNr_"' toegekend, er zijn slechts '"_(999 - VolgendVrijKlantAdresNr)_"' nummers over!")
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = ..GeefAantalVrijeKlantAdresPlaatsen()
+	
+	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!")
 	}
 	
 	Quit VolgendVrijKlantAdresNr
 ]]></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>