Index: FOPQueue.csp
===================================================================
diff -u -r38 -r96
--- FOPQueue.csp	(.../FOPQueue.csp)	(revision 38)
+++ FOPQueue.csp	(.../FOPQueue.csp)	(revision 96)
@@ -88,6 +88,31 @@
 		document.location.reload();
 		return;
 	}
+
+	function cspStelInVoorDocBaseHerstart ()  {
+		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
+		var msg;
+		var msgTitle="StelInVoorDocBaseHerstart";
+		var msg=#server(..StelInVoorDocBaseHerstart())#; 
+		if (msg && msg.length)  alertVB(msg,msgTitle);
+		return;
+	}
+	function cspVerzendTestPrinttaak ()  {
+		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
+		var msg;
+		var msgTitle="VerzendTestPrinttaak";
+		var msg=#server(..VerzendTestPrinttaak())#; 
+		if (msg && msg.length)  alertVB(msg,msgTitle);
+		return;
+	}
+	function cspAlleNieuweTakenDoorlaten ()  {
+		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
+		var msg;
+		var msgTitle="AlleNieuweTakenDoorlaten";
+		var msg=#server(..ZetStatusVoorNieuwePrintertaken(""))#; 
+		if (msg && msg.length)  alertVB(msg,msgTitle);
+		return;
+	}
 	</SCRIPT>
 
 </HEAD>
@@ -232,7 +257,17 @@
 	</P>
 	</FORM>
 	<BR>
-	<P>Edit the <A href="#("/csp/sys/exp/UtilExpGlobalView.csp?$ID2=Sys.FOP.Settings&$NAMESPACE="_$$$NSpace)#" target="_blank">global ^Sys.FOP.Settings</A></P>
+	<BR>
+	<BR>
+	<DIV class="clsQActions" style="width:400px;" >
+		<P>Bij herstart van de DocBase-services</P>
+		<P style="margin:3px;">
+			<INPUT type="button" style="width:250;" value="StelInVoorDocBaseHerstart" onclick="cspStelInVoorDocBaseHerstart();"><BR>
+			<INPUT type="button" style="width:250;" value="VerzendTestPrinttaak" onclick="cspVerzendTestPrinttaak();"><BR>
+			<INPUT type="button" style="width:250;" value="AlleNieuweTakenDoorlaten" onclick="cspAlleNieuweTakenDoorlaten();"><BR>
+		</P>
+		<P>Edit the <A href="#("/csp/sys/exp/UtilExpGlobalView.csp?$ID2=Sys.FOP.Settings&$NAMESPACE="_$$$NSpace)#" target="_blank">global ^Sys.FOP.Settings</A></P>
+	</DIV>
 </CSP:IF>
 
 </BODY>
@@ -265,6 +300,43 @@
 	Quit "SysFopScheduler "_$S(sc=0:"is niet actief.", $$$ISERR(sc):"is NIET correct gestopt! "_$$$CRLF_"Error :"_$$ParseStatus^vhLib(sc), 1:"is correct gestopt.")
 </SCRIPT>
 
+
+
+
+<SCRIPT method="VerzendTestPrinttaak" language="Cache" arguments="" returntype="%String">
+	#dim ReturnMessage As %String = ""
+	#dim AdminOfferteID = 534679
+	#dim PrinterNaam = "ICT6050"
+	#dim sc As %Status = ##class(BL.Flow.Offerte.Doc).RenderAndPrintDoc("O-"_AdminOfferteID,PrinterNaam,1)
+	Set ReturnMessage = "Testopdracht (offerte "_AdminOfferteID_" printen op "_PrinterNaam_") naar de server gestuurd. "_$S($$$ISERR(sc):"Error:"_$$ParseStatus^vhLib(sc),1:"")
+	Quit ReturnMessage
+</SCRIPT>
+
+<SCRIPT method="StelInVoorDocBaseHerstart" language="Cache" arguments="" returntype="%String">
+	#dim ReturnMessage As %String = ""
+	Set ReturnMessage = ..ZetStatusVoorNieuwePrintertaken("H")
+	Set ReturnMessage = ReturnMessage _ $$$CRLF _"Gelieve de FOP-scheduler manueel te blokkeren : Toggle ON/OFF."
+	Quit ReturnMessage
+</SCRIPT>
+
+<SCRIPT method="ZetStatusVoorNieuwePrintertaken" language="Cache" arguments="StatusVoorNieuwePrintertaken" returntype="%String">
+	#dim ReturnMessage As %String = ""
+	If $$$Trim(StatusVoorNieuwePrintertaken)="" {
+		Do ..AlleNieuweTakenDoorlaten()
+		Set ReturnMessage = "Alle nieuwe taken worden doorgelaten (status W)."
+	}
+	Else {
+		Set ^Sys.FOP.Settings("InitialStatusExpr")="$S($IsObject(%this.Task)&&$IsObject(%this.Task.ActionPrint)&&(%this.Task.ActionPrint.Printer'="""")&&(%this.Task.ActionPrint.Printer'=""ICT6050""):"""_StatusVoorNieuwePrintertaken_""", 1:""W"")"
+		Set ReturnMessage = "Status voor nieuwe printertaken ingesteld op "_StatusVoorNieuwePrintertaken_"."
+	}
+	Quit ReturnMessage
+</SCRIPT>
+
+<SCRIPT method="AlleNieuweTakenDoorlaten" language="Cache" arguments="" returntype="">
+	Set ^Sys.FOP.Settings("InitialStatusExpr")=""
+</SCRIPT>
+
+
 <SCRIPT method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
 #define CvtSqlMatch(%v)   $TR($$$LCase(%v)," ","")
 #define CvtNOBR(%v)       "('<NOBR>'||"_%v_"||'</NOBR>') "_%v