Is there a way to use the %JSON.Adaptor to project readable JSON when a property is defined as a %Integer but with a DISPLAYLIST ?
Class User.CExampleJSON Extends (%RegisteredObject, %JSON.Adaptor, %XML.Adaptor)
{
Property something As%Integer(DISPLAYLIST = ",OK,Error,Warning", VALUELIST = ",0,1,2") [ InitialExpression = 0 ];ClassMethod RunMe()
{
set obj = ..%New()
set obj.something = 2do obj.%JSONExportToString(.string)
write"JSON : " _ string,!!!
write"Content : " _ ..somethingLogicalToDisplay(obj.something),!
}
}
.png)

.png)
.jpg)






