FoxPro/Visual FoxPro - Como debo personalizar un VALIDATE?

 
Vista:

Como debo personalizar un VALIDATE?

Publicado por Jose Rolando (325 intervenciones) el 19/03/2002 06:58:42
Hola amigos!!
Me gustaria saber como debo hacer para que en el comando VALIDATE, si la base de datos ha sido alterada me muestre un mensaje personalizado, en lugar del cuadro de dialogo de Cancelar, Ignorar, etc.
Tengo un demo con cierta cantidad de registros pero, alguien podria copiar encima una tabla igual con mas registros y quiero evitar que ingrese si la base de datos es alterada. El programa es de padrones, de ahi que se puede copiar una tabla completa reemplazando la del demo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como debo personalizar un VALIDATE?

Publicado por Charles Benzon (340 intervenciones) el 19/03/2002 09:28:45
Buenas,
lo primero que se me ocurre es que captures el numero de error y puedas de esa forma mostrar tu mensaje personalizado.
ej, la idea es:

On error do errores with (aqui van los parametros)

procedure errores
Parameter (aqui van los parametros)
do case
case numerror= 9999 && aqui va el error de la base de datos
=messagebox("La base de Datos esta alterada")
cancel

etc...
end case

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como debo personalizar un VALIDATE?

Publicado por José Rolando (325 intervenciones) el 22/03/2002 06:53:55
Hola!
Gracias por la sugerencia y, ahi va el ejemplo mejorado.

SET PATH TO HOME()+"DATOS"
ON ERROR DO errhand WITH ERROR( )
OPEN DATABASE DATOS\Padrones NOUPDATE VALIDATE
ON ERROR
RETURN

*** Controlador de errores ***
PROCEDURE errhand
PARAMETER errnum,message
=messagebox("La Base de Datos ha sido alterada, y se cerrará",0+32,"¡ATENCIÓN!")
close database
quit
***Si no hay error pasará la función a este método, indicando que todo está en orden***
This.Acceso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar