Index: Prod/Kenmerk/MetaGroep.cls.xml =================================================================== diff -u -r1562 -r1563 --- Prod/Kenmerk/MetaGroep.cls.xml (.../MetaGroep.cls.xml) (revision 1562) +++ Prod/Kenmerk/MetaGroep.cls.xml (.../MetaGroep.cls.xml) (revision 1563) @@ -64,6 +64,12 @@ ]]> + +%Boolean + + + %Library.CacheStorage ^Prod.Ken.MetaDefinitieD Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r1562 -r1563 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1562) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1563) @@ -218,10 +218,12 @@ Set KenmerkGroepMetadata = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New() Set KenmerkGroepMetadata.Naam = KenmerkGroep - Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = (KenmerkGroepMetadata.Naam = "OL") Set Metadata = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep) - Set KenmerkGroepMetadata.Omschrijving = Metadata.Omschrijving - Set KenmerkGroepMetadata.Icoon = Metadata.Icoon + If $IsObject(Metadata){ + Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = Metadata.MultipleKenmerkenSetsToegelaten() + Set KenmerkGroepMetadata.Omschrijving = Metadata.Omschrijving + Set KenmerkGroepMetadata.Icoon = Metadata.Icoon + } Set RS = ##class(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep") Do RS.Execute(KenmerkGroep)