FoxPro/Visual FoxPro - POR FAVOR AYUDA !!!!! (foxpro 2.0 2.6 DOS)

Necesito saber que sentencia tengo que incorporar al PRG
para que aparezca mensaje de error: "Not file in use"
en lugar de lo que me pasa ahora: aparece un recuadro de dialogo
fuxia en medio de pantalla con la orden "SELECT DATABASE"
(mis clientes elijen cualquier archivo y me hacen desastres)

Por favor pueden ahora ejecutar el foxpro y crear un PRG de pocas
lineas como ejemplifico abajo?


* PROGRAMA DE EJEMPLO
BROW
*FIN DEL PROGRAMA

PD: algunas aclaraciones mas

Hace 10 años que programo en foxpro

Tengo hecho un programa con mas de 120.000 lineas de codigo
el cual esta bastante desprolijo y hace algunos años lo modifique
para que corra en red.

Basicamente la red funciona con captura de errores. Siel archivo esta en uso, corro un procedimiento que dice "aguarde" durante un instante y reintento.

Hasta aca todo perfecto. El programa funciona bastante bien
A VECES SE BORRAN LOS ARCHIVOS AUXILIARES Y ANTES DE PODER CAPTURAR EL ERROR PARA CORRER UN PROCEDIMIENTO DE REGENERAMIENTO, APARECEE ESTA MALDITA PANTALLITA FUXIA <SELECT DATABASE> (Imaginen que yo quiero abrir un archivo temporal para zapearlo y por algun motivo NO ESTA, aparecee esta pantalla y los operadores del sistema elijen cualquier archivo como por ejemplo el CLIENTES.DBF y me lo hacen pelota.

Hace varios años que no escuentro respuesta

Gracias a todos. Desde ya quedo enteramente a vustra disposicion para colaborar con cosas que yo pudiera saber. Gracias nuevamente.

Hola ANA MARÍA...

Espero ayudarte. Tu problema, creo, puede deberse básicamente a dos causas:
1. el ARHIVO no está abierto o está abierto en un área diferente y el área dónde estás no tiene ningún archivo abierto. En este caso, debes abrir el archivo y/o selecionar el área o el álias adecuado.

Pero me parece que se debe más bien a esta segunda causa:
2. el ARCHIVO no existe (porque como decís, se borró), en cuyo caso creo que una solución sería incluir lo siguiente antes de abrir siquiera el archivo:

if !file('nombre_archivo'.dbf)
MENSAJE de ERROR
AL INICO o SALIR,
endif
sele 0
use NOMBRE_ARCHIVO alias ALGO
brow
*
no olvides colocar el ".DBF" en el if file(), porque de otro modo te dará siempre como que no existe.
*
Esta es una solución "parche". Creo que deberías ver la posibilidad de "reescribir" tu sistema. Incluye rutinas para aperturas de archivos (utilizando alias), de control de error (ve la sentencia: ON ERROR,,,); y, principalmente, hazlo "compartido".
La aparición de la "pantallita fuxia" lo solucionás creando una rutina de control de error.

Saludos, espero te sirva y a las órdenes

Gracias por contestarme pero te cuento
que hice la rutina de control de errores que
funciona bastante bien, ,es mas, algo bastante
similar a lo que me contas pero
la "pantallita fuxia" aparece antes de detectar un error
es deecir, si a la pantallita fuxia, le das <ESC> recien ahi
se produce el error, es como que el asistente de foxpro se me esta interponiendo dentro del PRG y al detectar una orden de manejo de archivo como por ejemplo SKIP, BROWSE o cualquier otro ANTES DE CONTINUAR EJECUTANDO MI PRG DETECTA QUE NO HAY NINGUN DBF ABIERTO Y APARECEC LA PANTALLITA MALDITA

Te pido si podes escribir vos un PRG chiquito de solo dos lineas:

*PROGRAMA DE PRUEBA

ON ERROR CANCEL
BROW

*FIN DE PROGRAMA

y vas a ver que antes de acusar el ERROR y cancelar abre la pantallita fuxia.

DESDE YA MUCHISIMAS GRACIAS A TODOS Y POR FAVOR TRATEN De AYUDARME PLEASE !!!!!

Hola ANA MARÍA,,,

De vuelta yo,, una rectificación,,, en la primera causa, no puede ser que l archivo esté en uso en otra área,,, te daría otro error. La razón podría ser únicamente que no hayas abierto el archivo.

Saludos

hola revisa las funciones sys() en la ayuda fox hay una funcion que no recuerdo el numero que determina si esta o no una base de datos usada o prueba if .not. used("xxx.xx")
wait "archivo xx no usado¨ window timeout 1
endif

hola amiga mira tuve el mismo error pero solo coloque al inicio del programa PGR la funcion

SET NOTIFY OFF

Y FUE TODO NO SE CHECALO Y ME DICES..
SALE..

SALUDOS
ANTONIO PEREZ JILOTH
REYNOSA-TAM
X-PRESS AUTO SERVICE
COOD. ADMVO