Index: APPS/MAG/UGLYPicking/impl/BonInMagazijnIterator.cls.xml
===================================================================
diff -u -r1578 -r1581
--- APPS/MAG/UGLYPicking/impl/BonInMagazijnIterator.cls.xml	(.../BonInMagazijnIterator.cls.xml)	(revision 1578)
+++ APPS/MAG/UGLYPicking/impl/BonInMagazijnIterator.cls.xml	(.../BonInMagazijnIterator.cls.xml)	(revision 1581)
@@ -3,6 +3,7 @@
 <Class name="APPS.MAG.UGLYPicking.impl.BonInMagazijnIterator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.Iterator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Magazijn">
 <Type>APPS.MAG.UGLYPicking.enu.Magazijn</Type>
@@ -23,17 +24,14 @@
 	Set ..Magazijn = ##class(APPS.MAG.UGLYPicking.enu.Magazijn).DisplayToLogical(MagazijnNaam)
 	Do ..BepaalVolgende()
 	Quit $$$OK
-
 ]]></Implementation>
 </Method>
 
 <Method name="HasNext">
 <Description>
 Returns true if the iteration has more elements.</Description>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit ..HuidigConsolidatieNr '= ""
-
+<Implementation><![CDATA[	Quit ..HuidigConsolidatieNr '= ""
 ]]></Implementation>
 </Method>
 
@@ -47,19 +45,44 @@
 	Set ConsolidatieNr = ..HuidigConsolidatieNr
 	Do ..BepaalVolgende()
 	Quit ConsolidatieNr
-
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalVolgende">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..HuidigConsolidatieNr = $Order(^ORDW("IW",..HuidigConsolidatieNr))
-	While (..HuidigConsolidatieNr '= "") && ('(..Magazijn [ ^ORDW("IW",..HuidigConsolidatieNr)))
+	While (..HuidigConsolidatieNr '= "") && ('..BonBevatActieveLijnen(..HuidigConsolidatieNr))
 	{
 		Set ..HuidigConsolidatieNr = $Order(^ORDW("IW",..HuidigConsolidatieNr))
 	}
+]]></Implementation>
+</Method>
 
+<Method name="BonBevatActieveLijnen">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BevatActieveLijnen = 0
+	
+	Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(BonNr,0)
+	
+	If (OrderHoofding.VerwerkingSoftware [ ..Magazijn) && ((OrderHoofding.StatusWMS = "W") || (OrderHoofding.StatusWMS = "P"))
+	{
+		Set LijnIterator = ##class(TECH.ListIterator).%New(OrderHoofding.Lijnen)
+		While ('BevatActieveLijnen) && (LijnIterator.HasNext())
+		{
+			Set Lijn = LijnIterator.Next()
+			Set SublijnIterator = ##class(TECH.ListIterator).%New(Lijn.Subs)
+			While ('BevatActieveLijnen) && (SublijnIterator.HasNext())
+			{
+				Set Sublijn = SublijnIterator.Next()
+				Set BevatActieveLijnen = (Sublijn.StatusWMS="W") && (Sublijn.VerwerkingSoftware = ..Magazijn)
+			}
+		}
+	}
+	
+	Quit BevatActieveLijnen
 ]]></Implementation>
 </Method>
 </Class>