Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1578 -r1582
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1578)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1582)
@@ -64,7 +64,8 @@
 			Set Bon.Status = ##class(APPS.MAG.UGLYPicking.enu.BonStatus).Vrij()
 		}
 		
-		Set Bon.AantalLijnen = 0		
+		Set Bon.AantalLijnen = 0
+		Set Bon.AantalActieveLijnen = 0		
 		Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(BonNr,0)
 		Set LijnIterator = ##class(TECH.ListIterator).%New(OrderHoofding.Lijnen)
 		While (LijnIterator.HasNext())
@@ -77,6 +78,10 @@
 				If (Sublijn.VerwerkingSoftware = ##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(MagazijnNaam))
 				{
 					Set Bon.AantalLijnen = Bon.AantalLijnen + 1
+					If (Sublijn.StatusWMS="W")
+					{
+						Set Bon.AantalActieveLijnen = Bon.AantalActieveLijnen + 1
+					}
 				}
 			}
 		}
Index: APPS/MAG/UGLYPicking/dto/Bon.cls.xml
===================================================================
diff -u -r1578 -r1582
--- APPS/MAG/UGLYPicking/dto/Bon.cls.xml	(.../Bon.cls.xml)	(revision 1578)
+++ APPS/MAG/UGLYPicking/dto/Bon.cls.xml	(.../Bon.cls.xml)	(revision 1582)
@@ -9,6 +9,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="AantalActieveLijnen">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="BonNr">
 <Type>%Integer</Type>
 </Property>