Index: APPS/PM/Kenmerk/impl/KenmerkenService.cls.xml
===================================================================
diff -u -r29059 -r31372
--- APPS/PM/Kenmerk/impl/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 29059)
+++ APPS/PM/Kenmerk/impl/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 31372)
@@ -181,118 +181,130 @@
 <FormalSpec>KenmerkGroepen:%ListOfDataTypes="",EnkelKenmerkenVoorViewerEditor:%Boolean=1</FormalSpec>
 <ReturnType>APPS.PM.dto.Kenm.KenmerkMetadataList</ReturnType>
 <Implementation><![CDATA[
-	$$$TECHErrorTrapOn
 	Set MetadataGroep = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New()	
 	
-	/// Nagaan of KenmerkGroepen niet leeg is, indien dit zo is mogen alle groepen worden opgevraagd.
-	if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)){
-		Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList()
-	}
-	/// Alle opgegeven Kenmerkgroepen overlopen
-	Set KenmerkGroepIterator = ##class(TECH.ListIterator).%New(KenmerkGroepen)
-	While (KenmerkGroepIterator.HasNext()){
-		#dim KenmerkGroep As %String = KenmerkGroepIterator.Next()
-		Set KenmerkGroepMetadata = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
-		Set KenmerkGroepMetadata.Code = KenmerkGroep
-		Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep)
-		If ('EnkelKenmerkenVoorViewerEditor || (EnkelKenmerkenVoorViewerEditor && $IsObject(MetaGroep) && (MetaGroep.IsAanwezigInViewerEditor)))
-		{
-			If ($IsObject(MetaGroep)){
-				Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = MetaGroep.MultipleKenmerkenSetsToegelaten	
-				Set KenmerkGroepMetadata.IsAanwezigInViewerEditor = MetaGroep.IsAanwezigInViewerEditor
-				Set KenmerkGroepMetadata.Naam = MetaGroep.Omschrijving
-				Set KenmerkGroepMetadata.ID = MetaGroep.%Id()
-				If MetaGroep.GeefRelatiefPadIcoon()	'= "" {
-					Set KenmerkGroepMetadata.Icoon = ##class(APPS.common.dto.Icoon).%New()
-					set KenmerkGroepMetadata.Icoon.RelatiefPad = MetaGroep.GeefRelatiefPadIcoon()
-				}
-				set KenmerkGroepMetadata.GeneratieTypeIsRelevant = MetaGroep.GeneratieTypeIsRelevant
-			}
+	;$$$TECHErrorTrapOn
+	Try {	
+		#dim KenmerkGroepenInfo As %String = ""
+		/// Nagaan of KenmerkGroepen niet leeg is, indien dit zo is mogen alle groepen worden opgevraagd.
+		if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)){
+			Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList()
+			Set KenmerkGroepenInfo = "[alle kenmerkgroepen]"
+		} else {
+			Set KenmerkGroepenInfo = ##class(TECH.ListUtils).ListToPieces(KenmerkGroepen,";")
+		}
 		
-			Set RS = ##class(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep")
-			Do RS.Execute(KenmerkGroep)
-			While (RS.Next()){	
-			 
-				Set KenmerkMetadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
+		/// Alle opgegeven Kenmerkgroepen overlopen
+		Set KenmerkGroepIterator = ##class(TECH.ListIterator).%New(KenmerkGroepen)
+		While (KenmerkGroepIterator.HasNext()){
+			#dim KenmerkGroep As %String = KenmerkGroepIterator.Next()
+			Set KenmerkGroepMetadata = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
+			Set KenmerkGroepMetadata.Code = KenmerkGroep
+			Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep)
+			If ('EnkelKenmerkenVoorViewerEditor || (EnkelKenmerkenVoorViewerEditor && $IsObject(MetaGroep) && (MetaGroep.IsAanwezigInViewerEditor)))
+			{
+				If ($IsObject(MetaGroep)){
+					Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = MetaGroep.MultipleKenmerkenSetsToegelaten	
+					Set KenmerkGroepMetadata.IsAanwezigInViewerEditor = MetaGroep.IsAanwezigInViewerEditor
+					Set KenmerkGroepMetadata.Naam = MetaGroep.Omschrijving
+					Set KenmerkGroepMetadata.ID = MetaGroep.%Id()
+					If MetaGroep.GeefRelatiefPadIcoon()	'= "" {
+						Set KenmerkGroepMetadata.Icoon = ##class(APPS.common.dto.Icoon).%New()
+						set KenmerkGroepMetadata.Icoon.RelatiefPad = MetaGroep.GeefRelatiefPadIcoon()
+					}
+					set KenmerkGroepMetadata.GeneratieTypeIsRelevant = MetaGroep.GeneratieTypeIsRelevant
+				}
 			
-				If ('EnkelKenmerkenVoorViewerEditor || RS.Get("TonenInEditor"))
-				{
-					#dim KenmerkNaam As %String = RS.Get("Kenmerk")
-					
-					Set KenmerkMetadata.TonenInEditor = RS.Get("TonenInEditor")
-			
-					Set KenmerkMetadata.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
-					Set KenmerkMetadata.Multipliciteit.Minimum = RS.Get("Verplicht")
-					Set KenmerkMetadata.Multipliciteit.Maximum = RS.Get("Multiple")
-					Set KenmerkMetadata.Naam = KenmerkNaam
-					Set KenmerkMetadata.ID = RS.Get("ID")
-					Set KenmerkMetadata.NieuweWaardeToegelaten = RS.Get("NieuweWaardeToegelaten")
-					If (KenmerkMetadata.NieuweWaardeToegelaten = "") Set KenmerkMetadata.NieuweWaardeToegelaten  = "0"
-					Set KenmerkMetadata.SuggereerWaarden = RS.Get("SuggereerWaarden")
-					If (KenmerkMetadata.SuggereerWaarden = "") Set KenmerkMetadata.SuggereerWaarden  = "0"
-					Set KenmerkMetadata.IsReadOnly = RS.Get("IsReadOnly")
-					If (KenmerkMetadata.IsReadOnly = "") Set KenmerkMetadata.IsReadOnly  = "0"
-					Set KenmerkMetadata.IsWijzigbaar = RS.Get("IsWijzigbaar")
-					If (KenmerkMetadata.IsWijzigbaar = "") Set KenmerkMetadata.IsWijzigbaar  = "0"
-			
-					/// -------------------------------------------------------------------------
-					/// Als er geen nieuwe waarden zijn toegelaten dan de mogelijkheden invullen.
-					/// -------------------------------------------------------------------------
-					/// In het veld “Mogelijkheden” op de DTO moet ofwel alle mogelijke waarden ofwel 
-					/// alle reeds gebruikte waarden zitten.
-					/// We nemen als uitgangspunt dat de velden “WaardenSortering*” op “Prod_kenmerk.metadefinitie” 
-					/// gebruikt worden voor gesorteerde en voor vaste lijsten.
-					/// En dat voor niet-gesorteerde niet-vaste lijsten een query moet uitgevoerd worden om de reeds 
-					/// gebruikte waarden te vinden.
-					/// 
-					/// 1) Bepaalde kenmerken mogen niet rechtstreeks door de gebruiker gewijzigd worden.
-					/// Daarom een flag "read-only" op de kenmerken metadata.
-					/// 
-					/// Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.
-					/// 2) Bovendien een flag "gebruikte waarden niet suggereren" voorzien. Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI.
-			
-					If (KenmerkMetadata.SuggereerWaarden)
+				Set RS = ##class(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep")
+				Do RS.Execute(KenmerkGroep)
+				While (RS.Next()){	
+				 
+					Set KenmerkMetadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
+				
+					If ('EnkelKenmerkenVoorViewerEditor || RS.Get("TonenInEditor"))
 					{
-						Set MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
-						#dim MogelijkeWaardenRepository AS APPS.PM.Kenmerk.impl.MogelijkeWaardenRepository = MogelijkeWaardenManager.GeefMogelijkeWaardenRepository(KenmerkGroep,KenmerkNaam)
-						Set KenmerkMetadata.Mogelijkheden = MogelijkeWaardenRepository.GeefMogelijkeWaarden()
-					}			
-			
-					Set KenmerkMetadata.VeldBreedteInTekens = RS.Get("VeldBreedteInTekens")
-					Set:(KenmerkMetadata.VeldBreedteInTekens="") KenmerkMetadata.VeldBreedteInTekens = ..#VeldBreedteInTekens
-			
-					Set KenmerkMetadata.VolgNr = RS.Get("VolgNr")
-					
-					Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GeenBeperking).%New()
-					
-					If (RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Tekst()){
-						Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst()
-						If (RS.Get("Lengte") '= ""){
-							Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New()
-							Set KenmerkMetadata.DataTypeBeperking.MaxAantalTekens = RS.Get("Lengte")
+						#dim KenmerkNaam As %String = RS.Get("Kenmerk")
+						
+						Set KenmerkMetadata.TonenInEditor = RS.Get("TonenInEditor")
+				
+						Set KenmerkMetadata.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+						Set KenmerkMetadata.Multipliciteit.Minimum = RS.Get("Verplicht")
+						Set KenmerkMetadata.Multipliciteit.Maximum = RS.Get("Multiple")
+						Set KenmerkMetadata.Naam = KenmerkNaam
+						Set KenmerkMetadata.ID = RS.Get("ID")
+						Set KenmerkMetadata.NieuweWaardeToegelaten = RS.Get("NieuweWaardeToegelaten")
+						If (KenmerkMetadata.NieuweWaardeToegelaten = "") Set KenmerkMetadata.NieuweWaardeToegelaten  = "0"
+						Set KenmerkMetadata.SuggereerWaarden = RS.Get("SuggereerWaarden")
+						If (KenmerkMetadata.SuggereerWaarden = "") Set KenmerkMetadata.SuggereerWaarden  = "0"
+						Set KenmerkMetadata.IsReadOnly = RS.Get("IsReadOnly")
+						If (KenmerkMetadata.IsReadOnly = "") Set KenmerkMetadata.IsReadOnly  = "0"
+						Set KenmerkMetadata.IsWijzigbaar = RS.Get("IsWijzigbaar")
+						If (KenmerkMetadata.IsWijzigbaar = "") Set KenmerkMetadata.IsWijzigbaar  = "0"
+				
+						/// -------------------------------------------------------------------------
+						/// Als er geen nieuwe waarden zijn toegelaten dan de mogelijkheden invullen.
+						/// -------------------------------------------------------------------------
+						/// In het veld “Mogelijkheden” op de DTO moet ofwel alle mogelijke waarden ofwel 
+						/// alle reeds gebruikte waarden zitten.
+						/// We nemen als uitgangspunt dat de velden “WaardenSortering*” op “Prod_kenmerk.metadefinitie” 
+						/// gebruikt worden voor gesorteerde en voor vaste lijsten.
+						/// En dat voor niet-gesorteerde niet-vaste lijsten een query moet uitgevoerd worden om de reeds 
+						/// gebruikte waarden te vinden.
+						/// 
+						/// 1) Bepaalde kenmerken mogen niet rechtstreeks door de gebruiker gewijzigd worden.
+						/// Daarom een flag "read-only" op de kenmerken metadata.
+						/// 
+						/// Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.
+						/// 2) Bovendien een flag "gebruikte waarden niet suggereren" voorzien. Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI.
+						
+						If (KenmerkMetadata.SuggereerWaarden)
+						{
+							Set MogelijkeWaardenManager = ##class(APPS.PM.Kenmerk.MogelijkeWaardenManager).%New()
+							#dim MogelijkeWaardenRepository AS APPS.PM.Kenmerk.impl.MogelijkeWaardenRepository = MogelijkeWaardenManager.GeefMogelijkeWaardenRepository(KenmerkGroep,KenmerkNaam)
+							Set KenmerkMetadata.Mogelijkheden = MogelijkeWaardenRepository.GeefMogelijkeWaarden()
+						}			
+				
+						Set KenmerkMetadata.VeldBreedteInTekens = RS.Get("VeldBreedteInTekens")
+						Set:(KenmerkMetadata.VeldBreedteInTekens="") KenmerkMetadata.VeldBreedteInTekens = ..#VeldBreedteInTekens
+				
+						Set KenmerkMetadata.VolgNr = RS.Get("VolgNr")
+						
+						Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GeenBeperking).%New()
+						
+						If (RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Tekst()){
+							Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst()
+							If (RS.Get("Lengte") '= ""){
+								Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New()
+								Set KenmerkMetadata.DataTypeBeperking.MaxAantalTekens = RS.Get("Lengte")
+							}
+						}ElseIf (RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Boolean()){
+							Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Boolean()
+						}ElseIf((RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Integer()) || (RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Float())){
+							Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Getal()
+							If ((RS.Get("Decimalen")'= "") || (RS.Get("Eenheid")'= "") || (RS.Get("MaxValue") '= "") || (RS.Get("MinValue") '= "")) {
+								Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GetalBeperking).%New()
+								Set KenmerkMetadata.DataTypeBeperking.AantalDecimalen = RS.Get("Decimalen")
+								Set KenmerkMetadata.DataTypeBeperking.Eenheid = RS.Get("Eenheid")
+								Set KenmerkMetadata.DataTypeBeperking.Maximum = RS.Get("MaxValue")
+								Set KenmerkMetadata.DataTypeBeperking.Minimum = RS.Get("MinValue")
+							}
+						}ElseIf(RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Datum()){
+							Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Datum()
 						}
-					}ElseIf (RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Boolean()){
-						Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Boolean()
-					}ElseIf((RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Integer()) || (RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Float())){
-						Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Getal()
-						If ((RS.Get("Decimalen")'= "") || (RS.Get("Eenheid")'= "") || (RS.Get("MaxValue") '= "") || (RS.Get("MinValue") '= "")) {
-							Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GetalBeperking).%New()
-							Set KenmerkMetadata.DataTypeBeperking.AantalDecimalen = RS.Get("Decimalen")
-							Set KenmerkMetadata.DataTypeBeperking.Eenheid = RS.Get("Eenheid")
-							Set KenmerkMetadata.DataTypeBeperking.Maximum = RS.Get("MaxValue")
-							Set KenmerkMetadata.DataTypeBeperking.Minimum = RS.Get("MinValue")
-						}
-					}ElseIf(RS.Get("Format") = ##class(DOM.PM.enu.MetaDefinitieFormat).Datum()){
-						Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Datum()
+				
+						Do KenmerkGroepMetadata.Kenmerken.Insert(KenmerkMetadata)
 					}
-			
-					Do KenmerkGroepMetadata.Kenmerken.Insert(KenmerkMetadata)
 				}
-			}
-			Do MetadataGroep.KenmerkGroepen.Insert(KenmerkGroepMetadata)
-		}		
-	}	
-	$$$TECHErrorTrapOff
+				Do MetadataGroep.KenmerkGroepen.Insert(KenmerkGroepMetadata)
+			}		
+		}
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception,"Error in GeefMetadata() voor "_KenmerkGroepenInfo)
+		
+	}
+	;$$$TECHErrorTrapOff
 	Quit MetadataGroep
 ]]></Implementation>
 </Method>