Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r58229 -r58337
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58229)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58337)
@@ -569,14 +569,29 @@
 <Description>
 Standaard geeft deze het ReceptieNummer terug. Behalve als de subnode in ^RCP niet bestaat, dan wordt een extra "0" achteraan toegevoegd.  Uitleg PaulV. </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ReceptieNummer:%String</FormalSpec>
+<FormalSpec>ReceptieNummer:%String,Bonnummer:%String=""</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim ReceptieId As %String = ReceptieNummer
-	If '$D(^RCP("D",ReceptieId)) {
-		Set ReceptieId = ReceptieId _ "0"
+	#dim SoprTeller As %Integer = 0
+	#dim SoprGevonden As %Boolean = $$$False
+	
+	While ((SoprTeller <= 9) && $$$Not(SoprGevonden)) {
+		If $$$HasLength(Bonnummer) {
+			If $D(^RCP("D",ReceptieId_SoprTeller,"D",Bonnummer)) {
+				Set ReceptieId = ReceptieId _ SoprTeller
+				Set SoprGevonden = $$$True
+			}
+		} Else {
+			If $D(^RCP("D",ReceptieId_SoprTeller)) {
+				Set ReceptieId = ReceptieId _ SoprTeller
+				Set SoprGevonden = $$$True
+			}
+		}
+		Set SoprTeller = SoprTeller + 1
 	}
+	
 	Quit ReceptieId
 ]]></Implementation>
 </Method>
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")