Index: EWORDS6.mac.rou
===================================================================
diff -u -r47790 -r47792
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47790)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47792)
@@ -1,4 +1,5 @@
 #include BL.Derde.LevSpecifiek
+#include vhLib.Macro
 EWORDS6 ;E'WMS Automatisch markeren voor orderpicking [ 10/28/2003  10:26 AM ]
  
  /*
@@ -19,14 +20,12 @@
 SendWMS(ORDNr)
 	New %J,I,R,PRNr,Aantal,OLUNr,LeverDag,CONSNr,VerzDat,DOutDate,DOutTime,VerzW,VerzZ,LevAdr,ChkBeletDone,IsVoorVandaag,ORDNrs,CumulORDNr,WaitORDNrs
 	New LandCode,PostCode
-	New IsVoorVandaagOfMorgen, InfoMelder, KlantNummer
+	New InfoMelder, KlantNummer
 	
-	#dim IsVoorVandaagOfMorgen As %Boolean = ##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
 	#dim InfoMelder As BL.Legacy.EWORDS6.InfoMelder = ##class(BL.Legacy.EWORDS6.InfoMelder).%New()
-	
 	Do InfoMelder.Controleer(ORDNr)
 	
- 	If (IsVoorVandaagOfMorgen) {
+ 	If (##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)) {
   		#dim KlantNummer As %String = ##class(BL.Legacy.EWORDS6).GeefKlantNummer(ORDNr, D)
   		
   		Set ORDNrs = $$Cumul(ORDNr)
@@ -40,8 +39,10 @@
 		 	Set $Piece(WaitORDNrs,";",I) = $Piece(WaitORDNrs,";",I+1,99)
 	 	}
 	 	
-	 Quit:'$$Lock(ORDNrs)
-	 Set IsVoorVandaag=IsVoorVandaagOfMorgen=1
+	 	Quit:$$$Not($$Lock(ORDNrs))
+	 	
+	 	Set IsVoorVandaag = 1
+	 	
 	 Set %J=$$%J^vhRtn1()
 	 Kill ^HULP(%J)
 	 Set R=^KO1(ORDNr,"F"),KlantNummer=$P(R,D)