Index: APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml
===================================================================
diff -u -r41084 -r41087
--- APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml	(.../ProductieSequentieGroepeerderResultSetBased.cls.xml)	(revision 41084)
+++ APPS/Halux/common/impl/ProductieSequentieGroepeerderResultSetBased.cls.xml	(.../ProductieSequentieGroepeerderResultSetBased.cls.xml)	(revision 41087)
@@ -151,7 +151,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GroepeerPerToeleveringPerProductPerKlant">
+<Method name="GroepeerPerToeleveringPerKlant">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
@@ -186,6 +186,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GroepeerPerToeleveringPerProductPerKlant">
+<FormalSpec>BatchID:%String</FormalSpec>
+<ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
+<Implementation><![CDATA[
+	Set ..Groepering = ##class(APPS.Halux.common.impl.ProductieSequentieGroepering).%New()
+	
+	#dim ResultSet As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(BatchID)
+	#dim GroeperingID As %Integer = 0
+	#dim ToeleveringID As %String = ""
+	#dim ProductID As %String = ""
+	#dim SequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
+	#dim TotaalSequentieInfo AS APPS.Halux.common.dto.ProductieSequentie = ""
+	
+	While (ResultSet.Next()) {
+		#dim DeelAantal As %Integer = ResultSet.GetDataByName("DeelAantal")
+		
+		Continue:$$$Not(DeelAantal = 1)
+		
+		Set SequentieInfo = ..GeefSequentieInfo(ResultSet)
+		Set SequentieInfo.DeelAantal = ""
+		
+		If ((ToeleveringID = SequentieInfo.ToeleveringID ) && ( ProductID = SequentieInfo.ProductID)) {
+			Set TotaalSequentieInfo.TotaalAantal = TotaalSequentieInfo.TotaalAantal + SequentieInfo.TotaalAantal
+		} Else {
+			Do:$$$Not(ToeleveringID = "") ..Groepering.VoegToe(GroeperingID,TotaalSequentieInfo)
+			Set TotaalSequentieInfo = SequentieInfo
+			Set:$$$Not(ToeleveringID = SequentieInfo.ToeleveringID) GroeperingID = GroeperingID + 1
+			Set ProductID = SequentieInfo.ProductID
+			Set ToeleveringID = SequentieInfo.ToeleveringID
+		}
+
+	}
+	
+	Do ..Groepering.VoegToe(GroeperingID, TotaalSequentieInfo)
+	
+	Quit ..Groepering
+]]></Implementation>
+</Method>
+
 <Method name="GroepeerPerProduct">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>