Index: EWORDS.mac.rou
===================================================================
diff -u -r48118 -r48141
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48118)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48141)
@@ -496,10 +496,9 @@
 		 New LeverDatum, AantalVoorBackOrder, Aantal
 		 Set LijnRec = ^HULP(%J,KLNr,"M","A",ORDNr,OLU)
 		 Set AantalVoorBackOrder = $Piece(LijnRec,"\",2)
-		 
+		 Set LeverDatum = $Piece(LijnRec, "\", 3)
 		 If (AantalVoorBackOrder > 0) {
 			 // gebruik eerst de LevWk die werd ingevuld.
-			 Set LeverDatum = $Piece(LijnRec, "\", 3)
 			 
 			 // nagaan of de BoLevWk was ingevuld en anders die gebruiken.
 			 If $Piece(LijnRec,"\",4)'= "" {
@@ -520,6 +519,8 @@
 	 }
 	 
 	 // Alle bestaande ^HULP-nodes voor opgegeven KlantNummer en OrderNummer verwijderen
+	 Set OrderNummer = ORDNr
+	 Set KlantNummer = KLNr
 	 Kill ^HULP(%J, KlantNummer, "M", "A", OrderNummer)
 	 
 	 If 'DOutTime do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("DOutTime mag niet null zijn"))
@@ -1045,4 +1046,3 @@
  Quit MagazijnBeschikbaar
  ;
 
-