READVAR()

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