TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Jose Egidio Goncalves Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Egidio Goncalves Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Nome

Tipo

Descrição

Obrigatório

Referência

cProgramName

caractere

Nome do programa onde serão procuradas funções que contenham a Annotation.

X


cAnnotationName
caractereNome da Annotation a ser procurada.X           X

Retorno

Nome

Tipo

Descrição

aRet

Array

Array com o nome das funções onde a Annotation foi encontrada. Caso não seja encontrado nenhum resultado o retorno é NIL.

...

Bloco de código
languagecppthemeEclipse
titleexemplo1test_doc_resourceGetProgramFunctionsByAnnotation.tlpp
linenumberstrue
//Definicoes das annotation, deve estar num fonte*
Programa test_doc_resourceGetProgramFunctionsByAnnotation.tlpp
*/

#include "msobjecttlpp-core.chth" 
namespace exemplo
@annotation AnnotationExemplo
    nicknameresourceExemplo as char
@end


@AnnotationExemplo(nickname = "MeuObject")
main Function AnnotationTeste()
	conout("AnnotationTeste")
Return

Main Function Exemplo()
    retVar resourceExemplo='Valor de Exemplo1')
function u_resourceGetProgramFunctionsByAnnotation()
return
Bloco de código
languagecpp
themeEclipse
titletest_doc_getProgramFunctionsByAnnotation.tlpp
linenumberstrue
#include "tlpp-core.th"

Function u_testGetProgramFunctionsByAnnotation()
	Local aRet

	aRet := Reflection.getProgramFunctionsByAnnotation("exemplo1test_doc_resourceGetProgramFunctionsByAnnotation.tlpp", "AnnotationExemplo") 
    conout(retVar[1])
Return cJson

	if (valType(aRet) <> 'U') .and. (valType(aRet) == 'A' .and. len(aRet) > 0)
		aEval(aRet,{|x| conout(x)})
	else
		conout('Nao foi encontrada Annotation com os parametros informados')
	endIf

Return

Resultado do Exemplo

AnnotationTesteU_RESOURCEGETPROGRAMFUNCTIONSBYANNOTATION

Abrangência

17.3.0.3

Veja também

...