Index: EWORDS.mac.rou
===================================================================
diff -u -r48141 -r48154
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48141)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48154)
@@ -1,4 +1,5 @@
 #include BL.Derde.KlantSpecifiek
+#include vhLib.Macro
 EWORDS ;E'WMS Markeren voor orderpicking [ 12/04/2003  2:20 PM ]
  ;
  ;Optie S = auto select
@@ -496,13 +497,11 @@
 		 New LeverDatum, AantalVoorBackOrder, Aantal
 		 Set LijnRec = ^HULP(%J,KLNr,"M","A",ORDNr,OLU)
 		 Set AantalVoorBackOrder = $Piece(LijnRec,"\",2)
-		 Set LeverDatum = $Piece(LijnRec, "\", 3)
+		 Set LeverDatum = $Piece(LijnRec, "\", 3) // gebruik de ingevulde LevWk
+		 
 		 If (AantalVoorBackOrder > 0) {
-			 // gebruik eerst de LevWk die werd ingevuld.
-			 
-			 // nagaan of de BoLevWk was ingevuld en anders die gebruiken.
-			 If $Piece(LijnRec,"\",4)'= "" {
-				 // dan gebruik de BoLevWk die was ingevuld.
+			 // gebruik de BoLevWk indien ingevuld
+			 If $$$Not($Piece(LijnRec, "\", 4) = "") {
 				 Set LeverDatum = $Piece(LijnRec, "\", 4)
 			 }
 			 
@@ -519,9 +518,7 @@
 	 }
 	 
 	 // Alle bestaande ^HULP-nodes voor opgegeven KlantNummer en OrderNummer verwijderen
-	 Set OrderNummer = ORDNr
-	 Set KlantNummer = KLNr
-	 Kill ^HULP(%J, KlantNummer, "M", "A", OrderNummer)
+	 Kill ^HULP(%J, KLNr, "M", "A", ORDNr)
 	 
 	 If 'DOutTime do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DOutTime mag niet null zijn"))
 	 
@@ -1045,4 +1042,3 @@
  For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Set MagazijnBeschikbaar=$$MagazijnBeschikbaar^EWORDS6(ORDNr,0) Quit:'MagazijnBeschikbaar
  Quit MagazijnBeschikbaar
  ;
-