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>
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMKlantNative/VolgendVrijKlantAdresNr.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMKlantNative/VolgendVrijKlantAdresNr.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMKlantNative/VolgendVrijKlantAdresNr.cls.xml	(revision 54151)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMKlantNative.VolgendVrijKlantAdresNr">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##Super(AManager)
+	Set ..VerkoopAPI = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..KillAdressen()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerkoopAPI.VerwijderKlant(..Klant.GeefID())
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als er nog geen leveradres is =&gt; 1">
+<Implementation><![CDATA[	Do $$$AssertEquals(..Klant.GeefVolgendVrijKlantAdresNr(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als er al leveradressen zijn maar 1 is vrij =&gt; 1">
+<Implementation><![CDATA[
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  2") = "Test leveradres 2"
+	
+	Do $$$AssertEquals(..Klant.GeefVolgendVrijKlantAdresNr(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als er al leveradressen zijn maar geen aaneensluitende nummers =&gt; Laagste vrije nummer">
+<Implementation><![CDATA[
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  1") = "Test leveradres 1"
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  3") = "Test leveradres 3"
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  5") = "Test leveradres 5"
+	
+	Do $$$AssertEquals(..Klant.GeefVolgendVrijKlantAdresNr(),2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als er al aaneensluitende leveradressen zijn te beginnen bij 1 =&gt; Volgend nummer">
+<Implementation><![CDATA[
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  1") = "Test leveradres 1"
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  2") = "Test leveradres 2"
+	Set ^KKL(..Klant.GeefKlantIndexKKL(),"L  3") = "Test leveradres 3"
+	
+	Do $$$AssertEquals(..Klant.GeefVolgendVrijKlantAdresNr(),4)
+]]></Implementation>
+</Method>
+
+<Method name="KillAdressen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^KKL(..Klant.GeefKlantIndexKKL(),"L  1")
+	Kill ^KKL(..Klant.GeefKlantIndexKKL(),"L  2")
+	Kill ^KKL(..Klant.GeefKlantIndexKKL(),"L  3")
+	Kill ^KKL(..Klant.GeefKlantIndexKKL(),"L  4")
+	Kill ^KKL(..Klant.GeefKlantIndexKKL(),"L  5")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>