Index: EWORDST.mac.rou
===================================================================
diff -u -r29059 -r29623
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 29059)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 29623)
@@ -484,7 +484,7 @@
  ; Bepalen of meerdere picking groepen in automatisch mag
  Set MultiGrp=0
  For SoftV="E",1:1:3 Set:$D(^ORDW("D",CONSNr,"S",SoftV)) MultiGrp=MultiGrp+1
- Set Delete=MultiGrp'>1
+ Set Delete=MultiGrp'>1 // N.B. Wat hebben meerdere groepen te maken met het kunnen verwijderen van picking?
  
  ; Gelockt door andere gebruiker of Ugly picking
  Set:'$$LOCK(CONSNr) Delete=0,MultiGrp="'Gelockt door andere gebruiker'"
@@ -510,7 +510,7 @@
  . . Do REMWMS(CONSNr)  
  . Do REWRITE()
  Else  Do
- . Set R=$$^vhTXTPOP("EWORDST","NODELCONSNR","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),MultiGrp)
+ . Set R=$$^vhTXTPOP("EWORDST","NODELCONSNR","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),MultiGrp) // N.B. De MultiGrp heeft er mogelijks niets mee te maken.
  Do UNLOCK(CONSNr)
  Quit
  ;