Nova postagem
TudoRespostas aceitas
Walter Brandes · Ago. 3, 2022

Class IGREJA.CADASTRO Extends %SOAP.WebService
{ /// SERVICENAME - Should be the name of the service for which this is a proxy.
/// Override this parameter in the subclass.
Parameter SERVICENAME = "CADASTRO"; Property MATRICULA As %String; Property NOME As %String; Property IDADE As %String; Method GRAVA(MATRICULA As %String, NOME As %String, IDADE As %String) As %String [ WebMethod ]
{
S ^IGREJA(MATRICULA)=NOME_"^"_IDADE
QUIT "OK"
} Method EXCLUI(MATRICULA As %String) As %String [ WebMethod ]
{
K ^IGREJA(MATRICULA)
QUIT "OK"
} Method CONSULTA(MATRICULA As %String) As %String [ WebMethod ]
{
S REG=$G(^IGREJA(MATRICULA))
S NOME=$P(REG,"^",1),IDADE=$P(REG,"^",2)
S X=MATRICULA_"^"_NOME_"^"_IDADE
QUIT X
} Method CONSULTATUDO() As %List [ WebMethod ]
{
S M="" K VET
F  S M=$O(^IGREJA(M),1,REG) Q:M=""  S NOME=$P(REG,"^",1),IDADE=$P(REG,"^",2),VET(NOME,M)=IDADE
;s AAA=[]
;s BBB={}
S (N,M)="" F  S N=$O(VET(N)) Q:N=""  F  S M=$O(VET(N,M)) Q:M=""  S BBB.matricula=M,BBB.nome=N,BBB.idade=VET(N,M) d AAA.%Push(BBB)
S XXX=AAA.%ToJSON()
QUIT XXX
} }