Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefAantalVrijeKlantAdresPlaatsen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefAantalVrijeKlantAdresPlaatsen/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefAantalVrijeKlantAdresPlaatsen/Test.cls.xml	(revision 64011)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.LeverAdresRepository.GeefAantalVrijeKlantAdresPlaatsen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="TestKlantnaam">
+<Default>TestKlantnaam</Default>
+</Parameter>
+
+<Parameter name="TestKlantnummer">
+<Default>999999</Default>
+</Parameter>
+
+<Parameter name="MaximumAantalLeveradressen">
+<Default>999</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 leveradres aanwezig">
+<Implementation><![CDATA[
+	Do ..VoegToeLeveradres("1")
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = LeveradresRepository.GeefAantalVrijeKlantAdresPlaatsen("K||"_..#TestKlantnummer)
+	
+	Do $$$AssertEquals(AantalVrijeKlantAdresPlaatsen, (..#MaximumAantalLeveradressen - 1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: 5 leveradressen aanwezig">
+<Implementation><![CDATA[
+	Do ..VoegToeLeveradres("1")
+	Do ..VoegToeLeveradres("2")
+	Do ..VoegToeLeveradres("3")
+	Do ..VoegToeLeveradres("4")
+	Do ..VoegToeLeveradres("5")
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = LeveradresRepository.GeefAantalVrijeKlantAdresPlaatsen("K||"_..#TestKlantnummer)
+	
+	Do $$$AssertEquals(AantalVrijeKlantAdresPlaatsen, (..#MaximumAantalLeveradressen - 5))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen leveradressen aanwezig">
+<Implementation><![CDATA[
+	Set ^KK1(..#TestKlantnummer) = ..#TestKlantnaam_" "_..#TestKlantnummer
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = LeveradresRepository.GeefAantalVrijeKlantAdresPlaatsen("K||"_..#TestKlantnummer)
+	
+	Do $$$AssertEquals(AantalVrijeKlantAdresPlaatsen, ..#MaximumAantalLeveradressen)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Lege KlantId meegegeven">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geef een geldig KlantId mee. Gebruikte KlantId: ''. ")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = LeveradresRepository.GeefAantalVrijeKlantAdresPlaatsen("")
+	
+	Do $$$AssertEquals(AantalVrijeKlantAdresPlaatsen, ..#MaximumAantalLeveradressen)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderData">
+<Implementation><![CDATA[
+	Kill ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer)
+	Kill ^KK1(..#TestKlantnummer)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLeveradres">
+<FormalSpec>AdresVolgnummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ^KK1(..#TestKlantnummer) = ..#TestKlantnaam_" "_..#TestKlantnummer
+	Set ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_##class(TECH.StringUtils).AlignRight(AdresVolgnummer," ",3)) = "1\POLVO MOERDIJK CM\CENTRAAL MAGAZIJN\\TRADEBOULEVARD 5 A\NL-4761-RL\ZEVENBERGEN\1147\N\\\L\0031887651900\\\\\\.\\\\\LOSTIJDEN TUSSEN 7.00U EN 11.00U\\OD;4\\8469"_AdresVolgnummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r55930 -r64011
--- vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 55930)
+++ vhTest/Mock/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 64011)
@@ -56,6 +56,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVrijeKlantAdresPlaatsen">
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalVrijeKlantAdresPlaatsen",KlantID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaAXLeverAdresId">
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
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>
Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r55930 -r64011
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 55930)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 64011)
@@ -314,6 +314,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVrijeKlantAdresPlaatsen">
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim MaximumAantalPlaatsen As %Integer = 999
+	#dim KlantNummer As %String = ""
+	
+	If ..LegacyPartijApi.IsKlantPartijID(KlantID) {
+		Set KlantNummer = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geef een geldig KlantId mee. Gebruikte KlantId: '" _ KlantID _ "'. "))
+	}
+	
+	#dim Query As %String = "SELECT COUNT(ID) FROM Derde_Klant.LevAdres WHERE Klant = ?"
+	#dim Params As %List = $ListBuild(+KlantNummer)
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
+	
+	Do ResultSet.Next()
+	Quit (MaximumAantalPlaatsen - ResultSet.GetData(1))
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIndexKKL">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <Private>1</Private>
Index: vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r53954 -r64011
--- vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 53954)
+++ vhTest/Fake/DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 64011)
@@ -28,6 +28,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVrijeKlantAdresPlaatsen">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaAXLeverAdresId">
 <FormalSpec>AXLeverAdresId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>