Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml
===================================================================
diff -u -r58334 -r58335
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58334)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 58335)
@@ -93,14 +93,17 @@
 	#dim ToeleveringId As %String = 0
 	
 	
-	For  Set LijnNrLoop=$O(^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)) Quit:(LijnNrLoop="")  Do
-	. Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)
-	. Set AantalReedsOpPallet = 0
-	. If $IsObject(ProductAantalLijst.FindByKey($P(Rec,"\",1))) Do
-	.. Set AantalReedsOpPallet = ProductAantalLijst.FindByKey($P(Rec,"\",1)).Value
-	.. Do ProductAantalLijst.RemoveByKey($P(Rec,"\",1))
-	. Set ToeleveringId = $P(Rec,"\",8)
-	. Set Resultaat = Resultaat_..Geef1Lijn($P(Rec,"\",1), $P(Rec,"\",8), $P(Rec,"\",5)+AantalReedsOpPallet)
+	For { Set LijnNrLoop=$O(^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)) Quit:(LijnNrLoop="")
+		Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)
+		Set ProductNummer = $P(Rec,"\",1)
+		Set AantalReedsOpPallet = 0
+		If $IsObject(ProductAantalLijst.FindByKey(ProductNummer)) {
+			Set AantalReedsOpPallet = ProductAantalLijst.FindByKey(ProductNummer).Value
+			Do ProductAantalLijst.RemoveByKey(ProductNummer)
+		}
+		Set ToeleveringId = $P(Rec,"\",8)
+		Set Resultaat = Resultaat_..Geef1Lijn(ProductNummer, ToeleveringId, $P(Rec,"\",5)+AantalReedsOpPallet)
+	}
 	
 	Set ProductAantalLijstIterator = ##class(TECH.ListIterator).%New(ProductAantalLijst)
 	If ProductAantalLijstIterator.HasNext() {