Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r2894 -r3489
--- Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 2894)
+++ Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 3489)
@@ -187,15 +187,22 @@
 <ClassMethod>1</ClassMethod>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim LimitedRun As %Boolean = $length(suite) && ( suite'=..#PackagePrefix )
 	 #dim GlobalForLogging As %String = ..#GlobalForLogging
 	 #dim IsRunning As %String = ##class(svn.Setting).IsUnitTestBezig(..GetManager().%ClassName(1))
 	 
 	 #dim LeftMargin As %String = ($select(IsRunning:"100px",1:"5px"))
 	 
 	 &html<<table style="height:80px">>
 	 if IsRunning { 
-	 	&html<<tr><td><img src="http://cache01.vanhoecke.be/csp/user/Dashboard/busy.gif" width="65px" hspace="15"/></td></tr>> 
-	 	&html<<tr><td style="text-align:center;font-weight:bold;">#(..GeefLeesbaarTijd(##class(svn.Setting).GetTestStartTime(..GetManager().%ClassName(1))))#</td></tr>> 
+
+		#dim StartTijd As TECH.Horolog = ##class(svn.Setting).GetTestStartTime(..GetManager().%ClassName(1))
+		#dim VerstrekenTijd As %Decimal = $Replace(##class(TECH.DateTime).CurrentHorolog(),",",".") - $Replace(StartTijd,",",".")
+		#dim Percentage As %Decimal = ((VerstrekenTijd * 100000) / ..GetTimeSpan(index)) * 100
+		
+	 	&html<<tr><td><img src="http://cache01.vanhoecke.be/csp/user/Dashboard/busy.gif" width="65px" hspace="15"/></td></tr>>
+	 	&html<<tr><br><td style="text-align:center;font-weight:bold;">#("This run : " _..GeefLeesbaarTijdstip(StartTijd) _" - " _$P(Percentage,".",1) _"%")#</td></tr>> 
+	 	
 	 }  else { 
 	 	&html<<tr><td>&nbsp;</td></tr>> 
 	 }
@@ -209,7 +216,7 @@
 	 &html<<tr><td align=left><b>Finished:</b></td><td><b>#(..GeefLeesbaarTijdstip(..GetEndTime(index)))#</b></td></tr>>
 	 &html<</table>>
 	 
-	 if $length(suite) && ( suite'=..#PackagePrefix ) {
+	 if LimitedRun {
 		  &html<<div style="position:absolute;width:100%;top:10%;text-align:center;font-size:25px;"><b>BEPERKTE RUN</b></div>>	
 	 }
 	 
@@ -572,6 +579,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetTimeSpan">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>index:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set StartTime = $piece($listget(@GlobalForLogging@(index),1),",",2)
+	set EndTime = $piece($listget(@GlobalForLogging@(index),2),",",2)
+	set Duration = EndTime - StartTime 
+	quit Duration
+]]></Implementation>
+</Method>
+
 <Method name="OnPreHTTP">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Boolean</ReturnType>