Index: EWRCPF.mac.rou
===================================================================
diff -u -r58337 -r66310
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58337)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 66310)
@@ -29,6 +29,7 @@
  Else  If C("ACTIE")="D" Do ACTIED ; Receptie wissen=1 slavelijn
  
  Set:SubRec'="" ^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)=SubRec
+ Do:(SubRec'="") ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).MarkeerOntvangst(RCPNr,BONNr,LUNr,SubLNr) ;OBJT
  If $G(^EWLOG("DEBUG"))=2 Write !,SubRec
  Do QTYSTAT(RCPNr,BONNr,LUNr)
  Lock -^RCP("D",RCPNr)
@@ -337,8 +338,8 @@
  .Lock -^RCP("URG",RCPNr)
  .Do:$D(^RCP("AUTO",RCPNr)) CHKAUTO(RCPNr)
  Quit
- 
 
+
 CHKAUTO(RCPNr) 
  New R,LRec,WaitTime,LEVNr,TOENr,TLUNr,SetTime,Mail,KlantId,KLNr,ORDNr,OneRCP,%TC
  If $G(^RCP("AUTO")) Do