Index: EWRCPF.mac.rou
===================================================================
diff -u -r58229 -r58337
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58229)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58337)
@@ -6,7 +6,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
@@ -180,7 +180,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")