FoxPro/Visual FoxPro - Guardar los errores en una tabla

CREATE TABLE ErrorLog ( ;
pkErrorLog i autoinc, ;
tTimeStamp t, ;
nError i, ;
cErrorText c(200), ;
nLineNo i, ;
cFileName c(200) )

On Error do LogError with Datetime(), Lineno(), Program()
x = BadVar
Error 1
Error "my error"

On Error

Select * from ErrorLog into cursor foo
Browse width 20
Return

Procedure LogError
Lparameters ttTimeStamp, tnLineNo, tcFileName
Local lnErrors, lnError
Local array laErrors[1]

lnErrors = AError(laErrors)
For lnError = 1 to lnErrors
Insert into errorlog ;
( tTimeStamp, nError, cErrorText, nLineNo, cFileName ) ;
values ;
( ttTimeStamp, laErrors[lnError,1], laErrors[lnError,2], tnLineNo, tcFileName )
EndFor

Return

Suerte