Index: vhTest/Fake/DOM/AKP/TekstToeleveringLijn.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/AKP/TekstToeleveringLijn.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/AKP/TekstToeleveringLijn.cls.xml	(revision 33396)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.AKP.TekstToeleveringLijn">
+<Super>TECH.RegisteredObject,DOM.AKP.TekstToeleveringLijn</Super>
+
+<Property name="Tekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetTekst">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Tekst = Tekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "999999"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml
===================================================================
diff -u -r33377 -r33396
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 33377)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefProductIterator/Test.cls.xml	(.../Test.cls.xml)	(revision 33396)
@@ -74,6 +74,19 @@
 	do $$$AssertFalse(..ProductIDIterator.HasNext())
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Iterator heeft 1 ProductID, ook na toevoegen van tekstlijn">
+<Implementation><![CDATA[
+	Do ..ToeleveringStub.MaakNieuweProductLijn(1000)
+	Do ..ToeleveringStub.MaakNieuweTekstLijn("tekst")
+	
+	Set ..ProductIDIterator = ..ToeleveringService.GeefProductIDIterator(..ToeleveringID)	
+	if $$$AssertTrue(..ProductIDIterator.HasNext()) {
+		do $$$AssertEquals(..ProductIDIterator.Next(),1000)
+	}
+	do $$$AssertFalse(..ProductIDIterator.HasNext())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r33372 -r33396
--- vhTest/Fake/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 33372)
+++ vhTest/Fake/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 33396)
@@ -36,13 +36,24 @@
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
 <Implementation><![CDATA[
-	set ToeleveringLijn = ##class(vhTest.Fake.DOM.AKP.ProductToeleveringLijn).%New()
+	Set ToeleveringLijn = ##class(vhTest.Fake.DOM.AKP.ProductToeleveringLijn).%New()
 	Do ToeleveringLijn.ZetProductID(ProductID)
 	do ..Lijnen.Insert(ToeleveringLijn)
 	Quit ToeleveringLijn
 ]]></Implementation>
 </Method>
 
+<Method name="MaakNieuweTekstLijn">
+<FormalSpec>Tekst:%String</FormalSpec>
+<ReturnType>DOM.AKP.TekstToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringLijn = ##class(vhTest.Fake.DOM.AKP.TekstToeleveringLijn).%New()
+	Do ToeleveringLijn.ZetTekst(Tekst)
+	do ..Lijnen.Insert(ToeleveringLijn)
+	Quit ToeleveringLijn
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductLijnIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Lijnen)