Index: EWORDS6.mac.rou
===================================================================
diff -u -r48161 -r48361
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 48161)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 48361)
@@ -2,18 +2,16 @@
 #include vhLib.Macro
 EWORDS6 ;E'WMS Automatisch markeren voor orderpicking [ 10/28/2003  10:26 AM ]
  
- /*
-	
-	============================================================================================================================
+ /*	
+ 	============================================================================================================================
 	BELANGRIJK : 
 	============ 
 	
 	De controles om te mogen groeperen ("Cumuleer Order" of kortere naam ... ) moeten in 2 routines in sync gehouden worden !!! 
 	 - EWORDS3 : manueel markeren (via Admin-scherm, UI met vhTXTPOP-meldingen) 
 	 - EWORDS6 : automatisch markeren (via background job, cfr. IsVoorVandaagOfMorgen) 
 	
-	============================================================================================================================
-	
+	============================================================================================================================	
  */ 
  
  ; WMS verwerking en eventueel doorsturen naar Egemin software indien voor vandaag
@@ -24,7 +22,6 @@
 	New OrderApi, OrderLijn, OrderLijnIterator
 	New PickingOpdrachtInfo, PickingOpdrachtInfoIterator, PickingOpdrachtInfoLijst
 	
-	
 	#dim PickingDag As BL.Legacy.EWORDS6.enu.PickingDag = ##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
 	
 	Do ##class(BL.Legacy.EWORDS6.InfoMelder).%New().Controleer(ORDNr)
@@ -55,9 +52,9 @@
 		 	#dim OrderLijnIterator As TECH.Iterator = OrderApi.GeefOrder(CumulORDNr).GeefOrderLijnIterator()
 		 	
 		 	While (OrderLijnIterator.HasNext()) {
-			 	#dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = OrderLijnIterator.Next()
-			 	
-			 	If $$$Not(OrderLijn.GeefProductID() = "") {
+			 	#dim OrderLijn As DOM.VKP.ProductOrderlijn = OrderLijnIterator.Next()
+			 				 	
+			 	If (OrderLijn.%IsA("DOM.VKP.impl.DataM.DataMProductOrderlijn") && $$$Not(OrderLijn.GeefProductID() = "")) {
 				 	Do PickingOpdrachtInfoLijst.Insert(##class(BL.Legacy.EWORDS.PickingOpdrachtInfo).%New(OrderLijn.GeefAantal(), OrderLijn.GeefLeverdag(), OrderLijn.GeefOrderID(), OrderLijn.GeefID()))
 			 	}
 		 	}
@@ -470,7 +467,7 @@
  Set Q="K",D="\",U=";",Horolog=$H
  If $$AutoSendIsActief() {
 	 Lock +^ORDW("AUTO"):30
-	 Quit:'$T
+	 Quit:$$$Not($Test)
 	 Set KLNr=0
 	 For {
 		 Set KLNr=$O(^KOD(KLNr))