Index: AX/Uitgaand/VKP/KlantAdres/impl/AdresIterator.cls.xml
===================================================================
diff -u -r48212 -r48355
--- AX/Uitgaand/VKP/KlantAdres/impl/AdresIterator.cls.xml	(.../AdresIterator.cls.xml)	(revision 48212)
+++ AX/Uitgaand/VKP/KlantAdres/impl/AdresIterator.cls.xml	(.../AdresIterator.cls.xml)	(revision 48355)
@@ -22,12 +22,16 @@
 <Implementation><![CDATA[
 	Set Filter = ##class(AX.Uitgaand.VKP.KlantAdres.impl.AdresIteratorFilter).%New()
 	#dim LeverAdresIterator As TECH.Iterator = Klant.GeefAdresIterator()
+	/*
+	// DE VOORZIENING VAN HET MEENEMEN VAN DE HOOFDADRESSEN IS VOORLOPIG UITGESCHAKELD. 
+	// INDIEN WE ZE TOCH MEENEMEN: In de AdresIterator de LeverAdresIterator vervangen door de HoofdEnLeverAdresIterator en deze code uit comment halen
 	Set HoofdAdresLijst = ##class(%ListOfDataTypes).%New()
 	Do HoofdAdresLijst.Insert(Klant.GeefAdres())
 	Set HoofdAdresIterator = ##class(TECH.ListIterator).%New(HoofdAdresLijst)
 	Set HoofdEnLeverAdresIterator = ##class(TECH.IteratorOfIterators).%New()
 	Do HoofdEnLeverAdresIterator.SetIterators(HoofdAdresIterator, LeverAdresIterator)
-	Set ..AdresIterator = ##class(TECH.DynamicIterator).%New(HoofdEnLeverAdresIterator,,Filter)
+	*/
+	Set ..AdresIterator = ##class(TECH.DynamicIterator).%New(LeverAdresIterator,,Filter)
 	Set ..Klant = Klant
 	Quit $$$OK
 ]]></Implementation>