Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1519 -r1565
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1519)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1565)
@@ -48,6 +48,29 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="%OnBeforeSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	if $isObject(..Kenmerk) && ( $isObject( ..Kenmerk.Groep)) {
+		Set ..KenmerkGroep = ..Kenmerk.Groep.Code 
+		}
+	else {
+		Set ..KenmerkGroep = ""
+	}
+	
+	if $isObject(..Kenmerk) {
+		Set ..KenmerkNaam = ..Kenmerk.Kenmerk
+		}
+	else {
+		Set ..KenmerkNaam = ""
+	}
+	
+	Quit ##super(insert)
+]]></Implementation>
+</Method>
+
 <Property name="WijzigGebruiker">
 <Type>%Library.String</Type>
 </Property>
@@ -71,6 +94,35 @@
 <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>
+
+<Index name="IndexOnKenmerkNaam">
+<Properties>KenmerkNaam</Properties>
+</Index>
+
+<Property name="KenmerkGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="KenmerkNaam">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnAfterSave">
 <FormalSpec>IsNew:%Library.Boolean=1</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
@@ -469,7 +521,7 @@
 	. Set:UserID="" UserID = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
 	. Set:($L($G(UserID))) objNew.WijzigGebruiker=UserID
 	. Set sc=objNew.Save()
-	. Lock -^Prod.Ken.DataDefinitieD(ToUnID,"")
+	. Lock -(^Prod.Ken.DataDefinitieD(ToUnID,""))
 	. Set objFrom=""
 	. Set objNew=""
 	. k objFrom,objNew
@@ -798,9 +850,21 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- 	If $get(locktype)="e" Lock -(^Prod.Ken.DataDefinitieD(..UnID,..KenmerkGetObjectId())) QUIT 1
-	If $get(locktype)="s" Lock -(^Prod.Ken.DataDefinitieD(..UnID,..KenmerkGetObjectId())#"S") QUIT 1
-	If $get(locktype)="si" Lock -(^Prod.Ken.DataDefinitieD(..UnID,..KenmerkGetObjectId())#"SI") QUIT 1
+ 	If $get(locktype)="e" { 
+	 	Lock -(^Prod.Ken.DataDefinitieD(..UnID,"")) 
+ 		Lock -(^Prod.Ken.DataDefinitieD(..UnID,..KenmerkGetObjectId())) 
+ 		QUIT 1
+ 	}
+	If $get(locktype)="s" {
+		Lock -(^Prod.Ken.DataDefinitieD(..UnID,"")#"S") 
+		Lock -(^Prod.Ken.DataDefinitieD(..UnID,..KenmerkGetObjectId())#"S") 
+		QUIT 1
+	}
+	If $get(locktype)="si" {
+		Lock -(^Prod.Ken.DataDefinitieD(..UnID,"")#"SI") 
+		Lock -(^Prod.Ken.DataDefinitieD(..UnID,..KenmerkGetObjectId())#"SI") 
+		QUIT 1
+	}
 	QUIT $$Error^%apiOBJ(5806,locktype)
 ]]></Implementation>
 </Method>
@@ -836,6 +900,12 @@
 <Value name="6">
 <Value>PrivateKenmerk</Value>
 </Value>
+<Value name="7">
+<Value>KenmerkGroep</Value>
+</Value>
+<Value name="8">
+<Value>KenmerkNaam</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/impl/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1536 -r1565
--- DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1536)
+++ DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1565)
@@ -188,7 +188,7 @@
 			  Set pUnID=$LG(lbMulti,1) 
 			  Set sc=blKenm.MultipleToOne(.pUnID, 0)   ; CheckIsLastMultiple=0, because already tested
 			  If ($$$ISERR(sc)){
-				  Set ErrorMsg = "VerwijderenKenmerkenSet faalde voor MultipleToOne. "_$$ParseStatus^vhLib(sc)
+				  Set ErrorMsg = "VerwijderenKenmerkenSet faalde voor MultipleToOne. "_$$ParseStatus^vhLib(sc)_$C(13,10)_^%Stack
 				  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),ErrorMsg))	
 			  }
 		  }Else{ /// Als er nog meer dan één multiples bestaat, controleren of het opeenvolgende UnIDs zijn