Index: EWRCPF.mac.rou
===================================================================
diff -u -r37209 -r49614
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 37209)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 49614)
@@ -1,3 +1,5 @@
+
+#include BL.Derde.LevSpecifiek
 EWRCPF ;E'WMS receptie feedback [ 11/29/2003   8:15 AM ]
  Q
 CONTROL(C) ; Feedback van E'WMS betreffende het recepteren van een subreceptielijn
@@ -208,7 +210,7 @@
  If $G(^RCP("AUTO")),$D(^RCP("D",RCPNr)) Do
  .New VerwAant,WMSAant,SubLNr,SubRec,WaitTime,RcpRec,Rec
  .Set RcpRec=^RCP("D",RCPNr)
- .Quit:$P(RcpRec,D)="K"  ; Terugname
+ .Quit:(($P(RcpRec,D)="K") || ($Piece(RcpRec,"\",2) = $$$LevVanHoecke))  ; Terugname (2A : terugname = toelevering met lev VH)
  .Set Rec=^RCP("D",RCPNr,"D",BONNr,LUNr)
  .If $L($P(Rec,D,3)) Quit  ; Er is een probleem
  .Set (VerwAant,WMSAant)=0,SubLNr=""