Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r37974 -r42815
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 37974)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 42815)
@@ -1,15 +1,22 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.common.OnderdelenPicking">
+<Description>
+Dit is een UitvoeringInfoLijstVerwerker, maar één van de oude stijl, die namelijk de gegevens nog moet bij elkaar zoeken.
+Kent de rollen die getoond moeten worden.</Description>
 <Abstract>1</Abstract>
 <Super>APPS.Halux.PPS.Document.impl.BulkTekstDocumentAfdrukker</Super>
 
-<Property name="HalffabItemNaarKnoopVisitor">
+<Property name="PlatteHalffabItemLijstMaker">
+<Description>
+Deze maakt een platte lijst van alle HalfFabItems.</Description>
 <Type>APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="ProductieLijnFormatter">
+<Description>
+N.B. Dit gaat over een lijnen in de zin van "Lijn 1 aka die met de kartonmachin"; dus niet over onderdelenpickinglijnen.</Description>
 <Type>APPS.Halux.PPS.impl.Formatter.ProductieLijn</Type>
 <Private>1</Private>
 </Property>
@@ -46,21 +53,36 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>HalffabItemNaarKnoopVisitor:APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor</FormalSpec>
+<FormalSpec>PlatteHalffabItemLijstMaker:APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##super()
-	Set ..HalffabItemNaarKnoopVisitor = $$$Implementation(HalffabItemNaarKnoopVisitor,##class(APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor).%New())
+	Set ..PlatteHalffabItemLijstMaker = $$$Implementation(PlatteHalffabItemLijstMaker,##class(APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor).%New())
 	Set ..ProductieLijnFormatter = ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Resolve("LijnFormatter")
 	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	set ..ProductieAansturingService = ##class(APPS.Halux.common.impl.ProductieAansturingService).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="MaakDocumentenVoorUitvoeringInfoLijst">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.common.Print.Kolommen.Document"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Set ..Documenten = ##class(%ListOfObjects).%New()
+	#dim GesorteerdeOnderdeelPickingsPerToelevering As TECH.Iterator = ..GeefGesorteerdeOnderdeelPickingsPerToelevering(UitvoeringInfoLijst)
+	While GesorteerdeOnderdeelPickingsPerToelevering.HasNext() {
+		Do ..MaakDocumentEnVoegToeAanDocumenten(GesorteerdeOnderdeelPickingsPerToelevering.Next())
+	}
+	Quit ..Documenten
+]]></Implementation>
+</Method>
+
 <Method name="InitDocumentIndienNodig">
 <FormalSpec>OnderdelenPickingUitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo</FormalSpec>
 <Private>1</Private>
@@ -96,6 +118,8 @@
 </Method>
 
 <Method name="ProcessToegevoegdItem">
+<Description>
+Hook om bvb. een stukje Assemblagekarren-verwerking aan te hangen.</Description>
 <FormalSpec>OnderdelenPickingUitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 </Method>
@@ -115,43 +139,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakDocumentenVoorUitvoeringInfoLijst">
-<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<ReturnTypeParams>ELEMENTTYPE="APPS.common.Print.Kolommen.Document"</ReturnTypeParams>
-<Implementation><![CDATA[
-	Set ..Documenten = ##class(%ListOfObjects).%New()
-	#dim WortelIt As TECH.Iterator = ..GeefWortelIterator(UitvoeringInfoLijst)
-	While WortelIt.HasNext() {
-		Do ..MaakDocumentEnVoegToeAanDocumenten(WortelIt.Next())
-	}
-	Quit ..Documenten
-]]></Implementation>
-</Method>
-
 <Method name="GeefHalffabItemNaarUitvoeringInfoVisitor">
 <Abstract>1</Abstract>
 <Private>1</Private>
 </Method>
 
 <Method name="MaakDocumentEnVoegToeAanDocumenten">
-<FormalSpec>Wortel:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<FormalSpec>GesorteerdeOnderdeelPickingsVoor1Toelevering:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $IsObject(Wortel){
+	If $IsObject(GesorteerdeOnderdeelPickingsVoor1Toelevering){
 		Set ..Document = ""
-		#dim GesorteerdeUitvoeringInfoIt As TECH.Iterator = Wortel.GeefKindIterator()
-		#dim VorigeUI As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = ""
+		#dim GesorteerdeUitvoeringInfoIt As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator()
+		#dim DataVoorVorigeLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = ""
 		While GesorteerdeUitvoeringInfoIt.HasNext()	{
-			#dim UI As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIt.Next()
-			#dim IsTussenlijnNodig As %Boolean = ..IsTussenlijnNodig(VorigeUI,UI)
+			#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIt.Next()
+			#dim IsTussenlijnNodig As %Boolean = ..IsTussenlijnNodig(DataVoorVorigeLijn,DataVoorLijn)
 			If IsTussenlijnNodig {
 				Do ..Document.VoegLegeLijnToe()
 			}
-			#dim VermeldOmschrijvingEnKorttekst As %Boolean = ('$IsObject(VorigeUI) || IsTussenlijnNodig)
-			Do ..VoegToeItem(UI,VermeldOmschrijvingEnKorttekst)
-			Set VorigeUI = UI
+			#dim VermeldOmschrijvingEnKorttekst As %Boolean = ('$IsObject(DataVoorVorigeLijn) || IsTussenlijnNodig)
+			Do ..VoegToeItem(DataVoorLijn,VermeldOmschrijvingEnKorttekst)
+			Set DataVoorVorigeLijn = DataVoorLijn
 		}
 		If $IsObject(..Document){
 			Do ..Document.ZetSubSubtitel(..GeefSubSubtitel())
@@ -162,70 +171,75 @@
 </Method>
 
 <Method name="IsTussenlijnNodig">
-<FormalSpec>VorigeUI:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,HuidigeUI:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<FormalSpec>DataVoorVorigeLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $IsObject(VorigeUI) && (((VorigeUI.HFV.GeefOmschrijving() '= HuidigeUI.HFV.GeefOmschrijving())) || (VorigeUI.HFV.GeefProductID() '= HuidigeUI.HFV.GeefProductID()))
+<Implementation><![CDATA[
+	Quit $IsObject(DataVoorVorigeLijn) && (
+		   (DataVoorVorigeLijn.HFV.GeefOmschrijving() '= DataVoorLijn.HFV.GeefOmschrijving())
+		|| (DataVoorVorigeLijn.HFV.GeefProductID() '= DataVoorLijn.HFV.GeefProductID()) )
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeItem">
-<FormalSpec>UI:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
+<FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,VermeldOmschrijvingEnKorttekst:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VermeldOmschrijving As %Boolean = VermeldOmschrijvingEnKorttekst
 	#dim VermeldKorttekst As %Boolean = VermeldOmschrijvingEnKorttekst
 	#dim EersteLijnProduct As %Boolean = 1
 	
-	#dim OPArrayAlleProductenItTemp As TECH.Iterator = ##class(TECH.ListIterator).%New(UI.OnderdelenPickingen)
-	#dim ProductOmschrijvingIt As TECH.ListIterator = ""
+	#dim OnderdelenPickingen As TECH.Iterator = ##class(TECH.ListIterator).%New(DataVoorLijn.PickingsPerMaatwerkProductID)
+	#dim GeWordWrapteProductOmschrijvingLijnen As TECH.ListIterator = ""
 	#dim VorigOPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = ""
 	
-	If OPArrayAlleProductenItTemp.HasNext(){
-		#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OPArrayAlleProductenItTemp.Next()
+	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)
 			
 			Do ..InitDocumentIndienNodig(OPEenProduct)
 					
 			#dim EersteKolomBreedte As %Integer = ..Document.DocumentType.GeefKolomDefinitie(1).Breedte
-			#dim ProductOmschrijvingList As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(UI.HFV.GeefOmschrijving(),EersteKolomBreedte)
+			Set GeWordWrapteProductOmschrijvingLijnen = ##class(TECH.ListIterator).%New(##class(TECH.StringUtils).WordWrap(DataVoorLijn.HFV.GeefOmschrijving(),EersteKolomBreedte))
 			
-			Set ProductOmschrijvingIt = ##class(TECH.ListIterator).%New(ProductOmschrijvingList)
-			
 			Set OPEenProductIt = ##class(TECH.ListIterator).%New(OPVoorEenProductLijst)
 			While OPEenProductIt.HasNext() {
 				Do ..ProcessToegevoegdItem(OPEenProductIt.Next())
 			}
 		}
 	}
 	
-	Set OPArrayAlleProductenIt = ##class(TECH.ListIterator).%New(UI.OnderdelenPickingen)
-	While OPArrayAlleProductenIt.HasNext() || ProductOmschrijvingIt.HasNext() {
+	// Verdeel de data voor dit halffab over lijnen: 
+	Set OnderdelenPickingen = ##class(TECH.ListIterator).%New(DataVoorLijn.PickingsPerMaatwerkProductID)
+	While OnderdelenPickingen.HasNext() || GeWordWrapteProductOmschrijvingLijnen.HasNext() {
 		#dim Lijn As %String = ""
-		If OPArrayAlleProductenIt.HasNext() {
-			Set OPVoorEenProductLijst = OPArrayAlleProductenIt.Next()
+		
+		// Zet een volgend aantal en eventueel lengte in bepaalde kolommen.
+		If OnderdelenPickingen.HasNext() {
+			Set OPVoorEenProductLijst = OnderdelenPickingen.Next()
 			If OPVoorEenProductLijst.Count() > 0 {
 				Set OPEenProduct = OPVoorEenProductLijst.GetAt(1)
 				Set Lijn = "\\\\"_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count()
-				If ((UI.HFV.GeefLengte()'= "") || VermeldKorttekst) && EersteLijnProduct {
-					Set $Piece(Lijn,"\",3) = UI.HFV.GeefAantal()
-					Set $Piece(Lijn,"\",4) = UI.HFV.GeefLengte()
+				If ((DataVoorLijn.HFV.GeefLengte()'= "") || VermeldKorttekst) && EersteLijnProduct {
+					Set $Piece(Lijn,"\",3) = DataVoorLijn.HFV.GeefAantal()
+					Set $Piece(Lijn,"\",4) = DataVoorLijn.HFV.GeefLengte()
 					Set EersteLijnProduct = 0
 				}
-				If VermeldKorttekst {
-					Set $Piece(Lijn,"\",2) = UI.HFV.GeefKorttekst()
+				If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst.
+					Set $Piece(Lijn,"\",2) = DataVoorLijn.HFV.GeefKorttekst()
 					Set VermeldKorttekst = 0
 				}
 			
 				Set VorigOPEenProduct = OPEenProduct
 			}
 		}
 		
-		If ProductOmschrijvingIt.HasNext() {
-			#dim ProductOmschrijving As %String = ProductOmschrijvingIt.Next()
+		// Zet een volgend deel van de halffab-omschrijving in kolom 1.
+		If GeWordWrapteProductOmschrijvingLijnen.HasNext() {
+			#dim ProductOmschrijving As %String = GeWordWrapteProductOmschrijvingLijnen.Next()
 			Set:VermeldOmschrijving $Piece(Lijn,"\",1) = ProductOmschrijving
-			Set:('ProductOmschrijvingIt.HasNext()) VermeldOmschrijving = 0
+			Set:('GeWordWrapteProductOmschrijvingLijnen.HasNext()) VermeldOmschrijving = 0
 		}
 		
 		If (Lijn'="") {
@@ -235,52 +249,52 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefWortelIterator">
+<Method name="GeefGesorteerdeOnderdeelPickingsPerToelevering">
 <FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Do ..InitWeerTeGevenRollen()
 	
-	/// Per toelevering één wortel bijhouden.
-	Set Wortels = ##class(%ArrayOfObjects).%New()	
+	Set GesorteerdeOnderdeelPickingsPerToelevering = ##class(%ArrayOfObjects).%New()	
 	
 	#dim UitvoeringInfoIt As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 	While UitvoeringInfoIt.HasNext(){
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = UitvoeringInfoIt.Next()
 		#dim ToeleveringID As %String = UitvoeringInfo.ToeleveringID
 		
-		Set HalffabItemIt = ##class(TECH.ListIterator).%New(..GeefHalffabItems(UitvoeringInfo))
-		While HalffabItemIt.HasNext() {
-			#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemIt.Next()
-			#dim HalffabItemNaarKnoopVisitor As APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor = ..GeefHalffabItemNaarKnoopVisitor()
-			Do HalffabItem.Accept(HalffabItemNaarKnoopVisitor)
-			Set HalffabItemsVoorKnoopIt = ##class(TECH.ListIterator).%New(HalffabItemNaarKnoopVisitor.GeefHalffabItemsVoorKnoop())
+		Set BijnaPlatteHalffabItemLijst = ##class(TECH.ListIterator).%New(..GeefBijnaPlatteLijstMetOpTeNemenHalffabItems(UitvoeringInfo))
+		While BijnaPlatteHalffabItemLijst.HasNext() {
+			#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = BijnaPlatteHalffabItemLijst.Next()
+			#dim PlatteHalffabItemLijstMaker As APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.PlatteHalffabItemLijstMaker = ..GeefPlatteHalffabItemLijstMaker()
+			Do HalffabItem.Accept(PlatteHalffabItemLijstMaker)
+			Set HalffabItemsVoorKnoopIt = ##class(TECH.ListIterator).%New(PlatteHalffabItemLijstMaker.GeefHalffabItemsVoorKnoop())
+			// Nu hebben de halffabitems een gemanipuleerde rol.
 			While HalffabItemsVoorKnoopIt.HasNext(){
 				#dim HalffabItemVoorKnoop As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsVoorKnoopIt.Next()
 				#dim OnderdeelPickingBinaireKnoop As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = ..GeefOnderdeelPickingBinaireKnoop(HalffabItemVoorKnoop,UitvoeringInfo)
-				If 'Wortels.IsDefined(ToeleveringID){
-					Do Wortels.SetAt(OnderdeelPickingBinaireKnoop,ToeleveringID)
+				If 'GesorteerdeOnderdeelPickingsPerToelevering.IsDefined(ToeleveringID){
+					Do GesorteerdeOnderdeelPickingsPerToelevering.SetAt(OnderdeelPickingBinaireKnoop,ToeleveringID)
 					Do ..ToeleveringSequentie.Insert(ToeleveringID)
 				} Else{
-					#dim Wortel As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = Wortels.GetAt(ToeleveringID)
-					Do Wortel.VoegToeKind(OnderdeelPickingBinaireKnoop)
+					#dim GesorteerdeOnderdeelPickingsVoorDezeToelevering As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeOnderdeelPickingsPerToelevering.GetAt(ToeleveringID)
+					Do GesorteerdeOnderdeelPickingsVoorDezeToelevering.VoegToeKind(OnderdeelPickingBinaireKnoop)
 				}
 			}
 		}		
 	}
-	Quit ##class(APPS.Halux.PPS.Document.impl.common.PerToeleveringInSequentieIterator).%New(Wortels,..ToeleveringSequentie)
+	Quit ##class(APPS.Halux.PPS.Document.impl.common.PerToeleveringInSequentieIterator).%New(GesorteerdeOnderdeelPickingsPerToelevering,..ToeleveringSequentie)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHalffabItemNaarKnoopVisitor">
+<Method name="GeefPlatteHalffabItemLijstMaker">
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor</ReturnType>
-<Implementation><![CDATA[	Quit ..HalffabItemNaarKnoopVisitor.%ConstructClone(1)
+<Implementation><![CDATA[	Quit ..PlatteHalffabItemLijstMaker.%ConstructClone(1)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefHalffabItems">
+<Method name="GeefBijnaPlatteLijstMetOpTeNemenHalffabItems">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking/OnderdeelPickingComparator.cls.xml
===================================================================
diff -u -r29059 -r42815
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking/OnderdeelPickingComparator.cls.xml	(.../OnderdeelPickingComparator.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking/OnderdeelPickingComparator.cls.xml	(.../OnderdeelPickingComparator.cls.xml)	(revision 42815)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingComparator">
+<Description>
+Deze klasse kent de volgorde van 2 OnderdeelPicking-items.</Description>
 <Super>%RegisteredObject,TECH.Comparator.IComparator</Super>
 
 <Property name="StringComparator">
@@ -41,6 +43,10 @@
 </Method>
 
 <Method name="IsKleinerDan">
+<Description>
+LET OP: De criteria om de onderdelenpicking te groeperen en sorteren, staan ook in
+ IsGelijk op APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop !
+ Dus daarmee in sync houden!</Description>
 <Final>1</Final>
 <FormalSpec>OP1:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OP2:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -110,7 +116,7 @@
 
 <Method name="KanLinksEnRechtsGroeperen">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim HF1Rol As %String = ..HF1.GeefRol()
 	#dim HF2Rol As %String = ..HF2.GeefRol()
@@ -119,6 +125,7 @@
 	#dim HF2HoofdRol As DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol = $Piece(HF2Rol,".",1)
 	#dim HF2SubRol As %String = $Piece(HF2Rol,".",2)
 	
+	/// N.B. Waarom moet hier niet op (HF1HoofdRol=HF2HoofdRol) gecontroleerd worden?
 	Quit (((HF1SubRol = "Links") || (HF2SubRol = "Links")) && ((HF1SubRol = "Rechts") || (HF2SubRol = "Rechts")))
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking/OnderdeelPickingBinaireKnoop.cls.xml
===================================================================
diff -u -r29059 -r42815
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking/OnderdeelPickingBinaireKnoop.cls.xml	(.../OnderdeelPickingBinaireKnoop.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking/OnderdeelPickingBinaireKnoop.cls.xml	(.../OnderdeelPickingBinaireKnoop.cls.xml)	(revision 42815)
@@ -1,17 +1,21 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop">
+<Description>
+OnderdeelPicking-objecten worden gesorteerd volgens bepaalde criteria, door ze in een Binaire Boom te zetten.</Description>
 <Super>TECH.Algo.Boom.BinaireKnoop,%RegisteredObject</Super>
 
 <Property name="HalffabItem">
 <Type>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</Type>
 </Property>
 
 <Property name="HFV">
+<Description>
+= OnderdelenPickingDataVoorHalffabItemBepaler</Description>
 <Type>APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarUitvoeringInfoVisitor</Type>
 </Property>
 
-<Property name="OnderdelenPickingen">
+<Property name="PickingsPerMaatwerkProductID">
 <Type>APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst</Type>
 <Collection>array</Collection>
 </Property>
@@ -31,7 +35,7 @@
 	Set ..OnderdeelPickingComparator = OnderdeelPickingComparator
 	Set ..HFV = HalffabItemNaarknoopVisitor
 	Do ..HalffabItem.Accept(..HFV)
-	Set ..OnderdelenPickingen = ##class(%ArrayOfObjects).%New()
+	Set ..PickingsPerMaatwerkProductID = ##class(%ArrayOfObjects).%New()
 	Do ..VoegToeOnderdelenPicking(OnderdelenPicking)	
 	Quit $$$OK
 ]]></Implementation>
@@ -40,11 +44,11 @@
 <Method name="VoegToeOnderdelenPicking">
 <FormalSpec>OnderdelenPicking:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo</FormalSpec>
 <Implementation><![CDATA[
-	If '..OnderdelenPickingen.IsDefined(OnderdelenPicking.ProductID) {
-		Do ..OnderdelenPickingen.SetAt(##class(APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst).%New(),OnderdelenPicking.ProductID)
+	If '..PickingsPerMaatwerkProductID.IsDefined(OnderdelenPicking.ProductID) {
+		Do ..PickingsPerMaatwerkProductID.SetAt(##class(APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst).%New(),OnderdelenPicking.ProductID)
 	}
-	#dim Lijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = ..OnderdelenPickingen.GetAt(OnderdelenPicking.ProductID)
-	Do Lijst.Insert(OnderdelenPicking)
+	#dim PickingsVoorMaatwerkProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = ..PickingsPerMaatwerkProductID.GetAt(OnderdelenPicking.ProductID)
+	Do PickingsVoorMaatwerkProduct.Insert(OnderdelenPicking)
 ]]></Implementation>
 </Method>
 
@@ -53,7 +57,7 @@
 <Implementation><![CDATA[
 	Do ##super(Kindknoop)
 	If ..IsGelijk(Kindknoop){
-		Set OnderdelenPickingIt = ##class(TECH.ListIterator).%New(Kindknoop.OnderdelenPickingen)
+		Set OnderdelenPickingIt = ##class(TECH.ListIterator).%New(Kindknoop.PickingsPerMaatwerkProductID)
 		While OnderdelenPickingIt.HasNext(){
 			#dim Lijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingIt.Next()
 			Set OPIt = ##class(TECH.ListIterator).%New(Lijst)
@@ -67,6 +71,10 @@
 </Method>
 
 <Method name="IsGelijk">
+<Description>
+LET OP: De criteria om de onderdelenpicking te groeperen en sorteren, staan ook in
+ IsKleinerDan op APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingComparator !
+ Dus daarmee in sync houden!</Description>
 <FormalSpec>Knoop:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarKnoopVisitor.cls.xml
===================================================================
diff -u -r29059 -r42815
--- APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarKnoopVisitor.cls.xml	(.../HalffabItemNaarKnoopVisitor.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarKnoopVisitor.cls.xml	(.../HalffabItemNaarKnoopVisitor.cls.xml)	(revision 42815)
@@ -1,6 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor">
+<Description>
+Zet de te tonen HalfFabItems in een platte lijst, maar geeft hen fully qualified rolnamen.
+En weet welke "inbegrepen" HalfFabItems uitzonderlijk toch getoond mogen worden.</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor,TECH.RegisteredObject</Super>
@@ -58,7 +61,6 @@
 	While (Iterator.HasNext())
 	{
 		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = Iterator.Next()
-		Do HalffabItem.ZetRol(Item.GeefRol()_"."_HalffabItem.GeefRol())
 		Do HalffabItem.Accept(##this)
 	}
 	Set ..Level = ..Level - 1
Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r40118 -r42815
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 40118)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 42815)
@@ -12,7 +12,7 @@
 <Implementation><![CDATA[
 	Do ##super()
 	Set ToonIngebrepenHalffabItemBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.OnderdelenPicking.ToonInbegrepenHalffabItemBepaler).%New()	
-	Set ..HalffabItemNaarKnoopVisitor = $$$Implementation(HalffabItemNaarKnoopVisitorClassName,##class(APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor).%New(ToonIngebrepenHalffabItemBepaler))
+	Set ..PlatteHalffabItemLijstMaker = $$$Implementation(HalffabItemNaarKnoopVisitorClassName,##class(APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarKnoopVisitor).%New(ToonIngebrepenHalffabItemBepaler))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml
===================================================================
diff -u -r29059 -r42815
--- APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 42815)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.HalffabItemNaarUitvoeringInfoVisitor">
+<Description>
+Filtert de niet te tonen halffabsitems, en vult UitvoeringInfo-achtige info in per type halffabitem.</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor,TECH.RegisteredObject</Super>