Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r53953 -r54151
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 53953)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 54151)
@@ -75,12 +75,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</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()
 	do ..InitialiseerPartij()
 	Quit $$$OK
 ]]></Implementation>
@@ -796,16 +802,37 @@
 <Method name="GeefVolgendVrijKlantAdresNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+	#dim IsVolgendVrijKlantAdresNrGevonden As %Boolean = $$$False
 	#dim VolgendVrijKlantAdresNr As %Integer = ""
 	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
+	#dim EersteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"K"))
+	#dim TweedeAdresKey As %String
+	#dim EersteAdresNummer As %Integer
+	#dim TweedeAdresNummer As %Integer
 	
-	If $Extract(LaasteAdresKey,1) = "L" {
-		#dim LaatsteNummer As %Integer = $Number($Extract(LaasteAdresKey,2,4),0)
-		Set VolgendVrijKlantAdresNr = LaatsteNummer + 1
-	}Else{
+	If (($$$Not($$$HasLength(EersteAdresKey))) || (($Number($Extract(EersteAdresKey,2,4),0)) > 1)) {
 		Set VolgendVrijKlantAdresNr = 1
+	} Else {
+		While ($$$Not(IsVolgendVrijKlantAdresNrGevonden)) {
+			Set TweedeAdresKey = $Order(^KKL(..GeefKlantIndexKKL(),EersteAdresKey))
+			Set EersteAdresNummer = $Number($Extract(EersteAdresKey,2,4),0)
+			Set TweedeAdresNummer = $Number($Extract(TweedeAdresKey,2,4),0)
+			If ((TweedeAdresNummer - EersteAdresNummer) > 1) {
+				Set VolgendVrijKlantAdresNr = EersteAdresNummer + 1
+				Set IsVolgendVrijKlantAdresNrGevonden = $$$True
+			} ElseIf (TweedeAdresNummer = $Number($Extract(LaasteAdresKey,2,4),0)) {
+				Set VolgendVrijKlantAdresNr = TweedeAdresNummer + 1
+				Set IsVolgendVrijKlantAdresNrGevonden = $$$True
+			} Else {
+				Set EersteAdresKey = TweedeAdresKey
+			}
+		}
 	}
 	
+	If (VolgendVrijKlantAdresNr > 899) {
+		Do ..Logger.Warning("VolgendVrijKlantAdresNr","Voor klant '"_..GeefID()_"' werd KlantAdresNr '"_VolgendVrijKlantAdresNr_"' toegekend, er zijn slechts '"_999 - VolgendVrijKlantAdresNr_"' nummers over!")
+	}
+	
 	Quit VolgendVrijKlantAdresNr
 ]]></Implementation>
 </Method>