Index: APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml
===================================================================
diff -u -r2142 -r2322
--- APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 2142)
+++ APPS/MAG/UGLYPicking/dto/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 2322)
@@ -50,5 +50,9 @@
 <Property name="LeverancierReferentie">
 <Type>%String</Type>
 </Property>
+
+<Property name="IsPickbaar">
+<Type>%Boolean</Type>
+</Property>
 </Class>
 </Export>
Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r2142 -r2322
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 2142)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 2322)
@@ -442,6 +442,7 @@
 	{
 		Set ProductLijn = ..GeefProductLijnBasis(ResultSet.Data("AantalTePicken"), ResultSet.Data("Product"), MagazijnID)
 		Set ProductLijn.LocatieID = ResultSet.Data("LocTrans")
+		Set ProductLijn.IsPickbaar = ##class(EWMS.TransLoc).IsPickbaar(ProductLijn.LocatieID)
 		Set ProductLijn.PalletID = ResultSet.Data("PalletID")
 		Set ProductLijn.HeeftChargeNummer = ##class(BL.ProdHist.ChargeTrace).IsChargeProduct(ResultSet.Data("Product"),1)
 		If (ResultSet.Data("NeedAll"))
Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r2142 -r2322
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 2142)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 2322)
@@ -169,6 +169,7 @@
 	
 	Do $$$AssertEquals(ProductLijn.Aantal,2,"Het aantal producten te picken")
 	Do $$$AssertEquals(ProductLijn.ProductData.ID,154599,"Het te picken product")
+	Do $$$AssertEquals(ProductLijn.IsPickbaar,1,"Het te picken product is pickbaar.")
 	Do $$$AssertEquals(ProductLijn.MagazijnID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos(),"Aventos magazijn")
 	Do $$$AssertTrue($Length(ProductLijn.LeverancierReferentie),"De leverancierreferentie is ingevuld")
 	
@@ -375,6 +376,9 @@
 	Set ^ORDW("D",ID,"D",119047,100) = "154599\B\\2\0\\\A\\200"
 	Set ^ORDW("D",ID,"D",119047,100,100) = "154599\W\2\0\\62210,53942\\\\00218051\\FVS\A\U"
 	
+	Set Pickbaar = 1
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04B25A03",Pickbaar)
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>