ir ao artigo 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_"^"_IDADEQUIT "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_"^"_IDADEQUIT X} Method CONSULTATUDO() As %List [ WebMethod ]{S M="" K VETF 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} }
ir ao artigo Walter Brandes · Ago. 3, 2022 BOA TARDE, nao tenho experiencia em WEBSERVICES e estou querendo testar um metodo CONSULTATUDO que devolve uma lista com nomes/idades/matricula.. me disseram hoje para usar o JASON para que a pessoa que for usar a minha WEBSERVICE ... vc pode me mostrar como ficou o seu codigo usando %SOAP.WebService? obrigado pela ajuda walter