Error 7040 en ADS. RENE FLORES. HELP.

[syda]

Hola,

En un módulo de mi sistema el tengo que crear una tabela (dbf) a partir del otra tabela usando el comando TOTAL ON.

Code: Select all

SELE 32  // ARQ. TEMPORÁRIO - CAPTAÇÃO DE ACABADOS
IF RECCOUNT()=0
    RETURN .F.
ENDIF
INDEX ON CODRED TO INDD
SET INDEX TO INDD
TOTAL ON CODRED FIELDS PESOKG, QTDSAI TO S:\SUMARY.DBF

En el primer llamado del total sobre el que trabaja 100 %, llamó el lunes del módulo que obtengo el error 7040 - File creation error. Verify the specified path and file name is correct and that no other users have the file open.

Solamente un usuario por el tiempo usa este archivo.

Code: Select all

REQUEST ADS , ADSKeyno, ADSKeycount  
RddRegister( "ADS", 1 ) 
RddSetDefault( "ADS" ) 
AdsLocking( .T. )
AdsRightsCheck( .F. )
AdsSetFileType( 2 ) /// 1 NTX / 2 CDX / 3 ADT
IF NETNAME() = 'NOTEDAF'
    AdsSetServerType(1) /// 1 Local / 2 Server / 7 AIS Internet
ELSE
    AdsSetServerType(2) /// 1 Local / 2 Server / 7 AIS Internet
ENDIF
AdsSetDateFormat("DD/MM/YYYY")
AdsSetEpoch("01/01/2000")

Gracias.

[R.F.]

Revisa que ningun otro programa tenga abierto el DBF que causa el error.

O prueba quitando el AdsLocking(), ponlo en .F.

Recuerda que ADS no puede abrir un archivo que este siendo utilizado por otra aplicacion que no sea cliente ADS y viceversa, un programa normal no puede abrir un archivo DBF que este siendo utilizador por una aplicacion cliente ADS