Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml
===================================================================
diff -u -r72155 -r73344
--- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 72155)
+++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml	(.../WerklijstItemsUitvoerder.cls.xml)	(revision 73344)
@@ -27,18 +27,18 @@
 </Method>
 
 <Method name="VoerUit">
-<FormalSpec>Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,WerklijstItemIDs:%ListOfDataTypes,VerwerkerParameter:%CacheString=""</FormalSpec>
+<FormalSpec>Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,WerklijstItemIDs:%ListOfDataTypes,VerwerkerParameter:%CacheString="",ActieParameters:%ListOfDataTypes=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim UitvoeringInfoLijstPerInformatieID As %ArrayOfObjects = ..GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDs)
-	do ..VoerUitUitvoeringInfoLijstPerInformatieID(UitvoeringInfoLijstPerInformatieID,Activiteit,VerwerkerParameter)
+	do ..VoerUitUitvoeringInfoLijstPerInformatieID(UitvoeringInfoLijstPerInformatieID,Activiteit,VerwerkerParameter, ActieParameters)
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitUitvoeringInfoLijstPerInformatieID">
 <Description><![CDATA[
 Methode die de lijst opstelt voor onder andere mattenlijsten van LBX en TAX, de code die de lijst opstelt voor TBX is te vinden onder: BL.PPS.TBX.DocsV1 -> MatLijst()
 Deze methode stelt ook de "Picking: onderdelen" lijst van onderandere TAX op]]></Description>
-<FormalSpec>UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects,Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,VerwerkerParameter:%CacheString=""</FormalSpec>
+<FormalSpec>UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects,Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,VerwerkerParameter:%CacheString="",ActieParameters:%ListOfDataTypes=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
 <Implementation><![CDATA[
@@ -68,21 +68,54 @@
 			#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
 			#dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 			#dim LijstAantallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("")
-			#dim ObjectIsMat As %Boolean = $$$False
+			#dim ObjectIsMat As %Boolean = $$$False 
 			
 			//Berekenen en schrijven van property TotaalAantalMattenInToelevering
-			Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator)
+			;Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator)
+			#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()
+				#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID)
+				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))) {
+						If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld.
+							Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+						} Else {
+							Set VorigeMat.TotaalAantalMattenInToelevering = ""
+						}
+						Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal
+					}
+					Set VorigeMat = HuidigeMat
+				}
+			}
+			
+			If $IsObject(VorigeMat) {
+				If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld.
+					Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+				} Else {
+					Set VorigeMat.TotaalAantalMattenInToelevering = ""
+				}
+			}
 			Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 			
 			Do ..GroepeerTiponSynchronisatiestangen(UitvoeringLijstIterator)
 			Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 			
 			//Matten met zelfde dimensies groeperen
 			while UitvoeringLijstIterator.HasNext() {		
-				#dim Object = UitvoeringLijstIterator.Next()
+				Set 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) && (..IsProductiegroepKastOfPallet(Batch) || (..IsProductiegroepProbox(Batch))) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+				Set 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")) {
 					Set ObjectIsMat = $$$True
 					#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = Object
 					Do LijstAantallen.Insert(Mat.Aantal)
@@ -91,44 +124,17 @@
 						If ((Mat.ToeDos = Mat2.ToeDos) && (Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte) && (Mat.BewerkingDiepte = Mat2.BewerkingDiepte)){
 							Set OvereenkomstigeMatGevonden = $$$True
 							Set Mat2.Aantal = Mat2.Aantal + Mat.Aantal
+							Set Mat2.TotaalAantalMattenInToelevering = Mat.TotaalAantalMattenInToelevering
 						}
 					}		
 					If (SamengesteldeLijst.Count() = 0 || $$$Not(OvereenkomstigeMatGevonden)) {
 						Do SamengesteldeLijst.Insert(Mat)
 					}
 					Do SamengesteldeLijstIterator.Reset()
 				}
-			}
-			
-			//1 document per toelevering van de mattenlijst en per document het totaal # matten weergeven
+			}	
 			If (SamengesteldeLijst.Count()>0 && ObjectIsMat) {
-				Set SamengesteldeLijstIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
-				#dim LijstVanToeleveringIDs As %ListOfDataTypes = ..GeefLijstVanToeleveringNummersVanMattenlijst(SamengesteldeLijstIterator)				
-				Do SamengesteldeLijstIterator.Reset()
-								
-				Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()				
-				Set ToeleveringIDIterator = ##class(TECH.ListIterator).%New(LijstVanToeleveringIDs)
-				
-				While ToeleveringIDIterator.HasNext() {
-					#dim ToeleveringID As %Integer = ToeleveringIDIterator.Next()
-					#dim TotaalAantalMattenInToelevering As %Integer = 0
-					Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()	
-					While SamengesteldeLijstIterator.HasNext() {											
-						Set Mat = SamengesteldeLijstIterator.Next()
-						
-						If (Mat.ToeleveringID = ToeleveringID) {	
-							Set Mat.TotaalAantalMattenInToelevering = ""						
-							Do SamengesteldeLijstPerToelevering.Insert(Mat)
-							Set TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering + Mat.Aantal
-						}
-					}
-
-					Set Mat = SamengesteldeLijstPerToelevering.GetAt(SamengesteldeLijstPerToelevering.Count())
-					Set Mat.TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering
-					Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijstPerToelevering,ActiviteitParameters)
-					Do SamengesteldeLijstIterator.Reset()
-				}
-				
+				Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters, ActieParameters)
 				Do UitvoeringLijstIterator.Reset()
 				#dim i = 1
 				While UitvoeringLijstIterator.HasNext() {
@@ -139,7 +145,7 @@
 				}
 			}
 			else {
-				Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters)
+				Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters, ActieParameters)
 				
 			}
 		}
@@ -150,7 +156,7 @@
 </Method>
 
 <Method name="ZetTotaalAantalMattenPerToelevering">
-<FormalSpec>UitvoeringLijstIterator:TECH.ListIterator</FormalSpec>
+<FormalSpec><![CDATA[&UitvoeringLijstIterator:TECH.ListIterator]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim UitgebreideUitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
@@ -180,26 +186,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstVanToeleveringNummersVanMattenlijst">
-<FormalSpec>SamengesteldeLijstIterator:TECH.ListIterator</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	Set LijstVanToeleveringen = ##class(%ListOfDataTypes).%New()
-	#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo
-	
-	While SamengesteldeLijstIterator.HasNext() {
-		Set Mat = SamengesteldeLijstIterator.Next()
-		
-		If $$$Not(##class(TECH.ListUtils).Contains(LijstVanToeleveringen, Mat.ToeleveringID)) {
-			Do LijstVanToeleveringen.Insert(Mat.ToeleveringID)
-		}
-	}
-	
-	Quit LijstVanToeleveringen
-]]></Implementation>
-</Method>
-
 <Method name="GroepeerTiponSynchronisatiestangen">
 <FormalSpec>UitvoeringInfoIterator:TECH.ListIterator</FormalSpec>
 <Private>1</Private>
@@ -232,7 +218,7 @@
 <FormalSpec>VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($Piece(VorigeUI.ToeDos, ":", 1) = $Piece(UI.ToeDos, ":", 1)) && (VorigeUI.Breedte = UI.Breedte)
+<Implementation><![CDATA[	Quit ($Piece(VorigeUI.ToeDos, ":", 1) = $Piece(UI.ToeDos, ":", 1)) && (VorigeUI.Breedte = UI.Breedte) && (VorigeUI.TiponSynchronisatiestangKorttekst = UI.TiponSynchronisatiestangKorttekst)
 ]]></Implementation>
 </Method>
 
@@ -292,11 +278,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsProductiegroepKastOfPallet">
+<Method name="IsProductiegroepKast">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ((Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet()) || (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()))
+<Implementation><![CDATA[	Quit (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast())
 ]]></Implementation>
 </Method>
 </Class>