UPDATED( )
Determina si ha cambiado un objeto GET durante un mandato READ
Sintaxis
UPDATED() –> lCambio
Devuelve
UPDATED() devuelve verdadero (.T.) si se han añadido o modificado datos en un GET; en caso contrario devuelve falso (.F.).
Descripción
UPDATED() determina si se han introducido satisfactoriamente los caracteres en el objeto GET desde el teclado utilizando el READ más reciente. Cada vez que se ejecuta un READ, UPDATED() toma el valor falso (.F.). Cada vez que se accede a un objeto GET desde el teclado, UPDATED() toma el valor verdadero (.T.) después de que el usuario sale del objeto GET. Si el usuario pulsa Esc antes de salir del primer objeto GET editado, UPDATED() sigue siendo falso (.F.). Cuando UPDATED() toma el valor verdadero (.T.), mantiene este valor, hasta que se ejecuta el siguiente READ.
En un procedimiento SET KEY o VALID puede cambiar la variable del GET actual utilizando el mandato KEYBOARD o asignándole un nuevo valor con cualquiera de los operadores de asignación. Cambiar el valor de la variable con KEYBOARD tiene el mismo efecto que si el usuario hubiera introducido el cambio directamente desde el teclado, y UPDATED() devuelve el valor correspondiente. No obstante, como UPDATED() refleja solo los cambios realizados desde el teclado, una asignación de la variable del GET no afecta a UPDATED().
Ejemplos
¦ Este ejemplo asigna valores de campos de Clientes.dbf a variables y las edita. Si el usuario cambia cualquiera de estos valores, las variables de campo para el registro actual se actualizan con los nuevos valores:
USE Cliente NEW
CLEAR
MEMVAR->Cliente = Cliente->Cliente
MEMVAR->Direccion = Cliente->Direccion
@ 1, 1 SAY “Nombre:” GET MEMVAR->Cliente
@ 2, 1 SAY “Direccion:” GET MEMVAR->Direccion
READ
//
IF UPDATED()
Cliente->Cliente := MEMVAR->Cliente
Cliente->Direccion := MEMVAR->Direccion
ENDIF
Ficheros: La biblioteca asociada es DPXBASE.CH.