Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r70889 -r70914
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70889)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70914)
@@ -233,8 +233,10 @@
 <Implementation><![CDATA[
 	//Opvullijst is een speciaal geval, het is altijd een bewerkthalffabitemm ookal is het niet bewerkt, daarom zal het veldje lengte altijd ingevuld zijn
 	#dim HeeftBewerkingen As %Boolean = ($$$Not(DataVoorLijn.HFV.GeefLengte() = "") && ($$$Not((DataVoorLijn.HFV.GeefRol() = "Opvullijst") && (DataVoorLijn.HFV.GeefLengte() = 486))))
+	#dim EerderToegekendAantal As %Integer = 0
+	Set EerderToegekendAantal = $Get(^PCDataOnderdelenPickingDocument(ToeleveringIDVoorPCDataOnderdelenPickingDocument, HeeftBewerkingen, DataVoorLijn.HFV.GeefProductID()))
 	
-	Set ^PCDataOnderdelenPickingDocument(ToeleveringIDVoorPCDataOnderdelenPickingDocument, DataVoorLijn.HFV.GeefProductID()) = DataVoorLijn.HFV.GeefAantal()_ "/" _ HeeftBewerkingen
+	Set ^PCDataOnderdelenPickingDocument(ToeleveringIDVoorPCDataOnderdelenPickingDocument, HeeftBewerkingen, DataVoorLijn.HFV.GeefProductID()) = (EerderToegekendAantal + DataVoorLijn.HFV.GeefAantal())
 ]]></Implementation>
 </Method>
 
@@ -331,7 +333,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAlleProductenMetSamengeteldeAfdekkappenRugwandhouders">
+<Method name="GeefAlleProductenMetHerberekendeAfdekkappenRugwandhouders">
 <FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -416,13 +418,13 @@
 	}
 	
 	#dim SamengesteldeLijstIterator AS TECH.Iterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	Set GesorteerdeUitvoeringInfoIterator = ..GroepeerNietBewerkteIdentiekeProducten(SamengesteldeLijstIterator)
 	
-	Set GesorteerdeUitvoeringInfoIterator = ..TelAfdekkappenBinnenEnBuitenkantSamen(SamengesteldeLijstIterator)
 	Quit GesorteerdeUitvoeringInfoIterator
 ]]></Implementation>
 </Method>
 
-<Method name="TelAfdekkappenBinnenEnBuitenkantSamen">
+<Method name="GroepeerNietBewerkteIdentiekeProducten">
 <FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -438,7 +440,7 @@
 		Set OvereenkomstigeGevonden = $$$False
 		While (SamengesteldeLijstIterator.HasNext() && $$$Not(OvereenkomstigeGevonden)) {
 			Set Product = SamengesteldeLijstIterator.Next()
-			If (..IsAfdekkapBinnenOfBuitenkant(Product)) && (..IsProductIdIdentiek(Product, OorspronkelijkProduct)) {
+			If (..IsProductIdIdentiekEnNietBewerktProduct(Product, OorspronkelijkProduct)) {
 				Set Product.HFV.Aantal = Product.HFV.Aantal + OorspronkelijkProduct.HFV.Aantal				
 				Set OvereenkomstigeGevonden = $$$True
 			}		
@@ -573,11 +575,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsProductIdIdentiek">
+<Method name="IsProductIdIdentiekEnNietBewerktProduct">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OorspronkelijkProduct:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (Product.HFV.GeefProductID() = OorspronkelijkProduct.HFV.GeefProductID())
+<Implementation><![CDATA[	Quit ((Product.HFV.GeefProductID() = OorspronkelijkProduct.HFV.GeefProductID()) && (Product.HFV.GeefLengte() = "") && (OorspronkelijkProduct.HFV.GeefLengte() = ""))
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml
===================================================================
diff -u -r70865 -r70914
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 70865)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 70914)
@@ -129,34 +129,35 @@
 	If ($Data(^PCDataOnderdelenPickingDocument(ToeleveringID))) {
 		try {
 		Do ..FileWriter.Open(BestandNaam)
-		
-		For { Set LaatsteProductId = $order(^PCDataOnderdelenPickingDocument(ToeleveringID, LaatsteProductId)) Quit:LaatsteProductId=""
-			#dim HalffabIsBewerkt As %Boolean = $Piece(^PCDataOnderdelenPickingDocument(ToeleveringID, LaatsteProductId),"/", 2)
-			Set IdentNr = ..ProductAPI.GeefIdentNummerVoorProductId(LaatsteProductId)
-			Set Aantal = $Piece(^PCDataOnderdelenPickingDocument(ToeleveringID, LaatsteProductId),"/", 1)
-			Set BoxBarcode = ToeleveringID
-			Set HLXLocatie = $$$ProductGet(LaatsteProductId, $$$ControleStatus) ; herbruik van veld voor HLX Locatie
-			Set OBJTIdentNr = LookupService.GeefOBJTIdentNr(IdentNr)
-			Set OBJTIdentNr = ##class(TECH.StringUtils).Replace(OBJTIdentNr, ".", "")
-			Set Product = ##class(Prod.Product).%OpenId(LaatsteProductId)
-			Set PCDataLocatie = ..GeefPCDataLocatie(Product)
-			Set KortTekst = Product.KortTekst
-			Set PackAmount = 0
-			Set PickedAmount = 0
-			Set SourceEmpty = ""
-			Set UserField2 = ""
-			Set UserField3 = ""
-			Set UserField4 = ""
-			Set UserField5 = ""
-			Set UserField6 = ""
-			
-			If $$$Not(PCDataLocatie = "") && $$$Not(HalffabIsBewerkt) {
-				Do ..FileWriter.WriteLine("P" _"|"_ $Extract(ToeleveringID,2,6) _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6)
-			} Else {
-				If $$$Not(PCDataLocatie = "") {
+		#dim HalffabIsBewerkt As %Boolean
+		For HalffabIsBewerkt=0: 1: 1 {
+			For { Set LaatsteProductId = $order(^PCDataOnderdelenPickingDocument(ToeleveringID, HalffabIsBewerkt, LaatsteProductId)) Quit:LaatsteProductId=""
+				Set IdentNr = ..ProductAPI.GeefIdentNummerVoorProductId(LaatsteProductId)
+				Set Aantal = ^PCDataOnderdelenPickingDocument(ToeleveringID, HalffabIsBewerkt,LaatsteProductId)
+				Set BoxBarcode = ToeleveringID
+				Set HLXLocatie = $$$ProductGet(LaatsteProductId, $$$ControleStatus) ; herbruik van veld voor HLX Locatie
+				Set OBJTIdentNr = LookupService.GeefOBJTIdentNr(IdentNr)
+				Set OBJTIdentNr = ##class(TECH.StringUtils).Replace(OBJTIdentNr, ".", "")
+				Set Product = ##class(Prod.Product).%OpenId(LaatsteProductId)
+				Set PCDataLocatie = ..GeefPCDataLocatie(Product)
+				Set KortTekst = Product.KortTekst
+				Set PackAmount = 0
+				Set PickedAmount = 0
+				Set SourceEmpty = ""
+				Set UserField2 = ""
+				Set UserField3 = ""
+				Set UserField4 = ""
+				Set UserField5 = ""
+				Set UserField6 = ""
+				
+				If $$$Not(PCDataLocatie = "") && $$$Not(HalffabIsBewerkt) {
+					Do ..FileWriter.WriteLine("P" _"|"_ $Extract(ToeleveringID,2,6) _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6)
+				} Else {
+					If $$$Not(PCDataLocatie = "") {
 					Do ..Logger.Info("Onbekende locatie", "Product '" _ IdentNr _"' heeft geen gekende PCData locatie.")
+					}
+					Set AantalVerschillendeProductenZonderLocatie = AantalVerschillendeProductenZonderLocatie + 1
 				}
-				Set AantalVerschillendeProductenZonderLocatie = AantalVerschillendeProductenZonderLocatie + 1
 			}
 		}