Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml
===================================================================
diff -u -r70831 -r71984
--- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 70831)
+++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 71984)
@@ -71,33 +71,15 @@
 			#dim ObjectIsMat As %Boolean = $$$False 
 			
 			//Berekenen en schrijven van property TotaalAantalMattenInToelevering
-			#dim UitgebreideUitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
-			#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
-			}
+			Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator)
 			Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 			
+			Do ..ZetTotaalAantalTiponSynchronisatiestangenPerToelevering(UitvoeringLijstIterator)
+			Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+			
 			//Matten met zelfde dimensies groeperen
 			while UitvoeringLijstIterator.HasNext() {		
-				Set Object = UitvoeringLijstIterator.Next()
+				#dim Object = UitvoeringLijstIterator.Next()
 				#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
 				#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID)
 				If ( $IsObject(Object) && (..IsProductiegroepKast(Batch) || (..IsProductiegroepProbox(Batch))) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
@@ -140,6 +122,77 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTotaalAantalMattenPerToelevering">
+<FormalSpec>UitvoeringLijstIterator:TECH.ListIterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim UitgebreideUitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
+	#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="ZetTotaalAantalTiponSynchronisatiestangenPerToelevering">
+<FormalSpec>UitvoeringLijstIterator:TECH.ListIterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim UitgebreideUitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
+	#dim HuidigeSynchroStang, VorigeSynchroStang As APPS.Halux.PPS.Activiteit.impl.common.dto.TiponSynchronisatiestangInkortenUitvoeringInfo = ""
+	#dim AantalSynchroStangenVoorDezeToelevering As %Integer = 0
+	
+	while UitvoeringLijstIterator.HasNext() {
+		#dim Object = UitvoeringLijstIterator.Next()
+		Set HuidigeSynchroStang = Object
+		If ($IsObject(Object) && ..IsObjectUitvoeringInfoInkortenTiponSynchronisatiestang(Object)) {
+			If ((VorigeSynchroStang = "") || ($Piece(VorigeSynchroStang.ToeDos, ":",1) = $Piece(VorigeSynchroStang.ToeDos, ":",1))) {
+				Set AantalSynchroStangenVoorDezeToelevering = AantalSynchroStangenVoorDezeToelevering + HuidigeSynchroStang.AantalTiponSynchronisatiestangen
+			}
+			
+			If ($$$Not(VorigeSynchroStang = "") && $$$Not($Piece(VorigeSynchroStang.ToeDos, ":",1) = $Piece(HuidigeSynchroStang.ToeDos, ":",1))) {
+				Set VorigeSynchroStang.TotaalAantalTiponSynchronisatiestangenInToelevering = AantalSynchroStangenVoorDezeToelevering
+				Set AantalSynchroStangenVoorDezeToelevering = HuidigeSynchroStang.AantalTiponSynchronisatiestangen
+			}
+			Set VorigeSynchroStang = HuidigeSynchroStang
+		}
+	}
+	
+	If $IsObject(VorigeSynchroStang) {
+		Set VorigeSynchroStang.TotaalAantalTiponSynchronisatiestangenInToelevering = AantalSynchroStangenVoorDezeToelevering
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsObjectUitvoeringInfoInkortenTiponSynchronisatiestang">
+<FormalSpec>Object:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit ##class(TECH.StringUtils).Contains(Object.%ClassName(1), "APPS.Halux.PPS.Activiteit.impl.common.dto.TiponSynchronisatiestangInkortenUitvoeringInfo", 
+																  "BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo")
+]]></Implementation>
+</Method>
+
 <Method name="GeefUitvoeringInfoLijstPerInformatieID">
 <FormalSpec>WerklijstItemIDs:%ListOfDataTypes</FormalSpec>
 <ReturnType>%ArrayOfObjects</ReturnType>