Index: EWRCPF.mac.rou
===================================================================
diff -u -r66310 -r66956
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 66310)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 66956)
@@ -29,8 +29,9 @@
  Else  If C("ACTIE")="D" Do ACTIED ; Receptie wissen=1 slavelijn
  
  Set:SubRec'="" ^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)=SubRec
+ Do:$P(SubRec,"\",1)&&(##class(OBJTimpl.CheckObjectiveFase).ReceptieNaarOBJT($P(SubRec,"\",1))) INFO^EWLOG($T(LOGOBJT))
  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)
  Quit
@@ -425,4 +426,5 @@
 NORCP ;"Receptie bestaat niet :"_$G(C("VOLGNR"))_";"_C("RCPNR")
 DIFFQTY ;"Qty verschil bij stockage tov. controle:"_$G(C("VOLGNR"))_";"_C("RCPNR")_";"_C("BONNR")_";"_C("RCPLNR")_";Ctr:"_$P(SubRec,D,4)_";Stock:"_Qty
 LOGRCP ;"Log C06:"_$G(RCPNr)_";"_$G(BONNr)_";"_$G(LUNr)_";"_$G(SubLNr)_";"_$G(C("DELTAIN"))_";"_$G(C("PALETID"))_";"_$G(SubRec)
+LOGOBJT ;"Log C05 OBJT:"_$G(RCPNr)_";"_$G(BONNr)_";"_$G(LUNr)_";"_$G(SubLNr)_";"_$G(C("DELTAIN"))_";"_$G(C("PALETID"))_";"_$G(SubRec)