Index: EWRCPF.mac.rou
===================================================================
diff -u -r50830 -r58229
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 50830)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58229)
@@ -6,7 +6,7 @@
  ; Opgeroepen door EWRECR     
  ; C wordt opgeroepen via .Local
  New RCPNr,BONNr,LUNr,SubLNr,MSubLNr,Qty,SubRec,MSubRec
- Set RCPNr=C("RCPNR")
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
  Set BONNr=C("BONNR")    
  Set LUNr=C("RCPLNR")\100
  Set MSubLNr=C("RCPLNR")#100*100 ; Master SubLijn
@@ -180,7 +180,7 @@
  ; Opgeroepen door EWRECR     
  ; C wordt opgeroepen via .Local
  New RCPNr,BONNr,LUNr,SubLNr,Qty,SubRec
- Set RCPNr=C("RCPNR")
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
  Set BONNr=C("BONNR")    
  Set LUNr=C("RCPLNR")\100
  Set SubLNr=C("RCPLNR")#100*100+C("RCPLSPLITSNR")
@@ -230,7 +230,7 @@
  New RCPNr,BONNr,LUNr,RCPRec,RCPStat,LRec,Status,OLStat
  If C("STATUS")'="ROK" Do  Quit  ; Terugmelding bij het terugtrekken van een order
  .Do ERROR^EWLOG($T(RCPCANC))
- Set RCPNr=C("RCPNR")
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
  If RCPNr,$D(^RCP("D",RCPNr))
  Else  Do ERROR^EWLOG($T(NORCP)) Quit
  Lock +^RCP("D",RCPNr)