Tengo esta clase definida:
Class Services.IS.Data.Pe Extends (%RegisteredObject, %JSON.Adaptor)
{
Property codigo As %String;
Property descripcion As %String;
Property ListaP As list Of P;
ClassMethod LoadPeCap(Param1 As %String, Param2 As %String) As %JSON.Adaptor
{
Set rs = ##class(%SQL.Statement).%ExecDirect(,"SELECT PRF_c as PRF_c,PRF_des as PRF_des FROM Esquema.tabla where PRF_c ="_Param1_" or PRF_c="_Param2)
Set pts ={"pts":[]}
While rs.%Next() {
Set pec ={
"PRF_c": (rs.%Get("PRF_c")),
"PRF_des": (rs.%Get("PRF_des"))





.png)




