Index: EWORDS.mac.rou
===================================================================
diff -u -r48154 -r48164
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48154)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48164)
@@ -470,7 +470,7 @@
  
  Set Ok=0
  
- If $D(^HULP(%J,KLNr,"M","A")) {
+ If $D(^HULP(%J,KLNr,"M","A")) {	 
 	 // Alle onderstaande code 2x uitvoeren: 1x voor ORGALUX, 1x voor niet-ORGALUX.
 	 // De volledige lijst kopi�ren van de M-node naar Mtemp of MVolledig, en daarna uit M de ongewenste killen. En als er niets overschiet, niets doen.
 	 // Merge ^HULP(%J,KLNr,"MVolledig") = ^HULP(%J,KLNr,"M") 
@@ -529,43 +529,46 @@
 		 Set CONSNr = $$GETNUM^FLOW("KUL","KU1")
 		 Set PickingOpdrachtInfoIterator = ##class(BL.Legacy.EWORDS.PickingOpdrachtInfoIterator).%New(PickingOpdrachtInfoLijst, FilterIterator.Next())
 		 
-		 While (PickingOpdrachtInfoIterator.HasNext()) {
-			 Set PickingOpdrachtInfo = PickingOpdrachtInfoIterator.Next()
-			 Set ^HULP(%J, KLNr, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
-		 }	
+		 // Enkel uitvoeren als er PickingOpdrachten zijn die voldoen aan de Filter 
+		 If (PickingOpdrachtInfoIterator.HasNext()) {
+			 While (PickingOpdrachtInfoIterator.HasNext()) {
+				 Set PickingOpdrachtInfo = PickingOpdrachtInfoIterator.Next()
+				 Set ^HULP(%J, KLNr, "M", "A", PickingOpdrachtInfo.GeefOrderNummer(), PickingOpdrachtInfo.GeefOrderLijnNummer()) = PickingOpdrachtInfo.GeefData()
+			 }
 		 
-		 Do BLDCONS^EWORDS2(KLNr,$NA(^HULP(%J,KLNr,"M")),CONSNr,$P(VerzW,";"),VerzDat,DOutDate_","_DOutTime,VerzZ,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
-		 Do STORE^LOG("ORDW", CONSNr, "O", ##class(BL.Legacy.EWORDS.Save).GeefOrderNummers(CONSNr))
+			 Do BLDCONS^EWORDS2(KLNr,$NA(^HULP(%J,KLNr,"M")),CONSNr,$P(VerzW,";"),VerzDat,DOutDate_","_DOutTime,VerzZ,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
+			 Do STORE^LOG("ORDW", CONSNr, "O", ##class(BL.Legacy.EWORDS.Save).GeefOrderNummers(CONSNr))
 
-		 Set ChkBeletDone=$G(ChkBeletDone)
-		 Do VERWERK^EWORDSS(CONSNr) ; Eventueel opsplitsen in groepen
-		 
-		 If $D(^ORDW("D",CONSNr)) {
-			 ; Kan bij terugname niet meer bestaan
-			 Do ShowKennisAnker^EWORDS5(KLNr,CONSNr,1)
-			 Do:$$ChkTRANSPORT(CONSNr) TRANSPORT(CONSNr)
+			 Set ChkBeletDone=$G(ChkBeletDone)
+			 Do VERWERK^EWORDSS(CONSNr) ; Eventueel opsplitsen in groepen
 			 
-			 Set R=^ORDW("D",CONSNr)
-			 
-			 Quit:$P(R,D,20)="K"  Quit:$P(R,D,20)="B"  Quit:$P(R,D,20)="C"  Quit:ChkBeletDone="B"
-			 
-			 Set:ChkBeletDone="" Check=$$CHECK^EWORDS3(CONSNr,1),Rembours=$P(Check,D,2)
-			 If ChkBeletDone="",'Check!Rembours Do BELET^EWORDS3(CONSNr) Quit
-			 
-			 Quit:'$$MagazijnBeschikbaar(CONSNr)
-			
-			 Set Send=$S($G(DOutSend)="L":0,1:1)
-			 
-			 If Send,DOutDate>$H {
-				 Set Send=$S(DOutSend="V":1,1:"")
-				 Set:Send="" Send=$$^vhTXTPOP("EWORDS","SENDWMS",,$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$$EXTDATE^vhLib.DataTypes(DOutDate))="V"
+			 If $D(^ORDW("D",CONSNr)) {
+				 ; Kan bij terugname niet meer bestaan
+				 Do ShowKennisAnker^EWORDS5(KLNr,CONSNr,1)
+				 Do:$$ChkTRANSPORT(CONSNr) TRANSPORT(CONSNr)
+				 
+				 Set R=^ORDW("D",CONSNr)
+				 
+				 Quit:$P(R,D,20)="K"  Quit:$P(R,D,20)="B"  Quit:$P(R,D,20)="C"  Quit:ChkBeletDone="B"
+				 
+				 Set:ChkBeletDone="" Check=$$CHECK^EWORDS3(CONSNr,1),Rembours=$P(Check,D,2)
+				 If ChkBeletDone="",'Check!Rembours Do BELET^EWORDS3(CONSNr) Quit
+				 
+				 Quit:'$$MagazijnBeschikbaar(CONSNr)
+				
+				 Set Send=$S($G(DOutSend)="L":0,1:1)
+				 
+				 If Send,DOutDate>$H {
+					 Set Send=$S(DOutSend="V":1,1:"")
+					 Set:Send="" Send=$$^vhTXTPOP("EWORDS","SENDWMS",,$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$$EXTDATE^vhLib.DataTypes(DOutDate))="V"
+				 }
+				 
+				 If Send {
+					 ; Doorsturen naar WMS
+				 	Set Send=$$WMSACTIV^EWRECS()
+				 	Do:Send SEND^EWORDSW(CONSNr)
+				 }
 			 }
-			 
-			 If Send {
-				 ; Doorsturen naar WMS
-			 	Set Send=$$WMSACTIV^EWRECS()
-			 	Do:Send SEND^EWORDSW(CONSNr)
-			 }
 		 }
 		 
 		 Do PickingOpdrachtInfoIterator.Reset()