Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder.cls.xml	(revision 30907)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator.RijenGroepeerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Groepeer">
+<FormalSpec>DataRijDtoLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto")</FormalSpec>
+<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 DataRijDtoLijstIt = ##class(TECH.ListIterator).%New(DataRijDtoLijst)
+	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)
+		}
+		Do GegroepeerdOpSleutel.GetAt(Sleutel).Insert(DataRijDto)
+	}
+	Quit GegroepeerdOpSleutel
+]]></Implementation>
+</Method>
+
+<Method name="SommeerAantallenBinnenGroep">
+<FormalSpec>GegroepeerdInArray:%ArrayOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto")</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)
+	}
+	Quit GesommeerdeDataRijDtoLijst
+]]></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>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator.cls.xml
===================================================================
diff -u -r30891 -r30907
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator.cls.xml	(.../DocumentGenerator.cls.xml)	(revision 30891)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator.cls.xml	(.../DocumentGenerator.cls.xml)	(revision 30907)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RijenGroepeerder">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator.RijenGroepeerder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>DocumentAfdrukker:APPS.common.Document.DocumentAfdrukker</FormalSpec>
 <Private>1</Private>
@@ -39,6 +44,7 @@
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ..BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..RijenGroepeerder = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator.RijenGroepeerder).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -73,6 +79,7 @@
 	Set DataDtoIterator = ##class(TECH.ListIterator).%New(..DataDtos)
 	While DataDtoIterator.HasNext() {
 		#dim DataDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataDto = DataDtoIterator.Next()
+		Set DataDto.DataRijDtoLijst = ..RijenGroepeerder.Groepeer(DataDto.DataRijDtoLijst)
 		Do DocumentBundel.VoegToeDocument(DocumentBuilder.MaakDocument(DataDto))
 	}
 	
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder/Groepeer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder/Groepeer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/PalletInhoud/DocumentGenerator/RijenGroepeerder/Groepeer/Test.cls.xml	(revision 30907)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator.RijenGroepeerder.Groepeer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DataRijDtoLijst">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachteLijst">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..DataRijDtoLijst = ##class(%ListOfDataTypes).%New()
+	Set ..VerwachteLijst = ##class(%ListOfDataTypes).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test 1 DataRijDto object -&gt; zelfde object komt terug">
+<Implementation><![CDATA[
+	#dim DataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Do ..DataRijDtoLijst.Insert(DataRijDto)
+	Do ..VerwachteLijst.Insert(DataRijDto)
+	Do ..Assert()
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 niet te groeperen DataRijDto objecten -&gt; zelfde objecten komen terug">
+<Implementation><![CDATA[
+	#dim DataRijDto1 As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set DataRijDto1.Korttekst = "UT_Dummy_Korttekst1"
+	Do ..DataRijDtoLijst.Insert(DataRijDto1)
+	Do ..VerwachteLijst.Insert(DataRijDto1)
+	
+	#dim DataRijDto2 As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set DataRijDto2.Korttekst = "UT_Dummy_Korttekst2"
+	Do ..DataRijDtoLijst.Insert(DataRijDto2)
+	Do ..VerwachteLijst.Insert(DataRijDto2)
+	
+	Do ..Assert()
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 te groeperen DataRijDto objecten met aantallen gelijk aan 0 -&gt; er komt maar 1 object terug met aantallen gelijk aan leeg">
+<Implementation><![CDATA[
+	#dim DataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set DataRijDto.AantalBodemDozen = 0
+	Set DataRijDto.AantalFrontDozen = 0
+	Set DataRijDto.AantalLosseOnderdelenDozen = 0
+	Set DataRijDto.AantalRugDozen = 0
+	Set DataRijDto.AantalZijkantLinksDozen = 0
+	Set DataRijDto.AantalZijkantRechtsDozen = 0
+	Do ..DataRijDtoLijst.Insert(DataRijDto)
+	Do ..DataRijDtoLijst.Insert(DataRijDto)
+	
+	#dim VerwachteDataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set VerwachteDataRijDto.AantalBodemDozen = ""
+	Set VerwachteDataRijDto.AantalFrontDozen = ""
+	Set VerwachteDataRijDto.AantalLosseOnderdelenDozen = ""
+	Set VerwachteDataRijDto.AantalRugDozen = ""
+	Set VerwachteDataRijDto.AantalZijkantLinksDozen = ""
+	Set VerwachteDataRijDto.AantalZijkantRechtsDozen = ""
+	Do ..VerwachteLijst.Insert(VerwachteDataRijDto)
+	
+	Do ..Assert()
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 te groeperen DataRijDto objecten met aantallen verschillend van 0 -&gt; er komt maar 1 object terug met de aantallen samengeteld">
+<Implementation><![CDATA[
+	#dim DataRijDto1 As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set DataRijDto1.AantalBodemDozen = 1
+	Set DataRijDto1.AantalFrontDozen = 2
+	Set DataRijDto1.AantalLosseOnderdelenDozen = 1
+	Set DataRijDto1.AantalRugDozen = 3
+	Set DataRijDto1.AantalZijkantLinksDozen = 1
+	Set DataRijDto1.AantalZijkantRechtsDozen = 2
+	Do ..DataRijDtoLijst.Insert(DataRijDto1)
+	
+	#dim DataRijDto2 As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set DataRijDto2.AantalBodemDozen = 5
+	Set DataRijDto2.AantalFrontDozen = 6
+	Set DataRijDto2.AantalLosseOnderdelenDozen = 4
+	Set DataRijDto2.AantalRugDozen = 2
+	Set DataRijDto2.AantalZijkantLinksDozen = 3
+	Set DataRijDto2.AantalZijkantRechtsDozen = 3
+	Do ..DataRijDtoLijst.Insert(DataRijDto2)
+	
+	#dim VerwachteDataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = ..GeefBasisDataRijDto()
+	Set VerwachteDataRijDto.AantalBodemDozen = 6
+	Set VerwachteDataRijDto.AantalFrontDozen = 8
+	Set VerwachteDataRijDto.AantalLosseOnderdelenDozen = 5
+	Set VerwachteDataRijDto.AantalRugDozen = 5
+	Set VerwachteDataRijDto.AantalZijkantLinksDozen = 4
+	Set VerwachteDataRijDto.AantalZijkantRechtsDozen = 5
+	Do ..VerwachteLijst.Insert(VerwachteDataRijDto)
+	
+	Do ..Assert()
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Groepeerder = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DocumentGenerator.RijenGroepeerder).%New()
+	#dim Lijst As %ListOfObjects = Groepeerder.Groepeer(..DataRijDtoLijst)
+	If $$$AssertEquals(..VerwachteLijst.Count(),Lijst.Count()) {
+		Set LijstIterator = ##class(TECH.ListIterator).%New(Lijst)
+		Set VerwachteLijstIterator = ##class(TECH.ListIterator).%New(..VerwachteLijst)
+		While LijstIterator.HasNext() {
+			#dim DataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = LijstIterator.Next()
+			#dim VerwachteDataRijDto As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto = VerwachteLijstIterator.Next()
+			Do ..AssertDto(DataRijDto, VerwachteDataRijDto)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertDto">
+<FormalSpec>DataRijDto:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto,VerwachteDataRijDto:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(DataRijDto.AantalBodemDozen,VerwachteDataRijDto.AantalBodemDozen)
+	Do $$$AssertEquals(DataRijDto.AantalFrontDozen,VerwachteDataRijDto.AantalFrontDozen)
+	Do $$$AssertEquals(DataRijDto.AantalLosseOnderdelenDozen,VerwachteDataRijDto.AantalLosseOnderdelenDozen)
+	Do $$$AssertEquals(DataRijDto.AantalRugDozen,VerwachteDataRijDto.AantalRugDozen)
+	Do $$$AssertEquals(DataRijDto.AantalZijkantLinksDozen,VerwachteDataRijDto.AantalZijkantLinksDozen)
+	Do $$$AssertEquals(DataRijDto.AantalZijkantRechtsDozen,VerwachteDataRijDto.AantalZijkantRechtsDozen)
+	Do $$$AssertEquals(DataRijDto.Dossier,VerwachteDataRijDto.Dossier)
+	Do $$$AssertEquals(DataRijDto.Korttekst,VerwachteDataRijDto.Korttekst)
+	Do $$$AssertEquals(DataRijDto.Toelevering,VerwachteDataRijDto.Toelevering)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBasisDataRijDto">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto</ReturnType>
+<Implementation><![CDATA[
+	Set DataRijDto = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud.DataRijDto).%New()
+	Set DataRijDto.Korttekst = "UT_Dummy_Korttekst"
+	Set DataRijDto.Dossier = 123
+	Set DataRijDto.Toelevering = 456
+	Quit DataRijDto
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>