Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r51787 -r58233
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 51787)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58233)
@@ -569,6 +569,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefReceptieId">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ReceptieId = ReceptieNummer
+	If '$D(^RCP("D",ReceptieId)) {
+		Set ReceptieId = ReceptieId _ "0"
+	}
+	Quit ReceptieId
+]]></Implementation>
+</Method>
+
 <Method name="PalletIDHasControlChars">
 <ClassMethod>1</ClassMethod>
 <CodeMode>expression</CodeMode>