Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r57114 -r60544
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 57114)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60544)
@@ -86,10 +86,17 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.common.Print.Kolommen.Document"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set ..Documenten = ##class(%ListOfObjects).%New()
+	Set ..Documenten = ##class(%ListOfObjects).%New()	
 	#dim GesorteerdeOnderdeelPickingsPerToelevering As TECH.Iterator = ..GeefGesorteerdeOnderdeelPickingsPerToelevering(UitvoeringInfoLijst)
+	
+	If $$$Not(UitvoeringInfoLijst.Count() = 0) {
+		#dim BatchID As %String = UitvoeringInfoLijst.GetAt(1).BatchID
+		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
+		#dim BatchCategorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
+		#dim BatchProductiegroep As APPS.Halux.common.enu.ProductieGroep = Batch.GeefProductieGroep()
+	}
 	While GesorteerdeOnderdeelPickingsPerToelevering.HasNext() {
-		Do ..MaakDocumentEnVoegToeAanDocumenten(GesorteerdeOnderdeelPickingsPerToelevering.Next())
+		Do ..MaakDocumentEnVoegToeAanDocumenten(GesorteerdeOnderdeelPickingsPerToelevering.Next(), BatchCategorie, BatchProductiegroep)
 	}
 	Quit ..Documenten
 ]]></Implementation>
@@ -99,7 +106,7 @@
 <FormalSpec>OnderdelenPickingUitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If '$IsObject(..Document) {
+	If $$$Not($IsObject(..Document)) {
 		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(OnderdelenPickingUitvoeringInfo.ProductID)
 		#dim Titel As %String = ..GeefTitel(Product.GeefVerpakking())
 		#dim BatchID As %String = OnderdelenPickingUitvoeringInfo.BatchID
@@ -157,15 +164,22 @@
 </Method>
 
 <Method name="MaakDocumentEnVoegToeAanDocumenten">
-<FormalSpec>GesorteerdeOnderdeelPickingsVoor1Toelevering:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<FormalSpec>GesorteerdeOnderdeelPickingsVoor1Toelevering:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,Categorie:APPS.Halux.common.enu.Categorie="",Productiegroep:APPS.Halux.common.enu.ProductieGroep=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If $IsObject(GesorteerdeOnderdeelPickingsVoor1Toelevering){
 		Set ..Document = ""
-		#dim GesorteerdeUitvoeringInfoIt As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator()
 		#dim DataVoorVorigeLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = ""
-		While GesorteerdeUitvoeringInfoIt.HasNext()	{
-			#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIt.Next()
+		#dim GesorteerdeUitvoeringInfoIt As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator()	
+		#dim NieuweGesorteerdeUitvoeringInfoIt As TECH.Iterator
+		If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) && (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())) {
+			Set NieuweGesorteerdeUitvoeringInfoIt =  ..TelAantallenSamenVoorGeleiders(GesorteerdeUitvoeringInfoIt)
+		} Else {
+			Set NieuweGesorteerdeUitvoeringInfoIt = GesorteerdeUitvoeringInfoIt
+		}
+		
+		While NieuweGesorteerdeUitvoeringInfoIt.HasNext() {
+			#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = NieuweGesorteerdeUitvoeringInfoIt.Next()	
 			#dim IsTussenlijnNodig As %Boolean = ..IsTussenlijnNodig(DataVoorVorigeLijn,DataVoorLijn)
 			If IsTussenlijnNodig {
 				Do ..Document.VoegLegeLijnToe()
@@ -193,6 +207,60 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TelAantallenSamenVoorGeleiders">
+<FormalSpec>GesorteerdeUitvoeringInfoIt:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim SamengesteldeLijst As %ListOfObjects = ##class(%ListOfObjects).%New("")
+	#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	
+	While GesorteerdeUitvoeringInfoIt.HasNext()	{
+		#dim OorspronkelijkProduct As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIt.Next()
+		#dim OvereenkomstigProductGevonden As %Boolean = $$$False
+		While SamengesteldeLijstIterator.HasNext() && $$$Not(OvereenkomstigProductGevonden) {
+			#dim Product = SamengesteldeLijstIterator.Next()
+			If ((##class(TECH.StringUtils).StartsWith(Product.HFV.GeefKorttekst(), "760")) && (Product.HFV.GeefKorttekst() = OorspronkelijkProduct.HFV.GeefKorttekst()) && (Product.HFV.GeefLengte() = OorspronkelijkProduct.HFV.GeefLengte())) {	;Geleiders starten met 760 in de korttekst
+				Set OvereenkomstigProductGevonden = $$$True
+				Set Product.HFV.Aantal= Product.HFV.Aantal+OorspronkelijkProduct.HFV.Aantal
+				
+				#dim OnderdelenPickingenOorspronkelijkProduct As TECH.Iterator = ##class(TECH.ListIterator).%New(OorspronkelijkProduct.PickingsPerMaatwerkProductID)
+				If OnderdelenPickingenOorspronkelijkProduct.HasNext(){
+					#dim OPVoorEenProductLijstOorspronkelijkProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingenOorspronkelijkProduct.Next()
+					If OPVoorEenProductLijstOorspronkelijkProduct.Count() > 0 {
+						#dim OPEenProductOorspronkelijkProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijstOorspronkelijkProduct.GetAt(1)
+						#dim SequentieNummerOorspronkelijkProduct As %Integer = OPEenProductOorspronkelijkProduct.SequentieNummer
+					}
+				}
+				#dim OnderdelenPickingen As TECH.Iterator = ##class(TECH.ListIterator).%New(Product.PickingsPerMaatwerkProductID)
+				If OnderdelenPickingen.HasNext(){
+					#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
+					If OPVoorEenProductLijst.Count() > 0 {
+						#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
+						#dim SequentieNummerProduct As %Integer = OPEenProduct.SequentieNummer
+						If SequentieNummerProduct < SequentieNummerOorspronkelijkProduct {
+							Set OPEenProduct.SequentieNummer = SequentieNummerOorspronkelijkProduct
+						}
+					}
+				}				
+			}		
+		}
+		If (SamengesteldeLijst.Count() = 0 || $$$Not(OvereenkomstigProductGevonden)){
+			Do SamengesteldeLijst.Insert(OorspronkelijkProduct)
+		}
+		Do SamengesteldeLijstIterator.Reset()
+	}
+	
+	If SamengesteldeLijst.Count() > 0  {
+		Set GesorteerdeUitvoeringInfoIt = SamengesteldeLijstIterator
+	} Else {
+		Do GesorteerdeUitvoeringInfoIt.Reset()
+	}
+	
+	Quit GesorteerdeUitvoeringInfoIt
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeItem">
 <FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
 <Private>1</Private>
@@ -211,7 +279,7 @@
 			#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
 			
 			Do ..InitDocumentIndienNodig(OPEenProduct)
-					
+			
 			#dim EersteKolomBreedte As %Integer = ..Document.DocumentType.GeefKolomDefinitie(1).Breedte
 			Set GeWordWrapteProductOmschrijvingLijnen = ##class(TECH.ListIterator).%New(##class(TECH.StringUtils).WordWrap(DataVoorLijn.HFV.GeefOmschrijving(),EersteKolomBreedte))