Histórico da Página

@interface AnnotationUm#include "tlpp-core.th"
 
@annotation PrimeiraAnnotation
    nicknameempresa as char
@end
  
  
@interface@annotation AnnotationDoisSegundaAnnotation
    tipo as char
@end
   
  
@AnnotationUm@PrimeiraAnnotation(nicknameempresa = "CompanyTotvs")
@AnnotationDois@SegundaAnnotation(tipo = "Teste ListaSoftware")

class MeuObjetoGetClassAnnotationList
    public data data1
    public method new()
EndClass
   
Method new() Class MeuObjetoGetClassAnnotationList
return self
   
main function AnnotationListu_testGetClassAnnotationList()

    local oObj aRet as array
  
    aRet := MeuObjeto():New()
 Reflection.getClassAnnotationList("GetClassAnnotationList")
   local jRet
 
   if jRet := Reflection.getClassAnnotationList("MeuObjeto"(valType(aRet) == "A") .and. (len(aRet) > 0)
      conout(jRetaRet[1]["nicknameempresa"])
      conout(jRetaRet[2]["tipo"])
    else
      conout('Não foi encontrada nenhuma Annotation na classe declarada !')  
    endif
return