Index: BL/PPS/WPVerpak.cls.xml
===================================================================
diff -u -r30106 -r31290
--- BL/PPS/WPVerpak.cls.xml	(.../WPVerpak.cls.xml)	(revision 30106)
+++ BL/PPS/WPVerpak.cls.xml	(.../WPVerpak.cls.xml)	(revision 31290)
@@ -127,17 +127,27 @@
 <FormalSpec>QueueID,Redo</FormalSpec>
 <ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
 <Implementation><![CDATA[
-	Lock +^PPS.TBX.WPVerpak(QueueID):2	Else  Quit ; lock is noodzakelijk omdat deze routine zowel via WPPers.PollingFTP job als via WPPers.VerwerkNext(webservice) quasi gelijktijdig kan opgeroepen worden
-	Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
-	Quit:'$isObject(oQ) $$$pxStatusErrorEx("Kan queue-object niet openen.","QueueID: "_QueueID)
-	Set oQ.WPVerpak.WPStatus=$$$wsFinished
-	do:..VorigWasSnijOpdracht ..ProcessAPI.Sleep(3)
-	Set pxStatus=..Snij(oQ,.Redo)
-	Quit:($$$pxStatusIsERR(pxStatus)) pxStatus
-	Set CacheStatus=oQ.%Save()
+	; lock is noodzakelijk omdat deze routine zowel via WPPers.PollingFTP job als via WPPers.VerwerkNext(webservice) quasi gelijktijdig kan opgeroepen worden
+	Lock +^PPS.TBX.WPVerpak(QueueID):2	Else  Quit ##class(BL.Sys.Proxy.pxStatus).Create(0,"Niet gelukt om lock te verkrijgen op '^PPS.TBX.WPVerpak("_QueueID_")'") 
+	
+	#dim pxStatus As BL.Sys.Proxy.pxStatus = ""
+	Set oQ = ##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
+	if $IsObject(oQ) {
+		Set oQ.WPVerpak.WPStatus = $$$wsFinished
+		do:..VorigWasSnijOpdracht ..ProcessAPI.Sleep(3)
+		Set pxStatus = ..Snij(oQ,.Redo)
+		if '$$$pxStatusIsERR(pxStatus) {
+			#dim CacheStatus As %Status = oQ.%Save()
+			Set ..VorigWasSnijOpdracht=1
+			set pxStatus = $$$pxCacheStatusEx(CacheStatus,"Fout tijdens verwerken batch.")
+		}
+	} else {
+		set pxStatus = $$$pxStatusErrorEx("Kan queue-object niet openen.","QueueID: "_QueueID)
+	}
+	
 	Lock -^PPS.TBX.WPVerpak(QueueID)
-	Set ..VorigWasSnijOpdracht=1
-	Quit $$$pxCacheStatusEx(CacheStatus,"Fout tijdens verwerken batch.")
+	
+	Quit pxStatus
 ]]></Implementation>
 </Method>