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))
 			
Index: APPS/Halux/PPS/DocumentDefinitie/TAX/OnderdelenPickingLijst.cls.xml
===================================================================
diff -u -r29059 -r60544
--- APPS/Halux/PPS/DocumentDefinitie/TAX/OnderdelenPickingLijst.cls.xml	(.../OnderdelenPickingLijst.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/DocumentDefinitie/TAX/OnderdelenPickingLijst.cls.xml	(.../OnderdelenPickingLijst.cls.xml)	(revision 60544)
@@ -22,11 +22,10 @@
 	Do DocumentType.ClearDocument()
 	
 	// maak kolommen aan
-	Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Product omschrijving",25,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Links()))
+	Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Product omschrijving",35,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Links()))
 	Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Korttekst",25,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts()))
 	Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("#",3,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts()))
 	Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Lengte",6,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts())) 
-	Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Control",,##class(APPS.common.Print.Kolommen.TekstType).String(),##class(APPS.common.Print.Kolommen.TekstUitlijning).Rechts()))
 	
 	// sla het documenttype op
 	Do DocumentType.SaveDocument()
Index: APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking/SubtitelBepaler.cls.xml
===================================================================
diff -u -r30423 -r60544
--- APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking/SubtitelBepaler.cls.xml	(.../SubtitelBepaler.cls.xml)	(revision 30423)
+++ APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking/SubtitelBepaler.cls.xml	(.../SubtitelBepaler.cls.xml)	(revision 60544)
@@ -10,7 +10,9 @@
 	#dim EersteKar, EersteVak, LaatsteKar, LaatsteVak As TECH.Integer = ""
 	While ListIt.HasNext() {
 		#dim Vakken As %ListOfDataTypes = ListIt.Next()
+		Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(VakkenPerKar.GetAt(1))
 		Do ##class(TECH.Algo.Sort.MergeSort).Sort(.Vakken, ##class(TECH.Comparator.IntegerComparator).%New())
+		
 		If EersteKar = "" {
 			Set EersteKar = (+ListIt.Key())
 			Set EersteVak = Vakken.GetAt(1)
Index: vhDeploy/D2020043xVoerUitMaakDocumentTaxOnderdelenpickingLijst.cls.xml
===================================================================
diff -u
--- vhDeploy/D2020043xVoerUitMaakDocumentTaxOnderdelenpickingLijst.cls.xml	(revision 0)
+++ vhDeploy/D2020043xVoerUitMaakDocumentTaxOnderdelenpickingLijst.cls.xml	(revision 60544)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D2020043xVoerUitMaakDocumentTaxOnderdelenpickingLijst">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>MaakDocument uitvoeren om zo de Control kolom te verwijderen en de product omschrijving kolom te verbreden</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(APPS.Halux.PPS.DocumentDefinitie.TAX.OnderdelenPickingLijst).MaakDocument()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r57022 -r60544
--- APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 57022)
+++ APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60544)
@@ -122,11 +122,11 @@
 </Method>
 
 <Method name="MaakDocumentEnVoegToeAanDocumenten">
-<FormalSpec>Wortel:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<FormalSpec>Wortel: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[
 	Set ..VakkenPerKar = ##class(%ArrayOfDataTypes).%New()
-	Do ##super(Wortel)
+	Do ##super(Wortel, Categorie, Productiegroep)
 ]]></Implementation>
 </Method>