Index: EWRCPF.mac.rou
===================================================================
diff -u -r49614 -r50830
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 49614)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 50830)
@@ -191,6 +191,7 @@
  Set Qty=C("DELTAIN")
  Set SubRec=$G(^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr))
  If SubRec="" Do ERROR^EWLOG($T(NOSOL))
+ Do INFO^EWLOG($T(LOGRCP))
  If $G(^EWLOG("DEBUG"))=2 Write !,@FMTB,"C06:",RCPNr,";",BONNr,";",LUNr,";",SubLNr,@FMTb,!,SubRec
  If C("STATUS")="RNOK" Do  ; Receptie NIET OK
  .Set $P(SubRec,D,2)="E"
@@ -337,6 +338,7 @@
  .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
@@ -345,7 +347,7 @@
  ..Set R=^RCP("D",RCPNr),LEVNr=$P(R,D,2),TOENr=""
  ..Do ADD^vhLock($NA(^RCP("D",RCPNr))) Quit:'%TC
  ..For  Set TOENr=$O(^RCP("D",RCPNr,"D",TOENr)) Quit:TOENr=""  Do
- ...If '$D(^KTO(LEVNr,TOENr)) Do  Quit  ;Onbestaande
+ ...If '$D(^TO("IU",TOENr)) Do  Quit  ;Onbestaande 
  .... Kill ^RCP("AUTO",RCPNr,TOENr)
  .... ;Do ERROR^EWLOG($T(AUTODEL))
  ...Set R=^KTO(LEVNr,TOENr,1),KLNr=$P(R,D,8),ORDNr=$P(R,D,7),TLUNr=""
@@ -375,7 +377,7 @@
  
 WAITTIME() 
  New WaitTime
- Set WaitTime=$S($P($H,",",2)<(16*3600):30,1:5)*60
+ Set WaitTime=$S($P($H,",",2)<(16*3600):5,1:1)*60
  Quit WaitTime
  
  ; Ophalen van de gebruikers naar wie de urgente mail moet verzonden worden
@@ -421,6 +423,5 @@
 RCPSTAT2 ;"De status van sommige receptielijnen zijn nog niet afgesloten :"_$G(C("VOLGNR"))_";"_C("RCPNR")_";"_C("BONNR")_";"_RCPLStat
 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)
 
-
-