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)