Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r5270 -r8456
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 5270)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 8456)
@@ -591,7 +591,8 @@
  Set:(CloseTime="") CloseTime=$H  ;Eventuele error opvangen
  Set CloseTime=$ZDT(CloseTime,2,2)
  Set Msg=ReceptieGroep_" receptie afgesloten door '"_UserId_"' op "_CloseTime_$S(DoMailOnly:" (mail delayed).",1:".")
- Set Status=$$SendMiniMail^vhLib($$$SystemMail("Receptie-UGLY"),EmailList,"UGLY Receptie "_CloseTime,Msg)
+ ; geen mails meer PV 05 03 2012
+ Set Status=$$$OK ;$$SendMiniMail^vhLib($$$SystemMail("Receptie-UGLY"),EmailList,"UGLY Receptie "_CloseTime,Msg)
 
  ;Error?
  If $$$ISERR(Status) Do  Quit $LB(-2,$$ParseStatus^vhLib(Status))
@@ -1912,6 +1913,9 @@
 
 	For  Set RGIDLoop=$O(^UPRCP("B",RGIDLoop)) Quit:(RGIDLoop="")  Do
 	. For  Set VolgNrLoop=$O(^UPRCP("B",RGIDLoop,VolgNrLoop)) Quit:(VolgNrLoop="")  Do
+	..  D WLIP^vhDBG(127,"RGIDLoop:"_RGIDLoop)
+	..  D WLIP^vhDBG(127,"VolgNrLoop"_VolgNrLoop)
+	..  D WLIP^vhDBG(127,"^UPRCP(B,"_RGIDLoop_","_VolgNrLoop_")")
 	..  Set Rec=^UPRCP("B",RGIDLoop,VolgNrLoop)
 	..  Quit:('$P(Rec,SEP,2))   ;Indien buffer closed niet quit'en, deze moeten gechecked worden
 	..  Set:('$P(Rec,SEP,4)) UnhandledCnt=UnhandledCnt+1  ;Piece 4: IsHandled