Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r70845 -r70855
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70845)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70855)
@@ -399,10 +399,16 @@
 					Set TeGebruikenProductId = ..GeefAfdekkapBinnen(Variant, LadeHoogte, LadeKleur, KlantID)
 				}
 			}
-			Set Product.HFV.Aantal = Product.HFV.Aantal
 			Set Product.HFV.Omschrijving = RolOmschrijving
 			Set Product.HFV.ProductID = TeGebruikenProductId
 			Set Product.HFV.Korttekst = ..GeefKorttekstVanProduct(TeGebruikenProductId)
+			
+			Set Prod = ##class(Prod.Product).%OpenId(TeGebruikenProductId)
+			If (Prod.CycleCountTypeWMS = "") {
+				Set Product.HFV.Locatie = "XXX"	
+			} Else {
+				Set Product.HFV.Locatie = ""	
+			}
 		}
 		
 		Do SamengesteldeLijst.Insert(Product)	
Index: APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml
===================================================================
diff -u -r70842 -r70855
--- APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 70842)
+++ APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 70855)
@@ -185,8 +185,15 @@
 	Set ..Korttekst = AdministratiefProduct.GeefKorttekst()
 	Set ..ProductID = AdministratiefProduct.GeefID()
 	Set ..Omschrijving = Item.GeefOmschrijvingVoorPicking()
-	Set ..Locatie = $Piece(^KPR(AdministratiefProduct.GeefID(), 1), "\", 12)
+	Set Product = ##class(Prod.Product).%OpenId(AdministratiefProduct.GeefID())
+	Set ..Locatie = Product.CycleCountTypeWMS
 	
+	If (..Locatie = "") {
+		Set ..Locatie = "XXX"
+	} Else {
+		Set ..Locatie = ""
+	}
+	
 	Do ..VulInKleur(Item)
 		
 	Set ..Rol = Item.GeefRol()
Index: APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml
===================================================================
diff -u -r70383 -r70855
--- APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70383)
+++ APPS/Halux/PPS/Document/impl/LBX/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70855)
@@ -13,16 +13,21 @@
 <Default>2</Default>
 </Parameter>
 
-<Parameter name="PosAantal">
+<Parameter name="PosLocatie">
 <Type>%Integer</Type>
 <Default>3</Default>
 </Parameter>
 
-<Parameter name="PosLengte">
+<Parameter name="PosAantal">
 <Type>%Integer</Type>
 <Default>4</Default>
 </Parameter>
 
+<Parameter name="PosLengte">
+<Type>%Integer</Type>
+<Default>5</Default>
+</Parameter>
+
 <Parameter name="Delimiter">
 <Type>%String</Type>
 <Default>\</Default>
@@ -180,10 +185,11 @@
 		#dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next()
 		If ..HeeftItems(OPVoorEenProductLijst) {
 			#dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1)
-			Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,4)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count()
+			Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,5)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count()
 			If ($$$HasLength(DataVoorLijn.HFV.GeefLengte()) || VermeldKorttekst) && EersteLijnProduct {
 				Set $Piece(Lijn,..#Delimiter,..#PosAantal) = DataVoorLijn.HFV.GeefAantal()
 				Set $Piece(Lijn,..#Delimiter,..#PosLengte) = DataVoorLijn.HFV.GeefLengte()
+				Set $Piece(Lijn,..#Delimiter,..#PosLocatie) = DataVoorLijn.HFV.GeefLocatie()
 				Set EersteLijnProduct = 0
 			}
 			If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst.
@@ -244,7 +250,7 @@
 <FormalSpec>Lijn:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$HasLength(Lijn) && ($$$HasLength($Piece(Lijn,..#Delimiter,..#PosOmschrijving)) || $$$HasLength($Piece(Lijn,..#Delimiter,..#PosAantal)) || $$$HasLength($Piece(Lijn,..#Delimiter,..#PosLengte)))
+<Implementation><![CDATA[	Quit $$$HasLength(Lijn) && ($$$HasLength($Piece(Lijn,..#Delimiter,..#PosLocatie)) ||$$$HasLength($Piece(Lijn,..#Delimiter,..#PosOmschrijving)) || $$$HasLength($Piece(Lijn,..#Delimiter,..#PosAantal)) || $$$HasLength($Piece(Lijn,..#Delimiter,..#PosLengte)))
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/DocumentDefinitie/LBX/OnderdelenPickingLijst.cls.xml
===================================================================
diff -u -r56785 -r70855
--- APPS/Halux/PPS/DocumentDefinitie/LBX/OnderdelenPickingLijst.cls.xml	(.../OnderdelenPickingLijst.cls.xml)	(revision 56785)
+++ APPS/Halux/PPS/DocumentDefinitie/LBX/OnderdelenPickingLijst.cls.xml	(.../OnderdelenPickingLijst.cls.xml)	(revision 70855)
@@ -24,6 +24,7 @@
     // maak kolommen aan
     Do DocumentType.VoegKolomDefinitieToe(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Product omschrijving",32,##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("Loc",4,##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()))