Index: DOM/VKP/impl/LeverAdresRepository.cls.xml
===================================================================
diff -u -r49929 -r49931
--- DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49929)
+++ DOM/VKP/impl/LeverAdresRepository.cls.xml	(.../LeverAdresRepository.cls.xml)	(revision 49931)
@@ -171,6 +171,10 @@
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	If ..LegacyPartijApi.IsKlantPartijID(KlantNummer) {
+		Set KlantNummer = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantNummer)
+	}
+	
 	#dim Query As %String = "SELECT count(ID) from Derde_Klant.LevAdres where Klant = ? and AxLeveradresId = ?"
 	#dim Params As %List = $ListBuild(+KlantNummer, AXLeverAdresId)
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
@@ -184,6 +188,10 @@
 <FormalSpec>AXLeverAdresId:%String,KlantNummer:%String</FormalSpec>
 <ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
 <Implementation><![CDATA[
+	If ..LegacyPartijApi.IsKlantPartijID(KlantNummer) {
+		Set KlantNummer = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantNummer)
+	}
+	
 	#dim Query As %String = "SELECT ID from Derde_Klant.LevAdres where Klant = ? and AxLeveradresId = ?"
 	#dim Params As %List = $ListBuild(+KlantNummer, AXLeverAdresId)
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)