Index: DOM/VKP/impl/VerkoopAPI.cls.xml
===================================================================
diff -u -r29059 -r34878
--- DOM/VKP/impl/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 34878)
@@ -114,6 +114,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantIDIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.impl.DataM.DataMKlantIdIterator).%New()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantFilterendeIterator">
 <FormalSpec>KlantFilter:DOM.VKP.KlantFilter</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: DOM/VKP/VerkoopAPI.cls.xml
===================================================================
diff -u -r29059 -r34878
--- DOM/VKP/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 29059)
+++ DOM/VKP/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 34878)
@@ -38,6 +38,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefKlantIDIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefKlantFilterendeIterator">
 <Abstract>1</Abstract>
 <FormalSpec>KlantFilter:DOM.VKP.KlantFilter</FormalSpec>
Index: vhTest/Mock/DOM/VKP/VerkoopAPI.cls.xml
===================================================================
diff -u -r29059 -r34878
--- vhTest/Mock/DOM/VKP/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/VKP/VerkoopAPI.cls.xml	(.../VerkoopAPI.cls.xml)	(revision 34878)
@@ -70,6 +70,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantIDIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantIDIterator")
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantIterator")
Index: DOM/VKP/impl/DataM/DataMKlantIdIterator.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/DataM/DataMKlantIdIterator.cls.xml	(revision 0)
+++ DOM/VKP/impl/DataM/DataMKlantIdIterator.cls.xml	(revision 34878)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.DataM.DataMKlantIdIterator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GlobalIterator">
+<Type>TECH.GlobalIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LegacayPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	set ..GlobalIterator = ##class(TECH.GlobalIterator).%New($name(^KK1))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..GlobalIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	do ..GlobalIterator.Next()
+	quit ..LegacyPartijAPI.GeefKlantPartijID(..GlobalIterator.Key())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>