Index: vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml
===================================================================
diff -u -r70903 -r70918
--- vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 70903)
+++ vhUnitTest/APPS/Halux/PPS/TBXPers/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 70918)
@@ -72,45 +72,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestZetStatus">
-<Implementation><![CDATA[
-	
-	#dim BatchID As %String = ..Batch.%Id()	
-	#dim BatchSpecialsID As %String = ..BatchSpecials.%Id()
-	#dim BatchesResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "BatchIDList"))
-	#dim OpdrachtCount As %Integer = 0
-	
-	While (BatchesResultSet.Next()) {
-		#dim BatchIDVanPerslijst As %String = $Piece(BatchesResultSet.Data("BatchID"), "||")
-		
-		If ((BatchIDVanPerslijst = BatchID) || (BatchIDVanPerslijst = BatchSpecialsID)) {
-			#dim OpdrachtenResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.ClassQuery).%New("BL.PPS.TBX.WPPers", "GetTBXsProdDef", $ListBuild(BatchesResultSet.Data("BatchID"))))
-			
-			While (OpdrachtenResultSet.Next()) {
-				#dim UniekeID As %String = OpdrachtenResultSet.Data("UniqueID")
-				#dim Queue As DS.PPS.TBX.Queue = ##class(DS.PPS.TBX.Queue).%OpenId(UniekeID)
-				#dim ProductNummer As %String = Queue.Product.%Id()
-
-				Do ..Werkpost.ZetStatus(UniekeID)
-				
-				Set OpdrachtCount = $Increment(OpdrachtCount)
-
-				Do $$$AssertEquals(Queue.WPPers.WPStatus, "F", "ZetStatus : queue status")
-
-				If (ProductNummer = $Parameter(..MaakSequentie, "TBXSpoelbak")) {
-					Do $$$AssertEquals(OpdrachtenResultSet.Data("Status"), "?", "Status = Reeds geproduceerd")
-					Do $$$AssertNotEquals(OpdrachtenResultSet.Data("Info1"), "", "Info moet ingevuld zijn ingevuld")
-				}
-			}
-			
-			Set OpdrachtenResultSet = "" ; Close van de crazy query.
-		}
-	}
-	
-	Do $$$AssertEquals(OpdrachtCount, 5, "Aantal te persen opdrachten")
-]]></Implementation>
-</Method>
-
 <Method name="TestBeschadiging">
 <Implementation><![CDATA[
 	#dim BatchID As %String = ..Batch.%Id()