Index: EWRCPF.mac.rou
===================================================================
diff -u -r2614 -r58233
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 2614)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58233)
@@ -4,7 +4,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
@@ -178,7 +178,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")
@@ -227,7 +227,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/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>
Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r34569 -r58233
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 34569)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 58233)
@@ -241,14 +241,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
@@ -358,7 +359,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
@@ -387,7 +388,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