Determinar si una tabla esta siendo
Hola, quisiera saber como determinar si una tabla de datos esta siendo utilizada por otro programa, pues intento accesar a ella pero esta en uso, el programa que la maneja no tengo el código por eso no la puedo compartir, ¿sin embargo sé que el código de error es el 1705 entonces como puedo determinar por código si el error es el 1705 para mandar un mensaje para que el usuario cierre el programa que utiliza la tabla?
De antemano, muchas gracias
De antemano, muchas gracias
1 respuesta
Respuesta de ingesoft
1
para controlar los errores yo uso esta instruccion el el prg de arranque del sistema
ON ERROR DO Errores WITH ;
ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
y este procedimiento paa guardarlos en una tabla
PROCEDURE Errores
PARAMETER merror, mess, mess1, mprog, mlineno
nOpc= MESSAGEBOX("Ha ocurrido un error:"+CHR(13)+CHR(13)+;
'Número de error: ' + LTRIM(STR(merror))+CHR(13)+ ;
'Mensaje de error: ' + mess+ CHR(13)+ ;
'Línea de código con error: ' + mess1+CHR(13)+ ;
'Número de línea del error: ' +;
LTRIM(STR(mlineno))+CHR(13)+ ;
'Programa con error: ' + mprog, 2+48)
ze1 = LTRIM(STR(merror))
ze2 = mess
ze3 = mess1
ze4 = LTRIM(STR(mlineno))
ze5 = mprog
ze6 = datetime()
abrirtabla('z_error')
Insert Into z_error (nro, mensaje, linea_cod, nro_linea, programa, fecha);
Values(ze1, ze2, ze3, ze4, ze5, ze6)
cerrartabla('z_error')
DO CASE
CASE nOpc = 3 && Anular
CANCEL
CASE nOpc = 4 && Reintentar
RETRY
CASE nOpc = 5 && Ignorar
RETURN .T.
ENDCASE
RETURN
No te costara nada cambiar para que valide solo el código de error que quieres manejar
Bendiciones
ON ERROR DO Errores WITH ;
ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
y este procedimiento paa guardarlos en una tabla
PROCEDURE Errores
PARAMETER merror, mess, mess1, mprog, mlineno
nOpc= MESSAGEBOX("Ha ocurrido un error:"+CHR(13)+CHR(13)+;
'Número de error: ' + LTRIM(STR(merror))+CHR(13)+ ;
'Mensaje de error: ' + mess+ CHR(13)+ ;
'Línea de código con error: ' + mess1+CHR(13)+ ;
'Número de línea del error: ' +;
LTRIM(STR(mlineno))+CHR(13)+ ;
'Programa con error: ' + mprog, 2+48)
ze1 = LTRIM(STR(merror))
ze2 = mess
ze3 = mess1
ze4 = LTRIM(STR(mlineno))
ze5 = mprog
ze6 = datetime()
abrirtabla('z_error')
Insert Into z_error (nro, mensaje, linea_cod, nro_linea, programa, fecha);
Values(ze1, ze2, ze3, ze4, ze5, ze6)
cerrartabla('z_error')
DO CASE
CASE nOpc = 3 && Anular
CANCEL
CASE nOpc = 4 && Reintentar
RETRY
CASE nOpc = 5 && Ignorar
RETURN .T.
ENDCASE
RETURN
No te costara nada cambiar para que valide solo el código de error que quieres manejar
Bendiciones
