Object of %SerialObject class to List

Question

Question

Matjaz Murko · Jul 3, 2021

Hi.

Is it possible to convert the object of type %SerialObject to $List form? I'm using embedded class in unique index and I want to use autogenerated method Open to access the object - parameter should be in $List form...

Tnx.

Regards,

Matjaž

Product version: IRIS 2020.1

Discussion (9)1

Log in or sign up to continue

Robert Cemper · Jul 4, 2021

Ok. the picture becomes clearer:
%SerialObject is stored as $LB($LB(....),...)
you can get your result by 2 steps.

do attribute.%SerializeObject(.serialraw)
set list=$list(serialraw)

0 0

score 0 · Answer 1 · 2021-07-03T18:48:55-04:00

don't think so complicated. leave your serial object as it is
but use instead a CALCULATED, SQLCOMPUTED Property as $LB() and you can then index it

score 0 · Answer 2 · 2021-07-03T19:01:03-04:00

Tnx for you answer, but I'm not sure I understand it. I don't have problem with index but with Open method:

        Set attributes=##class(Packing.Needs.Attributes).%New() //%SerializeObject
        Set attributes.Source="SYS"

        Set need=##class(Packing.Needs.State).StateIdOpen(json."Department",technicalProduct.%Id(),$ZDate(+$Horolog,3)_" 00:00:00",json."DeliveryBy",attributes,4) //attributes parameter should be in $List format

score 0 · Answer 3 · 2021-07-04T09:55:07-04:00

Hi.

It works although in the documentation stays:

method %SerializeObject(ByRef serial As %Binary, partial As %Integer = 0) as %Status [ Language = objectscript ]

This method retrieves all of the serial values for referenced objects and places them into the instance variables, Validates, Normalizes, and serializes the object (with a save of the persistent image if persistent).
This method is not meant to be called directly. It is called by %Save and by %GetSwizzleObject.

Tnx!

Regards,

Matjaž

score 0 · Answer 4 · 2021-07-04T10:30:00-04:00

Zdravo Matjaž!
you are right in principle. Though there are hundreds of similar cases since DECADES!
ok, the cleaner solution brings us back to my previous proposal.
add a calculated property to your serial class ##class(Packing.Needs.Attributes) like this

Property List As %List [ Calculated, SqlComputed,
SqlComputeCode = { set {*}= $LB({attr1},{attr2},{attr3},{attr4} ) }, SqlComputed ];

attr1,attr2,attr3,attr4 have to be the SQLnames of these properties !!!

WARNING#1: you have to maintain this list manually at every change of the attributes!

WARNING#2:: this calculation happens at every access to the object.
The additional parameter SqlComputeOnChange = (attr1,attr2,attr3,attr4)
may reduce this. though I've never tried in practice

score 0 · Answer 5 · 2021-07-04T12:01:37-04:00

Hi.

I'll stick with first one. Tnx again.

Regards,

Matjaž

P.S.

Where are you comming from (you know word like "Zdravo" :) )?

score 0 · Answer 6 · 2021-07-04T12:26:40-04:00

Robert Cemper · Jul 4, 2021

I come from Vienna, Austria.
I guess we are "neighbors" according to your mail (.si)

0 0

score 1 · Answer 7 · 2021-07-04T13:32:21-04:00

Matjaz Murko · Jul 4, 2021

Pretty close, I'm from Ptuj, near Maribor...

1 0

score 0 · Answer 8 · 2021-07-05T03:35:40-04:00

Robert Cemper · Jul 5, 2021

dobrodošli

[Google translate is my helper]

0 0