Index: FOPQueue.csp
===================================================================
diff -u -r164 -r216
--- FOPQueue.csp	(.../FOPQueue.csp)	(revision 164)
+++ FOPQueue.csp	(.../FOPQueue.csp)	(revision 216)
@@ -115,6 +115,30 @@
 		if (msg && msg.length)  { alertVB(msg,msgTitle); document.location.reload(); }
 		return;
 	}
+
+	function cspRestartPrintTaken ()  {
+		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
+		var msg;
+		var msgTitle="Restart Printtaken";
+		var printernaam = "";
+		var secondenSindsLaatsteReprint = 600;
+		printernaam=#server(..GeefPrinternaamVanLaatsteReprint(secondenSindsLaatsteReprint))#; 
+		if (printernaam == "") {
+	//		msg = "Geen printernaam beschikbaar van Laatste Reprint (max. " + (secondenSindsLaatsteReprint /60) + " minuten geleden). " + "\n" + "Gelieve eerst een gefaalde printtaak te 'Herbeginnen'."
+			msg = "Geen printernaam beschikbaar van Laatste Reprint. " + "\n" + "Gelieve eerst een gefaalde printtaak te herbeginnen."
+			alertVB(msg,msgTitle);
+		}
+		else {
+			var msgConfirm1="Alle gefaalde printopdrachten voor printer '" + printernaam + "' herstarten?";
+			if (msgConfirm1 && msgConfirm1.length) { if (!confirmVB(msgConfirm1,msgTitle))  return; }
+			
+			msg=#server(..HerstartAlleGefaaldePrinttaken(printernaam))#; 
+			if (msg && msg.length)  alertVB(msg,msgTitle);
+			document.location.reload();
+		}
+		return;
+	}
+
 	</SCRIPT>
 
 </HEAD>
@@ -271,7 +295,8 @@
 		<INPUT type="hidden" name="QACTION"   value="ASK">
 		<INPUT type="reset"  name="RESET"     style="width:90;" value="RESET">&nbsp;&nbsp;
 	</CSP:IF>
-		<INPUT type="submit" name="ManageIDs" style="width:100;" value="Manage Items">
+		<INPUT type="submit" name="ManageIDs"  style="width:150;" value="Manage Items"> <BR>
+		<INPUT type="submit" name="ReprintAll" style="width:150;" value="Restart Printtaken" onclick="cspRestartPrintTaken();">
 <CSP:COMMENT><!--
 		<INPUT type="submit" name="DeleteIDs" style="width:100;" value="Delete Items">&nbsp;
 		<INPUT type="submit" name="MoveIDs"   style="width:100;" value="Move Items">
@@ -358,7 +383,22 @@
 	Set ^Sys.FOP.Settings("InitialStatusExpr")=""
 </SCRIPT>
 
+<SCRIPT method="HerstartAlleGefaaldePrinttaken" language="Cache" arguments="PrinterNaam" returntype="%String">
+	#dim ReturnMessage As %String = ""
+	#dim sc As %Status = ##class(BL.Sys.FOP.DataMgr).%New().HerstartAlleGefaaldePrinttaken(PrinterNaam)
+	Do:($$$ISOK(sc)) ##class(BL.Sys.FOP.Scheduler).Trigger()
+	Set ReturnMessage = "De printoprdrachten voor printer '"_PrinterNaam_"' worden opnieuw in de queue gezet. "_$S($$$ISERR(sc):$$$CRLF_"Error:"_$$ParseStatus^vhLib(sc)_$$$CRLF,1:"")
+	Quit ReturnMessage
+</SCRIPT>
 
+<SCRIPT method="GeefPrinternaamVanLaatsteReprint" language="Cache" arguments="secondenSindsLaatsteReprint" returntype="%String">
+	#dim LogLastReprint As %String = $G(^Sys.FOP.Settings("Log","LastReprint"))
+	#dim PrinterNaam As %String = $P(LogLastReprint,"\",1)
+	#dim LastReprintTijdstip As %Date = $P(LogLastReprint,"\",2)
+	// If (DateDiff(Now,LastReprintTijdstip) > secondenSindsLaatsteReprint) { Set PrinterNaam = "" } 
+	Quit PrinterNaam
+</SCRIPT>
+
 <SCRIPT method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
 #define CvtSqlMatch(%v)   $TR($$$LCase(%v)," ","")
 #define CvtNOBR(%v)       "('<NOBR>'||"_%v_"||'</NOBR>') "_%v