PROBLEMAS AL CREAR INDICES TODAVIA
Publicado por YETICA (13 intervenciones) el 09/11/2007 15:29:16
MIL GRACIAS Y AGRADECIDA ESTOY POR SUS RESPUESTAS PERO ME SIGUE DANDO ERROR AL CORRER EL EJECUTABLE (.EXE)
YA UTILICE EL DELETE TAG ALL Y ME DICE Q DEBO ABRIR EL FILE EN MODO EXCLUSIVO, COSA Q HAGO CON ANTERIORIDAD COMO MUESTRO AQUI
CLOSE TABLES ALL
CLOSE INDEX
*** Tabla: SalNeto.DBF
IF FILE(DirectorioActual+'\SalNeto.DBF')
USE (DirectorioActual+'\SalNeto.DBF') IN 0 EXCLUSIVE
SELECT SalNeto
IF ISEXCLUSIVE('SalNeto')
DELETE TAG ALL
*** DELETE TAG ALL ME DA ERROR Q DEBO ABRIR EL FILE EN MODO EXCLUSIVO
*** LOS INDEX ON DAN EL ERROR Q EL FILE ES DE SOLO LECTURA COSA Q NO ES CIERTA
INDEX ON ALLTRIM(area)+ALLTRIM(exp) TAG AREAEXP
INDEX ON ALLTRIM(area) TAG AREA
INDEX ON VAL(ALLTRIM(area)) TAG NUMAREA
INDEX ON ALLTRIM(exp) TAG EXPED UNIQUE
INDEX ON VAL(ALLTRIM(exp)) TAG NUMEXP
INDEX ON ci TAG CI
ELSE
WAIT WINDOW 'La Tabla SalNeto.DBF no se abrió para uso exclusivo'
ENDIF
USE
ELSE
MESSAGEBOX(' Configuración del Sistema INADECUADA'+CHR(13)+' NO EXISTE el fichero '+DirectorioActual+'\SalNeto.DBF',16,'ERROR !!!')
ErrorFinal=.T.
ENDIF
QUE PUEDO HACER ????
Q ES UNA SESION PRIVADA DE DATOS ???
ALGUIEN PUEDE AYUDARME ??? ESTA RUTINA LA HE CORRIDO EN MULTIPLES PROGRAMAS ANTERIORES Y NUNCA ME HABIA DADO ESTE PROBLEMA ...
YA UTILICE EL DELETE TAG ALL Y ME DICE Q DEBO ABRIR EL FILE EN MODO EXCLUSIVO, COSA Q HAGO CON ANTERIORIDAD COMO MUESTRO AQUI
CLOSE TABLES ALL
CLOSE INDEX
*** Tabla: SalNeto.DBF
IF FILE(DirectorioActual+'\SalNeto.DBF')
USE (DirectorioActual+'\SalNeto.DBF') IN 0 EXCLUSIVE
SELECT SalNeto
IF ISEXCLUSIVE('SalNeto')
DELETE TAG ALL
*** DELETE TAG ALL ME DA ERROR Q DEBO ABRIR EL FILE EN MODO EXCLUSIVO
*** LOS INDEX ON DAN EL ERROR Q EL FILE ES DE SOLO LECTURA COSA Q NO ES CIERTA
INDEX ON ALLTRIM(area)+ALLTRIM(exp) TAG AREAEXP
INDEX ON ALLTRIM(area) TAG AREA
INDEX ON VAL(ALLTRIM(area)) TAG NUMAREA
INDEX ON ALLTRIM(exp) TAG EXPED UNIQUE
INDEX ON VAL(ALLTRIM(exp)) TAG NUMEXP
INDEX ON ci TAG CI
ELSE
WAIT WINDOW 'La Tabla SalNeto.DBF no se abrió para uso exclusivo'
ENDIF
USE
ELSE
MESSAGEBOX(' Configuración del Sistema INADECUADA'+CHR(13)+' NO EXISTE el fichero '+DirectorioActual+'\SalNeto.DBF',16,'ERROR !!!')
ErrorFinal=.T.
ENDIF
QUE PUEDO HACER ????
Q ES UNA SESION PRIVADA DE DATOS ???
ALGUIEN PUEDE AYUDARME ??? ESTA RUTINA LA HE CORRIDO EN MULTIPLES PROGRAMAS ANTERIORES Y NUNCA ME HABIA DADO ESTE PROBLEMA ...
Valora esta pregunta


0