Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r72154 -r72155
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 72154)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 72155)
@@ -1204,6 +1204,10 @@
 	Set SamengesteldeLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
 	#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
 	#dim LijstAantallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("")
+	#dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	
+	//Berekenen en schrijven van property TotaalAantalMattenInToelevering
+	Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator)
 	Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 	
 	//Matten met zelfde dimensies groeperen
@@ -1249,7 +1253,8 @@
 			While SamengesteldeLijstIterator.HasNext() {
 				Set Mat = SamengesteldeLijstIterator.Next()
 				
-				If (Mat.ToeleveringID = ToeleveringID) {							
+				If (Mat.ToeleveringID = ToeleveringID) {		
+					Set Mat.TotaalAantalMattenInToelevering = ""					
 					Do SamengesteldeLijstPerToelevering.Insert(Mat)
 					Set TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering + Mat.Aantal
 				}
@@ -1277,6 +1282,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTotaalAantalMattenPerToelevering">
+<FormalSpec>UitvoeringLijstIterator:TECH.ListIterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HuidigeMat, VorigeMat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ""
+	#dim AantalMattenVoorDezeToelevering As %Integer = 0
+	while UitvoeringLijstIterator.HasNext() {
+		#dim Object = UitvoeringLijstIterator.Next()
+		Set HuidigeMat = Object
+		
+		If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+			If ((VorigeMat = "") || ($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+				Set AantalMattenVoorDezeToelevering = AantalMattenVoorDezeToelevering + HuidigeMat.Aantal
+			}
+			
+			If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+				Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+				Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal
+			}
+			Set VorigeMat = HuidigeMat
+		}
+	}
+	
+	If $IsObject(VorigeMat) {
+		Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijstVanToeleveringNummersVanMattenlijst">
 <FormalSpec>SamengesteldeLijstIterator:TECH.ListIterator</FormalSpec>
 <Private>1</Private>