Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r69672 -r69743
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 69672)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 69743)
@@ -69,7 +69,8 @@
 		#dim Hoofding as Flow.OrderWMS.Hoofding = ##class(Flow.OrderWMS.HoofdingRepository).%New().GeefViaID(..CONSNr)
 		If Hoofding.StatusWMS = "W" {
 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Er was nog niks gepicked, dus we verwijderen de picking en markeren dat het order niet direct terug mag doorgestuurd worden "_ ..CONSNr) 
-			DO UNMARK^EWORDST(..CONSNr)
+			do ##class(vhLib.OldSchool).InitVars()
+			DO DELOBJ^EWORDST(..CONSNr)
 			Set PickingVerwijderd = $$$True
 		} else {
 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Er zijn al lijnen gepicked, dus we verwerken het bericht voor picking "_ ..CONSNr) 
Index: EWORDST.mac.rou
===================================================================
diff -u -r69296 -r69743
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 69296)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 69743)
@@ -571,6 +571,7 @@
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D,1),MailId=$P(R,D,7)
  Kill ^ORDW("IK",KLNr,CONSNr),^ORDW("IW",CONSNr)
  For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
+ .Set ^ORDW("NOSEND",ORDNr)=$H ;aut opnieuw doorsturen uitstellen
  .For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do REMLINE(CONSNr,ORDNr,OLUNr)
  Kill ^ORDW("D",CONSNr)
  Do UNLOCK(CONSNr)