READVAR()

Sintaxis

READVAR()

Propósito

Suministra el nombre de la variable o del campo que está actualmente seleccionado o en edición en los comandos y funciones de interfaz de pantalla.

Argumentos

Ninguno.

Utilización

La función READVAR() se utiliza solamente durante la ejecución de cualquier objeto del tipo GET(). Por lo tanto, cuando algún objeto de este tipo esté esperando una información, será posible determinar el nombre de la variable o del campo asociado.

El nombre de la variable obtenido por esta función puede utilizarse para desviar el flujo de ejecución del programa de acuerdo con el resultado esperado, determinando la ejecución de la alternativa más apropiada.

Si la función se utiliza fuera del estado de espera de un objeto del tipo GET(), el resultado será una cadena de caracteres nula.

Sugerencias

La función READVAR() es particularmente útil en rutinas invocadas por las cláusulas WHEN y VALID de un objeto del tipo GET().

La utilización de la función READVAR(), en conjunto con el operador macro ( & ), permite obtener el contenido de la variable o del campo, como se describe en los siguientes ejemplos.

Ejemplos

@ 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()

En este ejemplo, la información se valida por medio de la función VerDig():

FUNCTION VerFil()

LOCAL cVar   := READVAR()          // Obtiene el nombre de la variable.

LOCAL cCont := &(READVAR())     // Obtiene el contenido de la variable.

LOCAL lRet   := .F.

IF cVar == “cCPF”

          lRet := ValidCPF( &(READVAR()) )

ELSEIF cVar == “cCNPJ”

          lRet := ValidCNPJ( &(READVAR()) )

ELSE

          MsgAlert(“¡Campo sin validación disponible! Entre en contacto con el administrador del sistema.”)

          MsgAlert(“Campo: “ + cVar + “ / Contenido: “ + cCont)

ENDIF

RETURN lRet