Index: EWORDST.mac.rou =================================================================== diff -u -r50347 -r54530 --- EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 50347) +++ EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 54530) @@ -901,6 +901,7 @@ ..If WMSStat="W" Quit:'$$WMSACTIV^EWRECS() ..Quit:sFL(1)=OldRec ; Niets veranderd ..Set ^ORDW("D",CONSNr)=sFL(1) + ..Do ##class(vhLib.Logger).%New("EWORDST").Debug("CONSNr : " _CONSNr,"Set ^ORDW(""D""," _CONSNr _") = " _^ORDW("D",CONSNr)) ..;Quit:WMSStat'="W" ; Reeds doorgestuurd - gewijzigd PV 4/06/2006, ..For SoftV="E",1:1:3 Do:$P($G(^ORDW("D",CONSNr,"S",SoftV)),D,1)="W" ; allen waaraan nog niet begonnen is ...Do VERZZEND(CONSNr,SoftV,sFL(1))