Index: AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfConverter.cls.xml
===================================================================
diff -u -r48742 -r48743
--- AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfConverter.cls.xml	(.../KlantContactDixfConverter.cls.xml)	(revision 48742)
+++ AX/Uitgaand/VKP/KlantContact/impl/KlantContactDixfConverter.cls.xml	(.../KlantContactDixfConverter.cls.xml)	(revision 48743)
@@ -13,11 +13,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IsPrimaryLijst">
-<Type>%ListOfDataTypes</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -26,7 +21,6 @@
 <Implementation><![CDATA[
 	Set ..AdminToAXUtils = ##class(AXimpl.AdminToAxUtils).%New()
 	Set ..AXimplFormatter = ##class(AXimpl.Formatter).%New()
-	Set ..IsPrimaryLijst = ##class(%ListOfDataTypes).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/VKP/KlantContact/impl/ContactIterator.cls.xml
===================================================================
diff -u -r48742 -r48743
--- AX/Uitgaand/VKP/KlantContact/impl/ContactIterator.cls.xml	(.../ContactIterator.cls.xml)	(revision 48742)
+++ AX/Uitgaand/VKP/KlantContact/impl/ContactIterator.cls.xml	(.../ContactIterator.cls.xml)	(revision 48743)
@@ -21,8 +21,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Klant.GeefID())
-	;Set Filter = ##class(AX.Uitgaand.VKP.KlantContact.impl.ContactIteratorFilter).%New()
-	Set ..ContactIterator = ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(Partij.GeefPersonen()),,)
+	Set Filter = ##class(AX.Uitgaand.VKP.KlantContact.impl.ContactIteratorFilter).%New()
+	Set ..ContactIterator = ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(Partij.GeefPersonen()),,Filter)
 	Set ..Klant = Klant
 	Quit $$$OK
 ]]></Implementation>
Index: AX/Uitgaand/VKP/KlantContact/impl/ContactIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/ContactIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/ContactIteratorFilter.cls.xml	(revision 48743)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.ContactIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Method name="IsValid">
+<FormalSpec>ContactPersoon:DOM.common.Persoon</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>