Index: vhTest/Integratie/Productie/Setup/TestTemplate.cls.xml
===================================================================
diff -u -r44383 -r73024
--- vhTest/Integratie/Productie/Setup/TestTemplate.cls.xml	(.../TestTemplate.cls.xml)	(revision 44383)
+++ vhTest/Integratie/Productie/Setup/TestTemplate.cls.xml	(.../TestTemplate.cls.xml)	(revision 73024)
@@ -102,20 +102,23 @@
 <Private>1</Private>
 <ReturnType>DOM.AKP.ToeleveringLijst</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductenPerToeleveringArray = ..GeefProductenPerToeleveringArray()
 	#dim Toeleveringen As DOM.AKP.ToeleveringLijst = ##class(DOM.AKP.ToeleveringLijst).%New()
-	#dim itToeleveringen = ##class(TECH.ListIterator).%New(..ProductenPerToeleveringArray)
-	while itToeleveringen.HasNext() {
-		#dim Producten As list of ProductInfo = itToeleveringen.Next()
-		#dim ToeleveringID As %String = itToeleveringen.Key()
+	
+	Set ..ProductenPerToeleveringArray = ..GeefProductenPerToeleveringArray()
+	#dim ToeleveringenIterator = ##class(TECH.ListIterator).%New(..ProductenPerToeleveringArray)
+	
+	While ToeleveringenIterator.HasNext() {
+		#dim Producten As list of ProductInfo = ToeleveringenIterator.Next()
+		#dim ToeleveringID As %String = ToeleveringenIterator.Key()
 		#dim OrderID As %String = "3"_$extract(ToeleveringID,2,*)
-		do ..MaakOrder(OrderID,Producten)
-		#dim Toelevering As DOM.AKP.Toelevering = ..MaakToelevering(ToeleveringID,Producten,OrderID)
-		do ..KoppelOrderLijnenAanToelevering(Toelevering,OrderID)
-		do Toeleveringen.Insert(Toelevering)
 		
+		Do ..MaakOrder(OrderID,Producten)
+		#dim Toelevering As DOM.AKP.Toelevering = ..MaakToelevering(ToeleveringID,Producten,OrderID)
+		Do ..KoppelOrderLijnenAanToelevering(Toelevering,OrderID)
+		Do Toeleveringen.Insert(Toelevering)
 	}
-	quit Toeleveringen
+	
+	Quit Toeleveringen
 ]]></Implementation>
 </Method>