Index: EWCORR.mac.rou
===================================================================
diff -u -r29059 -r66310
--- EWCORR.mac.rou	(.../EWCORR.mac.rou)	(revision 29059)
+++ EWCORR.mac.rou	(.../EWCORR.mac.rou)	(revision 66310)
@@ -67,6 +67,7 @@
  .Set $P(RcpRec,D,2)=RCPStat
  .Set $P(RcpRec,D,3)=AantVerw,$P(RcpRec,D,4)=AantWMSC
  .Set ^RCP("D",RCPNr,"D",TOENr,TLUNr,STLUNr)=RcpRec
+ .Do:RCPStat="C" ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).MarkeerOntvangst(RCPNr, TOENr, TLUNr, STLUNr) ;OBJT
  Else  If TLUNr,TOENr,RCPNr Do
  .Do RCPMAN(RCPNr,TOENr,TLUNr)
  .Q