Index: vhLibLogging.csp
===================================================================
diff -u -r178 -r179
--- vhLibLogging.csp	(.../vhLibLogging.csp)	(revision 178)
+++ vhLibLogging.csp	(.../vhLibLogging.csp)	(revision 179)
@@ -22,90 +22,76 @@
 </div>
 
 <div class="content">
-	<CSP:IF condition='(blnSQED)'>
-	<BR>
-	<PRE>#(sqlLOGAllFields)#</PRE>
-	<PRE>#(" ... WHERE (Datum = '"_($$FormatDateTime^vhLib("MM/DD/YYYY",$H))_"' AND Detail [ 'zoekterm')")#</PRE>
-	<PRE>#(" ... WHERE (Actie IN ('DOM.AKP.event.ProductToelevLijnGemaakt','DOM.VKP.event.ProductOrderLijnGemaakt','DOM.PM.event.AdministratiefProductGemaaktEvent','ProductToelevLijnEventData'))  AND (Detail [ '...ID')")#</PRE>
-	<form name="theForm" method="post">
-		<table cellspacing="5">
-			<tr valign="top">
-				<td align="left">
-					<P class="clsSubHeader">SQL Query:</P>
-					<textarea name=QUERY rows=6 cols=100>#(sqlActive)#</textarea>
-				</td>
-				<td>
-					&nbsp;
-				</td>
-			</tr>
-		</table>
-		&nbsp;
-		<BR>
-		<BR>Aantal rijen : <INPUT type="text" name="MAXROWS" value="#(MaxRows)#">
-		<BR>
-		<input type="submit" name="btnSubmit" style="width:60; font-weight:bold;" value="Go">
-	</form>
-<CSP:ELSE>
-	<BR>
-	<A href="#($G(arUrl("ToggleQED")))#">Show Query Editor</A>
-	<BR>
-	<BR>
-	<form name="theForm" method="post" action="vhLibLogging.csp">
-		<DIV id="divGroepenCheckboxes">
-			<SCRIPT language="Cache" runat="server">
-				Set GroepenIt=##class(TECH.ListIterator).%New(LogViewerHelper.GeefGroepen())
-			</SCRIPT>
-			<CSP:WHILE CONDITION="GroepenIt.HasNext()" COUNTER=GroepIndex>  
+	<csp:if condition="(blnSQED)">
+		<pre>#(sqlLOGAllFields)#</pre>
+		<pre>#(" ... WHERE (Datum = '"_($$FormatDateTime^vhLib("MM/DD/YYYY",$H))_"' AND Detail [ 'zoekterm')")#</pre>
+		<pre>#(" ... WHERE (Actie IN ('DOM.AKP.event.ProductToelevLijnGemaakt','DOM.VKP.event.ProductOrderLijnGemaakt','DOM.PM.event.AdministratiefProductGemaaktEvent','ProductToelevLijnEventData'))  AND (Detail [ '...ID')")#</pre>
+		
+		<br/>
+		
+		<form name="theForm" method="post">
+			<h3>SQL Query:</h3>
+			<textarea name="QUERY" class="ui-vh-input ui-vh-textarea" rows="0" cols="0">#(sqlActive)#</textarea>
+			<br/><br/>
+			Aantal rijen: <input type="text" class="ui-vh-input" name="MAXROWS" value="#(MaxRows)#">&nbsp;<input type="submit" name="btnSubmit" class="ui-button ui-widget ui-corner-all" value="Go">
+		</form>
+	<csp:else>
+		<a class="ui-button ui-widget ui-corner-all" href="#($Get(arUrl("ToggleQED")))#">Show Query Editor</a>
+		
+		<br/><br/>
+
+		<form name="theForm" method="post" action="vhLibLogging.csp">
+			<DIV id="divGroepenCheckboxes">
 				<SCRIPT language="Cache" runat="server">
-					Set GroepNaam=GroepenIt.Next()
-					Set GroepControlID="chkFilterGroep"_GroepIndex
-					Set ValueChecked=$S(##class(TECH.ListUtils).IsValueInIterator(GroepNaam,##class(TECH.ArrayOneDimIterator).%New(.arFilterGroepen)):"checked", 1:"")
-					Set VisueleGroepNaam = GroepNaam
-					If $Length(VisueleGroepNaam) > 24 {
-						Set VisueleGroepNaam = $E(VisueleGroepNaam,1,24)_".."
-					}
+					Set GroepenIt=##class(TECH.ListIterator).%New(LogViewerHelper.GeefGroepen())
 				</SCRIPT>
-				<DIV class="clsFilterGroepDiv"><NOBR><LABEL for="#(GroepControlID)#"><INPUT type="checkbox" ID="#(GroepControlID)#" name="chkFilterGroep" value="#(GroepNaam)#" #(ValueChecked)#>#(VisueleGroepNaam)#</INPUT></LABEL></NOBR></DIV>
-			</CSP:WHILE>
-			<DIV style="clear:both;"></DIV>
-		</DIV>
-		<BR>
-		<DIV>
-			<DIV class="clsToonAlleNiveausDiv"><NOBR><LABEL for="chkToonAlleNiveaus"><INPUT type="checkbox" ID="chkToonAlleNiveaus" name="chkToonAlleNiveaus" onclick="chkToonAlleNiveausClick();" value="1" #($S('ToonAlleNiveaus:"", 1:"checked"))#>Toon alle niveaus</INPUT></LABEL> &nbsp;&nbsp; OF &nbsp;&nbsp;</NOBR></DIV>
-			<SCRIPT language="Cache" runat="server">
-				Set NiveauIt=##class(vhLib.enu.LogNiveau).ValueListIterator()
-			</SCRIPT>
-			<CSP:WHILE CONDITION="NiveauIt.HasNext()" COUNTER=NiveauIndex>  
+				<CSP:WHILE CONDITION="GroepenIt.HasNext()" COUNTER=GroepIndex>  
+					<SCRIPT language="Cache" runat="server">
+						Set GroepNaam=GroepenIt.Next()
+						Set GroepControlID="chkFilterGroep"_GroepIndex
+						Set ValueChecked=$S(##class(TECH.ListUtils).IsValueInIterator(GroepNaam,##class(TECH.ArrayOneDimIterator).%New(.arFilterGroepen)):"checked", 1:"")
+						Set VisueleGroepNaam = GroepNaam
+						If $Length(VisueleGroepNaam) > 24 {
+							Set VisueleGroepNaam = $E(VisueleGroepNaam,1,24)_".."
+						}
+					</SCRIPT>
+					<DIV class="clsFilterGroepDiv"><NOBR><LABEL for="#(GroepControlID)#"><INPUT type="checkbox" ID="#(GroepControlID)#" name="chkFilterGroep" value="#(GroepNaam)#" #(ValueChecked)#>#(VisueleGroepNaam)#</INPUT></LABEL></NOBR></DIV>
+				</CSP:WHILE>
+				<DIV style="clear:both;"></DIV>
+			</DIV>
+			<BR>
+			<DIV>
+				<DIV class="clsToonAlleNiveausDiv"><NOBR><LABEL for="chkToonAlleNiveaus"><INPUT type="checkbox" ID="chkToonAlleNiveaus" name="chkToonAlleNiveaus" onclick="chkToonAlleNiveausClick();" value="1" #($S('ToonAlleNiveaus:"", 1:"checked"))#>Toon alle niveaus</INPUT></LABEL> &nbsp;&nbsp; OF &nbsp;&nbsp;</NOBR></DIV>
 				<SCRIPT language="Cache" runat="server">
-					Set NiveauID=NiveauIt.Next()
-					Set NiveauNaam=##class(vhLib.enu.LogNiveau).LogicalToDisplay(NiveauID)
-					Set NiveauControlID="chkFilterNiveau_"_NiveauIndex
-					Set ValueChecked=$S(##class(TECH.ListUtils).IsValueInIterator(NiveauID,##class(TECH.ArrayOneDimIterator).%New(.arFilterNiveaus)):"checked", 1:"")
-					Set VisueleNiveauNaam = NiveauNaam
+					Set NiveauIt=##class(vhLib.enu.LogNiveau).ValueListIterator()
 				</SCRIPT>
-				<DIV class="clsFilterNiveauDiv"><NOBR><LABEL input for="#(NiveauControlID)#"><INPUT type="checkbox" ID="#(NiveauControlID)#" name="chkFilterNiveau" onclick="chkFilterNiveauClick(this);" value="#(NiveauID)#" #(ValueChecked)#>#(VisueleNiveauNaam)#</INPUT></LABEL></NOBR></DIV>
-			</CSP:WHILE>
-			<DIV style="clear:both;"></DIV>
-		</DIV>
-		<DIV>
-			<LABEL><INPUT type="checkbox" ID="chkEnkelTeTrierenOfBehandelen" name="chkEnkelTeTrierenOfBehandelen" value="1" #($S('EnkelTeTrierenOfBehandelen:"", 1:"checked"))# >Toon enkel de te tri�ren of behandelen errors.</INPUT></LABEL>
-		</DIV>
-		<BR>
-		<DIV>
-			<BR>Aantal rijen : <INPUT type="text" name="MAXROWS" value="#(MaxRows)#">
+				<CSP:WHILE CONDITION="NiveauIt.HasNext()" COUNTER=NiveauIndex>  
+					<SCRIPT language="Cache" runat="server">
+						Set NiveauID=NiveauIt.Next()
+						Set NiveauNaam=##class(vhLib.enu.LogNiveau).LogicalToDisplay(NiveauID)
+						Set NiveauControlID="chkFilterNiveau_"_NiveauIndex
+						Set ValueChecked=$S(##class(TECH.ListUtils).IsValueInIterator(NiveauID,##class(TECH.ArrayOneDimIterator).%New(.arFilterNiveaus)):"checked", 1:"")
+						Set VisueleNiveauNaam = NiveauNaam
+					</SCRIPT>
+					<DIV class="clsFilterNiveauDiv"><NOBR><LABEL input for="#(NiveauControlID)#"><INPUT type="checkbox" ID="#(NiveauControlID)#" name="chkFilterNiveau" onclick="chkFilterNiveauClick(this);" value="#(NiveauID)#" #(ValueChecked)#>#(VisueleNiveauNaam)#</INPUT></LABEL></NOBR></DIV>
+				</CSP:WHILE>
+				<DIV style="clear:both;"></DIV>
+			</DIV>
+			<DIV>
+				<LABEL><INPUT type="checkbox" ID="chkEnkelTeTrierenOfBehandelen" name="chkEnkelTeTrierenOfBehandelen" value="1" #($S('EnkelTeTrierenOfBehandelen:"", 1:"checked"))# >Toon enkel de te tri�ren of behandelen errors.</INPUT></LABEL>
+			</DIV>
 			<BR>
-			<INPUT type="hidden" name="SQED" value="#($G(blnSQED))#">
-			<input type="submit" name="btnSubmit" style="width:60; font-weight:bold;" value="Go">
-		</DIV>
-		
-	</form>
+			
+			<div>
+				Aantal rijen : <input type="text" class="ui-vh-input" name="MAXROWS" value="#(MaxRows)#"/>&nbsp;<input type="submit" name="btnSubmit" class="ui-button ui-widget ui-corner-all" value="Go"/>
+				<input type="hidden" name="SQED" value="#($G(blnSQED))#"/>
+			</div>	
+		</form>
+	</csp:if>
 
-
-</CSP:IF>
-
-	<BR>
-	<BR>
-<HR>
+	<br/>
+	
+	
 <CSP:IF condition="($L(sqlActive))">
 	<SCRIPT LANGUAGE="SQL" NAME="queryA" P1=#($G(%request.Data("P1",1),"A"))#>#(sqlActive)#</SCRIPT>
 	<SCRIPT language="Cache" runat="server">Set qryAColCount=queryA.GetColumnCount()</SCRIPT>