Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r52134 -r52358
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 52134)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 52358)
@@ -519,8 +519,23 @@
 <Method name="GeefAantalNogTePersen">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set BatchID=..GeefID()
-	&SQL(Select count(*) into :Aantal from PPS.TBX_Queue where BatchID=:BatchID and WPPers_WPStatus='W')
+	If ..GeefCategorie()="Tandembox"
+	{
+		Set BatchID=..GeefID()
+		&SQL(Select count(*) into :Aantal from PPS.TBX_Queue where BatchID=:BatchID and WPPers_WPStatus='W')
+	} 
+	Else
+	{
+		Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
+		Set sc=result.Prepare("SELECT sum(case status when 'uitgevoerd'then 0 else 1 end) as TeVerwerken,count(*) as Totaal FROM APPS_Halux_PPS_Activiteit_dto.ProductieSequentieWerklijstItem where informatieid='PERSAANSTURING' and BatchID=?")
+		If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+		Set sc=result.Execute(..GeefID()) If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+		Do result.Next(.sc)
+		If $$$ISOK(sc)
+		{
+			Set Aantal = result.Data("TeVerwerken")
+		}
+	}
 	Quit $G(Aantal)
 ]]></Implementation>
 </Method>