Index: EWORDF.mac.rou
===================================================================
diff -u -r1148 -r2612
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 1148)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 2612)
@@ -231,6 +231,9 @@
  .Set $P(^ORDW("D",CONSNr),D,21)="e"
  ;
  Lock +^ORDW("D",CONSNr)
+ 
+ If '$D(^ORDW("D",CONSNr,"S",SoftV)) Do  Quit  ; Soms komt er na het verwijderden nog een 2de bericht C02+POK, maar reeds bij het eerste bericht C02 + CC (confirmcancel) is de SoftVSoftV node reeds verwijderd dit bij het terugtrekken van een order
+ .Do ERROR^EWLOG($T(NOSOFTV))
  Set SoftVRec=^ORDW("D",CONSNr,"S",SoftV)
  If $G(^EWLOG("DEBUG"))=2 Write !,@FMTB,"C02:",CONSNr,@FMTb,!,CONSRec
  Set ORDStat=$P(SoftVRec,D,1)
@@ -302,6 +305,7 @@
  ; Errormeldingen
 NOSUBOL ;"Key's foutief :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_C("OLNR")_";"_C("OLSPLITSNR")
 NOSOL ;"SOLRecord bestaat niet :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_C("OLNR")_";"_C("OLSPLITSNR")
+NOSOFTV ;"SOFTV node bestaat niet :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("SOFTV")
 OPBONL ;"Reeds op bon :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_C("OLNR")_";"_C("OLSPLITSNR")
 OPBON ;"Reeds op bon :"_C("VOLGNR")_";"_C("CONSNR")
 NOKEY ;"Foutieve gegevens :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_$G(C("OLNR"))