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