Index: BL/Sys/FOP/DataMgr.cls.xml
===================================================================
diff -u -r29059 -r54974
--- BL/Sys/FOP/DataMgr.cls.xml	(.../DataMgr.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/DataMgr.cls.xml	(.../DataMgr.cls.xml)	(revision 54974)
@@ -388,6 +388,35 @@
 	Quit sc
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAlleGefaaldePrinttaken">
+<FormalSpec>PrinterNaam:%String</FormalSpec>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlStatement As TECH.String = "SELECT ID  FROM Sys_FOP.TaskQueue  WHERE (Status = 'E') AND (RunMode = 'B') AND (Task->ActionPrint_Printer = ? ) " 
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB(PrinterNaam) ))
+	
+	Quit ResultSet
+]]></Implementation>
+</Method>
+
+<Method name="HerstartAlleGefaaldePrinttaken">
+<FormalSpec>PrinterNaam:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit:($G(PrinterNaam)="") $$$ERROR($$$GeneralError,"Printernaam is leeg. Geen taken herstart.")
+	
+	#dim Status As %Status = $$$OK
+
+	#dim SqlStatement As TECH.String = "UPDATE Sys_FOP.TaskQueue  SET Status='W'  WHERE (Status = 'E') AND (RunMode = 'B') AND (Task->ActionPrint_Printer = ? ) " 
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB(PrinterNaam) ))
+	Do ResultSet.Next(.Status)
+	
+	Quit Status
+]]></Implementation>
+</Method>
 </Class>