Index: vhDeploy/JBL/Deploy20110714x0848.cls.xml
===================================================================
diff -u -r1681 -r1689
--- vhDeploy/JBL/Deploy20110714x0848.cls.xml	(.../Deploy20110714x0848.cls.xml)	(revision 1681)
+++ vhDeploy/JBL/Deploy20110714x0848.cls.xml	(.../Deploy20110714x0848.cls.xml)	(revision 1689)
@@ -17,17 +17,25 @@
 	Write "Er wordt een job gestart met procesnr "_$ZCHILD,!
 	Write "waarin de indexen van Prod.Kenm.DataDefinitie worden ingevuld en opgebouw.",!
 	Write "Dit kan uw systeem even vertragen, omdat hier veel data wordt verwerkt.",!
-	JOB ClassMethod^vhLib("vhDeploy.JBL.Deploy20110714x0848","UpdateIndexen",0)
+	
+	Set $ZTRAP = "Catch"
+		JOB ClassMethod^vhLib("vhDeploy.JBL.Deploy20110714x0848","UpdateIndexen",0)	
+		Write "Er wordt een job gestart met procesnr "_$ZCHILD,!
+Catch Set $ZTRAP = ""
+	Write "Er heeft zich een fout voorgedaan bij het updaten van de indexen.",!
+	Write $ECODE,!,!
+	Write "Gelieve manueel uit te voeren : Do ##class(vhDeploy.JBL.Deploy20110714x0848).UpdateIndexen()",!
 ]]></Implementation>
 </Method>
 
 <Method name="UpdateIndexen">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	Set $ZTRAP = "Catch"
 	Do StartTimer^vhLib
 	
 	w "Rebuild indices van 'Prod.Kenmerk.DataDefinitie'",!
-	Do ##class(Prod.Kenmerk.DataDefinitie).%BuildIndices()
+	//Do ##class(Prod.Kenmerk.DataDefinitie).%BuildIndices()
 	
 	
 	Do StopTimer^vhLib
@@ -46,6 +54,7 @@
 	While (RS.Next()){	
 		Set DataDef = ##class(Prod.Kenmerk.DataDefinitie).%OpenId(RS.Data("ID"))
 		If $IsObject(DataDef){
+			If (Teller#50 = 0) w RS.Data("ID"),!
 			Set Teller = Teller + 1		
 			Set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(DataDef.UnID)
 			Set Status = RSUpdate.Execute(PRNr,RS.Data("ID"))		
@@ -59,6 +68,10 @@
 	Do StopTimer^vhLib
 	Set Time = $$GetInterval^vhLib
 	w " TIME update property's : ",Time,!
+Catch Set $ZTRAP = ""
+	Write "Er heeft zich een fout voorgedaan bij het updaten van de indexen.",!
+	Write $ECODE,!,!
+	Write "Gelieve manueel uit te voeren : Do ##class(vhDeploy.JBL.Deploy20110714x0848).UpdateIndexen()",!
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1681 -r1689
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1681)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1689)
@@ -63,27 +63,27 @@
 		 		 				 
 	 /// DataDefinities ophalen
 	 Set RS=##class(%ResultSet).%New()
-	 Set SQLStatement = "SELECT PRNr, UnID, KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie where"
-	 // nadien nagaan of er iets in kenmerkGroepen zit, als het ledig is wordt in alle kenmerkgroepen gezocht.
-	 if ($IsObject(KenmerkGroepen) && (KenmerkGroepen.Count() '= 0)) {	
-			/// Kenmerkgroepen verzamelen
-			Set SQLKenmerken = ..MaakSQLINParameters(KenmerkGroepen)
-			Set SQLStatement = SQLStatement_" KenmerkGroep IN ( "_SQLKenmerken_" ) AND"
-	 }			 
+	 Set SQLStatement = "SELECT PRNr, UnID, KenmerkGroep, KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie where"	 		
+	 
+	// nadien nagaan of er iets in kenmerkGroepen zit, als het ledig is wordt in alle kenmerkgroepen gezocht.
+	if ($IsObject(KenmerkGroepen) && (KenmerkGroepen.Count() '= 0)) {
+		Set SQLKenmerken = ..MaakSQLINParameters(KenmerkGroepen)
+		Set SQLStatement = SQLStatement_" KenmerkGroep IN ( "_SQLKenmerken_" ) AND"	 
+	}	
 	 Set SQLStatement = SQLStatement_" PRNr In ( "_SQLPRNrs_" )"
 	
 	 D WLIP^vhDBG(127,SQLStatement)
-	 Do RS.Prepare(SQLStatement)				 
-	
+	 Do RS.Prepare(SQLStatement)		
 	 Set tmpStatus = RS.Execute()
 	 If $$$ISOK(tmpStatus)
 	 {		 
 		 Set tmpUnID = ""
 		 Set tmpKenmerkGroep = ""
 		 Set tmpPRNr = ""
-		 
+		 set Teller = 0
 		 While (RS.Next())
 		 {	 
+		 	Set Teller = Teller + 1
 		 	Set KenmerkNaam = RS.Data("KenmerkNaam")
 		 	If (KenmerkNaam '= "GeneratieType"){
 			 	Set PRNr = RS.Data("PRNr")
@@ -99,9 +99,9 @@
 				
 				/// Als kenmerkgroep verandert
 				 /// Enkel groepen toevoegen als er sets aanwezig zijn
-				 If ((tmpKenmerkGroep '= RS.Data("KenmerkGroep")) || (tmpPRNr '= PRNr)){
+				 If ((tmpKenmerkGroep '= KenmerkGroep) || (tmpPRNr '= PRNr)){
 					Set ProductKenmerkenGroep = ##class(APPS.PM.dto.Kenm.ProductKenmerkenGroep).%New()
-					Set ProductKenmerkenGroep.Naam = RS.Data("KenmerkGroep")
+					Set ProductKenmerkenGroep.Naam = KenmerkGroep
 					Do ProductKenmerken.KenmerkenGroepen.Insert(ProductKenmerkenGroep)
 				 }					 	
 			 	 	
@@ -131,6 +131,7 @@
 			 	Set tmpKenmerkGroep = KenmerkGroep	
 		 	} 	
 		 }
+		 d WLIP^vhDBG(127, "Aantal : "_Teller)
 	 }
 	
 	$$$TECHErrorTrapOff
Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r1507 -r1689
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1507)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1689)
@@ -106,7 +106,7 @@
 	} Else {
 		Set Instance = $zobjclassmethod(ClassName, "%OpenId", ID)
 	}
-	If ('$isobject(Instance)) $$$ThrowErrorStatus($$$errGeneralError,"DbUtils OpenId failed",%objlasterror)
+	If ('$isobject(Instance)) $$$ThrowErrorStatus($$$errGeneralError,"DbUtils OpenId failed ("_ID_","_ClassName_")",%objlasterror)
 	Quit Instance
 ]]></Implementation>
 </Method>
Index: JBL Product AMF.prj.xml
===================================================================
diff -u -r1604 -r1689
--- JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1604)
+++ JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1689)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL Product AMF" LastModified="2011-07-06 08:23:12">
+<Project name="JBL Product AMF" LastModified="2011-07-14 11:21:25">
   <Items>
     <ProjectItem name="%Prod.Product.INC" type="MAC"/>
     <ProjectItem name="APPS.PM.KenmerkenService" type="CLS"/>
@@ -86,6 +86,7 @@
     <ProjectItem name="WS.Prod.Kenmerk" type="CLS"/>
     <ProjectItem name="WS.Prod.Select" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110627x1157" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110714x0848" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.vhDeploy20110629x1147" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.OL.MasterAutoGenerator" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.TestKenmerkenService" type="CLS"/>
@@ -100,6 +101,7 @@
     <ProjectItem name="vhUnitTest.TECH.Concurrency.TestTxScopeGenestRequired" type="CLS"/>
     <ProjectItem name="zJBLProduct.MAC" type="MAC"/>
     <ProjectItem name="zJBLTestZoekKenmerken.mac" type="MAC"/>
+    <ProjectItem name="zTryout.JBL.TestKlasse" type="CLS"/>
     <ProjectItem name="zTryoutJBL.mac" type="MAC"/>
   </Items>
 </Project>
Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1681 -r1689
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1681)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1689)
@@ -13,13 +13,6 @@
 <Super>TECH.Concurrency.VhPersistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<UDLText name="T">
-<Content><![CDATA[
-//%Library.Persistent [ ClassType = persistent ]
-
-]]></Content>
-</UDLText>
-
 <Property name="Kenmerk">
 <Type>Prod.Kenmerk.MetaDefinitie</Type>
 </Property>
@@ -96,19 +89,6 @@
 <Properties>UnID,Kenmerk</Properties>
 </Index>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Als we een soort "index" kunnen voorzien die volgende kolommen bevat, lijkt er een beduidend snellere en eenvoudigere query te gebruiken zijn:
-- naam van de kenmerkgroep
-- naam van het kenmerk
-- waarden van het kenmerk
-- PRNr
-- UnID
-*/
-]]></Content>
-</UDLText>
-
 <Index name="IndexOnKenmerk">
 <Properties>KenmerkGroep</Properties>
 </Index>
@@ -117,9 +97,17 @@
 <Properties>KenmerkNaam</Properties>
 </Index>
 
+<Index name="IndexOnPRNr">
+<Properties>PRNr</Properties>
+</Index>
+
+<Index name="IndexOnUnID">
+<Properties>UnID</Properties>
+</Index>
+
 <Index name="IndexForSearch">
 <Data>Waarden</Data>
-<Properties>KenmerkGroep,KenmerkNaam,PRNr,UnID</Properties>
+<Properties>PRNr,KenmerkGroep,KenmerkNaam,UnID</Properties>
 </Index>
 
 <Property name="KenmerkGroep">
@@ -129,7 +117,6 @@
 Deze mogen NOOIT door programma code gebruikt worden of aangeroepen worden !!!
 ************** !!!! **************** !!! ***************************************</Description>
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="KenmerkNaam">
@@ -138,7 +125,6 @@
 KenmerkGroep en KenmerkNaam dienen ENKEL voor indexen te kunnen maken.
 Deze mogen NOOIT door programma code gebruikt worden of aangeroepen worden !!!</Description>
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="PRNr">
@@ -148,7 +134,6 @@
 Deze mag NOOIT door programma code gebruikt worden of aangeroepen worden !!!
 ************** !!!! **************** !!! ***************************************</Description>
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Method name="%OnAfterSave">
@@ -961,6 +946,36 @@
 <Value>PRNr</Value>
 </Value>
 </Data>
+<Property name="Formule">
+<Selectivity>100.0000%</Selectivity>
+</Property>
+<Property name="InstanceVersion">
+<Selectivity>50.0000%</Selectivity>
+</Property>
+<Property name="Kenmerk">
+<Selectivity>16.6667%</Selectivity>
+</Property>
+<Property name="KenmerkGroep">
+<Selectivity>50.0000%</Selectivity>
+</Property>
+<Property name="KenmerkNaam">
+<Selectivity>20.0000%</Selectivity>
+</Property>
+<Property name="PRNr">
+<Selectivity>100.0000%</Selectivity>
+</Property>
+<Property name="UnID">
+<Selectivity>12.5000%</Selectivity>
+</Property>
+<Property name="Waarden">
+<Selectivity>8.3333%</Selectivity>
+</Property>
+<Property name="WijzigGebruiker">
+<Selectivity>100.0000%</Selectivity>
+</Property>
+<Property name="WijzigTijdstip">
+<Selectivity>100.0000%</Selectivity>
+</Property>
 </Storage>
 </Class>
 </Export>