Histórico da Página

#include "tlpp-core.th"
 
@annotation DataAnnotation
  nickname as char
@end
 
Class GetDataAnnotation
  
  @DataAnnotation(nickname = "Company")
  Public data data1

  Public Method New()

EndClass

Method New() class GetDataAnnotation
Return Self
   
  

Function u_testGetDataAnnotation()

  Local jRet
  
  jRettestgetClassSourceName
	local cRet := '' as character

	cRet := Reflection.getDataAnnotationgetClassSourceName("GetDataAnnotationreflection.getClassSourceName", "data1", "DataAnnotationAnnotationgetClassSourceName")
  	if(valType(jRetcRet) <> 'U' .and. !empty(cRet))
		Conout("The source 
    Conout(jRet["nickname"])
  EndIf
  
name of annotation is: " + cValToChar(cRet))
	else
		Conout('Erro na execução da Reflection.getClassSourceName')
	endif
Return