Histórico da Página
Sintaxe
READVAR()
Propósito
Fornece o nome da variável ou do campo que está atualmente selecionado ou em edição nos comandos e funções de interface de tela.
Argumentos
Nenhum.
Utilização
A função READVAR() funciona apenas durante a execução de qualquer objeto do tipo GET(). Portanto, quando qualquer objeto desse tipo estiver aguardando uma informação, será possível determinar o nome da variável ou do campo associado.
O nome da variável obtido por essa função pode ser utilizado para desviar o fluxo de execução do programa de acordo com o resultado esperado, determinando a execução da alternativa mais apropriada.
Caso a função seja utilizada fora do estado de espera de um objeto do tipo GET(), o resultado será uma cadeia de caracteres nula.
Dicas
A função READVAR() é particularmente útil em rotinas invocadas pelas cláusulas WHEN e VALID de um objeto do tipo GET().
A utilização da função READVAR(), em conjunto com o operador macro ( & ), permite obter o conteúdo da variável ou do campo, conforme descrito nos exemplos.
Exemplos
@ 010,050 MSGET cCPF SIZE 55,11 OF oDlg PIXEL PICTURE “@R 999.999.999-99”;
VALID VerDig()
@ 050,050 MSGET cCNPJ SIZE 55,11 OF oDlg PIXEL PICTURE “@R 99.999.999/9999-99”;
VALID VerDig()
Nesse exemplo, a validação das informações é realizada pela função VerDig(), descrita abaixo:
FUNCTION VerFil()
LOCAL cVar := READVAR() // Obtém o nome da variável
LOCAL cCont := &(READVAR()) // Obtém o conteúdo da variável
LOCAL lRet := .F.
IF cVar == “cCPF”
lRet := ValidCPF( &(READVAR()) )
ELSEIF cVar == “cCNPJ”
lRet := ValidCNPJ( &(READVAR()) )
ELSE
MsgAlert(“Campo sem validação disponível! Entre em contato com o administrador do sistema.”)
MsgAlert(“Campo: “ + cVar + “ / Conteúdo: “ + cCont)
ENDIF
RETURN lRet