- Log in to post comments
Great Eduard! It worked perfectly, thank you very much!!!
- Log in to post comments
Hello Gabriel, you can use the% ZEN classes, as the example below:
ClassMethod ConvertJSON() As %Status
{
Set tSC = $$$OK
Try{
Set Store = ##class(%ZEN.proxyObject).%New(),
Clients = ##class(%ListOfObjects).%New(),
Client = ##class(%ZEN.proxyObject).%New() Set Client.code = 1,
Client.name = "Leonardo"
Do Clients.Insert(Client)
Set Store.name = "Intersystems Store",
Store.address = "80 Delancey St, New York, NY",
Store.clients = Clients
$$$THROWONERROR(tSC, ##class(%ZEN.Auxiliary.jsonProvider).%WriteJSONStreamFromObject(.JsonStore,Store))
Write JsonStore.Read()
} Catch tException {
Set:$$$ISOK(tSC) tSC = tException.AsStatus()
}
Quit tSC
}
- Log in to post comments
Eduard, thank you very much again, with the% WriteJSONFromObject function I was able to solve a performance issue. Using WriteJSONStreamFromObject () was taking 1 minute, with% WriteJSONFromObject going to 3 seconds!