Index: EWRCPF.mac.rou
===================================================================
diff -u -r50830 -r58229
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 50830)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58229)
@@ -6,7 +6,7 @@
  ; Opgeroepen door EWRECR     
  ; C wordt opgeroepen via .Local
  New RCPNr,BONNr,LUNr,SubLNr,MSubLNr,Qty,SubRec,MSubRec
- Set RCPNr=C("RCPNR")
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
  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=C("RCPNR")
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
  Set BONNr=C("BONNR")    
  Set LUNr=C("RCPLNR")\100
  Set SubLNr=C("RCPLNR")#100*100+C("RCPLSPLITSNR")
@@ -230,7 +230,7 @@
  New RCPNr,BONNr,LUNr,RCPRec,RCPStat,LRec,Status,OLStat
  If C("STATUS")'="ROK" Do  Quit  ; Terugmelding bij het terugtrekken van een order
  .Do ERROR^EWLOG($T(RCPCANC))
- Set RCPNr=C("RCPNR")
+ Set RCPNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId( C("RCPNR") )
  If RCPNr,$D(^RCP("D",RCPNr))
  Else  Do ERROR^EWLOG($T(NORCP)) Quit
  Lock +^RCP("D",RCPNr)
Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r43059 -r58229
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 43059)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 58229)
@@ -243,14 +243,15 @@
 	// Checken of WMS en ADMIN communicatie vlot verlopen is
 	//----------------------------------------------------------------------------------------------
 	;Loglijn ^RCP inhoud
-	New LUNr,SubLNr
+	New LUNr,SubLNr,RcpNr
 	Set LUNr=RCPLNR\100
 	Set SubLNr=RCPLNR#100*100+RCPLSPLITSNR
+	Set RcpNr = ##class(BL.MB.UGLYPicking.General).GeefReceptieId(OrderNr)
 
-	$$$WriteToLog("CHECK ^RCP (OrderNr: "_OrderNr_", BonNr: "_BonNr_", LUNr: "_LUNr_", SubLNr: "_SubLNr_")")
-	Quit:('$D(^RCP("D",OrderNr,"D",BonNr,LUNr,SubLNr))) "Er is mogelijk een communicatieprobleem tussen WMS en ADMIN, probeer later eens opnieuw."
+	$$$WriteToLog("CHECK ^RCP (RcpNr: "_RcpNr_", BonNr: "_BonNr_", LUNr: "_LUNr_", SubLNr: "_SubLNr_")")
+	Quit:('$D(^RCP("D",RcpNr,"D",BonNr,LUNr,SubLNr))) "Er is mogelijk een communicatieprobleem tussen WMS en ADMIN, probeer later eens opnieuw."
 
-	$$$WriteToLog("VALUE: "_$G(^RCP("D",OrderNr,"D",BonNr,LUNr,SubLNr)))
+	$$$WriteToLog("VALUE: "_$G(^RCP("D",RcpNr,"D",BonNr,LUNr,SubLNr)))
 
 	//----------------------------------------------------------------------------------------------
 	// SECTIE voor product achterhalen
@@ -360,7 +361,7 @@
 	//----------------------------------------------------------------------------------------------
 	New C06
 	Set C06="C06"
-	Set C06("RCPNR")=OrderNr
+	Set C06("RCPNR")=RcpNr
 	Set C06("BONNR")=BonNr
 	Set C06("RCPLNR")=RCPLNR
 	Set C06("RCPLSPLITSNR")=RCPLSPLITSNR
@@ -389,7 +390,7 @@
 	//----------------------------------------------------------------------------------------------
 	New C07
 	Set C07="C07"
-	Set C07("RCPNR")=OrderNr
+	Set C07("RCPNR")=RcpNr
 	Set C07("BONNR")=0
 	Set C07("RCPLNR")=0
 	Set C07("EINDDAT")=$H
Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r29059 -r58229
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 29059)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58229)
@@ -565,6 +565,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[
+	#dim ReceptieId As %String = ReceptieNummer
+	If '$D(^RCP("D",ReceptieId)) {
+		Set ReceptieId = ReceptieId _ "0"
+	}
+	Quit ReceptieId
+]]></Implementation>
+</Method>
+
 <Method name="PalletIDHasControlChars">
 <ClassMethod>1</ClassMethod>
 <CodeMode>expression</CodeMode>