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
 			}
 		}