Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml
===================================================================
diff -u -r58541 -r59050
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58541)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 59050)
@@ -106,7 +106,7 @@
 	}
 	
 	Set ProductAantalLijstIterator = ##class(TECH.ListIterator).%New(ProductAantalLijst)
-	If ProductAantalLijstIterator.HasNext() {
+	While ProductAantalLijstIterator.HasNext() {
 		#dim ProductAantalKeyPair As TECH.KeyValuePair = ProductAantalLijstIterator.Next()
 		Set Resultaat = Resultaat_..Geef1Lijn(ProductAantalKeyPair.Key, ToeleveringId, ProductAantalKeyPair.Value)
 	}