Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r58233 -r58504
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58233)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58504)
@@ -573,14 +573,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[
 	Set ReceptieId = ReceptieNummer
-	If '$D(^RCP("D",ReceptieId)) {
-		Set ReceptieId = ReceptieId _ "0"
+	Set SoprTeller = 0
+	Set ReceptieIdVoorSoprGevonden = $$$False
+	
+	While ((SoprTeller <= 9) && $$$Not(ReceptieIdVoorSoprGevonden)) {
+		If (Bonnummer) {
+			If $D(^RCP("D",ReceptieId_SoprTeller,"D",Bonnummer)) {
+				Set ReceptieId = ReceptieId _ SoprTeller
+				Set ReceptieIdVoorSoprGevonden = $$$True
+			}
+		} Else {
+			If $D(^RCP("D",ReceptieId_SoprTeller)) {
+				Set ReceptieId = ReceptieId _ SoprTeller
+				Set ReceptieIdVoorSoprGevonden = $$$True
+			}
+		}
+		Set SoprTeller = SoprTeller + 1
 	}
+	
 	Quit ReceptieId
 ]]></Implementation>
 </Method>