Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder.cls.xml
===================================================================
diff -u -r30907 -r30922
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder.cls.xml	(.../RijenGroepeerder.cls.xml)	(revision 30907)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder.cls.xml	(.../RijenGroepeerder.cls.xml)	(revision 30922)
@@ -8,72 +8,61 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim GegroepeerdInArray As Array of APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GroepeerInArray(DataRijDtoLijst)
-	Quit ..SommeerAantallenBinnenGroep(GegroepeerdInArray)
-]]></Implementation>
-</Method>
-
-<Method name="GroepeerInArray">
-<FormalSpec>DataRijDtoLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto")</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ArrayOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set GegroepeerdOpSleutel = ##class(%ArrayOfObjects).%New()
+	Set GegroepeerdeLijst = ##class(%ListOfObjects).%New()
 	Set DataRijDtoLijstIt = ##class(TECH.ListIterator).%New(DataRijDtoLijst)
+	#dim VorigeSleutel As TECH.String = ""
 	While (DataRijDtoLijstIt.HasNext()) {
 		#dim DataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = DataRijDtoLijstIt.Next()
 		#dim Sleutel As TECH.String = ..GeefSorteerSleutel(DataRijDto)
-		If $$$Not(GegroepeerdOpSleutel.IsDefined(Sleutel)) {
-			Do GegroepeerdOpSleutel.SetAt(##class(%ListOfObjects).%New(), Sleutel)
+		If VorigeSleutel '= Sleutel {
+			Set VorigeSleutel = Sleutel
+			Do ..FormatteerAantallenLaatsteDto(.GegroepeerdeLijst)
+			Do GegroepeerdeLijst.Insert(DataRijDto)
+		} Else {
+			Do ..SommeerAantallenBijLaatsteDto(.GegroepeerdeLijst, DataRijDto)
 		}
-		Do GegroepeerdOpSleutel.GetAt(Sleutel).Insert(DataRijDto)
 	}
-	Quit GegroepeerdOpSleutel
+	Do ..FormatteerAantallenLaatsteDto(.GegroepeerdeLijst)
+	
+	Quit GegroepeerdeLijst
 ]]></Implementation>
 </Method>
 
-<Method name="SommeerAantallenBinnenGroep">
-<FormalSpec>GegroepeerdInArray:%ArrayOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto")</FormalSpec>
+<Method name="FormatteerAantallenLaatsteDto">
+<FormalSpec><![CDATA[&GegroepeerdeLijst:%ListOfObjects]]></FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set GesommeerdeDataRijDtoLijst = ##class(%ListOfObjects).%New()
-	Set GegroepeerdOpKorttekstIt = ##class(TECH.ListIterator).%New(GegroepeerdInArray)
-	While GegroepeerdOpKorttekstIt.HasNext() {
-		#dim DataRijDtoLijstPerKorttekst As List of APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = GegroepeerdOpKorttekstIt.Next()
-		Set DataRijDto = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto).%New()
-		Set DataRijDtoLijstPerKorttekstIt = ##class(TECH.ListIterator).%New(DataRijDtoLijstPerKorttekst)
-		While (DataRijDtoLijstPerKorttekstIt.HasNext()) {
-			#dim Dto AS APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = DataRijDtoLijstPerKorttekstIt.Next()
-			If DataRijDto.Korttekst = "" {
-				Set DataRijDto.Korttekst = Dto.Korttekst
-				Set DataRijDto.Dossier = Dto.Dossier
-				Set DataRijDto.Toelevering = Dto.Toelevering
-			}
-			Set DataRijDto.AantalBodemDozen = DataRijDto.AantalBodemDozen + Dto.AantalBodemDozen
-			Set DataRijDto.AantalFrontDozen = DataRijDto.AantalFrontDozen + Dto.AantalFrontDozen
-			Set DataRijDto.AantalLosseOnderdelenDozen = DataRijDto.AantalLosseOnderdelenDozen + Dto.AantalLosseOnderdelenDozen
-			Set DataRijDto.AantalRugDozen = DataRijDto.AantalRugDozen + Dto.AantalRugDozen
-			Set DataRijDto.AantalZijkantLinksDozen = DataRijDto.AantalZijkantLinksDozen + Dto.AantalZijkantLinksDozen
-			Set DataRijDto.AantalZijkantRechtsDozen = DataRijDto.AantalZijkantRechtsDozen + Dto.AantalZijkantRechtsDozen
-		}
-		Set:(DataRijDto.AantalBodemDozen = 0) DataRijDto.AantalBodemDozen = ""
-		Set:(DataRijDto.AantalFrontDozen = 0) DataRijDto.AantalFrontDozen = ""
-		Set:(DataRijDto.AantalLosseOnderdelenDozen = 0) DataRijDto.AantalLosseOnderdelenDozen = ""
-		Set:(DataRijDto.AantalRugDozen = 0) DataRijDto.AantalRugDozen = ""
-		Set:(DataRijDto.AantalZijkantLinksDozen = 0) DataRijDto.AantalZijkantLinksDozen = ""
-		Set:(DataRijDto.AantalZijkantRechtsDozen = 0) DataRijDto.AantalZijkantRechtsDozen = ""
-		Do GesommeerdeDataRijDtoLijst.Insert(DataRijDto)
+	#dim LaatsteDtoInGroep As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = GegroepeerdeLijst.GetAt(GegroepeerdeLijst.Count())
+	If $IsObject(LaatsteDtoInGroep) {
+		Set:(LaatsteDtoInGroep.AantalBodemDozen = 0) LaatsteDtoInGroep.AantalBodemDozen = ""
+		Set:(LaatsteDtoInGroep.AantalFrontDozen = 0) LaatsteDtoInGroep.AantalFrontDozen = ""
+		Set:(LaatsteDtoInGroep.AantalLosseOnderdelenDozen = 0) LaatsteDtoInGroep.AantalLosseOnderdelenDozen = ""
+		Set:(LaatsteDtoInGroep.AantalRugDozen = 0) LaatsteDtoInGroep.AantalRugDozen = ""
+		Set:(LaatsteDtoInGroep.AantalZijkantLinksDozen = 0) LaatsteDtoInGroep.AantalZijkantLinksDozen = ""
+		Set:(LaatsteDtoInGroep.AantalZijkantRechtsDozen = 0) LaatsteDtoInGroep.AantalZijkantRechtsDozen = ""
 	}
-	Quit GesommeerdeDataRijDtoLijst
 ]]></Implementation>
 </Method>
 
+<Method name="SommeerAantallenBijLaatsteDto">
+<FormalSpec><![CDATA[&GegroepeerdeLijst:%ListOfObjects,DataRijDto:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LaatsteDtoInGroep As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = GegroepeerdeLijst.GetAt(GegroepeerdeLijst.Count())
+	Set LaatsteDtoInGroep.AantalBodemDozen = LaatsteDtoInGroep.AantalBodemDozen + DataRijDto.AantalBodemDozen
+	Set LaatsteDtoInGroep.AantalFrontDozen = LaatsteDtoInGroep.AantalFrontDozen + DataRijDto.AantalFrontDozen
+	Set LaatsteDtoInGroep.AantalLosseOnderdelenDozen = LaatsteDtoInGroep.AantalLosseOnderdelenDozen + DataRijDto.AantalLosseOnderdelenDozen
+	Set LaatsteDtoInGroep.AantalRugDozen = LaatsteDtoInGroep.AantalRugDozen + DataRijDto.AantalRugDozen
+	Set LaatsteDtoInGroep.AantalZijkantLinksDozen = LaatsteDtoInGroep.AantalZijkantLinksDozen + DataRijDto.AantalZijkantLinksDozen
+	Set LaatsteDtoInGroep.AantalZijkantRechtsDozen = LaatsteDtoInGroep.AantalZijkantRechtsDozen + DataRijDto.AantalZijkantRechtsDozen
+]]></Implementation>
+</Method>
+
 <Method name="GeefSorteerSleutel">
 <FormalSpec>DataRijDto:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit DataRijDto.Toelevering_DataRijDto.Korttekst_DataRijDto.Dossier
+<Implementation><![CDATA[	Quit DataRijDto.Toelevering_DataRijDto.Korttekst
 ]]></Implementation>
 </Method>
 </Class>