betolink
28 de Octubre del 2005

Hola Comunidad necesito una ayuda para crear lock de errores en fox si alguien tiene un ejemplo que me pueda facilitar se lo agradecere inmenzamente.

sgomez
28 de Octubre del 2005

Supongo que te referís a "log de errores", en caso de ser asi podés usar algo asi:

on error do errores WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )

*codigo de programa
*codigo de programa
*codigo de programa
return

procedure errores
PARAMETER merror, mess, mess1, mprog, mlineno
strtofile(padl(merror,4,\'0\')+alltrim(mess)+alltrim(mes1)+alltrim(mprog)+padl(mlineno,9,\'0\'),"c:\log.txt",.t.)
endproc

betolink
28 de Octubre del 2005

Gracias voy a trabajarlo a ver como funciona