Index: EWRCPF.mac.rou
===================================================================
diff -u -r58233 -r58504
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58233)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58504)
@@ -4,7 +4,7 @@
  ; Opgeroepen door EWRECR     
  ; C wordt opgeroepen via .Local
  New RCPNr,BONNr,LUNr,SubLNr,MSubLNr,Qty,SubRec,MSubRec
- Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR"),C("BONNR") )
  Set BONNr=C("BONNR")    
  Set LUNr=C("RCPLNR")\100
  Set MSubLNr=C("RCPLNR")#100*100 ; Master SubLijn
@@ -178,7 +178,7 @@
  ; Opgeroepen door EWRECR     
  ; C wordt opgeroepen via .Local
  New RCPNr,BONNr,LUNr,SubLNr,Qty,SubRec
- Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR"),C("BONNR") )
  Set BONNr=C("BONNR")    
  Set LUNr=C("RCPLNR")\100
  Set SubLNr=C("RCPLNR")#100*100+C("RCPLSPLITSNR")