Index: FOPQueue.csp
===================================================================
diff -u -r111 -r153
--- FOPQueue.csp	(.../FOPQueue.csp)	(revision 111)
+++ FOPQueue.csp	(.../FOPQueue.csp)	(revision 153)
@@ -112,7 +112,7 @@
 		var msg;
 		var msgTitle="AlleNieuweTakenDoorlaten";
 		msg=#server(..ZetStatusVoorNieuwePrintertaken(""))#; 
-		if (msg && msg.length)  alertVB(msg,msgTitle);
+		if (msg && msg.length)  { alertVB(msg,msgTitle); document.location.reload(); }
 		return;
 	}
 	</SCRIPT>
@@ -189,6 +189,23 @@
 						&nbsp;&nbsp; (MaxBusyTask=#(CurMaxBT)#) 
 						&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <INPUT type="button" style="width:100;" value="Stop" onclick="cspStopScheduler();"> 
 						&nbsp;&nbsp;&nbsp; <INPUT type="button" style="width:100;" value="Trigger" onclick="cspTriggerScheduler();"> 
+
+					<SCRIPT language="Cache" runat="server">
+						Set InitialStatusExpression = $G(^Sys.FOP.Settings("InitialStatusExpr"))
+						Set ToonInitialStatusExpressionMelding = $$$Not(##class(TECH.StringUtils).Equals(InitialStatusExpression,"W",""))
+
+						Set InitialStatus = $G(^Sys.FOP.Settings("InitialStatus"))
+						Set ToonInitialStatusMelding = $$$Not(InitialStatus = "W") && $$$Not(ToonInitialStatusExpressionMelding)
+					</SCRIPT>
+						<CSP:IF condition='(ToonInitialStatusExpressionMelding)'>
+							<BR>
+							LET OP : <SPAN class="clsQStatusOFF">Nieuwe taken krijgen een status die berekend wordt op basis van volgende expressie :</SPAN>
+							<BR> #(InitialStatusExpression)#
+						</CSP:IF>
+						<CSP:IF condition='(ToonInitialStatusMelding)'>
+							<BR>
+							LET OP : <SPAN class="clsQStatusOFF">Nieuwe taken komen steeds in status [#(InitialStatus)#] terecht</SPAN>
+						</CSP:IF>
 					</P>
 				</CSP:IF>
 			</TD>
@@ -199,7 +216,7 @@
 <CSP:IF condition='($L(sqlActive))'>
 	<P style="margin:3px;">
 		<U>RunMode</U>: Batch, Threaded, InLine (via Scheduler) - Synchronous (immediately) <BR>
-		<U>Status</U> : [W]ait -- [S]tarted -- [B]usy -- [P]rocessed -- [F]inished -- <SPAN style="color:#880000;">[E]rror</SPAN> -- [Y]:Synchronous <BR>
+		<U>Status</U> : [W]ait -- [S]tarted -- [B]usy -- [P]rocessed -- [F]inished -- <SPAN style="color:#880000;">[E]rror</SPAN> -- [Y]:Synchronous -- on [H]old<BR>
 	</P>
 	<SCRIPT LANGUAGE="SQL" NAME="queryA" P1=#($G(%request.Data("P1",1),"A"))#>#(sqlActive)#</SCRIPT>
 	<SCRIPT language="Cache" runat="server">Set qryAColCount=queryA.GetColumnCount()</SCRIPT>