Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r68429 -r68717
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 68429)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 68717)
@@ -188,6 +188,8 @@
 		} 
 		
 		If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+			Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeAfdekkappenRugwandhouders(GesorteerdeUitvoeringInfoIterator)
+			
 			If (..IsBatchEnkelVoorDKG()) {
 				Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenBehalveNietZichtbaarVoorDKG(GesorteerdeUitvoeringInfoIterator)
 			}
@@ -304,6 +306,48 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAlleProductenMetSamengeteldeAfdekkappenRugwandhouders">
+<FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set SamengesteldeLijst = ##class(%ListOfObjects).%New()
+	#dim SamengesteldeLijstIterator AS TECH.Iterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	#dim Product, OorspronkelijkProduct As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop
+	#dim SequentieNummerProduct, SequentieNummerOorspronkelijkProduct As %Integer
+	
+	While GesorteerdeUitvoeringInfoIterator.HasNext()	{
+		Set OorspronkelijkProduct = GesorteerdeUitvoeringInfoIterator.Next()
+		#dim OvereenkomstigProductGevonden As %Boolean = $$$False
+		While SamengesteldeLijstIterator.HasNext() && $$$Not(OvereenkomstigProductGevonden) {
+			Set Product = SamengesteldeLijstIterator.Next()
+			If ((..IsMVXAfdekkapRugwandHouder(Product)) && (..IsKorttekstIdentiek(Product, OorspronkelijkProduct))) {
+				Set OvereenkomstigProductGevonden = $$$True
+				Set Product.HFV.Aantal = Product.HFV.Aantal + OorspronkelijkProduct.HFV.Aantal
+				Set Product.HFV.Omschrijving = ##class(TECH.StringUtils).StripLastPart(Product.HFV.Omschrijving, ", ") _ ", Li+Re"
+				
+				Set SequentieNummerOorspronkelijkProduct = ..GeefSequentieNummer(OorspronkelijkProduct)
+				Set SequentieNummerProduct = ..GeefSequentieNummer(Product)
+				
+				Do ..ZetHoogsteSequentienummerIndienNodig(Product,SequentieNummerProduct, SequentieNummerOorspronkelijkProduct)
+			}		
+		}
+		If (SamengesteldeLijst.Count() = 0 || $$$Not(OvereenkomstigProductGevonden)){
+			Do SamengesteldeLijst.Insert(OorspronkelijkProduct)
+		}
+		Do SamengesteldeLijstIterator.Reset()
+	}
+	
+	If SamengesteldeLijst.Count() > 0  {
+		Set GesorteerdeUitvoeringInfoIterator = SamengesteldeLijstIterator
+	} Else {
+		Do GesorteerdeUitvoeringInfoIterator.Reset()
+	}
+	
+	Quit GesorteerdeUitvoeringInfoIterator
+]]></Implementation>
+</Method>
+
 <Method name="IsTAXGeleider">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
@@ -312,6 +356,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsMVXAfdekkapRugwandHouder">
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##class(TECH.StringUtils).StartsWith(Product.HFV.GeefKorttekst(), "ZB4"))
+]]></Implementation>
+</Method>
+
 <Method name="IsKorttekstIdentiek">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OorspronkelijkProduct:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>