Index: vhDeploy/JBL/vhDeploy20110629x1147.cls.xml
===================================================================
diff -u -r1580 -r1625
--- vhDeploy/JBL/vhDeploy20110629x1147.cls.xml	(.../vhDeploy20110629x1147.cls.xml)	(revision 1580)
+++ vhDeploy/JBL/vhDeploy20110629x1147.cls.xml	(.../vhDeploy20110629x1147.cls.xml)	(revision 1625)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhDeploy.JBL.vhDeploy20110629x1147">
+<Description>
+Do ##class(vhDeploy.JBL.vhDeploy20110629x1147).UpdateIndexen()</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>svn.Deploy</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -22,6 +24,18 @@
 <Method name="UpdateIndexen">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	Do StartTimer^vhLib
+	
+	w "Rebuild indices van 'Prod.Kenmerk.DataDefinitie'",!
+	Do ##class(Prod.Kenmerk.DataDefinitie).%BuildIndices()
+	
+	
+	Do StopTimer^vhLib
+	Set Time = $$GetInterval^vhLib
+	w " TIME Build indices : ",Time,!
+	
+	
+	Do StartTimer^vhLib
 	Set RS = ##class(%ResultSet).%New()
  	Do RS.Prepare("select ID, Kenmerk->Kenmerk As KenmerkNaam2, Kenmerk->Groep->Code As KenmerkGroep2 from Prod_Kenmerk.DataDefinitie")
  	Do RS.Execute()
@@ -30,17 +44,17 @@
  	Do RSUpdate.Prepare("Update Prod_Kenmerk.DataDefinitie Set KenmerkNaam = ?, KenmerkGroep = ? where ID = ?")
  	
 	While (RS.Next()){	
-		w:((Teller#100)=0) RS.Data("ID"),!
+		//w:((Teller#100)=0) RS.Data("ID"),!
 		Set Teller = Teller + 1		
 		Do RSUpdate.Execute(RS.Data("KenmerkNaam2"),RS.Data("KenmerkGroep2"),RS.Data("ID"))		
 	}
 	
 	Write Teller_" aantal kenmerken geupdate.",!
 	Write !
 	
-	/// Rebuild Indices
-	w "Rebuild indices van 'Prod.Kenmerk.DataDefinitie'",!
-	Do ##class(Prod.Kenmerk.DataDefinitie).%BuildIndices()
+	Do StopTimer^vhLib
+	Set Time = $$GetInterval^vhLib
+	w " TIME update property's : ",Time,!
 ]]></Implementation>
 </Method>
 </Class>