RE:como hacer un validador de errores
Hola:
En VFoxPro 6.0 lo hago de la siguiente manera:
*capturar error al borrar un registro de la tabla clientes
select clientes
nError=0
on error nError=error()
delete
on error
if nError=1539
messagebox("Error: No se puede borrar.","Aviso")
else
recall
do form fclibaj
endif
*************
En VFoxPro 8.0 lo hago de la siguiente manera:
*borrar registro de la tabla entradas
LOCAL respuesta as Number
LOCAL lo as Exception
*
respuesta=MESSAGEBOX("¿Borrar entrada "+ALLTRIM(STR(entrada_id))+"?",4+48,"")
IF respuesta=6
SELECT entradas
TRY
DELETE
CATCH TO lo
IF lo.ErrorNo=1539
MESSAGEBOX("Error: no se puede borrar (I.R.).","Aviso")
ENDIF
FINALLY
ENDTRY
thisform.refresh
ENDIF
************
puedes utilizar en el catch to lo:
lo.errorno&& devuelve el numero de error
lo.message&&devuelve la descripción del error.
Espero sea eso lo que preguntabas.
Suerte.
Ángel.