FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error 7040 en ADS. RENE FLORES. HELP.
Posts: 47
Joined: Sat Oct 08, 2005 09:12 PM
Error 7040 en ADS. RENE FLORES. HELP.
Posted: Thu Apr 19, 2007 01:34 AM
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.

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.

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.
FWH 7.04 + xHarbour.com xBuild 0.99.71

Resource Builder 2.6 (thanks to Rene for the indication)

Windows XP Professional

Manaus - Amazonas - Brasil
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Error 7040 en ADS. RENE FLORES. HELP.
Posted: Thu Apr 19, 2007 09:13 PM

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

Saludos

R.F.

Continue the discussion